TIME SNAP
FILE INFORMATION
FILENAME(S): TIME SNAP
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 2 disk(s)
FILE HASH
b006190fc4c10e6ff98d373399af0f047f658e34d1e2a66d5f61a802fd4cc076
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | TIME SNAP | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 3 | DOWNLOAD FILE |
| S PIELE | TIME SNAP | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 50 00 99 22 93 11 11 11 1D 1D 1D 1D |..(.P.."........| 00000010: 1D 1D 1D 1D 1D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 00000020: 2A 2A 2A 2A 2A 2A 2A 22 00 4C 08 5A 00 99 22 11 |*******".L.Z..".| 00000030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 2A 2A 2A 2A |.........*******| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 71 08 64 |***********".q.d| 00000050: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 20 12 52 |..".........* .R| 00000060: 45 41 4C 20 54 49 4D 45 20 53 4E 41 50 92 20 2A |EAL TIME SNAP. *| 00000070: 22 00 94 08 66 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"...f.."........| 00000080: 1D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000090: 2A 2A 2A 22 00 B8 08 68 00 99 22 11 1D 1D 1D 1D |***"...h..".....| 000000A0: 1D 1D 1D 1D 1D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 22 00 C3 08 69 00 86 20 43 |*******"...i.. C| 000000C0: 28 32 29 00 CF 08 6B 00 99 3A 99 3A 99 3A 99 00 |(2)...k..:.:.:..| 000000D0: F1 08 6E 00 99 22 20 20 20 44 4F 20 59 4F 55 20 |..n.." DO YOU | 000000E0: 4B 4E 4F 57 20 54 48 45 20 52 55 4C 45 53 3F 22 |KNOW THE RULES?"| 000000F0: 3B 00 08 09 78 00 A1 20 41 24 3A 8B 20 41 24 B2 |;...x.. A$:. A$.| 00000100: 22 22 20 89 20 31 32 30 00 1B 09 82 00 8B 20 41 |"" . 120...... A| 00000110: 24 B2 22 59 22 20 A7 20 31 39 38 00 2E 09 85 00 |$."Y" . 198.....| 00000120: 8B 20 41 24 B2 22 4E 22 20 A7 20 31 33 37 00 38 |. A$."N" . 137.8| 00000130: 09 87 00 89 20 31 32 30 00 41 09 89 00 99 22 93 |.... 120.A....".| 00000140: 22 00 47 09 8A 00 8F 00 74 09 8C 00 99 22 54 48 |".G.....t...."TH| 00000150: 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 49 53 |E OBJECT OF THIS| 00000160: 20 47 41 4D 45 20 49 53 20 54 4F 20 42 45 41 54 | GAME IS TO BEAT| 00000170: 20 54 48 45 00 A0 09 96 00 99 22 11 43 4F 4D 50 | THE......".COMP| 00000180: 55 54 45 52 20 41 54 20 53 4E 41 50 2E 20 54 48 |UTER AT SNAP. TH| 00000190: 45 20 43 4F 4D 50 55 54 45 52 20 44 52 41 57 53 |E COMPUTER DRAWS| 000001A0: 00 CB 09 A0 00 99 22 11 54 57 4F 20 43 41 52 44 |......".TWO CARD| 000001B0: 53 20 4E 45 58 54 20 54 4F 20 45 41 43 48 20 4F |S NEXT TO EACH O| 000001C0: 54 48 45 52 20 4F 4E 20 54 48 45 00 F9 09 AA 00 |THER ON THE.....| 000001D0: 99 22 11 53 43 52 45 45 4E 20 2D 20 49 46 20 54 |.".SCREEN - IF T| 000001E0: 48 45 59 20 4D 41 54 43 48 A0 27 53 4E 41 50 21 |HEY MATCH.'SNAP!| 000001F0: 27 2E 20 49 46 20 59 4F 55 00 27 0A B4 00 99 22 |'. IF YOU.'...."| 00000200: 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 46 |.PRESS ANY KEY F| 00000210: 41 53 54 20 45 4E 4F 55 47 48 2C 20 59 4F 55 20 |AST ENOUGH, YOU | 00000220: 57 49 4E 20 54 48 45 00 45 0A BE 00 99 22 11 53 |WIN THE.E....".S| 00000230: 4E 41 50 2C 20 4F 54 48 45 52 57 49 53 45 20 49 |NAP, OTHERWISE I| 00000240: 20 57 49 4E 2E 00 71 0A C0 00 99 22 11 11 1D 1D | WIN..q...."....| 00000250: 1D 54 59 50 49 4E 47 20 27 21 27 20 57 48 45 4E |.TYPING '!' WHEN| 00000260: 20 54 48 45 52 45 20 49 53 20 4E 4F 20 53 4E 41 | THERE IS NO SNA| 00000270: 50 00 99 0A C2 00 99 22 11 1D 1D 1D 1D 1D 1D 1D |P......"........| 00000280: 1D 1D 1D 54 45 52 4D 49 4E 41 54 45 53 20 54 48 |...TERMINATES TH| 00000290: 45 20 47 41 4D 45 22 3A 99 00 C5 0A C3 00 99 22 |E GAME":......."| 000002A0: 11 11 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS | 000002B0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI| 000002C0: 4E 55 45 92 22 00 DA 0A C4 00 A1 41 24 3A 8B 41 |NUE."......A$:.A| 000002D0: 24 B2 22 22 20 89 20 31 39 36 00 ED 0A C6 00 97 |$."" . 196......| 000002E0: 35 39 34 36 38 2C 31 32 3A 99 22 93 22 00 1A 0B |59468,12:."."...| 000002F0: E6 00 99 22 11 11 4C 45 56 45 4C 20 4F 46 20 44 |..."..LEVEL OF D| 00000300: 49 46 46 49 43 55 4C 54 59 A0 28 31 2D 45 41 53 |IFFICULTY.(1-EAS| 00000310: 59 2C 39 2D 48 41 52 44 29 22 00 39 0B F0 00 A1 |Y,9-HARD)".9....| 00000320: 20 44 24 3A 44 25 B2 C5 28 44 24 29 3A 8B 20 44 | D$:D%..(D$):. D| 00000330: 25 B2 30 20 A7 20 32 34 30 00 56 0B F2 00 8F 20 |%.0 . 240.V.... | 00000340: 4E 4F 57 20 49 54 20 42 45 47 49 4E 53 20 2A 2A |NOW IT BEGINS **| 00000350: 2A 2A 2A 2A 2A 2A 00 70 0B F5 00 59 B2 30 3A 4D |******.p...Y.0:M| 00000360: B2 30 3A 43 41 52 44 53 24 B2 22 C1 D3 DA D8 22 |.0:CARDS$."...."| 00000370: 00 79 0B F7 00 99 22 93 22 00 8F 0B FA 00 43 28 |.y....".".....C(| 00000380: 31 29 B2 30 3A 43 28 32 29 B2 30 3A 50 B2 31 00 |1).0:C(2).0:P.1.| 00000390: A5 0B 2C 01 43 28 50 29 B2 B5 28 31 33 AC BB 28 |..,.C(P)..(13..(| 000003A0: 31 29 AA 31 29 00 C3 0B 2D 01 8B 20 43 28 50 29 |1).1)...-.. C(P)| 000003B0: B2 31 20 20 A7 20 56 41 24 B2 22 41 22 3A 89 20 |.1 . VA$."A":. | 000003C0: 33 30 37 00 E1 0B 2E 01 8B 20 43 28 50 29 B2 31 |307...... C(P).1| 000003D0: 30 20 A7 20 56 41 24 B2 22 54 22 3A 89 20 33 30 |0 . VA$."T":. 30| 000003E0: 37 00 FF 0B 2F 01 8B 20 43 28 50 29 B2 31 31 20 |7.../.. C(P).11 | 000003F0: A7 20 56 41 24 B2 22 4A 22 3A 89 20 33 30 37 00 |. VA$."J":. 307.| 00000400: 1D 0C 30 01 8B 20 43 28 50 29 B2 31 32 20 A7 20 |..0.. C(P).12 . | 00000410: 56 41 24 B2 22 51 22 3A 89 20 33 30 37 00 3B 0C |VA$."Q":. 307.;.| 00000420: 31 01 8B 20 43 28 50 29 B2 31 33 20 A7 20 56 41 |1.. C(P).13 . VA| 00000430: 24 B2 22 4B 22 3A 89 20 33 30 37 00 4B 0C 32 01 |$."K":. 307.K.2.| 00000440: 56 41 24 B2 C4 28 43 28 50 29 29 00 7E 0C 33 01 |VA$..(C(P)).~.3.| 00000450: 8B 20 50 B2 31 20 A7 20 53 55 B2 B5 28 34 AC BB |. P.1 . SU..(4..| 00000460: 28 31 29 AA 31 29 3A 53 55 24 B2 20 20 20 20 20 |(1).1):SU$. | 00000470: CA 28 43 41 52 44 53 24 2C 53 55 2C 31 29 00 94 |.(CARDS$,SU,1)..| 00000480: 0C 34 01 53 52 B2 31 30 3A 53 43 B2 AB 31 35 AA |.4.SR.10:SC..15.| 00000490: 32 30 AC 50 00 A0 0C 35 01 8D 20 31 30 30 30 30 |20.P...5.. 10000| 000004A0: 00 AE 0C 40 01 8B 50 B2 32 A7 20 33 33 30 00 B7 |...@..P.2. 330..| 000004B0: 0C 45 01 89 33 36 30 00 E3 0C 4A 01 81 4C B2 31 |.E..360...J..L.1| 000004C0: A4 31 33 30 AA 33 30 30 AD 44 25 3A 82 20 4C 3A |.130.300.D%:. L:| 000004D0: 50 B2 30 3A 8B 43 28 31 29 B2 43 28 32 29 A7 8D |P.0:.C(1).C(2)..| 000004E0: 34 32 30 00 01 0D 68 01 A1 20 4C 24 3A 8B 20 4C |420...h.. L$:. L| 000004F0: 24 B2 22 22 A7 20 50 B2 50 AA 31 3A 89 20 33 30 |$."". P.P.1:. 30| 00000500: 30 00 14 0D 6D 01 8B 20 4C 24 B2 22 21 22 20 A7 |0...m.. L$."!" .| 00000510: 20 35 30 30 00 42 0D 72 01 99 22 13 11 11 1D 1D | 500.B.r..".....| 00000520: 1D 1D 43 48 45 41 54 21 20 54 57 4F 20 50 4F 49 |..CHEAT! TWO POI| 00000530: 4E 54 53 20 54 4F 20 4D 45 22 3A 99 3A 4D B2 4D |NTS TO ME":.:M.M| 00000540: AA 32 00 52 0D 7C 01 8D 20 34 37 30 3A 89 20 32 |.2.R.|.. 470:. 2| 00000550: 35 30 00 67 0D A4 01 A1 4C 24 3A 8B 4C 24 B2 22 |50.g....L$:.L$."| 00000560: 22 20 89 20 34 35 30 00 A1 0D AE 01 99 22 13 11 |" . 450......"..| 00000570: 12 53 4E 41 50 21 92 20 57 45 4C 4C 20 44 4F 4E |.SNAP!. WELL DON| 00000580: 45 20 20 31 20 50 4F 49 4E 54 20 54 4F 20 59 4F |E 1 POINT TO YO| 00000590: 55 2E 22 3A 99 3A 59 B2 59 AA 31 3A 89 20 34 37 |U.":.:Y.Y.1:. 47| 000005A0: 30 00 D8 0D C2 01 99 22 13 11 12 53 4E 41 50 21 |0......"...SNAP!| 000005B0: 92 20 42 41 44 20 4C 55 43 4B 20 49 A0 57 41 53 |. BAD LUCK I.WAS| 000005C0: A0 46 49 52 53 54 2C 20 31 20 54 4F A0 4D 45 22 |.FIRST, 1 TO.ME"| 000005D0: 3A 99 3A 4D B2 4D AA 31 00 0A 0E D6 01 99 3A 99 |:.:M.M.1......:.| 000005E0: 22 59 4F 55 52 20 53 43 4F 52 45 3A 22 59 22 20 |"YOUR SCORE:"Y" | 000005F0: 4D 59 20 53 43 4F 52 45 3A 22 4D 3A 81 20 5A B2 |MY SCORE:"M:. Z.| 00000600: 30 20 A4 20 33 30 30 30 3A 82 00 20 0E E0 01 8B |0 . 3000:.. ....| 00000610: 20 59 B1 39 20 B0 20 4D B1 39 20 A7 20 35 30 30 | Y.9 . M.9 . 500| 00000620: 00 2C 0E EA 01 99 22 93 22 3B 3A 8E 00 3C 0E F4 |.,....".";:..<..| 00000630: 01 8F 20 47 41 4D 45 20 45 4E 44 53 00 56 0E F9 |.. GAME ENDS.V..| 00000640: 01 99 22 93 11 11 11 11 11 11 11 11 1D 1D 1D 1D |..".............| 00000650: 1D 1D 1D 1D 22 3B 00 83 0E FE 01 99 22 11 12 59 |....";......"..Y| 00000660: 4F 55 20 53 43 4F 52 45 44 20 22 3B C4 28 59 29 |OU SCORED ";.(Y)| 00000670: 3B 22 20 54 4F 20 4D 59 20 22 3B C4 28 4D 29 3B |;" TO MY ";.(M);| 00000680: 22 2E 22 00 AE 0E 08 02 99 22 11 1D 1D 1D 1D 1D |"."......"......| 00000690: 1D 1D 1D 12 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |....WOULD YOU LI| 000006A0: 4B 45 20 41 20 52 45 50 4C 41 59 3F 22 3B 00 C4 |KE A REPLAY?";..| 000006B0: 0E 12 02 A1 41 24 3A 8B 20 41 24 B2 22 22 20 89 |....A$:. A$."" .| 000006C0: 20 35 33 30 00 DE 0E 1C 02 8B 41 24 B2 22 59 22 | 530......A$."Y"| 000006D0: 20 A7 20 99 22 93 22 3B 3A 89 20 32 33 30 00 09 | . .".";:. 230..| 000006E0: 0F 26 02 99 22 93 11 11 11 11 11 11 11 11 1D 1D |.&.."...........| 000006F0: 1D 1D 1D 1D 1D 54 48 41 4E 4B 53 20 46 4F 52 20 |.....THANKS FOR | 00000700: 54 48 45 20 47 41 4D 45 22 00 23 0F 30 02 81 20 |THE GAME".#.0.. | 00000710: 4C B2 31 20 A4 20 32 30 30 30 3A 82 3A 99 22 93 |L.1 . 2000:.:.".| 00000720: 22 3A 80 00 40 0F 10 27 8F 20 43 41 52 44 53 20 |":..@..'. CARDS | 00000730: 47 52 41 50 48 49 43 53 20 52 4F 55 54 49 4E 45 |GRAPHICS ROUTINE| 00000740: 00 89 0F 1A 27 8F 20 53 52 28 52 4F 57 29 2C 53 |....'. SR(ROW),S| 00000750: 43 28 43 4F 4C 29 3D 54 4F 50 20 4C 48 20 43 4F |C(COL)=TOP LH CO| 00000760: 52 4E 45 52 20 20 20 20 20 20 20 4F 46 20 43 41 |RNER OF CA| 00000770: 52 44 2C 20 20 53 24 20 26 20 53 53 24 20 47 45 |RD, S$ & SS$ GE| 00000780: 4E 20 50 55 52 50 4F 53 45 00 D1 0F 24 27 8F 20 |N PURPOSE...$'. | 00000790: 41 4C 53 4F 20 4E 45 45 44 20 53 55 49 54 45 20 |ALSO NEED SUITE | 000007A0: 28 53 55 24 29 20 20 20 20 20 20 20 20 20 20 20 |(SU$) | 000007B0: 20 20 20 20 41 4E 44 20 56 41 4C 55 45 20 28 56 | AND VALUE (V| 000007C0: 41 24 29 20 41 32 33 34 35 36 37 38 39 54 4A 51 |A$) A23456789TJQ| 000007D0: 4B 00 10 10 29 27 8B 53 52 B1 31 35 20 B0 20 53 |K...)'.SR.15 . S| 000007E0: 43 B1 33 31 20 B0 20 53 43 B3 31 20 A7 20 99 22 |C.31 . SC.1 . ."| 000007F0: 50 4C 45 41 53 45 20 43 48 45 43 4B 20 50 4F 53 |PLEASE CHECK POS| 00000800: 49 54 49 4F 4E 20 4F 46 20 43 41 52 44 22 3A 8E |ITION OF CARD":.| 00000810: 00 35 10 2B 27 8B 56 41 24 B2 22 31 22 20 A7 99 |.5.+'.VA$."1" ..| 00000820: 22 44 4F 20 59 4F 55 20 4D 45 41 4E 20 27 41 27 |"DO YOU MEAN 'A'| 00000830: 20 3F 22 3A 8E 00 62 10 2E 27 53 24 B2 22 12 20 | ?":..b..'S$.". | 00000840: 20 20 20 20 20 20 22 3A 53 53 24 B2 22 11 11 11 | ":SS$."...| 00000850: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000860: 11 22 00 6C 10 38 27 99 22 13 22 3B 00 87 10 47 |.".l.8'.".";...G| 00000870: 27 99 22 13 22 3B A3 53 43 AB 31 29 3B C8 28 53 |'.".";.SC.1);.(S| 00000880: 53 24 2C 53 52 29 3B 00 97 10 4C 27 56 41 B2 C5 |S$,SR);...L'VA..| 00000890: 28 56 41 24 29 AA 31 00 DE 10 56 27 91 20 56 41 |(VA$).1...V'. VA| 000008A0: 20 89 20 31 31 30 30 30 2C 31 31 31 30 30 2C 31 | . 11000,11100,1| 000008B0: 31 32 30 30 2C 31 31 33 30 30 2C 31 31 34 30 30 |1200,11300,11400| 000008C0: 2C 31 31 35 30 30 2C 31 31 36 30 30 2C 31 31 37 |,11500,11600,117| 000008D0: 30 30 2C 31 31 38 30 30 2C 31 31 39 30 30 00 F4 |00,11800,11900..| 000008E0: 10 F8 2A 8B 20 56 41 24 B2 22 4A 22 20 A7 20 31 |..*. VA$."J" . 1| 000008F0: 32 30 30 30 00 0A 11 02 2B 8B 20 56 41 24 B2 22 |2000....+. VA$."| 00000900: 51 22 20 A7 20 31 32 31 30 30 00 20 11 0C 2B 8B |Q" . 12100. ..+.| 00000910: 20 56 41 24 B2 22 4B 22 20 A7 20 31 32 32 30 30 | VA$."K" . 12200| 00000920: 00 36 11 16 2B 8B 20 56 41 24 B2 22 41 22 20 A7 |.6..+. VA$."A" .| 00000930: 20 31 32 33 30 30 00 4C 11 20 2B 8B 20 56 41 24 | 12300.L. +. VA$| 00000940: B2 22 54 22 20 A7 20 31 32 34 30 30 00 52 11 34 |."T" . 12400.R.4| 00000950: 2B 8E 00 5A 11 C0 2B 8F 20 32 00 6A 11 C1 2B 99 |+..Z..+. 2.j..+.| 00000960: 22 12 32 20 20 20 20 20 20 22 00 87 11 C2 2B 99 |".2 "....+.| 00000970: A3 53 43 AB 31 29 3B 22 12 22 3B 53 55 24 3B 22 |.SC.1);".";SU$;"| 00000980: 20 20 20 20 20 20 22 00 A4 11 C3 2B 99 A3 53 43 | "....+..SC| 00000990: AB 31 29 3B 22 12 20 20 20 22 3B 53 55 24 3B 22 |.1);". ";SU$;"| 000009A0: 20 20 20 22 00 B3 11 C4 2B 99 A3 53 43 AB 31 29 | "....+..SC.1)| 000009B0: 3B 53 24 00 C2 11 C5 2B 99 A3 53 43 AB 31 29 3B |;S$....+..SC.1);| 000009C0: 53 24 00 D1 11 C6 2B 99 A3 53 43 AB 31 29 3B 53 |S$....+..SC.1);S| 000009D0: 24 00 EE 11 C7 2B 99 A3 53 43 AB 31 29 3B 22 12 |$....+..SC.1);".| 000009E0: 20 20 20 22 3B 53 55 24 3B 22 20 20 20 22 00 08 | ";SU$;" "..| 000009F0: 12 C8 2B 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 |..+..SC.1);". | 00000A00: 20 20 20 22 3B 53 55 24 00 1F 12 C9 2B 99 A3 53 | ";SU$....+..S| 00000A10: 43 AB 31 29 3B 22 12 20 20 20 20 20 20 32 22 00 |C.1);". 2".| 00000A20: 25 12 CA 2B 8E 00 2D 12 24 2C 8F 20 33 00 3D 12 |%..+..-.$,. 3.=.| 00000A30: 25 2C 99 22 12 33 20 20 20 20 20 20 22 00 5A 12 |%,.".3 ".Z.| 00000A40: 26 2C 99 A3 53 43 AB 31 29 3B 22 12 22 3B 53 55 |&,..SC.1);".";SU| 00000A50: 24 3B 22 20 20 20 20 20 20 22 00 77 12 27 2C 99 |$;" ".w.',.| 00000A60: A3 53 43 AB 31 29 3B 22 12 20 20 20 22 3B 53 55 |.SC.1);". ";SU| 00000A70: 24 3B 22 20 20 20 22 00 86 12 28 2C 99 A3 53 43 |$;" "...(,..SC| 00000A80: AB 31 29 3B 53 24 00 A3 12 29 2C 99 A3 53 43 AB |.1);S$...),..SC.| 00000A90: 31 29 3B 22 12 20 20 20 22 3B 53 55 24 3B 22 20 |1);". ";SU$;" | 00000AA0: 20 20 22 00 B2 12 2A 2C 99 A3 53 43 AB 31 29 3B | "...*,..SC.1);| 00000AB0: 53 24 00 CF 12 2B 2C 99 A3 53 43 AB 31 29 3B 22 |S$...+,..SC.1);"| 00000AC0: 12 20 20 20 22 3B 53 55 24 3B 22 20 20 20 22 00 |. ";SU$;" ".| 00000AD0: E9 12 2C 2C 99 A3 53 43 AB 31 29 3B 22 12 20 20 |..,,..SC.1);". | 00000AE0: 20 20 20 20 22 3B 53 55 24 00 00 13 2D 2C 99 A3 | ";SU$...-,..| 00000AF0: 53 43 AB 31 29 3B 22 12 20 20 20 20 20 20 33 22 |SC.1);". 3"| 00000B00: 00 06 13 2E 2C 8E 00 0E 13 88 2C 8F 20 34 00 1E |....,.....,. 4..| 00000B10: 13 89 2C 99 22 12 34 20 20 20 20 20 20 22 00 44 |..,.".4 ".D| 00000B20: 13 8A 2C 99 A3 53 43 AB 31 29 3B 22 12 22 3B 53 |..,..SC.1);".";S| 00000B30: 55 24 3B 53 55 24 3B 22 20 20 20 22 3B 53 55 24 |U$;SU$;" ";SU$| 00000B40: 3B 22 20 22 00 53 13 8B 2C 99 A3 53 43 AB 31 29 |;" ".S..,..SC.1)| 00000B50: 3B 53 24 00 62 13 8C 2C 99 A3 53 43 AB 31 29 3B |;S$.b..,..SC.1);| 00000B60: 53 24 00 71 13 8D 2C 99 A3 53 43 AB 31 29 3B 53 |S$.q..,..SC.1);S| 00000B70: 24 00 80 13 8E 2C 99 A3 53 43 AB 31 29 3B 53 24 |$....,..SC.1);S$| 00000B80: 00 8F 13 8F 2C 99 A3 53 43 AB 31 29 3B 53 24 00 |....,..SC.1);S$.| 00000B90: B2 13 90 2C 99 A3 53 43 AB 31 29 3B 22 12 20 22 |...,..SC.1);". "| 00000BA0: 3B 53 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 53 |;SU$;" ";SU$;S| 00000BB0: 55 24 00 C9 13 91 2C 99 A3 53 43 AB 31 29 3B 22 |U$....,..SC.1);"| 00000BC0: 12 20 20 20 20 20 20 34 22 00 CF 13 92 2C 8E 00 |. 4"....,..| 00000BD0: D7 13 EC 2C 8F 20 35 00 E7 13 ED 2C 99 22 12 35 |...,. 5....,.".5| 00000BE0: 20 20 20 20 20 20 22 00 0D 14 EE 2C 99 A3 53 43 | "....,..SC| 00000BF0: AB 31 29 3B 22 12 22 3B 53 55 24 3B 53 55 24 3B |.1);".";SU$;SU$;| 00000C00: 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 1C 14 |" ";SU$;" "...| 00000C10: EF 2C 99 A3 53 43 AB 31 29 3B 53 24 00 2B 14 F0 |.,..SC.1);S$.+..| 00000C20: 2C 99 A3 53 43 AB 31 29 3B 53 24 00 48 14 F1 2C |,..SC.1);S$.H..,| 00000C30: 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 22 3B 53 |..SC.1);". ";S| 00000C40: 55 24 3B 22 20 20 20 22 00 57 14 F2 2C 99 A3 53 |U$;" ".W..,..S| 00000C50: 43 AB 31 29 3B 53 24 00 66 14 F3 2C 99 A3 53 43 |C.1);S$.f..,..SC| 00000C60: AB 31 29 3B 53 24 00 89 14 F4 2C 99 A3 53 43 AB |.1);S$....,..SC.| 00000C70: 31 29 3B 22 12 20 22 3B 53 55 24 3B 22 20 20 20 |1);". ";SU$;" | 00000C80: 22 3B 53 55 24 3B 22 20 22 00 A0 14 F5 2C 99 A3 |";SU$;" "....,..| 00000C90: 53 43 AB 31 29 3B 22 12 20 20 20 20 20 20 35 22 |SC.1);". 5"| 00000CA0: 00 A6 14 F6 2C 8E 00 AE 14 50 2D 8F 20 36 00 BE |....,....P-. 6..| 00000CB0: 14 51 2D 99 22 12 36 20 20 20 20 20 20 22 00 E4 |.Q-.".6 "..| 00000CC0: 14 52 2D 99 A3 53 43 AB 31 29 3B 22 12 22 3B 53 |.R-..SC.1);".";S| 00000CD0: 55 24 3B 53 55 24 3B 22 20 20 20 22 3B 53 55 24 |U$;SU$;" ";SU$| 00000CE0: 3B 22 20 22 00 F3 14 53 2D 99 A3 53 43 AB 31 29 |;" "...S-..SC.1)| 00000CF0: 3B 53 24 00 02 15 54 2D 99 A3 53 43 AB 31 29 3B |;S$...T-..SC.1);| 00000D00: 53 24 00 25 15 55 2D 99 A3 53 43 AB 31 29 3B 22 |S$.%.U-..SC.1);"| 00000D10: 12 20 22 3B 53 55 24 3B 22 20 20 20 22 3B 53 55 |. ";SU$;" ";SU| 00000D20: 24 3B 22 20 22 00 34 15 56 2D 99 A3 53 43 AB 31 |$;" ".4.V-..SC.1| 00000D30: 29 3B 53 24 00 43 15 57 2D 99 A3 53 43 AB 31 29 |);S$.C.W-..SC.1)| 00000D40: 3B 53 24 00 66 15 58 2D 99 A3 53 43 AB 31 29 3B |;S$.f.X-..SC.1);| 00000D50: 22 12 20 22 3B 53 55 24 3B 22 20 20 20 22 3B 53 |". ";SU$;" ";S| 00000D60: 55 24 3B 53 55 24 00 7D 15 59 2D 99 A3 53 43 AB |U$;SU$.}.Y-..SC.| 00000D70: 31 29 3B 22 12 20 20 20 20 20 20 36 22 00 83 15 |1);". 6"...| 00000D80: 5A 2D 8E 00 8B 15 B4 2D 8F 20 37 00 9B 15 B5 2D |Z-.....-. 7....-| 00000D90: 99 22 12 37 20 20 20 20 20 20 22 00 C1 15 B6 2D |.".7 "....-| 00000DA0: 99 A3 53 43 AB 31 29 3B 22 12 22 3B 53 55 24 3B |..SC.1);".";SU$;| 00000DB0: 53 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 |SU$;" ";SU$;" | 00000DC0: 22 00 D0 15 B7 2D 99 A3 53 43 AB 31 29 3B 53 24 |"....-..SC.1);S$| 00000DD0: 00 ED 15 B8 2D 99 A3 53 43 AB 31 29 3B 22 12 20 |....-..SC.1);". | 00000DE0: 20 20 22 3B 53 55 24 3B 22 20 20 20 22 00 10 16 | ";SU$;" "...| 00000DF0: B9 2D 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 |.-..SC.1);". ";S| 00000E00: 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 |U$;" ";SU$;" "| 00000E10: 00 1F 16 BA 2D 99 A3 53 43 AB 31 29 3B 53 24 00 |....-..SC.1);S$.| 00000E20: 2E 16 BB 2D 99 A3 53 43 AB 31 29 3B 53 24 00 51 |...-..SC.1);S$.Q| 00000E30: 16 BC 2D 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B |..-..SC.1);". ";| 00000E40: 53 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 53 55 |SU$;" ";SU$;SU| 00000E50: 24 00 68 16 BD 2D 99 A3 53 43 AB 31 29 3B 22 12 |$.h..-..SC.1);".| 00000E60: 20 20 20 20 20 20 37 22 00 6E 16 BE 2D 8E 00 76 | 7".n..-..v| 00000E70: 16 18 2E 8F 20 38 00 86 16 19 2E 99 22 12 38 20 |.... 8......".8 | 00000E80: 20 20 20 20 20 22 00 AC 16 1A 2E 99 A3 53 43 AB | ".......SC.| 00000E90: 31 29 3B 22 12 22 3B 53 55 24 3B 53 55 24 3B 22 |1);".";SU$;SU$;"| 00000EA0: 20 20 20 22 3B 53 55 24 3B 22 20 22 00 BB 16 1B | ";SU$;" "....| 00000EB0: 2E 99 A3 53 43 AB 31 29 3B 53 24 00 DE 16 1C 2E |...SC.1);S$.....| 00000EC0: 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 24 |..SC.1);". ";SU$| 00000ED0: 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 ED |;" ";SU$;" "..| 00000EE0: 16 1D 2E 99 A3 53 43 AB 31 29 3B 53 24 00 10 17 |.....SC.1);S$...| 00000EF0: 1E 2E 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 |....SC.1);". ";S| 00000F00: 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 |U$;" ";SU$;" "| 00000F10: 00 1F 17 1F 2E 99 A3 53 43 AB 31 29 3B 53 24 00 |.......SC.1);S$.| 00000F20: 42 17 20 2E 99 A3 53 43 AB 31 29 3B 22 12 20 22 |B. ...SC.1);". "| 00000F30: 3B 53 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 53 |;SU$;" ";SU$;S| 00000F40: 55 24 00 59 17 21 2E 99 A3 53 43 AB 31 29 3B 22 |U$.Y.!...SC.1);"| 00000F50: 12 20 20 20 20 20 20 38 22 00 5F 17 22 2E 8E 00 |. 8"._."...| 00000F60: 67 17 7C 2E 8F 20 39 00 77 17 7D 2E 99 22 12 39 |g.|.. 9.w.}..".9| 00000F70: 20 20 20 20 20 20 22 00 9D 17 7E 2E 99 A3 53 43 | "...~...SC| 00000F80: AB 31 29 3B 22 12 22 3B 53 55 24 3B 53 55 24 3B |.1);".";SU$;SU$;| 00000F90: 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 AC 17 |" ";SU$;" "...| 00000FA0: 7F 2E 99 A3 53 43 AB 31 29 3B 53 24 00 CF 17 80 |....SC.1);S$....| 00000FB0: 2E 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 |...SC.1);". ";SU| 00000FC0: 24 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 |$;" ";SU$;" ".| 00000FD0: EC 17 81 2E 99 A3 53 43 AB 31 29 3B 22 12 20 20 |......SC.1);". | 00000FE0: 20 22 3B 53 55 24 3B 22 20 20 20 22 00 0F 18 82 | ";SU$;" "....| 00000FF0: 2E 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 |...SC.1);". ";SU| 00001000: 24 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 |$;" ";SU$;" ".| 00001010: 1E 18 83 2E 99 A3 53 43 AB 31 29 3B 53 24 00 41 |......SC.1);S$.A| 00001020: 18 84 2E 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B |.....SC.1);". ";| 00001030: 53 55 24 3B 22 20 20 20 22 3B 53 55 24 3B 53 55 |SU$;" ";SU$;SU| 00001040: 24 00 58 18 85 2E 99 A3 53 43 AB 31 29 3B 22 12 |$.X.....SC.1);".| 00001050: 20 20 20 20 20 20 39 22 00 5E 18 86 2E 8E 00 69 | 9".^.....i| 00001060: 18 E0 2E 8F 20 4A 41 43 4B 00 79 18 E1 2E 99 22 |.... JACK.y...."| 00001070: 12 4A 20 20 20 20 20 20 22 00 98 18 E2 2E 99 A3 |.J ".......| 00001080: 53 43 AB 31 29 3B 22 12 22 3B 53 55 24 3B 22 20 |SC.1);".";SU$;" | 00001090: DF 92 20 12 A9 20 20 22 00 AF 18 E3 2E 99 A3 53 |.. .. ".......S| 000010A0: 43 AB 31 29 3B 22 12 20 C7 AA A0 A5 20 20 22 00 |C.1);". .... ".| 000010B0: C8 18 E4 2E 99 A3 53 43 AB 31 29 3B 22 12 20 C7 |......SC.1);". .| 000010C0: 92 20 20 20 12 20 20 22 00 E1 18 E5 2E 99 A3 53 |. . ".......S| 000010D0: 43 AB 31 29 3B 22 12 20 C7 92 20 20 20 12 C8 20 |C.1);". .. .. | 000010E0: 22 00 FA 18 E6 2E 99 A3 53 43 AB 31 29 3B 22 12 |".......SC.1);".| 000010F0: 20 20 92 20 20 20 12 C8 20 22 00 11 19 E7 2E 99 | . .. "......| 00001100: A3 53 43 AB 31 29 3B 22 12 20 20 A7 A5 A5 C8 20 |.SC.1);". .... | 00001110: 22 00 2D 19 E8 2E 99 A3 53 43 AB 31 29 3B 22 12 |".-.....SC.1);".| 00001120: 20 20 92 A9 20 DF 12 20 22 3B 53 55 24 00 44 19 | .. .. ";SU$.D.| 00001130: E9 2E 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 20 |....SC.1);". | 00001140: 20 20 4A 22 00 4A 19 EA 2E 8E 00 56 19 44 2F 8F | J".J.....V.D/.| 00001150: 20 51 55 45 45 4E 00 66 19 45 2F 99 22 12 51 20 | QUEEN.f.E/.".Q | 00001160: 20 20 20 20 20 22 00 84 19 46 2F 99 A3 53 43 AB | "...F/..SC.| 00001170: 31 29 3B 22 12 22 3B 53 55 24 3B 22 12 20 A9 A3 |1);".";SU$;". ..| 00001180: D4 20 20 22 00 9D 19 47 2F 99 A3 53 43 AB 31 29 |. "...G/..SC.1)| 00001190: 3B 22 12 20 92 A9 12 DD 20 B5 20 20 22 00 B6 19 |;". .... . "...| 000011A0: 48 2F 99 A3 53 43 AB 31 29 3B 22 12 20 92 20 20 |H/..SC.1);". . | 000011B0: 20 20 12 BB 20 22 00 CF 19 49 2F 99 A3 53 43 AB | .. "...I/..SC.| 000011C0: 31 29 3B 22 12 20 92 20 20 20 20 20 12 20 22 00 |1);". . . ".| 000011D0: E8 19 4A 2F 99 A3 53 43 AB 31 29 3B 22 12 20 BC |..J/..SC.1);". .| 000011E0: 92 20 20 20 20 12 20 22 00 FF 19 4B 2F 99 A3 53 |. . "...K/..S| 000011F0: 43 AB 31 29 3B 22 12 20 20 B6 20 DD A9 20 22 00 |C.1);". . .. ".| 00001200: 1B 1A 4C 2F 99 A3 53 43 AB 31 29 3B 22 12 20 20 |..L/..SC.1);". | 00001210: D9 A4 92 A9 12 20 22 3B 53 55 24 00 32 1A 4D 2F |..... ";SU$.2.M/| 00001220: 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 20 20 20 |..SC.1);". | 00001230: 51 22 00 38 1A 4E 2F 8E 00 43 1A A8 2F 8F 20 4B |Q".8.N/..C../. K| 00001240: 49 4E 47 00 53 1A A9 2F 99 22 12 4B 20 20 20 20 |ING.S../.".K | 00001250: 20 20 22 00 72 1A AA 2F 99 A3 53 43 AB 31 29 3B | ".r../..SC.1);| 00001260: 22 12 22 3B 53 55 24 3B 22 20 DF 92 20 20 12 A9 |".";SU$;" .. ..| 00001270: 20 22 00 8B 1A AB 2F 99 A3 53 43 AB 31 29 3B 22 | "..../..SC.1);"| 00001280: 12 20 20 20 A5 92 20 12 20 20 22 00 A4 1A AC 2F |. .. . "..../| 00001290: 99 A3 53 43 AB 31 29 3B 22 12 20 92 A9 20 20 20 |..SC.1);". .. | 000012A0: BC 12 20 22 00 BD 1A AD 2F 99 A3 53 43 AB 31 29 |.. "..../..SC.1)| 000012B0: 3B 22 12 20 92 20 20 20 20 20 12 20 22 00 D6 1A |;". . . "...| 000012C0: AE 2F 99 A3 53 43 AB 31 29 3B 22 12 20 92 BB 20 |./..SC.1);". .. | 000012D0: 20 20 12 A9 20 22 00 EF 1A AF 2F 99 A3 53 43 AB | .. "..../..SC.| 000012E0: 31 29 3B 22 12 20 20 92 20 12 A7 20 20 20 22 00 |1);". . .. ".| 000012F0: 0B 1B B0 2F 99 A3 53 43 AB 31 29 3B 22 12 20 92 |.../..SC.1);". .| 00001300: A9 20 20 DF 12 20 22 3B 53 55 24 00 22 1B B1 2F |. .. ";SU$."../| 00001310: 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 20 20 20 |..SC.1);". | 00001320: 4B 22 00 28 1B B2 2F 8E 00 32 1B 0C 30 8F 20 41 |K".(../..2..0. A| 00001330: 43 45 00 42 1B 0D 30 99 22 12 41 20 20 20 20 20 |CE.B..0.".A | 00001340: 20 22 00 5F 1B 0E 30 99 A3 53 43 AB 31 29 3B 22 | "._..0..SC.1);"| 00001350: 12 22 3B 53 55 24 3B 22 20 20 20 20 20 20 22 00 |.";SU$;" ".| 00001360: 72 1B 0F 30 99 A3 53 43 AB 31 29 3B 22 12 22 3B |r..0..SC.1);".";| 00001370: 53 24 00 85 1B 10 30 99 A3 53 43 AB 31 29 3B 22 |S$....0..SC.1);"| 00001380: 12 22 3B 53 24 00 A2 1B 11 30 99 A3 53 43 AB 31 |.";S$....0..SC.1| 00001390: 29 3B 22 12 20 20 20 22 3B 53 55 24 3B 22 20 20 |);". ";SU$;" | 000013A0: 20 22 00 B5 1B 12 30 99 A3 53 43 AB 31 29 3B 22 | "....0..SC.1);"| 000013B0: 12 22 3B 53 24 00 C8 1B 13 30 99 A3 53 43 AB 31 |.";S$....0..SC.1| 000013C0: 29 3B 22 12 22 3B 53 24 00 E2 1B 14 30 99 A3 53 |);".";S$....0..S| 000013D0: 43 AB 31 29 3B 22 12 20 20 20 20 20 20 22 3B 53 |C.1);". ";S| 000013E0: 55 24 00 F9 1B 15 30 99 A3 53 43 AB 31 29 3B 22 |U$....0..SC.1);"| 000013F0: 12 20 20 20 20 20 20 41 22 00 FF 1B 16 30 8E 00 |. A"....0..| 00001400: 09 1C 70 30 8F 20 54 45 4E 00 19 1C 71 30 99 22 |..p0. TEN...q0."| 00001410: 12 31 30 20 20 20 20 20 22 00 3C 1C 72 30 99 A3 |.10 ".<.r0..| 00001420: 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 24 3B 22 |SC.1);". ";SU$;"| 00001430: 20 20 20 22 3B 53 55 24 3B 22 20 22 00 59 1C 73 | ";SU$;" ".Y.s| 00001440: 30 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 22 3B |0..SC.1);". ";| 00001450: 53 55 24 3B 22 20 20 20 22 00 7C 1C 74 30 99 A3 |SU$;" ".|.t0..| 00001460: 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 24 3B 22 |SC.1);". ";SU$;"| 00001470: 20 20 20 22 3B 53 55 24 3B 22 20 22 00 8B 1C 75 | ";SU$;" "...u| 00001480: 30 99 A3 53 43 AB 31 29 3B 53 24 00 AE 1C 76 30 |0..SC.1);S$...v0| 00001490: 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 24 |..SC.1);". ";SU$| 000014A0: 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 CB |;" ";SU$;" "..| 000014B0: 1C 77 30 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 |.w0..SC.1);". | 000014C0: 22 3B 53 55 24 3B 22 20 20 20 22 00 EE 1C 78 30 |";SU$;" "...x0| 000014D0: 99 A3 53 43 AB 31 29 3B 22 12 20 22 3B 53 55 24 |..SC.1);". ";SU$| 000014E0: 3B 22 20 20 20 22 3B 53 55 24 3B 22 20 22 00 05 |;" ";SU$;" "..| 000014F0: 1D 79 30 99 A3 53 43 AB 31 29 3B 22 12 20 20 20 |.y0..SC.1);". | 00001500: 20 20 31 30 22 00 0B 1D 7A 30 8E 00 2B 1D 40 9C | 10"...z0..+.@.| 00001510: 43 4C B2 31 39 36 3A 43 48 B2 31 39 37 3A 43 4A |CL.196:CH.197:CJ| 00001520: B2 31 39 38 3A 43 4B B2 32 31 36 00 57 1D 4A 9C |.198:CK.216.W.J.| 00001530: 4C 33 25 B2 C2 28 43 4C 29 3A 48 33 25 B2 C2 28 |L3%..(CL):H3%..(| 00001540: 43 48 29 3A 4A 33 25 B2 C2 28 43 4A 29 3A 4B 33 |CH):J3%..(CJ):K3| 00001550: 25 B2 C2 28 43 4B 29 00 91 1D 54 9C 99 22 13 20 |%..(CK)...T..". | 00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 20 20 20 13 22 3B 53 52 3B 53 43 3B 56 41 | .";SR;SC;VA| 00001590: 24 00 B6 1D 5E 9C 97 20 43 4C 2C 4C 33 25 3A 97 |$...^.. CL,L3%:.| 000015A0: 43 48 2C 48 33 25 3A 97 43 4A 2C 4A 33 25 3A 97 |CH,H3%:.CJ,J3%:.| 000015B0: 43 4B 2C 4B 33 25 00 BC 1D 68 9C 8E 00 00 00 24 |CK,K3%...h.....$|
..(.P..".............******************"
.L.Z.."..........******************".Q.D
..".........* .REAL TIME SNAP. *"...F.."
.........******************"...H..".....
.....******************".C.I.. C(2).O.K.
.:.:.:....N.." DO YOU KNOW THE RULES?"
;...X.. A$:. A$."" . 120...... A$."Y" .
198...... A$."N" . 137.8.... 120.A....".
".G.....T...."THE OBJECT OF THIS GAME IS
TO BEAT THE. ....".COMPUTER AT SNAP. TH
E COMPUTER DRAWS.K. ..".TWO CARDS NEXT T
O EACH OTHER ON THE......".SCREEN - IF T
HEY MATCH 'SNAP!'. IF YOU.'....".PRESS A
NY KEY FAST ENOUGH, YOU WIN THE.E....".S
NAP, OTHERWISE I WIN..Q....".....TYPING
'!' WHEN THERE IS NO SNAP...B.."........
...TERMINATES THE GAME":..E.C.."........
..PRESS ANY KEY TO CONTINUE.".Z.D..A$:.A
$."" . 196...F..59468,12:."."......"..LE
VEL OF DIFFICULTY (1-EASY,9-HARD)".9....
D$:D%.E(D$):. D%.0 . 240.V.... NOW IT B
EGINS ********.P...Y.0:M.0:CARDS$."ASZX"
.Y....".".....C(1).0:C(2).0:P.1...,.C(P)
..(13..(1).1).C.-.. C(P).1 . VA$."A":.
307...... C(P).10 . VA$."T":. 307.../..
C(P).11 . VA$."J":. 307...0.. C(P).12 .
VA$."Q":. 307.;.1.. C(P).13 . VA$."K":.
307.K.2.VA$.D(C(P)).~.3.. P.1 . SU..(4..
(1).1):SU$. J(CARDS$,SU,1)...4.SR.10
:SC..15.20.P. .5.. 10000...@..P.2. 330..
.E..360...J..L.1.130.300.D%:. L:P.0:.C(1
).C(2)..420...H.. L$:. L$."". P.P.1:. 30
0...M.. L$."!" . 500.B.R..".......CHEAT!
TWO POINTS TO ME":.:M.M.2.R.|.. 470:. 2
50.G....L$:.L$."" . 450......"...SNAP!.
WELL DONE 1 POINT TO YOU.":.:Y.Y.1:. 47
0.X.B.."...SNAP!. BAD LUCK I WAS FIRST,
1 TO ME":.:M.M.1...V..:."YOUR SCORE:"Y"
MY SCORE:"M:. Z.0 . 3000:.. .... Y.9 . M
.9 . 500.,....".";:..<.... GAME ENDS.V..
..".................";......"..YOU SCORE
D ";D(Y);" TO MY ";D(M);"."......"......
....WOULD YOU LIKE A REPLAY?";.D....A$:.
A$."" . 530......A$."Y" . .".";:. 230..
.&.."................THANKS FOR THE GAME
".#.0.. L.1 . 2000:.:.".":..@..'. CARDS
GRAPHICS ROUTINE....'. SR(ROW),SC(COL)=T
OP LH CORNER OF CARD, S$ & SS$ GE
N PURPOSE.Q.$'. ALSO NEED SUITE (SU$)
AND VALUE (VA$) A23456789TJQ
K...)'.SR.15 . SC.31 . SC.1 . ."PLEASE C
HECK POSITION OF CARD":..5.+'.VA$."1" ..
"DO YOU MEAN 'A' ?":..B..'S$.". ":
SS$."....................".L.8'.".";...G
'.".";.SC.1);H(SS$,SR);...L'VA.E(VA$).1.
..V'. VA . 11000,11100,11200,11300,11400
,11500,11600,11700,11800,11900....*. VA$
."J" . 12000....+. VA$."Q" . 12100. ..+.
VA$."K" . 12200.6..+. VA$."A" . 12300.L
. +. VA$."T" . 12400.R.4+..Z..+. 2.J.A+.
".2 "...B+..SC.1);".";SU$;" ".
..C+..SC.1);". ";SU$;" "...D+..SC.1)
;S$.B.E+..SC.1);S$.Q.F+..SC.1);S$...G+..
SC.1);". ";SU$;" "...H+..SC.1);".
";SU$...I+..SC.1);". 2".%.J+..-.
$,. 3.=.%,.".3 ".Z.&,..SC.1);".";SU
$;" ".W.',..SC.1);". ";SU$;" ".
..(,..SC.1);S$...),..SC.1);". ";SU$;"
"...*,..SC.1);S$.O.+,..SC.1);". ";SU
$;" "...,,..SC.1);". ";SU$...-,..
SC.1);". 3"....,.....,. 4....,.".4
".D..,..SC.1);".";SU$;SU$;" ";SU$
;" ".S..,..SC.1);S$.B..,..SC.1);S$.Q..,.
.SC.1);S$....,..SC.1);S$....,..SC.1);S$.
...,..SC.1);". ";SU$;" ";SU$;SU$.I..,.
.SC.1);". 4".O..,..W..,. 5....,.".5
"....,..SC.1);".";SU$;SU$;" ";SU
$;" "....,..SC.1);S$.+..,..SC.1);S$.H..,
..SC.1);". ";SU$;" ".W..,..SC.1);S$.
F..,..SC.1);S$....,..SC.1);". ";SU$;"
";SU$;" ". ..,..SC.1);". 5"....,...
.P-. 6...Q-.".6 "...R-..SC.1);".";S
U$;SU$;" ";SU$;" "...S-..SC.1);S$...T-
..SC.1);S$.%.U-..SC.1);". ";SU$;" ";SU
$;" ".4.V-..SC.1);S$.C.W-..SC.1);S$.F.X-
..SC.1);". ";SU$;" ";SU$;SU$.}.Y-..SC.
1);". 6"...Z-.....-. 7....-.".7
".A..-..SC.1);".";SU$;SU$;" ";SU$;"
".P..-..SC.1);S$....-..SC.1);". ";SU$;
" "....-..SC.1);". ";SU$;" ";SU$;" "
....-..SC.1);S$....-..SC.1);S$.Q..-..SC.
1);". ";SU$;" ";SU$;SU$.H..-..SC.1);".
7".N..-..V.... 8......".8 "..
.....SC.1);".";SU$;SU$;" ";SU$;" "....
...SC.1);S$.......SC.1);". ";SU$;" ";S
U$;" ".......SC.1);S$.......SC.1);". ";S
U$;" ";SU$;" ".......SC.1);S$.B. ...SC
.1);". ";SU$;" ";SU$;SU$.Y.!...SC.1);"
. 8"._."...G.|.. 9.W.}..".9 ".
..~...SC.1);".";SU$;SU$;" ";SU$;" "...
...SC.1);S$.O.....SC.1);". ";SU$;" ";
SU$;" ".......SC.1);". ";SU$;" "....
...SC.1);". ";SU$;" ";SU$;" ".......SC
.1);S$.A.....SC.1);". ";SU$;" ";SU$;SU
$.X.....SC.1);". 9".^.....I.... JAC
K.Y....".J ".......SC.1);".";SU$;"
.. .. ".......SC.1);". G. . ".H.....SC
.1);". G. . ".......SC.1);". G. .H
".......SC.1);". . .H ".......SC.1);"
. ...H ".-.....SC.1);". .. .. ";SU$.D.
....SC.1);". J".J.....V.D/. QUEEN.F
.E/.".Q "...F/..SC.1);".";SU$;". ..
T "...G/..SC.1);". .... . "...H/..SC.1
);". . .. ".O.I/..SC.1);". . . ".
..J/..SC.1);". .. . "...K/..SC.1);".
. .. "...L/..SC.1);". Y.... ";SU$.2.M/
..SC.1);". Q".8.N/..C../. KING.S../
.".K ".R../..SC.1);".";SU$;" .. ..
"..../..SC.1);". .. . "..../..SC.1);
". .. .. "..../..SC.1);". . . ".V.
./..SC.1);". .. .. "..../..SC.1);". .
.. "..../..SC.1);". .. .. ";SU$."../
..SC.1);". K".(../..2..0. ACE.B..0.
".A "._..0..SC.1);".";SU$;" ".
R..0..SC.1);".";S$....0..SC.1);".";S$...
.0..SC.1);". ";SU$;" "....0..SC.1);"
.";S$.H..0..SC.1);".";S$....0..SC.1);".
";SU$....0..SC.1);". A"....0..
..P0. TEN...Q0.".10 ".<.R0..SC.1);".
";SU$;" ";SU$;" ".Y.S0..SC.1);". ";
SU$;" ".|.T0..SC.1);". ";SU$;" ";SU$
;" "...U0..SC.1);S$...V0..SC.1);". ";SU$
;" ";SU$;" ".K.W0..SC.1);". ";SU$;"
"...X0..SC.1);". ";SU$;" ";SU$;" "..
.Y0..SC.1);". 10"...Z0..+.@.CL.196:C
H.197:CJ.198:CK.216.W.J.L3%.B(CL):H3%.B(
CH):J3%.B(CJ):K3%.B(CK)...T..".
.";SR;SC;VA
$...^.. CL,L3%:.CH,H3%:.CJ,J3%:.CK,K3%..
.H.....$
> CLICK IMAGE PREVIEW FOR FULL MODAL