Bulletin

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;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
4000 FOR N=1 TO LEN A$-28
4010 PRINT AT 4,2;A$(N TO N+27)
4020 GOSUB 6000
4030 NEXT N
4040 GOTO 5000
4500 FOR I=N TO 1 STEP -1
4510 PRINT AT 4,2;A$(I TO I+27)
4520 GOSUB 6000
4530 NEXT I
4540 GOTO 4000
5000 FOR N=1 TO LEN B$-28
5010 PRINT AT 17,2;B$(N TO N+27)
5020 GOSUB 7000
5030 NEXT N
5040 GOTO 4000
5500 FOR I=N TO 1 STEP -1
5510 PRINT AT 17,2;B$(I TO I+27)
5520 GOSUB 7000
5530 NEXT I
5540 GOTO 5000
6000 IF INKEY$="P" THEN PAUSE 40000
6010 IF INKEY$="B" THEN GOTO 4500
6020 IF INKEY$="F" THEN GOTO 6100
6090 RETURN 
6100 LET N=I
6110 GOTO 4030
7000 IF INKEY$="P" THEN PAUSE 40000
7010 IF INKEY$="B" THEN GOTO 5500
7020 IF INKEY$="F" THEN GOTO 7100
7090 RETURN 
7100 LET N=I
7110 GOTO 5030
7500 FOR I=N TO 1 STEP -1
7520 PRINT AT 17,2;B$(I TO I+27)
8999 STOP 
9000 FAST 
9010 LET X=30000
9020 LET Z$="01D6022A0C4009545D01B5022A0C4009EDB8C9"
9030 FOR N=1 TO LEN Z$-1 STEP 2
9040 POKE X,16*CODE Z$(N)+CODE Z$(N+1)-476
9050 LET X=X+1
9060 NEXT N
9070 LET X=30000
9080 DIM X$(23,32)
9090 FOR N=1 TO 23
9100 FOR I=1 TO 32
9110 LET J=INT (RND*10)
9120 LET X$(N,I)="% "
9130 IF J=5 THEN LET X$(N,I)="%*"
9140 NEXT I
9150 IF N<>23 THEN PRINT X$(N)
9160 NEXT N
9170 LET XX=INT (RND*26)+4
9190 RETURN 
9997 STOP 
9998 SAVE "BULLETI%N"
9999 GOTO 1