Bulletin

Source Code

1000 LET X=PEEK 16396+256*PEEK 16397
1010 POKE 16418,0
1020 FOR N=1 TO 24
1030 PRINT S$
1040 NEXT N
1060 FOR N=0 TO 31
1070 PRINT AT 0,N;"\##"
1080 NEXT N
1100 FOR N=1 TO 22
1110 PRINT AT N,31;"\##"
1120 NEXT N
1140 FOR N=31 TO 0 STEP -1
1150 PRINT AT 23,N;"\##"
1160 NEXT N
1180 FOR N=22 TO 1 STEP -1
1190 PRINT AT N,0;"\##"
1200 NEXT N
1210 FOR N=1 TO LEN M$-2 STEP 3
1220 POKE X+VAL M$(N TO N+2),0
1230 NEXT N
1240 FOR N=LEN M$-2 TO 1 STEP -3
1250 POKE X+VAL M$(N TO N+2),128
1260 NEXT N
1270 PAUSE 200
1280 FOR N=0 TO 11
1290 PRINT AT N,0;S$;AT 23-N,0;S$
1300 NEXT N
1310 PRINT AT 0,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
1320 FOR N=1 TO 22
1330 PRINT AT N,31;"\ :";AT N,0;"\: "
1340 NEXT N
1350 PRINT AT 23,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
1400 PRINT AT 9,5;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 10,5;"\:    THE  BULLETIN   \ :";AT 11,5;"\:     BOARD   FOR    \ :";AT 12,5;"\:   SEPTEMBER  1983  \ :";AT 13,5;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
1410 PAUSE 200
1420 PRINT AT 3,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 4,1;"\: ";AT 4,30;"\ :";AT 5,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
1430 PRINT AT 18,1;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 19,1;"\: ";AT 19,30;"\ :";AT 20,1;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
1500 FOR N=1 TO LEN A$-28
1510 PRINT AT 4,2;A$(N TO N+27)
1520 GOSUB 2000
1530 NEXT N
1540 FOR N=1 TO LEN B$-28
1550 PRINT AT 19,2;B$(N TO N+27)
1560 GOSUB 2500
1570 NEXT N
1580 GOTO 1500
2000 LET I$=INKEY$
2010 IF I$="" THEN RETURN 
2020 IF I$="P" THEN PAUSE 40000
2030 IF I$="B" THEN GOTO 2100
2040 RETURN 
2100 FOR I=N TO 28 STEP -1
2110 PRINT AT 4,2;A$(I TO I+27)
2120 IF INKEY$="F" THEN GOTO 2150
2130 IF INKEY$="P" THEN PAUSE 40000
2140 NEXT I
2150 LET N=I
2160 RETURN 
2500 LET I$=INKEY$
2510 IF I$="" THEN RETURN 
2520 IF I$="P" THEN PAUSE 40000
2530 IF I$="B" THEN GOTO 2600
2540 RETURN 
2600 FOR I=N TO 28 STEP -1
2610 PRINT AT 19,2;B$(I TO I+27)
2620 IF INKEY$="F" THEN GOTO 2650
2630 IF INKEY$="P" THEN PAUSE 40000
2640 NEXT I
2650 LET N=I
2660 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 1000