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