Baby Syntext
10 DIM A$(2880)
20 LET X=0
30 LET Y=0
40 LET A=1
50 LET B=1
60 DIM D$(32)
70 GOTO 300
100 SLOW
102 GOSUB 5000
103 FAST
105 IF CODE B$=19 THEN GOTO 1800
110 IF CODE B$=115 THEN GOTO 1000
115 IF CODE B$=221 THEN GOTO 1900
120 IF CODE B$=114 THEN GOTO 1100
125 IF CODE B$=216 THEN GOTO 3000
130 IF CODE B$=16 THEN GOTO 1200
135 IF CODE B$=225 THEN GOTO 3500
140 IF CODE B$=228 THEN GOTO 1300
150 IF CODE B$=23 THEN GOTO 20
160 IF CODE B$=113 THEN GOTO 1400
170 IF CODE B$=112 THEN GOTO 1500
180 IF CODE B$=118 THEN GOTO 1600
190 IF CODE B$=220 THEN GOTO 1700
191 IF CODE B$=218 THEN LET B$="\ '"
200 LET A$(B)=B$
210 LET B=B+1
220 LET Y=Y+1
230 IF Y>31 THEN GOSUB 6000
300 PRINT AT 0,0;A$(A TO A+703)
999 GOTO 100
1000 LET B$=A$(B)
1010 IF X=21 AND Y=31 THEN GOTO 1030
1020 GOTO 200
1030 LET Y=-1
1040 LET A=A+32
1050 LET B$=A$(B)
1060 GOTO 200
1100 IF B=1 THEN GOTO 100
1105 LET B$=A$(B)
1110 LET B=B-1
1120 LET Y=Y-1
1130 IF Y<0 THEN GOTO 1150
1140 GOTO 300
1150 LET Y=31
1160 LET X=X-1
1170 IF X<0 THEN GOTO 1190
1180 GOTO 300
1190 LET X=0
1192 IF A<32 THEN GOTO 300
1194 LET A=A-32
1199 GOTO 300
1200 LET A$=A$( TO B-1)+" "+A$(B TO 2879)
1210 GOTO 300
1300 LET A$=A$( TO B-1)+A$(B+1 TO 2880)+" "
1310 GOTO 300
1400 LET X=X+1
1410 LET B=B+32
1420 IF X=22 THEN GOTO 1440
1430 GOTO 300
1440 LET A=A+32
1450 LET X=21
1460 GOTO 300
1500 IF B<33 THEN GOTO 300
1510 LET B=B-32
1520 IF X=0 THEN GOTO 1550
1530 LET X=X-1
1540 GOTO 300
1550 LET A=A-32
1560 GOTO 300
1600 LET B=B+32-Y
1610 LET X=X+1
1620 LET Y=0
1630 GOTO 1420
1700 LET B=B+8
1710 LET Y=Y+8
1720 IF Y>31 THEN GOTO 1740
1730 GOTO 300
1740 LET Y=Y-32
1750 LET X=X+1
1760 GOTO 1420
1800 LET B=A+703
1810 LET X=21
1820 LET Y=31
1830 GOTO 300
1900 LET A$(B TO B+31-Y)=D$(Y+1 TO 32)
1910 GOTO 300
3000 CLS
3005 PRINT " HELP MENU"
3010 PRINT ,,"SHIFT <5>","CURSOR LEFT"
3015 PRINT "SHIFT <6>","CURSOR DOWN"
3020 PRINT "SHIFT <7>","CURSOR UP"
3025 PRINT "SHIFT <8>","CURSOR RIGHT"
3030 PRINT "SHIFT <B>","BEGINNING TEXT"
3035 PRINT "SHIFT <N>","END OF SCREEN"
3040 PRINT "SHIFT <Y>","RIGHT 8 POS."
3045 PRINT "SHIFT <T>","CLEAR END LINE"
3050 PRINT "SHIFT <I>","INSERT BLANK"
3055 PRINT "SHIFT <D>","DELETE R. CHAR."
3060 PRINT "SHIFT <H>","HELP MENU"
3065 PRINT "SHIFT <S>","SAVE ON TAPE"
3070 PRINT "ENTER","CARR. RET."
3080 PRINT ,,"IF PROGRAM BREAKS, <GOTO 20> FOR BEGINNING OF TEXT. <GOTO 300> FOR LAST CURSOR POSITION. DO NOT PRESS THE <BREAK> KEY FORSPACE BETWEEN CHARACTERS."
3097 INPUT Z$
3098 CLS
3099 GOTO 300
3500 CLS
3510 PRINT ,,"SET UP RECORDER AND ENTER NAME OF FILE. FILE WILL BE SAVED WHEN<ENTER KEY IS PRESSED."
3520 SLOW
3530 INPUT Y$
3540 SAVE Y$
3550 FAST
3560 CLS
3570 GOTO 300
5000 LET B$=INKEY$
5010 PRINT AT X,Y;"\. ";AT X,Y;A$(B)
5020 IF B>2816 THEN PRINT AT 21,0;"% %N%O% %M%O%R%E% %T%E%X%T% %C%A%N% %B%E% %E%N%T%E%R%E%D% "
5030 IF B$="" THEN GOTO 5000
5040 RETURN
6000 LET X=X+1
6010 LET Y=0
6020 IF X=22 THEN GOTO 6040
6030 RETURN
6040 LET X=21
6050 LET A=A+32
6060 RETURN
7000 FAST
7010 CLS
7020 PRINT A$(A TO A+703)
7030 SLOW
7040 RETURN
9998 SAVE "SYNTEX%T"
9999 RUN
People
No people associated with this content.