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"