CRAPS.C3
FILE INFORMATION
FILENAME(S): CRAPS.C3
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-12-02 22:47:27
APPEARS ON: 2 disk(s)
FILE HASH
1d752b432a524995d3bb6abb3cfae27401409e37858933d409e953b0e8f19806
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 CHRIS FREE | CRAPS.C3 | PRG | swasti, charly | 7 | 0 | DOWNLOAD FILE |
| C64 CHRIS FREE | CRAPS.C3 | PRG | swasti, charly | 7 | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 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 4E 0A 2B 00 8B 20 55 53 24 B3 B1 22 22 |80.N.+.. US$..""|
00000240: 20 A7 20 55 53 24 B2 55 53 24 AA 55 58 24 00 61 | . US$.US$.UX$.a|
00000250: 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C |.-.." ..";:.UC,|
00000260: 30 00 75 0A 32 00 A1 55 49 24 3A 8B 55 49 24 B2 |0.u.2..UI$:.UI$.|
00000270: 22 22 A7 35 30 00 9F 0A 37 00 8B 55 49 24 B2 C7 |"".50...7..UI$..|
00000280: 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 |(13)..(UR$)..1..|
00000290: 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 |UC,1:." .";:.85.|
000002A0: B2 0A 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 |..<..UI$..(20).1|
000002B0: 30 35 00 C6 0A 3E 00 8B 20 C3 28 55 52 24 29 B2 |05...>.. .(UR$).|
000002C0: B1 55 4C A7 35 30 00 EB 0A 41 00 8D 31 32 30 3A |.UL.50...A..120:|
000002D0: 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |. CHECK FOR VALI|
000002E0: 44 20 43 48 41 52 41 43 54 45 52 00 FB 0A 46 00 |D CHARACTER...F.|
000002F0: 55 52 24 B2 55 52 24 AA 55 49 24 00 05 0B 4B 00 |UR$.UR$.UI$...K.|
00000300: 99 55 49 24 3B 00 0D 0B 50 00 89 35 30 00 32 0B |.UI$;...P..50.2.|
00000310: 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F |U.. +++ CHECK FO|
00000320: 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B |R HELP REQUEST +|
00000330: 2B 2B 00 5A 0B 5A 00 8B 55 52 24 B2 55 58 24 A7 |++.Z.Z..UR$.UX$.|
00000340: 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 |195:. EXIT TO HE|
00000350: 4C 50 20 52 4F 55 54 49 4E 45 00 69 0B 5F 00 8B |LP ROUTINE.i._..|
00000360: 55 46 B2 31 A7 8D 32 34 30 00 76 0B 64 00 55 46 |UF.1..240.v.d.UF|
00000370: B2 30 3A 99 3A 8E 00 8F 0B 66 00 8F 20 2B 2B 20 |.0:.:....f.. ++ |
00000380: 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 |CHECK DELETE ++.|
00000390: A0 0B 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 |..i...(UR$).1.50|
000003A0: 00 B8 0B 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 |...n.UR$..(UR$,.|
000003B0: 28 55 52 24 29 AB 31 29 00 CA 0B 73 00 99 22 9D |(UR$).1)...s..".|
000003C0: 20 20 9D 9D 22 3B 3A 89 35 30 00 F1 0B 78 00 8F | ..";:.50...x..|
000003D0: 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 | ++ CHECK FOR VA|
000003E0: 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 2B |LID CHARACTERS +|
000003F0: 2B 00 03 0C 7D 00 8B C3 28 55 53 24 29 B2 30 A7 |+...}...(US$).0.|
00000400: 31 35 30 00 13 0C 7F 00 55 53 24 B2 55 53 24 AA |150.....US$.US$.|
00000410: 55 58 24 00 24 0C 82 00 81 55 53 B2 31 A4 C3 28 |UX$.$....US.1..(|
00000420: 55 53 24 29 00 3B 0C 87 00 8B 55 49 24 B2 CA 28 |US$).;....UI$..(|
00000430: 55 53 24 2C 55 53 2C 31 29 A7 8E 00 41 0C 8C 00 |US$,US,1)...A...|
00000440: 82 00 4E 0C 91 00 55 49 24 B2 22 22 3A 8E 00 69 |..N...UI$."":..i|
00000450: 0C 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 |.... ** STANDARD|
00000460: 20 49 4E 50 55 54 20 2A 2A 00 7A 0C 98 00 8B C6 | INPUT **.z.....|
00000470: 28 55 49 24 29 B2 34 36 A7 8E 00 8B 0C 9B 00 8B |(UI$).46........|
00000480: 55 49 24 B2 C7 28 33 32 29 A7 8E 00 A8 0C A0 00 |UI$..(32).......|
00000490: 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 |..(UI$).48..(UI$|
000004A0: 29 B1 35 37 A7 31 37 30 00 AE 0C A5 00 8E 00 CB |).57.170........|
000004B0: 0C AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 |.....(UI$).65..(|
000004C0: 55 49 24 29 B1 39 30 A7 31 38 30 00 D1 0C AF 00 |UI$).90.180.....|
000004D0: 8E 00 F5 0C B4 00 8B C6 28 55 49 24 29 B3 31 39 |........(UI$).19|
000004E0: 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 |3..(UI$).218.UI$|
000004F0: B2 22 22 3A 8E 00 18 0D B9 00 8B C2 28 55 54 29 |."":........(UT)|
00000500: B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 |.UU%.UI$..(.(UI$|
00000510: 29 AB 31 32 38 29 3A 8E 00 1E 0D BB 00 8E 00 2B |).128):........+|
00000520: 0D BE 00 55 49 24 B2 22 22 3A 8E 00 50 0D C3 00 |...UI$."":..P...|
00000530: 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 |UF.1:. +++ HELP |
00000540: 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B |ROUTINE EXIT +++|
00000550: 00 59 0D C5 00 8D 32 35 30 00 62 0D C8 00 8D 32 |.Y....250.b....2|
00000560: 34 35 00 81 0D CD 00 81 55 51 B2 55 42 A4 28 55 |45......UQ.UB.(U|
00000570: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 |2%.256.U1%.U3%.2|
00000580: 29 00 9D 0D D2 00 55 51 25 28 55 51 AB 55 42 29 |).....UQ%(UQ.UB)|
00000590: B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 B0 0D |..(UQ):.:."."...|
000005A0: D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 |..UZ.1:UV%..(UT)|
000005B0: 00 B9 0D D8 00 89 33 30 30 00 DE 0D D9 00 55 5A |......300.....UZ|
000005C0: B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 |.0:US$.UJ$:UG$.U|
000005D0: 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 15 |K$:UP.UJ:UL.UK..|
000005E0: 0E DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |.....(50003).0..|
000005F0: 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 |53281,1:.".";:.5|
00000600: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000610: 3A 89 32 32 30 00 1F 0E DB 00 99 22 93 22 3B 00 |:.220......".";.|
00000620: 4E 0E DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C |N...UT$.UL$:.UT,|
00000630: 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC |UV%:.UQ.UB.(U2%.|
00000640: 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 63 |256.U1%.U3%.3).c|
00000650: 0E E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
00000660: 29 3A 82 00 6F 0E E6 00 97 55 31 2C 55 31 25 00 |):..o....U1,U1%.|
00000670: 7B 0E E8 00 97 55 32 2C 55 32 25 00 87 0E E9 00 |{....U2,U2%.....|
00000680: 97 55 34 2C 55 34 25 00 95 0E EA 00 97 55 33 2C |.U4,U4%......U3,|
00000690: 55 33 25 AB 31 00 9D 0E EB 00 89 33 35 00 CF 0E |U3%.1......35...|
000006A0: F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA |..UD%.((U2%.256.|
000006B0: 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A |U1%.U3%).UB).40:|
000006C0: 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 |..(UD$,UD%.1):..|
000006D0: 0A 0F F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 |......(UD$,24);"|
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D | . HELP COM|
00000700: 49 4E 47 20 92 20 20 22 3A 8E 00 36 0F FA 00 55 |ING . ":..6...U|
00000710: 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 |1%..(U1):U2%..(U|
00000720: 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 |2):U3%..(U3):U4%|
00000730: B2 C2 28 55 34 29 00 5E 0F FB 00 55 4A 24 B2 55 |..(U4).^...UJ$.U|
00000740: 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 |S$:UK$.UG$:UL$.U|
00000750: 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 64 |T$:UJ.UP:UK.UL.d|
00000760: 0F FF 00 8E 00 75 0F 2C 01 8F 20 2A 2A 20 4D 45 |.....u.,.. ** ME|
00000770: 4E 55 20 2A 2A 00 7B 0F 2D 01 3A 00 AA 0F 2E 01 |NU **.{.-.:.....|
00000780: 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |.".":.UT,UU%:..(|
00000790: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000007A0: 39 3A 97 35 33 32 38 30 2C 38 00 B0 0F 2F 01 3A |9:.53280,8.../.:|
000007B0: 00 CD 0F 31 01 99 22 13 20 20 20 20 20 20 20 20 |...1..". |
000007C0: 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 FC 0F | MENU"...|
000007D0: 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6.." -----------|
000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 1F 10 3B |-----------"...;|
00000800: 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 |..".. 1. |
00000810: 20 42 45 47 49 4E 20 43 52 41 50 53 20 20 22 00 | BEGIN CRAPS ".|
00000820: 49 10 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |I.@..".. 2|
00000830: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000840: 52 55 43 54 49 4F 4E 53 22 00 73 10 45 01 99 22 |RUCTIONS".s.E.."|
00000850: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000860: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000870: 4E 53 22 00 8F 10 4F 01 99 22 11 11 20 20 20 20 |NS"...O..".. |
00000880: 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 | 4. QUIT..".|
00000890: BE 10 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..T.." ---------|
000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E9 |-------------"..|
000008C0: 10 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR|
000008D0: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
000008E0: 20 28 31 2D 34 29 20 22 3B 00 11 11 5E 01 55 4C | (1-4) ";...^.UL|
000008F0: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3|
00000900: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN|
00000910: 45 00 23 11 5F 01 8B C3 28 55 52 24 29 B1 31 A7 |E.#._...(UR$).1.|
00000920: 33 30 30 00 2E 11 60 01 55 53 24 B2 22 22 00 4B |300...`.US$."".K|
00000930: 11 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C |.c...(UR$).1000,|
00000940: 34 30 30 2C 35 30 30 2C 33 39 36 00 54 11 68 01 |400,500,396.T.h.|
00000950: 89 33 30 30 00 7B 11 8B 01 8F 20 2A 2A 20 52 45 |.300.{.... ** RE|
00000960: 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |-ENABLE STOP KEY|
00000970: 20 41 4E 44 20 45 4E 44 20 2A 2A 00 AA 11 8C 01 | AND END **.....|
00000980: 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 |..(50003)..1..(5|
00000990: 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 |0003)..160..(500|
000009A0: 30 33 29 B3 B1 30 A7 33 39 39 00 D4 11 8D 01 9E |03)..0.399......|
000009B0: 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 |UU.71:..(50003).|
000009C0: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
000009D0: 30 2C 31 34 00 E0 11 8E 01 99 22 9A 93 22 3A 80 |0,14......"..":.|
000009E0: 00 EB 11 8F 01 8D 38 37 35 3A 8E 00 0C 12 90 01 |......875:......|
000009F0: 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 |. ** STUDENT INS|
00000A00: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 1D 12 92 |TRUCTIONS **....|
00000A10: 01 55 54 24 B2 22 20 C3 52 41 50 53 22 00 4C 12 |.UT$." .RAPS".L.|
00000A20: 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
00000A30: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000A40: 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 6D 12 9A |1,0:.53280,0.m..|
00000A50: 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 |.UP.0:UG$.".TUDE|
00000A60: 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 9D 12 |NT .NST":.850...|
00000A70: 9C 01 99 22 11 20 20 20 D4 48 49 53 20 47 41 4D |...". .HIS GAM|
00000A80: 45 20 53 49 4D 55 4C 41 54 45 53 20 41 20 47 41 |E SIMULATES A GA|
00000A90: 4D 45 20 4F 46 20 43 52 41 50 53 2E 22 00 CB 12 |ME OF CRAPS."...|
00000AA0: 9E 01 99 22 11 20 D4 48 45 20 4E 55 4D 42 45 52 |...". .HE NUMBER|
00000AB0: 53 20 32 2C 20 33 2C 20 41 4E 44 20 31 32 20 41 |S 2, 3, AND 12 A|
00000AC0: 52 45 20 4C 4F 53 45 52 53 2E 22 00 F8 12 A0 01 |RE LOSERS.".....|
00000AD0: 99 22 11 20 C9 46 20 59 4F 55 20 47 45 54 20 54 |.". .F YOU GET T|
00000AE0: 48 45 4D 20 4F 4E 20 41 20 52 4F 4C 4C 20 59 4F |HEM ON A ROLL YO|
00000AF0: 55 20 4C 4F 53 45 2E 22 00 26 13 A1 01 99 22 11 |U LOSE.".&....".|
00000B00: 20 D4 48 45 20 4E 55 4D 42 45 52 20 31 31 20 49 | .HE NUMBER 11 I|
00000B10: 53 20 41 20 57 49 4E 4E 45 52 20 49 46 20 59 4F |S A WINNER IF YO|
00000B20: 55 20 47 45 54 22 00 45 13 A2 01 99 22 11 20 49 |U GET".E....". I|
00000B30: 54 20 4F 4E 20 54 48 45 20 46 49 52 53 54 20 52 |T ON THE FIRST R|
00000B40: 4F 4C 4C 2E 22 00 72 13 A3 01 99 22 11 20 D4 48 |OLL.".r....". .H|
00000B50: 45 20 4E 55 4D 42 45 52 20 37 20 43 41 4E 20 42 |E NUMBER 7 CAN B|
00000B60: 45 20 45 49 54 48 45 52 20 41 20 57 49 4E 4E 45 |E EITHER A WINNE|
00000B70: 52 22 00 A1 13 A4 01 99 22 11 20 4F 52 20 41 20 |R"......". OR A |
00000B80: 4C 4F 53 45 52 2E 20 C9 46 20 59 4F 55 20 47 45 |LOSER. .F YOU GE|
00000B90: 54 20 37 20 4F 4E 20 54 48 45 20 46 49 52 53 54 |T 7 ON THE FIRST|
00000BA0: 22 00 CD 13 A6 01 99 22 11 20 52 4F 4C 4C 20 59 |"......". ROLL Y|
00000BB0: 4F 55 20 57 49 4E 3A 20 49 46 20 59 4F 55 20 47 |OU WIN: IF YOU G|
00000BC0: 45 54 20 49 54 20 4F 4E 20 41 4E 59 22 00 F0 13 |ET IT ON ANY"...|
00000BD0: A8 01 99 22 11 20 53 55 42 53 45 51 55 45 4E 54 |...". SUBSEQUENT|
00000BE0: 20 52 4F 4C 4C 20 59 4F 55 20 4C 4F 53 45 2E 22 | ROLL YOU LOSE."|
00000BF0: 00 FE 13 A9 01 8D 38 33 35 3A 8D 38 35 30 00 2D |......835:.850.-|
00000C00: 14 AA 01 99 22 11 20 C9 46 20 59 4F 55 52 20 46 |....". .F YOUR F|
00000C10: 49 52 53 54 20 52 4F 4C 4C 20 49 53 20 4E 4F 54 |IRST ROLL IS NOT|
00000C20: 20 4F 4E 45 20 4F 46 20 54 48 45 20 22 00 58 14 | ONE OF THE ".X.|
00000C30: AC 01 99 22 11 20 50 52 45 56 49 4F 55 53 4C 59 |...". PREVIOUSLY|
00000C40: 20 4D 45 4E 54 49 4F 4E 45 44 20 4E 55 4D 42 45 | MENTIONED NUMBE|
00000C50: 52 53 20 54 48 45 4E 22 00 86 14 AE 01 99 22 11 |RS THEN"......".|
00000C60: 20 54 48 45 20 4E 55 4D 42 45 52 20 42 45 43 4F | THE NUMBER BECO|
00000C70: 4D 45 53 20 54 48 45 20 50 4F 49 4E 54 20 41 4E |MES THE POINT AN|
00000C80: 44 20 54 48 45 22 00 B4 14 B0 01 99 22 11 20 43 |D THE"......". C|
00000C90: 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 43 4F 4E |OMPUTER WILL CON|
00000CA0: 54 49 4E 55 45 20 54 4F 20 52 4F 4C 4C 20 55 4E |TINUE TO ROLL UN|
00000CB0: 54 49 4C 22 00 DE 14 B2 01 99 22 11 20 49 54 20 |TIL"......". IT |
00000CC0: 47 45 54 53 20 54 48 45 20 50 4F 49 4E 54 20 4F |GETS THE POINT O|
00000CD0: 52 20 4F 4E 45 20 4F 46 20 54 48 45 20 22 00 F9 |R ONE OF THE "..|
00000CE0: 14 B4 01 99 22 11 20 41 55 54 4F 4D 41 54 49 43 |....". AUTOMATIC|
00000CF0: 20 4C 4F 53 45 52 53 2E 22 00 2D 15 DB 01 99 22 | LOSERS.".-...."|
00000D00: 11 11 20 12 CE 4F 54 45 3A 92 11 C9 46 20 41 54 |.. ..OTE:...F AT|
00000D10: 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 | ANY TIME YOU WI|
00000D20: 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 51 15 |SH TO RETURN".Q.|
00000D30: E0 01 99 22 11 20 54 4F 20 54 48 45 20 CD C5 CE |...". TO THE ...|
00000D40: D5 20 50 52 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE |. PRESS H ......|
00000D50: 22 00 5A 15 E5 01 8D 38 33 35 00 6E 15 EA 01 8B |".Z....835.n....|
00000D60: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 74 |UZ.1..UP%:.217.t|
00000D70: 15 F3 01 8E 00 95 15 F4 01 8F 20 2A 2A 20 54 45 |.......... ** TE|
00000D80: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000D90: 4E 53 20 2A 2A 00 C5 15 F5 01 99 22 93 22 3A 97 |NS **......".":.|
00000DA0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000DB0: B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 |.0..53281,2:.532|
00000DC0: 38 30 2C 31 30 00 F3 15 F6 01 55 54 24 B2 22 20 |80,10.....UT$." |
00000DD0: C3 52 41 50 53 22 3A 55 50 B2 30 3A 55 47 24 B2 |.RAPS":UP.0:UG$.|
00000DE0: 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D |".EACHER .NST":.|
00000DF0: 38 35 30 00 21 16 F7 01 99 22 11 11 20 20 20 20 |850.!....".. |
00000E00: 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 | .O THE BEST OF|
00000E10: 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 | OUR KNOWLEDGE,.|
00000E20: 22 00 4A 16 F8 01 99 22 20 20 20 54 48 49 53 20 |".J...." THIS |
00000E30: 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 |PROGRAM IS IN TH|
00000E40: 45 20 50 55 42 4C 49 43 11 22 00 76 16 F9 01 99 |E PUBLIC.".v....|
00000E50: 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 |" DOMAIN. .F |
00000E60: 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 |THIS IS NOT THE |
00000E70: 43 41 53 45 11 22 00 93 16 FA 01 99 22 20 20 20 |CASE."......" |
00000E80: 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 |PLEASE CONTACT:.|
00000E90: 11 11 22 00 BD 16 FB 01 99 22 20 20 20 20 20 20 |.."......" |
00000EA0: C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 |.OMMODORE .USINE|
00000EB0: 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 E0 16 |SS .ACHINES."...|
00000EC0: FC 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 |..." 33|
00000ED0: 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E |70 .HARMACY .VE.|
00000EE0: 00 04 17 FD 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000EF0: 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 | .GINCOURT, .NTA|
00000F00: 52 49 4F 22 00 26 17 FE 01 99 22 20 20 20 20 20 |RIO".&...." |
00000F10: 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 | .ANADA .1|
00000F20: D7 20 32 CB 34 22 00 46 17 FF 01 99 22 20 20 20 |. 2.4".F...." |
00000F30: 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 | (416) 499|
00000F40: 2D 34 32 39 32 22 00 5C 17 00 02 55 50 B2 31 3A |-4292".\...UP.1:|
00000F50: 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 7F 17 01 |. 835:. 850:....|
00000F60: 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 |.." ...ROGRA|
00000F70: 4D 20 CE 41 4D 45 3A 20 C3 52 41 50 53 20 11 00 |M .AME: .RAPS ..|
00000F80: A1 17 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 |....." .RITT|
00000F90: 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B 4E 4F 57 4E |EN .Y : .NKNOWN|
00000FA0: 11 00 C5 17 03 02 99 22 20 20 20 20 20 D5 50 47 |......." .PG|
00000FB0: 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 |RADED .Y : |
00000FC0: 20 20 20 20 11 00 F0 17 04 02 99 22 20 20 20 20 | ......." |
00000FD0: 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | ..HIS PROGRAM W|
00000FE0: 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 |ILL RUN ON ANY..|
00000FF0: 00 0F 18 07 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00001000: D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00001010: 34 18 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 |4...." .|
00001020: CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 |........ 64 ....|
00001030: D5 D4 C5 D2 00 3D 18 0C 02 89 38 33 35 00 51 18 |.....=....835.Q.|
00001040: 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |N..UZ.1..UP%:.21|
00001050: 37 00 57 18 57 02 8E 00 7D 18 58 02 8F 20 2A 2A |7.W.W...}.X.. **|
00001060: 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 | PROGRAM MODIFIC|
00001070: 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 8E 18 |ATION INST **...|
00001080: 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 AE |Y..".":.UT,UL%..|
00001090: 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F |.].UP.0:UG$.".RO|
000010A0: 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 B7 |GRAM .OD":.850..|
000010B0: 18 94 02 8D 38 33 35 00 CB 18 B2 02 8B 55 5A B2 |....835......UZ.|
000010C0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 D1 18 BB 02 |1..UP%:.217.....|
000010D0: 8E 00 F6 18 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |....... ** TO US|
000010E0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
000010F0: 30 33 32 20 2A 2A 00 2C 19 C6 02 99 22 93 11 11 |032 **.,...."...|
00001100: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001110: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001120: 20 41 4E 20 38 30 33 32 20 20 11 11 00 62 19 D0 | AN 8032 ...b..|
00001130: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001140: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001150: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001160: 11 22 00 6D 19 DA 02 9E 55 55 AA 37 31 00 73 19 |.".m....UU.71.s.|
00001170: E4 02 80 00 98 19 1D 03 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
00001180: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00001190: 4D 34 30 33 32 20 2A 2A 00 E3 19 1E 03 99 22 93 |M4032 **......".|
000011A0: 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
000011B0: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
000011C0: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 |N AN 8032 ..LOA|
000011D0: 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 |D CBM 4032 PROGR|
000011E0: 41 4D 22 00 EF 19 1F 03 9E 31 30 39 33 3A 80 00 |AM"......1093:..|
000011F0: 0F 1A 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L|
00001200: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
00001210: 43 1A 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |C.".."....";:.UT|
00001220: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00001230: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001240: 31 2C 36 00 59 1A 24 03 81 49 B2 31 A4 33 38 3A |1,6.Y.$..I.1.38:|
00001250: 99 22 12 A6 92 22 3B 3A 82 00 71 1A 26 03 81 49 |."...";:..q.&..I|
00001260: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001270: 82 00 89 1A 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."|
00001280: 9D 9D 12 A6 92 22 3B 3A 82 00 A1 1A 29 03 A1 20 |.....";:....).. |
00001290: 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 33 30 |A$:. A$.."" . 30|
000012A0: 30 00 B9 1A 2A 03 81 49 B2 31 A4 32 32 3A 99 22 |0...*..I.1.22:."|
000012B0: 91 9D 12 A6 92 22 3B 3A 82 00 DE 1A 2C 03 99 22 |.....";:....,.."|
000012C0: 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 00 |........... ...|
000012E0: 1B 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
000012F0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00001300: 00 21 1B 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.!.0..".........|
00001310: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 |.......... . ..|
00001320: DF 00 3F 1B 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..?.2.."........|
00001330: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 |............ ..|
00001340: 67 1B 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |g.4.."..........|
00001350: 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 |....C O M M O D |
00001360: 4F 20 52 20 45 11 11 00 8A 1B 36 03 99 22 1D 1D |O R E.....6.."..|
00001370: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 |.............EDU|
00001380: 43 41 54 49 4F 4E 41 4C 11 11 00 A9 1B 38 03 99 |CATIONAL.....8..|
00001390: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000013A0: 1D 53 4F 46 54 57 41 52 45 00 C4 1B 3A 03 8F 20 |.SOFTWARE...:.. |
000013B0: 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 |** COMMODORE LOG|
000013C0: 4F 20 2A 2A 00 FC 1B 3B 03 99 C8 28 55 44 24 2C |O **...;...(UD$,|
000013D0: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |24);"..........P|
000013E0: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F |RESS SPACE BAR O|
000013F0: 52 20 57 41 49 54 92 22 3A 49 B2 30 00 1E 1C 3C |R WAIT.":I.0...<|
00001400: 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 |..A$:.A$.." ".I.|
00001410: 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 42 |I.1:.I.250.828.B|
00001420: 1C 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 |.>.T1$."":T2$.""|
00001430: 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 |:T3$."":T4$."":I|
00001440: B2 30 00 4B 1C 40 03 89 33 30 30 00 67 1C 43 03 |.0.K.@..300.g.C.|
00001450: 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 |. ** SPACE BAR P|
00001460: 52 45 53 53 20 2A 2A 00 A2 1C 48 03 97 55 4F 2C |RESS **...H..UO,|
00001470: 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |0:..(UD$,24);"..|
00001480: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
00001490: 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | BAR TO CONTINUE|
000014A0: 92 22 00 B9 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 |."...L..UI$:.UI$|
000014B0: B3 B1 22 20 22 A7 38 34 34 00 BF 1C 4E 03 8E 00 |.." ".844...N...|
000014C0: DF 1C 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 |..R.. ** PAGE DE|
000014D0: 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 |SIGN ROUTINE **.|
000014E0: EB 1C 54 03 55 50 B2 55 50 AA 31 00 15 1D 57 03 |..T.UP.UP.1...W.|
000014F0: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21|
00001500: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP|
00001510: 29 2C 31 38 29 00 44 1D 5C 03 99 22 20 2D 2D 2D |),18).D.\.." ---|
00001520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001540: 2D 2D 2D 22 00 53 1D 60 03 8B 55 48 B3 B1 30 A7 |---".S.`..UH..0.|
00001550: 38 37 30 00 87 1D 61 03 99 C8 28 55 44 24 2C 32 |870...a...(UD$,2|
00001560: 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C |4);.(UP$,7);"HEL|
00001570: 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 |P - PRESS H <R|
00001580: 45 54 55 52 4E 3E 22 00 98 1D 66 03 55 48 B2 30 |ETURN>"...f.UH.0|
00001590: 3A 99 22 13 11 22 3A 8E 00 B7 1D 6B 03 8F 20 2A |:."..":....k.. *|
000015A0: 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 |* PLEASE WAIT RE|
000015B0: 4D 41 52 4B 20 2A 2A 00 ED 1D 70 03 99 C8 28 55 |MARK **...p...(U|
000015C0: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
000015D0: 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C | ONE MOMENT PL|
000015E0: 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 F3 1D |EASE... "...|
000015F0: 75 03 8E 00 10 1E 84 03 8F 20 2A 2A 20 53 45 54 |u........ ** SET|
00001600: 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | UP VARIABLES **|
00001610: 00 5B 1E 85 03 55 58 24 B2 22 48 22 3A 86 55 51 |.[...UX$."H":.UQ|
00001620: 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 |%(1000):UB.32768|
00001630: 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 |:U1.196:U2.197:U|
00001640: 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 |3.198:U4.216:UC.|
00001650: 31 36 37 3A 55 55 B2 31 30 32 34 00 99 1E 86 03 |167:UU.1024.....|
00001660: 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A |UT.59468:UU%.12:|
00001670: 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A |UL%.14:UP%.1146:|
00001680: 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A |UM.32768:UO.158:|
00001690: 97 20 35 30 30 30 33 2C 30 00 DC 1E 87 03 8B C2 |. 50003,0.......|
000016A0: 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 |(50003).0.UB.102|
000016B0: 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A |4:U1.209:U2.210:|
000016C0: 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 |U3.211:U4.214:UC|
000016D0: B2 32 30 34 3A 55 55 B2 32 30 34 38 00 1B 1F 88 |.204:UU.2048....|
000016E0: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 |...(50003).0.UT.|
000016F0: 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 |53272:UU%.21:UL%|
00001700: B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 |.23:UP%.2139:UM.|
00001710: 31 30 32 34 3A 55 4F B2 31 39 38 00 3F 1F 89 03 |1024:UO.198.?...|
00001720: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001730: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001740: 71 1F 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 |q...UP$." |
00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001770: 22 00 BF 1F 8B 03 55 54 24 B2 22 20 C3 D2 C1 D0 |".....UT$." ....|
00001780: D3 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 3A |..............":|
00001790: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
000017A0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
000017B0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
000017C0: C5 1F 8C 03 8E 00 DF 1F 8E 03 8F 20 2A 2A 20 53 |........... ** S|
000017D0: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
000017E0: E8 1F 93 03 8D 39 30 30 00 EE 1F 94 03 3A 00 F4 |.....900.....:..|
000017F0: 1F 95 03 3A 00 0F 20 98 03 8F 20 2A 2A 20 43 48 |...:.. ... ** CH|
00001800: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
00001810: 2D 20 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |- ...".":.".":. |
00001820: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 44 20 |SHIFTED SPACE.D |
00001830: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
00001840: 8D 37 30 30 00 5D 20 A3 03 8F 20 2A 2A 20 4D 45 |.700.] ... ** ME|
00001850: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 71 20 |MORY CHECK **.q |
00001860: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
00001870: 37 00 9F 20 A5 03 99 22 93 11 11 05 54 48 49 53 |7.. ..."....THIS|
00001880: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
00001890: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
000018A0: C3 20 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |. ..."MEMORY TO |
000018B0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
000018C0: 20 21 22 00 CE 20 A7 03 9E 55 55 AA 37 31 00 D4 | !".. ...UU.71..|
000018D0: 20 A8 03 80 00 EE 20 A9 03 99 22 93 05 22 3A 8B | ..... ..."..":.|
000018E0: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 1D |.(50003).0.962..|
000018F0: 21 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |!... ** BASIC 2.|
00001900: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
00001910: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 5B 21 |C-64 SETUP **.[!|
00001920: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
00001930: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
00001940: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
00001950: 33 3A 97 31 30 38 31 2C 31 34 35 00 91 21 AE 03 |3:.1081,145..!..|
00001960: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
00001970: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
00001980: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
00001990: 33 00 B3 21 AF 03 97 31 31 30 34 2C 31 34 35 3A |3..!...1104,145:|
000019A0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
000019B0: 32 33 34 00 CA 21 B1 03 8B C2 28 35 30 30 30 33 |234..!....(50003|
000019C0: 29 B3 B1 31 36 30 A7 39 35 35 00 F9 21 B6 03 97 |)..160.955..!...|
000019D0: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
000019E0: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
000019F0: 2C 32 32 38 3A 89 39 36 35 00 0E 22 BB 03 8B C2 |,228:.965.."....|
00001A00: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 3D |(50003)..1.990.=|
00001A10: 22 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |"...1093,49:.109|
00001A20: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
00001A30: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 77 22 |1102,230:.965.w"|
00001A40: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
00001A50: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
00001A60: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
00001A70: 32 31 30 35 2C 32 31 00 B3 22 C3 03 97 32 31 30 |2105,21.."...210|
00001A80: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
00001A90: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
00001AA0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
00001AB0: 31 34 31 00 ED 22 C4 03 97 32 31 32 33 2C 32 30 |141.."...2123,20|
00001AC0: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
00001AD0: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
00001AE0: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 0B 23 |28,21:.2129,3..#|
00001AF0: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
00001B00: 4C 45 20 53 54 4F 50 20 4B 45 59 00 1C 23 CA 03 |LE STOP KEY..#..|
00001B10: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 2C 23 D4 |.800:. TITLE.,#.|
00001B20: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 5D 23 DE |..300:. MENU.]#.|
00001B30: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
00001B40: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001B50: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 92 23 |S MACHINE!":...#|
00001B60: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001B70: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001B80: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
00001B90: 2A 2A 00 BE 23 E9 03 99 22 93 05 22 3B 3A 8C 3A |**..#..."..";:.:|
00001BA0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001BB0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 DC |81,6:.53280,14..|
00001BC0: 23 EB 03 55 50 B2 30 3A 97 55 54 2C 55 4C 25 3A |#..UP.0:.UT,UL%:|
00001BD0: 55 54 24 B2 22 20 C3 52 41 50 53 22 00 EC 23 56 |UT$." .RAPS"..#V|
00001BE0: 04 55 47 24 B2 22 22 3A 8D 38 35 30 00 0F 24 60 |.UG$."":.850..$`|
00001BF0: 04 99 20 22 11 11 11 11 20 D7 48 41 54 20 49 53 |.. ".... .HAT IS|
00001C00: 20 59 4F 55 52 20 57 41 47 45 52 3F 20 22 3B 00 | YOUR WAGER? ";.|
00001C10: 36 24 6A 04 55 53 24 B2 22 30 31 32 33 34 35 36 |6$j.US$."0123456|
00001C20: 37 38 39 22 3A 55 4C B2 36 3A 8D 33 35 3A 46 B2 |789":UL.6:.35:F.|
00001C30: C5 28 55 52 24 29 00 71 24 74 04 55 48 B2 31 3A |.(UR$).q$t.UH.1:|
00001C40: 8D 38 35 30 3A 99 20 22 11 20 20 20 20 20 20 C9 |.850:. ". .|
00001C50: 20 57 49 4C 4C 20 4E 4F 57 20 54 48 52 4F 57 20 | WILL NOW THROW |
00001C60: 54 48 45 20 44 49 43 45 11 22 3A 8D 20 31 38 31 |THE DICE.":. 181|
00001C70: 30 00 83 24 7E 04 88 20 45 B2 B5 28 37 AC BB 28 |0..$~.. E..(7..(|
00001C80: 31 29 29 00 95 24 88 04 88 20 53 B2 B5 28 37 AC |1))..$... S..(7.|
00001C90: BB 28 31 29 29 00 A1 24 92 04 88 20 58 B2 45 AA |.(1))..$... X.E.|
00001CA0: 53 00 C0 24 97 04 8B C2 28 55 34 29 B1 31 36 A7 |S..$....(U4).16.|
00001CB0: 8D 38 33 35 3A CB 53 42 38 35 30 3A 99 22 11 22 |.835:.SB850:."."|
00001CC0: 00 D1 24 9C 04 8B 20 58 B2 37 20 89 20 31 33 31 |..$... X.7 . 131|
00001CD0: 30 00 E3 24 A6 04 8B 20 58 B2 31 31 20 89 20 31 |0..$... X.11 . 1|
00001CE0: 33 31 30 00 F4 24 B0 04 8B 20 58 B2 32 20 89 20 |310..$... X.2 . |
00001CF0: 31 33 34 30 00 05 25 BA 04 8B 20 58 B2 30 20 89 |1340..%... X.0 .|
00001D00: 20 31 31 35 30 00 16 25 C4 04 8B 20 58 B2 31 20 | 1150..%... X.1 |
00001D10: 89 20 31 31 35 30 00 27 25 CE 04 8B 20 58 B2 33 |. 1150.'%... X.3|
00001D20: 20 89 20 31 33 38 30 00 39 25 D8 04 8B 20 58 B2 | . 1380.9%... X.|
00001D30: 31 32 20 89 20 31 33 38 30 00 4A 25 E2 04 8B 20 |12 . 1380.J%... |
00001D40: 58 B2 35 20 89 20 31 34 33 30 00 5B 25 EC 04 8B |X.5 . 1430.[%...|
00001D50: 20 58 B2 36 20 89 20 31 34 33 30 00 6B 25 F6 04 | X.6 . 1430.k%..|
00001D60: 8B 20 58 B2 38 20 89 31 34 33 30 00 7C 25 00 05 |. X.8 .1430.|%..|
00001D70: 8B 20 58 B2 39 20 89 20 31 34 33 30 00 8E 25 0A |. X.9 . 1430..%.|
00001D80: 05 8B 20 58 B2 31 30 20 89 20 31 34 33 30 00 9F |.. X.10 . 1430..|
00001D90: 25 14 05 8B 20 58 B2 34 20 89 20 31 34 33 30 00 |%... X.4 . 1430.|
00001DA0: CB 25 1E 05 99 22 11 20 22 20 58 20 22 20 CE 41 |.%...". " X " .A|
00001DB0: 54 55 52 41 4C 2E 2E 2E C1 20 D7 49 4E 4E 45 52 |TURAL.... .INNER|
00001DC0: 21 21 21 22 3A 8D 20 31 38 31 30 00 08 26 28 05 |!!!":. 1810..&(.|
00001DD0: 99 22 11 20 22 58 22 50 41 59 53 20 45 56 45 4E |.". "X"PAYS EVEN|
00001DE0: 20 4D 4F 4E 45 59 22 3A 99 22 20 20 20 20 D9 4F | MONEY":." .O|
00001DF0: 55 20 57 49 4E 22 46 22 44 4F 4C 4C 41 52 53 2E |U WIN"F"DOLLARS.|
00001E00: 22 3A 8D 20 31 38 31 30 00 13 26 32 05 89 20 31 |":. 1810..&2.. 1|
00001E10: 34 31 30 00 3D 26 3C 05 99 22 11 20 22 58 22 D3 |410.=&<..". "X".|
00001E20: 4E 41 4B 45 20 45 59 45 53 2E 2E 2E 59 4F 55 20 |NAKE EYES...YOU |
00001E30: 4C 4F 53 45 2E 22 3A 8D 20 31 38 31 30 00 5E 26 |LOSE.":. 1810.^&|
00001E40: 46 05 99 20 22 11 11 20 20 D9 4F 55 20 4C 4F 53 |F.. ".. .OU LOS|
00001E50: 45 20 22 46 22 44 4F 4C 4C 41 52 53 2E 22 00 6A |E "F"DOLLARS.".j|
00001E60: 26 50 05 88 20 46 B2 30 AB 46 00 75 26 5A 05 89 |&P.. F.0.F.u&Z..|
00001E70: 20 31 34 31 30 00 9B 26 64 05 99 22 11 20 22 20 | 1410..&d..". " |
00001E80: 58 20 22 C3 52 41 50 53 2E 2E 2E D9 4F 55 20 4C |X ".RAPS....OU L|
00001E90: 4F 53 45 22 3A 8D 20 31 38 31 30 00 C1 26 6E 05 |OSE":. 1810..&n.|
00001EA0: 99 22 11 11 20 20 D9 4F 55 20 4C 4F 53 45 22 46 |.".. .OU LOSE"F|
00001EB0: 22 44 4F 4C 4C 41 52 53 2E 22 3A 8D 20 31 38 31 |"DOLLARS.":. 181|
00001EC0: 30 00 CD 26 78 05 88 20 46 B2 30 AB 46 00 D9 26 |0..&x.. F.0.F..&|
00001ED0: 82 05 88 20 52 B2 52 AA 46 00 E4 26 8C 05 89 20 |... R.R.F..&... |
00001EE0: 31 36 32 30 00 10 27 96 05 99 22 11 20 22 58 22 |1620..'...". "X"|
00001EF0: D0 4F 49 4E 54 2E 20 C9 20 57 49 4C 4C 20 52 4F |.OINT. . WILL RO|
00001F00: 4C 4C 20 41 47 41 49 4E 22 3A 8D 20 31 38 31 30 |LL AGAIN":. 1810|
00001F10: 00 22 27 A0 05 88 20 48 B2 B5 28 37 AC BB 28 31 |."'... H..(7..(1|
00001F20: 29 29 00 34 27 AA 05 88 20 51 B2 B5 28 37 AC BB |)).4'... Q..(7..|
00001F30: 28 31 29 29 00 40 27 B4 05 88 20 4F B2 48 AA 51 |(1)).@'... O.H.Q|
00001F40: 00 5D 27 B9 05 8B C2 28 55 34 29 B1 31 36 A7 8D |.]'....(U4).16..|
00001F50: 38 33 35 3A 8D 38 35 30 3A 99 22 11 22 00 6E 27 |835:.850:.".".n'|
00001F60: BE 05 8B 20 4F B2 31 20 89 20 31 34 34 30 00 7F |... O.1 . 1440..|
00001F70: 27 C8 05 8B 20 4F B2 37 20 89 20 31 35 33 30 00 |'... O.7 . 1530.|
00001F80: 95 27 CB 05 8B 20 4F B2 32 20 A7 20 58 B2 4F 3A |.'... O.2 . X.O:|
00001F90: 89 31 33 34 30 00 A6 27 CD 05 8B 20 4F B2 33 20 |.1340..'... O.3 |
00001FA0: A7 20 31 35 33 30 00 B8 27 CF 05 8B 20 4F B2 31 |. 1530..'... O.1|
00001FB0: 32 20 A7 20 31 35 33 30 00 C9 27 D2 05 8B 20 4F |2 . 1530..'... O|
00001FC0: B2 30 20 89 20 31 34 34 30 00 DA 27 DC 05 8B 20 |.0 . 1440..'... |
00001FD0: 4F B2 58 20 89 20 31 35 38 30 00 0A 28 E6 05 99 |O.X . 1580..(...|
00001FE0: 22 11 20 22 4F 20 22 CE 4F 20 50 4F 49 4E 54 2E |". "O ".O POINT.|
00001FF0: 20 C9 20 57 49 4C 4C 20 52 4F 4C 4C 20 41 47 41 | . WILL ROLL AGA|
00002000: 49 4E 22 3A 8D 20 31 38 31 30 00 15 28 F0 05 89 |IN":. 1810..(...|
00002010: 20 31 34 34 30 00 2B 28 FA 05 99 22 11 20 22 4F | 1440.+(...". "O|
00002020: 22 D9 4F 55 20 4C 4F 53 45 2E 22 00 4A 28 04 06 |".OU LOSE.".J(..|
00002030: 99 20 22 11 11 20 20 D9 4F 55 20 4C 4F 53 45 20 |. ".. .OU LOSE |
00002040: 24 22 46 3A 8D 20 31 38 31 30 00 54 28 0E 06 46 |$"F:. 1810.T(..F|
00002050: B2 30 AB 46 00 5F 28 18 06 89 20 31 34 31 30 00 |.0.F._(... 1410.|
00002060: 6A 28 22 06 89 20 31 36 32 30 00 98 28 2C 06 99 |j(".. 1620..(,..|
00002070: 22 11 20 22 20 58 22 C1 20 57 49 4E 4E 45 52 2E |". " X". WINNER.|
00002080: 2E 2E 2E 2E C3 4F 4E 47 52 41 54 53 21 21 21 21 |.....ONGRATS!!!!|
00002090: 22 3A 8D 20 31 38 31 30 00 D9 28 36 06 99 22 11 |":. 1810..(6..".|
000020A0: 20 22 58 22 C1 54 20 32 20 54 4F 20 31 20 4F 44 | "X".T 2 TO 1 OD|
000020B0: 44 53 20 50 41 59 53 20 59 4F 55 2E 2E 4C 45 54 |DS PAYS YOU..LET|
000020C0: 20 4D 45 20 53 45 45 20 20 20 20 22 32 AC 46 22 | ME SEE "2.F"|
000020D0: 44 4F 4C 4C 41 52 53 2E 22 00 E3 28 38 06 8D 31 |DOLLARS."..(8..1|
000020E0: 38 31 30 00 EF 28 40 06 88 20 46 B2 32 AC 46 00 |810..(@.. F.2.F.|
000020F0: FA 28 4A 06 89 20 31 34 31 30 00 24 29 54 06 99 |.(J.. 1410.$)T..|
00002100: 20 22 11 11 20 20 C4 4F 20 59 4F 55 20 57 41 4E | ".. .O YOU WAN|
00002110: 54 20 54 4F 20 50 4C 41 59 20 41 47 41 49 4E 20 |T TO PLAY AGAIN |
00002120: 3F 20 22 3B 00 41 29 5E 06 55 53 24 B2 22 59 4E |? ";.A)^.US$."YN|
00002130: 22 3A 55 4C B2 31 3A 8D 33 35 3A 4D 24 B2 55 52 |":UL.1:.35:M$.UR|
00002140: 24 00 4A 29 63 06 8D 38 35 30 00 5B 29 68 06 8B |$.J)c..850.[)h..|
00002150: 20 52 B3 30 20 89 20 31 36 37 30 00 6C 29 72 06 | R.0 . 1670.l)r.|
00002160: 8B 20 52 B1 30 20 89 20 31 36 39 30 00 7D 29 7C |. R.0 . 1690.})||
00002170: 06 8B 20 52 B2 30 20 89 20 31 37 31 30 00 9F 29 |.. R.0 . 1710..)|
00002180: 86 06 99 20 22 11 11 20 D9 4F 55 20 41 52 45 20 |... ".. .OU ARE |
00002190: 4E 4F 57 20 55 4E 44 45 52 20 24 22 3B AB 52 00 |NOW UNDER $";.R.|
000021A0: AA 29 90 06 89 20 31 37 32 30 00 CA 29 9A 06 99 |.)... 1720..)...|
000021B0: 20 22 11 11 20 D9 4F 55 20 41 52 45 20 4E 4F 57 | ".. .OU ARE NOW|
000021C0: 20 41 48 45 41 44 20 24 22 52 00 D5 29 A4 06 89 | AHEAD $"R..)...|
000021D0: 20 31 37 32 30 00 F6 29 AE 06 99 20 22 11 11 20 | 1720..)... ".. |
000021E0: D9 4F 55 20 41 52 45 20 4E 4F 57 20 45 56 45 4E |.OU ARE NOW EVEN|
000021F0: 20 41 54 20 30 22 00 0A 2A B8 06 8B 20 4D 24 B2 | AT 0"..*... M$.|
00002200: 22 59 22 20 89 20 31 31 32 30 00 1B 2A C2 06 8B |"Y" . 1120..*...|
00002210: 20 52 B3 30 20 89 20 31 37 36 30 00 2C 2A CC 06 | R.0 . 1760.,*..|
00002220: 8B 20 52 B1 30 20 89 20 31 37 38 30 00 3D 2A D6 |. R.0 . 1780.=*.|
00002230: 06 8B 20 52 B2 30 20 89 20 31 38 30 30 00 76 2A |.. R.0 . 1800.v*|
00002240: E0 06 99 20 22 11 20 D4 4F 4F 20 42 41 44 2C 20 |... ". .OO BAD, |
00002250: 59 4F 55 20 41 52 45 20 49 4E 20 54 48 45 20 48 |YOU ARE IN THE H|
00002260: 4F 4C 45 2E 22 3A 99 22 11 20 C3 4F 4D 45 20 41 |OLE.":.". .OME A|
00002270: 47 41 49 4E 2E 22 00 81 2A EA 06 89 20 31 38 32 |GAIN."..*... 182|
00002280: 30 00 C0 2A F4 06 99 20 22 11 20 C3 4F 4E 47 52 |0..*... ". .ONGR|
00002290: 41 54 55 4C 41 54 49 4F 4E 53 2D 2D D9 4F 55 20 |ATULATIONS--.OU |
000022A0: 43 41 4D 45 20 4F 55 54 20 41 20 57 49 4E 4E 45 |CAME OUT A WINNE|
000022B0: 52 2E 11 20 C3 4F 4D 45 20 41 47 41 49 4E 2E 22 |R.. .OME AGAIN."|
000022C0: 00 CB 2A FE 06 89 20 31 38 32 30 00 12 2B 08 07 |..*... 1820..+..|
000022D0: 99 20 22 11 20 C3 4F 4E 47 52 41 54 55 4C 41 54 |. ". .ONGRATULAT|
000022E0: 49 4F 4E 53 2D 2D D9 4F 55 20 43 41 4D 45 20 4F |IONS--.OU CAME O|
000022F0: 55 54 20 45 56 45 4E 2C 20 4E 4F 54 11 20 42 41 |UT EVEN, NOT. BA|
00002300: 44 20 46 4F 52 20 41 4E 20 41 4D 41 54 45 55 52 |D FOR AN AMATEUR|
00002310: 2E 22 00 27 2B 0D 07 81 41 B2 31 A4 32 30 30 30 |.".'+...A.1.2000|
00002320: 3A 82 3A 89 33 30 30 00 3E 2B 12 07 81 20 4A B2 |:.:.300.>+... J.|
00002330: 31 20 A4 20 38 30 30 3A 82 20 4A 3A 20 8E 00 47 |1 . 800:. J: ..G|
00002340: 2B 1C 07 89 38 33 35 00 00 00 |+...835... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...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.N.+.. US$.."" . US$.US$.UX$.A.-.." .
.";:.UC,0.U.2..UI$:.UI$."".50...7..UI$.G
(13).C(UR$)..1..UC,1:." .";:.85...<..UI$
.G(20).105.F.>.. C(UR$)..UL.50...A..120:
. CHECK FOR VALID CHARACTER...F.UR$.UR$.
UI$...K..UI$;...P..50.2.U.. +++ CHECK FO
R HELP REQUEST +++.Z.Z..UR$.UX$.195:. EX
IT TO HELP ROUTINE.I._..UF.1..240.V.D.UF
.0:.:....F.. ++ CHECK DELETE ++. .I..C(U
R$).1.50...N.UR$.H(UR$,C(UR$).1).J.S..".
..";:.50...X.. ++ CHECK FOR VALID CHAR
ACTERS ++...}..C(US$).0.150....US$.US$.
UX$.$....US.1.C(US$).;....UI$.J(US$,US,1
)...A.....N...UI$."":..I.... ** STANDARD
INPUT **.Z....F(UI$).46........UI$.G(32
)..... ..F(UI$).48.F(UI$).57.170.......K
....F(UI$).65.F(UI$).90.180.Q..........F
(UI$).193.F(UI$).218.UI$."":.......B(UT)
.UU%.UI$.G(F(UI$).128):........+...UI$."
":..P.C.UF.1:. +++ HELP ROUTINE EXIT +++
.Y.E..250.B.H..245...M..UQ.UB.(U2%.256.U
1%.U3%.2)...R.UQ%(UQ.UB).B(UQ):.:."."...
W.UZ.1:UV%.B(UT)...X..300...Y.UZ.0:US$.U
J$:UG$.UK$:UP.UJ:UL.UK...Z..B(50003).0..
53281,1:.".";:.53281,6:.53280,14:.220...
...".";.N...UT$.UL$:.UT,UV%:.UQ.UB.(U2%.
256.U1%.U3%.3).C....UQ,UQ%(UQ.UB):..O...
.U1,U1%.{....U2,U2%......U4,U4%......U3,
U3%.1......35.O...UD%.((U2%.256.U1%.U3%)
.UB).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . "
:..6...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%
.B(U4).^...UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP
:UK.UL.D.....U.,.. ** MENU **.{.-.:.....
.".":.UT,UU%:.B(50003).0..53281,9:.53280
,8.../.:.M.1..". MENU"...
6.." -----------------------------------
---"...;..".. 1. BEGIN CRAPS ".
I.@..".. 2. STUDENT INSTRUCTIONS
".S.E..".. 3. TEACHER INSTRUCTIO
NS"...O..".. 4. QUIT.."...T.." -
-------------------------------------"..
.Y..".. PRESS A NUMBER KEY (1-4) "
;...^.UL.1:US$."1234":.35:. INPUT ROUTIN
E.#._..C(UR$).1.300...`.US$."".K.C..E(UR
$).1000,400,500,396.T.H..300.{.... ** RE
-ENABLE STOP KEY AND END **......B(50003
)..1.B(50003)..160.B(50003)..0.399.T....
UU.71:.B(50003).0..53281,6:.53280,14....
.."..":.......875:....... ** STUDENT INS
TRUCTIONS **.....UT$." CRAPS".L....".":.
UT,UL%:.B(50003).0..53281,0:.53280,0.M..
.UP.0:UG$."STUDENT INST":.850......".
THIS GAME SIMULATES A GAME OF CRAPS.".K.
...". THE NUMBERS 2, 3, AND 12 ARE LOSER
S."... ..". IF YOU GET THEM ON A ROLL YO
U LOSE.".&....". THE NUMBER 11 IS A WINN
ER IF YOU GET".E....". IT ON THE FIRST R
OLL.".R....". THE NUMBER 7 CAN BE EITHER
A WINNER"......". OR A LOSER. IF YOU GE
T 7 ON THE FIRST".M....". ROLL YOU WIN:
IF YOU GET IT ON ANY"......". SUBSEQUENT
ROLL YOU LOSE."......835:.850.-....". I
F YOUR FIRST ROLL IS NOT ONE OF THE ".X.
...". PREVIOUSLY MENTIONED NUMBERS THEN"
......". THE NUMBER BECOMES THE POINT AN
D THE"......". COMPUTER WILL CONTINUE TO
ROLL UNTIL"......". IT GETS THE POINT O
R ONE OF THE "......". AUTOMATIC LOSERS.
".-....".. .NOTE:..IF AT ANY TIME YOU WI
SH TO RETURN".Q....". TO THE MENU PRESS
H RETURN".Z....835.N....UZ.1..UP%:.217.T
.......... ** TEACHER INSTRUCTIONS **.E.
...".":.UT,UL%:.B(50003).0..53281,2:.532
80,10.....UT$." CRAPS":UP.0:UG$."TEACHER
INST":.850.!....".. TO THE BEST OF
OUR KNOWLEDGE,.".J...." THIS PROGRAM
IS IN THE PUBLIC.".V...." DOMAIN. IF
THIS IS NOT THE CASE."......" PLEASE C
ONTACT:..."......" COMMODORE BUSINE
SS MACHINES."......" 3370 PHARM
ACY AVE......." AGINCOURT, ONTA
RIO".&...." CANADA M1W 2K4".F
...." (416) 499-4292".\...UP.1:
. 835:. 850:....." ..PROGRAM NAME:
CRAPS ......." WRITTEN BY : UNKNOWN
..E...." UPGRADED BY : ....
..." .THIS PROGRAM WILL RUN ON ANY..
......" PET 64 COMPUTER.4...."
COMMODORE 64 COMPUTER.=....835.Q.
N..UZ.1..UP%:.217.W.W...}.X.. ** PROGRAM
MODIFICATION INST **...Y..".":.UT,UL%..
.].UP.0:UG$."PROGRAM MOD":.850......835.
K....UZ.1..UP%:.217.Q.......... ** TO US
E 8032 LOAD CBM4032 **.,.F..".....BEFORE
RUNNING THIS PROGRAM ON AN 8032 ...B.P
.." LOAD THE 'CBM 4032' PROGRAM....
.........".M.Z..UU.71.S.......... ** TO
USE 8032 LOAD CBM4032 **......"....BEFOR
E RUNNING THIS PROGRAM ON AN 8032 ..LOA
D CBM 4032 PROGRAM"......1093:.... .. **
T I T L E P A G E **.C.".."....";:.UT
,UU%:.B(50003).0..53280,14:.53281,6.Y.$.
.I.1.38:."...";:..Q.&..I.1.22:.".....";:
....(..I.1.37:.".....";:....).. A$:. A$.
."" . 300...*..I.1.22:.".....";:....,.."
........................... ......."...
................ . . ...!.0..".........
.......... . ....?.2.."................
.... ..G.4.."..............C O M M O D
O R E.....6.."...............EDUCATIONAL
.....8.."................SOFTWARE.D.:..
** COMMODORE LOGO **...;..H(UD$,24);"...
.......PRESS SPACE BAR OR WAIT.":I.0...<
..A$:.A$.." ".I.I.1:.I.250.828.B.>.T1$."
":T2$."":T3$."":T4$."":I.0.K.@..300.G.C.
. ** SPACE BAR PRESS **...H..UO,0:.H(UD$
,24);".......PRESS SPACE BAR TO CONTINUE
."...L..UI$:.UI$.." ".844...N.....R.. **
PAGE DESIGN ROUTINE **...T.UP.UP.1...W.
."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).D.
\.." -----------------------------------
---".S.`..UH..0.870...A..H(UD$,24);H(UP$
,7);"HELP - PRESS H <RETURN>"...F.UH.0
:."..":....K.. ** PLEASE WAIT REMARK **.
..P..H(UD$,24);" ONE MOMENT PL
EASE... "...U........ ** SET UP VARI
ABLES **.[...UX$."H":.UQ%(1000):UB.32768
:U1.196:U2.197:U3.198:U4.216:UC.167:UU.1
024.....UT.59468:UU%.12:UL%.14:UP%.1146:
UM.32768:UO.158:. 50003,0......B(50003).
0.UB.1024:U1.209:U2.210:U3.211:U4.214:UC
.204:UU.2048......B(50003).0.UT.53272:UU
%.21:UL%.23:UP%.2139:UM.1024:UO.198.?...
UD$.".........................".Q...UP$.
"
".....UT$." CRAPS ":. PLACE
PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***.
E.......... ** SET VARIABLES **......900
.....:.....:.. ... ** CHECK FOR 8032 **.
- ...".":." ":. SHIFTED SPACE.D ...B(UB.
40)..96..700.] ... ** MEMORY CHECK **.Q
... .(0).2000.937.. ..."....THIS MACHINE
DOES NOT HAVE ENOUGH.".C ..."MEMORY TO
RUN THIS PROGRAM !".N ...UU.71.T ..... .
.."..":.B(50003).0.962..!... ** BASIC 2.
0 OR 4.0 OR C-64 SETUP **.[!...1075,
133:.1076,144:.1077,234:.1079,4:.1080,13
3:.1081,145..!...1091,155:.1098,133:.109
9,144:.1100,234:.1103,133..!...1104,145:
.1105,234:.1082,234.J!...B(50003)..160.9
55..!...1093,88:.1094,228:.1097,85:.1102
,228:.965.."...B(50003)..1.990.="...1093
,49:.1094,230:.1097,46:.1102,230:.965.W"
B..2099,141:.2100,20:.2101,3:.2103,8:.21
04,141:.2105,21.."C..2106,3:.2115,145:.2
117,52:.2118,234:.2121,49:.2122,141.."D.
.2123,20:.2124,3:.2126,234:.2127,141:.21
28,21:.2129,3..#E..UU.48:. DISABLE STOP
KEY..#J..800:. TITLE.,#T..300:. MENU.]#.
..".THE PGM WILL NOT WORK ON THIS MACHIN
E!":...#...UZ.1..UP%:.UP%:UZ.0:. ** PROG
RAM STARTS HERE **..#..."..";:.:.B(50003
).0..53281,6:.53280,14..#..UP.0:.UT,UL%:
UT$." CRAPS"..#V.UG$."":.850..$`.. "....
WHAT IS YOUR WAGER? ";.6$J.US$."0123456
789":UL.6:.35:F.E(UR$).Q$T.UH.1:.850:. "
. I WILL NOW THROW THE DICE.":. 181
0..$~.. E..(7..(1))..$... S..(7..(1))..$
... X.E.S..$...B(U4).16..835:KSB850:."."
.Q$... X.7 . 1310..$... X.11 . 1310..$..
. X.2 . 1340..%... X.0 . 1150..%D.. X.1
. 1150.'%N.. X.3 . 1380.9%X.. X.12 . 138
0.J%... X.5 . 1430.[%... X.6 . 1430.K%..
. X.8 .1430.|%... X.9 . 1430..%... X.10
. 1430..%... X.4 . 1430.K%...". " X " NA
TURAL...A WINNER!!!":. 1810..&(..". "X"P
AYS EVEN MONEY":." YOU WIN"F"DOLLARS.
":. 1810..&2.. 1410.=&<..". "X"SNAKE EYE
S...YOU LOSE.":. 1810.^&F.. ".. YOU LOS
E "F"DOLLARS.".J&P.. F.0.F.U&Z.. 1410..&
D..". " X "CRAPS...YOU LOSE":. 1810.A&N.
.".. YOU LOSE"F"DOLLARS.":. 1810.M&X..
F.0.F.Y&... R.R.F..&... 1620..'...". "X"
POINT. I WILL ROLL AGAIN":. 1810."' .. H
..(7..(1)).4'... Q..(7..(1)).@'... O.H.Q
.]'...B(U4).16..835:.850:.".".N'... O.1
. 1440.'H.. O.7 . 1530..'K.. O.2 . X.O:
.1340..'M.. O.3 . 1530..'O.. O.12 . 1530
.I'R.. O.0 . 1440.Z'... O.X . 1580..(...
". "O "NO POINT. I WILL ROLL AGAIN":. 18
10..(... 1440.+(...". "O"YOU LOSE.".J(..
. ".. YOU LOSE $"F:. 1810.T(..F.0.F._(.
.. 1410.J(".. 1620..(,..". " X"A WINNER.
....CONGRATS!!!!":. 1810.Y(6..". "X"AT 2
TO 1 ODDS PAYS YOU..LET ME SEE "2.F"
DOLLARS."..(8..1810..(@.. F.2.F..(J.. 14
10.$)T.. ".. DO YOU WANT TO PLAY AGAIN
? ";.A)^.US$."YN":UL.1:.35:M$.UR$.J)C..8
50.[)H.. R.0 . 1670.L)R.. R.0 . 1690.})|
.. R.0 . 1710..)... ".. YOU ARE NOW UNDE
R $";.R..)... 1720.J)... ".. YOU ARE NOW
AHEAD $"R.U)... 1720..)... ".. YOU ARE
NOW EVEN AT 0"..*... M$."Y" . 1120..*B..
R.0 . 1760.,*L.. R.0 . 1780.=*V.. R.0 .
1800.V*... ". TOO BAD, YOU ARE IN THE H
OLE.":.". COME AGAIN."..*... 1820..*...
". CONGRATULATIONS--YOU CAME OUT A WINNE
R.. COME AGAIN.".K*... 1820..+... ". CON
GRATULATIONS--YOU CAME OUT EVEN, NOT. BA
D FOR AN AMATEUR.".'+...A.1.2000:.:.300.
>+... J.1 . 800:. J: ..G+...835...
> CLICK IMAGE PREVIEW FOR FULL MODAL