YAHTZEE
FILE INFORMATION
FILENAME(S): YAHTZEE
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 18:12:16
APPEARS ON: 2 disk(s)
FILE HASH
ab246f57091e3473ddbc3e3045bbc65386317988840dcc606c62a041fff64a0a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 32 S 3 | YAHTZEE | PRG | Sailor, Ganheden | 29 | 0 | DOWNLOAD FILE |
| BEST OF LS 4 S 2 | YAHTZEE | PRG | Sailor, Ganheden | 3 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 86 42 25 28 33 39 29 3A 97 35 |..&....B%(39):.5|
00000010: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 36 3A |3281,0:.53280,6:|
00000020: 97 36 34 36 2C 31 00 3B 08 05 00 8F 4E 4F 43 41 |.646,1.;....NOCA|
00000030: 53 20 43 4F 4E 56 45 52 54 45 52 00 41 08 0A 00 |S CONVERTER.A...|
00000040: 8F 00 63 08 0F 00 8F 20 20 20 20 20 20 2A 2A 2A |..c.... ***|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 00 69 08 12 00 8F 00 88 08 14 00 8F 20 |***.i.......... |
00000070: 20 20 20 20 20 20 20 20 43 4F 4D 50 55 54 45 52 | COMPUTER|
00000080: 20 59 41 48 54 5A 45 45 00 8E 08 1E 00 8F 00 AC | YAHTZEE........|
00000090: 08 28 00 8F 20 20 20 20 20 20 20 20 20 20 43 4F |.(.. CO|
000000A0: 50 59 52 49 47 48 54 20 31 39 38 36 00 B2 08 2D |PYRIGHT 1986...-|
000000B0: 00 8F 00 D3 08 32 00 8F 20 20 20 20 20 20 20 42 |.....2.. B|
000000C0: 59 3A 20 43 48 52 49 53 54 49 4E 45 20 42 45 4E |Y: CHRISTINE BEN|
000000D0: 4F 49 54 00 D9 08 3C 00 8F 00 FB 08 41 00 8F 20 |OIT...<.....A.. |
000000E0: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 01 09 46 00 |***********...F.|
00000100: 8F 00 07 09 50 00 8F 00 1B 09 64 00 8D 39 36 30 |....P.....d..960|
00000110: 3A 8F 54 49 54 4C 45 50 41 47 45 00 30 09 6E 00 |:.TITLEPAGE.0.n.|
00000120: 8D 38 30 30 3A 8F 49 4E 49 54 49 41 4C 49 5A 45 |.800:.INITIALIZE|
00000130: 00 44 09 73 00 8D 31 31 30 30 3A 8F 49 4E 53 54 |.D.s..1100:.INST|
00000140: 52 55 43 53 00 61 09 78 00 99 22 93 22 C7 28 31 |RUCS.a.x..".".(1|
00000150: 34 32 29 3B 3A 8D 39 30 30 3A 8F 42 4F 52 44 45 |42);:.900:.BORDE|
00000160: 52 00 72 09 82 00 8D 37 30 30 3A 8F 53 43 52 45 |R.r....700:.SCRE|
00000170: 45 4E 00 82 09 8C 00 8D 37 35 30 3A 8F 43 4C 45 |EN......750:.CLE|
00000180: 41 52 00 91 09 96 00 8D 32 30 30 3A 8F 50 4C 41 |AR......200:.PLA|
00000190: 59 00 A3 09 A0 00 8D 39 31 34 3A 8F 54 4F 54 41 |Y......914:.TOTA|
000001A0: 4C 55 50 00 B2 09 AA 00 8B 41 47 4E B2 31 A7 31 |LUP......AGN.1.1|
000001B0: 32 30 00 C1 09 B4 00 99 C7 28 31 34 37 29 3B 3A |20.......(147);:|
000001C0: 20 00 CE 09 BE 00 99 3A 89 36 33 30 30 30 00 E1 | ......:.63000..|
000001D0: 09 C8 00 8D 33 30 30 3A 8F 52 4F 4C 4C 44 49 43 |....300:.ROLLDIC|
000001E0: 45 00 F0 09 D2 00 8D 34 35 30 3A 8F 53 4F 52 54 |E......450:.SORT|
000001F0: 00 00 0A DC 00 8D 35 30 30 3A 8F 53 43 4F 52 45 |......500:.SCORE|
00000200: 00 16 0A E1 00 4E 55 4D 4C 45 46 54 B2 4E 55 4D |.....NUMLEFT.NUM|
00000210: 4C 45 46 54 AB 31 00 29 0A E6 00 8B 4E 55 4D 4C |LEFT.1.)....NUML|
00000220: 45 46 54 B1 30 A7 32 30 30 00 2F 0A F0 00 8E 00 |EFT.0.200./.....|
00000230: 59 0A FA 00 99 22 1F 22 3B 3A 56 54 B2 31 30 3A |Y....".";:VT.10:|
00000240: 48 54 B2 31 3A 8D 35 30 30 30 30 3A 99 C7 28 31 |HT.1:.50000:..(1|
00000250: 38 29 3B 3A 99 53 50 24 3B 00 7C 0A FF 00 56 54 |8);:.SP$;.|...VT|
00000260: B2 31 30 3A 48 54 B2 31 3A 58 B2 34 31 AB C3 28 |.10:HT.1:X.41..(|
00000270: 58 24 29 3A 59 B2 B5 28 58 AD 32 29 00 89 0A 04 |X$):Y..(X.2)....|
00000280: 01 99 A6 59 29 3B 58 24 3B 00 96 0A 09 01 58 B2 |...Y);X$;.....X.|
00000290: B8 28 30 29 3A 8E 00 AA 0A 0E 01 8F 20 53 4F 55 |.(0):....... SOU|
000002A0: 4E 44 20 52 4F 55 54 49 4E 45 00 B0 0A 18 01 8F |ND ROUTINE......|
000002B0: 00 B6 0A 22 01 8E 00 C9 0A 2C 01 54 52 49 41 4C |...".....,.TRIAL|
000002C0: B2 31 3A 99 22 9E 12 22 3B 00 EE 0A 31 01 81 49 |.1:."..";...1..I|
000002D0: B2 35 A4 37 3A 56 54 B2 49 3A 48 54 B2 35 3A 8D |.5.7:VT.I:HT.5:.|
000002E0: 35 30 30 30 30 3A 99 A6 33 30 29 3B 3A 82 00 03 |50000:..30);:...|
000002F0: 0B 36 01 81 49 B2 31 A4 35 3A 52 4C 28 49 29 B2 |.6..I.1.5:RL(I).|
00000300: 31 3A 82 00 14 0B 3B 01 99 22 9E 22 3B 3A 81 49 |1:....;..".";:.I|
00000310: B2 31 A4 35 00 25 0B 40 01 8B 52 4C 28 49 29 B2 |.1.5.%.@..RL(I).|
00000320: 30 A7 33 32 38 00 4E 0B 45 01 44 49 43 45 28 49 |0.328.N.E.DICE(I|
00000330: 29 B2 B5 28 BB 28 31 29 AC 36 29 AA 31 3A 44 B2 |)..(.(1).6).1:D.|
00000340: 49 3A 8D 34 30 30 3A 52 4C 28 49 29 B2 30 00 55 |I:.400:RL(I).0.U|
00000350: 0B 48 01 82 49 00 6A 0B 4A 01 8B 54 52 49 41 4C |.H..I.j.J..TRIAL|
00000360: B2 33 A7 99 22 1F 22 3B 3A 8E 00 7C 0B 4F 01 54 |.3..".";:..|.O.T|
00000370: 52 49 41 4C B2 54 52 49 41 4C AA 31 00 82 0B 54 |RIAL.TRIAL.1...T|
00000380: 01 3A 00 88 0B 59 01 3A 00 8E 0B 5E 01 3A 00 94 |.:...Y.:...^.:..|
00000390: 0B 63 01 3A 00 9A 0B 64 01 3A 00 D2 0B 68 01 58 |.c.:...d.:...h.X|
000003A0: 24 B2 22 53 45 4C 45 43 54 20 44 49 43 45 2D 2D |$."SELECT DICE--|
000003B0: 50 52 45 53 53 20 52 45 54 55 52 4E 3A 20 31 20 |PRESS RETURN: 1 |
000003C0: 32 20 33 20 34 20 35 20 20 20 20 20 22 3A 8D 32 |2 3 4 5 ":.2|
000003D0: 35 30 00 DE 0B 6D 01 52 B2 35 3A 4E B2 30 00 F0 |50...m.R.5:N.0..|
000003E0: 0B 72 01 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.r..198,0:.198,1|
000003F0: 00 1F 0C 77 01 A1 4B 24 3A 4B B2 C6 28 4B 24 AA |...w..K$:K..(K$.|
00000400: C7 28 30 29 29 3A 8B 4B 24 B2 22 51 22 A7 8D 36 |.(0)):.K$."Q"..6|
00000410: 30 30 30 30 3A 8B 4B B2 31 34 31 A7 33 31 35 00 |0000:.K.141.315.|
00000420: 2D 0C 78 01 8B 4B B2 31 33 A7 33 31 35 00 45 0C |-.x..K.13.315.E.|
00000430: 7C 01 4B B2 4B AB 34 38 3A 8B 4B B3 31 B0 4B B1 ||.K.K.48:.K.1.K.|
00000440: 35 A7 33 37 30 00 6A 0C 81 01 56 B2 31 30 3A 8B |5.370.j...V.10:.|
00000450: 52 4C 28 4B 29 B2 30 A7 52 4C 28 4B 29 B2 31 3A |RL(K).0.RL(K).1:|
00000460: 4E B2 4E AA 31 3A 89 33 39 35 00 7C 0C 86 01 52 |N.N.1:.395.|...R|
00000470: 4C 28 4B 29 B2 30 3A 4E B2 4E AB 31 00 96 0C 8B |L(K).0:N.N.1....|
00000480: 01 99 22 1F 92 22 3B 3A 8B 52 4C 28 4B 29 B2 30 |.."..";:.RL(K).0|
00000490: A7 99 22 12 22 3B 00 B2 0C 8C 01 56 54 B2 56 AA |..".";.....VT.V.|
000004A0: 31 3A 48 54 B2 32 36 AA 32 AC 4B 3A 8D 35 30 30 |1:HT.26.2.K:.500|
000004B0: 30 30 00 C6 0C 8D 01 99 CA 28 C4 28 4B 29 2C 32 |00.......(.(K),2|
000004C0: 29 3B 22 12 22 3B 00 CF 0C 8E 01 89 33 37 30 00 |);".";......370.|
000004D0: DD 0C 90 01 56 B2 35 3A 48 B2 36 AC 44 00 12 0D |....V.5:H.6.D...|
000004E0: 9A 01 81 58 B2 33 A4 31 32 3A 56 54 B2 56 AA 58 |...X.3.12:VT.V.X|
000004F0: AB 33 AC B5 28 58 AD 33 29 3A 48 54 B2 48 3A 8D |.3..(X.3):HT.H:.|
00000500: 35 30 30 30 30 3A 99 22 D1 D1 D1 22 3B 3A 48 54 |50000:."...";:HT|
00000510: B2 48 00 27 0D 9C 01 8D 35 30 30 30 30 3A 99 22 |.H.'....50000:."|
00000520: 20 20 20 22 3B 3A 82 00 35 0D 9F 01 44 B2 44 49 | ";:..5...D.DI|
00000530: 43 45 28 44 29 00 57 0D A4 01 56 54 B2 56 3A 48 |CE(D).W...VT.V:H|
00000540: 54 B2 48 3A 8D 35 30 30 30 30 3A 99 44 49 43 45 |T.H:.50000:.DICE|
00000550: 24 28 44 2C 31 29 3B 00 7B 0D A9 01 56 54 B2 56 |$(D,1);.{...VT.V|
00000560: AA 31 3A 48 54 B2 48 3A 8D 35 30 30 30 30 3A 99 |.1:HT.H:.50000:.|
00000570: 44 49 43 45 24 28 44 2C 32 29 3B 00 9F 0D AE 01 |DICE$(D,2);.....|
00000580: 56 54 B2 56 AA 32 3A 48 54 B2 48 3A 8D 35 30 30 |VT.V.2:HT.H:.500|
00000590: 30 30 3A 99 44 49 43 45 24 28 44 2C 33 29 3B 00 |00:.DICE$(D,3);.|
000005A0: A5 0D B3 01 8F 00 AB 0D B8 01 8E 00 B6 0D C2 01 |................|
000005B0: 81 49 B2 31 A4 34 00 C3 0D C7 01 81 4A B2 49 AA |.I.1.4......J.I.|
000005C0: 31 A4 35 00 DD 0D CC 01 8B 44 49 43 45 28 4A 29 |1.5......DICE(J)|
000005D0: B1 B2 44 49 43 45 28 49 29 A7 34 37 30 00 05 0E |..DICE(I).470...|
000005E0: D1 01 58 B2 44 49 43 45 28 4A 29 3A 44 49 43 45 |..X.DICE(J):DICE|
000005F0: 28 4A 29 B2 44 49 43 45 28 49 29 3A 44 49 43 45 |(J).DICE(I):DICE|
00000600: 28 49 29 B2 58 00 0C 0E D6 01 82 4A 00 13 0E DB |(I).X......J....|
00000610: 01 82 49 00 19 0E E0 01 8E 00 56 0E F4 01 58 24 |..I.......V...X$|
00000620: B2 22 53 45 4C 45 43 54 20 53 43 4F 52 45 20 57 |."SELECT SCORE W|
00000630: 49 54 48 20 43 55 52 53 4F 52 20 41 4E 44 20 52 |ITH CURSOR AND R|
00000640: 45 54 55 52 4E 20 20 20 20 20 22 3A 8D 32 35 30 |ETURN ":.250|
00000650: 3A 99 22 81 22 3B 00 68 0E F9 01 43 B2 31 3A 44 |:.".";.h...C.1:D|
00000660: 43 B2 31 3A 89 35 35 35 00 80 0E FE 01 97 31 39 |C.1:.555......19|
00000670: 38 2C 30 3A 92 31 39 38 2C 31 3A 99 22 81 22 3B |8,0:.198,1:.".";|
00000680: 00 AE 0E 03 02 A1 4B 24 3A 4B B2 C6 28 4B 24 AA |......K$:K..(K$.|
00000690: C7 28 30 29 29 3A 8B 4B 24 B2 22 51 22 A7 8D 36 |.(0)):.K$."Q"..6|
000006A0: 30 30 30 30 3A 8B 4B B2 31 33 A7 35 37 30 00 BC |0000:.K.13.570..|
000006B0: 0E 04 02 8B 4B B2 31 33 A7 35 37 30 00 D0 0E 08 |....K.13.570....|
000006C0: 02 8B 4B B2 31 37 A7 44 43 B2 31 3A 89 35 33 35 |..K.17.DC.1:.535|
000006D0: 00 E6 0E 0D 02 8B 4B B2 31 34 35 A7 44 43 B2 AB |......K.145.DC..|
000006E0: 31 3A 89 35 33 35 00 EF 0E 12 02 89 35 31 30 00 |1:.535......510.|
000006F0: 25 0F 17 02 56 54 B2 56 52 54 28 43 29 3A 48 54 |%...VT.VRT(C):HT|
00000700: B2 32 AA 31 35 AC B6 28 28 43 B1 36 29 29 3A 8D |.2.15..((C.6)):.|
00000710: 35 30 30 30 30 3A 99 22 92 81 22 43 48 4F 49 43 |50000:.".."CHOIC|
00000720: 45 24 28 43 29 00 30 0F 1C 02 43 B2 43 AA 44 43 |E$(C).0...C.C.DC|
00000730: 00 3E 0F 21 02 8B 43 B2 30 A7 43 B2 31 33 00 4C |.>.!..C.0.C.13.L|
00000740: 0F 26 02 8B 43 B2 31 34 A7 43 B2 31 00 5F 0F 2B |.&..C.14.C.1._.+|
00000750: 02 8B 53 43 28 43 2C 32 29 B2 31 A7 35 34 30 00 |..SC(C,2).1.540.|
00000760: 98 0F 30 02 99 22 12 05 22 3B 3A 56 54 B2 56 52 |..0.."..";:VT.VR|
00000770: 54 28 43 29 3A 48 54 B2 32 AA 31 35 AC B6 28 28 |T(C):HT.2.15..((|
00000780: 43 B1 36 29 29 3A 8D 35 30 30 30 30 3A 99 43 48 |C.6)):.50000:.CH|
00000790: 4F 49 43 45 24 28 43 29 00 A1 0F 35 02 89 35 31 |OICE$(C)...5..51|
000007A0: 30 00 AE 0F 3A 02 8B 43 B3 37 A7 36 33 37 00 D3 |0...:..C.7.637..|
000007B0: 0F 3B 02 91 43 AB 36 89 35 37 37 2C 35 38 35 2C |.;..C.6.577,585,|
000007C0: 35 39 33 2C 36 30 33 2C 36 31 37 2C 36 32 37 2C |593,603,617,627,|
000007D0: 36 33 32 00 F8 0F 3C 02 53 43 28 43 2C 31 29 B2 |632...<.SC(C,1).|
000007E0: 54 45 4D 50 3A 53 43 28 43 2C 32 29 B2 31 3A 56 |TEMP:SC(C,2).1:V|
000007F0: 54 B2 56 52 54 28 43 29 00 21 10 3D 02 48 54 B2 |T.VRT(C).!.=.HT.|
00000800: 32 AA 31 35 AC B6 28 28 43 B1 36 29 29 3A 8D 35 |2.15..((C.6)):.5|
00000810: 30 30 30 30 3A 99 43 48 4F 49 43 45 24 28 43 29 |0000:.CHOICE$(C)|
00000820: 3B 00 4F 10 3E 02 48 54 B2 31 30 AA 32 33 AC B6 |;.O.>.HT.10.23..|
00000830: 28 28 43 B1 36 29 29 3A 8D 35 30 30 30 30 3A 99 |((C.6)):.50000:.|
00000840: A6 B6 28 28 54 45 4D 50 B3 31 30 29 29 29 3B 00 |..((TEMP.10)));.|
00000850: 73 10 3F 02 53 24 B2 CA 28 C4 28 54 45 4D 50 29 |s.?.S$..(.(TEMP)|
00000860: 2C 32 29 3A 8B C3 28 53 24 29 B3 32 A7 99 22 9D |,2):..(S$).2..".|
00000870: 20 22 3B 00 8B 10 40 02 99 22 9E 22 3B 53 24 3B | ";...@..".";S$;|
00000880: 22 81 22 3B 3A 8D 36 39 30 3A 8E 00 9C 10 41 02 |".";:.690:....A.|
00000890: 8F 2A 2A 2A 33 4F 46 41 4B 49 4E 44 00 A2 10 42 |.***3OFAKIND...B|
000008A0: 02 8F 00 CB 10 43 02 8B 44 49 43 45 28 31 29 B2 |.....C..DICE(1).|
000008B0: 44 49 43 45 28 32 29 AF 44 49 43 45 28 32 29 B2 |DICE(2).DICE(2).|
000008C0: 44 49 43 45 28 33 29 A7 35 38 33 00 F4 10 44 02 |DICE(3).583...D.|
000008D0: 8B 44 49 43 45 28 32 29 B2 44 49 43 45 28 33 29 |.DICE(2).DICE(3)|
000008E0: AF 44 49 43 45 28 33 29 B2 44 49 43 45 28 34 29 |.DICE(3).DICE(4)|
000008F0: A7 35 38 33 00 1D 11 45 02 8B 44 49 43 45 28 33 |.583...E..DICE(3|
00000900: 29 B2 44 49 43 45 28 34 29 AF 44 49 43 45 28 34 |).DICE(4).DICE(4|
00000910: 29 B2 44 49 43 45 28 35 29 A7 35 38 33 00 2D 11 |).DICE(5).583.-.|
00000920: 46 02 89 36 34 36 3A 8F 45 52 52 4F 52 00 5E 11 |F..646:.ERROR.^.|
00000930: 47 02 54 45 4D 50 B2 44 49 43 45 28 31 29 AA 44 |G.TEMP.DICE(1).D|
00000940: 49 43 45 28 32 29 AA 44 49 43 45 28 33 29 AA 44 |ICE(2).DICE(3).D|
00000950: 49 43 45 28 34 29 AA 44 49 43 45 28 35 29 00 67 |ICE(4).DICE(5).g|
00000960: 11 48 02 89 35 37 32 00 6D 11 49 02 8F 00 7E 11 |.H..572.m.I...~.|
00000970: 4A 02 8F 2A 2A 2A 34 4F 46 41 4B 49 4E 44 00 84 |J..***4OFAKIND..|
00000980: 11 4B 02 8F 00 9D 11 4C 02 8B 44 49 43 45 28 31 |.K.....L..DICE(1|
00000990: 29 B2 44 49 43 45 28 34 29 A7 35 39 31 00 B6 11 |).DICE(4).591...|
000009A0: 4D 02 8B 44 49 43 45 28 32 29 B2 44 49 43 45 28 |M..DICE(2).DICE(|
000009B0: 35 29 A7 35 39 31 00 C6 11 4E 02 89 36 34 36 3A |5).591...N..646:|
000009C0: 8F 45 52 52 4F 52 00 F7 11 4F 02 54 45 4D 50 B2 |.ERROR...O.TEMP.|
000009D0: 44 49 43 45 28 31 29 AA 44 49 43 45 28 32 29 AA |DICE(1).DICE(2).|
000009E0: 44 49 43 45 28 33 29 AA 44 49 43 45 28 34 29 AA |DICE(3).DICE(4).|
000009F0: 44 49 43 45 28 35 29 00 00 12 50 02 89 35 37 32 |DICE(5)...P..572|
00000A00: 00 06 12 51 02 8F 00 18 12 52 02 8F 2A 2A 2A 46 |...Q.....R..***F|
00000A10: 55 4C 4C 48 4F 55 53 45 00 1E 12 53 02 8F 00 38 |ULLHOUSE...S...8|
00000A20: 12 54 02 8B 44 49 43 45 28 31 29 B3 B1 44 49 43 |.T..DICE(1)..DIC|
00000A30: 45 28 33 29 A7 35 39 39 00 51 12 55 02 8B 44 49 |E(3).599.Q.U..DI|
00000A40: 43 45 28 34 29 B2 44 49 43 45 28 35 29 A7 36 30 |CE(4).DICE(5).60|
00000A50: 31 00 61 12 56 02 89 36 34 36 3A 8F 45 52 52 4F |1.a.V..646:.ERRO|
00000A60: 52 00 8A 12 57 02 8B 44 49 43 45 28 33 29 B2 44 |R...W..DICE(3).D|
00000A70: 49 43 45 28 35 29 AF 44 49 43 45 28 31 29 B2 44 |ICE(5).DICE(1).D|
00000A80: 49 43 45 28 32 29 A7 36 30 31 00 9A 12 58 02 89 |ICE(2).601...X..|
00000A90: 36 34 36 3A 8F 45 52 52 4F 52 00 AB 12 59 02 54 |646:.ERROR...Y.T|
00000AA0: 45 4D 50 B2 32 35 3A 89 35 37 32 00 B4 12 5A 02 |EMP.25:.572...Z.|
00000AB0: 53 31 B2 30 00 BA 12 5B 02 8F 00 D0 12 5C 02 8F |S1.0...[.....\..|
00000AC0: 2A 2A 2A 53 4D 41 4C 4C 53 54 52 41 49 47 48 54 |***SMALLSTRAIGHT|
00000AD0: 00 D6 12 5D 02 8F 00 DF 12 5E 02 53 31 B2 30 00 |...].....^.S1.0.|
00000AE0: 00 13 5F 02 8B 44 49 43 45 28 31 29 AA 31 B2 44 |.._..DICE(1).1.D|
00000AF0: 49 43 45 28 32 29 A7 53 32 B2 31 3A 89 36 30 39 |ICE(2).S2.1:.609|
00000B00: 00 09 13 60 02 53 32 B2 32 00 15 13 61 02 81 4A |...`.S2.2...a..J|
00000B10: B2 53 32 A4 34 00 3F 13 62 02 8B 44 49 43 45 28 |.S2.4.?.b..DICE(|
00000B20: 4A 29 AA 31 B2 44 49 43 45 28 4A AA 31 29 A7 53 |J).1.DICE(J.1).S|
00000B30: 31 B2 31 30 AC 53 31 AA 44 49 43 45 28 4A 29 00 |1.10.S1.DICE(J).|
00000B40: 46 13 63 02 82 4A 00 73 13 64 02 8B 44 49 43 45 |F.c..J.s.d..DICE|
00000B50: 28 35 29 AB 44 49 43 45 28 34 29 B2 32 A7 53 31 |(5).DICE(4).2.S1|
00000B60: B2 31 30 AC 53 31 AA 44 49 43 45 28 34 29 3A 89 |.10.S1.DICE(4):.|
00000B70: 36 31 34 00 9B 13 65 02 8B 44 49 43 45 28 35 29 |614...e..DICE(5)|
00000B80: AB 44 49 43 45 28 34 29 B3 32 A7 53 31 B2 31 30 |.DICE(4).2.S1.10|
00000B90: AC 53 31 AA 44 49 43 45 28 35 29 00 CE 13 66 02 |.S1.DICE(5)...f.|
00000BA0: 8B 53 31 B2 31 32 33 34 B0 53 31 B2 32 33 34 35 |.S1.1234.S1.2345|
00000BB0: B0 53 31 B2 33 34 35 36 B0 53 31 B2 31 32 33 34 |.S1.3456.S1.1234|
00000BC0: 35 B0 53 31 B2 32 33 34 35 36 A7 36 31 36 00 DE |5.S1.23456.616..|
00000BD0: 13 67 02 89 36 34 36 3A 8F 45 52 52 4F 52 00 EF |.g..646:.ERROR..|
00000BE0: 13 68 02 54 45 4D 50 B2 33 30 3A 89 35 37 32 00 |.h.TEMP.30:.572.|
00000BF0: F5 13 69 02 8F 00 0B 14 6A 02 8F 2A 2A 2A 4C 41 |..i.....j..***LA|
00000C00: 52 47 45 53 54 52 41 49 47 48 54 00 11 14 6B 02 |RGESTRAIGHT...k.|
00000C10: 8F 00 1A 14 6C 02 53 49 B2 30 00 25 14 6D 02 81 |....l.SI.0.%.m..|
00000C20: 4A B2 31 A4 34 00 4B 14 6E 02 8B 44 49 43 45 28 |J.1.4.K.n..DICE(|
00000C30: 4A 29 AA 31 B2 44 49 43 45 28 4A AA 31 29 A7 53 |J).1.DICE(J.1).S|
00000C40: 49 B2 53 49 AA 31 3A 89 36 32 34 00 54 14 6F 02 |I.SI.1:.624.T.o.|
00000C50: 53 49 B2 30 00 5B 14 70 02 82 4A 00 71 14 71 02 |SI.0.[.p..J.q.q.|
00000C60: 8B 53 49 B3 B1 34 A7 36 34 36 3A 8F 45 52 52 4F |.SI..4.646:.ERRO|
00000C70: 52 00 82 14 72 02 54 45 4D 50 B2 34 30 3A 89 35 |R...r.TEMP.40:.5|
00000C80: 37 32 00 88 14 73 02 8F 00 98 14 74 02 8F 2A 2A |72...s.....t..**|
00000C90: 2A 59 41 48 54 5A 45 45 00 9E 14 75 02 8F 00 BF |*YAHTZEE...u....|
00000CA0: 14 76 02 8B 44 49 43 45 28 31 29 B3 B1 44 49 43 |.v..DICE(1)..DIC|
00000CB0: 45 28 35 29 A7 36 34 36 3A 8F 45 52 52 4F 52 00 |E(5).646:.ERROR.|
00000CC0: D0 14 77 02 54 45 4D 50 B2 35 30 3A 89 35 37 32 |..w.TEMP.50:.572|
00000CD0: 00 D6 14 78 02 8F 00 E5 14 79 02 8F 2A 2A 2A 43 |...x.....y..***C|
00000CE0: 48 41 4E 43 45 00 EB 14 7A 02 8F 00 1C 15 7B 02 |HANCE...z.....{.|
00000CF0: 54 45 4D 50 B2 44 49 43 45 28 31 29 AA 44 49 43 |TEMP.DICE(1).DIC|
00000D00: 45 28 32 29 AA 44 49 43 45 28 33 29 AA 44 49 43 |E(2).DICE(3).DIC|
00000D10: 45 28 34 29 AA 44 49 43 45 28 35 29 00 25 15 7C |E(4).DICE(5).%.||
00000D20: 02 89 35 37 32 00 2B 15 7D 02 8F 00 41 15 7E 02 |..572.+.}...A.~.|
00000D30: 8F 2A 2A 2A 31 27 53 54 48 52 4F 55 47 48 36 27 |.***1'STHROUGH6'|
00000D40: 53 00 47 15 7F 02 8F 00 52 15 80 02 54 45 4D 50 |S.G.....R...TEMP|
00000D50: B2 30 00 5D 15 81 02 81 4A B2 31 A4 35 00 78 15 |.0.]....J.1.5.x.|
00000D60: 82 02 8B 44 49 43 45 28 4A 29 B2 43 A7 54 45 4D |...DICE(J).C.TEM|
00000D70: 50 B2 54 45 4D 50 AA 43 00 7F 15 83 02 82 4A 00 |P.TEMP.C......J.|
00000D80: 96 15 84 02 8B 54 45 4D 50 B2 30 A7 36 34 36 3A |.....TEMP.0.646:|
00000D90: 8F 45 52 52 4F 52 00 9F 15 85 02 89 35 37 32 00 |.ERROR......572.|
00000DA0: A5 15 86 02 8F 00 BA 15 87 02 8F 2A 2A 2A 45 52 |...........***ER|
00000DB0: 52 4F 52 52 4F 55 54 49 4E 45 00 C0 15 88 02 8F |RORROUTINE......|
00000DC0: 00 E6 15 89 02 58 24 B2 53 50 24 3A 8D 32 35 30 |.....X$.SP$:.250|
00000DD0: 3A 58 24 B2 22 12 59 4F 55 20 44 4F 4E 27 54 20 |:X$.".YOU DON'T |
00000DE0: 48 41 56 45 20 22 00 01 16 8A 02 8B 43 B3 37 A7 |HAVE "......C.7.|
00000DF0: 58 24 B2 58 24 AA 22 41 4E 59 20 22 3A 89 36 35 |X$.X$."ANY ":.65|
00000E00: 32 00 1F 16 8B 02 8B 43 B2 39 B0 43 B2 31 30 B0 |2......C.9.C.10.|
00000E10: 43 B2 31 31 A7 58 24 B2 58 24 AA 22 41 20 22 00 |C.11.X$.X$."A ".|
00000E20: 3E 16 8C 02 58 24 B2 58 24 AA 43 48 4F 49 43 45 |>...X$.X$.CHOICE|
00000E30: 24 28 43 29 3A 8D 32 35 30 3A 8D 32 37 30 00 4E |$(C):.250:.270.N|
00000E40: 16 8D 02 81 54 B2 31 A4 31 30 30 30 3A 82 00 83 |....T.1.1000:...|
00000E50: 16 8E 02 58 24 B2 22 44 4F 20 59 4F 55 20 57 41 |...X$."DO YOU WA|
00000E60: 4E 54 20 54 4F 20 54 41 4B 45 20 41 20 5A 45 52 |NT TO TAKE A ZER|
00000E70: 4F 3F 20 28 59 2F 4E 29 22 3A 8D 32 35 30 3A 8D |O? (Y/N)":.250:.|
00000E80: 32 38 30 00 9E 16 8F 02 97 31 39 38 2C 30 3A 92 |280......198,0:.|
00000E90: 31 39 38 2C 31 3A A1 52 24 3A 99 52 24 3B 00 C9 |198,1:.R$:.R$;..|
00000EA0: 16 90 02 8B 52 24 B2 22 59 22 A7 54 45 4D 50 B2 |....R$."Y".TEMP.|
00000EB0: 30 3A 58 24 B2 53 50 24 3A 8D 32 35 30 3A 99 22 |0:X$.SP$:.250:."|
00000EC0: 92 81 22 3B 3A 89 35 37 32 00 08 17 91 02 8B 52 |..";:.572......R|
00000ED0: 24 B2 22 4E 22 A7 58 24 B2 22 53 45 4C 45 43 54 |$."N".X$."SELECT|
00000EE0: 20 53 43 4F 52 45 20 57 49 54 48 20 43 55 52 53 | SCORE WITH CURS|
00000EF0: 4F 52 20 41 4E 44 20 52 45 54 55 52 4E 22 3A 8D |OR AND RETURN":.|
00000F00: 32 35 30 3A 89 35 31 30 00 11 17 92 02 89 36 35 |250:.510......65|
00000F10: 34 00 2E 17 B2 02 54 B2 30 3A 81 49 B2 31 A4 36 |4.....T.0:.I.1.6|
00000F20: 3A 54 B2 54 AA 53 43 28 49 2C 31 29 3A 82 00 42 |:T.T.SC(I,1):..B|
00000F30: 17 B6 02 42 4E B2 33 35 AC B6 28 28 54 B1 36 32 |...BN.35..((T.62|
00000F40: 29 29 00 77 17 B8 02 56 54 B2 32 30 3A 48 54 B2 |)).w...VT.20:HT.|
00000F50: 31 30 3A 8D 35 30 30 30 30 3A 99 22 9E 22 3B A6 |10:.50000:.".";.|
00000F60: B6 28 28 42 4E B3 31 30 29 29 29 3B CA 28 C4 28 |.((BN.10)));.(.(|
00000F70: 42 4E 29 2C 32 29 3B 00 7D 17 BA 02 8E 00 8D 17 |BN),2);.}.......|
00000F80: BC 02 99 22 13 11 11 22 3B A6 36 29 3B 00 BA 17 |..."...";.6);...|
00000F90: C1 02 81 49 B2 31 A4 35 3A 99 C7 28 31 38 29 3B |...I.1.5:..(18);|
00000FA0: 3A 99 22 9F 12 22 49 22 9D 20 92 20 20 20 22 3B |:.".."I". . ";|
00000FB0: 3A 82 3A 99 A6 35 29 3B 3A 99 00 C4 17 C2 02 99 |:.:..5);:.......|
00000FC0: 3A 99 3A 99 00 DE 17 C6 02 81 49 B2 31 A4 33 3A |:.:.......I.1.3:|
00000FD0: 99 22 1F 12 22 3B 53 50 24 3B 3A 82 3A 99 00 12 |."..";SP$;:.:...|
00000FE0: 18 CB 02 99 A6 32 29 22 81 4F 4E 45 53 2E 2E 2E |.....2)".ONES...|
00000FF0: 2E 9E 24 24 20 20 20 20 20 81 33 20 4F 46 20 41 |..$$ .3 OF A|
00001000: 20 4B 49 4E 44 2E 2E 2E 2E 2E 9E 24 24 22 A6 35 | KIND......$$".5|
00001010: 29 3B 00 46 18 D0 02 99 A6 32 29 22 81 54 57 4F |);.F.....2)".TWO|
00001020: 53 2E 2E 2E 2E 9E 24 24 20 20 20 20 20 81 34 20 |S.....$$ .4 |
00001030: 4F 46 20 41 20 4B 49 4E 44 2E 2E 2E 2E 2E 9E 24 |OF A KIND......$|
00001040: 24 22 A6 35 29 3B 00 7A 18 D5 02 99 A6 32 29 22 |$".5);.z.....2)"|
00001050: 81 54 48 52 45 45 53 2E 2E 9E 24 24 20 20 20 20 |.THREES...$$ |
00001060: 20 81 46 55 4C 4C 20 48 4F 55 53 45 2E 2E 2E 2E | .FULL HOUSE....|
00001070: 2E 2E 9E 24 24 22 A6 35 29 3B 00 AE 18 DA 02 99 |...$$".5);......|
00001080: A6 32 29 22 81 46 4F 55 52 53 2E 2E 2E 9E 24 24 |.2)".FOURS....$$|
00001090: 20 20 20 20 20 81 53 4D 41 4C 4C 20 53 54 52 41 | .SMALL STRA|
000010A0: 49 47 48 54 2E 2E 9E 24 24 22 A6 35 29 3B 00 E2 |IGHT...$$".5);..|
000010B0: 18 DF 02 99 A6 32 29 22 81 46 49 56 45 53 2E 2E |.....2)".FIVES..|
000010C0: 2E 9E 24 24 20 20 20 20 20 81 4C 41 52 47 45 20 |..$$ .LARGE |
000010D0: 53 54 52 41 49 47 48 54 2E 2E 9E 24 24 22 A6 35 |STRAIGHT...$$".5|
000010E0: 29 3B 00 16 19 E4 02 99 A6 32 29 22 81 53 49 58 |);.......2)".SIX|
000010F0: 45 53 2E 2E 2E 9E 24 24 20 20 20 20 20 81 59 41 |ES....$$ .YA|
00001100: 48 54 5A 45 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 9E 24 |HTZEE..........$|
00001110: 24 22 A6 35 29 3B 00 49 19 E9 02 99 A6 32 29 22 |$".5);.I.....2)"|
00001120: 81 42 4F 4E 55 53 2E 2E 2E 9E 20 30 20 20 20 20 |.BONUS.... 0 |
00001130: 20 81 43 48 41 4E 43 45 2E 2E 2E 2E 2E 2E 2E 2E | .CHANCE........|
00001140: 2E 2E 9E 24 24 22 A6 35 29 00 72 19 EA 02 99 22 |...$$".5).r...."|
00001150: 11 9E 1D 20 20 20 20 20 20 20 20 20 20 20 20 50 |... P|
00001160: 52 45 53 53 20 05 51 9E 20 54 4F 20 51 55 49 54 |RESS .Q. TO QUIT|
00001170: 2E 22 00 7D 19 EC 02 99 22 13 22 3A 8E 00 9F 19 |.".}....".":....|
00001180: EE 02 81 49 B2 31 A4 31 33 3A 53 43 28 49 2C 31 |...I.1.13:SC(I,1|
00001190: 29 B2 30 3A 53 43 28 49 2C 32 29 B2 30 3A 82 00 |).0:SC(I,2).0:..|
000011A0: B3 19 F8 02 4E 55 4D 4C 45 46 54 B2 31 33 3A 42 |....NUMLEFT.13:B|
000011B0: 4E B2 30 00 B9 19 02 03 8E 00 EC 19 20 03 86 44 |N.0......... ..D|
000011C0: 49 43 45 28 35 29 2C 44 49 43 45 24 28 36 2C 33 |ICE(5),DICE$(6,3|
000011D0: 29 2C 43 48 4F 49 43 45 24 28 31 33 29 2C 53 43 |),CHOICE$(13),SC|
000011E0: 28 31 33 2C 32 29 2C 52 4C 28 35 29 00 F9 19 22 |(13,2),RL(5)..."|
000011F0: 03 86 56 52 54 28 31 33 29 00 FF 19 25 03 8F 00 |..VRT(13)...%...|
00001200: 21 1A 2A 03 81 49 B2 31 A4 36 3A 81 4A B2 31 A4 |!.*..I.1.6:.J.1.|
00001210: 33 3A 87 44 49 43 45 24 28 49 2C 4A 29 3A 82 3A |3:.DICE$(I,J):.:|
00001220: 82 00 3B 1A 2F 03 81 49 B2 31 A4 31 33 3A 87 43 |..;./..I.1.13:.C|
00001230: 48 4F 49 43 45 24 28 49 29 3A 82 00 51 1A 32 03 |HOICE$(I):..Q.2.|
00001240: 81 49 B2 31 A4 31 33 3A 87 56 52 54 28 49 29 3A |.I.1.13:.VRT(I):|
00001250: 82 00 57 1A 34 03 8F 00 80 1A 3E 03 83 22 20 20 |..W.4.....>.." |
00001260: 20 22 2C 22 20 D1 20 22 2C 22 20 20 20 22 2C 22 | "," . "," ","|
00001270: 20 20 D1 22 2C 22 20 20 20 22 2C 22 D1 20 20 22 | ."," ",". "|
00001280: 00 A9 1A 48 03 83 22 20 20 D1 22 2C 22 20 D1 20 |...H.." ."," . |
00001290: 22 2C 22 D1 20 20 22 2C 22 D1 20 D1 22 2C 22 20 |",". ",". ."," |
000012A0: 20 20 22 2C 22 D1 20 D1 22 00 D2 1A 52 03 83 22 | ",". ."...R.."|
000012B0: D1 20 D1 22 2C 22 20 D1 20 22 2C 22 D1 20 D1 22 |. ."," . ",". ."|
000012C0: 2C 22 D1 20 D1 22 2C 22 D1 20 D1 22 2C 22 D1 20 |,". .",". .",". |
000012D0: D1 22 00 06 1B 5C 03 83 4F 4E 45 53 2C 54 57 4F |."...\..ONES,TWO|
000012E0: 53 2C 54 48 52 45 45 53 2C 46 4F 55 52 53 2C 46 |S,THREES,FOURS,F|
000012F0: 49 56 45 53 2C 53 49 58 45 53 2C 33 20 4F 46 20 |IVES,SIXES,3 OF |
00001300: 41 20 4B 49 4E 44 00 31 1B 5E 03 83 34 20 4F 46 |A KIND.1.^..4 OF|
00001310: 20 41 20 4B 49 4E 44 2C 46 55 4C 4C 20 48 4F 55 | A KIND,FULL HOU|
00001320: 53 45 2C 53 4D 41 4C 4C 20 53 54 52 41 49 47 48 |SE,SMALL STRAIGH|
00001330: 54 00 54 1B 60 03 83 4C 41 52 47 45 20 53 54 52 |T.T.`..LARGE STR|
00001340: 41 49 47 48 54 2C 59 41 48 54 5A 45 45 2C 43 48 |AIGHT,YAHTZEE,CH|
00001350: 41 4E 43 45 00 80 1B 61 03 83 31 34 2C 31 35 2C |ANCE...a..14,15,|
00001360: 31 36 2C 31 37 2C 31 38 2C 31 39 2C 31 34 2C 31 |16,17,18,19,14,1|
00001370: 35 2C 31 36 2C 31 37 2C 31 38 2C 31 39 2C 32 30 |5,16,17,18,19,20|
00001380: 00 A3 1B 66 03 47 41 4D 45 53 20 B2 20 30 3A 42 |...f.GAMES . 0:B|
00001390: 53 54 B2 30 3A 57 52 53 54 B2 39 39 39 3A 54 54 |ST.0:WRST.999:TT|
000013A0: 4C B2 30 00 D1 1B 6B 03 56 54 B2 32 32 3A 48 54 |L.0...k.VT.22:HT|
000013B0: B2 31 31 3A 8D 35 30 30 30 30 3A 99 22 05 5B 20 |.11:.50000:.".[ |
000013C0: D0 D2 C5 D3 D3 20 C1 CE D9 20 CB C5 D9 20 5D 22 |..... ... ... ]"|
000013D0: 3B 00 D7 1B 6D 03 8F 00 04 1C 70 03 97 31 39 38 |;...m.....p..198|
000013E0: 2C 30 3A 92 31 39 38 2C 31 3A 8F 2A 2A 2A 2A 52 |,0:.198,1:.****R|
000013F0: 4E 44 28 31 29 3A 49 46 4B 3C 31 32 38 54 48 45 |ND(1):IFK<128THE|
00001400: 4E 38 38 30 00 0C 1C 75 03 A1 4B 24 00 12 1C 7A |N880...u..K$...z|
00001410: 03 8E 00 23 1C 84 03 99 C7 28 31 34 37 29 3B 22 |...#.....(147);"|
00001420: 92 22 3B 00 59 1C 86 03 99 22 9A B0 C0 C0 B3 9F |.";.Y...."......|
00001430: 12 43 20 4F 20 4D 20 50 20 55 20 54 20 45 20 52 |.C O M P U T E R|
00001440: 20 20 20 59 20 41 20 48 20 54 20 5A 20 45 20 45 | Y A H T Z E E|
00001450: 92 9A AB C0 C0 C0 AE 22 3B 00 5F 1C 88 03 8F 00 |.......";._.....|
00001460: 98 1C 8A 03 81 49 B2 31 A4 32 33 3A 56 54 B2 49 |.....I.1.23:VT.I|
00001470: 3A 48 54 B2 30 3A 8D 35 30 30 30 30 3A 99 22 DD |:HT.0:.50000:.".|
00001480: 22 3B 3A 48 54 B2 33 39 3A 8D 35 30 30 30 30 3A |";:HT.39:.50000:|
00001490: 99 22 DD 13 22 3B 3A 82 00 E0 1C 8C 03 56 54 B2 |."..";:......VT.|
000014A0: 32 34 3A 48 54 B2 30 3A 8D 35 30 30 30 30 3A 99 |24:HT.0:.50000:.|
000014B0: 22 AD C0 C0 B3 9F 12 42 20 59 20 20 20 20 43 20 |"......B Y C |
000014C0: 48 20 52 20 49 20 53 20 20 20 20 42 20 45 20 4E |H R I S B E N|
000014D0: 20 4F 20 49 20 54 92 9A AB C0 C0 C0 13 22 3B 3A | O I T.......";:|
000014E0: 00 FD 1C 8D 03 97 32 30 32 33 2C 31 32 35 3A 97 |......2023,125:.|
000014F0: 32 30 32 33 AA 35 34 32 37 32 2C 31 34 00 03 1D |2023.54272,14...|
00001500: 8E 03 8F 00 09 1D 90 03 8E 00 12 1D 92 03 99 44 |...............D|
00001510: 4E 24 00 24 1D 93 03 99 22 13 22 3B 3A 99 C7 28 |N$.$....".";:..(|
00001520: 31 38 29 3B 00 56 1D 94 03 99 22 9F 20 20 20 20 |18);.V....". |
00001530: 43 20 4F 20 4D 20 50 20 55 20 54 20 45 20 52 20 |C O M P U T E R |
00001540: 20 20 59 20 41 20 48 20 54 20 5A 20 45 20 45 20 | Y A H T Z E E |
00001550: 20 20 20 20 22 3B 00 77 1D 95 03 54 50 B2 42 4E | ";.w...TP.BN|
00001560: 3A 81 49 B2 31 A4 36 3A 54 50 B2 54 50 AA 53 43 |:.I.1.6:TP.TP.SC|
00001570: 28 49 2C 31 29 3A 82 00 98 1D 96 03 42 54 B2 30 |(I,1):......BT.0|
00001580: 3A 81 49 B2 37 A4 31 33 3A 42 54 B2 42 54 AA 53 |:.I.7.13:BT.BT.S|
00001590: 43 28 49 2C 31 29 3A 82 00 CF 1D 98 03 47 54 B2 |C(I,1):......GT.|
000015A0: 54 50 AA 42 54 3A 47 41 4D 45 53 B2 47 41 4D 45 |TP.BT:GAMES.GAME|
000015B0: 53 AA 31 3A 54 54 4C B2 54 54 4C AA 47 54 3A 41 |S.1:TTL.TTL.GT:A|
000015C0: 56 47 B2 B5 28 54 54 4C AD 47 41 4D 45 53 29 00 |VG..(TTL.GAMES).|
000015D0: E4 1D 9A 03 8B 47 54 B3 57 52 53 54 A7 57 52 53 |.....GT.WRST.WRS|
000015E0: 54 B2 47 54 00 F7 1D 9C 03 8B 47 54 B1 42 53 54 |T.GT......GT.BST|
000015F0: A7 42 53 54 B2 47 54 00 29 1E 9E 03 56 54 B2 39 |.BST.GT.)...VT.9|
00001600: 3A 48 54 B2 39 3A 8D 35 30 30 30 30 3A 99 22 92 |:HT.9:.50000:.".|
00001610: 2D 2D 2D 22 3B 3A 48 54 B2 33 32 3A 8D 35 30 30 |---";:HT.32:.500|
00001620: 30 30 3A 99 22 2D 2D 2D 22 00 4A 1E A0 03 56 54 |00:."---".J...VT|
00001630: B2 31 30 3A 48 54 B2 38 3A 8D 35 30 30 30 30 3A |.10:HT.8:.50000:|
00001640: 4E 4D B2 54 50 3A 8D 39 35 36 00 66 1E A2 03 48 |NM.TP:.956.f...H|
00001650: 54 B2 33 31 3A 8D 35 30 30 30 30 3A 4E 4D B2 42 |T.31:.50000:NM.B|
00001660: 54 3A 8D 39 35 36 00 74 1E A4 03 48 B2 36 3A 56 |T:.956.t...H.6:V|
00001670: 54 B2 31 34 00 B7 1E A6 03 48 54 B2 48 3A 56 54 |T.14.....HT.H:VT|
00001680: B2 56 54 AA 31 3A 8D 35 30 30 30 30 3A 99 22 81 |.VT.1:.50000:.".|
00001690: 53 43 4F 52 45 20 46 4F 52 20 54 48 49 53 20 47 |SCORE FOR THIS G|
000016A0: 41 4D 45 2E 2E 2E 2E 2E 2E 9E 22 3B 3A 4E 4D B2 |AME.......";:NM.|
000016B0: 47 54 3A 8D 39 35 36 00 FD 1E A8 03 48 54 B2 48 |GT:.956.....HT.H|
000016C0: 3A 56 54 B2 56 54 AA 31 3A 8D 35 30 30 30 30 3A |:VT.VT.1:.50000:|
000016D0: 99 22 81 4E 55 4D 42 45 52 20 4F 46 20 47 41 4D |.".NUMBER OF GAM|
000016E0: 45 53 20 50 4C 41 59 45 44 2E 2E 2E 9E 22 3B 3A |ES PLAYED....";:|
000016F0: 4E 4D B2 47 41 4D 45 53 3A 8D 39 35 36 00 41 1F |NM.GAMES:.956.A.|
00001700: AA 03 48 54 B2 48 3A 56 54 B2 56 54 AA 31 3A 8D |..HT.H:VT.VT.1:.|
00001710: 35 30 30 30 30 3A 99 22 81 42 45 53 54 20 53 43 |50000:.".BEST SC|
00001720: 4F 52 45 20 53 4F 20 46 41 52 2E 2E 2E 2E 2E 2E |ORE SO FAR......|
00001730: 2E 2E 9E 22 3B 3A 4E 4D B2 42 53 54 3A 8D 39 35 |...";:NM.BST:.95|
00001740: 36 00 86 1F AC 03 48 54 B2 48 3A 56 54 B2 56 54 |6.....HT.H:VT.VT|
00001750: AA 31 3A 8D 35 30 30 30 30 3A 99 22 81 57 4F 52 |.1:.50000:.".WOR|
00001760: 53 54 20 53 43 4F 52 45 20 53 4F 20 46 41 52 2E |ST SCORE SO FAR.|
00001770: 2E 2E 2E 2E 2E 2E 9E 22 3B 3A 4E 4D B2 57 52 53 |.......";:NM.WRS|
00001780: 54 3A 8D 39 35 36 00 CA 1F AE 03 48 54 B2 48 3A |T:.956.....HT.H:|
00001790: 56 54 B2 56 54 AA 31 3A 8D 35 30 30 30 30 3A 99 |VT.VT.1:.50000:.|
000017A0: 22 81 41 56 45 52 41 47 45 20 53 43 4F 52 45 2E |".AVERAGE SCORE.|
000017B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 9E 22 3B 3A 4E |............";:N|
000017C0: 4D B2 41 56 47 3A 8D 39 35 36 00 DA 1F B0 03 81 |M.AVG:.956......|
000017D0: 54 B2 31 A4 33 30 30 30 3A 82 00 E8 1F B2 03 99 |T.1.3000:.......|
000017E0: 3A 99 3A 41 47 4E B2 30 00 01 20 B3 03 56 54 B2 |:.:AGN.0.. ..VT.|
000017F0: 56 54 AA 32 3A 48 54 B2 31 31 3A 8D 35 30 30 30 |VT.2:HT.11:.5000|
00001800: 30 00 2C 20 B4 03 99 22 9F 50 4C 41 59 20 41 47 |0., ...".PLAY AG|
00001810: 41 49 4E 3F 20 28 9A 59 9F 2F 9A 4E 9F 29 91 22 |AIN? (.Y./.N.)."|
00001820: 3B 3A 8D 32 38 30 3A 41 47 4E B2 30 00 42 20 B5 |;:.280:AGN.0.B .|
00001830: 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.|
00001840: 52 24 00 59 20 B6 03 8B 52 24 B2 22 59 22 A7 41 |R$.Y ...R$."Y".A|
00001850: 47 4E B2 31 3A 89 39 35 34 00 6A 20 B8 03 8B 52 |GN.1:.954.j ...R|
00001860: 24 B3 B1 22 4E 22 A7 39 34 39 00 70 20 BA 03 8E |$.."N".949.p ...|
00001870: 00 95 20 BC 03 99 A6 B6 28 28 4E 4D B3 31 30 30 |.. .....((NM.100|
00001880: 29 29 29 3B A6 B6 28 28 4E 4D B3 31 30 29 29 29 |)));..((NM.10)))|
00001890: 3B 4E 4D 3A 8E 00 AF 20 C0 03 3A 99 C7 28 31 34 |;NM:... ..:..(14|
000018A0: 37 29 3B 3A 99 C7 28 31 38 29 3B 22 0E 22 3B 00 |7);:..(18);".";.|
000018B0: E5 20 C2 03 58 24 B2 22 C1 C8 D4 DA C5 C5 20 D9 |. ..X$."...... .|
000018C0: C1 C8 D4 DA C5 C5 20 D9 C1 C8 D4 DA C5 C5 20 D9 |...... ....... .|
000018D0: C1 C8 D4 DA C5 C5 20 D9 C1 C8 D4 DA C5 C5 20 D9 |...... ....... .|
000018E0: 22 3A 43 B2 37 00 1D 21 C4 03 81 49 B2 31 A4 32 |":C.7..!...I.1.2|
000018F0: 30 3A 97 36 34 36 2C 43 3A 99 C9 28 58 24 2C 49 |0:.646,C:..(X$,I|
00001900: 29 3B C8 28 58 24 2C 34 30 AB 49 29 3B 3A 43 B2 |);.(X$,40.I);:C.|
00001910: 43 AA 31 3A 8B 43 B2 31 35 A7 43 B2 31 00 23 21 |C.1:.C.15.C.1.#!|
00001920: C5 03 82 00 56 21 C6 03 57 B2 31 3A 44 4E 24 B2 |....V!..W.1:DN$.|
00001930: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00001940: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001950: 11 11 11 11 11 22 00 89 21 C7 03 53 50 24 B2 22 |....."..!..SP$."|
00001960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001980: 20 20 20 20 20 20 20 20 22 00 C7 21 C8 03 81 49 | "..!...I|
00001990: B2 31 A4 31 32 3A 99 C8 28 44 4E 24 2C 49 AA 34 |.1.12:..(DN$,I.4|
000019A0: 29 A6 35 29 22 92 20 20 20 20 20 20 20 20 20 20 |).5)". |
000019B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019C0: 20 20 20 20 22 3A 82 00 EB 21 D0 03 58 24 B2 22 | ":...!..X$."|
000019D0: 20 C3 CF CD D0 D5 D4 C5 D2 20 D9 C1 C8 D4 DA C5 | ........ ......|
000019E0: C5 20 22 3A 48 B2 39 3A 56 B2 34 00 FA 21 D2 03 |. ":H.9:V.4..!..|
000019F0: 81 49 B2 31 A4 C3 28 58 24 29 00 18 22 D4 03 56 |.I.1..(X$).."..V|
00001A00: 54 B2 56 3A 48 54 B2 48 AA 49 3A 8D 35 30 30 30 |T.V:HT.H.I:.5000|
00001A10: 30 3A 99 22 99 A4 22 3B 00 41 22 D6 03 56 54 B2 |0:."..";.A"..VT.|
00001A20: 56 AA 31 3A 48 54 B2 48 AA 49 3A 8D 35 30 30 30 |V.1:HT.H.I:.5000|
00001A30: 30 3A 99 22 9E 22 3B CA 28 58 24 2C 49 2C 31 29 |0:.".";.(X$,I,1)|
00001A40: 3B 00 60 22 D8 03 56 54 B2 56 AA 32 3A 48 54 B2 |;.`"..VT.V.2:HT.|
00001A50: 48 AA 49 3A 8D 35 30 30 30 30 3A 99 22 99 A3 22 |H.I:.50000:.".."|
00001A60: 00 66 22 DA 03 8F 00 6D 22 DC 03 82 49 00 96 22 |.f"....m"...I.."|
00001A70: E2 03 99 A6 36 29 22 9A 12 20 C1 20 C3 CF CD D0 |....6)".. . ....|
00001A80: D5 D4 C5 D2 C9 DA C5 C4 20 D6 C5 D2 D3 C9 CF CE |........ .......|
00001A90: 20 CF C6 20 20 22 00 BF 22 E4 03 99 A6 36 29 22 | .. ".."....6)"|
00001AA0: 9A 12 20 D4 C8 C5 20 D4 D2 C1 C4 C9 D4 C9 CF CE |.. ... .........|
00001AB0: C1 CC 20 C4 C9 C3 C5 20 C7 C1 CD C5 2E 20 22 00 |.. .... ..... ".|
00001AC0: E7 22 EA 03 99 A6 36 29 22 9F 28 C3 29 20 31 39 |."....6)".(.) 19|
00001AD0: 38 36 20 C2 D9 20 C3 C8 D2 C9 D3 D4 C9 CE C5 20 |86 .. ......... |
00001AE0: C2 C5 CE CF C9 D4 22 00 0B 23 EC 03 99 A6 36 29 |......"..#....6)|
00001AF0: 22 9F 20 20 20 20 20 C1 CC CC 20 D2 C9 C7 C8 D4 |". ... .....|
00001B00: D3 20 D2 C5 D3 C5 D2 D6 C5 C4 22 00 11 23 EE 03 |. ........"..#..|
00001B10: 8E 00 1E 23 4C 04 99 C7 28 31 34 37 29 3B 00 3E |...#L...(147);.>|
00001B20: 23 51 04 99 C7 28 31 38 29 3B 3A 99 22 9E C1 C2 |#Q...(18);:."...|
00001B30: CF D5 D4 20 D4 C8 C5 20 C7 C1 CD C5 22 3A 00 6C |... ... ....":.l|
00001B40: 23 56 04 99 22 20 20 9F C3 CF CD D0 D5 D4 C5 D2 |#V.." .........|
00001B50: 20 D9 C1 C8 D4 DA C5 C5 20 9A 49 53 20 41 20 43 | ....... .IS A C|
00001B60: 4F 4D 50 55 54 45 52 49 5A 45 44 22 00 9B 23 58 |OMPUTERIZED"..#X|
00001B70: 04 99 22 56 45 52 53 49 4F 4E 20 4F 46 20 54 48 |.."VERSION OF TH|
00001B80: 45 20 50 4F 50 55 4C 41 52 20 44 49 43 45 20 47 |E POPULAR DICE G|
00001B90: 41 4D 45 2E 20 CB 4E 4F 57 2D 22 00 D5 23 5A 04 |AME. .NOW-"..#Z.|
00001BA0: 99 22 4C 45 44 47 45 20 4F 46 20 9F D9 C1 C8 D4 |."LEDGE OF .....|
00001BB0: DA C5 C5 20 9A 53 43 4F 52 49 4E 47 20 41 4E 44 |... .SCORING AND|
00001BC0: 20 50 4C 41 59 20 49 53 20 20 20 20 41 53 53 55 | PLAY IS ASSU|
00001BD0: 4D 45 44 2E 22 00 F7 23 5B 04 99 C7 28 31 38 29 |MED."..#[...(18)|
00001BE0: 3B 3A 99 22 9E D2 CF CC CC C9 CE C7 20 D4 C8 C5 |;:."........ ...|
00001BF0: 20 C4 C9 C3 C5 22 3A 00 25 24 60 04 99 22 20 20 | ....":.%$`.." |
00001C00: 9A C1 4C 4C 20 35 20 44 49 43 45 20 41 52 45 20 |..LL 5 DICE ARE |
00001C10: 52 4F 4C 4C 45 44 20 54 4F 20 42 45 47 49 4E 20 |ROLLED TO BEGIN |
00001C20: 45 41 43 48 22 00 52 24 62 04 99 22 54 55 52 4E |EACH".R$b.."TURN|
00001C30: 2E 20 C4 45 43 49 44 45 20 57 48 49 43 48 20 54 |. .ECIDE WHICH T|
00001C40: 4F 20 52 45 52 4F 4C 4C 2E 20 20 D3 45 4C 45 43 |O REROLL. .ELEC|
00001C50: 54 22 00 81 24 64 04 99 22 45 41 43 48 20 44 49 |T"..$d.."EACH DI|
00001C60: 45 20 42 59 20 50 52 45 53 53 49 4E 47 20 49 54 |E BY PRESSING IT|
00001C70: 53 20 4E 55 4D 42 45 52 2E 20 C9 46 20 59 4F 55 |S NUMBER. .F YOU|
00001C80: 22 00 AF 24 65 04 99 22 50 52 45 53 53 20 54 48 |"..$e.."PRESS TH|
00001C90: 45 20 57 52 4F 4E 47 20 4E 55 4D 42 45 52 2C 20 |E WRONG NUMBER, |
00001CA0: 50 52 45 53 53 20 49 54 20 41 47 41 49 4E 22 00 |PRESS IT AGAIN".|
00001CB0: C6 24 66 04 99 22 54 4F 20 55 4E 53 45 4C 45 43 |.$f.."TO UNSELEC|
00001CC0: 54 20 49 54 2E 22 00 05 25 69 04 99 22 20 20 D7 |T IT."..%i.." .|
00001CD0: 48 45 4E 20 54 48 45 20 4F 4E 45 53 20 59 4F 55 |HEN THE ONES YOU|
00001CE0: 20 57 41 4E 54 20 41 52 45 20 53 45 4C 45 43 54 | WANT ARE SELECT|
00001CF0: 45 44 2C 22 3A 99 22 50 52 45 53 53 20 D2 C5 D4 |ED,":."PRESS ...|
00001D00: D5 D2 CE 2E 22 00 1E 25 6A 04 99 C7 28 31 38 29 |...."..%j...(18)|
00001D10: 3B 3A 99 22 9E D3 C3 CF D2 C9 CE C7 22 3A 00 4A |;:."........":.J|
00001D20: 25 6B 04 99 22 20 20 9A D3 45 4C 45 43 54 20 41 |%k.." ..ELECT A|
00001D30: 20 53 43 4F 52 45 20 43 41 54 45 47 4F 52 59 20 | SCORE CATEGORY |
00001D40: 42 59 20 4D 4F 56 49 4E 47 22 00 77 25 6C 04 99 |BY MOVING".w%l..|
00001D50: 22 54 48 45 20 50 4F 49 4E 54 45 52 20 57 49 54 |"THE POINTER WIT|
00001D60: 48 20 54 48 45 20 C3 D2 D3 D2 20 4B 45 59 53 2E |H THE .... KEYS.|
00001D70: 20 D0 52 45 53 53 22 00 A1 25 6D 04 99 22 D2 C5 | .RESS"..%m.."..|
00001D80: D4 D5 D2 CE 20 54 4F 20 43 52 45 44 49 54 20 59 |.... TO CREDIT Y|
00001D90: 4F 55 52 53 45 4C 46 20 57 49 54 48 20 54 48 45 |OURSELF WITH THE|
00001DA0: 22 00 CF 25 6E 04 99 22 50 52 4F 50 45 52 20 53 |"..%n.."PROPER S|
00001DB0: 43 4F 52 45 20 46 4F 52 20 54 48 41 54 20 43 41 |CORE FOR THAT CA|
00001DC0: 54 45 47 4F 52 59 2E 20 20 C2 CF CE D5 D3 22 00 |TEGORY. .....".|
00001DD0: FE 25 6F 04 99 22 41 55 54 4F 4D 41 54 49 43 41 |.%o.."AUTOMATICA|
00001DE0: 4C 4C 59 20 42 45 43 4F 4D 45 53 20 33 35 20 49 |LLY BECOMES 35 I|
00001DF0: 46 20 54 48 45 20 4E 55 4D 42 45 52 53 22 00 2C |F THE NUMBERS".,|
00001E00: 26 70 04 99 22 49 4E 20 54 48 45 20 4C 45 46 54 |&p.."IN THE LEFT|
00001E10: 2D 48 41 4E 44 20 43 4F 4C 55 4D 4E 20 41 44 44 |-HAND COLUMN ADD|
00001E20: 45 44 20 54 4F 47 45 54 48 45 52 22 00 76 26 71 |ED TOGETHER".v&q|
00001E30: 04 99 22 45 51 55 41 4C 53 20 36 33 20 4F 52 20 |.."EQUALS 63 OR |
00001E40: 4D 4F 52 45 20 28 D4 48 45 20 CF CE C5 D3 20 2B |MORE (.HE .... +|
00001E50: 20 54 48 45 20 D4 D7 CF D3 20 20 41 4C 4C 20 54 | THE .... ALL T|
00001E60: 48 45 20 57 41 59 20 54 4F 20 54 48 45 20 D3 C9 |HE WAY TO THE ..|
00001E70: D8 C5 D3 29 2E 22 00 A9 26 74 04 48 54 B2 31 32 |...)."..&t.HT.12|
00001E80: 3A 56 54 B2 32 33 3A 8D 35 30 30 30 30 3A 99 C7 |:VT.23:.50000:..|
00001E90: 28 31 38 29 3B 3A 99 22 05 D0 D2 C5 D3 D3 20 C1 |(18);:."...... .|
00001EA0: CE D9 20 CB C5 D9 22 3B 3A 00 BB 26 79 04 97 31 |.. ...";:..&y..1|
00001EB0: 39 38 2C 30 3A 92 31 39 38 2C 31 00 D5 26 7E 04 |98,0:.198,1..&~.|
00001EC0: A1 4B 24 3A 8B 4B 24 B2 C7 28 32 37 29 A7 8D 36 |.K$:.K$..(27)..6|
00001ED0: 30 30 30 30 3A 00 DB 26 7F 04 8E 00 EB 26 50 C3 |0000:..&.....&P.|
00001EE0: 8F 20 56 54 41 42 20 48 54 41 42 00 0F 27 5A C3 |. VTAB HTAB..'Z.|
00001EF0: 97 37 38 31 2C 56 54 3A 97 37 38 32 2C 48 54 3A |.781,VT:.782,HT:|
00001F00: 97 37 38 33 2C 30 3A 9E 36 35 35 32 30 3A 8E 00 |.783,0:.65520:..|
00001F10: 15 27 64 C3 8E 00 1B 27 6E C3 3A 00 26 27 60 EA |.'d....'n.:.&'`.|
00001F20: 8F 51 55 49 54 3F 00 3C 27 65 EA 48 51 B2 C2 28 |.QUIT?.<'e.HQ..(|
00001F30: 33 36 29 3A 56 51 B2 C2 28 33 37 29 00 5D 27 6A |36):VQ..(37).]'j|
00001F40: EA 81 51 31 B2 30 A4 33 39 3A 42 25 28 51 31 29 |..Q1.0.39:B%(Q1)|
00001F50: B2 C2 28 31 30 32 34 AA 51 31 29 3A 82 00 9C 27 |..(1024.Q1):...'|
00001F60: 74 EA 56 54 B2 30 3A 48 54 B2 30 3A 8D 35 30 30 |t.VT.0:HT.0:.500|
00001F70: 30 30 3A 99 22 12 1D 1D 1D 1D 9F 20 20 20 20 20 |00:."...... |
00001F80: 20 51 55 49 54 20 46 4F 52 20 53 55 52 45 3F 20 | QUIT FOR SURE? |
00001F90: 28 59 2F 4E 29 20 20 20 20 20 22 3B 00 B2 27 88 |(Y/N) ";..'.|
00001FA0: EA 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.|
00001FB0: 4B 24 00 C4 27 92 EA 8B 4B 24 B2 22 59 22 A7 36 |K$..'...K$."Y".6|
00001FC0: 33 30 30 30 00 D7 27 9C EA 8B 4B 24 B3 B1 22 4E |3000..'...K$.."N|
00001FD0: 22 A7 36 30 30 34 30 00 F6 27 A1 EA 81 51 31 B2 |".60040..'...Q1.|
00001FE0: 30 A4 33 39 3A 97 31 30 32 34 AA 51 31 2C 42 25 |0.39:.1024.Q1,B%|
00001FF0: 28 51 31 29 3A 82 00 FC 27 A2 EA 8F 00 02 28 A6 |(Q1):...'.....(.|
00002000: EA 8E 00 3B 28 18 F6 9F 31 35 2C 38 2C 31 35 2C |...;(...15,8,15,|
00002010: 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 |"R0:HELLO CONNEC|
00002020: 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 |T=HELLO CONNECT"|
00002030: 3A 84 31 35 2C 45 52 3A A0 31 35 00 49 28 19 F6 |:.15,ER:.15.I(..|
00002040: 8B 45 52 B3 B1 36 33 A7 80 00 65 28 1A F6 99 22 |.ER..63...e(..."|
00002050: 93 22 3A 93 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 |.":."HELLO CONNE|
00002060: 43 54 22 2C 38 00 00 00 |CT",8... |
..&....B%(39):.53281,0:.53280,6:.646,1.;
....NOCAS CONVERTER.A.....C.... ***
*******************.I..........
COMPUTER YAHTZEE.........(.. CO
PYRIGHT 1986...-...S.2.. BY: CHRIS
TINE BENOIT.Y.<.....A.. ***********
***********...F.....P.....D..960:.TITLEP
AGE.0.N..800:.INITIALIZE.D.S..1100:.INST
RUCS.A.X.."."G(142);:.900:.BORDER.R....7
00:.SCREEN......750:.CLEAR......200:.PLA
Y... ..914:.TOTALUP......AGN.1.120.A....
G(147);: .N....:.63000...H..300:.ROLLDIC
E...R..450:.SORT......500:.SCORE.....NUM
LEFT.NUMLEFT.1.)....NUMLEFT.0.200./.....
Y....".";:VT.10:HT.1:.50000:.G(18);:.SP$
;.|...VT.10:HT.1:X.41.C(X$):Y..(X.2)....
...Y);X$;.....X..(0):....... SOUND ROUTI
NE........."...I.,.TRIAL.1:."..";...1..I
.5.7:VT.I:HT.5:.50000:..30);:....6..I.1.
5:RL(I).1:....;..".";:.I.1.5.%.@..RL(I).
0.328.N.E.DICE(I)..(.(1).6).1:D.I:.400:R
L(I).0.U.H..I.J.J..TRIAL.3..".";:..|.O.T
RIAL.TRIAL.1...T.:...Y.:...^.:...C.:...D
.:.R.H.X$."SELECT DICE--PRESS RETURN: 1
2 3 4 5 ":.250...M.R.5:N.0...R..198,
0:.198,1...W..K$:K.F(K$.G(0)):.K$."Q"..6
0000:.K.141.315.-.X..K.13.315.E.|.K.K.48
:.K.1.K.5.370.J...V.10:.RL(K).0.RL(K).1:
N.N.1:.395.|...RL(K).0:N.N.1......"..";:
.RL(K).0..".";.....VT.V.1:HT.26.2.K:.500
00.F....J(D(K),2);".";.O....370.....V.5:
H.6.D......X.3.12:VT.V.X.3..(X.3):HT.H:.
50000:."QQQ";:HT.H.'....50000:." ";:..
5...D.DICE(D).W...VT.V:HT.H:.50000:.DICE
$(D,1);.{...VT.V.1:HT.H:.50000:.DICE$(D,
2);.....VT.V.2:HT.H:.50000:.DICE$(D,3);.
..............B..I.1.4.C.G..J.I.1.5...L.
.DICE(J)..DICE(I).470...Q.X.DICE(J):DICE
(J).DICE(I):DICE(I).X...V..J......I.....
..V...X$."SELECT SCORE WITH CURSOR AND R
ETURN ":.250:.".";.H...C.1:DC.1:.555
......198,0:.198,1:.".";......K$:K.F(K$.
G(0)):.K$."Q"..60000:.K.13.570......K.13
.570.P....K.17.DC.1:.535......K.145.DC..
1:.535......510.%...VT.VRT(C):HT.2.15..(
(C.6)):.50000:.".."CHOICE$(C).0...C.C.DC
.>.!..C.0.C.13.L.&..C.14.C.1._.+..SC(C,2
).1.540...0.."..";:VT.VRT(C):HT.2.15..((
C.6)):.50000:.CHOICE$(C)...5..510...:..C
.7.637.S.;..C.6.577,585,593,603,617,627,
632...<.SC(C,1).TEMP:SC(C,2).1:VT.VRT(C)
.!.=.HT.2.15..((C.6)):.50000:.CHOICE$(C)
;.O.>.HT.10.23..((C.6)):.50000:...((TEMP
.10)));.S.?.S$.J(D(TEMP),2):.C(S$).2..".
";...@..".";S$;".";:.690:....A..***3OFA
KIND...B...K.C..DICE(1).DICE(2).DICE(2).
DICE(3).583...D..DICE(2).DICE(3).DICE(3)
.DICE(4).583...E..DICE(3).DICE(4).DICE(4
).DICE(5).583.-.F..646:.ERROR.^.G.TEMP.D
ICE(1).DICE(2).DICE(3).DICE(4).DICE(5).G
.H..572.M.I...~.J..***4OFAKIND...K.....L
..DICE(1).DICE(4).591...M..DICE(2).DICE(
5).591.F.N..646:.ERROR...O.TEMP.DICE(1).
DICE(2).DICE(3).DICE(4).DICE(5)...P..572
...Q.....R..***FULLHOUSE...S...8.T..DICE
(1)..DICE(3).599.Q.U..DICE(4).DICE(5).60
1.A.V..646:.ERROR...W..DICE(3).DICE(5).D
ICE(1).DICE(2).601...X..646:.ERROR...Y.T
EMP.25:.572...Z.S1.0...[...P.\..***SMALL
STRAIGHT.V.].....^.S1.0..._..DICE(1).1.D
ICE(2).S2.1:.609...`.S2.2...A..J.S2.4.?.
B..DICE(J).1.DICE(J.1).S1.10.S1.DICE(J).
F.C..J.S.D..DICE(5).DICE(4).2.S1.10.S1.D
ICE(4):.614...E..DICE(5).DICE(4).2.S1.10
.S1.DICE(5).N.F..S1.1234.S1.2345.S1.3456
.S1.12345.S1.23456.616...G..646:.ERROR..
.H.TEMP.30:.572...I.....J..***LARGESTRAI
GHT...K.....L.SI.0.%.M..J.1.4.K.N..DICE(
J).1.DICE(J.1).SI.SI.1:.624.T.O.SI.0.[.P
..J.Q.Q..SI..4.646:.ERROR...R.TEMP.40:.5
72...S.....T..***YAHTZEE...U.....V..DICE
(1)..DICE(5).646:.ERROR.P.W.TEMP.50:.572
.V.X.....Y..***CHANCE...Z.....{.TEMP.DIC
E(1).DICE(2).DICE(3).DICE(4).DICE(5).%.|
..572.+.}...A.~..***1'STHROUGH6'S.G....
R...TEMP.0.]....J.1.5.X....DICE(J).C.TEM
P.TEMP.C.....J......TEMP.0.646:.ERROR..
....572............***ERRORROUTINE......
.....X$.SP$:.250:X$.".YOU DON'T HAVE "..
....C.7.X$.X$."ANY ":.652......C.9.C.10.
C.11.X$.X$."A ".>...X$.X$.CHOICE$(C):.25
0:.270.N....T.1.1000:......X$."DO YOU WA
NT TO TAKE A ZERO? (Y/N)":.250:.280.....
.198,0:.198,1:.R$:.R$;.I....R$."Y".TEMP.
0:X$.SP$:.250:."..";:.572......R$."N".X$
."SELECT SCORE WITH CURSOR AND RETURN":.
250:.510......654.....T.0:.I.1.6:T.T.SC(
I,1):..B...BN.35..((T.62)).W...VT.20:HT.
10:.50000:.".";..((BN.10)));J(D(BN),2);.
}.........."...";.6);...A..I.1.5:.G(18);
:.".."I". . ";:.:..5);:..D.B..:.:....F
..I.1.3:."..";SP$;:.:....K...2)".ONES...
..$$ .3 OF A KIND......$$".5);.F.P..
.2)".TWOS.....$$ .4 OF A KIND......$
$".5);.Z.U...2)".THREES...$$ .FULL H
OUSE.......$$".5);...Z...2)".FOURS....$$
.SMALL STRAIGHT...$$".5);.......2)"
.FIVES....$$ .LARGE STRAIGHT...$$".5
);.......2)".SIXES....$$ .YAHTZEE...
.......$$".5);.I.....2)".BONUS.... 0
.CHANCE...........$$".5).R...."...
PRESS .Q. TO QUIT.".}....".":....
...I.1.13:SC(I,1).0:SC(I,2).0:......NUML
EFT.13:BN.0......... ..DICE(5),DICE$(6,3
),CHOICE$(13),SC(13,2),RL(5)..."..VRT(13
)...%...!.*..I.1.6:.J.1.3:.DICE$(I,J):.:
..;./..I.1.13:.CHOICE$(I):..Q.2..I.1.13:
.VRT(I):..W.4.....>.." "," Q "," ","
Q"," ","Q "...H.." Q"," Q ","Q ",
"Q Q"," ","Q Q".R.R.."Q Q"," Q ","Q Q"
,"Q Q","Q Q","Q Q"...\..ONES,TWOS,THREES
,FOURS,FIVES,SIXES,3 OF A KIND.1.^..4 OF
A KIND,FULL HOUSE,SMALL STRAIGHT.T.`..L
ARGE STRAIGHT,YAHTZEE,CHANCE...A..14,15,
16,17,18,19,14,15,16,17,18,19,20...F.GAM
ES . 0:BST.0:WRST.999:TTL.0.Q.K.VT.22:HT
.11:.50000:.".[ PRESS ANY KEY ]";.W.M...
..P..198,0:.198,1:.****RND(1):IFK<128THE
N880...U..K$...Z...#....G(147);".";.Y...
.".......C O M P U T E R Y A H T Z E E
.......";._..........I.1.23:VT.I:HT.0:.5
0000:.".";:HT.39:.50000:."..";:......VT.
24:HT.0:.50000:."......B Y C H R I S
B E N O I T.......";:......2023,125:.
2023.54272,14..................DN$.$....
".";:.G(18);.V....". C O M P U T E R
Y A H T Z E E ";.W...TP.BN:.I.1.6:
TP.TP.SC(I,1):......BT.0:.I.7.13:BT.BT.S
C(I,1):..O...GT.TP.BT:GAMES.GAMES.1:TTL.
TTL.GT:AVG..(TTL.GAMES)......GT.WRST.WRS
T.GT......GT.BST.BST.GT.)...VT.9:HT.9:.5
0000:.".---";:HT.32:.50000:."---".J. .VT
.10:HT.8:.50000:NM.TP:.956.F...HT.31:.50
000:NM.BT:.956.T...H.6:VT.14.....HT.H:VT
.VT.1:.50000:.".SCORE FOR THIS GAME.....
..";:NM.GT:.956.....HT.H:VT.VT.1:.50000:
.".NUMBER OF GAMES PLAYED....";:NM.GAMES
:.956.A...HT.H:VT.VT.1:.50000:.".BEST SC
ORE SO FAR.........";:NM.BST:.956.....HT
.H:VT.VT.1:.50000:.".WORST SCORE SO FAR.
.......";:NM.WRST:.956.J...HT.H:VT.VT.1:
.50000:.".AVERAGE SCORE.............";:N
M.AVG:.956.Z....T.1.3000:.......:.:AGN.0
.. ..VT.VT.2:HT.11:.50000., ...".PLAY AG
AIN? (.Y./.N.).";:.280:AGN.0.B ...198,0:
.198,1:.R$.Y ...R$."Y".AGN.1:.954.J ...R
$.."N".949.P ..... .....((NM.100)));..((
NM.10)));NM:... ..:.G(147);:.G(18);".";.
. B.X$."AHTZEE YAHTZEE YAHTZEE YAHTZEE Y
AHTZEE Y":C.7..!D..I.1.20:.646,C:.I(X$,I
);H(X$,40.I);:C.C.1:.C.15.C.1.#!E...V!F.
W.1:DN$."...............................
....."..!G.SP$."
".G!H..I.1.12:.H(DN$,I.4
).5)". ":..
.!P.X$." COMPUTER YAHTZEE ":H.9:V.4..!R.
.I.1.C(X$).."T.VT.V:HT.H.I:.50000:."..";
.A"V.VT.V.1:HT.H.I:.50000:.".";J(X$,I,1)
;.`"X.VT.V.2:HT.H.I:.50000:."..".F"Z...M
"...I.."....6)".. A COMPUTERIZED VERSION
OF ".."....6)".. THE TRADITIONAL DICE
GAME. ".."....6)".(C) 1986 BY CHRISTINE
BENOIT"..#....6)". ALL RIGHTS RESERV
ED"..#.....#L..G(147);.>#Q..G(18);:.".AB
OUT THE GAME":.L#V.." .COMPUTER YAHTZEE
.IS A COMPUTERIZED"..#X.."VERSION OF TH
E POPULAR DICE GAME. KNOW-".U#Z.."LEDGE
OF .YAHTZEE .SCORING AND PLAY IS ASSU
MED."..#[..G(18);:.".ROLLING THE DICE":.
%$`.." .ALL 5 DICE ARE ROLLED TO BEGIN
EACH".R$B.."TURN. DECIDE WHICH TO REROLL
. SELECT"..$D.."EACH DIE BY PRESSING IT
S NUMBER. IF YOU"..$E.."PRESS THE WRONG
NUMBER, PRESS IT AGAIN".F$F.."TO UNSELEC
T IT."..%I.." WHEN THE ONES YOU WANT AR
E SELECTED,":."PRESS RETURN."..%J..G(18)
;:.".SCORING":.J%K.." .SELECT A SCORE C
ATEGORY BY MOVING".W%L.."THE POINTER WIT
H THE CRSR KEYS. PRESS"..%M.."RETURN TO
CREDIT YOURSELF WITH THE".O%N.."PROPER S
CORE FOR THAT CATEGORY. BONUS"..%O.."AU
TOMATICALLY BECOMES 35 IF THE NUMBERS".,
&P.."IN THE LEFT-HAND COLUMN ADDED TOGET
HER".V&Q.."EQUALS 63 OR MORE (THE ONES +
THE TWOS ALL THE WAY TO THE SIXES)."..
&T.HT.12:VT.23:.50000:.G(18);:.".PRESS A
NY KEY";:..&Y..198,0:.198,1.U&~..K$:.K$.
G(27)..60000:..&....&PC. VTAB HTAB..'ZC
.781,VT:.782,HT:.783,0:.65520:...'DC...'
NC:.&'`..QUIT?.<'E.HQ.B(36):VQ.B(37).]'J
..Q1.0.39:B%(Q1).B(1024.Q1):...'T.VT.0:H
T.0:.50000:."...... QUIT FOR SURE?
(Y/N) ";..'...198,0:.198,1:.K$.D'...
K$."Y".63000.W'...K$.."N".60040..'...Q1.
0.39:.1024.Q1,B%(Q1):...'.....(....;(...
15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
:.15,ER: 15.I(...ER..63...E(...".":."HEL
LO CONNECT",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL