PART 3
FILE INFORMATION
FILENAME(S): PART 3
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 21:25:02
APPEARS ON: 1 disk(s)
FILE HASH
7b6cc7090f32abe70cef2f7484dba3b42328ad3ee4dc8daee334642690355e96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC LESSEN | PART 3 | PRG | DuncanTwain | 16 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 46 00 99 20 22 93 22 20 3A 20 DB 20 |....F.. "." : . | 00000010: 37 2C 37 2C 30 00 41 08 50 00 99 20 22 11 11 11 |7,7,0.A.P.. "...| 00000020: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000030: 1D 1D 1D 1D 1D 49 54 27 53 20 41 20 44 45 41 4C |.....IT'S A DEAL| 00000040: 22 00 53 08 5A 00 E2 20 35 20 3A 20 DB 20 30 2C |".S.Z.. 5 : . 0,| 00000050: 30 2C 31 00 6F 08 64 00 86 4B 24 28 31 33 29 2C |0,1.o.d..K$(13),| 00000060: 4B 25 28 35 32 29 3A 49 B2 BB 28 AB 54 49 29 00 |K%(52):I..(.TI).| 00000070: A5 08 6E 00 41 30 24 B2 22 13 11 11 11 11 11 11 |..n.A0$.".......| 00000080: 22 3A 41 31 24 B2 41 30 24 AA 22 11 11 11 11 11 |":A1$.A0$.".....| 00000090: 11 11 22 3A 41 33 24 B2 41 31 24 AA 22 11 11 11 |..":A3$.A1$."...| 000000A0: 11 11 11 11 22 00 CB 08 78 00 41 24 B2 22 20 20 |...."...x.A$." | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 000000C0: 47 28 4F 29 B2 31 30 30 30 30 30 00 D5 08 82 00 |G(O).100000.....| 000000D0: 8D 31 31 31 30 00 FE 08 8C 00 99 22 50 4C 41 59 |.1110......"PLAY| 000000E0: 45 52 53 20 28 31 2F 32 29 20 3F 20 20 20 20 20 |ERS (1/2) ? | 000000F0: 20 20 20 20 20 20 91 22 3A 8D 31 30 39 30 00 1C | .":.1090..| 00000100: 09 96 00 50 4C B2 C5 28 58 24 29 3A 8B 50 4C B3 |...PL..(X$):.PL.| 00000110: B1 31 AF 50 4C B3 B1 32 A7 31 34 30 00 32 09 A0 |.1.PL..2.140.2..| 00000120: 00 97 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 |..53280,2:.53281| 00000130: 2C 32 00 5C 09 A5 00 99 22 93 81 12 22 41 24 22 |,2.\...."..."A$"| 00000140: 92 20 20 20 20 20 20 20 20 12 22 41 24 22 20 20 |. ."A$" | 00000150: 92 20 20 20 20 12 20 20 20 92 22 3B 00 8E 09 A7 |. . .";....| 00000160: 00 99 22 05 20 30 30 30 30 20 81 12 20 92 20 05 |..". 0000 .. . .| 00000170: 31 30 30 30 30 30 20 81 12 20 92 20 05 30 30 30 |100000 .. . .000| 00000180: 30 20 81 12 20 20 20 92 20 20 20 20 22 3B 00 D3 |0 .. . ";..| 00000190: 09 AA 00 99 22 12 20 22 41 24 22 92 A9 20 20 20 |....". "A$".. | 000001A0: 20 20 20 20 20 DF 12 20 22 41 24 22 92 20 05 30 | .. "A$". .0| 000001B0: 30 30 20 81 12 20 20 50 23 20 31 20 92 A9 20 20 |00 .. P# 1 .. | 000001C0: 44 45 41 4C 45 52 20 20 DF 12 20 50 23 20 32 20 |DEALER .. P# 2 | 000001D0: 20 22 3B 00 07 0A B4 00 99 22 92 20 05 30 30 30 | ";......". .000| 000001E0: 20 81 12 22 41 24 22 9D 92 A9 20 20 20 20 20 20 | .."A$"... | 000001F0: 20 20 20 20 20 20 DF 12 20 20 20 20 20 20 20 20 | .. | 00000200: 20 20 20 20 20 22 3B 00 4A 0A BE 00 99 22 92 CD | ";.J...."..| 00000210: 11 CD 11 CD 11 CD 11 CD 11 CD 11 CD A4 A4 A4 A4 |................| 00000220: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000230: A4 A4 A4 A4 A4 A4 CE 91 CE 91 CE 91 CE 91 CE 91 |................| 00000240: CE 91 CE 22 3A 8D 31 30 36 30 00 7C 0A C8 00 99 |...":.1060.|....| 00000250: 41 31 24 3B A6 31 39 29 22 91 A7 A5 9D 9D 11 A7 |A1$;.19)".......| 00000260: A5 9D 9D 11 A7 A5 9D 9D 11 A7 A5 9D 9D 11 A7 A5 |................| 00000270: 9D 9D 11 A7 A5 9D 9D 11 A7 A5 13 05 00 A5 0A D2 |................| 00000280: 00 81 49 B2 30 A4 33 3A 87 4C 24 28 49 29 3A 82 |..I.0.3:.L$(I):.| 00000290: 3A 83 22 D3 20 22 2C 22 C1 20 22 2C 22 D8 20 22 |:.". ",". ",". "| 000002A0: 2C 22 DA 20 22 00 BA 0A DC 00 81 49 B2 31 A4 31 |,". "......I.1.1| 000002B0: 33 3A 87 4B 24 28 49 29 3A 82 00 FB 0A E6 00 83 |3:.K$(I):.......| 000002C0: 22 41 43 45 22 2C 22 20 32 20 22 2C 22 20 33 20 |"ACE"," 2 "," 3 | 000002D0: 22 2C 22 20 34 20 22 2C 22 20 35 20 22 2C 22 20 |"," 4 "," 5 "," | 000002E0: 36 20 22 2C 22 20 37 20 22 2C 22 20 38 20 22 2C |6 "," 7 "," 8 ",| 000002F0: 22 20 39 20 22 2C 22 20 31 30 22 00 12 0B F0 00 |" 9 "," 10".....| 00000300: 83 22 4A 41 43 22 2C 22 51 55 45 22 2C 22 4B 49 |."JAC","QUE","KI| 00000310: 4E 22 00 35 0B FA 00 81 49 B2 31 A4 35 32 3A 4B |N".5....I.1.52:K| 00000320: 25 28 49 29 B2 34 3A 82 3A 81 49 49 B2 31 A4 32 |%(I).4:.:.II.1.2| 00000330: 30 30 30 3A 82 00 4A 0B 04 01 4B 30 B2 30 3A 99 |000:..J...K0.0:.| 00000340: 41 30 24 3B A3 31 35 29 41 24 00 77 0B 0E 01 8B |A0$;.15)A$.w....| 00000350: 4B 30 B1 32 30 31 AB 31 34 AC 50 4C A7 99 41 30 |K0.201.14.PL..A0| 00000360: 24 3B A3 31 35 29 22 4E 49 45 55 57 20 53 54 4F |$;.15)"NIEUW STO| 00000370: 4B 22 3A 89 32 35 30 00 A1 0B 18 01 81 49 B2 31 |K":.250......I.1| 00000380: A4 50 4C 3A 54 28 49 29 B2 30 3A 41 28 49 29 B2 |.PL:T(I).0:A(I).| 00000390: 30 3A 8D 38 38 30 3A 8D 39 34 30 3A 8D 31 30 36 |0:.880:.940:.106| 000003A0: 30 00 B9 0B 22 01 99 41 31 24 3B A3 32 31 AC 28 |0..."..A1$;.21.(| 000003B0: 49 AB 31 29 29 4B 24 3A 82 00 DF 0B 2C 01 49 B2 |I.1))K$:....,.I.| 000003C0: 30 3A 54 28 49 29 B2 30 3A 41 28 49 29 B2 30 3A |0:T(I).0:A(I).0:| 000003D0: 8D 38 38 30 3A 8D 39 34 30 3A 8D 31 30 36 30 00 |.880:.940:.1060.| 000003E0: EF 0B 36 01 99 41 30 24 3B A3 31 34 29 4B 24 00 |..6..A0$;.14)K$.| 000003F0: FB 0B 40 01 81 49 B2 31 A4 50 4C 00 36 0C 4A 01 |..@..I.1.PL.6.J.| 00000400: 8D 31 30 30 30 3A 99 22 42 45 54 20 20 20 30 20 |.1000:."BET 0 | 00000410: 20 20 9D 9D 9D 9D 9D 9D 22 3B 3A 85 42 24 3A 42 | ......";:.B$:B| 00000420: B2 B5 28 C5 28 42 24 29 29 3A 8B 42 B3 31 30 B0 |..(.(B$)):.B.10.| 00000430: 42 B1 35 30 30 A7 00 5F 0C 54 01 42 28 49 29 B2 |B.500.._.T.B(I).| 00000440: 42 3A 99 22 13 11 11 11 22 3B A6 33 31 AC 28 49 |B:."....";.31.(I| 00000450: AB 31 29 AA 36 AB C3 28 C4 28 42 29 29 29 42 00 |.1).6..(.(B)))B.| 00000460: 6F 0C 5E 01 8D 31 30 30 30 3A 99 41 24 3A 82 00 |o.^..1000:.A$:..| 00000470: 8B 0C 68 01 81 49 B2 31 A4 50 4C 3A 8D 38 38 30 |..h..I.1.PL:.880| 00000480: 3A 8D 39 34 30 3A 8D 31 30 36 30 00 A5 0C 72 01 |:.940:.1060...r.| 00000490: 99 41 31 24 3B A3 32 31 AC 28 49 AB 31 29 AA 35 |.A1$;.21.(I.1).5| 000004A0: 29 4B 24 3A 82 00 D8 0C 7C 01 49 B2 30 3A 4E B2 |)K$:....|.I.0:N.| 000004B0: 32 3A 8D 38 38 30 3A 8D 39 35 30 3A 99 41 30 24 |2:.880:.950:.A0$| 000004C0: 3B A3 31 36 29 3B 3A 8D 31 30 37 30 3A 8D 31 30 |;.16);:.1070:.10| 000004D0: 33 30 3A 44 24 B2 4B 24 00 E8 0C 86 01 81 49 B2 |30:D$.K$......I.| 000004E0: 31 A4 50 4C 3A 4E B2 32 00 17 0D 90 01 8B 54 28 |1.PL:N.2......T(| 000004F0: 49 29 B2 32 31 A7 8D 31 30 30 30 3A 99 22 42 4C |I).21..1000:."BL| 00000500: 41 43 4B 2D 4A 41 43 4B 22 3A 41 28 49 29 B2 31 |ACK-JACK":A(I).1| 00000510: 2E 35 3A 89 35 39 30 00 39 0D 9A 01 8D 31 30 31 |.5:.590.9....101| 00000520: 30 3A 8B 4E B2 32 AF 54 28 49 29 B1 38 AF 54 28 |0:.N.2.T(I).8.T(| 00000530: 49 29 B3 31 32 A7 35 31 30 00 4A 0D A4 01 8B 54 |I).12.510.J....T| 00000540: 28 49 29 B1 32 31 A7 35 30 30 00 83 0D AE 01 99 |(I).21.500......| 00000550: 22 13 11 22 3B A6 33 33 AC 28 49 AB 31 29 AA 32 |"..";.33.(I.1).2| 00000560: 29 22 53 2F 54 22 3B 3A 8D 31 30 39 30 3A 99 22 |)"S/T";:.1090:."| 00000570: 9D 9D 9D 20 20 20 22 3A 8B 58 24 B2 22 53 22 A7 |... ":.X$."S".| 00000580: 35 37 30 00 94 0D B8 01 8B 58 24 B3 B1 22 54 22 |570......X$.."T"| 00000590: A7 34 33 30 00 B2 0D C2 01 54 B2 4E 3A 4E B2 4E |.430.....T.N:N.N| 000005A0: AA 31 3A 8D 38 38 30 3A 8D 39 34 30 3A 8D 31 30 |.1:.880:.940:.10| 000005B0: 36 30 00 D2 0D CC 01 99 41 31 24 3B 3A 8B 4E B1 |60......A1$;:.N.| 000005C0: 34 A7 99 22 11 11 11 11 11 11 22 3B 3A 54 B2 54 |4.."......";:T.T| 000005D0: AB 34 00 04 0E D6 01 99 A3 32 31 AC 28 49 AB 31 |.4.......21.(I.1| 000005E0: 29 AA 35 AC 54 29 4B 24 3B 3A 8B 4E B2 37 AF 54 |).5.T)K$;:.N.7.T| 000005F0: 28 49 29 B3 32 32 A7 41 28 49 29 B2 31 2E 35 3A |(I).22.A(I).1.5:| 00000600: 89 35 38 30 00 15 0E E0 01 8B 54 28 49 29 B2 32 |.580......T(I).2| 00000610: 31 A7 35 37 30 00 26 0E EA 01 8B 54 28 49 29 B3 |1.570.&....T(I).| 00000620: 32 31 A7 34 31 30 00 56 0E F4 01 8D 31 30 31 30 |21.410.V....1010| 00000630: 3A 99 22 13 11 22 3B A6 33 32 AC 28 49 AB 31 29 |:."..";.32.(I.1)| 00000640: AA 32 29 22 44 4F 4F 44 22 3A 41 28 49 29 B2 AB |.2)"DOOD":A(I)..| 00000650: 31 3A 89 35 39 30 00 89 0E FE 01 8D 31 30 30 30 |1:.590......1000| 00000660: 3A 99 22 9D 9D 9D 9D 44 4F 55 42 4C 45 20 3F 22 |:."....DOUBLE ?"| 00000670: 3B 3A 8D 31 30 39 30 3A 99 22 9D 20 22 3A 8B 58 |;:.1090:.". ":.X| 00000680: 24 B2 22 4A 22 A7 35 34 30 00 AA 0E 08 02 8B 58 |$."J".540......X| 00000690: 24 B2 22 4E 22 A7 8D 31 30 30 30 3A 99 22 9D 9D |$."N"..1000:."..| 000006A0: 9D 9D 22 41 24 3A 89 34 33 30 00 B3 0E 12 02 89 |.."A$:.430......| 000006B0: 35 31 30 00 F5 0E 1C 02 42 28 49 29 B2 32 AC 42 |510.....B(I).2.B| 000006C0: 28 49 29 3A 99 22 13 11 11 11 22 3B A6 33 31 AC |(I):."....";.31.| 000006D0: 28 49 AB 31 29 AA 36 AB C3 28 C4 28 42 28 49 29 |(I.1).6..(.(B(I)| 000006E0: 29 29 29 3B 3A 8B 42 28 49 29 B2 31 30 30 30 A7 |)));:.B(I).1000.| 000006F0: 99 22 1D 22 3B 00 0F 0F 26 02 99 42 28 49 29 3A |.".";...&..B(I):| 00000700: 8D 38 38 30 3A 8D 39 34 30 3A 8D 31 30 36 30 00 |.880:.940:.1060.| 00000710: 28 0F 30 02 99 41 31 24 3B A3 32 31 AC 28 49 AB |(.0..A1$;.21.(I.| 00000720: 31 29 AA 31 30 29 4B 24 00 33 0F 3A 02 41 28 49 |1).10)K$.3.:.A(I| 00000730: 29 B2 31 00 3D 0F 44 02 8D 31 30 31 30 00 44 0F |).1.=.D..1010.D.| 00000740: 4E 02 82 49 00 6F 0F 58 02 49 B2 30 3A 4E B2 32 |N..I.o.X.I.0:N.2| 00000750: 3A 99 41 30 24 3B A6 31 36 29 44 24 3A 8D 31 30 |:.A0$;.16)D$:.10| 00000760: 33 30 3A 81 49 49 B2 31 A4 31 30 30 30 3A 82 00 |30:.II.1.1000:..| 00000770: 9B 0F 62 02 99 41 30 24 3B A3 33 30 29 54 28 49 |..b..A0$;.30)T(I| 00000780: 29 3A 81 49 49 B2 31 A4 32 30 30 30 3A 82 3A 8B |):.II.1.2000:.:.| 00000790: 54 28 49 29 B1 32 31 A7 37 32 30 00 B0 0F 6C 02 |T(I).21.720...l.| 000007A0: 8B 54 28 49 29 B2 32 31 AF 4E B2 32 A7 36 39 30 |.T(I).21.N.2.690| 000007B0: 00 DF 0F 76 02 8B 28 41 28 31 29 B2 AB 31 B0 41 |...v..(A(1)..1.A| 000007C0: 28 31 29 B2 31 2E 35 29 AF 28 41 28 32 29 B2 AB |(1).1.5).(A(2)..| 000007D0: 31 B0 41 28 32 29 B2 31 2E 35 29 A7 37 32 30 00 |1.A(2).1.5).720.| 000007E0: F0 0F 80 02 8B 54 28 49 29 B1 31 36 A7 36 36 30 |.....T(I).16.660| 000007F0: 00 25 10 8A 02 4E B2 4E AA 31 3A 8D 38 38 30 3A |.%...N.N.1:.880:| 00000800: 8D 39 34 30 3A 8D 31 30 36 30 3A 99 41 30 24 3B |.940:.1060:.A0$;| 00000810: A3 32 AC 4E AA 31 32 29 4B 24 3A 8D 31 30 33 30 |.2.N.12)K$:.1030| 00000820: 3A 89 36 31 30 00 4D 10 94 02 81 49 B2 31 A4 50 |:.610.M....I.1.P| 00000830: 4C 3A 8B 54 28 49 29 B2 54 28 30 29 AF 41 28 49 |L:.T(I).T(0).A(I| 00000840: 29 B3 B1 31 2E 35 A7 41 28 49 29 B2 30 00 6E 10 |)..1.5.A(I).0.n.| 00000850: 9E 02 8B 54 28 49 29 B3 54 28 30 29 AF 41 28 49 |...T(I).T(0).A(I| 00000860: 29 B3 B1 31 2E 35 A7 41 28 49 29 B2 AB 31 00 79 |)..1.5.A(I)..1.y| 00000870: 10 A8 02 82 3A 89 37 32 30 00 9B 10 B2 02 81 49 |....:.720......I| 00000880: B2 31 A4 50 4C 3A 8B 41 28 49 29 B2 31 2E 35 A7 |.1.PL:.A(I).1.5.| 00000890: 41 28 49 29 B2 30 3A 89 37 31 30 00 A7 10 BC 02 |A(I).0:.710.....| 000008A0: 41 28 49 29 B2 AB 31 00 AD 10 C6 02 82 00 CB 10 |A(I)..1.........| 000008B0: D0 02 81 49 B2 31 A4 50 4C 3A 42 28 49 29 B2 B5 |...I.1.PL:B(I)..| 000008C0: 28 42 28 49 29 AC 41 28 49 29 29 00 05 11 DA 02 |(B(I).A(I)).....| 000008D0: 47 28 49 29 B2 47 28 49 29 AA 42 28 49 29 3A 47 |G(I).G(I).B(I):G| 000008E0: 28 30 29 B2 47 28 30 29 AB 42 28 49 29 3A 99 41 |(0).G(0).B(I):.A| 000008F0: 33 24 3B 22 11 22 3B A3 32 31 AC 28 49 AB 31 29 |3$;".";.21.(I.1)| 00000900: AA 31 35 29 3B 00 24 11 E4 02 8B 42 28 49 29 B1 |.15);.$....B(I).| 00000910: 30 A7 99 22 59 4F 55 9D 9D 9D 11 57 49 4E 22 3A |0.."YOU....WIN":| 00000920: 89 37 37 30 00 45 11 EE 02 8B 42 28 49 29 B3 30 |.770.E....B(I).0| 00000930: A7 99 22 59 4F 55 9D 9D 9D 11 4C 4F 53 45 9D 22 |.."YOU....LOSE."| 00000940: 3A 89 37 37 30 00 5B 11 F8 02 99 22 45 56 45 4E |:.770.[...."EVEN| 00000950: 9D 9D 9D 9D 11 47 41 4D 45 9D 22 00 84 11 02 03 |.....GAME.".....| 00000960: 82 3A 99 41 31 24 3B 22 91 91 20 20 20 22 3B A3 |.:.A1$;".. ";.| 00000970: 33 37 29 22 20 20 22 3A 81 49 49 B2 31 A4 32 30 |37)" ":.II.1.20| 00000980: 30 30 3A 82 00 9C 11 0C 03 47 B2 35 3A 81 49 B2 |00:......G.5:.I.| 00000990: 31 A4 50 4C 3A 8D 31 30 34 30 3A 82 00 BA 11 16 |1.PL:.1040:.....| 000009A0: 03 47 B2 36 3A 49 B2 30 3A 99 22 13 11 22 3B A6 |.G.6:I.0:."..";.| 000009B0: 31 37 29 3B 3A 8D 31 30 35 30 00 DB 11 20 03 99 |17);:.1050... ..| 000009C0: 41 30 24 3B 3A 81 49 B2 31 A4 35 3A 99 A3 31 34 |A0$;:.I.1.5:..14| 000009D0: 29 22 20 20 20 22 3B 41 24 3A 82 00 02 12 2A 03 |)" ";A$:....*.| 000009E0: 99 41 31 24 3B 3A 81 49 B2 31 A4 31 31 3A 99 41 |.A1$;:.I.1.11:.A| 000009F0: 24 3B 22 20 20 20 1D 1D 20 20 20 22 3B 41 24 3B |$;" .. ";A$;| 00000A00: 3A 82 00 33 12 34 03 99 22 13 11 1D 1D 20 20 20 |:..3.4..".... | 00000A10: 20 22 A6 32 38 29 22 20 20 20 20 22 3A 99 22 11 | ".28)" ":.".| 00000A20: 1D 1D 20 20 20 20 20 22 A6 32 38 29 22 9D 20 20 |.. ".28)". | 00000A30: 20 20 22 00 3F 12 3E 03 81 49 B2 31 A4 50 4C 00 | ".?.>..I.1.PL.| 00000A40: 7C 12 48 03 99 22 13 11 1D 1D 22 3B A6 33 32 AC ||.H.."....";.32.| 00000A50: 28 49 AB 31 29 29 3B 22 47 41 4D 45 22 3B 3A 8D |(I.1));"GAME";:.| 00000A60: 31 30 39 30 3A 99 22 9D 9D 9D 9D 20 20 20 20 22 |1090:.".... "| 00000A70: 3A 8B 58 24 B2 22 4A 22 A7 32 37 30 00 8D 12 52 |:.X$."J".270...R| 00000A80: 03 8B 58 24 B3 B1 22 4E 22 A7 38 34 30 00 98 12 |..X$.."N".840...| 00000A90: 5C 03 82 3A 99 41 31 24 00 9E 12 66 03 80 00 D1 |\..:.A1$...f....| 00000AA0: 12 70 03 4B 31 B2 B5 28 BB 28 31 29 AC 34 29 3A |.p.K1..(.(1).4):| 00000AB0: 4B B2 B5 28 BB 28 31 29 AC 31 33 AA 31 29 3A 8B |K..(.(1).13.1):.| 00000AC0: 4B 25 28 31 33 AC 4B 31 AA 4B 29 B2 30 A7 38 38 |K%(13.K1.K).0.88| 00000AD0: 30 00 F7 12 7A 03 4B 30 B2 4B 30 AA 31 3A 4B 25 |0...z.K0.K0.1:K%| 00000AE0: 28 31 33 AC 4B 31 AA 4B 29 B2 4B 25 28 31 33 AC |(13.K1.K).K%(13.| 00000AF0: 4B 31 AA 4B 29 AB 31 00 20 13 84 03 8B C5 28 4B |K1.K).1. .....(K| 00000B00: 24 28 4B 29 29 B2 30 A7 4B 30 24 B2 C8 28 4B 24 |$(K)).0.K0$..(K$| 00000B10: 28 4B 29 2C 31 29 AA 22 20 20 22 3A 89 39 32 30 |(K),1)." ":.920| 00000B20: 00 37 13 8E 03 4B 30 24 B2 C9 28 4B 24 28 4B 29 |.7...K0$..(K$(K)| 00000B30: 2C 32 29 AA 22 20 22 00 84 13 98 03 4B 24 B2 22 |,2)." ".....K$."| 00000B40: 12 22 AA 4B 30 24 AA 22 DF 9D 9D 9D 9D 11 22 AA |.".K0$."......".| 00000B50: 4C 24 28 4B 31 29 AA 4C 24 28 4B 31 29 AA 22 9D |L$(K1).L$(K1).".| 00000B60: 9D 9D 9D 11 20 20 20 20 9D 9D 9D 9D 11 20 22 AA |.... ..... ".| 00000B70: 4B 24 28 4B 29 AA 22 9D 9D 9D 9D 11 92 DF 12 20 |K$(K)."........ | 00000B80: 20 20 92 22 00 8A 13 A2 03 8E 00 A7 13 AC 03 99 | ."............| 00000B90: 41 30 24 3B A6 38 29 4B 24 3A 81 49 49 B2 31 A4 |A0$;.8)K$:.II.1.| 00000BA0: 32 35 30 3A 82 49 49 00 B6 13 B6 03 8B 4B B1 31 |250:.II......K.1| 00000BB0: 30 A7 4B B2 31 30 00 D0 13 C0 03 8B 4B B2 31 A7 |0.K.10......K.1.| 00000BC0: 4B B2 31 31 3A 41 28 49 29 B2 41 28 49 29 AA 31 |K.11:A(I).A(I).1| 00000BD0: 00 ED 13 CA 03 54 28 49 29 B2 54 28 49 29 AA 4B |.....T(I).T(I).K| 00000BE0: 3A 8B 54 28 49 29 B3 32 32 A7 39 39 30 00 12 14 |:.T(I).22.990...| 00000BF0: D4 03 8B 41 28 49 29 B1 30 A7 41 28 49 29 B2 41 |...A(I).0.A(I).A| 00000C00: 28 49 29 AB 31 3A 54 28 49 29 B2 54 28 49 29 AB |(I).1:T(I).T(I).| 00000C10: 31 30 00 18 14 DE 03 8E 00 39 14 E8 03 99 41 31 |10.......9....A1| 00000C20: 24 22 11 11 11 11 11 11 22 3B A3 32 31 AC 28 49 |$"......";.21.(I| 00000C30: AB 31 29 AA 36 29 3B 3A 8E 00 54 14 F2 03 99 41 |.1).6);:..T....A| 00000C40: 31 24 3B 22 91 91 22 3B 3A 8B 49 B2 32 A7 99 A6 |1$;"..";:.I.2...| 00000C50: 33 36 29 3B 00 60 14 FC 03 99 54 28 49 29 3A 8E |36);.`....T(I):.| 00000C60: 00 85 14 06 04 99 41 30 24 3B A3 32 AC 28 4E AB |......A0$;.2.(N.| 00000C70: 32 29 AA 31 35 29 22 12 11 A7 11 9D A7 11 9D A7 |2).15)".........| 00000C80: 11 CD 22 3A 8E 00 9D 14 10 04 99 22 13 11 22 3B |..":......."..";| 00000C90: A6 31 36 AC 28 49 AB 31 29 AA 39 29 3B 00 BF 14 |.16.(I.1).9);...| 00000CA0: 1A 04 47 24 B2 22 20 20 20 20 20 22 AA C4 28 47 |..G$." "..(G| 00000CB0: 28 49 29 29 3A 99 C9 28 47 24 2C 47 29 3A 8E 00 |(I)):..(G$,G):..| 00000CC0: CD 14 24 04 99 41 30 24 3B A3 38 29 3B 00 01 15 |..$..A0$;.8);...| 00000CD0: 2E 04 99 22 12 20 20 20 DF 9D 9D 9D 9D 11 20 43 |...". ...... C| 00000CE0: 41 20 9D 9D 9D 9D 11 20 53 49 20 9D 9D 9D 9D 11 |A ..... SI .....| 00000CF0: 20 4E 4F 20 9D 9D 9D 9D 11 92 DF 12 20 20 20 92 | NO ........ .| 00000D00: 22 00 07 15 38 04 8E 00 1B 15 42 04 A1 58 24 3A |"...8.....B..X$:| 00000D10: 8B 58 24 B2 22 22 A7 31 30 39 30 00 21 15 4C 04 |.X$."".1090.!.L.| 00000D20: 8E 00 59 15 56 04 99 22 93 1E 12 20 20 20 20 20 |..Y.V.."... | 00000D30: 20 20 20 20 20 20 20 20 20 92 A9 05 20 20 D5 C9 | ... ..| 00000D40: D5 C9 D5 C9 20 20 1E DF 12 20 20 20 20 20 20 20 |.... ... | 00000D50: 20 20 20 20 20 20 20 22 3B 00 91 15 60 04 99 22 | ";...`.."| 00000D60: 12 20 20 20 20 20 20 20 20 20 20 92 A9 05 20 20 |. ... | 00000D70: 20 12 A5 20 20 20 20 20 20 20 20 20 20 A7 92 20 | .. .. | 00000D80: 20 20 1E DF 12 20 20 20 20 20 20 20 20 20 20 22 | ... "| 00000D90: 3B 00 C7 15 6A 04 99 22 12 20 20 20 20 20 20 20 |;...j..". | 00000DA0: 20 20 20 05 20 20 20 20 A5 92 A1 A1 A1 A1 A1 12 | . ........| 00000DB0: A1 A1 A1 A1 A1 A7 20 20 20 20 1E 20 20 20 20 20 |...... . | 00000DC0: 20 20 20 20 20 22 3B 00 01 16 74 04 99 22 12 20 | ";...t..". | 00000DD0: 20 20 20 20 20 20 20 92 A9 05 20 12 20 A1 A1 A1 | ... . ...| 00000DE0: A5 20 20 20 20 D5 C9 20 20 20 20 A7 92 A1 A1 A1 |. .. .....| 00000DF0: 12 20 92 20 1E DF 12 20 20 20 20 20 20 20 20 22 |. . ... "| 00000E00: 3B 00 3D 16 7E 04 99 22 12 20 20 20 20 20 20 20 |;.=.~..". | 00000E10: 92 A9 05 20 20 12 20 A1 A1 A1 A5 A1 A1 A1 A1 92 |... . .........| 00000E20: B5 B6 A1 A1 A1 A1 12 A7 92 A1 A1 A1 12 20 92 20 |............. . | 00000E30: 20 1E DF 12 20 20 20 20 20 20 20 22 3B 00 75 16 | ... ";.u.| 00000E40: 88 04 99 22 12 20 20 20 20 20 20 92 A9 05 20 20 |...". ... | 00000E50: 20 12 20 20 20 20 A5 20 20 20 CE B7 B7 CD 20 20 | . . .... | 00000E60: 20 A7 20 20 20 20 92 20 20 20 1E DF 12 20 20 20 | . . ... | 00000E70: 20 20 20 22 3B 00 9E 16 92 04 99 22 12 20 20 20 | ";......". | 00000E80: 20 20 20 DF 92 20 20 20 20 22 A6 31 38 29 22 20 | .. ".18)" | 00000E90: 20 20 20 1E 12 A9 20 20 20 20 20 20 22 3B 00 C5 | ... ";..| 00000EA0: 16 9C 04 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 00000EB0: DF 22 A6 31 36 29 22 A9 20 20 20 20 20 20 20 20 |.".16)". | 00000EC0: 20 20 20 22 3B 00 F5 16 A6 04 99 22 92 A9 20 20 | ";......".. | 00000ED0: 20 20 20 20 12 05 A9 1E 20 20 20 92 A9 22 A6 31 | .... ..".1| 00000EE0: 36 29 22 DF 12 20 20 20 05 DF 1E 92 20 20 20 20 |6)".. .... | 00000EF0: 20 20 DF 22 3B 00 34 17 B0 04 99 22 05 20 12 A9 | .";.4....". ..| 00000F00: A5 20 92 A9 20 12 A9 92 A9 12 1E 20 20 92 A9 98 |. .. ...... ...| 00000F10: 20 20 20 20 20 20 20 20 D5 C9 20 20 20 20 20 20 | .. | 00000F20: 20 20 1E DF 12 20 20 05 92 DF 12 DF 92 20 DF 12 | ... ...... ..| 00000F30: 20 A7 DF 92 00 71 17 BA 04 99 22 12 A9 92 A9 20 | ....q....".... | 00000F40: CE 20 12 A9 CE 92 98 D5 C9 D5 C9 D5 C9 D5 C9 D5 |. ..............| 00000F50: C9 BB A1 A1 12 A1 A1 92 AC D5 C9 D5 C9 D5 C9 D5 |................| 00000F60: C9 D5 C9 05 12 CD DF 92 20 CD 20 DF 12 DF 92 22 |........ . ...."| 00000F70: 3B 00 AE 17 C4 04 99 22 A9 20 CE 20 12 A9 92 A9 |;......". . ....| 00000F80: 12 20 92 98 AB DB DB DB DB DB DB DB DB B3 12 43 |. .............C| 00000F90: 41 53 49 4E 4F 92 AB DB DB DB DB DB DB DB DB B3 |ASINO...........| 00000FA0: 05 12 20 92 DF 12 DF 92 20 CD 20 DF 22 3B 00 EB |.. ..... . .";..| 00000FB0: 17 CE 04 99 22 B7 B7 20 12 A9 92 A9 A5 12 20 92 |....".. ...... .| 00000FC0: 98 DD DD DD DD DD DD DD DD DD 12 B5 52 4F 59 41 |............ROYA| 00000FD0: 4C 45 B6 92 DD DD DD DD DD DD DD DD DD 05 12 20 |LE............. | 00000FE0: 92 A7 DF 12 DF 92 20 B7 B7 22 3B 00 24 18 D8 04 |...... ..";.$...| 00000FF0: 99 22 12 AF AF BA CE 92 20 CC A9 98 DD DD DD DD |."...... .......| 00001000: DD DD DD DD DD 12 B4 20 20 C0 C0 20 20 AA 92 DD |....... .. ...| 00001010: DD DD DD DD DD DD DD DD 05 DF BA 20 12 CD CC AF |........... ....| 00001020: AF 92 22 3B 00 5D 18 E2 04 99 22 12 20 A7 20 20 |..";.]....". . | 00001030: 92 CE CE 98 DB DB DB DB DB DB DB DB DB DB 12 20 |............... | 00001040: 4D 4F 4E 41 43 4F 20 92 DB DB DB DB DB DB DB DB |MONACO .........| 00001050: DB DB 05 CD CD 12 20 20 A5 20 92 22 3B 00 7A 18 |...... . .";.z.| 00001060: EC 04 99 22 12 20 A7 20 20 92 CE 22 A6 33 30 29 |...". . ..".30)| 00001070: 22 CD 12 20 20 A5 20 92 22 3B 00 95 18 F6 04 99 |".. . .";......| 00001080: 22 12 20 A7 20 92 A9 22 A6 33 32 29 22 DF 12 20 |". . ..".32)".. | 00001090: A5 20 92 22 3B 00 AE 18 00 05 99 22 12 20 A7 92 |. .";......". ..| 000010A0: A9 22 A6 33 34 29 22 DF 12 A5 20 92 22 3B 00 E6 |.".34)"... .";..| 000010B0: 18 0A 05 99 22 12 1E 20 92 A9 05 20 20 57 45 4C |....".. ... WEL| 000010C0: 43 4F 4D 45 20 54 4F 3A 20 43 41 53 49 4E 4F 20 |COME TO: CASINO | 000010D0: 52 4F 59 41 4C 45 C0 C0 4D 4F 4E 41 43 4F 20 20 |ROYALE..MONACO | 000010E0: 1E DF 12 20 22 3B 00 F9 18 14 05 99 22 92 A9 22 |... ";......".."| 000010F0: A6 33 38 29 22 DF 05 22 3B 00 30 19 1E 05 99 22 |.38)"..";.0...."| 00001100: 11 1D 1D 49 46 20 59 4F 55 20 57 41 4E 54 20 54 |...IF YOU WANT T| 00001110: 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 50 52 45 53 |O CONTINUE, PRES| 00001120: 53 20 12 53 50 41 43 45 92 22 3A 8D 31 30 39 30 |S .SPACE.":.1090| 00001130: 00 46 19 28 05 99 41 33 24 22 91 91 1D 1D 1D 1D |.F.(..A3$"......| 00001140: 22 41 24 3B 41 24 00 75 19 32 05 99 41 33 24 22 |"A$;A$.u.2..A3$"| 00001150: 20 54 48 49 53 20 49 53 20 54 48 45 20 43 4F 4D | THIS IS THE COM| 00001160: 50 55 54 45 52 20 43 41 53 49 4E 4F 20 56 45 52 |PUTER CASINO VER| 00001170: 53 49 4F 4E 22 00 A5 19 3C 05 99 22 4F 46 20 4F |SION"...<.."OF O| 00001180: 55 52 20 4F 57 4E 20 47 41 4D 42 4C 49 4E 47 20 |UR OWN GAMBLING | 00001190: 47 41 4D 45 3A 20 54 48 45 20 42 4C 41 43 4B 2D |GAME: THE BLACK-| 000011A0: 4A 41 43 4B 22 00 AF 19 46 05 8D 31 30 39 30 00 |JACK"...F..1090.| 000011B0: EC 19 50 05 99 41 33 24 22 20 44 4F 20 59 4F 55 |..P..A3$" DO YOU| 000011C0: 20 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 4F | WANT INSTRUCTIO| 000011D0: 4E 53 20 41 47 41 49 4E 20 3F 22 41 24 3B 41 24 |NS AGAIN ?"A$;A$| 000011E0: 3B 41 24 3B 41 24 3A 8D 31 30 39 30 00 06 1A 5A |;A$;A$:.1090...Z| 000011F0: 05 8B 58 24 B2 22 4E 22 A7 81 49 49 B2 31 A4 32 |..X$."N"..II.1.2| 00001200: 30 30 3A 82 3A 8E 00 50 1A 64 05 99 41 33 24 22 |00:.:..P.d..A3$"| 00001210: 54 48 45 20 4D 45 41 4E 49 4E 47 20 49 53 20 54 |THE MEANING IS T| 00001220: 4F 20 47 45 54 20 32 31 20 50 4F 49 4E 54 53 2C |O GET 21 POINTS,| 00001230: 20 49 46 20 59 4F 55 20 47 45 54 20 41 20 42 4C | IF YOU GET A BL| 00001240: 41 43 4B 2D 4A 41 43 4B 2C 20 49 4C 1D 20 22 3B |ACK-JACK, IL. ";| 00001250: 00 8F 1A 6E 05 99 22 50 41 59 20 59 4F 55 20 33 |...n.."PAY YOU 3| 00001260: 3A 32 2E 20 54 48 45 20 47 41 4D 45 20 49 53 20 |:2. THE GAME IS | 00001270: 50 4C 41 59 45 44 20 57 49 54 48 20 34 20 47 41 |PLAYED WITH 4 GA| 00001280: 4D 45 53 20 4F 46 20 43 41 52 54 45 53 2E 22 00 |MES OF CARTES.".| 00001290: C0 1A 82 05 99 41 33 24 22 20 20 20 20 20 20 20 |.....A3$" | 000012A0: 41 42 4F 55 54 20 54 48 49 53 20 50 52 4F 47 52 |ABOUT THIS PROGR| 000012B0: 41 4D 3A 20 20 20 20 20 20 20 20 20 20 20 20 22 |AM: "| 000012C0: 00 0B 1B 8C 05 99 22 59 4F 55 20 42 45 54 20 41 |......"YOU BET A| 000012D0: 46 54 45 52 20 59 4F 55 20 47 45 54 20 59 4F 55 |FTER YOU GET YOU| 000012E0: 27 52 45 20 46 49 52 53 54 20 43 41 52 44 2E 20 |'RE FIRST CARD. | 000012F0: 50 52 45 53 53 20 41 46 54 45 52 20 54 59 50 49 |PRESS AFTER TYPI| 00001300: 4E 47 20 59 4F 55 27 52 45 22 3B 00 52 1B 96 05 |NG YOU'RE";.R...| 00001310: 99 22 42 45 54 20 4F 4E 3A 20 12 52 45 54 55 52 |."BET ON: .RETUR| 00001320: 4E 92 2C 20 49 46 20 59 4F 55 20 57 41 4E 4E 41 |N., IF YOU WANNA| 00001330: 20 4D 41 4B 45 20 41 20 43 48 41 4E 47 45 2C 20 | MAKE A CHANGE, | 00001340: 50 52 45 53 53 20 44 45 4C 92 22 3B 3A 8D 31 30 |PRESS DEL.";:.10| 00001350: 39 30 00 95 1B A0 05 99 41 33 24 22 49 46 20 59 |90......A3$"IF Y| 00001360: 4F 55 20 47 4F 54 3A 20 39 2C 31 30 2C 31 31 20 |OU GOT: 9,10,11 | 00001370: 41 46 54 45 52 20 32 20 43 41 52 44 53 20 20 20 |AFTER 2 CARDS | 00001380: 20 20 20 20 20 49 20 41 53 4B 20 2D 20 44 4F 20 | I ASK - DO | 00001390: 59 4F 55 22 3B 00 E1 1B AA 05 99 22 57 41 4E 54 |YOU";......"WANT| 000013A0: 20 44 4F 55 42 4C 45 20 3F 20 2D 2E 20 49 46 20 | DOUBLE ? -. IF | 000013B0: 59 4F 55 20 44 4F 20 54 48 41 54 20 54 48 45 4E |YOU DO THAT THEN| 000013C0: 20 59 4F 55 27 52 45 20 47 4F 4E 4E 41 20 47 45 | YOU'RE GONNA GE| 000013D0: 54 20 4F 4E 4C 59 20 31 20 43 41 52 44 20 20 22 |T ONLY 1 CARD "| 000013E0: 3B 00 0F 1C B4 05 99 22 41 4E 44 20 44 4F 55 42 |;......"AND DOUB| 000013F0: 4C 45 20 42 45 54 53 20 41 52 45 20 4F 4E 2E 20 |LE BETS ARE ON. | 00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.| 00001410: 45 1C B9 05 99 22 20 20 20 20 20 20 20 20 20 20 |E...." | 00001420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A | ";:| 00001440: 8D 31 30 39 30 00 81 1C BE 05 99 41 33 24 22 49 |.1090......A3$"I| 00001450: 46 20 49 20 41 53 4B 20 12 53 2F 54 92 20 41 57 |F I ASK .S/T. AW| 00001460: 4E 53 45 52 20 54 48 45 4E 20 57 49 54 48 20 20 |NSER THEN WITH | 00001470: 20 20 20 20 20 12 54 92 41 4B 45 20 4F 52 20 22 | .T.AKE OR "| 00001480: 3B 00 A5 1C C8 05 99 22 12 53 92 54 4F 2E 20 20 |;......".S.TO. | 00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014A0: 20 20 20 22 3B 00 E5 1C D2 05 99 22 49 46 20 59 | ";......"IF Y| 000014B0: 4F 55 20 41 52 45 20 41 42 4F 56 45 20 32 31 2C |OU ARE ABOVE 21,| 000014C0: 20 54 48 45 4E 20 59 4F 55 20 28 12 44 49 45 92 | THEN YOU (.DIE.| 000014D0: 29 44 45 41 4C 45 52 20 54 41 4B 45 53 20 54 4F |)DEALER TAKES TO| 000014E0: 20 31 36 22 3B 00 10 1D DC 05 99 22 20 41 4E 44 | 16";......" AND| 000014F0: 20 53 54 4F 50 53 20 41 42 4F 56 45 20 31 36 2E | STOPS ABOVE 16.| 00001500: 20 20 22 3B 41 24 3B 41 24 3B 3A 8D 31 30 39 30 | ";A$;A$;:.1090| 00001510: 00 53 1D E6 05 99 41 33 24 22 41 20 4E 45 57 20 |.S....A3$"A NEW | 00001520: 47 41 4D 45 20 49 53 20 50 4C 41 59 45 44 20 57 |GAME IS PLAYED W| 00001530: 49 54 48 20 49 46 20 59 4F 55 20 41 57 4E 53 45 |ITH IF YOU AWNSE| 00001540: 52 20 57 49 54 48 20 12 4A 92 20 41 46 54 45 52 |R WITH .J. AFTER| 00001550: 20 22 3B 00 91 1D F0 05 99 22 49 20 41 53 4B 20 | ";......"I ASK | 00001560: 12 53 50 45 4C 92 22 41 24 22 20 44 4F 20 59 4F |.SPEL."A$" DO YO| 00001570: 55 20 55 4E 44 45 52 53 54 41 4E 44 20 3F 22 41 |U UNDERSTAND ?"A| 00001580: 24 3B 41 24 3B 41 24 3B 41 24 22 9D 9D 9D 91 22 |$;A$;A$;A$"...."| 00001590: 3B 00 A8 1D FA 05 8D 31 30 39 30 3A 8B 58 24 B2 |;......1090:.X$.| 000015A0: 22 4E 22 A7 31 33 38 30 00 AE 1D 04 06 8E 00 00 |"N".1380........| 000015B0: 00 00 |.. |
....F.. "." : . 7,7,0.A.P.. "...........
.............IT'S A DEAL".S.Z.. 5 : . 0,
0,1.O.D..K$(13),K%(52):I..(.TI)...N.A0$.
".......":A1$.A0$.".......":A3$.A1$."...
....".K.X.A$." ":G(O).100
000.U....1110......"PLAYERS (1/2) ?
.":.1090.....PL.E(X$):.PL..1.PL..2
.140.2. ..53280,2:.53281,2.\...."..."A$"
. ."A$" . . .";......". 000
0 .. . .100000 .. . .0000 .. . ";.S
....". "A$".. .. "A$". .000 .. P
# 1 .. DEALER .. P# 2 ";......". .000
.."A$"... .. ";.
J....".M.M.M.M.M.M.M....................
......N.N.N.N.N.N.N":.1060.|.H..A1$;.19)
"......................................R
..I.0.3:.L$(I):.:."S ","A ","X ","Z "...
...I.1.13:.K$(I):......."ACE"," 2 "," 3
"," 4 "," 5 "," 6 "," 7 "," 8 "," 9 ","
10"......"JAC","QUE","KIN".5....I.1.52:K
%(I).4:.:.II.1.2000:..J...K0.0:.A0$;.15)
A$.W....K0.201.14.PL..A0$;.15)"NIEUW STO
K":.250......I.1.PL:T(I).0:A(I).0:.880:.
940:.1060..."..A1$;.21.(I.1))K$:....,.I.
0:T(I).0:A(I).0:.880:.940:.1060...6..A0$
;.14)K$...@..I.1.PL.6.J..1000:."BET 0
......";:.B$:B..(E(B$)):.B.10.B.500.._
.T.B(I).B:."....";.31.(I.1).6.C(D(B)))B.
O.^..1000:.A$:....H..I.1.PL:.880:.940:.1
060...R..A1$;.21.(I.1).5)K$:..X.|.I.0:N.
2:.880:.950:.A0$;.16);:.1070:.1030:D$.K$
......I.1.PL:N.2......T(I).21..1000:."BL
ACK-JACK":A(I).1.5:.590.9....1010:.N.2.T
(I).8.T(I).12.510.J....T(I).21.500......
"..";.33.(I.1).2)"S/T";:.1090:."... ":
.X$."S".570......X$.."T".430...B.T.N:N.N
.1:.880:.940:.1060.R.L..A1$;:.N.4.."....
..";:T.T.4...V...21.(I.1).5.T)K$;:.N.7.T
(I).22.A(I).1.5:.580......T(I).21.570.&.
...T(I).21.410.V....1010:."..";.32.(I.1)
.2)"DOOD":A(I)..1:.590......1000:."....D
OUBLE ?";:.1090:.". ":.X$."J".540......X
$."N"..1000:."...."A$:.430......510.....
B(I).2.B(I):."....";.31.(I.1).6.C(D(B(I)
)));:.B(I).1000..".";...&..B(I):.880:.94
0:.1060.(.0..A1$;.21.(I.1).10)K$.3.:.A(I
).1.=.D..1010.D.N..I.O.X.I.0:N.2:.A0$;.1
6)D$:.1030:.II.1.1000:....B..A0$;.30)T(I
):.II.1.2000:.:.T(I).21.720...L..T(I).21
.N.2.690...V..(A(1)..1.A(1).1.5).(A(2)..
1.A(2).1.5).720......T(I).16.660.%...N.N
.1:.880:.940:.1060:.A0$;.2.N.12)K$:.1030
:.610.M....I.1.PL:.T(I).T(0).A(I)..1.5.A
(I).0.N....T(I).T(0).A(I)..1.5.A(I)..1.Y
....:.720......I.1.PL:.A(I).1.5.A(I).0:.
710.....A(I)..1...F...K.P..I.1.PL:B(I)..
(B(I).A(I))...Z.G(I).G(I).B(I):G(0).G(0)
.B(I):.A3$;".";.21.(I.1).15);.$....B(I).
0.."YOU....WIN":.770.E....B(I).0.."YOU..
..LOSE.":.770.[...."EVEN.....GAME.".....
.:.A1$;".. ";.37)" ":.II.1.2000:.....
.G.5:.I.1.PL:.1040:......G.6:I.0:."..";.
17);:.1050... ..A0$;:.I.1.5:..14)" ";A
$:....*..A1$;:.I.1.11:.A$;" .. ";A$;
:..3.4..".... ".28)" ":."... "
.28)". ".?.>..I.1.PL.|.H.."....";.32.
(I.1));"GAME";:.1090:.".... ":.X$."J"
.270...R..X$.."N".840...\..:.A1$...F...Q
.P.K1..(.(1).4):K..(.(1).13.1):.K%(13.K1
.K).0.880...Z.K0.K0.1:K%(13.K1.K).K%(13.
K1.K).1. ....E(K$(K)).0.K0$.H(K$(K),1)."
":.920.7...K0$.I(K$(K),2)." ".....K$."
.".K0$."......".L$(K1).L$(K1).".....
..... ".K$(K)."........ ."............
A0$;.8)K$:.II.1.250:.II......K.10.K.10.P
....K.1.K.11:A(I).A(I).1...J.T(I).T(I).K
:.T(I).22.990...T..A(I).0.A(I).A(I).1:T(
I).T(I).10.......9....A1$"......";.21.(I
.1).6);:..T....A1$;"..";:.I.2...36);.`..
..T(I):.......A0$;.2.(N.2).15)".........
.M":......."..";.16.(I.1).9);.....G$."
".D(G(I)):.I(G$,G):..M.$..A0$;.8);...
...". ...... CA ..... SI ..... NO ....
.... ."...8.....B..X$:.X$."".1090.!.L.
..Y.V.."... ... UIUIUI ..
. ";...`..". ...
.. .. ... ";.G.J.."
. . .............. .
";...T..". ... . .... UI
...... . ... ";.=.~..".
... . ...................... . ...
";.U....". ... . . N..M
. . ... ";......". ..
".18)" ... ";.E...."
.".16)". ";......".. ....
..".16)".. .... .";.4....". ..
. .. ...... ... UI ... .
..... .. ....Q....".... N ..N..UIUIUIUIU
I........UIUIUIUIUI..M.. M ....";...D.."
. N ..... .............CASINO...........
.. ..... M .";...N..".. ...... .........
....ROYALE............. ...... ..";.$.X.
."....N. L............. .. ...........
... .ML...";.]....". . .NN............
MONACO ............MM. . .";.Z....". .
.N".30)"M. . .";......". . ..".32)"..
. .";......". ...".34)"... .";......"..
... WELCOME TO: CASINO ROYALE..MONACO
... ";......"..".38)"..";.0...."...IF YO
U WANT TO CONTINUE, PRESS .SPACE.":.1090
.F.(..A3$"......"A$;A$.U.2..A3$" THIS IS
THE COMPUTER CASINO VERSION"...<.."OF O
UR OWN GAMBLING GAME: THE BLACK-JACK"...
F..1090...P..A3$" DO YOU WANT INSTRUCTIO
NS AGAIN ?"A$;A$;A$;A$:.1090...Z..X$."N"
..II.1.200:.:..P.D..A3$"THE MEANING IS T
O GET 21 POINTS, IF YOU GET A BLACK-JACK
, IL. ";...N.."PAY YOU 3:2. THE GAME IS
PLAYED WITH 4 GAMES OF CARTES."......A3$
" ABOUT THIS PROGRAM: "
......"YOU BET AFTER YOU GET YOU'RE FIRS
T CARD. PRESS AFTER TYPING YOU'RE";.R...
."BET ON: .RETURN., IF YOU WANNA MAKE A
CHANGE, PRESS DEL.";:.1090... ..A3$"IF Y
OU GOT: 9,10,11 AFTER 2 CARDS I A
SK - DO YOU";......"WANT DOUBLE ? -. IF
YOU DO THAT THEN YOU'RE GONNA GET ONLY 1
CARD ";......"AND DOUBLE BETS ARE ON.
";.E...."
";:.1090......A3$"I
F I ASK .S/T. AWNSER THEN WITH .T.
AKE OR ";...H..".S.TO.
";...R.."IF YOU ARE ABOVE 21, THEN YO
U (.DIE.)DEALER TAKES TO 16";......" AND
STOPS ABOVE 16. ";A$;A$;:.1090.S....A3
$"A NEW GAME IS PLAYED WITH IF YOU AWNSE
R WITH .J. AFTER ";......"I ASK .SPEL."A
$" DO YOU UNDERSTAND ?"A$;A$;A$;A$"...."
;......1090:.X$."N".1380..........
> CLICK IMAGE PREVIEW FOR FULL MODAL