Appears on
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.
Source Code
10 SLOW 20 LET C$="IF YOU WANT TO PRINT A NEWS BULLETIN THEN READ ON . " 30 LET B$=C$ 40 GOSUB 1060 50 CLS 60 LET D$="LENGTHEN THIS STRING FOR MORE MESSAGE. 600 CHARACTERS MAY BE USED.USE AT LEAST 33 CHARACTERS. THE FINAL CHARACTER MUST BE A SPACE. " 70 LET B$=D$ 80 GOSUB 1060 90 CLS 1000 GOTO 20 1060 FOR F=0 TO 30 1070 PRINT AT 12,31-F;B$(1 TO F+1) 1080 FOR D=1 TO 3 1090 NEXT D 1100 NEXT F 1110 FOR E=1 TO LEN B$-33 1120 PRINT AT 12,0;B$(E+1 TO E+32) 1130 FOR D=1 TO 3 1140 NEXT D 1150 NEXT E 1160 FOR C=0 TO 31 1170 PRINT AT 12,0;B$(C+LEN B$-31 TO LEN B$) 1180 FOR D=1 TO 3 1190 NEXT D 1200 NEXT C 1210 RETURN 1220 CLEAR 1230 SAVE "1026%7" 1240 RUN