Source Code
10 LET Z$="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
20 POKE 16418,0
30 FOR N=1 TO 24
40 PRINT Z$
50 LET Z$=Z$(32)+Z$( TO 31)
60 NEXT N
70 LET Y$="\@@\##\@@\##\@@SYNCHRO-SETTE PRESENTS\##\@@\##\@@\##"
80 LET X$="\@@\##\@@\##\@@%S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S\##\@@\##\@@\##"
90 FOR N=31 TO 0 STEP -1
100 PRINT AT 12,N;Y$( TO 32-N)
110 NEXT N
120 FOR N=1 TO 20
130 PRINT AT 12,0;X$;AT 12,0;Y$
140 NEXT N
150 POKE 16418,2
160 FOR N=1 TO 13
170 SCROLL
180 PRINT Z$
190 LET Z$=Z$(32)+Z$( TO 31)
200 NEXT N
210 LET W$="\@@\##\@@\##\@@\##\: THE BULLETIN BOARD\ :\@@\##\@@\##\@@\##"
220 LET V$="\##\@@\##\@@\##\@@\: FOR NOVEMBER 1983\ :\##\@@\##\@@\##\@@"
230 LET Y$="\##\@@\##\@@\##\@@\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\##\@@\##\@@\##\@@"
240 LET U$="\@@\##\@@\##\@@\##\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:\@@\##\@@\##\@@\##"
250 SCROLL
260 PRINT Y$
270 SCROLL
280 PRINT W$
290 SCROLL
300 PRINT V$
310 SCROLL
320 PRINT U$
330 FOR N=1 TO 8
340 SCROLL
350 PRINT Z$
360 LET Z$=Z$(32)+Z$( TO 31)
370 NEXT N
390 POKE 16418,0
395 PRINT AT 22,0;Z$
400 PRINT AT 0,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
410 FOR N=1 TO 22
420 PRINT AT N,31;"\ :"
430 NEXT N
440 LET W$="\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
450 FOR N=31 TO 0 STEP -1
460 PRINT AT 23,N;W$(N+1)
470 NEXT N
480 FOR N=22 TO 1 STEP -1
490 PRINT AT N,0;"\: "
500 NEXT N
510 PRINT AT 4,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 5,1;"\: ";AT 5,30;"\ :";AT 6,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 17,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 18,1;"\: ";AT 18,30;"\ :";AT 19,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
520 FOR N=1 TO 20
530 PRINT AT 5,2;Z$( TO 28);AT 18,2;Z$( TO 28)
540 LET Z$=Z$(32)+Z$( TO 31)
550 NEXT N
\n3000 LET A=0
\n3010 FOR N=1 TO LEN A$-28
\n3020 PRINT AT 5,2;A$(N TO N+27)
\n3030 GOSUB 5000
\n3040 NEXT N
\n3100 LET A=1
\n3110 FOR N=1 TO LEN B$-28
\n3120 PRINT AT 18,2;B$(N TO N+27)
\n3130 GOSUB 6000
\n3140 NEXT N
\n3200 GOTO 3000
\n5000 LET Q$=INKEY$
\n5010 IF Q$="" THEN RETURN
\n5020 IF Q$="P" THEN PAUSE 40000
\n5040 IF Q$="B" THEN GOTO 5100
\n5050 RETURN
\n5100 FOR I=N TO 28 STEP -1
\n5130 PRINT AT 5,2;A$(I TO I+27)
\n5140 IF INKEY$="F" THEN GOTO 5180
\n5150 IF INKEY$="P" THEN PAUSE 40000
\n5160 NEXT I
\n5180 LET N=I
\n5190 RETURN
\n6000 LET Q$=INKEY$
\n6010 IF Q$="" THEN RETURN
\n6020 IF Q$="P" THEN PAUSE 40000
\n6040 IF Q$="B" THEN GOTO 6100
\n6050 RETURN
\n6100 FOR I=N TO 28 STEP -1
\n6130 PRINT AT 18,2;B$(I TO I+27)
\n6140 IF INKEY$="F" THEN GOTO 6180
\n6150 IF INKEY$="P" THEN PAUSE 40000
\n6160 NEXT I
\n6180 LET N=I
\n6190 RETURN
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 10
