Appears on
Cassette to accompany the October 1982 issue of Synchro-Sette.
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 1010 IF CODE A$=114 THEN GOTO 1200 1020 IF CODE A$=115 THEN GOTO 1300 1030 IF CODE A$=121 THEN GOTO 1900 1040 IF CODE A$=113 THEN GOTO 1400 1050 IF CODE A$=225 THEN GOTO 2000 1060 IF CODE A$=112 THEN GOTO 1500 1070 IF CODE A$=118 THEN GOTO 1600 1080 IF CODE A$=23 THEN GOTO 1700 1090 IF CODE A$=19 THEN GOTO 1800 1100 PRINT AT X,Y;A$ 1110 LET Y=Y+1 1120 IF Y=32 THEN GOTO 1150 1130 GOTO 100 1150 LET Y=0 1160 LET X=X+1 1170 GOTO 100 1200 IF Y=0 AND X=0 THEN GOTO 100 1210 IF Y=0 THEN GOTO 1250 1220 LET Y=Y-1 1230 GOTO 100 1250 LET Y=31 1260 LET X=X-1 1270 GOTO 100 1300 IF Y=31 AND X=21 THEN GOTO 100 1310 IF Y=31 THEN GOTO 1350 1320 LET Y=Y+1 1330 GOTO 100 1350 LET Y=0 1360 LET X=X+1 1370 GOTO 100 1400 IF X=21 THEN GOTO 100 1410 LET X=X+1 1420 GOTO 100 1500 IF X=0 THEN GOTO 100 1510 LET X=X-1 1520 GOTO 100 1530 GOTO 100 1600 IF X=21 THEN GOTO 100 1610 LET Y=0 1620 LET X=X+1 1630 GOTO 100 1640 NEXT N 1650 SLOW 1660 GOTO 100 1700 LET X=0 1710 LET Y=0 1720 GOTO 100 1800 LET X=21 1810 LET Y=31 1820 GOTO 100 1900 CLS 1910 GOTO 100 2000 INPUT B$ 2010 SAVE B$ 2020 GOTO 100