DICE THROW.C3
FILE INFORMATION
FILENAME(S): DICE THROW.C3
FILE TYPE(S): PRG
FILE SIZE: 12.3K
FIRST SEEN: 2025-11-02 16:26:33
APPEARS ON: 1 disk(s)
FILE HASH
55a1d68b27c55a7b16209548eea1b26b21849d0113122d313ad9e593377d8c2b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCHU LERN 13 | DICE THROW.C3 | PRG | Treasure Chest - Murdock | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 F2 |UTINE **.....:..|
000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B|
000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH|
000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG|
00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.|
00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA|
00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..|
00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..|
00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO|
00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... |
00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO|
00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.|
00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E|
000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA|
000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W|
000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O|
000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... |
000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..|
000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S|
00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..|
00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.|
00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.|
00000230: 38 30 00 45 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.E.-.." ..";:|
00000240: 97 55 43 2C 30 00 59 0A 32 00 A1 55 49 24 3A 8B |.UC,0.Y.2..UI$:.|
00000250: 55 49 24 B2 22 22 A7 35 30 00 83 0A 37 00 8B 55 |UI$."".50...7..U|
00000260: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).|
00000270: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:|
00000280: 89 38 35 00 96 0A 3C 00 8B 55 49 24 B2 C7 28 32 |.85...<..UI$..(2|
00000290: 30 29 A7 31 30 35 00 AA 0A 3E 00 8B 20 C3 28 55 |0).105...>.. .(U|
000002A0: 52 24 29 B2 B1 55 4C A7 35 30 00 CF 0A 41 00 8D |R$)..UL.50...A..|
000002B0: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR |
000002C0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.|
000002D0: DF 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.|
000002E0: E9 0A 4B 00 99 55 49 24 3B 00 F1 0A 50 00 89 35 |..K..UI$;...P..5|
000002F0: 30 00 16 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC|
00000300: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE|
00000310: 53 54 20 2B 2B 2B 00 3E 0B 5A 00 8B 55 52 24 B2 |ST +++.>.Z..UR$.|
00000320: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T|
00000330: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 4D |O HELP ROUTINE.M|
00000340: 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5A 0B |._..UF.1..240.Z.|
00000350: 64 00 55 46 B2 30 3A 99 3A 8E 00 73 0B 66 00 8F |d.UF.0:.:..s.f..|
00000360: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE|
00000370: 20 2B 2B 00 84 0B 69 00 8B C3 28 55 52 24 29 B3 | ++...i...(UR$).|
00000380: 31 A7 35 30 00 9C 0B 6E 00 55 52 24 B2 C8 28 55 |1.50...n.UR$..(U|
00000390: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AE 0B 73 |R$,.(UR$).1)...s|
000003A0: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 D5 |..". ..";:.50..|
000003B0: 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO|
000003C0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
000003D0: 52 53 20 2B 2B 00 E7 0B 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$|
000003E0: 29 B2 30 A7 31 35 30 00 F7 0B 7F 00 55 53 24 B2 |).0.150.....US$.|
000003F0: 55 53 24 AA 55 58 24 00 08 0C 82 00 81 55 53 B2 |US$.UX$......US.|
00000400: 31 A4 C3 28 55 53 24 29 00 1F 0C 87 00 8B 55 49 |1..(US$)......UI|
00000410: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...|
00000420: 25 0C 8C 00 82 00 32 0C 91 00 55 49 24 B2 22 22 |%.....2...UI$.""|
00000430: 3A 8E 00 4D 0C 96 00 8F 20 2A 2A 20 53 54 41 4E |:..M.... ** STAN|
00000440: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 5E 0C |DARD INPUT **.^.|
00000450: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 6F |....(UI$).46...o|
00000460: 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000470: 8C 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |......(UI$).48..|
00000480: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 92 0C A5 |(UI$).57.170....|
00000490: 00 8E 00 AF 0C AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
000004A0: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
000004B0: B5 0C AF 00 8E 00 D9 0C B4 00 8B C6 28 55 49 24 |............(UI$|
000004C0: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218|
000004D0: A7 55 49 24 B2 22 22 3A 8E 00 FC 0C B9 00 8B C2 |.UI$."":........|
000004E0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.|
000004F0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 02 0D BB |(UI$).128):.....|
00000500: 00 8E 00 0F 0D BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000510: 34 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |4...UF.1:. +++ H|
00000520: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT|
00000530: 20 2B 2B 2B 00 3D 0D C5 00 8D 32 35 30 00 46 0D | +++.=....250.F.|
00000540: C8 00 8D 32 34 35 00 65 0D CD 00 81 55 51 B2 55 |...245.e....UQ.U|
00000550: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
00000560: 33 25 AB 32 29 00 81 0D D2 00 55 51 25 28 55 51 |3%.2).....UQ%(UQ|
00000570: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000580: 22 00 94 0D D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".....UZ.1:UV%..|
00000590: 28 55 54 29 00 9D 0D D8 00 89 33 30 30 00 C2 0D |(UT)......300...|
000005A0: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
000005B0: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
000005C0: 55 4B 00 F9 0D DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)|
000005D0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."|
000005E0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328|
000005F0: 30 2C 31 34 3A 89 32 32 30 00 03 0E DB 00 99 22 |0,14:.220......"|
00000600: 93 22 3B 00 32 0E DC 00 55 54 24 B2 55 4C 24 3A |.";.2...UT$.UL$:|
00000610: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
00000620: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000630: 33 29 00 47 0E E1 00 97 55 51 2C 55 51 25 28 55 |3).G....UQ,UQ%(U|
00000640: 51 AB 55 42 29 3A 82 00 53 0E E6 00 97 55 31 2C |Q.UB):..S....U1,|
00000650: 55 31 25 00 5F 0E E8 00 97 55 32 2C 55 32 25 00 |U1%._....U2,U2%.|
00000660: 6B 0E E9 00 97 55 34 2C 55 34 25 00 79 0E EA 00 |k....U4,U4%.y...|
00000670: 97 55 33 2C 55 33 25 AB 31 00 81 0E EB 00 89 33 |.U3,U3%.1......3|
00000680: 35 00 B3 0E F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.|
00000690: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
000006A0: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
000006B0: 29 3A 8E 00 EE 0E F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
000006C0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
000006D0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
000006E0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 1A | COMING . ":...|
000006F0: 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
00000700: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
00000710: 3A 55 34 25 B2 C2 28 55 34 29 00 42 0F FB 00 55 |:U4%..(U4).B...U|
00000720: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U|
00000730: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.|
00000740: 55 4C 00 48 0F FF 00 8E 00 59 0F 2C 01 8F 20 2A |UL.H.....Y.,.. *|
00000750: 2A 20 4D 45 4E 55 20 2A 2A 00 5F 0F 2D 01 3A 00 |* MENU **._.-.:.|
00000760: 8E 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |.....".":.UT,UU%|
00000770: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000780: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 94 |281,9:.53280,8..|
00000790: 0F 2F 01 3A 00 B1 0F 31 01 99 22 13 20 20 20 20 |./.:...1..". |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
000007B0: 22 00 E0 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000007E0: 00 06 10 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000007F0: 31 2E 20 20 20 42 45 47 49 4E 20 44 49 43 45 20 |1. BEGIN DICE |
00000800: 54 48 52 4F 57 22 00 30 10 40 01 99 22 11 11 20 |THROW".0.@..".. |
00000810: 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 | 2. STUDE|
00000820: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |NT INSTRUCTIONS"|
00000830: 00 5A 10 45 01 99 22 11 11 20 20 20 20 20 20 20 |.Z.E..".. |
00000840: 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 |3. TEACHER INS|
00000850: 54 52 55 43 54 49 4F 4E 53 22 00 87 10 4A 01 99 |TRUCTIONS"...J..|
00000860: 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 4D |".. 4. M|
00000870: 4F 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 |ODIFICATION OF P|
00000880: 52 4F 47 52 41 4D 22 00 A3 10 4F 01 99 22 11 11 |ROGRAM"...O.."..|
00000890: 20 20 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 | 5. QUIT|
000008A0: 11 11 22 00 D2 10 54 01 99 22 20 2D 2D 2D 2D 2D |.."...T.." -----|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008D0: 2D 22 00 FD 10 59 01 99 22 11 11 20 20 20 20 20 |-"...Y..".. |
000008E0: 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 | PRESS A NUMBER|
000008F0: 20 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 26 11 | KEY (1-5) ";.&.|
00000900: 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 |^.UL.1:US$."1234|
00000910: 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 |5":.35:. INPUT R|
00000920: 4F 55 54 49 4E 45 00 38 11 5F 01 8B C3 28 55 52 |OUTINE.8._...(UR|
00000930: 24 29 B1 31 A7 33 30 30 00 43 11 60 01 55 53 24 |$).1.300.C.`.US$|
00000940: B2 22 22 00 64 11 63 01 91 C5 28 55 52 24 29 8D |."".d.c...(UR$).|
00000950: 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 |1000,400,500,600|
00000960: 2C 33 39 36 00 6D 11 68 01 89 33 30 30 00 94 11 |,396.m.h..300...|
00000970: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
00000980: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
00000990: 44 20 2A 2A 00 C3 11 8C 01 8B C2 28 35 30 30 30 |D **.......(5000|
000009A0: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
000009B0: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
000009C0: 33 39 39 00 ED 11 8D 01 9E 55 55 AA 37 31 3A 8B |399......UU.71:.|
000009D0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
000009E0: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 F9 11 |1,6:.53280,14...|
000009F0: 8E 01 99 22 9A 93 22 3A 80 00 04 12 8F 01 8D 38 |..."..":.......8|
00000A00: 37 35 3A 8E 00 25 12 90 01 8F 20 2A 2A 20 53 54 |75:..%.... ** ST|
00000A10: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
00000A20: 4E 53 20 2A 2A 00 3B 12 92 01 55 54 24 B2 22 20 |NS **.;...UT$." |
00000A30: C4 49 43 45 20 D4 48 52 4F 57 22 00 6A 12 95 01 |.ICE .HROW".j...|
00000A40: 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 |.".":.UT,UL%:..(|
00000A50: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000A60: 30 3A 97 35 33 32 38 30 2C 30 00 81 12 96 01 55 |0:.53280,0.....U|
00000A70: 55 24 B2 55 47 24 3A 50 55 B2 55 50 3A 55 50 B2 |U$.UG$:PU.UP:UP.|
00000A80: 31 00 A2 12 9A 01 55 50 B2 30 3A 55 47 24 B2 22 |1.....UP.0:UG$."|
00000A90: D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 |.TUDENT .NST":.8|
00000AA0: 35 30 00 D2 12 9C 01 99 22 20 11 1D 1D D9 4F 55 |50......" ....OU|
00000AB0: 20 50 52 4F 42 41 42 4C 59 20 4B 4E 4F 57 20 54 | PROBABLY KNOW T|
00000AC0: 48 41 54 20 57 48 45 4E 20 59 4F 55 20 54 48 52 |HAT WHEN YOU THR|
00000AD0: 4F 57 00 00 13 9E 01 99 22 20 41 20 53 49 4E 47 |OW......" A SING|
00000AE0: 4C 45 20 44 49 45 2C 20 41 4C 4C 20 4E 55 4D 42 |LE DIE, ALL NUMB|
00000AF0: 45 52 53 20 41 52 45 20 45 51 55 41 4C 4C 59 22 |ERS ARE EQUALLY"|
00000B00: 00 1C 13 A0 01 99 22 20 11 4C 49 4B 45 4C 59 20 |......" .LIKELY |
00000B10: 54 4F 20 43 4F 4D 45 20 55 50 2E 22 00 4C 13 A2 |TO COME UP.".L..|
00000B20: 01 99 22 20 11 C8 4F 57 45 56 45 52 2C 20 49 46 |.." ..OWEVER, IF|
00000B30: 20 59 4F 55 20 54 48 52 4F 57 20 54 57 4F 20 44 | YOU THROW TWO D|
00000B40: 49 43 45 2C 4E 4F 54 20 41 4C 4C 22 00 79 13 A3 |ICE,NOT ALL".y..|
00000B50: 01 99 22 11 20 53 55 4D 53 20 4F 46 20 54 48 45 |..". SUMS OF THE|
00000B60: 20 54 57 4F 20 4E 55 4D 42 45 52 53 20 41 52 45 | TWO NUMBERS ARE|
00000B70: 20 45 51 55 41 4C 4C 59 22 00 A7 13 A4 01 99 22 | EQUALLY"......"|
00000B80: 20 11 4C 49 4B 45 4C 59 2E 20 20 C6 4F 52 20 45 | .LIKELY. .OR E|
00000B90: 58 41 4D 50 4C 45 2C 20 36 20 49 53 20 4D 55 43 |XAMPLE, 6 IS MUC|
00000BA0: 48 20 4D 4F 52 45 22 00 BF 13 A5 01 99 22 20 11 |H MORE"......" .|
00000BB0: 4C 49 4B 45 4C 59 20 54 48 41 4E 20 32 2E 22 00 |LIKELY THAN 2.".|
00000BC0: EE 13 A6 01 99 22 20 11 D7 48 41 54 20 48 41 50 |....." ..HAT HAP|
00000BD0: 50 45 4E 53 20 57 49 54 48 20 4D 4F 52 45 20 54 |PENS WITH MORE T|
00000BE0: 48 41 4E 20 54 57 4F 20 44 49 43 45 3F 22 00 01 |HAN TWO DICE?"..|
00000BF0: 14 A7 01 8D 38 33 35 3A 55 50 B2 31 3A 8D 38 35 |....835:UP.1:.85|
00000C00: 30 00 2D 14 A8 01 99 22 20 11 1D 1D 1D D7 48 41 |0.-...." .....HA|
00000C10: 54 20 48 41 50 50 45 4E 53 20 49 46 20 54 48 45 |T HAPPENS IF THE|
00000C20: 20 44 49 43 45 20 48 41 56 45 20 41 22 00 56 14 | DICE HAVE A".V.|
00000C30: AA 01 99 22 20 11 44 49 46 46 45 52 45 4E 54 20 |..." .DIFFERENT |
00000C40: 23 20 4F 46 20 46 41 43 45 53 20 42 45 53 49 44 |# OF FACES BESID|
00000C50: 45 53 20 36 3F 22 00 85 14 AC 01 99 22 20 11 11 |ES 6?"......" ..|
00000C60: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |.HIS PROGRAM WIL|
00000C70: 4C 20 54 48 52 4F 57 20 41 53 20 4D 41 4E 59 20 |L THROW AS MANY |
00000C80: 41 53 20 36 22 00 B1 14 AE 01 99 22 20 11 44 49 |AS 6"......" .DI|
00000C90: 43 45 20 57 49 54 48 20 41 53 20 4D 41 4E 59 20 |CE WITH AS MANY |
00000CA0: 41 53 20 32 30 20 46 41 43 45 53 20 45 41 43 48 |AS 20 FACES EACH|
00000CB0: 22 00 DD 14 B0 01 99 22 20 11 41 53 20 4D 41 4E |"......" .AS MAN|
00000CC0: 59 20 54 49 4D 45 53 20 41 53 20 59 4F 55 20 4C |Y TIMES AS YOU L|
00000CD0: 49 4B 45 20 41 4E 44 20 4B 45 45 50 22 00 0C 15 |IKE AND KEEP"...|
00000CE0: B2 01 99 22 20 11 54 52 41 43 4B 20 4F 46 20 54 |..." .TRACK OF T|
00000CF0: 48 45 20 53 55 4D 53 20 49 4E 20 41 20 47 52 41 |HE SUMS IN A GRA|
00000D00: 50 48 20 46 4F 52 20 59 4F 55 2E 22 00 40 15 B3 |PH FOR YOU.".@..|
00000D10: 01 99 22 20 11 11 12 CE 4F 54 45 92 3A D4 4F 20 |.." ....OTE.:.O |
00000D20: 42 52 45 41 4B 20 4F 55 54 20 4F 46 20 41 20 47 |BREAK OUT OF A G|
00000D30: 52 41 50 48 20 50 52 45 53 53 20 28 48 29 2E 22 |RAPH PRESS (H)."|
00000D40: 00 6D 15 B4 01 99 22 20 D4 48 49 53 20 57 49 4C |.m...." .HIS WIL|
00000D50: 4C 20 53 45 4E 44 20 59 4F 55 20 42 41 43 4B 20 |L SEND YOU BACK |
00000D60: 54 4F 20 54 48 45 20 4D 45 4E 55 2E 22 00 7B 15 |TO THE MENU.".{.|
00000D70: B8 01 8D 38 33 35 3A 8D 38 35 30 00 A7 15 B9 01 |...835:.850.....|
00000D80: 99 22 11 20 C9 4E 20 54 48 45 20 45 56 45 4E 54 |.". .N THE EVENT|
00000D90: 20 54 48 41 54 20 4D 4F 52 45 20 54 48 41 4E 20 | THAT MORE THAN |
00000DA0: 31 30 20 4F 46 20 41 00 D1 15 BA 01 99 22 11 20 |10 OF A......". |
00000DB0: 4E 55 4D 42 45 52 20 41 50 50 45 41 52 20 4F 4E |NUMBER APPEAR ON|
00000DC0: 20 54 48 45 20 47 52 41 50 48 2C 20 41 20 4E 45 | THE GRAPH, A NE|
00000DD0: 57 00 FD 15 BB 01 99 22 11 20 53 59 4D 42 4F 4C |W......". SYMBOL|
00000DE0: 20 57 49 4C 4C 20 41 50 50 45 41 52 20 54 4F 20 | WILL APPEAR TO |
00000DF0: 52 45 50 52 45 53 45 4E 54 20 54 48 45 00 13 16 |REPRESENT THE...|
00000E00: BC 01 99 22 11 20 4C 41 52 47 45 52 20 55 4E 49 |...". LARGER UNI|
00000E10: 54 2E 22 00 3F 16 BE 01 99 22 11 11 20 D4 48 45 |T.".?....".. .HE|
00000E20: 53 45 20 53 59 4D 42 4F 4C 53 20 41 50 50 45 41 |SE SYMBOLS APPEA|
00000E30: 52 20 49 4E 20 54 48 45 20 4F 52 44 45 52 3A 00 |R IN THE ORDER:.|
00000E40: 6D 16 C0 01 99 22 11 20 20 20 D7 2C 20 C3 2C 20 |m....". ., ., |
00000E50: D6 2C 20 D1 2C 20 A6 2C 20 12 20 92 2C 20 21 2C |., ., ., . ., !,|
00000E60: 20 D3 2C 20 12 D6 92 2C 20 12 51 92 22 00 7B 16 | ., ..., .Q.".{.|
00000E70: C7 01 8D 38 33 35 3A 8D 38 35 30 00 AA 16 CC 01 |...835:.850.....|
00000E80: 99 22 20 11 11 CE 4F 54 45 3A 11 11 11 D4 4F 20 |." ...OTE:....O |
00000E90: 41 44 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 |ADVANCE FROM ONE|
00000EA0: 20 51 55 45 53 54 49 4F 4E 22 00 D3 16 D6 01 99 | QUESTION"......|
00000EB0: 22 11 20 54 4F 20 54 48 45 20 4E 45 58 54 20 50 |". TO THE NEXT P|
00000EC0: 52 45 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 42 |RESS THE ..... B|
00000ED0: 41 52 22 00 04 17 DB 01 99 22 20 11 11 1D 1D 1D |AR"......" .....|
00000EE0: 1D 1D C9 46 20 41 54 20 41 4E 59 20 54 49 4D 45 |...F AT ANY TIME|
00000EF0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 | YOU WISH TO RET|
00000F00: 55 52 4E 22 00 28 17 E0 01 99 22 20 11 54 4F 20 |URN".(...." .TO |
00000F10: 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 |THE .... PRESS H|
00000F20: 20 D2 C5 D4 D5 D2 CE 22 00 31 17 E5 01 8D 38 33 | ......".1....83|
00000F30: 35 00 45 17 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5.E....UZ.1..UP%|
00000F40: 3A 89 32 31 37 00 57 17 F2 01 55 47 24 B2 55 55 |:.217.W...UG$.UU|
00000F50: 24 3A 55 50 B2 50 55 00 5D 17 F3 01 8E 00 7E 17 |$:UP.PU.].....~.|
00000F60: F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 |... ** TEACHER I|
00000F70: 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 AE |NSTRUCTIONS **..|
00000F80: 17 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000F90: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000FA0: 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 E1 |81,2:.53280,10..|
00000FB0: 17 F6 01 55 54 24 B2 22 20 C4 49 43 45 20 D4 48 |...UT$." .ICE .H|
00000FC0: 52 4F 57 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 |ROW":UP.0:UG$.".|
00000FD0: 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 |EACHER .NST":.85|
00000FE0: 30 00 0F 18 F7 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000FF0: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00001000: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00001010: 38 18 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |8...." THIS PR|
00001020: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00001030: 50 55 42 4C 49 43 11 22 00 64 18 F9 01 99 22 20 |PUBLIC.".d...." |
00001040: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00001050: 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 |IS IS NOT THE CA|
00001060: 53 45 11 22 00 81 18 FA 01 99 22 20 20 20 50 4C |SE."......" PL|
00001070: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 |EASE CONTACT:...|
00001080: 22 00 AB 18 FB 01 99 22 20 20 20 20 20 20 C3 4F |"......" .O|
00001090: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
000010A0: 20 CD 41 43 48 49 4E 45 53 11 22 00 CE 18 FC 01 | .ACHINES.".....|
000010B0: 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 |." 3370|
000010C0: 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 F2 | .HARMACY .VE...|
000010D0: 18 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 |...." .|
000010E0: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI|
000010F0: 4F 22 00 14 19 FE 01 99 22 20 20 20 20 20 20 20 |O"......" |
00001100: 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 | .ANADA .1. |
00001110: 32 CB 34 22 00 34 19 FF 01 99 22 20 20 20 20 20 |2.4".4...." |
00001120: 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 | (416) 499-4|
00001130: 32 39 32 22 00 4A 19 00 02 55 50 B2 31 3A 8D 20 |292".J...UP.1:. |
00001140: 38 33 35 3A 8D 20 38 35 30 3A 00 74 19 01 02 99 |835:. 850:.t....|
00001150: 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 |" ...ROGRAM |
00001160: CE 41 4D 45 3A 20 C4 49 43 45 20 D4 48 52 4F 57 |.AME: .ICE .HROW|
00001170: 20 20 20 11 00 9B 19 02 02 99 22 20 20 20 20 20 | ......." |
00001180: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 C2 49 |.RITTEN .Y : .I|
00001190: 4C 4C 20 C6 49 4E 5A 45 52 20 11 00 BF 19 03 02 |LL .INZER ......|
000011A0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
000011B0: C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 |.Y : ..|
000011C0: EA 19 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |....." ..HIS|
000011D0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
000011E0: 4E 20 4F 4E 20 41 4E 59 11 11 00 0A 1A 07 02 99 |N ON ANY........|
000011F0: 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 |" ... 64|
00001200: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 2F 1A 08 02 99 | ........../....|
00001210: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
00001220: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00001230: 38 1A 44 02 8D 38 33 35 00 4C 1A 4E 02 8B 55 5A |8.D..835.L.N..UZ|
00001240: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 5E 1A 56 |.1..UP%:.217.^.V|
00001250: 02 55 47 24 B2 55 55 24 3A 55 50 B2 50 55 00 64 |.UG$.UU$:UP.PU.d|
00001260: 1A 57 02 8E 00 8A 1A 58 02 8F 20 2A 2A 20 50 52 |.W.....X.. ** PR|
00001270: 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 |OGRAM MODIFICATI|
00001280: 4F 4E 20 49 4E 53 54 20 2A 2A 00 9B 1A 59 02 99 |ON INST **...Y..|
00001290: 22 93 22 3A 97 55 54 2C 55 4C 25 00 B2 1A 5A 02 |".":.UT,UL%...Z.|
000012A0: 55 55 24 B2 55 47 24 3A 50 55 B2 55 50 3A 55 50 |UU$.UG$:PU.UP:UP|
000012B0: B2 31 00 D2 1A 5D 02 55 50 B2 30 3A 55 47 24 B2 |.1...].UP.0:UG$.|
000012C0: 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 |".ROGRAM .OD":.8|
000012D0: 35 30 00 03 1B 62 02 99 22 20 11 1D 1D D4 48 45 |50...b.." ....HE|
000012E0: 52 45 20 49 53 20 4F 4E 45 20 4D 4F 44 49 46 49 |RE IS ONE MODIFI|
000012F0: 43 41 54 49 4F 4E 20 54 48 41 54 20 43 41 4E 20 |CATION THAT CAN |
00001300: 42 45 22 00 2D 1B 67 02 99 22 20 4D 41 44 45 2E |BE".-.g.." MADE.|
00001310: 20 D4 48 49 53 20 49 53 20 46 4F 55 4E 44 20 49 | .HIS IS FOUND I|
00001320: 4E 20 4C 49 4E 45 20 31 37 38 30 2E 22 00 5E 1B |N LINE 1780.".^.|
00001330: 6C 02 99 22 20 11 11 1D 1D 1D 45 2E 47 2E 20 31 |l.." .....E.G. 1|
00001340: 37 38 30 2E 2E 2E 55 4C 3D 37 20 28 37 20 4D 45 |780...UL=7 (7 ME|
00001350: 41 4E 53 20 37 20 44 49 47 49 54 53 29 22 00 90 |ANS 7 DIGITS)"..|
00001360: 1B 71 02 99 22 20 11 11 C9 46 20 59 4F 55 20 57 |.q.." ...F YOU W|
00001370: 41 4E 54 20 39 39 39 20 54 4F 20 42 45 20 48 49 |ANT 999 TO BE HI|
00001380: 47 48 45 53 54 20 4E 55 4D 42 45 52 20 4F 46 22 |GHEST NUMBER OF"|
00001390: 00 BE 1B 74 02 99 22 20 50 4F 53 53 49 42 4C 45 |...t.." POSSIBLE|
000013A0: 20 54 48 52 4F 57 53 28 39 2C 39 39 39 2C 39 39 | THROWS(9,999,99|
000013B0: 39 20 49 53 20 4D 41 58 20 4E 4F 57 29 22 00 DC |9 IS MAX NOW)"..|
000013C0: 1B 76 02 99 22 20 11 43 48 41 4E 47 45 20 55 4C |.v.." .CHANGE UL|
000013D0: 3D 37 20 54 4F 20 55 4C 3D 33 2E 22 00 E5 1B 94 |=7 TO UL=3."....|
000013E0: 02 8D 38 33 35 00 F9 1B B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.|
000013F0: 9E 55 50 25 3A 89 32 31 37 00 0B 1C BA 02 55 47 |.UP%:.217.....UG|
00001400: 24 B2 55 55 24 3A 55 50 B2 50 55 00 11 1C BB 02 |$.UU$:UP.PU.....|
00001410: 8E 00 36 1C BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |..6.... ** TO US|
00001420: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
00001430: 30 33 32 20 2A 2A 00 6C 1C C6 02 99 22 93 11 11 |032 **.l...."...|
00001440: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001450: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001460: 20 41 4E 20 38 30 33 32 20 20 11 11 00 A2 1C D0 | AN 8032 ......|
00001470: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001480: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001490: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
000014A0: 11 22 00 AD 1C DA 02 9E 55 55 AA 37 31 00 B3 1C |."......UU.71...|
000014B0: E4 02 80 00 D8 1C 1D 03 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
000014C0: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
000014D0: 4D 34 30 33 32 20 2A 2A 00 23 1D 1E 03 99 22 93 |M4032 **.#....".|
000014E0: 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
000014F0: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001500: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 |N AN 8032 ..LOA|
00001510: 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 |D CBM 4032 PROGR|
00001520: 41 4D 22 00 2F 1D 1F 03 9E 31 30 39 33 3A 80 00 |AM"./....1093:..|
00001530: 4F 1D 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |O. .. ** T I T L|
00001540: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
00001550: 83 1D 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT|
00001560: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00001570: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001580: 31 2C 36 00 99 1D 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:|
00001590: 99 22 12 A6 92 22 3B 3A 82 00 B1 1D 26 03 81 49 |."...";:....&..I|
000015A0: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
000015B0: 82 00 C9 1D 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."|
000015C0: 9D 9D 12 A6 92 22 3B 3A 82 00 E1 1D 2A 03 81 49 |.....";:....*..I|
000015D0: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
000015E0: 82 00 06 1E 2C 03 99 22 13 11 11 11 11 11 11 1D |....,.."........|
000015F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001600: 1D 12 A9 20 20 92 00 28 1E 2E 03 99 22 1D 1D 1D |... ..(...."...|
00001610: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001620: 20 92 20 20 12 20 92 A9 00 49 1E 30 03 99 22 1D | . . ...I.0..".|
00001630: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001640: 1D 12 20 92 20 20 12 A3 DF 00 67 1E 32 03 99 22 |.. . ....g.2.."|
00001650: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001660: 1D 1D DF 12 20 20 92 00 8F 1E 34 03 99 22 11 11 |.... ....4.."..|
00001670: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O |
00001680: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...|
00001690: B2 1E 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........|
000016A0: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
000016B0: 11 11 00 D1 1E 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....8..".......|
000016C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR|
000016D0: 45 00 EC 1E 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E...:.. ** COMMO|
000016E0: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 24 1F 3B |DORE LOGO **.$.;|
000016F0: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
00001700: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001710: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."|
00001720: 3A 49 B2 30 00 46 1F 3C 03 A1 41 24 3A 8B 41 24 |:I.0.F.<..A$:.A$|
00001730: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2|
00001740: 35 30 A7 38 32 38 00 6A 1F 3E 03 54 31 24 B2 22 |50.828.j.>.T1$."|
00001750: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00001760: 54 34 24 B2 22 22 3A 49 B2 30 00 73 1F 40 03 89 |T4$."":I.0.s.@..|
00001770: 33 30 30 00 8F 1F 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA|
00001780: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
00001790: CA 1F 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$|
000017A0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE|
000017B0: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
000017C0: 43 4F 4E 54 49 4E 55 45 92 22 00 E1 1F 4C 03 A1 |CONTINUE."...L..|
000017D0: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84|
000017E0: 34 00 E7 1F 4E 03 8E 00 07 20 52 03 8F 20 2A 2A |4...N.... R.. **|
000017F0: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU|
00001800: 54 49 4E 45 20 2A 2A 00 13 20 54 03 55 50 B2 55 |TINE **.. T.UP.U|
00001810: 50 AA 31 00 3D 20 57 03 99 22 93 22 C8 28 55 54 |P.1.= W..".".(UT|
00001820: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.|
00001830: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 6C 20 |UG$..(UP),18).l |
00001840: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------|
00001850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 7B 20 60 |-----------".{ `|
00001870: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 AF 20 61 03 |..UH..0.870.. a.|
00001880: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$|
00001890: 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 |,7);"HELP - PRES|
000018A0: 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |S H <RETURN>".|
000018B0: C0 20 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E |. f.UH.0:."..":.|
000018C0: 00 DF 20 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 |.. k.. ** PLEASE|
000018D0: 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 | WAIT REMARK **.|
000018E0: 15 21 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |.!p...(UD$,24);"|
000018F0: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00001900: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
00001910: 20 20 20 20 22 00 1B 21 75 03 8E 00 38 21 84 03 | "..!u...8!..|
00001920: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 |. ** SET UP VARI|
00001930: 41 42 4C 45 53 20 2A 2A 00 83 21 85 03 55 58 24 |ABLES **..!..UX$|
00001940: B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A |."H":.UQ%(1000):|
00001950: 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A |UB.32768:U1.196:|
00001960: 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 |U2.197:U3.198:U4|
00001970: B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 |.216:UC.167:UU.1|
00001980: 30 32 34 00 C1 21 86 03 55 54 B2 35 39 34 36 38 |024..!..UT.59468|
00001990: 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 |:UU%.12:UL%.14:U|
000019A0: 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 |P%.1146:UM.32768|
000019B0: 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C |:UO.158:. 50003,|
000019C0: 30 00 04 22 87 03 8B C2 28 35 30 30 30 33 29 B2 |0.."....(50003).|
000019D0: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
000019E0: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
000019F0: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001A00: 32 30 34 38 00 43 22 88 03 8B C2 28 35 30 30 30 |2048.C"....(5000|
00001A10: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
00001A20: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
00001A30: 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 |2139:UM.1024:UO.|
00001A40: 31 39 38 00 67 22 89 03 55 44 24 B2 22 13 11 11 |198.g"..UD$."...|
00001A50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A60: 11 11 11 11 11 11 22 00 99 22 8A 03 55 50 24 B2 |......".."..UP$.|
00001A70: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A90: 20 20 20 20 20 20 20 20 22 00 E7 22 8B 03 55 54 | ".."..UT|
00001AA0: 24 B2 22 20 C4 C9 C3 C5 A0 D4 C8 D2 CF D7 A0 A0 |$." ............|
00001AB0: A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 |......":. PLACE |
00001AC0: 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 |PROGRAM TITLE HE|
00001AD0: 52 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 |RE !!!!!!!!!!!!!|
00001AE0: 21 21 21 21 2A 2A 2A 00 ED 22 8C 03 8E 00 07 23 |!!!!***..".....#|
00001AF0: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA|
00001B00: 42 4C 45 53 20 2A 2A 00 38 23 8F 03 51 51 24 B2 |BLES **.8#..QQ$.|
00001B10: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B30: 20 20 20 20 20 20 20 22 00 59 23 92 03 4D 44 B2 | ".Y#..MD.|
00001B40: 32 30 3A 4D 53 B2 34 30 3A 86 20 53 55 4D 28 4D |20:MS.40:. SUM(M|
00001B50: 53 29 2C 43 24 28 31 30 29 00 62 23 93 03 8D 39 |S),C$(10).b#...9|
00001B60: 30 30 00 68 23 94 03 3A 00 6E 23 95 03 3A 00 89 |00.h#..:.n#..:..|
00001B70: 23 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |#... ** CHECK FO|
00001B80: 52 20 38 30 33 32 20 2A 2A 00 A7 23 9D 03 99 22 |R 8032 **..#..."|
00001B90: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
00001BA0: 44 20 53 50 41 43 45 00 BE 23 A2 03 8B C2 28 55 |D SPACE..#....(U|
00001BB0: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 D7 |B.40)..96..700..|
00001BC0: 23 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |#... ** MEMORY C|
00001BD0: 48 45 43 4B 20 2A 2A 00 EB 23 A4 03 8B 20 B8 28 |HECK **..#... .(|
00001BE0: 30 29 B1 32 30 30 30 A7 39 33 37 00 19 24 A5 03 |0).2000.937..$..|
00001BF0: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00001C00: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
00001C10: 20 45 4E 4F 55 47 48 11 22 00 3D 24 A6 03 99 22 | ENOUGH.".=$..."|
00001C20: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
00001C30: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 48 24 |IS PROGRAM !".H$|
00001C40: A7 03 9E 55 55 AA 37 31 00 4E 24 A8 03 80 00 68 |...UU.71.N$....h|
00001C50: 24 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 |$..."..":..(5000|
00001C60: 33 29 B2 30 A7 39 36 32 00 97 24 AC 03 8F 20 2A |3).0.962..$... *|
00001C70: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00001C80: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00001C90: 45 54 55 50 20 2A 2A 00 D5 24 AD 03 97 31 30 37 |ETUP **..$...107|
00001CA0: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00001CB0: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00001CC0: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00001CD0: 31 2C 31 34 35 00 0B 25 AE 03 97 31 30 39 31 2C |1,145..%...1091,|
00001CE0: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
00001CF0: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
00001D00: 34 3A 97 31 31 30 33 2C 31 33 33 00 2D 25 AF 03 |4:.1103,133.-%..|
00001D10: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
00001D20: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 44 25 |234:.1082,234.D%|
00001D30: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
00001D40: A7 39 35 35 00 73 25 B6 03 97 31 30 39 33 2C 38 |.955.s%...1093,8|
00001D50: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
00001D60: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00001D70: 39 36 35 00 88 25 BB 03 8B C2 28 35 30 30 30 33 |965..%....(50003|
00001D80: 29 B3 B1 31 A7 39 39 30 00 B7 25 C0 03 97 31 30 |)..1.990..%...10|
00001D90: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
00001DA0: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00001DB0: 33 30 3A 89 39 36 35 00 F1 25 C2 03 97 32 30 39 |30:.965..%...209|
00001DC0: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00001DD0: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
00001DE0: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
00001DF0: 31 00 2D 26 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1.-&...2106,3:.2|
00001E00: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
00001E10: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
00001E20: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 67 26 |,49:.2122,141.g&|
00001E30: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
00001E40: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
00001E50: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
00001E60: 97 32 31 32 39 2C 33 00 85 26 C5 03 9E 55 55 AA |.2129,3..&...UU.|
00001E70: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001E80: 50 20 4B 45 59 00 96 26 CA 03 8D 38 30 30 3A 8F |P KEY..&...800:.|
00001E90: 20 54 49 54 4C 45 00 A6 26 D4 03 89 33 30 30 3A | TITLE..&...300:|
00001EA0: 8F 20 4D 45 4E 55 00 D7 26 DE 03 99 22 93 54 48 |. MENU..&...".TH|
00001EB0: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00001EC0: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00001ED0: 49 4E 45 21 22 3A 80 00 0C 27 E8 03 8B 55 5A B2 |INE!":...'...UZ.|
00001EE0: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001EF0: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001F00: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 38 27 E9 |ARTS HERE **.8'.|
00001F10: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
00001F20: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00001F30: 35 33 32 38 30 2C 31 34 00 5A 27 EB 03 55 50 B2 |53280,14.Z'..UP.|
00001F40: 30 3A 55 47 24 B2 22 22 3A 55 54 24 B2 22 20 44 |0:UG$."":UT$." D|
00001F50: 49 43 45 20 54 48 52 4F 57 22 00 7A 27 FC 03 8F |ICE THROW".z'...|
00001F60: 20 44 49 43 45 20 54 48 52 4F 57 20 42 59 20 42 | DICE THROW BY B|
00001F70: 49 4C 4C 20 46 49 4E 5A 45 52 00 8D 27 06 04 8F |ILL FINZER..'...|
00001F80: 20 4F 43 54 4F 42 45 52 2C 31 39 37 38 00 A8 27 | OCTOBER,1978..'|
00001F90: 10 04 8F 20 4D 41 49 4E 20 43 41 4C 4C 49 4E 47 |... MAIN CALLING|
00001FA0: 20 52 4F 55 54 49 4E 45 00 EA 27 1A 04 8F 20 4D | ROUTINE..'... M|
00001FB0: 4F 44 49 46 49 45 44 20 46 4F 52 20 45 58 50 45 |ODIFIED FOR EXPE|
00001FC0: 52 49 45 4E 43 45 20 27 38 32 20 42 59 20 20 20 |RIENCE '82 BY |
00001FD0: 20 20 20 20 20 20 20 4A 41 4D 45 53 20 56 41 53 | JAMES VAS|
00001FE0: 45 59 2C 53 41 52 4E 49 41 2E 00 04 28 24 04 8D |EY,SARNIA...($..|
00001FF0: 20 31 31 39 20 30 3A 20 8F 20 49 4E 49 54 49 41 | 119 0: . INITIA|
00002000: 4C 49 5A 45 00 18 28 38 04 8D 20 31 36 32 30 3A |LIZE..(8.. 1620:|
00002010: 20 8F 20 49 4E 50 55 54 00 31 28 42 04 8D 20 31 | . INPUT.1(B.. 1|
00002020: 38 31 30 3A 20 8F 20 44 52 41 57 20 47 52 41 50 |810: . DRAW GRAP|
00002030: 48 00 4D 28 4C 04 8D 20 32 31 36 30 3A 20 8F 20 |H.M(L.. 2160: . |
00002040: 50 52 49 4E 54 20 48 45 41 44 49 4E 47 00 67 28 |PRINT HEADING.g(|
00002050: 56 04 8D 20 32 32 38 30 3A 8F 20 53 54 41 52 54 |V.. 2280:. START|
00002060: 20 54 52 49 41 4C 53 00 80 28 60 04 8D 20 32 37 | TRIALS..(`.. 27|
00002070: 37 30 3A 20 8F 20 4D 41 4B 45 20 54 41 42 4C 45 |70: . MAKE TABLE|
00002080: 00 B9 28 6A 04 99 22 13 11 11 11 11 11 11 11 11 |..(j..".........|
00002090: 11 11 11 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |... WOULD YOU LI|
000020A0: 4B 45 20 41 4E 4F 54 48 45 52 20 45 58 50 45 52 |KE ANOTHER EXPER|
000020B0: 49 4D 45 4E 54 3F 20 22 3B 00 D7 28 74 04 55 53 |IMENT? ";..(t.US|
000020C0: 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A |$."YN":UL.1:.35:|
000020D0: 41 4E 24 B2 55 52 24 00 EC 28 7E 04 8B 20 41 4E |AN$.UR$..(~.. AN|
000020E0: 24 B2 22 59 22 20 A7 20 31 30 36 30 00 F5 28 88 |$."Y" . 1060..(.|
000020F0: 04 8D 33 30 30 00 06 29 A6 04 8F 20 49 4E 49 54 |..300..)... INIT|
00002100: 49 41 4C 49 5A 45 00 13 29 B0 04 54 B2 BB 28 AB |IALIZE..)..T..(.|
00002110: 54 49 29 00 48 29 BA 04 52 47 48 54 24 B2 22 1D |TI).H)..RGHT$.".|
00002120: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002140: 1D 1D 1D 1D 1D 1D 1D 22 00 6D 29 C4 04 44 57 4E |.......".m)..DWN|
00002150: 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00002160: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 A2 29 |............"..)|
00002170: CE 04 42 4C 41 4E 4B 24 B2 22 20 20 20 20 20 20 |..BLANK$." |
00002180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021A0: 20 22 00 B1 29 D8 04 81 20 49 B2 31 20 A4 20 4D | "..)... I.1 . M|
000021B0: 53 00 BE 29 E2 04 53 55 4D 28 49 29 B2 30 00 C6 |S..)..SUM(I).0..|
000021C0: 29 EC 04 82 20 49 00 F9 29 F6 04 83 22 D7 22 2C |)... I..)...".",|
000021D0: 22 C3 22 2C 22 D6 22 2C 22 D1 22 2C 22 A6 22 2C |".",".",".",".",|
000021E0: 22 12 20 92 22 2C 22 21 22 2C 22 D3 22 2C 22 12 |". .","!",".",".|
000021F0: D6 92 22 2C 22 12 D1 92 22 00 08 2A 00 05 81 20 |..","..."..*... |
00002200: 43 B2 31 20 A4 20 31 30 00 14 2A 0A 05 87 20 43 |C.1 . 10..*... C|
00002210: 24 28 43 29 00 1C 2A 14 05 82 20 43 00 22 2A 1E |$(C)..*... C."*.|
00002220: 05 8C 00 28 2A 28 05 8E 00 46 2A 54 06 8F 20 49 |...(*(...F*T.. I|
00002230: 4E 50 55 54 20 4E 44 2C 4E 46 2C 26 20 4E 54 26 |NPUT ND,NF,& NT&|
00002240: 20 53 50 45 45 44 00 4F 2A 59 06 99 22 93 22 00 | SPEED.O*Y..".".|
00002250: 71 2A 5E 06 8F 20 20 20 20 20 20 23 20 44 49 43 |q*^.. # DIC|
00002260: 45 2C 23 46 41 43 45 53 2C 23 20 54 48 52 4F 57 |E,#FACES,# THROW|
00002270: 53 00 7A 2A 60 06 8D 38 35 30 00 B3 2A 68 06 99 |S.z*`..850..*h..|
00002280: 22 11 20 48 4F 57 20 4D 41 4E 59 20 44 49 43 45 |". HOW MANY DICE|
00002290: 20 22 3B 3A 55 53 24 B2 22 31 32 33 34 35 36 22 | ";:US$."123456"|
000022A0: 3A 55 4C B2 31 3A 8D 33 35 3A 4E 44 B2 C5 28 55 |:UL.1:.35:ND..(U|
000022B0: 52 24 29 00 DD 2A 81 06 99 22 11 20 59 4F 55 20 |R$)..*...". YOU |
000022C0: 43 41 4E 20 41 4C 53 4F 20 54 41 4B 45 20 4D 41 |CAN ALSO TAKE MA|
000022D0: 4E 55 41 4C 20 43 4F 4E 54 52 4F 4C 2E 00 1F 2B |NUAL CONTROL...+|
000022E0: 86 06 99 22 11 20 48 4F 57 20 4D 41 4E 59 20 46 |...". HOW MANY F|
000022F0: 41 43 45 53 20 4F 4E 20 45 41 43 48 20 44 49 45 |ACES ON EACH DIE|
00002300: 28 3C 32 31 29 20 20 20 20 9D 9D 9D 22 3B 3A 55 |(<21) ...";:U|
00002310: 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 22 00 |S$."0123456789".|
00002320: 2C 2B 87 06 55 4C B2 32 3A 8D 33 35 00 3A 2B 88 |,+..UL.2:.35.:+.|
00002330: 06 4E 46 B2 C5 28 55 52 24 29 00 69 2B 90 06 8B |.NF..(UR$).i+...|
00002340: 4E 46 B1 32 30 A7 99 22 11 20 54 4F 4F 20 4D 41 |NF.20..". TOO MA|
00002350: 4E 59 2C 54 52 59 20 41 47 41 49 4E 22 3A 81 41 |NY,TRY AGAIN":.A|
00002360: B2 31 A4 31 30 30 30 3A 82 00 80 2B 92 06 8B 4E |.1.1000:...+...N|
00002370: 46 B1 32 30 A7 8D 33 30 30 30 3A 89 31 36 37 30 |F.20..3000:.1670|
00002380: 00 96 2B A4 06 8B 20 4E 44 AC 4E 46 B3 33 37 20 |..+... ND.NF.37 |
00002390: A7 20 31 37 33 30 00 C0 2B AE 06 99 22 11 20 4D |. 1730..+...". M|
000023A0: 59 20 53 43 52 45 45 4E 20 49 53 20 54 4F 4F 20 |Y SCREEN IS TOO |
000023B0: 4E 41 52 52 4F 57 20 46 4F 52 20 54 48 41 54 2E |NARROW FOR THAT.|
000023C0: 00 E9 2B B0 06 99 22 11 20 50 4C 45 41 53 45 20 |..+...". PLEASE |
000023D0: 4D 41 4B 45 20 23 44 49 43 45 20 2A 20 23 46 41 |MAKE #DICE * #FA|
000023E0: 43 45 53 20 3C 20 33 37 22 00 FF 2B B3 06 81 41 |CES < 37"..+...A|
000023F0: B2 31 A4 31 37 30 30 3A 82 3A 8D 33 30 30 30 00 |.1.1700:.:.3000.|
00002400: 17 2C B8 06 55 50 B2 55 50 AB 31 3A 8D 38 35 30 |.,..UP.UP.1:.850|
00002410: 3A 89 20 31 36 34 30 00 56 2C C2 06 99 22 11 20 |:. 1640.V,...". |
00002420: 48 4F 57 20 4D 41 4E 59 20 54 48 52 4F 57 53 20 |HOW MANY THROWS |
00002430: 22 3B 3A 55 53 24 B2 22 31 32 33 34 35 36 37 38 |";:US$."12345678|
00002440: 39 30 22 3A 55 4C B2 37 3A 8D 33 35 3A 4E 54 B2 |90":UL.7:.35:NT.|
00002450: C5 28 55 52 24 29 00 8F 2C CC 06 8B 20 4E 54 B2 |.(UR$)..,... NT.|
00002460: 30 20 A7 99 22 11 20 44 4F 4E 27 54 20 59 4F 55 |0 ..". DON'T YOU|
00002470: 20 57 41 4E 54 20 41 54 20 4C 45 41 53 54 20 4F | WANT AT LEAST O|
00002480: 4E 45 3F 20 54 52 59 20 41 47 41 49 4E 2E 22 00 |NE? TRY AGAIN.".|
00002490: B1 2C D1 06 8B 4E 54 B2 30 A7 81 41 B2 31 A4 31 |.,...NT.0..A.1.1|
000024A0: 37 30 30 3A 82 3A 8D 33 30 30 30 3A 89 31 36 30 |700:.:.3000:.160|
000024B0: 30 00 BA 2C D3 06 8D 38 35 30 00 E4 2C D6 06 99 |0..,...850..,...|
000024C0: 22 20 11 59 4F 55 20 43 41 4E 20 48 41 56 45 20 |" .YOU CAN HAVE |
000024D0: 4D 45 20 47 4F 20 46 41 53 54 20 4F 52 20 53 4C |ME GO FAST OR SL|
000024E0: 4F 57 2E 22 00 10 2D E0 06 99 22 20 11 49 46 20 |OW."..-..." .IF |
000024F0: 53 4C 4F 57 20 54 48 45 4E 20 59 4F 55 20 43 41 |SLOW THEN YOU CA|
00002500: 4E 20 53 45 45 20 54 48 45 20 44 49 43 45 2E 22 |N SEE THE DICE."|
00002510: 00 3F 2D EA 06 99 22 20 11 49 46 20 4D 41 4E 55 |.?-..." .IF MANU|
00002520: 41 4C 2C 20 54 48 45 4E 20 59 4F 55 20 43 4F 4E |AL, THEN YOU CON|
00002530: 54 4F 4C 20 45 41 43 48 20 53 54 45 50 2E 22 00 |TOL EACH STEP.".|
00002540: 69 2D F4 06 99 22 11 11 11 20 57 48 49 43 48 20 |i-..."... WHICH |
00002550: 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 28 |WOULD YOU LIKE (|
00002560: 53 2C 46 2C 4D 29 20 22 3B 00 80 2D F6 06 55 53 |S,F,M) ";..-..US|
00002570: 24 B2 22 53 46 4D 22 3A 55 4C B2 31 3A 8D 33 35 |$."SFM":UL.1:.35|
00002580: 00 B2 2D F7 06 59 59 24 B2 C8 28 55 52 24 2C 31 |..-..YY$..(UR$,1|
00002590: 29 3A 8B 59 59 24 B3 B1 22 53 22 AF 59 59 24 B3 |):.YY$.."S".YY$.|
000025A0: B1 22 46 22 AF 59 59 24 B3 B1 22 4D 22 A7 31 37 |."F".YY$.."M".17|
000025B0: 38 30 00 C1 2D F9 06 53 50 45 45 44 24 B2 55 52 |80..-..SPEED$.UR|
000025C0: 24 00 D8 2D FE 06 53 50 45 45 44 24 B2 C8 28 53 |$..-..SPEED$..(S|
000025D0: 50 45 45 44 24 2C 31 29 00 DE 2D 08 07 8E 00 EF |PEED$,1)..-.....|
000025E0: 2D 12 07 8F 20 44 52 41 57 20 47 52 41 50 48 00 |-... DRAW GRAPH.|
000025F0: 02 2E 1C 07 4D 41 58 B2 4E 44 AC 4E 46 AB 4E 44 |....MAX.ND.NF.ND|
00002600: AA 31 00 1A 2E 26 07 49 56 B2 20 B5 28 33 36 AD |.1...&.IV. .(36.|
00002610: 28 4D 41 58 AA 31 29 29 AB 31 00 23 2E 30 07 99 |(MAX.1)).1.#.0..|
00002620: 22 93 22 00 37 2E 3A 07 58 B2 35 3A 59 B2 33 3A |".".7.:.X.5:Y.3:|
00002630: 20 8D 20 32 31 31 30 00 47 2E 44 07 81 20 49 B2 | . 2110.G.D.. I.|
00002640: 31 20 A4 20 4D 41 58 00 56 2E 4E 07 81 20 4A B2 |1 . MAX.V.N.. J.|
00002650: 31 20 A4 20 49 56 00 67 2E 58 07 8B 49 56 B2 30 |1 . IV.g.X..IV.0|
00002660: 20 A7 20 31 39 30 30 00 71 2E 62 07 99 22 DB 22 | . 1900.q.b.."."|
00002670: 3B 00 79 2E 6C 07 82 20 4A 00 83 2E 76 07 99 22 |;.y.l.. J...v.."|
00002680: 2A 22 3B 00 8B 2E 80 07 82 20 49 00 9E 2E 8A 07 |*";...... I.....|
00002690: 58 B2 34 3A 59 B2 32 3A 8D 20 32 31 31 30 00 B2 |X.4:Y.2:. 2110..|
000026A0: 2E 94 07 81 20 49 B2 20 4E 44 20 A4 20 4E 44 AC |.... I. ND . ND.|
000026B0: 4E 46 00 C9 2E 9E 07 58 B2 58 20 AA 49 56 AA 31 |NF.....X.X .IV.1|
000026C0: 20 3A 20 8D 20 32 31 31 30 00 E2 2E A8 07 4E 24 | : . 2110.....N$|
000026D0: B2 C9 28 C4 28 49 29 2C C3 28 C4 28 49 29 29 AB |..(.(I),.(.(I)).|
000026E0: 31 29 00 02 2F B2 07 8B 20 49 56 B2 30 20 AF 20 |1)../... IV.0 . |
000026F0: 49 AD 35 B3 B1 B5 28 49 AD 35 29 20 A7 20 31 39 |I.5...(I.5) . 19|
00002700: 39 30 00 0C 2F BC 07 99 20 4E 24 3B 00 14 2F C6 |90../... N$;../.|
00002710: 07 82 20 49 00 23 2F D0 07 57 49 44 54 48 20 B2 |.. I.#/..WIDTH .|
00002720: 20 49 56 00 2F 2F DA 07 58 B2 32 3A 59 B2 32 00 | IV.//..X.2:Y.2.|
00002730: 3E 2F E4 07 81 20 49 B2 30 20 A4 20 31 35 00 4F |>/... I.0 . 15.O|
00002740: 2F EE 07 59 B2 59 AA 31 3A 8D 20 32 31 31 30 00 |/..Y.Y.1:. 2110.|
00002750: 7B 2F F8 07 8B 20 49 AD 35 20 B3 B1 B5 28 49 AD |{/... I.5 ...(I.|
00002760: 35 29 20 A7 20 99 22 20 20 DB 22 3B 3A 20 20 20 |5) . ." .";: |
00002770: 20 20 20 20 20 89 20 32 30 39 30 00 A4 2F 02 08 | . 2090../..|
00002780: 8B 57 49 44 54 48 B2 30 A7 99 C9 28 22 20 20 20 |.WIDTH.0...(" |
00002790: 22 AA C4 28 49 29 AA 22 2A 22 2C 33 29 3B 3A 89 |"..(I)."*",3);:.|
000027A0: 32 30 39 30 00 C3 2F 0C 08 8F 20 20 50 52 49 4E |2090../... PRIN|
000027B0: 54 22 9D 22 3B 53 54 52 24 28 49 2A 57 49 44 54 |T".";STR$(I*WIDT|
000027C0: 48 29 3B 00 F1 2F 16 08 8F 20 20 49 46 20 4C 45 |H);../... IF LE|
000027D0: 4E 28 53 54 52 24 28 49 2A 57 49 44 54 48 29 29 |N(STR$(I*WIDTH))|
000027E0: 3D 32 20 54 48 45 4E 20 50 52 49 4E 54 22 20 22 |=2 THEN PRINT" "|
000027F0: 3B 00 0E 30 20 08 99 C9 28 22 20 20 20 22 AA C4 |;..0 ...(" "..|
00002800: 28 49 AC 57 49 29 AA 22 2A 22 2C 33 29 3B 00 16 |(I.WI)."*",3);..|
00002810: 30 2A 08 82 20 49 00 1C 30 34 08 8E 00 35 30 3E |0*.. I..04...50>|
00002820: 08 8F 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 54 |.. MOVE CURSOR T|
00002830: 4F 20 58 2C 59 00 4C 30 48 08 99 22 13 22 3B 3A |O X,Y.L0H..".";:|
00002840: 8B 20 58 B2 30 20 A7 20 32 31 34 30 00 61 30 52 |. X.0 . 2140.a0R|
00002850: 08 99 22 13 22 3B C8 28 52 47 48 54 24 2C 58 29 |..".";.(RGHT$,X)|
00002860: 3B 00 74 30 5C 08 99 C8 28 44 57 4E 24 2C 32 34 |;.t0\...(DWN$,24|
00002870: AB 59 29 3B 00 7A 30 66 08 8E 00 8E 30 70 08 8F |.Y);.z0f....0p..|
00002880: 20 50 52 49 4E 54 20 48 45 41 44 49 4E 47 00 B7 | PRINT HEADING..|
00002890: 30 7A 08 99 22 13 20 23 20 44 49 43 45 20 3D 22 |0z..". # DICE ="|
000028A0: 4E 44 22 20 20 20 20 20 20 20 20 23 20 46 41 43 |ND" # FAC|
000028B0: 45 53 20 3D 22 4E 46 00 CC 30 7C 08 99 22 20 23 |ES ="NF..0|.." #|
000028C0: 20 54 48 52 4F 57 53 20 3D 22 4E 54 00 FF 30 84 | THROWS ="NT..0.|
000028D0: 08 8F 20 20 20 50 52 49 4E 54 22 13 11 50 52 45 |.. PRINT"..PRE|
000028E0: 53 53 20 53 2C 46 2C 4D 2C 48 28 45 4E 44 29 54 |SS S,F,M,H(END)T|
000028F0: 4F 20 43 48 41 4E 47 45 20 53 50 45 45 44 22 00 |O CHANGE SPEED".|
00002900: 24 31 8E 08 8F 20 20 20 50 52 49 4E 54 22 13 11 |$1... PRINT"..|
00002910: 11 4F 52 44 45 52 20 4F 46 20 53 59 4D 42 4F 4C |.ORDER OF SYMBOL|
00002920: 53 3A 22 3B 00 33 31 98 08 81 20 49 B2 31 20 A4 |S:";.31... I.1 .|
00002930: 20 31 30 00 4B 31 A2 08 8F 20 20 50 52 49 4E 54 | 10.K1... PRINT|
00002940: 20 43 24 28 49 29 3B 22 20 22 3B 00 53 31 AC 08 | C$(I);" ";.S1..|
00002950: 82 20 49 00 59 31 B6 08 8E 00 6F 31 C0 08 8F 20 |. I.Y1....o1... |
00002960: 44 45 4C 41 59 20 57 20 53 45 43 4F 4E 44 53 00 |DELAY W SECONDS.|
00002970: 79 31 CA 08 54 4D B2 54 49 00 91 31 D4 08 8B 20 |y1..TM.TI..1... |
00002980: 54 49 B3 54 4D AA 57 AC 36 30 20 A7 20 32 32 36 |TI.TM.W.60 . 226|
00002990: 30 00 97 31 DE 08 8E 00 B1 31 E8 08 8F 20 53 54 |0..1.....1... ST|
000029A0: 41 52 54 20 54 48 52 4F 57 49 4E 47 20 44 49 43 |ART THROWING DIC|
000029B0: 45 00 C1 31 F2 08 81 20 49 B2 20 31 20 A4 20 4E |E..1... I. 1 . N|
000029C0: 54 00 C9 31 FC 08 53 B2 30 00 D8 31 06 09 81 20 |T..1..S.0..1... |
000029D0: 4A B2 31 20 A4 20 4E 44 00 EC 31 10 09 54 B2 20 |J.1 . ND..1..T. |
000029E0: B5 28 BB 28 31 29 AC 4E 46 29 AA 31 00 13 32 1A |.(.(1).NF).1..2.|
000029F0: 09 8B 20 53 50 45 45 44 24 B2 22 53 22 20 B0 20 |.. SPEED$."S" . |
00002A00: 53 50 45 45 44 24 B2 22 4D 22 20 A7 20 8D 20 32 |SPEED$."M" . . 2|
00002A10: 35 34 30 00 1D 32 24 09 53 B2 53 AA 54 00 27 32 |540..2$.S.S.T.'2|
00002A20: 2E 09 A1 20 41 4E 24 00 41 32 33 09 8B 20 41 4E |... AN$.A23.. AN|
00002A30: 24 B2 22 46 22 A7 20 53 50 45 45 44 24 B2 22 46 |$."F". SPEED$."F|
00002A40: 22 00 5C 32 38 09 8B 20 41 4E 24 B2 22 53 22 20 |".\28.. AN$."S" |
00002A50: A7 20 53 50 45 45 44 24 B2 22 53 22 00 77 32 42 |. SPEED$."S".w2B|
00002A60: 09 8B 20 41 4E 24 B2 22 4D 22 20 A7 20 53 50 45 |.. AN$."M" . SPE|
00002A70: 45 44 24 B2 22 4D 22 00 89 32 47 09 8B 20 41 4E |ED$."M"..2G.. AN|
00002A80: 24 B2 22 48 22 A7 33 30 30 00 91 32 4C 09 82 20 |$."H".300..2L.. |
00002A90: 4A 00 A5 32 56 09 53 55 4D 28 53 29 B2 53 55 4D |J..2V.SUM(S).SUM|
00002AA0: 28 53 29 AA 31 00 B0 32 60 09 8D 20 32 34 33 30 |(S).1..2`.. 2430|
00002AB0: 00 B8 32 6A 09 82 20 49 00 BE 32 74 09 8E 00 D5 |..2j.. I..2t....|
00002AC0: 32 7E 09 8F 20 44 49 53 50 4C 41 59 20 4F 4E 20 |2~.. DISPLAY ON |
00002AD0: 47 52 41 50 48 00 01 33 88 09 8B 20 57 49 44 54 |GRAPH..3... WIDT|
00002AE0: 48 B2 30 20 A7 20 58 B2 35 AB 4E 44 AA 53 3A 59 |H.0 . X.5.ND.S:Y|
00002AF0: B2 33 AA 53 55 4D 28 53 29 3A 20 89 20 32 34 38 |.3.SUM(S): . 248|
00002B00: 30 00 35 33 92 09 58 B2 33 AB 4E 44 AA 53 AA 53 |0.53..X.3.ND.S.S|
00002B10: 55 4D 28 53 29 AA 57 49 44 54 48 AC 28 53 AA 2E |UM(S).WIDTH.(S..|
00002B20: 35 AB 4E 44 AB B5 28 53 55 4D 28 53 29 AD 57 49 |5.ND..(SUM(S).WI|
00002B30: 44 54 48 29 29 00 4B 33 9C 09 8B 20 57 49 44 54 |DTH)).K3... WIDT|
00002B40: 48 B2 31 20 A7 20 58 B2 58 AA 31 00 67 33 A6 09 |H.1 . X.X.1.g3..|
00002B50: 59 B2 34 AA B5 28 28 53 55 4D 28 53 29 AB 31 29 |Y.4..((SUM(S).1)|
00002B60: AD 57 49 44 54 48 29 00 85 33 B0 09 43 B2 31 20 |.WIDTH)..3..C.1 |
00002B70: 3A 20 8F 20 43 48 41 52 41 43 54 45 52 20 50 4F |: . CHARACTER PO|
00002B80: 49 4E 54 45 52 00 B4 33 BA 09 8B 20 59 B1 31 36 |INTER..3... Y.16|
00002B90: 20 A7 20 59 B2 59 AB 31 35 3A 43 B2 43 AA 31 3A | . Y.Y.15:C.C.1:|
00002BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 89 20 | . |
00002BB0: 32 34 39 30 00 CF 33 C4 09 8B 20 43 B1 31 30 20 |2490..3... C.10 |
00002BC0: A7 20 43 B2 43 AB 31 30 3A 89 20 32 35 30 30 00 |. C.C.10:. 2500.|
00002BD0: DA 33 CE 09 8D 20 32 31 31 30 00 E5 33 D8 09 99 |.3... 2110..3...|
00002BE0: 43 24 28 43 29 00 EB 33 E2 09 8E 00 FF 33 EC 09 |C$(C)..3.....3..|
00002BF0: 8F 20 53 48 4F 57 20 45 41 43 48 20 44 49 45 00 |. SHOW EACH DIE.|
00002C00: 1B 34 F6 09 8F 20 4A 20 49 53 20 54 48 45 20 23 |.4... J IS THE #|
00002C10: 20 4F 46 20 54 48 45 20 44 49 45 00 37 34 00 0A | OF THE DIE.74..|
00002C20: 8F 20 54 20 49 53 20 54 48 45 20 23 20 4F 4E 20 |. T IS THE # ON |
00002C30: 54 48 45 20 44 49 45 00 50 34 0A 0A 99 22 13 11 |THE DIE.P4..."..|
00002C40: 11 11 22 3B A3 35 AC 28 4A AB 31 29 AA 35 29 3B |..";.5.(J.1).5);|
00002C50: 00 80 34 14 0A 99 22 12 20 20 20 20 11 9D 9D 9D |..4...". ....|
00002C60: 9D 20 20 20 20 11 9D 9D 9D 9D 20 20 20 20 11 9D |. ..... ..|
00002C70: 9D 9D 9D 20 20 20 20 91 91 91 9D 9D 9D 9D 22 3B |... .......";|
00002C80: 00 BE 34 1E 0A 91 20 54 20 89 20 32 36 30 30 2C |..4... T . 2600,|
00002C90: 32 36 31 30 2C 32 36 32 30 2C 32 36 33 30 2C 32 |2610,2620,2630,2|
00002CA0: 36 34 30 2C 32 36 35 30 2C 32 36 36 30 2C 32 36 |640,2650,2660,26|
00002CB0: 37 30 2C 32 36 38 30 3A 89 20 32 36 39 30 00 F1 |70,2680:. 2690..|
00002CC0: 34 28 0A 99 22 12 20 20 20 20 11 9D 9D 9D 9D 20 |4(..". ..... |
00002CD0: AC 20 20 11 9D 9D 9D 9D 20 20 20 20 11 9D 9D 9D |. ..... ....|
00002CE0: 9D 20 20 20 20 92 22 3B 20 20 3A 89 20 32 37 30 |. ."; :. 270|
00002CF0: 30 00 24 35 32 0A 99 22 12 20 20 20 20 11 9D 9D |0.$52..". ...|
00002D00: 9D 9D 20 AC 20 20 11 9D 9D 9D 9D 20 AC 20 20 11 |.. . ..... . .|
00002D10: 9D 9D 9D 9D 20 20 20 20 92 22 3B 20 20 3A 89 20 |.... ."; :. |
00002D20: 32 37 30 30 00 57 35 3C 0A 99 22 12 20 AC 20 20 |2700.W5<..". . |
00002D30: 11 9D 9D 9D 9D 20 AC 20 20 11 9D 9D 9D 9D 20 AC |..... . ..... .|
00002D40: 20 20 11 9D 9D 9D 9D 20 20 20 20 92 22 3B 20 20 | ..... ."; |
00002D50: 3A 89 20 32 37 30 30 00 8A 35 46 0A 99 22 12 AC |:. 2700..5F.."..|
00002D60: 20 AC 20 11 9D 9D 9D 9D 20 20 20 20 11 9D 9D 9D | . ..... ....|
00002D70: 9D AC 20 AC 20 11 9D 9D 9D 9D 20 20 20 20 92 22 |.. . ..... ."|
00002D80: 3B 20 20 3A 89 20 32 37 30 30 00 BD 35 50 0A 99 |; :. 2700..5P..|
00002D90: 22 12 AC 20 AC 20 11 9D 9D 9D 9D 20 AC 20 20 11 |".. . ..... . .|
00002DA0: 9D 9D 9D 9D AC 20 AC 20 11 9D 9D 9D 9D 20 20 20 |..... . ..... |
00002DB0: 20 92 22 3B 20 20 3A 89 20 32 37 30 30 00 F0 35 | ."; :. 2700..5|
00002DC0: 5A 0A 99 22 12 AC 20 AC 20 11 9D 9D 9D 9D AC 20 |Z..".. . ...... |
00002DD0: AC 20 11 9D 9D 9D 9D AC 20 AC 20 11 9D 9D 9D 9D |. ...... . .....|
00002DE0: 20 20 20 20 92 22 3B 20 20 3A 89 20 32 37 30 30 | ."; :. 2700|
00002DF0: 00 23 36 64 0A 99 22 12 AC 20 AC 20 11 9D 9D 9D |.#6d..".. . ....|
00002E00: 9D AC AC AC 20 11 9D 9D 9D 9D AC 20 AC 20 11 9D |.... ...... . ..|
00002E10: 9D 9D 9D 20 20 20 20 92 22 3B 20 20 3A 89 20 32 |... ."; :. 2|
00002E20: 37 30 30 00 56 36 6E 0A 99 22 12 AC AC AC 20 11 |700.V6n..".... .|
00002E30: 9D 9D 9D 9D AC 20 AC 20 11 9D 9D 9D 9D AC AC AC |..... . ........|
00002E40: 20 11 9D 9D 9D 9D 20 20 20 20 92 22 3B 20 20 3A | ..... ."; :|
00002E50: 89 20 32 37 30 30 00 89 36 78 0A 99 22 12 AC AC |. 2700..6x.."...|
00002E60: AC 20 11 9D 9D 9D 9D AC AC AC 20 11 9D 9D 9D 9D |. ........ .....|
00002E70: AC AC AC 20 11 9D 9D 9D 9D 20 20 20 20 92 22 3B |... ..... .";|
00002E80: 20 20 3A 89 20 32 37 30 30 00 C0 36 82 0A 99 22 | :. 2700..6..."|
00002E90: 12 20 20 20 20 11 9D 9D 9D 9D 22 3B C4 28 54 29 |. .....";.(T)|
00002EA0: 3B 22 20 11 9D 9D 9D 9D 20 20 20 20 11 9D 9D 9D |;" ..... ....|
00002EB0: 9D 20 20 20 20 92 22 3B 3A 20 89 20 32 37 30 30 |. .";: . 2700|
00002EC0: 00 E8 36 8C 0A 99 22 20 20 22 49 3A 8B 20 53 50 |..6..." "I:. SP|
00002ED0: 45 45 44 24 B2 22 53 22 20 B0 20 20 4A B3 B1 4E |EED$."S" . J..N|
00002EE0: 44 20 A7 20 32 37 36 30 00 FD 36 96 0A 59 B2 32 |D . 2760..6..Y.2|
00002EF0: 32 3A 58 B2 33 34 3A 8D 20 32 31 31 30 00 18 37 |2:X.34:. 2110..7|
00002F00: B4 0A 8B 20 41 4E 24 B2 22 46 22 20 A7 20 53 50 |... AN$."F" . SP|
00002F10: 45 45 44 24 B2 22 46 22 00 33 37 BE 0A 8B 20 41 |EED$."F".37... A|
00002F20: 4E 24 B2 22 53 22 20 A7 20 53 50 45 45 44 24 B2 |N$."S" . SPEED$.|
00002F30: 22 53 22 00 3C 37 BF 0A 8D 38 33 35 00 4F 37 C0 |"S".<7...835.O7.|
00002F40: 0A 99 C8 28 55 44 24 2C 32 34 29 3B 51 51 24 00 |...(UD$,24);QQ$.|
00002F50: 55 37 C8 0A 8E 00 68 37 D2 0A 8F 20 44 52 41 57 |U7....h7... DRAW|
00002F60: 20 41 20 54 41 42 4C 45 00 9F 37 DC 0A 99 C8 28 | A TABLE..7....(|
00002F70: 55 44 24 2C 32 35 29 3B 22 20 57 4F 55 4C 44 20 |UD$,25);" WOULD |
00002F80: 59 4F 55 20 4C 49 4B 45 20 41 20 54 41 42 4C 45 |YOU LIKE A TABLE|
00002F90: 20 4F 46 20 52 45 53 55 4C 54 53 3F 20 22 3B 00 | OF RESULTS? ";.|
00002FA0: BD 37 F0 0A 55 53 24 B2 22 59 4E 22 3A 55 4C B2 |.7..US$."YN":UL.|
00002FB0: 31 3A 8D 33 35 3A 41 4E 24 B2 55 52 24 00 D2 37 |1:.35:AN$.UR$..7|
00002FC0: FA 0A 8B 20 41 4E 24 B2 22 4E 22 20 A7 20 32 38 |... AN$."N" . 28|
00002FD0: 38 35 00 FB 37 04 0B 99 22 93 20 23 20 44 49 43 |85..7...". # DIC|
00002FE0: 45 20 3D 22 4E 44 22 20 20 20 20 20 20 20 20 23 |E ="ND" #|
00002FF0: 20 46 41 43 45 53 20 3D 22 4E 46 00 25 38 05 0B | FACES ="NF.%8..|
00003000: 99 22 20 23 20 54 52 49 41 4C 53 20 3D 22 4E 54 |." # TRIALS ="NT|
00003010: 22 13 11 11 11 20 53 55 4D 20 20 20 23 20 54 48 |".... SUM # TH|
00003020: 52 4F 57 53 22 00 31 38 0E 0B 53 B2 31 3A 4C B2 |ROWS".18..S.1:L.|
00003030: 30 00 44 38 18 0B 81 20 49 B2 4E 44 20 A4 20 4E |0.D8... I.ND . N|
00003040: 44 AC 4E 46 00 56 38 22 0B 99 A3 53 29 3B 49 2C |D.NF.V8"...S);I,|
00003050: 53 55 4D 28 49 29 00 60 38 2C 0B 4C B2 4C AA 31 |SUM(I).`8,.L.L.1|
00003060: 00 92 38 36 0B 8B 20 4C B1 31 36 20 A7 20 53 B2 |..86.. L.16 . S.|
00003070: 32 30 3A 99 22 13 11 11 11 22 A3 53 29 22 53 55 |20:."....".S)"SU|
00003080: 4D 20 20 20 20 23 20 54 48 52 4F 57 53 22 3A 4C |M # THROWS":L|
00003090: B2 30 00 9F 38 40 0B 82 20 49 3A 8D 38 33 35 00 |.0..8@.. I:.835.|
000030A0: A8 38 45 0B 99 22 93 22 00 AE 38 4A 0B 8E 00 DF |.8E.."."..8J....|
000030B0: 38 B8 0B 51 51 24 B2 22 20 20 20 20 20 20 20 20 |8..QQ$." |
000030C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000030E0: 04 39 BA 0B 99 22 91 91 91 22 3A 81 49 B2 31 A4 |.9..."...":.I.1.|
000030F0: 33 3A 99 51 51 24 3A 82 3A 99 22 91 91 91 91 91 |3:.QQ$:.:.".....|
00003100: 91 22 3A 8E 00 00 00 83 |.":..... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.E.-.." ..";:.UC,0.Y.2..UI$:.UI$."".5
0...7..UI$.G(13).C(UR$)..1..UC,1:." .";:
.85...<..UI$.G(20).105...>.. C(UR$)..UL.
50.O.A..120:. CHECK FOR VALID CHARACTER.
..F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.>.Z..UR$.
UX$.195:. EXIT TO HELP ROUTINE.M._..UF.1
..240.Z.D.UF.0:.:..S.F.. ++ CHECK DELETE
++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR$
).1)...S..". ..";:.50.U.X.. ++ CHECK FO
R VALID CHARACTERS ++...}..C(US$).0.150.
...US$.US$.UX$......US.1.C(US$)......UI
$.J(US$,US,1)...%.....2...UI$."":..M....
** STANDARD INPUT **.^....F(UI$).46...O
....UI$.G(32)..... ..F(UI$).48.F(UI$).57
.170............F(UI$).65.F(UI$).90.180.
......Y....F(UI$).193.F(UI$).218.UI$."":
.......B(UT).UU%.UI$.G(F(UI$).128):.....
.......UI$."":..4.C.UF.1:. +++ HELP ROUT
INE EXIT +++.=.E..250.F.H..245.E.M..UQ.U
B.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).B(U
Q):.:."."...W.UZ.1:UV%.B(UT)...X..300.B.
Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..
B(50003).0..53281,1:.".";:.53281,6:.5328
0,14:.220......".";.2...UT$.UL$:.UT,UV%:
.UQ.UB.(U2%.256.U1%.U3%.3).G....UQ,UQ%(U
Q.UB):..S....U1,U1%._....U2,U2%.K....U4,
U4%.Y....U3,U3%.1......35.....UD%.((U2%.
256.U1%.U3%).UB).40:.H(UD$,UD%.1):......
.H(UD$,24);" . HELP
COMING . ":......U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).B...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.H.....Y.,.. ** MENU *
*._.-.:......".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.../.:...1..".
MENU"...6.." -----------------------
---------------"...;..".. 1. BEG
IN DICE THROW".0.@..".. 2. STUDE
NT INSTRUCTIONS".Z.E..".. 3. TEA
CHER INSTRUCTIONS"...J..".. 4. M
ODIFICATION OF PROGRAM"...O..".. 5
. QUIT..".R.T.." ---------------------
-----------------"...Y..".. PRESS
A NUMBER KEY (1-5) ";.&.^.UL.1:US$."1234
5":.35:. INPUT ROUTINE.8._..C(UR$).1.300
.C.`.US$."".D.C..E(UR$).1000,400,500,600
,396.M.H..300...... ** RE-ENABLE STOP KE
Y AND END **.C....B(50003)..1.B(50003)..
160.B(50003)..0.399......UU.71:.B(50003)
.0..53281,6:.53280,14......"..":.......8
75:..%.... ** STUDENT INSTRUCTIONS **.;.
..UT$." DICE THROW".J....".":.UT,UL%:.B(
50003).0..53281,0:.53280,0.....UU$.UG$:P
U.UP:UP.1.....UP.0:UG$."STUDENT INST":.8
50.R...." ...YOU PROBABLY KNOW THAT WHEN
YOU THROW......" A SINGLE DIE, ALL NUMB
ERS ARE EQUALLY"... .." .LIKELY TO COME
UP.".L...." .HOWEVER, IF YOU THROW TWO D
ICE,NOT ALL".Y....". SUMS OF THE TWO NUM
BERS ARE EQUALLY"......" .LIKELY. FOR E
XAMPLE, 6 IS MUCH MORE"......" .LIKELY T
HAN 2."......" .WHAT HAPPENS WITH MORE T
HAN TWO DICE?"......835:UP.1:.850.-...."
....WHAT HAPPENS IF THE DICE HAVE A".V.
..." .DIFFERENT # OF FACES BESIDES 6?"..
...." ..THIS PROGRAM WILL THROW AS MANY
AS 6"......" .DICE WITH AS MANY AS 20 FA
CES EACH"......" .AS MANY TIMES AS YOU L
IKE AND KEEP"......" .TRACK OF THE SUMS
IN A GRAPH FOR YOU.".@...." ...NOTE.:TO
BREAK OUT OF A GRAPH PRESS (H).".M...."
THIS WILL SEND YOU BACK TO THE MENU.".{.
...835:.850......". IN THE EVENT THAT MO
RE THAN 10 OF A.Q....". NUMBER APPEAR ON
THE GRAPH, A NEW......". SYMBOL WILL AP
PEAR TO REPRESENT THE......". LARGER UNI
T.".?....".. THESE SYMBOLS APPEAR IN THE
ORDER:.M....". W, C, V, Q, ., . ., !,
S, .V., .Q.".{.G..835:.850...L.." ..NOT
E:...TO ADVANCE FROM ONE QUESTION".S.V..
". TO THE NEXT PRESS THE SPACE BAR".....
." .......IF AT ANY TIME YOU WISH TO RET
URN".(...." .TO THE MENU PRESS H RETURN"
.1....835.E....UZ.1..UP%:.217.W...UG$.UU
$:UP.PU.].....~.... ** TEACHER INSTRUCTI
ONS **......".":.UT,UL%:.B(50003).0..532
81,2:.53280,10.....UT$." DICE THROW":UP.
0:UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".8...."
THIS PROGRAM IS IN THE PUBLIC.".D...."
DOMAIN. IF THIS IS NOT THE CASE."....
.." PLEASE CONTACT:..."......" CO
MMODORE BUSINESS MACHINES.".N...."
3370 PHARMACY AVE......." A
GINCOURT, ONTARIO"......" CANAD
A M1W 2K4".4...." (416) 499-4
292".J...UP.1:. 835:. 850:.T...." ..
PROGRAM NAME: DICE THROW ......."
WRITTEN BY : BILL FINZER ......." U
PGRADED BY : ......." .THIS
PROGRAM WILL RUN ON ANY........"
PET 64 COMPUTER../...." COMMOD
ORE 64 COMPUTER.8.D..835.L.N..UZ.1..UP%:
.217.^.V.UG$.UU$:UP.PU.D.W.....X.. ** PR
OGRAM MODIFICATION INST **...Y..".":.UT,
UL%...Z.UU$.UG$:PU.UP:UP.1.R.].UP.0:UG$.
"PROGRAM MOD":.850...B.." ...THERE IS ON
E MODIFICATION THAT CAN BE".-.G.." MADE.
THIS IS FOUND IN LINE 1780.".^.L.." ...
..E.G. 1780...UL=7 (7 MEANS 7 DIGITS)"..
.Q.." ..IF YOU WANT 999 TO BE HIGHEST NU
MBER OF"...T.." POSSIBLE THROWS(9,999,99
9 IS MAX NOW)"...V.." .CHANGE UL=7 TO UL
=3."......835......UZ.1..UP%:.217.....UG
$.UU$:UP.PU.......6.... ** TO USE 8032 L
OAD CBM4032 **.L.F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM............
."...Z..UU.71.......X.... ** TO USE 8032
LOAD CBM4032 **.#...."....BEFORE RUNNIN
G THIS PROGRAM ON AN 8032 ..LOAD CBM 40
32 PROGRAM"./....1093:..O. .. ** T I T L
E P A G E **...".."....";:.UT,UU%:.B(
50003).0..53280,14:.53281,6...$..I.1.38:
."...";:....&..I.1.22:.".....";:..I.(..I
.1.37:.".....";:....*..I.1.22:.".....";:
....,.."........................... ..(
...."................... . . ...I.0..".
.................. . ....G.2.."........
............ ....4.."..............C O
M M O D O R E.....6.."...............EDU
CATIONAL...Q.8.."................SOFTWAR
E...:.. ** COMMODORE LOGO **.$.;..H(UD$,
24);"..........PRESS SPACE BAR OR WAIT."
:I.0.F.<..A$:.A$.." ".I.I.1:.I.250.828.J
.>.T1$."":T2$."":T3$."":T4$."":I.0.S.@..
300...C.. ** SPACE BAR PRESS **.J.H..UO,
0:.H(UD$,24);".......PRESS SPACE BAR TO
CONTINUE."...L..UI$:.UI$.." ".844...N...
. R.. ** PAGE DESIGN ROUTINE **.. T.UP.U
P.1.= W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP
),18).L \.." ---------------------------
-----------".{ `..UH..0.870.. A..H(UD$,2
4);H(UP$,7);"HELP - PRESS H <RETURN>".
. F.UH.0:."..":... K.. ** PLEASE WAIT RE
MARK **..!P..H(UD$,24);" ONE M
OMENT PLEASE... "..!U...8!... ** SET
UP VARIABLES **..!..UX$."H":.UQ%(1000):
UB.32768:U1.196:U2.197:U3.198:U4.216:UC.
167:UU.1024.A!..UT.59468:UU%.12:UL%.14:U
P%.1146:UM.32768:UO.158:. 50003,0.."...B
(50003).0.UB.1024:U1.209:U2.210:U3.211:U
4.214:UC.204:UU.2048.C"...B(50003).0.UT.
53272:UU%.21:UL%.23:UP%.2139:UM.1024:UO.
198.G"..UD$.".........................".
."..UP$."
".."..UT$." DICE THROW ":
. PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!
!!!!***..".....#... ** SET VARIABLES **.
8#..QQ$."
".Y#..MD.20:MS.40:. SUM(MS),C$(10
).B#...900.H#..:.N#..:..#... ** CHECK FO
R 8032 **..#...".":." ":. SHIFTED SPACE.
.#...B(UB.40)..96..700.W#... ** MEMORY C
HECK **..#... .(0).2000.937..$..."....TH
IS MACHINE DOES NOT HAVE ENOUGH.".=$..."
MEMORY TO RUN THIS PROGRAM !".H$...UU.71
.N$....H$..."..":.B(50003).0.962..$... *
* BASIC 2.0 OR 4.0 OR C-64 SETUP **.
U$...1075,133:.1076,144:.1077,234:.1079,
4:.1080,133:.1081,145..%...1091,155:.109
8,133:.1099,144:.1100,234:.1103,133.-%..
.1104,145:.1105,234:.1082,234.D%...B(500
03)..160.955.S%...1093,88:.1094,228:.109
7,85:.1102,228:.965..%...B(50003)..1.990
..%...1093,49:.1094,230:.1097,46:.1102,2
30:.965..%B..2099,141:.2100,20:.2101,3:.
2103,8:.2104,141:.2105,21.-&C..2106,3:.2
115,145:.2117,52:.2118,234:.2121,49:.212
2,141.G&D..2123,20:.2124,3:.2126,234:.21
27,141:.2128,21:.2129,3..&E..UU.48:. DIS
ABLE STOP KEY..&J..800:. TITLE..&T..300:
. MENU.W&...".THE PGM WILL NOT WORK ON T
HIS MACHINE!":...'...UZ.1..UP%:.UP%:UZ.0
:. ** PROGRAM STARTS HERE **.8'..."..";:
.:.B(50003).0..53281,6:.53280,14.Z'..UP.
0:UG$."":UT$." DICE THROW".Z'... DICE TH
ROW BY BILL FINZER..'... OCTOBER,1978..'
... MAIN CALLING ROUTINE..'... MODIFIED
FOR EXPERIENCE '82 BY JAMES VAS
EY,SARNIA...($.. 119 0: . INITIALIZE..(8
.. 1620: . INPUT.1(B.. 1810: . DRAW GRAP
H.M(L.. 2160: . PRINT HEADING.G(V.. 2280
:. START TRIALS..(`.. 2770: . MAKE TABLE
..(J.."............ WOULD YOU LIKE ANOTH
ER EXPERIMENT? ";.W(T.US$."YN":UL.1:.35:
AN$.UR$..(~.. AN$."Y" . 1060..(...300..)
... INITIALIZE..)..T..(.TI).H)..RGHT$.".
......................................."
.M)D.DWN$."........................."..)
N.BLANK$."
"..)X.. I.1 . MS..)..SUM(I).0.F
)... I..)..."W","C","V","Q",".",". .","!
","S",".V.",".Q."..*... C.1 . 10..*... C
$(C)..*... C."*....(*(...F*T.. INPUT ND,
NF,& NT& SPEED.O*Y..".".Q*^.. # DIC
E,#FACES,# THROWS.Z*`..850..*H..". HOW M
ANY DICE ";:US$."123456":UL.1:.35:ND.E(U
R$)..*...". YOU CAN ALSO TAKE MANUAL CON
TROL...+...". HOW MANY FACES ON EACH DIE
(<21) ...";:US$."0123456789".,+..UL.2
:.35.:+..NF.E(UR$).I+...NF.20..". TOO MA
NY,TRY AGAIN":.A.1.1000:...+...NF.20..30
00:.1670..+... ND.NF.37 . 1730..+...". M
Y SCREEN IS TOO NARROW FOR THAT...+...".
PLEASE MAKE #DICE * #FACES < 37"..+...A
.1.1700:.:.3000..,..UP.UP.1:.850:. 1640.
V,B..". HOW MANY THROWS ";:US$."12345678
90":UL.7:.35:NT.E(UR$)..,L.. NT.0 ..". D
ON'T YOU WANT AT LEAST ONE? TRY AGAIN.".
.,Q..NT.0..A.1.1700:.:.3000:.1600..,S..8
50..,V.." .YOU CAN HAVE ME GO FAST OR SL
OW."..-..." .IF SLOW THEN YOU CAN SEE TH
E DICE.".?-..." .IF MANUAL, THEN YOU CON
TOL EACH STEP.".I-..."... WHICH WOULD YO
U LIKE (S,F,M) ";..-..US$."SFM":UL.1:.35
..-..YY$.H(UR$,1):.YY$.."S".YY$.."F".YY$
.."M".1780.A-..SPEED$.UR$.X-..SPEED$.H(S
PEED$,1)..-.....-... DRAW GRAPH.....MAX.
ND.NF.ND.1...&.IV. .(36.(MAX.1)).1.#.0..
".".7.:.X.5:Y.3: . 2110.G.D.. I.1 . MAX.
V.N.. J.1 . IV.G.X..IV.0 . 1900.Q.B.."."
;.Y.L.. J...V.."*";...... I.....X.4:Y.2:
. 2110...... I. ND . ND.NF.I...X.X .IV.1
: . 2110.....N$.I(D(I),C(D(I)).1)../...
IV.0 . I.5...(I.5) . 1990../... N$;../F
.. I.#/P.WIDTH . IV.//Z.X.2:Y.2.>/... I.
0 . 15.O/..Y.Y.1:. 2110.{/... I.5 ...(I.
5) . ." .";: . 2090../...WIDTH.0
..I(" ".D(I)."*",3);:.2090.C/... PRIN
T".";STR$(I*WIDTH);../... IF LEN(STR$(I
*WIDTH))=2 THEN PRINT" ";..0 ..I(" ".D
(I.WI)."*",3);..0*.. I..04...50>.. MOVE
CURSOR TO X,Y.L0H..".";:. X.0 . 2140.A0R
..".";H(RGHT$,X);.T0\..H(DWN$,24.Y);.Z0F
....0P.. PRINT HEADING..0Z..". # DICE ="
ND" # FACES ="NF.L0|.." # THROWS
="NT..0... PRINT"..PRESS S,F,M,H(END)T
O CHANGE SPEED".$1... PRINT"...ORDER O
F SYMBOLS:";.31... I.1 . 10.K1... PRINT
C$(I);" ";.S1... I.Y1....O1... DELAY W
SECONDS.Y1J.TM.TI..1T.. TI.TM.W.60 . 226
0..1.....1... START THROWING DICE.A1...
I. 1 . NT.I1..S.0.X1... J.1 . ND..1..T.
.(.(1).NF).1..2... SPEED$."S" . SPEED$."
M" . . 2540..2$.S.S.T.'2... AN$.A23.. AN
$."F". SPEED$."F".\28.. AN$."S" . SPEED$
."S".W2B.. AN$."M" . SPEED$."M"..2G.. AN
$."H".300..2L.. J..2V.SUM(S).SUM(S).1..2
`.. 2430..2J.. I..2T...U2~.. DISPLAY ON
GRAPH..3... WIDTH.0 . X.5.ND.S:Y.3.SUM(S
): . 2480.53..X.3.ND.S.SUM(S).WIDTH.(S..
5.ND..(SUM(S).WIDTH)).K3... WIDTH.1 . X.
X.1.G3..Y.4..((SUM(S).1).WIDTH)..3..C.1
: . CHARACTER POINTER..3... Y.16 . Y.Y.1
5:C.C.1: . 2490.O3D.. C.10
. C.C.10:. 2500.Z3N.. 2110..3X..C$(C)..3
.....3... SHOW EACH DIE..4... J IS THE #
OF THE DIE.74... T IS THE # ON THE DIE.
P4..."....";.5.(J.1).5);..4...". ....
. ..... ..... .......";..4... T
. 2600,2610,2620,2630,2640,2650,2660,26
70,2680:. 2690..4(..". ..... . .....
..... ."; :. 2700.$52..". ...
.. . ..... . ..... ."; :. 2700.W5<
..". . ..... . ..... . ..... .";
:. 2700..5F..".. . ..... ...... . ...
.. ."; :. 2700..5P..".. . ..... . .
..... . ..... ."; :. 2700..5Z..".. .
...... . ...... . ..... ."; :. 2700
.#6D..".. . ........ ...... . ..... .
"; :. 2700.V6N..".... ...... . ........
..... ."; :. 2700..6X..".... ......
.. ........ ..... ."; :. 2700..6..."
. .....";D(T);" ..... ..... .";
: . 2700..6..." "I:. SPEED$."S" . J..N
D . 2760..6..Y.22:X.34:. 2110..7... AN$.
"F" . SPEED$."F".37... AN$."S" . SPEED$.
"S".<7...835.O7...H(UD$,24);QQ$.U7H...H7
R.. DRAW A TABLE..7...H(UD$,25);" WOULD
YOU LIKE A TABLE OF RESULTS? ";..7..US$.
"YN":UL.1:.35:AN$.UR$.R7... AN$."N" . 28
85..7...". # DICE ="ND" # FACES =
"NF.%8..." # TRIALS ="NT".... SUM # TH
ROWS".18..S.1:L.0.D8... I.ND . ND.NF.V8"
...S);I,SUM(I).`8,.L.L.1..86.. L.16 . S.
20:."....".S)"SUM # THROWS":L.0..8@..
I:.835..8E.."."..8J....8..QQ$."
"..9..."..
.":.I.1.3:.QQ$:.:."......":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL