Bulletin

Source Code

   1 REM Y\;;\.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 
   2 LET S$="% %S%Y%N%C%H%R%O%-%S%E%T%T%E% "
   3 LET T$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
   4 RAND USR 16514
   5 FOR N=1 TO 20
   6 PRINT AT 10,6;"% % % % % % % THE% % % % % % % "
   7 PRINT AT 0,0;"";
   8 RAND USR 16514
   9 PRINT AT 10,8;S$
  10 POKE 16515,128
  11 PRINT AT 0,0;"";
  12 RAND USR 16514
  13 PRINT AT 10,7;T$
  14 RAND 
  15 LET X=INT (RND*2)+1
  16 IF X=2 THEN LET X=INT (RND*28)+129
  17 IF X=1 THEN LET X=INT (RND*10)+1
  18 POKE 16515,X
  19 NEXT N
  20 POKE 16418,0
  21 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  22 PAUSE 200
  23 PRINT AT 0,0;"";
  24 CLS 
  25 POKE 16515,128
  26 RAND USR 16514
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 PRINT AT 23,0;"\:."
  29 FOR N=22 TO 1 STEP -1
  30 PRINT AT N,0;"\: "
  31 NEXT N
  32 PRINT AT 0,0;"\:'"
  33 FOR N=1 TO 30
  34 PRINT AT 0,N;"\''"
  35 NEXT N
  36 PRINT AT 0,31;"\':"
  37 FOR N=1 TO 22
  38 PRINT AT N,31;"\ :"
  39 NEXT N
  40 PRINT AT 23,31;"\.:"
  41 FOR N=30 TO 1 STEP -1
  42 PRINT AT 23,N;"\.."
  43 NEXT N
  44 PAUSE 100
  45 FOR N=21 TO 3 STEP -1
  46 PRINT AT N,6;"\@@THE SYNCHRO-SETTE\@@";AT N,6;"% % % % % % % % % % % % % % % % % % % ";AT N-1,6;" THE SYNCHRO-SETTE "
  47 NEXT N
  48 FOR N=21 TO 13 STEP -1
  49 PRINT AT N,7;"\@@BULLETIN  BOARD\@@";AT N,6;"% % % % % % % % % % % % % % % % % % % ";AT N-1,7;" BULLETIN  BOARD "
  50 NEXT N
  51 FOR N=1 TO 25
  52 PRINT AT 20,7;"\@@FOR  APRIL/1983\@@";AT 20,7;"% % % % % % % % % % % % % % % % % ";AT 20,7;" FOR  APRIL/1983 "
  53 NEXT N
  54 PRINT AT 6,1;"\:'";AT 7,1;"\: ";AT 8,1;"\:."
  55 FOR N=2 TO 29
  56 PRINT AT 6,N;"\''"
  57 NEXT N
  58 PRINT AT 6,30;"\':";AT 7,30;"\ :";AT 8,30;"\.:"
  59 FOR N=29 TO 2 STEP -1
  60 PRINT AT 8,N;"\.."
  61 NEXT N
  62 PRINT AT 15,1;"\:'";AT 16,1;"\: ";AT 17,1;"\:."
  63 FOR N=2 TO 29
  64 PRINT AT 15,N;"\''"
  65 NEXT N
  66 PRINT AT 15,30;"\':";AT 16,30;"\ :";AT 17,30;"\.:"
  67 FOR N=29 TO 2 STEP -1
  68 PRINT AT 17,N;"\.."
  69 NEXT N
 500 FOR N=1 TO LEN B$-30
 510 PRINT AT 7,2;B$(N TO N+27)
 515 GOSUB 1000
 520 NEXT N
 530 FOR N=1 TO LEN C$-30
 540 PRINT AT 16,2;C$(N TO N+27)
 545 GOSUB 1000
 550 NEXT N
 590 GOTO 500
1000 IF INKEY$="" THEN RETURN 
1010 PAUSE 50
1020 IF INKEY$="" THEN GOTO 1020
1030 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0