Home » Archimedes archive » Archimedes World » AW-1996-06-Disc 1.adf » !MyWrldAps_MyWorldAps » Libraries/LuckySeven/Files/Sdice
Libraries/LuckySeven/Files/Sdice
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/Sdice |
Read OK: | ✔ |
File size: | 00DB bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
1660 1670 1680Dice=INT(RND(TIME)MOD6)+1 1690D$=STR$(Dice) 1700OSCLI("HEAR "+D$) 1701CASE Dice OF 1702WHEN 1: OSCLI("SET %D 1") 1703WHEN 2: OSCLI("SET %D 2") 1704WHEN 3: OSCLI("SET %D 3") 1705WHEN 4: OSCLI("SET %D 4") 1706WHEN 5: OSCLI("SET %D 5") 1707WHEN 6: OSCLI("SET %D 6") 1708ENDCASE 1710 1720
| � �Dice=�(�(�)�6)+1 �D$=�(Dice) ��("HEAR "+D$) � Ȏ Dice � �� 1: �("SET %D 1") �� 2: �("SET %D 2") �� 3: �("SET %D 3") �� 4: �("SET %D 4") �� 5: �("SET %D 5") �� 6: �("SET %D 6") �� � � �
00000000 0d 06 7c 04 0d 06 86 04 0d 06 90 14 44 69 63 65 |..|.........Dice| 00000010 3d a8 28 b3 28 91 29 83 36 29 2b 31 0d 06 9a 0e |=.(.(.).6)+1....| 00000020 44 24 3d c3 28 44 69 63 65 29 0d 06 a4 11 ff 28 |D$=.(Dice).....(| 00000030 22 48 45 41 52 20 22 2b 44 24 29 0d 06 a5 0d c8 |"HEAR "+D$).....| 00000040 8e 20 44 69 63 65 20 ca 0d 06 a6 16 c9 20 31 3a |. Dice ...... 1:| 00000050 20 ff 28 22 53 45 54 20 25 44 20 31 22 29 0d 06 | .("SET %D 1")..| 00000060 a7 16 c9 20 32 3a 20 ff 28 22 53 45 54 20 25 44 |... 2: .("SET %D| 00000070 20 32 22 29 0d 06 a8 16 c9 20 33 3a 20 ff 28 22 | 2")..... 3: .("| 00000080 53 45 54 20 25 44 20 33 22 29 0d 06 a9 16 c9 20 |SET %D 3")..... | 00000090 34 3a 20 ff 28 22 53 45 54 20 25 44 20 34 22 29 |4: .("SET %D 4")| 000000a0 0d 06 aa 16 c9 20 35 3a 20 ff 28 22 53 45 54 20 |..... 5: .("SET | 000000b0 25 44 20 35 22 29 0d 06 ab 16 c9 20 36 3a 20 ff |%D 5")..... 6: .| 000000c0 28 22 53 45 54 20 25 44 20 36 22 29 0d 06 ac 05 |("SET %D 6")....| 000000d0 cb 0d 06 ae 04 0d 06 b8 04 0d ff |...........| 000000db