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 8000
   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