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
\n1000 IF INKEY$="" THEN RETURN
\n1010 PAUSE 50
\n1020 IF INKEY$="" THEN GOTO 1020
\n1030 RETURN
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 0
