Mini-Pro

Developer(s): Gene G. Buza
Date: October 1982
Type: Program
Platform(s): TS 1000

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
Scroll to Top