Source Code
1000 LET X=PEEK 16396+256*PEEK 16397
\n1010 POKE 16418,0
\n1020 FOR N=1 TO 24
\n1030 PRINT S$
\n1040 NEXT N
\n1060 FOR N=0 TO 31
\n1070 PRINT AT 0,N;"\##"
\n1080 NEXT N
\n1100 FOR N=1 TO 22
\n1110 PRINT AT N,31;"\##"
\n1120 NEXT N
\n1140 FOR N=31 TO 0 STEP -1
\n1150 PRINT AT 23,N;"\##"
\n1160 NEXT N
\n1180 FOR N=22 TO 1 STEP -1
\n1190 PRINT AT N,0;"\##"
\n1200 NEXT N
\n1210 FOR N=1 TO LEN M$-2 STEP 3
\n1220 POKE X+VAL M$(N TO N+2),0
\n1230 NEXT N
\n1240 FOR N=LEN M$-2 TO 1 STEP -3
\n1250 POKE X+VAL M$(N TO N+2),128
\n1260 NEXT N
\n1270 PAUSE 200
\n1280 FOR N=0 TO 11
\n1290 PRINT AT N,0;S$;AT 23-N,0;S$
\n1300 NEXT N
\n1310 PRINT AT 0,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
\n1320 FOR N=1 TO 22
\n1330 PRINT AT N,31;"\ :";AT N,0;"\: "
\n1340 NEXT N
\n1350 PRINT AT 23,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n1400 PRINT AT 9,5;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 10,5;"\: THE BULLETIN \ :";AT 11,5;"\: BOARD FOR \ :";AT 12,5;"\: SEPTEMBER 1983 \ :";AT 13,5;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n1410 PAUSE 200
\n1420 PRINT AT 3,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 4,1;"\: ";AT 4,30;"\ :";AT 5,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n1430 PRINT AT 18,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 19,1;"\: ";AT 19,30;"\ :";AT 20,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n1500 FOR N=1 TO LEN A$-28
\n1510 PRINT AT 4,2;A$(N TO N+27)
\n1520 GOSUB 2000
\n1530 NEXT N
\n1540 FOR N=1 TO LEN B$-28
\n1550 PRINT AT 19,2;B$(N TO N+27)
\n1560 GOSUB 2500
\n1570 NEXT N
\n1580 GOTO 1500
\n2000 LET I$=INKEY$
\n2010 IF I$="" THEN RETURN
\n2020 IF I$="P" THEN PAUSE 40000
\n2030 IF I$="B" THEN GOTO 2100
\n2040 RETURN
\n2100 FOR I=N TO 28 STEP -1
\n2110 PRINT AT 4,2;A$(I TO I+27)
\n2120 IF INKEY$="F" THEN GOTO 2150
\n2130 IF INKEY$="P" THEN PAUSE 40000
\n2140 NEXT I
\n2150 LET N=I
\n2160 RETURN
\n2500 LET I$=INKEY$
\n2510 IF I$="" THEN RETURN
\n2520 IF I$="P" THEN PAUSE 40000
\n2530 IF I$="B" THEN GOTO 2600
\n2540 RETURN
\n2600 FOR I=N TO 28 STEP -1
\n2610 PRINT AT 19,2;B$(I TO I+27)
\n2620 IF INKEY$="F" THEN GOTO 2650
\n2630 IF INKEY$="P" THEN PAUSE 40000
\n2640 NEXT I
\n2650 LET N=I
\n2660 RETURN
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 1000
