Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF » P/Tables
P/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 » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF |
| Filename: | P/Tables |
| Read OK: | ✔ |
| File size: | 0176 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10 MODE0 20 PROCstart 30 DIM N(12,12) 40 FOR n=1 TO 12 50 FOR nn=1 TO 12 60 X=nn*4 70 a=nn*n 80 N(nn,n)=a 90 PRINTTAB((nn*4)+10,n+10);N(nn,n); 100 NEXT 110 NEXT 120 VDU23,1,0;0;0;0;30 130 END 140 DEF PROCstart 150 PRINTTAB(32,3)"Times Tables" 160 PRINTTAB(32,4)"============" 170 VDU5,25,4,200;690;25,5,980;690; 180 VDU25,4,200;690;25,5,200;290;4 190 FOR no=1 TO 12 200 PRINTTAB((no*4)+10,9);no; 210 PRINTTAB(9,no+10);no; 220 NEXT 230 ENDPROC
�0 �start � N(12,12) ( � n=1 � 12 2 � nn=1 � 12 < X=nn*4 F a=nn*n P N(nn,n)=a Z �(nn*4)+10,n+10);N(nn,n); d � n � x �23,1,0;0;0;0;30 � � � � �start � �32,3)"Times Tables" � �32,4)"============" �" �5,25,4,200;690;25,5,980;690; �! �25,4,200;690;25,5,200;290;4 � � no=1 � 12 � �(no*4)+10,9);no; � �9,no+10);no; � � � � �
00000000 0d 00 0a 07 20 eb 30 0d 00 14 0b 20 f2 73 74 61 |.... .0.... .sta| 00000010 72 74 0d 00 1e 0f 20 de 20 4e 28 31 32 2c 31 32 |rt.... . N(12,12| 00000020 29 0d 00 28 0f 20 e3 20 6e 3d 31 20 b8 20 31 32 |)..(. . n=1 . 12| 00000030 0d 00 32 10 20 e3 20 6e 6e 3d 31 20 b8 20 31 32 |..2. . nn=1 . 12| 00000040 0d 00 3c 0b 20 58 3d 6e 6e 2a 34 0d 00 46 0b 20 |..<. X=nn*4..F. | 00000050 61 3d 6e 6e 2a 6e 0d 00 50 0e 20 4e 28 6e 6e 2c |a=nn*n..P. N(nn,| 00000060 6e 29 3d 61 0d 00 5a 1f 20 f1 8a 28 6e 6e 2a 34 |n)=a..Z. ..(nn*4| 00000070 29 2b 31 30 2c 6e 2b 31 30 29 3b 4e 28 6e 6e 2c |)+10,n+10);N(nn,| 00000080 6e 29 3b 0d 00 64 06 20 ed 0d 00 6e 06 20 ed 0d |n);..d. ...n. ..| 00000090 00 78 15 20 ef 32 33 2c 31 2c 30 3b 30 3b 30 3b |.x. .23,1,0;0;0;| 000000a0 30 3b 33 30 0d 00 82 06 20 e0 0d 00 8c 0d 20 dd |0;30.... ..... .| 000000b0 20 f2 73 74 61 72 74 0d 00 96 1a 20 f1 8a 33 32 | .start.... ..32| 000000c0 2c 33 29 22 54 69 6d 65 73 20 54 61 62 6c 65 73 |,3)"Times Tables| 000000d0 22 0d 00 a0 1a 20 f1 8a 33 32 2c 34 29 22 3d 3d |".... ..32,4)"==| 000000e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 00 aa 22 20 |=========="..." | 000000f0 ef 35 2c 32 35 2c 34 2c 32 30 30 3b 36 39 30 3b |.5,25,4,200;690;| 00000100 32 35 2c 35 2c 39 38 30 3b 36 39 30 3b 0d 00 b4 |25,5,980;690;...| 00000110 21 20 ef 32 35 2c 34 2c 32 30 30 3b 36 39 30 3b |! .25,4,200;690;| 00000120 32 35 2c 35 2c 32 30 30 3b 32 39 30 3b 34 0d 00 |25,5,200;290;4..| 00000130 be 10 20 e3 20 6e 6f 3d 31 20 b8 20 31 32 0d 00 |.. . no=1 . 12..| 00000140 c8 17 20 f1 8a 28 6e 6f 2a 34 29 2b 31 30 2c 39 |.. ..(no*4)+10,9| 00000150 29 3b 6e 6f 3b 0d 00 d2 13 20 f1 8a 39 2c 6e 6f |);no;.... ..9,no| 00000160 2b 31 30 29 3b 6e 6f 3b 0d 00 dc 06 20 ed 0d 00 |+10);no;.... ...| 00000170 e6 06 20 e1 0d ff |.. ...| 00000176
.