Bulletin

Source Code

   1 REM Y\@@\.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 
   2 FAST 
   3 RAND USR 16514
   4 POKE 16418,0
   5 PRINT AT 22,0;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
   6 FOR N=0 TO 31
   7 PRINT AT 0,N;"\;;";AT 23,N;"\!!"
   8 NEXT N
   9 FOR N=0 TO 23
  10 PRINT AT N,0;"% ";AT N,31;"% "
  11 NEXT N
  13 PRINT AT 6,0;A$;AT 10,0;A$;AT 19,0;A$;AT 15,0;A$
  14 SLOW 
 500 FOR N=1 TO 24
 510 PRINT AT 8,4;B$( TO 27);AT 17,1;C$( TO 27)
 520 LET B$=B$(2 TO LEN B$)+B$(1)
 530 LET C$=C$(LEN C$)+C$( TO LEN C$-1)
 540 NEXT N
 550 FOR N=1 TO 50
 560 PRINT AT 8,8;"MERRY CHRISTMAS";AT 17,8;"HAPPY NEW YEAR";AT 8,8;"%M%E%R%R%Y\@@%C%H%R%I%S%T%M%A%S";AT 17,8;"%H%A%P%P%Y\@@%N%E%W\@@%Y%E%A%R"
 570 NEXT N
 580 PRINT AT 2,6;"\: THE SYNCHRO-SETTE\ :";AT 3,6;"\:  BULLETIN  BOARD \ :";AT 1,6;"\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!\!!";AT 4,6;"\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;\;;"
 590 PRINT AT 7,0;A$;AT 8,0;A$;AT 9,0;A$;AT 16,0;A$;AT 17,0;A$;AT 18,0;A$;AT 21,9;"%D%E%C%E%M%B%E%R\@@%1%9%8%2"
1000 FOR N=1 TO LEN D$-1
1010 PRINT AT 8,1;D$(N TO N+29)
1015 IF INKEY$<>"" THEN PAUSE 200
1020 IF N=LEN D$-30 THEN GOTO 2000
1030 NEXT N
2000 FOR N=1 TO LEN E$-1
2010 PRINT AT 17,1;E$(N TO N+29)
2015 IF INKEY$<>"" THEN PAUSE 200
2020 IF N=LEN E$-30 THEN GOTO 1000
2030 NEXT N
9998 SAVE "BULLETI%N"
9999 GOTO 1