Home » Archimedes archive » Archimedes World » AW-1996-06-Disc 1.adf » !MyWrldAps_MyWorldAps » Libraries/LuckySeven/Files/HEARROLL
Libraries/LuckySeven/Files/HEARROLL
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 » Archimedes World » AW-1996-06-Disc 1.adf » !MyWrldAps_MyWorldAps |
| Filename: | Libraries/LuckySeven/Files/HEARROLL |
| Read OK: | ✔ |
| File size: | 0109 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>HEARROLL
20ON ERROR :REPORT:PRINTERL:END
30
40
50OSCLI("if %D =1 THEN HEAR 1")
60
70
80OSCLI("IF %D =2 THEN HEAR 2")
90
110
120OSCLI("IF %D =3 THEN HEAR 3")
130
140
150OSCLI("IF %D =4 THEN HEAR 4")
160
170
180
190OSCLI("IF %D =5 THEN HEAR 5")
200
210
220OSCLI("IF %D =6 THEN HEAR 6")
230
240
�>HEARROLL
� � :�:�:�
(
2 �("if %D =1 THEN HEAR 1")
<
F
P �("IF %D =2 THEN HEAR 2")
Z
n
x �("IF %D =3 THEN HEAR 3")
�
�
� �("IF %D =4 THEN HEAR 4")
�
�
�
� �("IF %D =5 THEN HEAR 5")
�
�
� �("IF %D =6 THEN HEAR 6")
�
�
� 00000000 0d 00 0a 0e f4 3e 48 45 41 52 52 4f 4c 4c 0d 00 |.....>HEARROLL..|
00000010 14 0f ee 20 85 20 3a f6 3a f1 9e 3a e0 0d 00 1e |... . :.:..:....|
00000020 04 0d 00 28 04 0d 00 32 1d ff 28 22 69 66 20 25 |...(...2..("if %|
00000030 44 20 3d 31 20 54 48 45 4e 20 48 45 41 52 20 31 |D =1 THEN HEAR 1|
00000040 22 29 0d 00 3c 04 0d 00 46 04 0d 00 50 1d ff 28 |")..<...F...P..(|
00000050 22 49 46 20 25 44 20 3d 32 20 54 48 45 4e 20 48 |"IF %D =2 THEN H|
00000060 45 41 52 20 32 22 29 0d 00 5a 04 0d 00 6e 04 0d |EAR 2")..Z...n..|
00000070 00 78 1d ff 28 22 49 46 20 25 44 20 3d 33 20 54 |.x..("IF %D =3 T|
00000080 48 45 4e 20 48 45 41 52 20 33 22 29 0d 00 82 04 |HEN HEAR 3")....|
00000090 0d 00 8c 04 0d 00 96 1d ff 28 22 49 46 20 25 44 |.........("IF %D|
000000a0 20 3d 34 20 54 48 45 4e 20 48 45 41 52 20 34 22 | =4 THEN HEAR 4"|
000000b0 29 0d 00 a0 04 0d 00 aa 04 0d 00 b4 04 0d 00 be |)...............|
000000c0 1d ff 28 22 49 46 20 25 44 20 3d 35 20 54 48 45 |..("IF %D =5 THE|
000000d0 4e 20 48 45 41 52 20 35 22 29 0d 00 c8 04 0d 00 |N HEAR 5")......|
000000e0 d2 04 0d 00 dc 1d ff 28 22 49 46 20 25 44 20 3d |.......("IF %D =|
000000f0 36 20 54 48 45 4e 20 48 45 41 52 20 36 22 29 0d |6 THEN HEAR 6").|
00000100 00 e6 04 0d 00 f0 04 0d ff |.........|
00000109 
.