Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » tables
tables
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 | 
| Filename: | tables | 
| Read OK: | ✔ | 
| File size: | 08BD bytes | 
| Load address: | 1001 | 
| Exec address: | 0000 | 
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk52a2_c16_progs.d64 » tables
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04a_c16_c60_computer_tape_1.wav » tables
File contents
    10 SCNCLR
    20 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right>LEVEL 1 - 2,3 AND 10 X TABLES"
    30 PRINT"<cursor right><cursor right>LEVEL 2 - 4,5 AND 11 X TABLES"
    40 PRINT"<cursor right><cursor right>LEVEL 3 - 6 AND 7 X TABLES"
    50 PRINT"<cursor right><cursor right>LEVEL 4 - 8,9 AND 12 X TABLES"
    60 PRINT:PRINT"  TYPE E TO END"
    70 PRINT:PRINT:INPUT"  1,2,3 OR 4";A$
    80 IF A$="1" THEN GOTO 140
    90 IF A$="2" THEN GOTO 410
   100 IF A$="3" THEN GOTO 680
   110 IF A$="4" THEN GOTO 940
   120 IF A$="E" THEN SCNCLR:END
   130 RUN
   140 B=0
   150 C=1
   160 FOR A=1 TO 10
   170 SCNCLR
   180 PRINT:PRINT:PRINT"   ";A;"<cursor left>)"
   190 D=INT(RND(1)*3)+2
   200 IF D=4 THEN D=10
   210 E=INT(RND(1)*11)+2
   220 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";E;" X ";D;" =";
   230 INPUT F
   240 IF F=E*D THEN 270
   250 C=2
   260 GOTO 350
   270 IF C=1 THEN B=B+1
   280 C=1
   290 PRINT"<cursor down><cursor down><cursor down>   CORRECT"
   300 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   310 GETKEY Z$
   320 IF Z$<>" " THEN 310
   330 IF A<10 THEN NEXT A
   340 GOTO 1210
   350 PRINT"<cursor down><cursor down><cursor down> WRONG"
   360 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   370 GETKEY Y$
   380 IF Y$<>" " THEN 370
   390 PRINT"<clr><cursor down><cursor down>   ";A;"<cursor left>)"
   400 GOTO 220
   410 B=0
   420 C=1
   430 FOR A=1 TO 10
   440 SCNCLR
   450 PRINT:PRINT:PRINT"   ";A;"<cursor left>)"
   460 D=INT(RND(1)*3)+4
   470 IF D=6 THEN D=11
   480 E=INT(RND(1)*11)+2
   490 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";E;" X ";D;" =";
   500 INPUT F
   510 IF F=E*D THEN 540
   520 C=2
   530 GOTO 620
   540 IF C=1 THEN B=B+1
   550 C=1
   560 PRINT"<cursor down><cursor down><cursor down>   CORRECT"
   570 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   580 GETKEY Z$
   590 IF Z$<>" " THEN 580
   600 IF A<10 THEN NEXT A
   610 GOTO 1210
   620 PRINT"<cursor down><cursor down><cursor down> WRONG"
   630 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   640 GETKEY Y$
   650 IF Y$<>" " THEN 640
   660 PRINT"<clr><cursor down><cursor down>   ";A;"<cursor left>)"
   670 GOTO 490
   680 B=0
   690 C=1
   700 FOR A=1 TO 10
   710 SCNCLR
   720 PRINT:PRINT:PRINT"   ";A;"<cursor left>)"
   730 D=INT(RND(1)*2)+6
   740 E=INT(RND(1)*11)+2
   750 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";E;" X ";D;" =";
   760 INPUT F
   770 IF F=E*D THEN 800
   780 C=2
   790 GOTO 880
   800 IF C=1 THEN B=B+1
   810 C=1
   820 PRINT"<cursor down><cursor down><cursor down>   CORRECT"
   830 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   840 GETKEY Z$
   850 IF Z$<>" " THEN 840
   860 IF A<10 THEN NEXT A
   870 GOTO 1210
   880 PRINT"<cursor down><cursor down><cursor down> WRONG"
   890 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
   900 GETKEY Y$
   910 IF Y$<>" " THEN 900
   920 PRINT"<clr><cursor down><cursor down>   ";A;"<cursor left>)"
   930 GOTO 750
   940 B=0
   950 C=1
   960 FOR A=1 TO 10
   970 SCNCLR
   980 PRINT:PRINT:PRINT"   ";A;"<cursor left>)"
   990 D=INT(RND(1)*3)+8
  1000 E=INT(RND(1)*11)+2
  1010 IF D=10 THEN D=12
  1020 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";E;" X ";D;" =";
  1030 INPUT F
  1040 IF F=E*D THEN 1070
  1050 C=2
  1060 GOTO 1150
  1070 IF C=1 THEN B=B+1
  1080 C=1
  1090 PRINT"<cursor down><cursor down><cursor down>   CORRECT"
  1100 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
  1110 GETKEY Z$
  1120 IF Z$<>" " THEN 1110
  1130 IF A<10 THEN NEXT A
  1140 GOTO 1210
  1150 PRINT"<cursor down><cursor down><cursor down> WRONG"
  1160 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>   PRESS SPACE"
  1170 GETKEY Y$
  1180 IF Y$<>" " THEN 1170
  1190 PRINT"<clr><cursor down><cursor down>   ";A;"<cursor left>)"
  1200 GOTO 1020
  1210 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right>YOUR SCORE IS:"
  1220 PRINT"<cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";B;"<cursor down><cursor left><cursor left><cursor left>ðŸ¸ðŸ¸<cursor down><cursor left><cursor left>10"
  1230 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>PRESS SPACE"
  1240 GETKEY X$
  1250 IF X$<>" " THEN 1240
  1260 RUN
                � 8 �"LEVEL 1 - 2,3 AND 10 X TABLES"