Synchro-Sette April 1983 Menu

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

Content

Appears On

Cassette to accompany the April 1983 issue of Synchro-Sette.

Related Products

Related Articles

Related Content

Image Gallery

Source Code

   5 POKE 16418,0
  10 LET A$="LOGARITHM%S,GRAFI%T,GUESS IT,PAINT BRUS%H,MEASUREMENT CONVERSIO%N,TORPED%O,BABY SYNTEX%T,BULLETI%N,"
 100 PRINT AT 2,3;"% %A%P%R%I%L%/%8%3% %L%O%A%D%E%R% %P%R%O%G%R%A%M% "
 110 LET A=1
 200 FOR N=1 TO 8
 210 FOR I=A TO LEN A$
 220 IF A$(I)="," THEN GOTO 300
 230 NEXT I
 240 NEXT N
 250 GOTO 400
 300 PRINT AT 3+2*N,5;A$(A TO I-1);TAB 29;"-";N;AT 3+2*N,1;"2K"
 310 IF N>4 THEN PRINT AT 3+2*N,1;"16K"
 320 LET A=I+1
 330 GOTO 240
 400 PRINT AT 22,11;"ENTER ONE";AT 22,11;"%E%N%T%E%R% %O%N%E"
 410 LET B$=INKEY$
 420 IF CODE B$=37 THEN LOAD ""
 430 IF CODE B$<29 OR CODE B$>36 THEN GOTO 400
 440 LET A=1
 450 LET B=1
 500 FOR N=A TO LEN A$
 510 IF A$(N)="," THEN GOSUB 600
 520 NEXT N
 530 LET B=B+1
 540 LET A=N+1
 550 GOTO 500
 600 IF B=VAL B$ THEN LOAD A$(A TO N-1)
 610 GOTO 530
\n9998 SAVE "LOAD4/8%3"
\n9999 GOTO 1

People

No people associated with this content.

Scroll to Top