Bulletin

Date: June 1983
Type: Program
Platform(s): TS 1000

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

People

No people associated with this content.

Scroll to Top