Appears on
Cassette to accompany the June 1983 issue of Synchro-Sette.
Source Code
10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9 20 FAST 30 LET X=PEEK 16404+256*PEEK 16405-794 35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % " 40 DIM Z$(24,32) 50 FOR N=1 TO 22 60 LET Z$(N)=Q$ 65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##" 70 NEXT N 80 SLOW 180 LET D=0 190 LET A=1 200 LET B=A+1 205 GOSUB 300 210 IF B=23 THEN LET B=1 220 LET C=A-1 230 IF C=0 THEN LET C=22 240 PRINT AT USR 16514,0;Z$(C) 250 LET A=C 260 GOTO 200 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % " 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D" 320 LET D=D+1 330 IF D>65 THEN GOTO 350 340 RETURN 350 FOR N=1 TO 20 360 SCROLL 370 NEXT N 380 PRINT AT 2,0;""; 390 FOR N=1 TO 20 400 PRINT Q$ 410 NEXT N 420 LET R$="% "+Z$(1) 430 FOR N=0 TO 6 440 PRINT AT 1,0+N;R$ 450 NEXT N 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% " 470 FOR N=1 TO 15 480 PRINT AT 1,25;R$ 490 LET R$="% "+R$ 500 NEXT N 510 FOR N=1 TO 10 520 PRINT AT USR 16514,0;Q$ 530 NEXT N 540 POKE 16418,0 550 PRINT AT 22,0;Q$ 560 PRINT AT 23,0;Q$ 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' " 580 FOR N=1 TO 30 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.." 600 NEXT N 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: " 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3" 3000 FOR N=1 TO LEN A$-28 3010 PRINT AT 3,2;A$(N TO N+27) 3020 IF INKEY$<>"" THEN GOSUB 4000 3030 NEXT N 3040 FOR N=1 TO LEN B$-28 3050 PRINT AT 20,2;B$(N TO N+27) 3060 IF INKEY$<>"" THEN GOSUB 4000 3070 NEXT N 3080 GOTO 3000 4000 PAUSE 40000 4010 RETURN 9998 SAVE "BULLETI%N" 9999 GOTO 0