0 ON ERROR VDU4:REPORT:PRINT ERL:END 10 MODE 1 20 X%=50:Y%=50 25 C=3 30 VDU 5 40 REPEAT 41 GCOL0,C 50 MOVE X%,Y% 60 IF INKEY-74 PRINT CHR$255 61 GCOL 3,1:PLOT 69,X%,Y%:PLOT 69,X%, Y%:GCOL 3,1:PLOT 69,X%,Y%:PLOT 69,X%,Y% 70 IF INKEY-67 THEN X%=X%+4 80 IF INKEY-98 THEN X%=X%-4 81 IF INKEY-73 THEN Y%=Y%+4 82 IF INKEY-105 THEN Y%=Y%-4 83 A=INKEY(0)-48 84 IF A<4 AND A>-1 THEN GCOL 0,A:C=A 85 IF INKEY-82 THEN *SAVE SCR 3000 80 00 86 IF INKEY-83 THEN CLG 87 IF INKEY-87 THEN *LOAD SCR 3000 90 UNTIL0 1000 VDU 4 1100 DEFPROCc 1101 REPEAT 1110 FOR A=0 TO 128 1120 IF INKEY-A THEN PRINT A 1130 NEXT 1135 UNTIL0 1140 ENDPROC