CRAP OUT.MGH
FILE INFORMATION
FILENAME(S): CRAP OUT.MGH
FILE TYPE(S): PRG
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-02 16:57:22
APPEARS ON: 1 disk(s)
FILE HASH
d32efc89751e484b16e01fac8d50282c499d4775fca3ea887d9d2f387ad7d811
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANWENDER | CRAP OUT.MGH | PRG | Treasure Chest - Romfreak | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 36 10 01 00 97 36 35 33 30 31 2C 32 3A 97 |..6....65301,2:.|
00000010: 36 35 33 30 35 2C 30 3A 97 36 35 32 39 37 2C 31 |65305,0:.65297,1|
00000020: 35 3A 99 C7 28 31 34 29 3A DA 31 2C 39 30 30 2C |5:..(14):.1,900,|
00000030: 34 3A 89 38 30 30 00 56 10 02 00 8F 20 2A 2A 20 |4:.800.V.... ** |
00000040: 4D 4C 20 53 54 4F 50 20 4B 45 59 20 44 49 53 41 |ML STOP KEY DISA|
00000050: 42 4C 45 20 2A 2A 00 81 10 03 00 99 22 78 A9 3D |BLE **......"x.=|
00000060: 8D 14 03 A9 08 8D 15 03 58 60 20 EA FF A9 FF 85 |........X` .....|
00000070: 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA 8D 15 03 58 |.L4.x.1........X|
00000080: 60 00 A0 10 04 00 99 22 78 68 68 68 AA 68 A8 68 |`......"xhhh.h.h|
00000090: 68 68 68 68 68 68 98 48 8A 48 58 60 31 31 31 22 |hhhhhh.H.HX`111"|
000000A0: 00 B1 10 05 00 99 22 68 68 68 68 68 68 68 60 31 |......"hhhhhhh`1|
000000B0: 22 00 D3 10 06 00 8F 20 2A 2A 20 34 20 2D 20 50 |"...... ** 4 - P|
000000C0: 4F 50 20 4D 4C 20 53 55 42 52 4F 55 54 49 4E 45 |OP ML SUBROUTINE|
000000D0: 20 2A 2A 00 F4 10 0A 00 8F 20 2A 2A 47 45 4E 45 | **...... **GENE|
000000E0: 52 41 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |RAL INPUT ROUTIN|
000000F0: 45 20 2A 2A 00 FA 10 0F 00 3A 00 16 11 23 00 8F |E **.....:...#..|
00000100: 20 2B 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 | +++ INPUT SECTI|
00000110: 4F 4E 20 2B 2B 2B 00 2E 11 28 00 97 55 4F 2C 30 |ON +++...(..UO,0|
00000120: 3A 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 3E |:UR$."":UI$."".>|
00000130: 11 2A 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 5A |.*..UL.0.UL.80.Z|
00000140: 11 2B 00 8B 20 55 53 24 B3 B1 22 22 20 A7 20 55 |.+.. US$.."" . U|
00000150: 53 24 B2 55 53 24 AA 55 58 24 00 6D 11 2D 00 99 |S$.US$.UX$.m.-..|
00000160: 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 81 11 |" ..";:.UC,0...|
00000170: 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 |2..UI$:.UI$."".5|
00000180: 30 00 AB 11 37 00 8B 55 49 24 B2 C7 28 31 33 29 |0...7..UI$..(13)|
00000190: AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 |..(UR$)..1..UC,1|
000001A0: 3A 99 22 20 9D 22 3B 3A 89 38 35 00 BE 11 3C 00 |:." .";:.85...<.|
000001B0: 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 D2 |.UI$..(20).105..|
000001C0: 11 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 |.>.. .(UR$)..UL.|
000001D0: 35 30 00 F7 11 41 00 8D 31 32 30 3A 8F 20 43 48 |50...A..120:. CH|
000001E0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000001F0: 41 52 41 43 54 45 52 00 07 12 46 00 55 52 24 B2 |ARACTER...F.UR$.|
00000200: 55 52 24 AA 55 49 24 00 11 12 4B 00 99 55 49 24 |UR$.UI$...K..UI$|
00000210: 3B 00 19 12 50 00 89 35 30 00 3E 12 55 00 8F 20 |;...P..50.>.U.. |
00000220: 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 |+++ CHECK FOR HE|
00000230: 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 66 |LP REQUEST +++.f|
00000240: 12 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A |.Z..UR$.UX$.195:|
00000250: 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 |. EXIT TO HELP R|
00000260: 4F 55 54 49 4E 45 00 75 12 5F 00 8B 55 46 B2 31 |OUTINE.u._..UF.1|
00000270: A7 8D 32 34 30 00 82 12 64 00 55 46 B2 30 3A 99 |..240...d.UF.0:.|
00000280: 3A 8E 00 9B 12 66 00 8F 20 2B 2B 20 43 48 45 43 |:....f.. ++ CHEC|
00000290: 4B 20 44 45 4C 45 54 45 20 2B 2B 00 AC 12 69 00 |K DELETE ++...i.|
000002A0: 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 C4 12 6E |..(UR$).1.50...n|
000002B0: 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 |.UR$..(UR$,.(UR$|
000002C0: 29 AB 31 29 00 D6 12 73 00 99 22 9D 20 20 9D 9D |).1)...s..". ..|
000002D0: 22 3B 3A 89 35 30 00 FD 12 78 00 8F 20 2B 2B 20 |";:.50...x.. ++ |
000002E0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000002F0: 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 0F 13 |CHARACTERS ++...|
00000300: 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 |}...(US$).0.150.|
00000310: 1F 13 7F 00 55 53 24 B2 55 53 24 AA 55 58 24 00 |....US$.US$.UX$.|
00000320: 30 13 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 |0....US.1..(US$)|
00000330: 00 47 13 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C |.G....UI$..(US$,|
00000340: 55 53 2C 31 29 A7 8E 00 4D 13 8C 00 82 00 5A 13 |US,1)...M.....Z.|
00000350: 91 00 55 49 24 B2 22 22 3A 8E 00 75 13 96 00 8F |..UI$."":..u....|
00000360: 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 | ** STANDARD INP|
00000370: 55 54 20 2A 2A 00 86 13 98 00 8B C6 28 55 49 24 |UT **.......(UI$|
00000380: 29 B2 34 36 A7 8E 00 97 13 9B 00 8B 55 49 24 B2 |).46........UI$.|
00000390: C7 28 33 32 29 A7 8E 00 B4 13 A0 00 8B C6 28 55 |.(32).........(U|
000003A0: 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 |I$).48..(UI$).57|
000003B0: A7 31 37 30 00 BA 13 A5 00 8E 00 D7 13 AA 00 8B |.170............|
000003C0: C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 |.(UI$).65..(UI$)|
000003D0: B1 39 30 A7 31 38 30 00 DD 13 AF 00 8E 00 01 14 |.90.180.........|
000003E0: B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 |....(UI$).193..(|
000003F0: 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A |UI$).218.UI$."":|
00000400: 8E 00 24 14 B9 00 8B C2 28 55 54 29 B2 55 55 25 |..$.....(UT).UU%|
00000410: A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 |.UI$..(.(UI$).12|
00000420: 38 29 3A 8E 00 2A 14 BB 00 8E 00 37 14 BE 00 55 |8):..*.....7...U|
00000430: 49 24 B2 22 22 3A 8E 00 5C 14 C3 00 55 46 B2 31 |I$."":..\...UF.1|
00000440: 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 |:. +++ HELP ROUT|
00000450: 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 65 14 C5 |INE EXIT +++.e..|
00000460: 00 8D 32 35 30 00 6E 14 C8 00 8D 32 34 35 00 8D |..250.n....245..|
00000470: 14 CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 |....UQ.UB.(U2%.2|
00000480: 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 A9 14 |56.U1%.U3%.2)...|
00000490: D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 |..UQ%(UQ.UB)..(U|
000004A0: 51 29 3A 82 3A 99 22 93 22 00 BC 14 D7 00 55 5A |Q):.:.".".....UZ|
000004B0: B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 C5 14 D8 |.1:UV%..(UT)....|
000004C0: 00 89 33 30 30 00 EA 14 D9 00 55 5A B2 30 3A 55 |..300.....UZ.0:U|
000004D0: 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 |S$.UJ$:UG$.UK$:U|
000004E0: 50 B2 55 4A 3A 55 4C B2 55 4B 00 21 15 DA 00 8B |P.UJ:UL.UK.!....|
000004F0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000500: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281|
00000510: 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 |,6:.53280,14:.22|
00000520: 30 00 2B 15 DB 00 99 22 93 22 3B 00 5A 15 DC 00 |0.+....".";.Z...|
00000530: 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A |UT$.UL$:.UT,UV%:|
00000540: 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA |.UQ.UB.(U2%.256.|
00000550: 55 31 25 AA 55 33 25 AB 33 29 00 6F 15 E1 00 97 |U1%.U3%.3).o....|
00000560: 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 |UQ,UQ%(UQ.UB):..|
00000570: 7B 15 E6 00 97 55 31 2C 55 31 25 00 87 15 E8 00 |{....U1,U1%.....|
00000580: 97 55 32 2C 55 32 25 00 93 15 E9 00 97 55 34 2C |.U2,U2%......U4,|
00000590: 55 34 25 00 A1 15 EA 00 97 55 33 2C 55 33 25 AB |U4%......U3,U3%.|
000005A0: 31 00 A9 15 EB 00 89 33 35 00 DB 15 F0 00 55 44 |1......35.....UD|
000005B0: 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |%.((U2%.256.U1%.|
000005C0: 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 |U3%).UB).40:..(U|
000005D0: 44 24 2C 55 44 25 AA 31 29 3A 8E 00 16 16 F5 00 |D$,UD%.1):......|
000005E0: 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 |..(UD$,24);" |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 | . HELP COMING |
00000610: 92 20 20 22 3A 8E 00 42 16 FA 00 55 31 25 B2 C2 |. ":..B...U1%..|
00000620: 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 |(U1):U2%..(U2):U|
00000630: 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 |3%..(U3):U4%..(U|
00000640: 34 29 00 6A 16 FB 00 55 4A 24 B2 55 53 24 3A 55 |4).j...UJ$.US$:U|
00000650: 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 |K$.UG$:UL$.UT$:U|
00000660: 4A B2 55 50 3A 55 4B B2 55 4C 00 70 16 FF 00 8E |J.UP:UK.UL.p....|
00000670: 00 81 16 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A |...,.. ** MENU *|
00000680: 2A 00 87 16 2D 01 3A 00 B7 16 2E 01 99 22 93 22 |*...-.:......"."|
00000690: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
000006A0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 |3).0..53281,9:.5|
000006B0: 33 32 38 30 2C 31 33 00 BD 16 2F 01 3A 00 DA 16 |3280,13.../.:...|
000006C0: 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 20 |1..". |
000006D0: 20 20 20 20 20 4D 45 4E 55 22 00 09 17 36 01 99 | MENU"...6..|
000006E0: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 2C 17 3B 01 99 22 |--------".,.;.."|
00000710: 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 |.. 1. BE|
00000720: 47 49 4E 20 43 52 41 50 53 20 20 22 00 4E 17 40 |GIN CRAPS ".N.@|
00000730: 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 |..".. 2. |
00000740: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 6A | INSTRUCTIONS".j|
00000750: 17 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000760: 20 20 20 51 55 49 54 11 11 22 00 99 17 54 01 99 | QUIT.."...T..|
00000770: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C4 17 59 01 99 22 |--------"...Y.."|
000007A0: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
000007B0: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000007C0: 29 20 22 3B 00 EC 17 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000007D0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
000007E0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 FE 17 5F |NPUT ROUTINE..._|
000007F0: 01 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 00 09 |...(UR$).1.300..|
00000800: 18 60 01 55 53 24 B2 22 22 00 26 18 63 01 91 C5 |.`.US$."".&.c...|
00000810: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
00000820: 30 30 2C 33 39 36 00 2F 18 68 01 89 33 30 30 00 |00,396./.h..300.|
00000830: 56 18 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |V.... ** RE-ENAB|
00000840: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000850: 45 4E 44 20 2A 2A 00 85 18 8C 01 8B C2 28 35 30 |END **.......(50|
00000860: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000870: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000880: 30 A7 33 39 39 00 AF 18 8D 01 9E 55 55 AA 37 31 |0.399......UU.71|
00000890: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000008A0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 33 00 |281,6:.53280,13.|
000008B0: BB 18 8E 01 99 22 9A 93 22 3A 80 00 C6 18 8F 01 |....."..":......|
000008C0: 8D 38 37 35 3A 8E 00 E7 18 90 01 8F 20 2A 2A 20 |.875:....... ** |
000008D0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
000008E0: 49 4F 4E 53 20 2A 2A 00 F8 18 92 01 55 54 24 B2 |IONS **.....UT$.|
000008F0: 22 20 C3 52 41 50 53 22 00 28 19 95 01 99 22 93 |" .RAPS".(....".|
00000900: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
00000910: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.|
00000920: 35 33 32 38 30 2C 31 33 00 49 19 9A 01 55 50 B2 |53280,13.I...UP.|
00000930: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
00000940: 4E 53 54 22 3A 8D 38 35 30 00 79 19 9C 01 99 22 |NST":.850.y...."|
00000950: 11 20 20 20 D4 48 49 53 20 47 41 4D 45 20 53 49 |. .HIS GAME SI|
00000960: 4D 55 4C 41 54 45 53 20 41 20 47 41 4D 45 20 4F |MULATES A GAME O|
00000970: 46 20 43 52 41 50 53 2E 22 00 A7 19 9E 01 99 22 |F CRAPS."......"|
00000980: 11 20 D4 48 45 20 4E 55 4D 42 45 52 53 20 32 2C |. .HE NUMBERS 2,|
00000990: 20 33 2C 20 41 4E 44 20 31 32 20 41 52 45 20 4C | 3, AND 12 ARE L|
000009A0: 4F 53 45 52 53 2E 22 00 D4 19 A0 01 99 22 11 20 |OSERS."......". |
000009B0: C9 46 20 59 4F 55 20 47 45 54 20 54 48 45 4D 20 |.F YOU GET THEM |
000009C0: 4F 4E 20 41 20 52 4F 4C 4C 20 59 4F 55 20 4C 4F |ON A ROLL YOU LO|
000009D0: 53 45 2E 22 00 02 1A A1 01 99 22 11 20 D4 48 45 |SE."......". .HE|
000009E0: 20 4E 55 4D 42 45 52 20 31 31 20 49 53 20 41 20 | NUMBER 11 IS A |
000009F0: 57 49 4E 4E 45 52 20 49 46 20 59 4F 55 20 47 45 |WINNER IF YOU GE|
00000A00: 54 22 00 21 1A A2 01 99 22 11 20 49 54 20 4F 4E |T".!....". IT ON|
00000A10: 20 54 48 45 20 46 49 52 53 54 20 52 4F 4C 4C 2E | THE FIRST ROLL.|
00000A20: 22 00 4E 1A A3 01 99 22 11 20 D4 48 45 20 4E 55 |".N....". .HE NU|
00000A30: 4D 42 45 52 20 37 20 43 41 4E 20 42 45 20 45 49 |MBER 7 CAN BE EI|
00000A40: 54 48 45 52 20 41 20 57 49 4E 4E 45 52 22 00 7D |THER A WINNER".}|
00000A50: 1A A4 01 99 22 11 20 4F 52 20 41 20 4C 4F 53 45 |....". OR A LOSE|
00000A60: 52 2E 20 C9 46 20 59 4F 55 20 47 45 54 20 37 20 |R. .F YOU GET 7 |
00000A70: 4F 4E 20 54 48 45 20 46 49 52 53 54 22 00 A9 1A |ON THE FIRST"...|
00000A80: A6 01 99 22 11 20 52 4F 4C 4C 20 59 4F 55 20 57 |...". ROLL YOU W|
00000A90: 49 4E 3A 20 49 46 20 59 4F 55 20 47 45 54 20 49 |IN: IF YOU GET I|
00000AA0: 54 20 4F 4E 20 41 4E 59 22 00 CC 1A A8 01 99 22 |T ON ANY"......"|
00000AB0: 11 20 53 55 42 53 45 51 55 45 4E 54 20 52 4F 4C |. SUBSEQUENT ROL|
00000AC0: 4C 20 59 4F 55 20 4C 4F 53 45 2E 22 00 DA 1A A9 |L YOU LOSE."....|
00000AD0: 01 8D 38 33 35 3A 8D 38 35 30 00 09 1B AA 01 99 |..835:.850......|
00000AE0: 22 11 20 C9 46 20 59 4F 55 52 20 46 49 52 53 54 |". .F YOUR FIRST|
00000AF0: 20 52 4F 4C 4C 20 49 53 20 4E 4F 54 20 4F 4E 45 | ROLL IS NOT ONE|
00000B00: 20 4F 46 20 54 48 45 20 22 00 34 1B AC 01 99 22 | OF THE ".4...."|
00000B10: 11 20 50 52 45 56 49 4F 55 53 4C 59 20 4D 45 4E |. PREVIOUSLY MEN|
00000B20: 54 49 4F 4E 45 44 20 4E 55 4D 42 45 52 53 20 54 |TIONED NUMBERS T|
00000B30: 48 45 4E 22 00 62 1B AE 01 99 22 11 20 54 48 45 |HEN".b....". THE|
00000B40: 20 4E 55 4D 42 45 52 20 42 45 43 4F 4D 45 53 20 | NUMBER BECOMES |
00000B50: 54 48 45 20 50 4F 49 4E 54 20 41 4E 44 20 54 48 |THE POINT AND TH|
00000B60: 45 22 00 90 1B B0 01 99 22 11 20 43 4F 4D 50 55 |E"......". COMPU|
00000B70: 54 45 52 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 |TER WILL CONTINU|
00000B80: 45 20 54 4F 20 52 4F 4C 4C 20 55 4E 54 49 4C 22 |E TO ROLL UNTIL"|
00000B90: 00 BA 1B B2 01 99 22 11 20 49 54 20 47 45 54 53 |......". IT GETS|
00000BA0: 20 54 48 45 20 50 4F 49 4E 54 20 4F 52 20 4F 4E | THE POINT OR ON|
00000BB0: 45 20 4F 46 20 54 48 45 20 22 00 D5 1B B4 01 99 |E OF THE "......|
00000BC0: 22 11 20 41 55 54 4F 4D 41 54 49 43 20 4C 4F 53 |". AUTOMATIC LOS|
00000BD0: 45 52 53 2E 22 00 09 1C DB 01 99 22 11 11 20 12 |ERS."......".. .|
00000BE0: CE 4F 54 45 3A 92 11 C9 46 20 41 54 20 41 4E 59 |.OTE:...F AT ANY|
00000BF0: 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 20 54 | TIME YOU WISH T|
00000C00: 4F 20 52 45 54 55 52 4E 22 00 2D 1C E0 01 99 22 |O RETURN".-...."|
00000C10: 11 20 54 4F 20 54 48 45 20 CD C5 CE D5 20 50 52 |. TO THE .... PR|
00000C20: 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE 22 00 36 1C |ESS H ......".6.|
00000C30: E5 01 8D 38 33 35 00 4A 1C EA 01 8B 55 5A B2 31 |...835.J....UZ.1|
00000C40: A7 9E 55 50 25 3A 89 32 31 37 00 50 1C F3 01 8E |..UP%:.217.P....|
00000C50: 00 80 1C F5 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
00000C60: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000C70: 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 |3281,2:.53280,10|
00000C80: 00 AE 1C F6 01 55 54 24 B2 22 20 C3 52 41 50 53 |.....UT$." .RAPS|
00000C90: 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 |":UP.0:UG$.".EAC|
00000CA0: 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 B7 |HER .NST":.850..|
00000CB0: 1C 0C 02 89 38 33 35 00 CB 1C 4E 02 8B 55 5A B2 |....835...N..UZ.|
00000CC0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 D1 1C 57 02 |1..UP%:.217...W.|
00000CD0: 8E 00 F7 1C 58 02 8F 20 2A 2A 20 50 52 4F 47 52 |....X.. ** PROGR|
00000CE0: 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |AM MODIFICATION |
00000CF0: 49 4E 53 54 20 2A 2A 00 08 1D 59 02 99 22 93 22 |INST **...Y.."."|
00000D00: 3A 97 55 54 2C 55 4C 25 00 28 1D 5D 02 55 50 B2 |:.UT,UL%.(.].UP.|
00000D10: 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD |0:UG$.".ROGRAM .|
00000D20: 4F 44 22 3A 8D 38 35 30 00 31 1D 94 02 8D 38 33 |OD":.850.1....83|
00000D30: 35 00 45 1D B2 02 8B 55 5A B2 31 A7 9E 55 50 25 |5.E....UZ.1..UP%|
00000D40: 3A 89 32 31 37 00 4B 1D BB 02 8E 00 70 1D 1D 03 |:.217.K.....p...|
00000D50: 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 |. ** TO USE 8032|
00000D60: 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A | LOAD CBM4032 **|
00000D70: 00 BB 1D 1E 03 99 22 93 11 11 11 42 45 46 4F 52 |......"....BEFOR|
00000D80: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P|
00000D90: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803|
00000DA0: 32 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 |2 ..LOAD CBM 40|
00000DB0: 33 32 20 50 52 4F 47 52 41 4D 22 00 C7 1D 1F 03 |32 PROGRAM".....|
00000DC0: 9E 31 30 39 33 3A 80 00 E7 1D 20 03 8F 20 2A 2A |.1093:.... .. **|
00000DD0: 20 54 20 49 21 FF 20 5D 20 45 20 20 20 50 20 41 | T I!. ] E P A|
00000DE0: 20 47 21 FF 20 2A 2A 00 1B 1E 22 03 99 22 93 11 | G!. **...".."..|
00000DF0: 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |..";:.UT,UU%:..(|
00000E00: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C |50003).0..53280,|
00000E10: 31 33 3A 97 35 33 32 38 31 2C 36 00 3F 1E 24 03 |13:.53281,6.?.$.|
00000E20: 99 20 A3 31 30 29 20 22 12 11 11 11 11 20 43 20 |. .10) "..... C |
00000E30: 52 20 41 20 50 20 20 20 4F 20 55 20 54 20 22 00 |R A P O U T ".|
00000E40: 4E 1E 25 03 81 20 54 B2 31 A4 31 35 30 30 00 69 |N.%.. T.1.1500.i|
00000E50: 1E 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 |.:.. ** COMMODOR|
00000E60: 45 20 4C 4F 47 4F 20 2A 2A 00 A1 1E 3B 03 99 C8 |E LOGO **...;...|
00000E70: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00000E80: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00000E90: 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 |BAR OR WAIT.":I.|
00000EA0: 30 00 C3 1E 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0...<..A$:.A$.."|
00000EB0: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
00000EC0: 38 32 38 00 E7 1E 3E 03 54 31 24 B2 22 22 3A 54 |828...>.T1$."":T|
00000ED0: 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 |2$."":T3$."":T4$|
00000EE0: B2 22 22 3A 49 B2 30 00 F0 1E 40 03 89 33 30 30 |."":I.0...@..300|
00000EF0: 00 0C 1F 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 |...C.. ** SPACE |
00000F00: 42 41 52 20 50 52 45 53 53 20 2A 2A 00 50 1F 48 |BAR PRESS **.P.H|
00000F10: 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 |..UO,0:..(UD$,24|
00000F20: 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |);".......PRESS |
00000F30: 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E |SPACE BAR TO CON|
00000F40: 54 49 4E 55 45 92 22 3A DA 32 2C 39 35 30 2C 32 |TINUE.":.2,950,2|
00000F50: 00 67 1F 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.g.L..UI$:.UI$..|
00000F60: 22 20 22 A7 38 34 34 00 6D 1F 4E 03 8E 00 8D 1F |" ".844.m.N.....|
00000F70: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00000F80: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 99 1F |GN ROUTINE **...|
00000F90: 54 03 55 50 B2 55 50 AA 31 00 C3 1F 57 03 99 22 |T.UP.UP.1...W.."|
00000FA0: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
00000FB0: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
00000FC0: 31 38 29 00 F2 1F 5C 03 99 22 20 2D 2D 2D 2D 2D |18)...\.." -----|
00000FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FF0: 2D 22 00 01 20 60 03 8B 55 48 B3 B1 30 A7 38 37 |-".. `..UH..0.87|
00001000: 30 00 35 20 61 03 99 C8 28 55 44 24 2C 32 34 29 |0.5 a...(UD$,24)|
00001010: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00001020: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
00001030: 55 52 4E 3E 22 00 46 20 66 03 55 48 B2 30 3A 99 |URN>".F f.UH.0:.|
00001040: 22 13 11 22 3A 8E 00 65 20 6B 03 8F 20 2A 2A 20 |"..":..e k.. ** |
00001050: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
00001060: 52 4B 20 2A 2A 00 9B 20 70 03 99 C8 28 55 44 24 |RK **.. p...(UD$|
00001070: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
00001080: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
00001090: 53 45 2E 2E 2E 20 20 20 20 20 22 00 A1 20 75 03 |SE... ".. u.|
000010A0: 8E 00 BE 20 84 03 8F 20 2A 2A 20 53 45 54 20 55 |... ... ** SET U|
000010B0: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 09 |P VARIABLES **..|
000010C0: 21 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |!..UX$."H":.UQ%(|
000010D0: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
000010E0: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
000010F0: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001100: 37 3A 55 55 B2 31 30 32 34 00 47 21 86 03 55 54 |7:UU.1024.G!..UT|
00001110: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001120: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001130: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
00001140: 35 30 30 30 33 2C 30 00 8A 21 87 03 8B C2 28 35 |50003,0..!....(5|
00001150: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
00001160: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
00001170: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
00001180: 30 34 3A 55 55 B2 32 30 34 38 00 C9 21 88 03 8B |04:UU.2048..!...|
00001190: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
000011A0: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
000011B0: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
000011C0: 32 34 3A 55 4F B2 31 39 38 00 ED 21 89 03 55 44 |24:UO.198..!..UD|
000011D0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
000011E0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 1F 22 |............".."|
000011F0: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001220: 6D 22 8B 03 55 54 24 B2 22 20 C3 D2 C1 D0 D3 A0 |m"..UT$." ......|
00001230: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 3A 8F 20 |............":. |
00001240: 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 |PLACE PROGRAM TI|
00001250: 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 |TLE HERE !!!!!!!|
00001260: 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 73 22 |!!!!!!!!!!***.s"|
00001270: 8C 03 8E 00 8D 22 8E 03 8F 20 2A 2A 20 53 45 54 |....."... ** SET|
00001280: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 96 22 | VARIABLES **.."|
00001290: 93 03 8D 39 30 30 00 9C 22 94 03 3A 00 A2 22 95 |...900.."..:..".|
000012A0: 03 3A 00 BD 22 98 03 8F 20 2A 2A 20 43 48 45 43 |.:.."... ** CHEC|
000012B0: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 DB 22 |K FOR 8032 **.."|
000012C0: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH|
000012D0: 49 46 54 45 44 20 53 50 41 43 45 00 F2 22 A2 03 |IFTED SPACE.."..|
000012E0: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7|
000012F0: 30 30 00 0B 23 A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00..#... ** MEMO|
00001300: 52 59 20 43 48 45 43 4B 20 2A 2A 00 1F 23 A4 03 |RY CHECK **..#..|
00001310: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.|
00001320: 4D 23 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |M#..."....THIS M|
00001330: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT |
00001340: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 71 23 |HAVE ENOUGH.".q#|
00001350: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU|
00001360: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !|
00001370: 22 00 7C 23 A7 03 9E 55 55 AA 37 31 00 82 23 A8 |".|#...UU.71..#.|
00001380: 03 80 00 9C 23 A9 03 99 22 93 05 22 3A 8B C2 28 |....#..."..":..(|
00001390: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 CB 23 AC |50003).0.962..#.|
000013A0: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 |
000013B0: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-|
000013C0: 36 34 20 53 45 54 55 50 20 2A 2A 00 09 24 AD 03 |64 SETUP **..$..|
000013D0: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,|
000013E0: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1|
000013F0: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:|
00001400: 97 31 30 38 31 2C 31 34 35 00 3F 24 AE 03 97 31 |.1081,145.?$...1|
00001410: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13|
00001420: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110|
00001430: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.|
00001440: 61 24 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |a$...1104,145:.1|
00001450: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23|
00001460: 34 00 78 24 B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.x$....(50003).|
00001470: B1 31 36 30 A7 39 35 35 00 A7 24 B6 03 97 31 30 |.160.955..$...10|
00001480: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:|
00001490: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2|
000014A0: 32 38 3A 89 39 36 35 00 BC 24 BB 03 8B C2 28 35 |28:.965..$....(5|
000014B0: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 EB 24 C0 |0003)..1.990..$.|
000014C0: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,|
000014D0: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11|
000014E0: 30 32 2C 32 33 30 3A 89 39 36 35 00 25 25 C2 03 |02,230:.965.%%..|
000014F0: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,|
00001500: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103|
00001510: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21|
00001520: 30 35 2C 32 31 00 61 25 C3 03 97 32 31 30 36 2C |05,21.a%...2106,|
00001530: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211|
00001540: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.|
00001550: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14|
00001560: 31 00 9B 25 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1..%...2123,20:.|
00001570: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234|
00001580: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128|
00001590: 2C 32 31 3A 97 32 31 32 39 2C 33 00 B9 25 C5 03 |,21:.2129,3..%..|
000015A0: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE|
000015B0: 20 53 54 4F 50 20 4B 45 59 00 CA 25 CA 03 8D 38 | STOP KEY..%...8|
000015C0: 30 30 3A 8F 20 54 49 54 4C 45 00 DA 25 D4 03 89 |00:. TITLE..%...|
000015D0: 33 30 30 3A 8F 20 4D 45 4E 55 00 0B 26 DE 03 99 |300:. MENU..&...|
000015E0: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N|
000015F0: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS |
00001600: 4D 41 43 48 49 4E 45 21 22 3A 80 00 40 26 E8 03 |MACHINE!":..@&..|
00001610: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:|
00001620: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA|
00001630: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **|
00001640: 00 6C 26 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |.l&..."..";:.:..|
00001650: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00001660: 2C 36 3A 97 35 33 32 38 30 2C 31 33 00 8A 26 EB |,6:.53280,13..&.|
00001670: 03 55 50 B2 30 3A 97 55 54 2C 55 4C 25 3A 55 54 |.UP.0:.UT,UL%:UT|
00001680: 24 B2 22 20 C3 52 41 50 53 22 00 9A 26 56 04 55 |$." .RAPS"..&V.U|
00001690: 47 24 B2 22 22 3A 8D 38 35 30 00 BD 26 60 04 99 |G$."":.850..&`..|
000016A0: 20 22 11 11 11 11 20 D7 48 41 54 20 49 53 20 59 | ".... .HAT IS Y|
000016B0: 4F 55 52 20 57 41 47 45 52 3F 20 22 3B 00 E4 26 |OUR WAGER? ";..&|
000016C0: 6A 04 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |j.US$."012345678|
000016D0: 39 22 3A 55 4C B2 36 3A 8D 33 35 3A 46 B2 C5 28 |9":UL.6:.35:F..(|
000016E0: 55 52 24 29 00 1F 27 74 04 55 48 B2 31 3A 8D 38 |UR$)..'t.UH.1:.8|
000016F0: 35 30 3A 99 20 22 11 20 20 20 20 20 20 C9 20 57 |50:. ". . W|
00001700: 49 4C 4C 20 4E 4F 57 20 54 48 52 4F 57 20 54 48 |ILL NOW THROW TH|
00001710: 45 20 44 49 43 45 11 22 3A 8D 20 31 38 31 30 00 |E DICE.":. 1810.|
00001720: 3A 27 7E 04 88 20 45 B2 B5 28 37 AC BB 28 31 29 |:'~.. E..(7..(1)|
00001730: 29 3A DA 33 2C 39 30 30 2C 32 00 55 27 88 04 88 |):.3,900,2.U'...|
00001740: 20 53 B2 B5 28 37 AC BB 28 31 29 29 3A DA 31 2C | S..(7..(1)):.1,|
00001750: 37 30 30 2C 32 00 61 27 92 04 88 20 58 B2 45 AA |700,2.a'... X.E.|
00001760: 53 00 80 27 97 04 8B C2 28 55 34 29 B1 31 36 A7 |S..'....(U4).16.|
00001770: 8D 38 33 35 3A CB 53 42 38 35 30 3A 99 22 11 22 |.835:.SB850:."."|
00001780: 00 91 27 9C 04 8B 20 58 B2 37 20 89 20 31 33 31 |..'... X.7 . 131|
00001790: 30 00 A3 27 A6 04 8B 20 58 B2 31 31 20 89 20 31 |0..'... X.11 . 1|
000017A0: 33 31 30 00 B4 27 B0 04 8B 20 58 B2 32 20 89 20 |310..'... X.2 . |
000017B0: 31 33 34 30 00 C5 27 BA 04 8B 20 58 B2 30 20 89 |1340..'... X.0 .|
000017C0: 20 31 31 35 30 00 D6 27 C4 04 8B 20 58 B2 31 20 | 1150..'... X.1 |
000017D0: 89 20 31 31 35 30 00 E7 27 CE 04 8B 20 58 B2 33 |. 1150..'... X.3|
000017E0: 20 89 20 31 33 38 30 00 F9 27 D8 04 8B 20 58 B2 | . 1380..'... X.|
000017F0: 31 32 20 89 20 31 33 38 30 00 0A 28 E2 04 8B 20 |12 . 1380..(... |
00001800: 58 B2 35 20 89 20 31 34 33 30 00 1B 28 EC 04 8B |X.5 . 1430..(...|
00001810: 20 58 B2 36 20 89 20 31 34 33 30 00 2B 28 F6 04 | X.6 . 1430.+(..|
00001820: 8B 20 58 B2 38 20 89 31 34 33 30 00 3C 28 00 05 |. X.8 .1430.<(..|
00001830: 8B 20 58 B2 39 20 89 20 31 34 33 30 00 4E 28 0A |. X.9 . 1430.N(.|
00001840: 05 8B 20 58 B2 31 30 20 89 20 31 34 33 30 00 5F |.. X.10 . 1430._|
00001850: 28 14 05 8B 20 58 B2 34 20 89 20 31 34 33 30 00 |(... X.4 . 1430.|
00001860: 8B 28 1E 05 99 22 11 20 22 20 58 20 22 20 CE 41 |.(...". " X " .A|
00001870: 54 55 52 41 4C 2E 2E 2E C1 20 D7 49 4E 4E 45 52 |TURAL.... .INNER|
00001880: 21 21 21 22 3A 8D 20 31 38 31 30 00 C8 28 28 05 |!!!":. 1810..((.|
00001890: 99 22 11 20 22 58 22 50 41 59 53 20 45 56 45 4E |.". "X"PAYS EVEN|
000018A0: 20 4D 4F 4E 45 59 22 3A 99 22 20 20 20 20 D9 4F | MONEY":." .O|
000018B0: 55 20 57 49 4E 22 46 22 44 4F 4C 4C 41 52 53 2E |U WIN"F"DOLLARS.|
000018C0: 22 3A 8D 20 31 38 31 30 00 D3 28 32 05 89 20 31 |":. 1810..(2.. 1|
000018D0: 34 31 30 00 FD 28 3C 05 99 22 11 20 22 58 22 D3 |410..(<..". "X".|
000018E0: 4E 41 4B 45 20 45 59 45 53 2E 2E 2E 59 4F 55 20 |NAKE EYES...YOU |
000018F0: 4C 4F 53 45 2E 22 3A 8D 20 31 38 31 30 00 1E 29 |LOSE.":. 1810..)|
00001900: 46 05 99 20 22 11 11 20 20 D9 4F 55 20 4C 4F 53 |F.. ".. .OU LOS|
00001910: 45 20 22 46 22 44 4F 4C 4C 41 52 53 2E 22 00 2A |E "F"DOLLARS.".*|
00001920: 29 50 05 88 20 46 B2 30 AB 46 00 35 29 5A 05 89 |)P.. F.0.F.5)Z..|
00001930: 20 31 34 31 30 00 5B 29 64 05 99 22 11 20 22 20 | 1410.[)d..". " |
00001940: 58 20 22 C3 52 41 50 53 2E 2E 2E D9 4F 55 20 4C |X ".RAPS....OU L|
00001950: 4F 53 45 22 3A 8D 20 31 38 31 30 00 8A 29 6E 05 |OSE":. 1810..)n.|
00001960: 99 22 11 11 20 20 D9 4F 55 20 4C 4F 53 45 22 46 |.".. .OU LOSE"F|
00001970: 22 44 4F 4C 4C 41 52 53 2E 22 3A DA 31 2C 37 30 |"DOLLARS.":.1,70|
00001980: 30 2C 33 3A 8D 20 31 38 31 30 00 96 29 78 05 88 |0,3:. 1810..)x..|
00001990: 20 46 B2 30 AB 46 00 A2 29 82 05 88 20 52 B2 52 | F.0.F..)... R.R|
000019A0: AA 46 00 AD 29 8C 05 89 20 31 36 32 30 00 D9 29 |.F..)... 1620..)|
000019B0: 96 05 99 22 11 20 22 58 22 D0 4F 49 4E 54 2E 20 |...". "X".OINT. |
000019C0: C9 20 57 49 4C 4C 20 52 4F 4C 4C 20 41 47 41 49 |. WILL ROLL AGAI|
000019D0: 4E 22 3A 8D 20 31 38 31 30 00 F4 29 A0 05 88 20 |N":. 1810..)... |
000019E0: 48 B2 B5 28 37 AC BB 28 31 29 29 3A DA 31 2C 36 |H..(7..(1)):.1,6|
000019F0: 30 30 2C 32 00 0F 2A AA 05 88 20 51 B2 B5 28 37 |00,2..*... Q..(7|
00001A00: AC BB 28 31 29 29 3A DA 32 2C 36 30 30 2C 32 00 |..(1)):.2,600,2.|
00001A10: 1B 2A B4 05 88 20 4F B2 48 AA 51 00 38 2A B9 05 |.*... O.H.Q.8*..|
00001A20: 8B C2 28 55 34 29 B1 31 36 A7 8D 38 33 35 3A 8D |..(U4).16..835:.|
00001A30: 38 35 30 3A 99 22 11 22 00 49 2A BE 05 8B 20 4F |850:.".".I*... O|
00001A40: B2 31 20 89 20 31 34 34 30 00 5A 2A C8 05 8B 20 |.1 . 1440.Z*... |
00001A50: 4F B2 37 20 89 20 31 35 33 30 00 70 2A CB 05 8B |O.7 . 1530.p*...|
00001A60: 20 4F B2 32 20 A7 20 58 B2 4F 3A 89 31 33 34 30 | O.2 . X.O:.1340|
00001A70: 00 81 2A CD 05 8B 20 4F B2 33 20 A7 20 31 35 33 |..*... O.3 . 153|
00001A80: 30 00 93 2A CF 05 8B 20 4F B2 31 32 20 A7 20 31 |0..*... O.12 . 1|
00001A90: 35 33 30 00 A4 2A D2 05 8B 20 4F B2 30 20 89 20 |530..*... O.0 . |
00001AA0: 31 34 34 30 00 B5 2A DC 05 8B 20 4F B2 58 20 89 |1440..*... O.X .|
00001AB0: 20 31 35 38 30 00 EE 2A E6 05 99 22 11 20 22 4F | 1580..*...". "O|
00001AC0: 20 22 CE 4F 20 50 4F 49 4E 54 2E 20 C9 20 57 49 | ".O POINT. . WI|
00001AD0: 4C 4C 20 52 4F 4C 4C 20 41 47 41 49 4E 22 3A DA |LL ROLL AGAIN":.|
00001AE0: 31 2C 37 30 30 2C 33 3A 8D 20 31 38 31 30 00 F9 |1,700,3:. 1810..|
00001AF0: 2A F0 05 89 20 31 34 34 30 00 0F 2B FA 05 99 22 |*... 1440..+..."|
00001B00: 11 20 22 4F 22 D9 4F 55 20 4C 4F 53 45 2E 22 00 |. "O".OU LOSE.".|
00001B10: 2E 2B 04 06 99 20 22 11 11 20 20 D9 4F 55 20 4C |.+... ".. .OU L|
00001B20: 4F 53 45 20 24 22 46 3A 8D 20 31 38 31 30 00 38 |OSE $"F:. 1810.8|
00001B30: 2B 0E 06 46 B2 30 AB 46 00 43 2B 18 06 89 20 31 |+..F.0.F.C+... 1|
00001B40: 34 31 30 00 4E 2B 22 06 89 20 31 36 32 30 00 7C |410.N+".. 1620.||
00001B50: 2B 2C 06 99 22 11 20 22 20 58 22 C1 20 57 49 4E |+,..". " X". WIN|
00001B60: 4E 45 52 2E 2E 2E 2E 2E C3 4F 4E 47 52 41 54 53 |NER......ONGRATS|
00001B70: 21 21 21 21 22 3A 8D 20 31 38 31 30 00 BD 2B 36 |!!!!":. 1810..+6|
00001B80: 06 99 22 11 20 22 58 22 C1 54 20 32 20 54 4F 20 |..". "X".T 2 TO |
00001B90: 31 20 4F 44 44 53 20 50 41 59 53 20 59 4F 55 2E |1 ODDS PAYS YOU.|
00001BA0: 2E 4C 45 54 20 4D 45 20 53 45 45 20 20 20 20 22 |.LET ME SEE "|
00001BB0: 32 AC 46 22 44 4F 4C 4C 41 52 53 2E 22 00 C7 2B |2.F"DOLLARS."..+|
00001BC0: 38 06 8D 31 38 31 30 00 D3 2B 40 06 88 20 46 B2 |8..1810..+@.. F.|
00001BD0: 32 AC 46 00 DE 2B 4A 06 89 20 31 34 31 30 00 08 |2.F..+J.. 1410..|
00001BE0: 2C 54 06 99 20 22 11 11 20 20 C4 4F 20 59 4F 55 |,T.. ".. .O YOU|
00001BF0: 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 | WANT TO PLAY AG|
00001C00: 41 49 4E 20 3F 20 22 3B 00 25 2C 5E 06 55 53 24 |AIN ? ";.%,^.US$|
00001C10: B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 4D |."YN":UL.1:.35:M|
00001C20: 24 B2 55 52 24 00 2E 2C 63 06 8D 38 35 30 00 3F |$.UR$..,c..850.?|
00001C30: 2C 68 06 8B 20 52 B3 30 20 89 20 31 36 37 30 00 |,h.. R.0 . 1670.|
00001C40: 50 2C 72 06 8B 20 52 B1 30 20 89 20 31 36 39 30 |P,r.. R.0 . 1690|
00001C50: 00 61 2C 7C 06 8B 20 52 B2 30 20 89 20 31 37 31 |.a,|.. R.0 . 171|
00001C60: 30 00 83 2C 86 06 99 20 22 11 11 20 D9 4F 55 20 |0..,... ".. .OU |
00001C70: 41 52 45 20 4E 4F 57 20 55 4E 44 45 52 20 24 22 |ARE NOW UNDER $"|
00001C80: 3B AB 52 00 8E 2C 90 06 89 20 31 37 32 30 00 AE |;.R..,... 1720..|
00001C90: 2C 9A 06 99 20 22 11 11 20 D9 4F 55 20 41 52 45 |,... ".. .OU ARE|
00001CA0: 20 4E 4F 57 20 41 48 45 41 44 20 24 22 52 00 B9 | NOW AHEAD $"R..|
00001CB0: 2C A4 06 89 20 31 37 32 30 00 DA 2C AE 06 99 20 |,... 1720..,... |
00001CC0: 22 11 11 20 D9 4F 55 20 41 52 45 20 4E 4F 57 20 |".. .OU ARE NOW |
00001CD0: 45 56 45 4E 20 41 54 20 30 22 00 EE 2C B8 06 8B |EVEN AT 0"..,...|
00001CE0: 20 4D 24 B2 22 59 22 20 89 20 31 31 32 30 00 FF | M$."Y" . 1120..|
00001CF0: 2C C2 06 8B 20 52 B3 30 20 89 20 31 37 36 30 00 |,... R.0 . 1760.|
00001D00: 10 2D CC 06 8B 20 52 B1 30 20 89 20 31 37 38 30 |.-... R.0 . 1780|
00001D10: 00 21 2D D6 06 8B 20 52 B2 30 20 89 20 31 38 30 |.!-... R.0 . 180|
00001D20: 30 00 5A 2D E0 06 99 20 22 11 20 D4 4F 4F 20 42 |0.Z-... ". .OO B|
00001D30: 41 44 2C 20 59 4F 55 20 41 52 45 20 49 4E 20 54 |AD, YOU ARE IN T|
00001D40: 48 45 20 48 4F 4C 45 2E 22 3A 99 22 11 20 C3 4F |HE HOLE.":.". .O|
00001D50: 4D 45 20 41 47 41 49 4E 2E 22 00 65 2D EA 06 89 |ME AGAIN.".e-...|
00001D60: 20 31 38 32 30 00 A4 2D F4 06 99 20 22 11 20 C3 | 1820..-... ". .|
00001D70: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2D 2D |ONGRATULATIONS--|
00001D80: D9 4F 55 20 43 41 4D 45 20 4F 55 54 20 41 20 57 |.OU CAME OUT A W|
00001D90: 49 4E 4E 45 52 2E 11 20 C3 4F 4D 45 20 41 47 41 |INNER.. .OME AGA|
00001DA0: 49 4E 2E 22 00 AF 2D FE 06 89 20 31 38 32 30 00 |IN."..-... 1820.|
00001DB0: F6 2D 08 07 99 20 22 11 20 C3 4F 4E 47 52 41 54 |.-... ". .ONGRAT|
00001DC0: 55 4C 41 54 49 4F 4E 53 2D 2D D9 4F 55 20 43 41 |ULATIONS--.OU CA|
00001DD0: 4D 45 20 4F 55 54 20 45 56 45 4E 2C 20 4E 4F 54 |ME OUT EVEN, NOT|
00001DE0: 11 20 42 41 44 20 46 4F 52 20 41 4E 20 41 4D 41 |. BAD FOR AN AMA|
00001DF0: 54 45 55 52 2E 22 00 0B 2E 0D 07 81 41 B2 31 A4 |TEUR."......A.1.|
00001E00: 32 30 30 30 3A 82 3A 89 33 30 30 00 22 2E 12 07 |2000:.:.300."...|
00001E10: 81 20 4A B2 31 20 A4 20 38 30 30 3A 82 20 4A 3A |. J.1 . 800:. J:|
00001E20: 20 8E 00 2B 2E 1C 07 89 38 33 35 00 00 00 | ..+....835... |
..6....65301,2:.65305,0:.65297,15:.G(14)
:Z1,900,4:.800.V.... ** ML STOP KEY DISA
BLE **......"X.=........X` ......L4.X.1.
.......X`. ...."XHHH.H.HHHHHHH.H.HX`111"
......"HHHHHHH`1".S.... ** 4 - POP ML SU
BROUTINE **...... **GENERAL INPUT ROUTIN
E **.....:...#.. +++ INPUT SECTION +++..
.(..UO,0:UR$."":UI$."".>.*..UL.0.UL.80.Z
.+.. US$.."" . US$.US$.UX$.M.-.." ..";:
.UC,0...2..UI$:.UI$."".50...7..UI$.G(13)
.C(UR$)..1..UC,1:." .";:.85...<..UI$.G(2
0).105.R.>.. C(UR$)..UL.50...A..120:. CH
ECK FOR VALID CHARACTER...F.UR$.UR$.UI$.
..K..UI$;...P..50.>.U.. +++ CHECK FOR HE
LP REQUEST +++.F.Z..UR$.UX$.195:. EXIT T
O HELP ROUTINE.U._..UF.1..240...D.UF.0:.
:....F.. ++ CHECK DELETE ++...I..C(UR$).
1.50.D.N.UR$.H(UR$,C(UR$).1).V.S..". ..
";:.50...X.. ++ CHECK FOR VALID CHARACTE
RS ++...}..C(US$).0.150....US$.US$.UX$.
0....US.1.C(US$).G....UI$.J(US$,US,1)...
M.....Z...UI$."":..U.... ** STANDARD INP
UT **......F(UI$).46........UI$.G(32)...
.. ..F(UI$).48.F(UI$).57.170.......W....
F(UI$).65.F(UI$).90.180............F(UI$
).193.F(UI$).218.UI$."":..$....B(UT).UU%
.UI$.G(F(UI$).128):..*.....7...UI$."":..
\.C.UF.1:. +++ HELP ROUTINE EXIT +++.E.E
..250.N.H..245...M..UQ.UB.(U2%.256.U1%.U
3%.2)...R.UQ%(UQ.UB).B(UQ):.:."."...W.UZ
.1:UV%.B(UT).E.X..300...Y.UZ.0:US$.UJ$:U
G$.UK$:UP.UJ:UL.UK.!.Z..B(50003).0..5328
1,1:.".";:.53281,6:.53280,14:.220.+...."
.";.Z...UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.
U1%.U3%.3).O....UQ,UQ%(UQ.UB):..{....U1,
U1%......U2,U2%......U4,U4%......U3,U3%.
1......35.....UD%.((U2%.256.U1%.U3%).UB)
.40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..B
...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U
4).J...UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.
UL.P.......,.. ** MENU **...-.:......"."
:.UT,UU%:.B(50003).0..53281,9:.53280,13.
../.:.Z.1..". MENU"...6..
" --------------------------------------
".,.;..".. 1. BEGIN CRAPS ".N.@
..".. 2. INSTRUCTIONS".J.O.."..
4. QUIT.."...T.." --------------
------------------------".D.Y.."..
PRESS A NUMBER KEY (1-4) ";...^.UL.1:US
$."1234":.35:. INPUT ROUTINE..._..C(UR$)
.1.300...`.US$."".&.C..E(UR$).1000,400,5
00,396./.H..300.V.... ** RE-ENABLE STOP
KEY AND END **......B(50003)..1.B(50003)
..160.B(50003)..0.399......UU.71:.B(5000
3).0..53281,6:.53280,13......"..":..F...
.875:....... ** STUDENT INSTRUCTIONS **.
....UT$." CRAPS".(....".":.UT,UL%:.B(500
03).0..53281,0:.53280,13.I...UP.0:UG$."S
TUDENT INST":.850.Y....". THIS GAME SI
MULATES A GAME OF CRAPS."......". THE NU
MBERS 2, 3, AND 12 ARE LOSERS.".T. ..".
IF YOU GET THEM ON A ROLL YOU LOSE."....
..". THE NUMBER 11 IS A WINNER IF YOU GE
T".!....". IT ON THE FIRST ROLL.".N...."
. THE NUMBER 7 CAN BE EITHER A WINNER".}
....". OR A LOSER. IF YOU GET 7 ON THE F
IRST"......". ROLL YOU WIN: IF YOU GET I
T ON ANY".L....". SUBSEQUENT ROLL YOU LO
SE.".Z....835:.850......". IF YOUR FIRST
ROLL IS NOT ONE OF THE ".4....". PREVIO
USLY MENTIONED NUMBERS THEN".B....". THE
NUMBER BECOMES THE POINT AND THE"......
". COMPUTER WILL CONTINUE TO ROLL UNTIL"
......". IT GETS THE POINT OR ONE OF THE
".U....". AUTOMATIC LOSERS."......".. .
NOTE:..IF AT ANY TIME YOU WISH TO RETURN
".-....". TO THE MENU PRESS H RETURN".6.
...835.J....UZ.1..UP%:.217.P..........".
":.UT,UL%:.B(50003).0..53281,2:.53280,10
.....UT$." CRAPS":UP.0:UG$."TEACHER INST
":.850......835.K.N..UZ.1..UP%:.217.Q.W.
....X.. ** PROGRAM MODIFICATION INST **.
..Y..".":.UT,UL%.(.].UP.0:UG$."PROGRAM M
OD":.850.1....835.E....UZ.1..UP%:.217.K.
....P.... ** TO USE 8032 LOAD CBM4032 **
......"....BEFORE RUNNING THIS PROGRAM O
N AN 8032 ..LOAD CBM 4032 PROGRAM".G...
.1093:.... .. ** T I!. ] E P A G!. **.
..".."....";:.UT,UU%:.B(50003).0..53280,
13:.53281,6.?.$.. .10) "..... C R A P
O U T ".N.%.. T.1.1500.I.:.. ** COMMODOR
E LOGO **...;..H(UD$,24);"..........PRES
S SPACE BAR OR WAIT.":I.0.C.<..A$:.A$.."
".I.I.1:.I.250.828...>.T1$."":T2$."":T3
$."":T4$."":I.0...@..300...C.. ** SPACE
BAR PRESS **.P.H..UO,0:.H(UD$,24);".....
..PRESS SPACE BAR TO CONTINUE.":Z2,950,2
.G.L..UI$:.UI$.." ".844.M.N.....R.. ** P
AGE DESIGN ROUTINE **...T.UP.UP.1.C.W.."
."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)...\.
." -------------------------------------
-".. `..UH..0.870.5 A..H(UD$,24);H(UP$,7
);"HELP - PRESS H <RETURN>".F F.UH.0:.
"..":..E K.. ** PLEASE WAIT REMARK **..
P..H(UD$,24);" ONE MOMENT PLEA
SE... ".. U.... ... ** SET UP VARIAB
LES **..!..UX$."H":.UQ%(1000):UB.32768:U
1.196:U2.197:U3.198:U4.216:UC.167:UU.102
4.G!..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.2
04:UU.2048.I!...B(50003).0.UT.53272:UU%.
21:UL%.23:UP%.2139:UM.1024:UO.198..!..UD
$.".........................".."..UP$."
".
M"..UT$." CRAPS ":. PLACE PR
OGRAM TITLE HERE !!!!!!!!!!!!!!!!!***.S"
....."... ** SET VARIABLES **.."...900..
"..:.."..:.."... ** CHECK FOR 8032 **.."
...".":." ":. SHIFTED SPACE.."...B(UB.40
)..96..700..#... ** MEMORY CHECK **..#..
. .(0).2000.937.M#..."....THIS MACHINE D
OES NOT HAVE ENOUGH.".Q#..."MEMORY TO RU
N THIS PROGRAM !".|#...UU.71..#.....#...
"..":.B(50003).0.962.K#... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **..$...1075,13
3:.1076,144:.1077,234:.1079,4:.1080,133:
.1081,145.?$...1091,155:.1098,133:.1099,
144:.1100,234:.1103,133.A$...1104,145:.1
105,234:.1082,234.X$...B(50003)..160.955
..$...1093,88:.1094,228:.1097,85:.1102,2
28:.965..$...B(50003)..1.990..$...1093,4
9:.1094,230:.1097,46:.1102,230:.965.%%B.
.2099,141:.2100,20:.2101,3:.2103,8:.2104
,141:.2105,21.A%C..2106,3:.2115,145:.211
7,52:.2118,234:.2121,49:.2122,141..%D..2
123,20:.2124,3:.2126,234:.2127,141:.2128
,21:.2129,3..%E..UU.48:. DISABLE STOP KE
Y.J%J..800:. TITLE.Z%T..300:. MENU..&...
".THE PGM WILL NOT WORK ON THIS MACHINE!
":..@&...UZ.1..UP%:.UP%:UZ.0:. ** PROGRA
M STARTS HERE **.L&..."..";:.:.B(50003).
0..53281,6:.53280,13..&..UP.0:.UT,UL%:UT
$." CRAPS"..&V.UG$."":.850..&`.. ".... W
HAT IS YOUR WAGER? ";..&J.US$."012345678
9":UL.6:.35:F.E(UR$)..'T.UH.1:.850:. ".
I WILL NOW THROW THE DICE.":. 1810.
:'~.. E..(7..(1)):Z3,900,2.U'... S..(7..
(1)):Z1,700,2.A'... X.E.S..'...B(U4).16.
.835:KSB850:."."..'... X.7 . 1310..'...
X.11 . 1310..'... X.2 . 1340.E'... X.0 .
1150.V'D.. X.1 . 1150..'N.. X.3 . 1380.
.'X.. X.12 . 1380..(... X.5 . 1430..(...
X.6 . 1430.+(... X.8 .1430.<(... X.9 .
1430.N(... X.10 . 1430._(... X.4 . 1430.
.(...". " X " NATURAL...A WINNER!!!":. 1
810.H((..". "X"PAYS EVEN MONEY":." YO
U WIN"F"DOLLARS.":. 1810.S(2.. 1410..(<.
.". "X"SNAKE EYES...YOU LOSE.":. 1810..)
F.. ".. YOU LOSE "F"DOLLARS.".*)P.. F.0
.F.5)Z.. 1410.[)D..". " X "CRAPS...YOU L
OSE":. 1810..)N..".. YOU LOSE"F"DOLLARS
.":Z1,700,3:. 1810..)X.. F.0.F..)... R.R
.F..)... 1620.Y)...". "X"POINT. I WILL R
OLL AGAIN":. 1810..) .. H..(7..(1)):Z1,6
00,2..*... Q..(7..(1)):Z2,600,2..*... O.
H.Q.8*...B(U4).16..835:.850:.".".I*... O
.1 . 1440.Z*H.. O.7 . 1530.P*K.. O.2 . X
.O:.1340..*M.. O.3 . 1530..*O.. O.12 . 1
530..*R.. O.0 . 1440..*... O.X . 1580..*
...". "O "NO POINT. I WILL ROLL AGAIN":Z
1,700,3:. 1810..*... 1440..+...". "O"YOU
LOSE."..+... ".. YOU LOSE $"F:. 1810.8
+..F.0.F.C+... 1410.N+".. 1620.|+,..". "
X"A WINNER.....CONGRATS!!!!":. 1810..+6
..". "X"AT 2 TO 1 ODDS PAYS YOU..LET ME
SEE "2.F"DOLLARS.".G+8..1810.S+@.. F.
2.F..+J.. 1410..,T.. ".. DO YOU WANT TO
PLAY AGAIN ? ";.%,^.US$."YN":UL.1:.35:M
$.UR$..,C..850.?,H.. R.0 . 1670.P,R.. R.
0 . 1690.A,|.. R.0 . 1710..,... ".. YOU
ARE NOW UNDER $";.R..,... 1720..,... "..
YOU ARE NOW AHEAD $"R..,... 1720.Z,...
".. YOU ARE NOW EVEN AT 0"..,... M$."Y"
. 1120..,B.. R.0 . 1760..-L.. R.0 . 1780
.!-V.. R.0 . 1800.Z-... ". TOO BAD, YOU
ARE IN THE HOLE.":.". COME AGAIN.".E-...
1820..-... ". CONGRATULATIONS--YOU CAME
OUT A WINNER.. COME AGAIN."..-... 1820.
.-... ". CONGRATULATIONS--YOU CAME OUT E
VEN, NOT. BAD FOR AN AMATEUR."......A.1.
2000:.:.300.".... J.1 . 800:. J: ..+....
835...
> CLICK IMAGE PREVIEW FOR FULL MODAL