Baby Syntext

Date: April 1983
Type: Program
Platform(s): TS 1000

Appears on

Cassette to accompany the April 1983 issue of Synchro-Sette.

Source Code

  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.

Scroll to Top