100*SET 110CLEAR :CLS 120DIM P(7,1) 130LOCATE 9,0:PRINT "GRAPHIC»¸¾²Â-Ù" 140LOCATE 14,1:PRINT "¶Ý²ÊÞÝ" 150LINE (5,5)-(14,14),X,B:GOSUB *DRAW 160*MAIN 170CALL 48381 180K= ASC INKEY$ 190IF K=2 GOTO *SET 200GOSUB *DRAW 210SWITCH K 220CASE 4:IF Y>0 LET Y=Y-1 230CASE 5:IF Y<7 LET Y=Y+1 240CASE 15:IF X>0 LET X=X-1 250CASE 14:IF X<7 LET X=X+1 260CASE 32:GOSUB *DOT 270CASE 13:GOSUB *DP 280ENDSWITCH 290GOSUB *DRAW 300GOTO *MAIN 310*DRAW 320PSET (X+6,4),X 330PSET (4,Y+6),X 340RETURN 350*DOT 360YY=-(Y>3) 370IF POINT (X+6,Y+6) LET P(X,YY)=P(X,YY)-2^(Y+(Y>3)*4) ELSE P(X,YY)=P(X,YY)+2^(Y+(Y>3)*4) 380PSET (X+6,Y+6),X 390RETURN 400*DP 410LOCATE 4,4 420FOR I=0 TO 7 430FOR YY=1 TO 0 STEP -1 440PRINT HEX$ P(I,YY); 450NEXT :NEXT :RETURN