Source Code
10 LET X=0
20 LET Y=0
100 LET A$=INKEY$
105 PRINT AT X,Y;"\ ."
106 PRINT AT X,Y;" "
110 IF A$="" THEN GOTO 100
\n1010 IF CODE A$=114 THEN GOTO 1200
\n1020 IF CODE A$=115 THEN GOTO 1300
\n1030 IF CODE A$=121 THEN GOTO 1900
\n1040 IF CODE A$=113 THEN GOTO 1400
\n1050 IF CODE A$=225 THEN GOTO 2000
\n1060 IF CODE A$=112 THEN GOTO 1500
\n1070 IF CODE A$=118 THEN GOTO 1600
\n1080 IF CODE A$=23 THEN GOTO 1700
\n1090 IF CODE A$=19 THEN GOTO 1800
\n1100 PRINT AT X,Y;A$
\n1110 LET Y=Y+1
\n1120 IF Y=32 THEN GOTO 1150
\n1130 GOTO 100
\n1150 LET Y=0
\n1160 LET X=X+1
\n1170 GOTO 100
\n1200 IF Y=0 AND X=0 THEN GOTO 100
\n1210 IF Y=0 THEN GOTO 1250
\n1220 LET Y=Y-1
\n1230 GOTO 100
\n1250 LET Y=31
\n1260 LET X=X-1
\n1270 GOTO 100
\n1300 IF Y=31 AND X=21 THEN GOTO 100
\n1310 IF Y=31 THEN GOTO 1350
\n1320 LET Y=Y+1
\n1330 GOTO 100
\n1350 LET Y=0
\n1360 LET X=X+1
\n1370 GOTO 100
\n1400 IF X=21 THEN GOTO 100
\n1410 LET X=X+1
\n1420 GOTO 100
\n1500 IF X=0 THEN GOTO 100
\n1510 LET X=X-1
\n1520 GOTO 100
\n1530 GOTO 100
\n1600 IF X=21 THEN GOTO 100
\n1610 LET Y=0
\n1620 LET X=X+1
\n1630 GOTO 100
\n1640 NEXT N
\n1650 SLOW
\n1660 GOTO 100
\n1700 LET X=0
\n1710 LET Y=0
\n1720 GOTO 100
\n1800 LET X=21
\n1810 LET Y=31
\n1820 GOTO 100
\n1900 CLS
\n1910 GOTO 100
\n2000 INPUT B$
\n2010 SAVE B$
\n2020 GOTO 100
