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