home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / KARAZY-EIGHTS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.3 KB  |  268 lines
  1. 0 :::::  :::::            :::::  :::::     :::::  ::::: (null) TO 20 :::::  :::::
  2. 1 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  3. 2 "[184]"                              "[184]"    "[184]"  KARAZY EIGHTS AND OLD GAME  "[184]"
  4. 3 "[184]"                              "[184]"    "[184]"   FROM 1980 BY JOHN O'HARE.  "[184]"
  5. 4 "[184]"                              "[184]"    "[184]"  NEW GRAPHICS, COLOR, SOUND  "[184]"
  6. 5 "[184]"                              "[184]"    "[184]"  AND LOTSA OTHER NEAT STUFF  "[184]"
  7. 6 "[184]"                              "[184]"    "[184]"      ADDED BY JIM GREEN.     "[184]"
  8. 7 "[184]"                              "[184]"    "[184]"      PLAY IT AND ENJOY!!     "[184]"
  9. 8 "[184]"                              "[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  10. 9 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]" .
  11. 10 REM     MODIFIED  MAY 1987          .
  12. 20 POKE53280,2:POKE53281,2:PRINT"[147][142][158]";
  13. 30 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  14. 40 PRINT"[221]   [150]  [146] [167]           [146][183][208]        [146][183][208]        [158][221]";
  15. 50 PRINT"[221]   [150]  [146][175][206]   [146][183][208] [162][162]   [146][175][186]   [146][183][208] [223]  [223][146] [165]  [167]   [158][221]";
  16. 60 PRINT"[221]   [150]  [146] [205]   [146][175][186]      [146] [205]   [146][175][186] [204][175]  [146] [204][175][175][186]   [158][221]";
  17. 70 PRINT"[221]        [150]  [146] [167]           [146] [167]         [146]    [158][221]";
  18. 80 PRINT"[221]                                      [221]";
  19. 90 PRINT"[221]  [165]  [146][183][208]        [146][183][208]       [207]   [146][208] '    [146][183][208] [158][221]";
  20. 100 PRINT"[221]  [165]  [158][146][192]     [146]    [158][146] [175]    [158][146] [167]     [146]    [223]   [223][150][146] [158][221]";
  21. 110 PRINT"[221]  [165]  [146][175][186]    [146]    [146][175][186]    [146][175][186]     [146]    [204][175]   [146] [158][221]";
  22. 120 PRINT"[221]           [146]          [146] [167]               [158][221]";
  23. 130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  24. 140 PRINT"[150]         NEED INSTRUCTIONS  Y/N
  25. 150 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]150
  26. 160 [139]G$[178]"N"[167]420
  27. 170 [153]"LOAD";:[151]53280,15:[151]53281,15
  28. 180 [153]"    (null)ATN - (null)ATN(null)(null) VALRIGHT$CHR$LEFT$(null)'(null)  RIGHT$NSTRUCTIONS
  29. 190 PRINT"[151][212]HE PLAYER AND [195]64 ARE EACH DEALT 7
  30. 200 [153]"CARDS AND ONE CARD CALLED THE (null)(null)(null)CLOSELENATN(null)STR$
  31. 210 PRINT"IS DEALT. [217]OU AND THE [195]64 TAKE TURNS.
  32. 220 [153]"(null)OU MUST MATCH THE (null)(null)(null)CLOSELENATN(null)STR$ EITHER IN
  33. 230 PRINT"SUIT OR NUMBER. [197]XAMPLE - [201]F THE [212][207][208]
  34. 240 [153]"LENARD IS A 7 OF SPADES YOU CAN PLAY
  35. 250 PRINT"EITHER A 7 OR A SPADE. [201]F YOU DO THEN
  36. 260 [153]"THE CARD PLAYED BECOMES THE (null)(null)(null)CLOSELENATN(null)STR$ AND";
  37. 270 [153]"THE OTHER PLAYER MUST MATCH IT. RIGHT$F YOU
  38. 280 PRINT"CANNOT MATCH THE [212][207][208][160][195][193][210][196] THEN YOU MUST
  39. 290 [153]"STR$(null)ATN(null) FROM THE DECK UNTIL YOU GET A PLAY.";
  40. 291 [153]"        (null)RESS <(null)(null)ATNLENVAL> FOR MORE
  41. 292 GETG$:IFG$<>" "THEN 292
  42. 293 PRINT"[147][151][212]HE 8 CARD IS WILD AND CAN BE ANY
  43. 294 [153]"NUMBER OR SUIT.
  44. 295 PRINT"  [197]X.-    8/CLUBS CAN BE 2/DIAMONDS.
  45. 300 [153]"RIGHT$F BY SOME ODD CHANCE THE PLAYER DRAWS
  46. 310 PRINT"18 CARDS WITH NO PLAY THE GAME WILL END.";
  47. 320 PRINT"[215]HEN THE [195]64 DRAWS CARDS, DUE TO PROG-
  48. 330 [153]"RAMMING LIMITATIONS THE LEN64 CAN ONLY
  49. 340 PRINT"MATCH SUITS AND NOT NUMBERS. [212]HIS GIVES
  50. 350 [153]"YOU AN UNFAIR ADVANTAGE. PEEKUT HEY!,
  51. 360 PRINT"WHO SAID LIFE WAS FAIR! [217]OU ARE A BIG
  52. 370 [153]"BOY SO QUIT THAT CRYING AND WIPE THOSE
  53. 380 PRINT"TEARS. [212]HE ONE TO PLAY ALL CARDS FROM
  54. 390 [153]"HIS HAND IS THE WINNER.
  55. 392 PRINT"[196]URING PLAY... [208]RESS <[209]) TO [209][213][201][212].
  56. 400 [153]"         (null)RESS <(null)(null)ATNLENVAL>CLOSETO PLAY
  57. 410 GETG$:IFG$<>" " THEN410
  58. 420 A=RND(-TI):V=54272
  59. 430 G=828:FORJ=GTOG+15:READA:POKEJ,A:NEXT
  60. 440 DATA 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  61. 450 REM  CRAZY 8'S : 1980 BY JOHN O'HARE
  62. 470 POKE53280,15:POKE53281,15:S$="[193][211][218][216]8[166][214].":C$=" A 2 3 4 5 6 7 8 9 10J Q K "
  63. 480 L=12:GOSUB2050
  64. 490 DIMC(52),P1(50),P2(50),P3(50)
  65. 500 DATA SPADES,8,HEARTS,21,DIAMONDS,34,CLUBS,47
  66. 510 FORI=1TO4:READSU$(I),SU(I):NEXT
  67. 520 SYSG,21,2:GOSUB1660:W=1
  68. 530 REM DEAL 7 CARDS
  69. 540 FORI=1TO14STEP2:P1=P1+1:P2=P2+1:P1(P1)=C(I):P2(P2)=C(I+1):NEXT
  70. 550 C1=P1+P2+W
  71. 560 TC=C(C1):Z=TC:POKE53265,11:PRINT"[147][142]";:GOTO1930
  72. 570 SYSG,15,0:PRINT"                                        ";
  73. 580 GOSUB1330:GOSUB1300:N=0
  74. 590 SYSG,15,4:PRINT"[154] CARD TO PLAY OR <D> TO DRAW  [191]  [157][157][157]";
  75. 592 OPEN1,0:INPUT#1,P$:PRINT:CLOSE1
  76. 600 IFP$="Q"THEN2350
  77. 610 L=2:GOSUB2050
  78. 620 P=VAL(P$):IFP=0ANDP$<>"D"THEN590
  79. 630 IFP$<>"D"THEN690
  80. 635 SYSG,15,0:PRINT"                                      "
  81. 640 N1=N1+1:SYSG,15,12:PRINT"DRAWING CARD #"N1"          "
  82. 650 REM
  83. 660 C1=P1+P2+W:P1=P1+1:IFC1+1>52THENP1=P1-1:GOTO840
  84. 670 P1(P1)=C(C1+1)
  85. 680 GOTO580
  86. 690 N1=0:IFP>P1THEN590
  87. 700 Z=P1(P):GOSUB1620
  88. 710 S7=S:C7=C:Z=TC:GOSUB1620
  89. 720 IFS7<>SANDC7<>CANDC7<>8THEN590
  90. 730 IFC7<>8THEN810
  91. 740 SYSG,15,2:PRINT"WHAT SUIT DO YOU DECLARE  D/H/S/C  [191]
  92. 750 [161]U$:[139]U$[179][177]"S"[175]U$[179][177]"H"[175]U$[179][177]"D"[175]U$[179][177]"C"[167]750
  93. 760 [139]U$[178]"S"[167]TC[178]8
  94. 770 [139]U$[178]"H"[167]TC[178]8[170]13
  95. 780 [139]U$[178]"D"[167]TC[178]8[170]26
  96. 790 [139]U$[178]"C"[167]TC[178]8[170]39
  97. 800 [137]820
  98. 810 TC[178]P1(P)
  99. 820 W[178]W[170]1   
  100. 830 P1(P)[178]P1(P1):P1[178]P1[171]1
  101. 840 [158]G,15,0:[153]"                                      "
  102. 850 [141]1330:[141]1300
  103. 860 [158]G,15,0:[153]"                                      "
  104. 870 Z[178]TC:[141]1620:S7[178]S:C7[178]C
  105. 880 NS[178]0:[129]I[178]1[164]P2:Z[178]P2(I):[141]1620:[139]S[178]S7[167]NS[178]NS[170]1
  106. 890 [130]
  107. 900 [129]I[178]1[164]P2
  108. 910 Z[178]P2(I):[141]1620
  109. 920 [139]C[178]8[167]P3(I)[178][171]2:[137]960
  110. 930 [139]C[178]C7[167]P3(I)[178]NS:[137]960
  111. 940 [139]S[178]S7[167][141]1080:[137]960
  112. 950 P3(I)[178]0
  113. 960 [130]:[139]N[177]0[167][158]G,19,32:XQ[178]1:[141]1770:[129]D[178]1[164]1500:[130]
  114. 970 [158]G,19,25:[153]"          ":[153][163]25)"          "
  115. 980 [153][163]25)"          "
  116. 990 SC[178][171]3:PL[178]0:[129]I[178]1[164]P2:[139]P3(I)[177]SC[175]P3(I)[179][177]0[167]SC[178]P3(I):PL[178]I
  117. 1000 [130]
  118. 1010 [139]SC[178][171]3[167]1200
  119. 1020 [139]SC[178][171]2[167]1110
  120. 1030 [158]G,15,14:[153]"I PLAY ";:Z[178]P2(PL):N[178]0:[141]2050:[141]1620
  121. 1040 [153]"INT"[202](C$,C[172]2,2)"SYSINT"[202](S$,S,1)"ABS
  122. 1050 TC=P2(PL):P2(PL)=P2(P2):P2=P2-1:W=W+1
  123. 1060 FORD=1TO1750:NEXT:SYSG,15,0:PRINT"                             "
  124. 1070 GOTO580
  125. 1080 P3(I)=0:CT=0:S8=S:FORJ=1TOP2:Z=P2(J):GOSUB1620
  126. 1090 IFS8=STHENP3(I)=P3(I)+1
  127. 1100 NEXT:RETURN
  128. 1110 FORS9=1TO4:CT(S9)=0:FORI=1TOP2:Z=P2(I):GOSUB1620
  129. 1120 IFS=S9ANDC<>8THENCT(S9)=CT(S9)+1
  130. 1130 NEXT:NEXT
  131. 1140 P7=0:CT=-1:FORI=1TO4:IFCT(I)>CTTHENCT=CT(I):P7=I
  132. 1150 NEXT
  133. 1160 SYSG,15,7:PRINT"I DECLARE ";SU$(P7)" AS SUIT."
  134. 1170 FORD=1TO1750:NEXT:N=0
  135. 1180 SYSG,15,0:PRINT"                                      "
  136. 1190 TC=SU(P7):P2(PL)=P2(P2):P2=P2-1:W=W+1:GOTO580
  137. 1200 SYSG,15,14
  138. 1210 C1=P1+P2+W:IFC1+1>52THENPRINT"[150]I CAN'T PLAY":FORD=1TO1750:NEXT
  139. 1220 IFC1+1>52THENSYSG,16,0:PRINT"                                     ":GOTO580
  140. 1230 N=N+1:IFN=1THENSYSG,15,11:PRINT"[154]I MUST DRAW A CARD":FORD=1TO1800:NEXT
  141. 1240 SYSG,15,10:PRINT"   DRAWING CARD #"N:FORD=1TO500:NEXT
  142. 1250 SYSG,15,0:PRINT"                                   "
  143. 1260 P2=P2+1:P2(P2)=C(C1+1)
  144. 1270 GOTO900
  145. 1290 REM DISPLAY TOP CARD
  146. 1300 Z=TC:GOSUB1620
  147. 1310 SYSG,19,16:GOSUB1770:PRINT"":RETURN
  148. 1320 REM HAND DISPLAY
  149. 1330 PRINT"                                        ";
  150. 1340 C1=P1+P2+W
  151. 1350 SYSG,0,0:PRINT" KA-RAZY!!"
  152. 1360 SYSG,0,10:PRINT"- CARDS LEFT";52-C1;"[157]  "
  153. 1370 SYSG,0,26:PRINT"- C64 HAND";P2"[157] "
  154. 1380 IFP1=0THEN2100
  155. 1390 IFP2=0THEN2160
  156. 1400 IFC1=52THEN2220
  157. 1410 SYSG,3,2:FORI=1TOP1
  158. 1420 I$=MID$(STR$(I),2)
  159. 1430 Z=P1(I):GOSUB1620
  160. 1440 IFMID$(S$,S,1)="[193]"THENPRINT"[151]";
  161. 1450 IFMID$(S$,S,1)="[216]"THENPRINT"[151]";
  162. 1460 IFMID$(S$,S,1)="[211]"THENPRINT"";
  163. 1470 IFMID$(S$,S,1)="[218]"THENPRINT"";
  164. 1480 IFMID$(C$,C*2,2)="10"THEN1520
  165. 1490 IFVAL(I$)>9THENPRINT"[157]";
  166. 1500 PRINTI$"-[145]"MID$(C$,C*2,1)"[146][183][208][157][157][157][165]"MID$(S$,S,1)"[167]";
  167. 1510 PRINT"[157][157][157][204][175]"MID$(C$,C*2,1)"[146] [145][154]";:GOTO1550
  168. 1520 IFVAL(I$)>9THENPRINT"[157]";
  169. 1530 PRINTI$"-[145]"MID$(C$,C*2,2)"[146][208][157][157][157][165]"MID$(S$,S,1)"[167]";
  170. 1540 PRINT"[157][157][157][204]"MID$(C$,C*2,2)"[146] [145][154]";
  171. 1550 IFH=1THEN1570
  172. 1560 IFVAL(I$)=12THENGOSUB1920:H=1
  173. 1570 IFP1>18ORP2>18THEN2220
  174. 1580 IFPOS(0)>33THENPRINT:PRINT"";
  175. 1590 NEXT:PRINT"[145][157]      [157][157][157][157][157][157]      [157][157][157][157][157][157]      ":PRINT
  176. 1600 RETURN
  177. 1610 REM CONVERT 1-52 TO S AND C/USE Z
  178. 1620 S=INT((Z-1)/13)+1
  179. 1630 C=(Z+13)-S*13
  180. 1640 RETURN
  181. 1650 REM SHUFFLE
  182. 1660 PRINT"           SHUFFLING....[160]      "
  183. 1670 FORI=1TO52:C(I)=I:NEXT:FORI=1TO52:J=INT(RND(1)*52)+1:TE=C(J):C(J)=C(I)
  184. 1680 REM C(I)=I
  185. 1690 REM  NEXTI
  186. 1700 REM   FORI=1TO52
  187. 1710 REM J=INT(RND(1)*52)+1
  188. 1720 REM TE=C(J)
  189. 1730 REM  C(J)=C(I)
  190. 1740 C(I)=TE:NEXT:RETURN
  191. 1770 IFMID$(S$,S,1)="[193]"THENPRINT"[151]";
  192. 1780 IFMID$(S$,S,1)="[216]"THENPRINT"[151]";
  193. 1790 IFMID$(S$,S,1)="[211]"THENPRINT"";
  194. 1800 IFMID$(S$,S,1)="[218]"THENPRINT"";
  195. 1810 IFXQ=1THEN2510
  196. 1820 IF MID$(C$,C*2,2)="10"THEN1850
  197. 1830 PRINT""MID$(C$,C*2,1)"[146][183][208][157][157][157][165]"MID$(S$,S,1)"[167]";
  198. 1840 PRINT"[157][157][157][204][175]"MID$(C$,C*2,1)"[146] [145]";:GOTO1870
  199. 1850 PRINT""MID$(C$,C*2,2)"[146][208][157][157][157][165]"MID$(S$,S,1)"[167]";
  200. 1860 PRINT"[157][157][157][204]"MID$(C$,C*2,2)"[146][145]";
  201. 1870 REM  IFN>0THENSYSG,20,25:PRINT"[151]C-64[157][157][157][157]DRAWS
  202. 1880 [158]G,20,4:[153]"TOP  CARD ":[142]
  203. 1890 [129]I[178]1[164]3:[153]" ";:[130]:[153]"CMDCMDCMD   CMDCMDCMD";
  204. 1900 [129]I[178]1[164]3:[153][199](32);:[130]:[153]"CMDCMDCMD  CLOSECMDCMDCMD";
  205. 1910 [129]I[178]1[164]3:[153]" ";:[130]:[153]:[129]DW[178]1[164]50:[130]:[142]
  206. 1920 [129]T[178]10[164]12:[151]781,T:[158]59903:[130]:[158]G,11,2:[142]
  207. 1930 X[178]5:[129]T[178]1426[164]1461:[151]T,56:[151]T[170]V,X:X[178]X[170]1:[139]X[178]11[167]X[178]5
  208. 1940 [130]:R[178]1466:[129]T[178]1[164]2:[151]R,56:[151]R[170]V,X:[151]R[170]1,56:[151]R[170]1[170]V,56
  209. 1950 [151]R[170]34,56:[151]R[170]34[170]V,X:[151]R[170]35,56:[151]R[170]35[170]V,X[171]1:R[178]R[170]40:X[178]X[170]1
  210. 1960 [139]X[178]11[167]X[178]5
  211. 1970 [130]:[129]T[178]1544[164]1583:[151]T,56:[151]T[170]V,X:X[178]X[170]1:[139]X[178]11[167]X[178]5
  212. 1980 [130]:[129]T[178]1704[164]1743:[151]T,56:[151]T[170]V,X:X[178]X[170]1:[139]X[178]11[167]X[178]5
  213. 1990 [130]:R[178]1744:[129]T[178]1[164]6:[151]R,56:[151]R[170]V,X:[151]R[170]1,56:[151]R[170]1[170]V,56
  214. 2000 [151]R[170]38,56:[151]R[170]38[170]V,X:[151]R[170]39,56:[151]R[170]39[170]V,X[171]1:R[178]R[170]40:X[178]X[170]1
  215. 2010 [139]X[178]11[167]X[178]5
  216. 2020 [130]:[129]T[178]1984[164]2023:[151]T,56:[151]T[170]V,X:X[178]X[170]1:[139]X[178]11[167]X[178]5
  217. 2030 [130]:[158]G,11,8:[153]"FORKA-RAZY    (null)RIGHT$CMDCMDMID$(null)    EIGHT'S":[151]53265,27:[137]580
  218. 2050 [151]V[170]5,0:[151]V[170]6,240:[151]V[170]24,15
  219. 2060 [129]I[178]1[164]L:[129]D[178]1[164]20:[130]:[151]V,[187](1)[172]255:[151]V[170]1,[187](1)[172] 50[170]20:[151]V[170]4,17
  220. 2070 [129]D[178]1[164]80:[130]:[151]V[170]4,16:[130]:[129]I[178]V[164]V[170]23:[151]I,0:[130]:[142]
  221. 2080 [129]K[178]1[164]2:[129]M[178]30[164]1[169][171]1:[151]54296,M:[151]54296,1:[130]:[130]:[142]
  222. 2090 :[151]53281,0:[153]"LOAD";
  223. 2100 L[178]8:[141]2050:[129]J[178]1[164]4:[158]G,14,0:X[178]3:[153]" WIN !!!";
  224. 2110 [129]T[178]1[164]7:X[178]X[170]1:[151]646,X:[153]" ** YOU WIN!!!";:[139]X[178]8[167]X[178]3
  225. 2120 [130]:[153]"SYS * YOU WI"
  226. 2130 X[178]3:[158]G,14,0:[129]T[178]1[164]3:X[178]X[170]1:[151]646,X:[153]"8";:[151]646,X[170]1:[153]"8 ";
  227. 2140 [151]646,X[170]2:[153][166]34)" 8";:[151]646,X[170]3:[153]"8";:[130]:[129]D[178]1[164] 50:[130]
  228. 2150 [141]2280:[130]:L[178]6:[141]2050:[137]2280
  229. 2160 [129]J[178]1[164]4:[158]G,14,0:X[178]3:[153]"   WINS!!!";
  230. 2170 [129]T[178]1[164]7:X[178]X[170]1:[151]646,X:[153]" - C-64 WINS!!!";:[139]X[178]8[167]X[178]3
  231. 2180 [130]:[153]"SYS -":X[178]3
  232. 2190 [158]G,14,0:[129]T[178]1[164]3:X[178]X[170]1:[151]646,X:[153]"8";:[151]646,X[170]1:[153]"8 ";
  233. 2200 [151]646,X[170]2:[153][166]34)" 8";:[151]646,X[170]3:[153]"8";:[130]:[129]D[178]1[164]650:[130]
  234. 2210 [141]2080:[141]2280:[130]:[137]2280
  235. 2220 [129]J[178]1[164]4:[158]G,14,0:X[178]3:[153]"   A DRAW!!!";
  236. 2230 [129]T[178]1[164]6:X[178]X[170]1:[151]646,X:[153]" - IT'S A DRAW!!!";:[139]X[178]8[167]X[178]3
  237. 2240 [130]:[153]" - ":X[178]3
  238. 2250 [158]G,14,0:[129]T[178]1[164]3:X[178]X[170]1:[151]646,X:[153]"8";:[151]646,X[170]1:[153]"8 ";
  239. 2260 [151]646,X[170]2:[153][166]34)" 8";:[151]646,X[170]3:[153]"8";:[130]:[141]2050
  240. 2270 [141]2080:[141]2280:[130]:[137]2280
  241. 2280 X[178]4:[158]G,14,0:[129]T[178]1[164]3:[151]646,X
  242. 2290 [153]"88888888888 KA-RAZY  EIGHT'S 88888888888WAIT";:X[178]X[170]1:[139]X[178]9[167]X[178]3
  243. 2300 [130]:[129]D[178]1[164]300:[130]:[139]J[179][178]4[167][142]
  244. 2310 N[178]N[170]1:[139]N[177]3[167][158]G,15,9:[153]" * PLAY AGAIN   Y/N * ":L[178]2:[141]2050
  245. 2320 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]2280
  246. 2330 [139]G$[178]"Y"[167][138]
  247. 2340 [129]D[178]1[164]1E3:[130]
  248. 2350 K[178]2024:[129]P[178]1[164]5:K[178]K[171]1:[129]T[178]K[164]1024[169][171]6:[151]T,227
  249. 2360 [151]T[170]V,8:[130]:[130]:X[178]15
  250. 2370 K[178]2019:K[178]K[171]1:[129]T[178]K[164]1018[169][171]6:[151]T,227:[151]T[170]V,X:[130]
  251. 2380 [139]X[178]7[167]X[178]15:[137]2430
  252. 2390 X[178]7:[137]2430
  253. 2400 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]2370
  254. 2410 [139]G$[178]"Y"[167][138]
  255. 2420 [137]2460
  256. 2430 [153]""[166]12)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"[166]12);
  257. 2440 [153][166]12)"(null)CONTPLAY AGAIN Y/N(null)"[166]12);
  258. 2450 [153][166]12)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"[166]12);:[137]2400
  259. 2460 [153]""[166]12)"(null)BYE! BYE! THEN(null)":[141]2080:[128]
  260. 2470 [139][202](S$,S,1)[178]"ATN"[167][153]"POKE";
  261. 2480 [139][202](S$,S,1)[178]"(null)"[167][153]"POKE";
  262. 2490 [139][202](S$,S,1)[178]"(null)"[167][153]"DEF";
  263. 2500 [139][202](S$,S,1)[178]"(null)"[167][153]"DEF";
  264. 2510 [153]"(null)USR(null)CMDCMDCMDFN"[202](S$,S,1)"THEN";
  265. 2520 [153]"CMDCMDCMD(null)ANDSQR ON";
  266. 2530 [139]N[177]0[167][158]G,20,25:[153]"PRINT#C-64CMDCMDCMDCMDDRAWS
  267. 2540 SYSG,20,4:PRINT"TOP  CARD ":XQ=0:RETURN
  268.