_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

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...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL