Source Code
10 LET P=11
20 LET Q=14
30 PRINT AT 11,14;"WAIT"
40 PAUSE 20
100 CLS
110 GOSUB 9000
120 LET A=1
130 FOR N=1 TO 89
135 LET B=A+1
140 IF B=23 THEN LET B=1
150 LET C=A-1
160 IF C=0 THEN LET C=22
170 PRINT AT USR X,0;X$(C)
180 LET A=C
190 IF N=2 THEN SLOW
200 IF N=23 THEN LET X$(22,10 TO 22)="%S%Y%N%C%H%R%O%-%S%E%T%T%E"
210 IF N=45 THEN LET X$(22,10 TO 22)="% % %P%R%E%S%E%N%T%S% % % "
215 IF N=67 THEN LET X$(22,10 TO 22)="% % % % %*% % % % % % % % "
220 NEXT N
230 SCROLL
240 PRINT "% % %*% % %*% %T%H%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D% %*% % % % % "
250 SCROLL
260 PRINT "% % % % % %*% % % % % %M%A%R%C%H% %1%9%8%4% % % % % %*% % % % % "
280 FOR N=1 TO 10
290 SCROLL
300 PRINT X$(N)
310 NEXT N
320 FOR N=13 TO 50
330 UNPLOT N,19
340 UNPLOT N,24
350 PLOT N,18
360 PLOT N,25
370 NEXT N
380 FOR N=19 TO 24
390 UNPLOT 12,N
400 UNPLOT 51,N
430 NEXT N
500 PRINT AT 3,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 4,1;"\: ";AT 4,30;"\ :";AT 5,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
510 PRINT AT 16,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 17,1;"\: ";AT 17,30;"\ :";AT 18,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n4000 FOR N=1 TO LEN A$-28
\n4010 PRINT AT 4,2;A$(N TO N+27)
\n4020 GOSUB 6000
\n4030 NEXT N
\n4040 GOTO 5000
\n4500 FOR I=N TO 1 STEP -1
\n4510 PRINT AT 4,2;A$(I TO I+27)
\n4520 GOSUB 6000
\n4530 NEXT I
\n4540 GOTO 4000
\n5000 FOR N=1 TO LEN B$-28
\n5010 PRINT AT 17,2;B$(N TO N+27)
\n5020 GOSUB 7000
\n5030 NEXT N
\n5040 GOTO 4000
\n5500 FOR I=N TO 1 STEP -1
\n5510 PRINT AT 17,2;B$(I TO I+27)
\n5520 GOSUB 7000
\n5530 NEXT I
\n5540 GOTO 5000
\n6000 IF INKEY$="P" THEN PAUSE 40000
\n6010 IF INKEY$="B" THEN GOTO 4500
\n6020 IF INKEY$="F" THEN GOTO 6100
\n6090 RETURN
\n6100 LET N=I
\n6110 GOTO 4030
\n7000 IF INKEY$="P" THEN PAUSE 40000
\n7010 IF INKEY$="B" THEN GOTO 5500
\n7020 IF INKEY$="F" THEN GOTO 7100
\n7090 RETURN
\n7100 LET N=I
\n7110 GOTO 5030
\n7500 FOR I=N TO 1 STEP -1
\n7520 PRINT AT 17,2;B$(I TO I+27)
\n8999 STOP
\n9000 FAST
\n9010 LET X=30000
\n9020 LET Z$="01D6022A0C4009545D01B5022A0C4009EDB8C9"
\n9030 FOR N=1 TO LEN Z$-1 STEP 2
\n9040 POKE X,16*CODE Z$(N)+CODE Z$(N+1)-476
\n9050 LET X=X+1
\n9060 NEXT N
\n9070 LET X=30000
\n9080 DIM X$(23,32)
\n9090 FOR N=1 TO 23
\n9100 FOR I=1 TO 32
\n9110 LET J=INT (RND*10)
\n9120 LET X$(N,I)="% "
\n9130 IF J=5 THEN LET X$(N,I)="%*"
\n9140 NEXT I
\n9150 IF N<>23 THEN PRINT X$(N)
\n9160 NEXT N
\n9170 LET XX=INT (RND*26)+4
\n9190 RETURN
\n9997 STOP
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 1
