Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 FAST
100 RAND USR 16514
140 GOSUB 1000
150 FOR I=1 TO G
160 SCROLL
170 PRINT Z$
180 NEXT I
200 FOR K=1 TO LEN A$
210 LET C=CODE A$(K)
220 IF C<128 THEN GOTO 250
230 LET M$=CHR$ (C-128)
240 LET C=0
250 FOR L=0 TO 7
260 LET P=PEEK (7680+C*8+L)
270 LET V=128
280 FOR J=0 TO 7
290 IF P<V THEN GOTO 320
300 UNPLOT 8*(K-1)+J,10-L
305 GOSUB 2000
310 LET P=P-V
320 LET V=V/2
330 NEXT J
340 NEXT L
350 NEXT K
360 IF N=LEN B$ THEN GOTO 380
370 GOTO 140
380 REM SAVE "BULLETIN"
400 POKE 16418,0
410 PRINT AT 22,0;Z$;Z$
420 SLOW
425 PAUSE 200
426 SAVE "BULLETI%N"
430 PAUSE 200
440 PRINT AT 0,0;"";
450 FOR N=4 TO 19
460 FOR M=0 TO 30
470 PRINT AT N,M;"% %."
480 NEXT M
490 PRINT AT N,M;"% "
495 IF N=11 THEN LET N=N+5
500 NEXT N
510 FAST
520 CLS
525 SLOW
530 FOR N=1 TO 20
540 PRINT AT 10,5;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 11,5;"\: THE SYNCHRO-SETTE \ :";AT 12,5;"\: BULLETIN BOARD \ :";AT 13,5;"\: FOR FEBRUARY/1983 \ :";AT 14,5;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
550 PRINT AT 10,5;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 11,5;"\: %T%H%E %S%Y%N%C%H%R%O%-%S%E%T%T%E \ :";AT 12,5;"\: %B%U%L%L%E%T%I%N %B%O%A%R%D \ :";AT 13,5;"\: %F%O%R %F%E%B%R%U%A%R%Y %1%9%8%3 \ :";AT 14,5;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
560 NEXT N
570 FAST
580 CLS
590 RAND USR 16514
595 POKE 16418,0
600 PRINT AT 22,0;Z$;Z$
610 SLOW
620 FOR N=1 TO 62
630 UNPLOT N,33
640 UNPLOT N,28
650 UNPLOT N,13
660 UNPLOT N,8
670 NEXT N
673 FOR N=5 TO 17
674 IF N=8 THEN LET N=N+7
675 PRINT AT N,0;"\: ";AT N,31;"\ :"
676 NEXT N
680 PRINT AT 10,6;" THE SYNCHRO-SETTE ";AT 11,6;" BULLETIN BOARD ";AT 12,6;" FEBRUARY 1983 "
900 FOR N=1 TO LEN Q$
905 PRINT AT 6,2;Q$(N TO N+27)
907 IF INKEY$="P" THEN GOSUB 3000
910 IF N=LEN Q$-30 THEN GOTO 950
915 NEXT N
950 FOR N=1 TO LEN P$
955 PRINT AT 16,2;P$(N TO N+27)
960 IF INKEY$="P" THEN GOSUB 3000
965 IF N=LEN P$-30 THEN GOTO 900
970 NEXT N
\n1000 FOR N=S TO LEN B$
\n1010 IF B$(N)=" " THEN GOTO 1050
\n1020 NEXT N
\n1030 LET A$=B$(S TO LEN B$)
\n1040 GOTO 140
\n1050 LET A$=B$(S TO N-1)
\n1060 LET S=N+1
\n1070 RETURN
\n2000 IF N<LEN B$-1 THEN LET G=4
\n2010 IF N>=LEN B$-1 THEN LET S=1
\n2020 IF N>=LEN B$-1 THEN LET G=21
\n2040 RETURN
\n3000 LET F$=INKEY$
\n3010 IF F$="R" THEN RETURN
\n3020 GOTO 3000
