]LIST 2 DIM PLT(10): DIM SEG(10) 3 TEXT 5 GOTO 500 10 PRINT PLT(WX);",";PLT(WY);":";PLT(X);",";PLT(Y); 12 RETURN 14 PRINT "C1=";: GOSUB 10: PRINT ":";C1;: GET A$: PRINT 20 REM PLOT WALL SEGMENTS 21 FOR WY = 1 TO 9 22 FOR WX = 1 TO 9 23 X = WX + 1:Y = WY + 1: READ ITEM: GOSUB 70 24 IF C1 = 3 THEN HCOLOR= 7: HPLOT PLT(WX) + 1,PLT(WY) TO PLT(X) - 1,P LT(WY) 27 IF C1 = 2 THEN HCOLOR= 3: HPLOT PLT(WX) + 1,PLT(WY) TO PLT(X) - 1,P LT(WY) 29 IF C2 = 3 THEN HCOLOR= 7: HPLOT PLT(WX),PLT(WY) + 1 TO PLT(WX),PLT( Y) - 1 32 IF C2 = 2 THEN HCOLOR= 3: HPLOT PLT(WX),PLT(WY) + 1 TO PLT(WX),PLT( Y) - 1 34 IF C3 = 3 THEN HCOLOR= 7: HPLOT PLT(X),PLT(WY) + 1 TO PLT(X),PLT(Y) - 1 37 IF C3 = 2 THEN HCOLOR= 3: HPLOT PLT(X),PLT(WY) + 1 TO PLT(X),PLT(Y) - 1 39 IF C4 = 3 THEN HCOLOR= 7: HPLOT PLT(WX) + 1,PLT(Y) TO PLT(X) - 1,PL T(Y) 42 IF C4 = 2 THEN HCOLOR= 3: HPLOT PLT(WX) + 1,PLT(Y) TO PLT(X) - 1,PL T(Y) 45 NEXT WX 47 NEXT WY 49 RESTORE : RETURN 50 HPLOT X1,Y1 TO X2,Y1 53 HPLOT X1,Y1 + 1 TO X2,Y1 + 1 55 RETURN 60 HPLOT X1,Y1 TO X1,Y2 63 HPLOT X1 + 1,Y1 TO X1 + 1,Y2 65 RETURN 70 C1 = 0:C2 = 0:C3 = 0:C4 = 0 71 IF ITEM > 127 THEN C1 = 2:ITEM = ITEM - 128 72 IF ITEM > 63 THEN C1 = C1 + 1:ITEM = ITEM - 64 73 IF ITEM > 31 THEN C2 = 2:ITEM = ITEM - 32 74 IF ITEM > 15 THEN C2 = C2 + 1:ITEM = ITEM - 16 75 IF ITEM > 7 THEN C3 = 2:ITEM = ITEM - 8 76 IF ITEM > 3 THEN C3 = C3 + 1:ITEM = ITEM - 4 77 IF ITEM > 1 THEN C4 = 2:ITEM = ITEM - 2 78 IF ITEM > 0 THEN C4 = C4 + 1:ITEM = ITEM - 1 79 RETURN 80 HCOLOR= 6 82 FOR X = 1 TO 10: READ PLT(X): NEXT X 83 FOR Y = 1 TO 10 84 FOR X = 1 TO 10 85 HPLOT PLT(X),PLT(Y) 86 NEXT X 87 NEXT Y 89 RETURN 100 PRINT : PRINT CHR$ (4);"PR#0": HGR 105 GOSUB 80: REM PLOT CORNERS 106 GET A$ 110 GOSUB 20: REM READ WALL DATA 120 PRINT : PRINT CHR$ (4);"PR#3" 130 END 499 GOTO 2000 500 REM START 510 INPUT "INPUT AN 8 BIT VALUE:";ITEM 520 GOSUB 70 530 PRINT "THE BIT PAIRS ARE:";C1;":";C2;":";C3;":";C4 2000 PRINT "PRESS A KEY";: GET A$ 2005 GOTO 100 2100 TEXT 32000 REM CORNER POINTS DATA, X & Y 32010 DATA 14,30,46,62,78,94,110,126,142,158 32050 REM WALL SEGMENTS DATA, 9 BY 9 32060 DATA 240,204,240,192,192,195,195,195,204 32070 DATA 060,051,192,015,060,240,192,060,012 32080 DATA 051,204,060,252,060,048,000,000,012 32090 DATA 252,060,048,000,012,048,192,192,204 32100 DATA 051,000,003,000,201,048,192,192,204 32110 DATA 240,015,252,051,015,048,015,060,060 32120 DATA 060,252,000,204,192,003,003,003,060 32130 DATA 051,000,015,252,060,048,192,192,012 32140 DATA 051,003,195,003,003,003,195,195,015 ]PR#3