Home » Archimedes archive » Acorn User » AU 1993-08.adf » !BasicProg_Basic » Listing3
Listing3
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 » Archimedes archive » Acorn User » AU 1993-08.adf » !BasicProg_Basic |
| Filename: | Listing3 |
| Read OK: | ✔ |
| File size: | 00DC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >Listing3
2:
3ON ERROR REPORT:PRINT " at line ";ERL/10:END
4REPEAT
5 INPUT "Which table would you like to see (1-12)? "table%
6UNTIL table%>=1 AND table%<=12
7FOR loop%=1 TO 12
8 PRINT loop%;" x ";table%;" = ";loop%*table%
9NEXT loop%
10END
� >Listing3 : � � �:� " at line ";�/10:� � 9 � "Which table would you like to see (1-12)? "table% � table%>=1 � table%<=12 � loop%=1 � 12 , � loop%;" x ";table%;" = ";loop%*table% � loop% � �
00000000 0d 00 01 0f f4 20 3e 4c 69 73 74 69 6e 67 33 0d |..... >Listing3.| 00000010 00 02 05 3a 0d 00 03 1e ee 20 85 20 f6 3a f1 20 |...:..... . .:. | 00000020 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 2f 31 30 |" at line ";./10| 00000030 3a e0 0d 00 04 05 f5 0d 00 05 39 20 e8 20 22 57 |:.........9 . "W| 00000040 68 69 63 68 20 74 61 62 6c 65 20 77 6f 75 6c 64 |hich table would| 00000050 20 79 6f 75 20 6c 69 6b 65 20 74 6f 20 73 65 65 | you like to see| 00000060 20 28 31 2d 31 32 29 3f 20 22 74 61 62 6c 65 25 | (1-12)? "table%| 00000070 0d 00 06 1c fd 20 74 61 62 6c 65 25 3e 3d 31 20 |..... table%>=1 | 00000080 80 20 74 61 62 6c 65 25 3c 3d 31 32 0d 00 07 12 |. table%<=12....| 00000090 e3 20 6c 6f 6f 70 25 3d 31 20 b8 20 31 32 0d 00 |. loop%=1 . 12..| 000000a0 08 2c 20 f1 20 6c 6f 6f 70 25 3b 22 20 78 20 22 |., . loop%;" x "| 000000b0 3b 74 61 62 6c 65 25 3b 22 20 3d 20 22 3b 6c 6f |;table%;" = ";lo| 000000c0 6f 70 25 2a 74 61 62 6c 65 25 0d 00 09 0b ed 20 |op%*table%..... | 000000d0 6c 6f 6f 70 25 0d 00 0a 05 e0 0d ff |loop%.......| 000000dc
.