CRAPS ODDS
FILE INFORMATION
FILENAME(S): CRAPS ODDS
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:08:22
APPEARS ON: 2 disk(s)
FILE HASH
3776b70e447bde9407f620fafe6219209d9d06ce8ff9a5f5dc1f5bdd84716878
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | CRAPS ODDS | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 9 | DOWNLOAD FILE |
| FREESOFT NR | CRAPS ODDS | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 0A 00 8F 20 2A 2A 2A 20 43 52 41 50 |....... *** CRAP|
00000010: 53 20 32 00 2A 08 14 00 8F 20 20 20 20 20 45 41 |S 2.*.... EA|
00000020: 52 4C 20 57 55 43 48 54 45 52 00 30 08 1E 00 8F |RL WUCHTER.0....|
00000030: 00 49 08 28 00 8F 20 2A 2A 2A 20 50 45 54 20 55 |.I.(.. *** PET U|
00000040: 53 45 52 20 47 52 4F 55 50 00 65 08 32 00 8F 20 |SER GROUP.e.2.. |
00000050: 20 20 20 20 53 4F 46 54 57 41 52 45 20 45 58 43 | SOFTWARE EXC|
00000060: 48 41 4E 47 45 00 7A 08 3C 00 8F 20 20 20 20 20 |HANGE.z.<.. |
00000070: 50 4F 20 42 4F 58 20 33 37 31 00 9E 08 46 00 8F |PO BOX 371...F..|
00000080: 20 20 20 20 20 4D 4F 4E 54 47 4F 4D 45 52 59 56 | MONTGOMERYV|
00000090: 49 4C 4C 45 2C 20 50 41 20 31 38 39 33 36 00 A4 |ILLE, PA 18936..|
000000A0: 08 50 00 8F 00 CD 08 62 00 86 4E 24 28 31 32 29 |.P.....b..N$(12)|
000000B0: 2C 57 4B 28 35 29 2C 41 44 24 28 35 29 2C 4F 44 |,WK(5),AD$(5),OD|
000000C0: 24 28 31 30 29 2C 48 57 24 28 31 30 29 00 DA 08 |$(10),HW$(10)...|
000000D0: 63 00 49 B2 BB 28 AB 54 49 29 00 FF 08 64 00 44 |c.I..(.TI)...d.D|
000000E0: 24 28 30 29 B2 22 12 20 20 20 11 9D 9D 9D 20 20 |$(0).". .... |
000000F0: 20 11 9D 9D 9D 20 20 20 9D 9D 9D 91 91 92 22 00 | .... ......".|
00000100: 24 09 65 00 44 24 28 31 29 B2 22 12 20 20 20 11 |$.e.D$(1).". .|
00000110: 9D 9D 9D 20 D1 20 11 9D 9D 9D 20 20 20 9D 9D 9D |... . .... ...|
00000120: 91 91 92 22 00 49 09 66 00 44 24 28 32 29 B2 22 |...".I.f.D$(2)."|
00000130: 12 20 20 D1 11 9D 9D 9D 20 20 20 11 9D 9D 9D D1 |. ..... .....|
00000140: 20 20 9D 9D 9D 91 91 92 22 00 6E 09 67 00 44 24 | ......".n.g.D$|
00000150: 28 33 29 B2 22 12 D1 20 20 11 9D 9D 9D 20 D1 20 |(3).".. .... . |
00000160: 11 9D 9D 9D 20 20 D1 9D 9D 9D 91 91 92 22 00 93 |.... ......."..|
00000170: 09 68 00 44 24 28 34 29 B2 22 12 D1 20 D1 11 9D |.h.D$(4).".. ...|
00000180: 9D 9D 20 20 20 11 9D 9D 9D D1 20 D1 9D 9D 9D 91 |.. ..... .....|
00000190: 91 92 22 00 B8 09 69 00 44 24 28 35 29 B2 22 12 |.."...i.D$(5).".|
000001A0: D1 20 D1 11 9D 9D 9D 20 D1 20 11 9D 9D 9D D1 20 |. ..... . ..... |
000001B0: D1 9D 9D 9D 91 91 92 22 00 DD 09 6A 00 44 24 28 |......."...j.D$(|
000001C0: 36 29 B2 22 12 D1 20 D1 11 9D 9D 9D D1 20 D1 11 |6).".. ...... ..|
000001D0: 9D 9D 9D D1 20 D1 9D 9D 9D 91 91 92 22 00 00 0A |.... ......."...|
000001E0: 6B 00 43 44 24 B2 22 13 11 11 11 11 11 11 11 11 |k.CD$.".........|
000001F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000200: 00 31 0A 6C 00 42 4C 24 B2 22 20 20 20 20 20 20 |.1.l.BL$." |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 22 00 7A 0A 6D 00 4E 24 28 32 29 B2 22 54 57 4F |".z.m.N$(2)."TWO|
00000240: 20 22 3A 4E 24 28 33 29 B2 22 54 48 52 45 45 20 | ":N$(3)."THREE |
00000250: 22 3A 4E 24 28 34 29 B2 22 46 4F 55 52 20 22 3A |":N$(4)."FOUR ":|
00000260: 4E 24 28 35 29 B2 22 46 49 56 45 20 22 3A 4E 24 |N$(5)."FIVE ":N$|
00000270: 28 36 29 B2 22 53 49 58 20 22 00 B8 0A 6E 00 4E |(6)."SIX "...n.N|
00000280: 24 28 37 29 B2 22 53 45 56 45 4E 20 22 3A 4E 24 |$(7)."SEVEN ":N$|
00000290: 28 38 29 B2 22 45 49 47 48 54 20 22 3A 4E 24 28 |(8)."EIGHT ":N$(|
000002A0: 39 29 B2 22 4E 49 4E 45 20 22 3A 4E 24 28 31 30 |9)."NINE ":N$(10|
000002B0: 29 B2 22 54 45 4E 20 22 00 DE 0A 6F 00 4E 24 28 |)."TEN "...o.N$(|
000002C0: 31 31 29 B2 22 45 4C 45 56 45 4E 20 22 3A 4E 24 |11)."ELEVEN ":N$|
000002D0: 28 31 32 29 B2 22 54 57 45 4C 56 45 20 22 00 20 |(12)."TWELVE ". |
000002E0: 0B 73 00 4F 44 24 28 34 29 B2 22 32 20 54 4F 20 |.s.OD$(4)."2 TO |
000002F0: 31 22 3A 4F 44 24 28 35 29 B2 22 33 20 54 4F 20 |1":OD$(5)."3 TO |
00000300: 32 22 3A 4F 44 24 28 36 29 B2 22 36 20 54 4F 20 |2":OD$(6)."6 TO |
00000310: 35 22 3A 4F 44 24 28 38 29 B2 4F 44 24 28 36 29 |5":OD$(8).OD$(6)|
00000320: 00 41 0B 74 00 4F 44 24 28 39 29 B2 4F 44 24 28 |.A.t.OD$(9).OD$(|
00000330: 35 29 3A 4F 44 24 28 31 30 29 B2 4F 44 24 28 34 |5):OD$(10).OD$(4|
00000340: 29 00 64 0B 75 00 48 57 24 28 34 29 B2 22 38 20 |).d.u.HW$(4)."8 |
00000350: 54 4F 20 31 22 3A 48 57 24 28 31 30 29 B2 48 57 |TO 1":HW$(10).HW|
00000360: 24 28 34 29 00 87 0B 76 00 48 57 24 28 36 29 B2 |$(4)...v.HW$(6).|
00000370: 22 31 30 20 54 4F 20 31 22 3A 48 57 24 28 38 29 |"10 TO 1":HW$(8)|
00000380: B2 48 57 24 28 36 29 00 AC 0B 77 00 41 44 24 28 |.HW$(6)...w.AD$(|
00000390: 30 29 B2 22 20 22 3A 41 44 24 28 32 29 B2 22 20 |0)." ":AD$(2)." |
000003A0: 22 3A 41 44 24 28 35 29 B2 22 20 22 00 B5 0B F0 |":AD$(5)." "....|
000003B0: 00 8D 38 30 30 00 E4 0B FA 00 99 22 93 D5 C0 C0 |..800......"....|
000003C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 20 D5 C0 C0 C0 |........... ....|
000003D0: C0 C0 C0 C0 C9 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..... ..........|
000003E0: C0 C0 C9 22 00 13 0C FB 00 99 20 22 DD 48 49 54 |..."...... ".HIT|
000003F0: 20 41 4E 59 20 4B 45 59 20 DD 20 DD 20 20 20 20 | ANY KEY . . |
00000400: 20 20 20 DD 20 DD 20 48 49 54 20 41 20 46 4F 52 | . . HIT A FOR|
00000410: 20 DD 22 00 42 0C FC 00 99 20 22 DD 20 46 4F 52 | .".B.... ". FOR|
00000420: 20 4D 41 4E 55 41 4C 20 DD A0 DD 20 20 20 20 20 | MANUAL ... |
00000430: 20 20 DD 20 DD 20 41 55 54 4F 4D 41 54 49 43 20 | . . AUTOMATIC |
00000440: DD 22 00 71 0C FD 00 99 20 22 DD 20 44 49 43 45 |.".q.... ". DICE|
00000450: 20 52 4F 4C 4C 20 20 DD A0 DD 20 20 20 20 20 20 | ROLL ... |
00000460: 20 DD 20 DD 20 44 49 43 45 20 52 4F 4C 4C 20 DD | . . DICE ROLL .|
00000470: 22 00 A0 0C FE 00 99 20 22 CA C0 C0 C0 C0 C0 C0 |"...... ".......|
00000480: C0 C0 C0 C0 C0 C0 CB 20 CA C0 C0 C0 C0 C0 C0 C0 |....... ........|
00000490: CB A0 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 |..............."|
000004A0: 00 C7 0C FF 00 99 C8 28 43 44 24 2C 31 37 29 A3 |.......(CD$,17).|
000004B0: 31 32 29 22 43 4F 55 4E 54 20 20 20 20 44 45 56 |12)"COUNT DEV|
000004C0: 49 41 54 49 4F 4E 22 00 D0 0C 00 01 99 42 4C 24 |IATION"......BL$|
000004D0: 00 E3 0C 01 01 99 22 54 55 52 4E 53 20 2E 2E 2E |......"TURNS ...|
000004E0: 2E 2E 22 00 F6 0C 02 01 99 22 57 4F 4E 20 2E 2E |.."......"WON ..|
000004F0: 2E 2E 2E 2E 2E 22 00 09 0D 03 01 99 22 4C 4F 53 |....."......"LOS|
00000500: 54 20 2E 2E 2E 2E 2E 2E 22 00 1C 0D 04 01 99 22 |T ......"......"|
00000510: 4E 41 54 55 52 41 4C 20 2E 2E 2E 22 00 2F 0D 05 |NATURAL ..."./..|
00000520: 01 99 22 43 52 41 50 53 20 2E 2E 2E 2E 2E 22 00 |.."CRAPS .....".|
00000530: 42 0D 08 01 99 22 43 4F 4E 53 45 51 2E 57 49 4E |B...."CONSEQ.WIN|
00000540: 53 22 00 50 0D 09 01 99 C8 28 43 44 24 2C 36 29 |S".P.....(CD$,6)|
00000550: 00 63 0D 18 01 A1 58 24 3A 8B 58 24 B2 22 22 89 |.c....X$:.X$."".|
00000560: 32 38 30 00 69 0D 2C 01 8F 00 7F 0D 2D 01 52 B2 |280.i.,.....-.R.|
00000570: 31 3A 57 4B 28 30 29 B2 57 4B 28 30 29 AA 31 00 |1:WK(0).WK(0).1.|
00000580: B5 0D 31 01 99 C8 28 43 44 24 2C 36 29 3A 99 42 |..1...(CD$,6):.B|
00000590: 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C |L$:.BL$:.BL$:.BL|
000005A0: 24 3A 99 42 4C 24 3A 99 42 4C 24 3A 99 42 4C 24 |$:.BL$:.BL$:.BL$|
000005B0: 3A 99 42 4C 24 00 C8 0D 33 01 54 B2 B5 28 31 32 |:.BL$...3.T..(12|
000005C0: AC BB 28 33 29 AA 36 29 00 D3 0D 34 01 81 4B B2 |..(3).6)...4..K.|
000005D0: 31 A4 54 00 F5 0D 36 01 44 31 B2 B5 28 36 AC BB |1.T...6.D1..(6..|
000005E0: 28 31 29 AA 31 29 3A 44 32 B2 B5 28 36 AC BB 28 |(1).1):D2..(6..(|
000005F0: 32 29 AA 31 29 00 13 0E 38 01 99 22 13 11 22 A3 |2).1)...8.."..".|
00000600: 31 36 29 44 24 28 44 31 29 A3 32 30 29 44 24 28 |16)D$(D1).20)D$(|
00000610: 44 32 29 00 19 0E 3B 01 82 00 26 0E 3E 01 44 56 |D2)...;...&.>.DV|
00000620: B2 44 31 AA 44 32 00 41 0E 40 01 4A B2 37 3A 8B |.D1.D2.A.@.J.7:.|
00000630: 52 B2 32 A7 4A B2 31 32 3A 8B 44 44 A7 4A B2 31 |R.2.J.12:.DD.J.1|
00000640: 33 00 64 0E 41 01 99 C8 28 43 44 24 2C 4A 29 22 |3.d.A...(CD$,J)"|
00000650: 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 22 4E 24 28 | ......"N$(|
00000660: 44 56 29 3B 00 71 0E 4A 01 8B 52 B2 31 89 34 30 |DV);.q.J..R.1.40|
00000670: 30 00 80 0E 7C 01 8B 44 56 B3 B1 37 89 33 39 30 |0...|..DV..7.390|
00000680: 00 A3 0E 7E 01 99 22 2E 2E 2E 20 59 4F 55 20 4C |...~.."... YOU L|
00000690: 4F 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |OSE |
000006A0: 20 20 22 00 BE 0E 7F 01 52 B2 31 3A 57 4B 28 32 | ".....R.1:WK(2|
000006B0: 29 B2 57 4B 28 32 29 AA 31 3A 57 35 B2 30 00 C7 |).WK(2).1:W5.0..|
000006C0: 0E 81 01 89 34 35 30 00 D7 0E 86 01 8B 44 56 B2 |....450......DV.|
000006D0: 20 50 54 89 33 39 34 00 FE 0E 88 01 99 A3 30 37 | PT.394.......07|
000006E0: 29 22 2E 2E 2E 20 52 4F 4C 4C 20 41 47 41 49 4E |)"... ROLL AGAIN|
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 07 | "..|
00000700: 0F 89 01 89 34 39 36 00 2B 0F 8A 01 99 22 2E 2E |....496.+...."..|
00000710: 2E 20 59 4F 55 20 57 49 4E 20 20 20 20 20 20 20 |. YOU WIN |
00000720: 20 20 20 20 20 20 20 20 20 22 3B 00 52 0F 8B 01 | ";.R...|
00000730: 8B 44 31 B2 44 32 A7 99 22 9D 9D 9D 9D 9D 9D 9D |.D1.D2..".......|
00000740: 9D 9D 9D 9D 9D 54 48 45 20 48 41 52 44 20 57 41 |.....THE HARD WA|
00000750: 59 22 00 68 0F 8C 01 52 B2 31 3A 57 4B 28 31 29 |Y".h...R.1:WK(1)|
00000760: B2 57 4B 28 31 29 AA 31 00 87 0F 8D 01 57 35 B2 |.WK(1).1.....W5.|
00000770: 57 35 AA 31 3A 8B 57 35 B1 57 4B 28 35 29 A7 57 |W5.1:.W5.WK(5).W|
00000780: 4B 28 35 29 B2 57 35 00 92 0F 8E 01 99 3A 89 34 |K(5).W5......:.4|
00000790: 35 30 00 CB 0F 90 01 91 20 44 56 89 34 31 30 2C |50...... DV.410,|
000007A0: 34 31 30 2C 34 31 30 2C 34 32 30 2C 34 32 30 2C |410,410,420,420,|
000007B0: 34 32 30 2C 34 33 30 2C 34 32 30 2C 34 32 30 2C |420,430,420,420,|
000007C0: 34 32 30 2C 34 33 30 2C 34 31 30 00 EE 0F 9A 01 |420,430,410.....|
000007D0: 99 22 2E 2E 2E 20 43 52 41 50 53 20 2E 2E 2E 20 |."... CRAPS ... |
000007E0: 59 4F 55 20 4C 4F 53 45 20 20 20 20 20 22 00 13 |YOU LOSE "..|
000007F0: 10 9B 01 57 4B 28 34 29 B2 57 4B 28 34 29 AA 31 |...WK(4).WK(4).1|
00000800: 3A 57 4B 28 32 29 B2 57 4B 28 32 29 AA 31 3A 57 |:WK(2).WK(2).1:W|
00000810: 35 B2 30 00 25 10 9C 01 8B 41 4D A7 81 49 B2 31 |5.0.%....AM..I.1|
00000820: A4 36 30 3A 82 00 2E 10 A0 01 89 34 35 30 00 51 |.60:.......450.Q|
00000830: 10 A4 01 99 22 20 49 53 20 59 4F 55 52 20 50 4F |...." IS YOUR PO|
00000840: 49 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 20 |INT |
00000850: 22 00 60 10 A6 01 50 54 B2 44 56 20 3A 52 B2 32 |".`...PT.DV :R.2|
00000860: 00 8B 10 A7 01 99 42 4C 24 3A 99 4F 44 24 28 50 |......BL$:.OD$(P|
00000870: 54 29 22 20 59 4F 55 20 44 4F 4E 27 54 20 4D 41 |T)" YOU DON'T MA|
00000880: 4B 45 20 49 54 22 3A 99 42 4C 24 00 AF 10 A8 01 |KE IT":.BL$.....|
00000890: 44 44 B2 30 3A 8B 50 54 B2 34 B0 50 54 B2 36 B0 |DD.0:.PT.4.PT.6.|
000008A0: 50 54 B2 38 B0 50 54 B2 31 30 A7 44 44 B2 31 00 |PT.8.PT.10.DD.1.|
000008B0: E6 10 A9 01 8B 44 44 A7 99 48 57 24 28 50 54 29 |.....DD..HW$(PT)|
000008C0: 22 20 59 4F 55 20 44 4F 4E 27 54 20 4D 41 4B 45 |" YOU DON'T MAKE|
000008D0: 20 49 54 20 54 48 45 20 48 41 52 44 20 57 41 59 | IT THE HARD WAY|
000008E0: 22 3A 99 42 4C 24 00 EF 10 AC 01 89 34 39 36 00 |":.BL$......496.|
000008F0: 12 11 AE 01 99 22 2E 2E 2E 20 41 20 4E 41 54 55 |....."... A NATU|
00000900: 52 41 4C 20 2E 2E 2E 20 59 4F 55 20 57 49 4E 20 |RAL ... YOU WIN |
00000910: 20 22 00 32 11 AF 01 57 4B 28 31 29 B2 57 4B 28 | ".2...WK(1).WK(|
00000920: 31 29 AA 31 3A 57 4B 28 33 29 B2 57 4B 28 33 29 |1).1:WK(3).WK(3)|
00000930: AA 31 00 51 11 B0 01 57 35 B2 57 35 AA 31 3A 8B |.1.Q...W5.W5.1:.|
00000940: 57 35 B1 57 4B 28 35 29 A7 57 4B 28 35 29 B2 57 |W5.WK(5).WK(5).W|
00000950: 35 00 63 11 B3 01 8B 41 4D A7 81 49 B2 31 A4 36 |5.c....AM..I.1.6|
00000960: 30 3A 82 00 6D 11 B8 01 89 20 34 35 30 00 7D 11 |0:..m.... 450.}.|
00000970: C2 01 99 C8 28 43 44 24 2C 31 39 29 3B 00 A1 11 |....(CD$,19);...|
00000980: C3 01 58 B2 28 28 57 4B 28 31 29 AD 57 4B 28 30 |..X.((WK(1).WK(0|
00000990: 29 29 AB 2E 34 39 33 39 35 29 AD 2E 34 39 33 39 |))..49395)..4939|
000009A0: 35 00 B1 11 C4 01 41 44 24 28 31 29 B2 C4 28 58 |5.....AD$(1)..(X|
000009B0: 29 00 D7 11 C5 01 58 B2 28 28 57 4B 28 33 29 AD |).....X.((WK(3).|
000009C0: 57 4B 28 30 29 29 AB 2E 32 32 32 32 32 32 29 AD |WK(0))..222222).|
000009D0: 2E 32 32 32 32 32 32 00 E7 11 C6 01 41 44 24 28 |.222222.....AD$(|
000009E0: 33 29 B2 C4 28 58 29 00 0D 12 C7 01 58 B2 28 28 |3)..(X).....X.((|
000009F0: 57 4B 28 34 29 AD 57 4B 28 30 29 29 AB 2E 31 31 |WK(4).WK(0))..11|
00000A00: 31 31 31 31 29 AD 2E 31 31 31 31 31 31 00 1D 12 |1111)..111111...|
00000A10: C8 01 41 44 24 28 34 29 B2 C4 28 58 29 00 28 12 |..AD$(4)..(X).(.|
00000A20: CC 01 81 49 B2 30 A4 35 00 49 12 D1 01 99 A3 31 |...I.0.5.I.....1|
00000A30: 31 29 C9 28 28 22 20 20 20 20 22 AA C4 28 57 4B |1).((" "..(WK|
00000A40: 28 49 29 29 29 2C 35 29 3B 00 81 12 D2 01 99 A3 |(I))),5);.......|
00000A50: 32 30 29 22 20 20 20 20 20 20 20 20 20 20 20 20 |20)" |
00000A60: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D | .........|
00000A70: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 41 44 24 28 49 |.........."AD$(I|
00000A80: 29 00 87 12 D6 01 82 00 A1 12 F0 01 A1 59 24 3A |)............Y$:|
00000A90: 8B 59 24 B2 22 22 A7 8B 41 4D B2 30 A7 89 34 39 |.Y$.""..AM.0..49|
00000AA0: 36 00 CA 12 F1 01 8B 41 4D A7 81 49 B2 31 A4 30 |6......AM..I.1.0|
00000AB0: 37 30 3A 82 3A 8B 59 24 B3 B1 22 41 22 A7 8B 59 |70:.:.Y$.."A"..Y|
00000AC0: 24 B3 B1 22 22 A7 41 4D B2 30 00 DB 12 F2 01 8B |$.."".AM.0......|
00000AD0: 59 24 B2 22 41 22 A7 41 4D B2 31 00 ED 12 F4 01 |Y$."A".AM.1.....|
00000AE0: 91 20 52 20 89 20 33 30 31 2C 33 30 37 00 0E 13 |. R . 301,307...|
00000AF0: 20 03 99 22 93 20 20 20 20 20 43 20 52 20 41 20 | ..". C R A |
00000B00: 50 20 53 20 20 20 44 20 45 20 4D 20 4F 22 00 1C |P S D E M O"..|
00000B10: 13 25 03 97 35 39 34 36 38 2C 31 34 00 3A 13 2A |.%..59468,14.:.*|
00000B20: 03 99 A3 32 33 29 22 11 45 C1 D2 CC A0 57 D5 C3 |...23)".E....W..|
00000B30: C8 D4 C5 D2 A0 31 39 37 38 22 00 63 13 34 03 99 |.....1978".c.4..|
00000B40: 22 54 C8 C9 D3 A0 D0 D2 CF C7 D2 C1 CD A0 C9 CC |"T..............|
00000B50: CC D5 D3 D4 D2 C1 D4 C5 D3 A0 D4 C8 C5 A0 CF C4 |................|
00000B60: C4 D3 22 00 7D 13 36 03 99 22 C9 CE D6 CF CC D6 |..".}.6.."......|
00000B70: C5 C4 A0 C9 CE A0 43 52 41 50 53 2E 22 00 9E 13 |......CRAPS."...|
00000B80: 38 03 99 22 49 D4 A0 C9 D3 A0 CE CF D4 A0 C1 A0 |8.."I...........|
00000B90: C2 C5 D4 D4 C9 CE C7 A0 C7 C1 CD C5 2E 22 00 C2 |............."..|
00000BA0: 13 3A 03 99 22 11 43 52 41 50 53 20 C9 D3 A0 D0 |.:..".CRAPS ....|
00000BB0: CC C1 D9 C5 C4 A0 C1 D3 A0 C6 CF CC CC CF D7 D3 |................|
00000BC0: 3A 22 00 EF 13 3B 03 99 22 11 4F CE C5 A0 D0 CC |:"...;..".O.....|
00000BD0: C1 D9 C5 D2 A0 C2 C5 D4 D3 2C 20 D4 C8 C5 CE A0 |........., .....|
00000BE0: D2 CF CC CC D3 A0 D4 C8 C5 A0 C4 C9 C3 C5 22 00 |..............".|
00000BF0: 1C 14 3C 03 99 22 41 CE D9 A0 D0 CF D2 D4 C9 CF |..<.."A.........|
00000C00: CE A0 CF C6 A0 C8 C9 D3 A0 C2 C5 D4 A0 CD C1 D9 |................|
00000C10: A0 C2 C5 A0 C3 CF D6 C5 D2 C5 C4 22 00 4C 14 3D |...........".L.=|
00000C20: 03 99 22 C2 D9 A0 D4 C8 C5 A0 CF D4 C8 C5 D2 A0 |..".............|
00000C30: D0 CC C1 D9 C5 D2 D3 A0 D7 C8 CF A0 C2 C5 D4 A0 |................|
00000C40: C1 C7 C1 C9 CE D3 D4 A0 C8 C9 CD 22 00 67 14 3E |...........".g.>|
00000C50: 03 99 22 49 C6 A0 D4 C8 C5 A0 C6 C9 D2 D3 D4 A0 |.."I............|
00000C60: D2 CF CC CC A0 C9 D3 00 8C 14 40 03 99 22 37 20 |..........@.."7 |
00000C70: CF D2 A0 31 31 20 28 C1 A0 4E 41 54 55 52 41 4C |...11 (..NATURAL|
00000C80: 29 2C 20 C8 C5 A0 D7 C9 CE D3 2E 22 00 B2 14 42 |), ........"...B|
00000C90: 03 99 22 32 2C 20 33 2C 20 CF D2 A0 31 32 20 28 |.."2, 3, ...12 (|
00000CA0: 43 52 41 50 53 29 2C 20 C8 C5 A0 CC CF D3 C5 D3 |CRAPS), ........|
00000CB0: 2E 22 00 DF 14 44 03 99 22 11 41 CE D9 A0 CF D4 |."...D..".A.....|
00000CC0: C8 C5 D2 A0 CE D5 CD C2 C5 D2 A0 C2 C5 C3 CF CD |................|
00000CD0: C5 D3 A0 C8 C9 D3 A0 27 50 4F 49 4E 54 27 22 00 |.......'POINT'".|
00000CE0: 06 15 46 03 99 22 C1 CE C4 A0 C8 C5 A0 CD D5 D3 |..F.."..........|
00000CF0: D4 A0 D2 CF CC CC A0 D5 CE D4 C9 CC A0 C8 C5 A0 |................|
00000D00: C7 C5 D4 D3 A0 22 00 21 15 48 03 99 22 C8 C9 D3 |.....".!.H.."...|
00000D10: A0 D0 CF C9 CE D4 A0 C1 CE C4 A0 D7 C9 CE D3 2C |...............,|
00000D20: 22 00 4D 15 4A 03 99 22 CF D2 A0 37 20 C1 CE C4 |".M.J.."...7 ...|
00000D30: A0 CC CF D3 C5 D3 A0 C8 C9 D3 A0 C2 C5 D4 A0 C1 |................|
00000D40: CE C4 A0 C8 C9 D3 A0 D4 D5 D2 CE 2E 22 00 61 15 |............".a.|
00000D50: 52 03 85 22 11 4F 4B 20 20 59 9D 9D 9D 22 3B 59 |R..".OK Y...";Y|
00000D60: 24 00 82 15 5C 03 99 22 93 20 20 20 20 20 43 20 |$...\..". C |
00000D70: 52 20 41 20 50 20 53 20 20 20 44 20 45 20 4D 20 |R A P S D E M |
00000D80: 4F 22 00 A0 15 61 03 99 A3 32 33 29 22 11 45 C1 |O"...a...23)".E.|
00000D90: D2 CC A0 57 D5 C3 C8 D4 C5 D2 A0 31 39 37 38 22 |...W.......1978"|
00000DA0: 00 CD 15 66 03 99 22 11 54 C8 C5 A0 CF C4 C4 D3 |...f..".T.......|
00000DB0: A0 C1 C7 C1 C9 CE D3 D4 A0 D4 C8 C5 A0 D0 CC C1 |................|
00000DC0: D9 C5 D2 A0 D7 C9 D4 C8 A0 D4 C8 C5 22 00 F5 15 |............"...|
00000DD0: 6B 03 99 22 C4 C9 C3 C5 A0 C1 D2 C5 A0 32 35 31 |k..".........251|
00000DE0: 20 D4 CF A0 32 34 35 20 28 C5 D6 C5 CE A0 CD CF | ...245 (.......|
00000DF0: CE C5 D9 29 22 00 21 16 70 03 99 22 11 54 C8 C5 |...)".!.p..".T..|
00000E00: A0 D0 CC C1 D9 C5 D2 A0 D7 C9 D4 C8 A0 C1 A0 50 |...............P|
00000E10: 4F 49 4E 54 A0 D4 CF A0 CD C1 CB C5 A0 CD C1 D9 |OINT............|
00000E20: 22 00 4A 16 75 03 99 22 CD C1 CB C5 A0 C1 C4 C4 |".J.u.."........|
00000E30: C9 D4 C9 CF CE C1 CC A0 C2 C5 D4 D3 A0 D4 C8 C1 |................|
00000E40: D4 A0 C8 C5 A0 D7 C9 CC CC 22 00 6F 16 76 03 99 |.........".o.v..|
00000E50: 22 CD C1 CB C5 A0 C8 C9 D3 A0 D0 CF C9 CE D4 A0 |"...............|
00000E60: 27 54 C8 C5 A0 48 C1 D2 C4 A0 57 C1 D9 27 22 00 |'T...H....W..'".|
00000E70: 88 16 77 03 99 22 20 20 20 28 D7 C9 D4 C8 A0 C4 |..w.." (......|
00000E80: CF D5 C2 CC C5 D3 29 22 00 B8 16 78 03 99 22 11 |......)"...x..".|
00000E90: 11 54 C8 C5 A0 D0 D2 CF C7 D2 C1 CD A0 D7 C9 CC |.T..............|
00000EA0: CC A0 C4 C9 D3 D0 CC C1 D9 A0 C1 C3 D4 D5 C1 CC |................|
00000EB0: A0 C3 CF D5 CE D4 D3 22 00 E1 16 79 03 99 22 C1 |......."...y..".|
00000EC0: CE C4 A0 CE CF D2 CD C1 CC C9 DA C5 C4 A0 C4 C5 |................|
00000ED0: D6 C9 C1 D4 C9 CF CE A0 C6 D2 CF CD A0 D4 C8 C5 |................|
00000EE0: 22 00 F9 16 7A 03 99 22 D0 D2 CF C2 C1 C2 CC C5 |"...z.."........|
00000EF0: A0 C3 CF D5 CE D4 D3 2E 22 00 10 17 7C 03 85 22 |........"...|.."|
00000F00: 11 11 11 11 4F 4B 20 20 59 9D 9D 9D 22 3B 59 24 |....OK Y...";Y$|
00000F10: 00 1E 17 82 03 97 35 39 34 36 38 2C 31 32 00 24 |......59468,12.$|
00000F20: 17 83 03 8E 00 00 00 24 |.......$ |
....... *** CRAPS 2.*.... EARL WUCHT
ER.0.....I.(.. *** PET USER GROUP.E.2..
SOFTWARE EXCHANGE.Z.<.. PO BOX 3
71...F.. MONTGOMERYVILLE, PA 18936..
.P...M.B..N$(12),WK(5),AD$(5),OD$(10),HW
$(10).Z.C.I..(.TI)...D.D$(0).". ....
.... ......".$.E.D$(1).". .... Q ..
.. ......".I.F.D$(2).". Q.... ....Q
......".N.G.D$(3).".Q .... Q .... Q.
....."...H.D$(4).".Q Q.... ....Q Q....
.."...I.D$(5).".Q Q.... Q ....Q Q......"
...J.D$(6).".Q Q....Q Q....Q Q......"...
K.CD$."........................".1.L.BL$
."
".Z.M.N$(2)."TWO ":N$(3)."THREE ":N$(4).
"FOUR ":N$(5)."FIVE ":N$(6)."SIX "...N.N
$(7)."SEVEN ":N$(8)."EIGHT ":N$(9)."NINE
":N$(10)."TEN "...O.N$(11)."ELEVEN ":N$
(12)."TWELVE ". .S.OD$(4)."2 TO 1":OD$(5
)."3 TO 2":OD$(6)."6 TO 5":OD$(8).OD$(6)
.A.T.OD$(9).OD$(5):OD$(10).OD$(4).D.U.HW
$(4)."8 TO 1":HW$(10).HW$(4)...V.HW$(6).
"10 TO 1":HW$(8).HW$(6)...W.AD$(0)." ":A
D$(2)." ":AD$(5)." "......800......".U..
..........I U.......I U...........I"....
.. ".HIT ANY KEY . . . . HIT A FOR
.".B.... ". FOR MANUAL . . . . AU
TOMATIC .".Q.... ". DICE ROLL . .
. . DICE ROLL .". .... "J............K
J.......K J...........K".G....H(CD$,17).
12)"COUNT DEVIATION".P....BL$......"T
URNS ....."......"WON ......."......"LOS
T ......"......"NATURAL ..."./...."CRAPS
.....".B...."CONSEQ.WINS".P....H(CD$,6)
.C....X$:.X$."".280.I.,....-.R.1:WK(0).
WK(0).1...1..H(CD$,6):.BL$:.BL$:.BL$:.BL
$:.BL$:.BL$:.BL$:.BL$.H.3.T..(12..(3).6)
.S.4..K.1.T...6.D1..(6..(1).1):D2..(6..(
2).1)...8.."..".16)D$(D1).20)D$(D2)...;.
..&.>.DV.D1.D2.A.@.J.7:.R.2.J.12:.DD.J.1
3.D.A..H(CD$,J)" ......"N$(DV);.Q.J
..R.1.400...|..DV..7.390...~.."... YOU L
OSE "....R.1:WK(2).WK(2).
1:W5.0.G....450.W....DV. PT.394.......07
)"... ROLL AGAIN "......496.
+...."... YOU WIN ";.R...
.D1.D2.."............THE HARD WAY".H...R
.1:WK(1).WK(1).1.....W5.W5.1:.W5.WK(5).W
K(5).W5......:.450.K.... DV.410,410,410,
420,420,420,430,420,420,420,430,410.....
."... CRAPS ... YOU LOSE ".....WK(4)
.WK(4).1:WK(2).WK(2).1:W5.0.%....AM..I.1
.60:.... ..450.Q...." IS YOUR POINT
".`...PT.DV :R.2......BL$:.OD$(P
T)" YOU DON'T MAKE IT":.BL$.....DD.0:.PT
.4.PT.6.PT.8.PT.10.DD.1......DD..HW$(PT)
" YOU DON'T MAKE IT THE HARD WAY":.BL$..
....496......"... A NATURAL ... YOU WIN
".2...WK(1).WK(1).1:WK(3).WK(3).1.Q...W
5.W5.1:.W5.WK(5).WK(5).W5.C....AM..I.1.6
0:..M.... 450.}.B..H(CD$,19);...C.X.((WK
(1).WK(0))..49395)..49395...D.AD$(1).D(X
).W.E.X.((WK(3).WK(0))..222222)..222222.
..F.AD$(3).D(X)...G.X.((WK(4).WK(0))..11
1111)..111111...H.AD$(4).D(X).(.L..I.0.5
.I.Q...11)I((" ".D(WK(I))),5);...R...
20)" .................
.."AD$(I)...V........Y$:.Y$.""..AM.0..49
6.J....AM..I.1.070:.:.Y$.."A"..Y$.."".AM
.0......Y$."A".AM.1...... R . 301,307...
..". C R A P S D E M O"...%..5946
8,14.:.*...23)".EARL WUCHTER 1978".C.4..
"THIS PROGRAM ILLUSTRATES THE ODDS".}.6.
."INVOLVED IN CRAPS."...8.."IT IS NOT A
BETTING GAME.".B.:..".CRAPS IS PLAYED AS
FOLLOWS:"...;..".ONE PLAYER BETS, THEN
ROLLS THE DICE"...<.."ANY PORTION OF HIS
BET MAY BE COVERED".L.=.."BY THE OTHER
PLAYERS WHO BET AGAINST HIM".G.>.."IF TH
E FIRST ROLL IS...@.."7 OR 11 (A NATURAL
), HE WINS."...B.."2, 3, OR 12 (CRAPS),
HE LOSES."...D..".ANY OTHER NUMBER BECOM
ES HIS 'POINT'"...F.."AND HE MUST ROLL U
NTIL HE GETS ".!.H.."HIS POINT AND WINS,
".M.J.."OR 7 AND LOSES HIS BET AND HIS T
URN.".A.R..".OK Y...";Y$...\..". C
R A P S D E M O". .A...23)".EARL WUCHT
ER 1978".M.F..".THE ODDS AGAINST THE PLA
YER WITH THE"...K.."DICE ARE 251 TO 245
(EVEN MONEY)".!.P..".THE PLAYER WITH A P
OINT TO MAKE MAY".J.U.."MAKE ADDITIONAL
BETS THAT HE WILL".O.V.."MAKE HIS POINT
'THE HARD WAY'"...W.." (WITH DOUBLES)"
...X.."..THE PROGRAM WILL DISPLAY ACTUAL
COUNTS"...Y.."AND NORMALIZED DEVIATION
FROM THE"...Z.."PROBABLE COUNTS."...|.."
....OK Y...";Y$......59468,12.$.......$
> CLICK IMAGE PREVIEW FOR FULL MODAL