Bulletin

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
3000 LET A=0
3010 FOR N=1 TO LEN A$-28
3020 PRINT AT 5,2;A$(N TO N+27)
3030 GOSUB 5000
3040 NEXT N
3100 LET A=1
3110 FOR N=1 TO LEN B$-28
3120 PRINT AT 18,2;B$(N TO N+27)
3130 GOSUB 6000
3140 NEXT N
3200 GOTO 3000
5000 LET Q$=INKEY$
5010 IF Q$="" THEN RETURN 
5020 IF Q$="P" THEN PAUSE 40000
5040 IF Q$="B" THEN GOTO 5100
5050 RETURN 
5100 FOR I=N TO 28 STEP -1
5130 PRINT AT 5,2;A$(I TO I+27)
5140 IF INKEY$="F" THEN GOTO 5180
5150 IF INKEY$="P" THEN PAUSE 40000
5160 NEXT I
5180 LET N=I
5190 RETURN 
6000 LET Q$=INKEY$
6010 IF Q$="" THEN RETURN 
6020 IF Q$="P" THEN PAUSE 40000
6040 IF Q$="B" THEN GOTO 6100
6050 RETURN 
6100 FOR I=N TO 28 STEP -1
6130 PRINT AT 18,2;B$(I TO I+27)
6140 IF INKEY$="F" THEN GOTO 6180
6150 IF INKEY$="P" THEN PAUSE 40000
6160 NEXT I
6180 LET N=I
6190 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 10