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
\n1000 GOTO 20
\n1060 FOR F=0 TO 30
\n1070 PRINT AT 12,31-F;B$(1 TO F+1)
\n1080 FOR D=1 TO 3
\n1090 NEXT D
\n1100 NEXT F
\n1110 FOR E=1 TO LEN B$-33
\n1120 PRINT AT 12,0;B$(E+1 TO E+32)
\n1130 FOR D=1 TO 3
\n1140 NEXT D
\n1150 NEXT E
\n1160 FOR C=0 TO 31
\n1170 PRINT AT 12,0;B$(C+LEN B$-31 TO LEN B$)
\n1180 FOR D=1 TO 3
\n1190 NEXT D
\n1200 NEXT C
\n1210 RETURN
\n1220 CLEAR
\n1230 SAVE "1026%7"
\n1240 RUN
