home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SOLITAIRE-64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.6 KB  |  349 lines
  1. 1 POKE808,234:PRINT"[147]"
  2. 2 POKE49152,0
  3. 3 RE$(0)="            ":RE$(1)="3 [214][197][210][211][201][207][206][211]" :RR=0:J=5:PP=0
  4. 4 VR$(0)="       ":VR$(1)="[214][197][210][211][201][207][206]"
  5. 5 SS$="A23456789TJQK":KN=0
  6. 6 LT$=""
  7. 7 WN$(0)="       YOU WIN       "
  8. 8 WN$(1)="[144]      HIT A KEY      "
  9. 9 WN$(2)=" YOU WON BY CHEATING "
  10. 10 WN$(4)=" [144]STANDARD PLAY  "
  11. 11 WN$(5)="[144]LAS VEGAS STYLE "
  12. 12 R$="[218][211][193][216]":D$=""
  13. 13 IFYY=0THENGOSUB298:T=TI+180
  14. 14 IF T>TI THEN14
  15. 15 POKEV+21,0:PRINT"[147]"
  16. 16 DEFFNF(X)=X-INT(X)
  17. 17 DEFFNA(X)=INT(FNF(X/13)*13)
  18. 18 DIMA%(51),F%(6,6),D%(6,12),O(6,1),SH%(51)
  19. 19 O(1,0)=1:O(2,0)=2:O(3,0)=3:O(4,0)=4:O(5,0)=5:O(6,0)=6
  20. 20 GOSUB140:PRINT"[147]":A=RND(-TI):GOSUB259:POKE53280,1
  21. 21 IF PEEK(49152)=255 THEN FORX=0TO51:A%(X)=PEEK(49153+X):NEXTX:GOTO23
  22. 22 GOSUB55
  23. 23 Z=0:FORX=1TO6:FORY=1TOX:F%(X,Y)=A%(Z):Z=Z+1:NEXTY:NEXTX:H$=" "
  24. 24 FORX=0TO6:D%(X,0)=A%(Z):Z=Z+1:NEXTX:FORX=28TO51:H$=H$+CHR$(A%(X)):NEXTX
  25. 25 FORX=0TO6:E%(X)=1:NEXTX
  26. 26 PRINT"[147]":POKE53272,21
  27. 27 REM SET UP CARDS FACE DOWN/ 7PILES
  28. 28 PRINT"[145]  1    2    3    4    5    6    7"
  29. 29 PRINT"":FORX=1TO6:FORY=XTO6:PRINTTAB(Y*5)"[207][169][223][208] [157][157][157]";
  30. 30 NEXTY:PRINT:NEXTX
  31. 31 FORX=0TO6:F%(X,0)=X:NEXTX:FORB=21TO27:C=A%(B):P1=0:P2=0:P3=0:P=B-21
  32. 32 GOSUB58:NEXTB:HP=0:CH=0:CD=24
  33. 33 IFCD=0GOTO36
  34. 34 HP=HP+3:IFHP-3=CDGOTO178
  35. 35 IFHP>CDGOTO54
  36. 36 OO=O(1,0)+O(2,0)+O(3,0)+O(4,0)+O(5,0)+O(6,0)+CD:IFOO<1ANDUU=0THEN262
  37. 37 F=0:P=9:P2=0:C=ASC(MID$(H$,HP+1)):GOSUB58
  38. 38 REM KEYBOARD INPUT
  39. 39 GETI$
  40. 40 PRINTLEFT$(D$,23)LEFT$(LT$,27)"";
  41. 41 PRINTWN;:IFUU=1ANDWN>51THEN262
  42. 42 IFI$="" THEN293
  43. 43 IFI$="F"ORI$="[136]"ORI$="N"GOTO184
  44. 44 IFI$="H"ANDFNA(C)=1GOTO102
  45. 45 IFI$="[140]"THEN294
  46. 46 IFI$="[138]"GOTO106
  47. 47 IFI$="H"GOTO110
  48. 48 IFI$>"0"ANDI$<"8"GOTO114
  49. 49 IFI$="[137]"THEN339
  50. 50 IFI$="A"ANDFGOTO187
  51. 51 IFI$="C"GOTO228
  52. 52 IFI$="[139]"THENRR=1:GOTO270
  53. 53 GOTO39
  54. 54 HP=CD:GOTO36
  55. 55 A$=" ":FORX=1TO52:A$=A$+CHR$(X):NEXTX:A$=A$+" ":C=52
  56. 56 FORX=0TO51:Z=INT(RND(1)*C+1):A%(X)=ASC(MID$(A$,Z+1)):POKE49153+X,A%(X)
  57. 57 A$=LEFT$(A$,Z)+RIGHT$(A$,C-Z+1):C=C-1:NEXT:RETURN
  58. 58 CT=INT((C-1)/13):CN=C-CT*13:IFP>6GOTO68
  59. 59 D=1+F%(P,0)-P3+5*P1:L=P*5:IFP2GOTO67
  60. 60 IFP1THENPRINTLEFT$(D$,D)TAB(L+3)"^^^^"
  61. 61 ZZ$="":IF CT>1 THEN ZZ$="[144]"
  62. 62 PRINTLEFT$(D$,D+1)TAB(L+3);ZZ$;"[169][163][163][223]"
  63. 63 GOSUB95:PRINTTAB(L)ZZ$;"[165] ";
  64. 64 PRINTA$;ZZ$;"[167][157][157][157]":PRINTTAB(L+3);ZZ$"[165]"MID$(R$,CT+1,1)" [167]"
  65. 65 PRINTTAB(L+3);ZZ$"[223][146][164][164][169][146]":PRINTTAB(L+3)"    "
  66. 66 RETURN
  67. 67 PRINTLEFT$(D$,D-P1+1);:FORX=1TO5:PRINTTAB(L+3)"    ":NEXTX:RETURN
  68. 68 IFP=7GOTO86
  69. 69 PRINTLEFT$(D$,18)TAB(14)"[144]MOVE:"
  70. 70 PRINTLEFT$(D$,20)TAB(12)"[145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  71. 71 [153][163]12)"(null) # OF CARDS  ="CD"CMD "[163]31)"(null)"
  72. 72 [153][163]12)"(null) STOP# INTO HAND ="HP"CMD "[163]31)"(null)"
  73. 73 [139]GT[179][177]3[167][153][163]12)"(null) CHANGES     ="CH" (null)"
  74. 74 [139]GT[178]3[167][153][163]12)"(null) NO CHANGES  **** (null)"
  75. 75 [153][163]12)"(null) POINT CARDS =    (null)"
  76. 76 [153][163]12)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  77. 77 IFLEN(H$)=1THENHP=0:CD=0:RETURN
  78. 78 REM SET UP CARDS WHEN FLIPED
  79. 79 PRINTLEFT$(D$,25)"[144]VERSION #";PEEK(49210);"[145][145]"
  80. 80 GOSUB95:PRINTLEFT$(D$,20)TAB(33);ZZ$;"[169][163][163][223]"
  81. 81 IFP2GOTO85
  82. 82 PRINTTAB(33);ZZ$"[165] "A$"[167]"
  83. 83 PRINTTAB(33);ZZ$"[165]"MID$(R$,CT+1,1)" [167]":PRINTTAB(33);ZZ$"[223][146][164][164][169]"
  84. 84 RETURN
  85. 85 PRINT"[145]";:FORX=1TO4:PRINTTAB(33)"    ":NEXTX:RETURN
  86. 86 L=1-6*(FNF(CT/2)<>0)
  87. 87 D=15-5*(CT>1)
  88. 88 IFP2=0GOTO94
  89. 89 REM SET CARDS GOING TO ACE STACKS
  90. 90 GOSUB95:PRINTLEFT$(D$,D)TAB(L);ZZ$;"[169][163][163][223]":WN=WN+1: REM ACES HERE ******
  91. 91 PRINTTAB(L);ZZ$;"[165] "A$"[167]"
  92. 92 PRINTTAB(L);ZZ$;"[165]"MID$(R$,CT+1,1)" [167]":PRINTTAB(L);ZZ$;"[223][146][164][164][169]"
  93. 93 RETURN
  94. 94 PRINTLEFT$(D$,D);:FORX=1TO4:PRINTTAB(L)"    ":NEXTX:RETURN
  95. 95 IFCN=1GOTO98
  96. 96 IFCN>9GOTO99
  97. 97 A$=STR$(CN):A$=RIGHT$(A$,1):GOTO100
  98. 98 A$="A":GOTO100
  99. 99 B$="TJQK":A$=MID$(B$,CN-9,1)
  100. 100 ZZ$="":IFCT>1THEN ZZ$="[144]"
  101. 101 RETURN
  102. 102 PRINTLEFT$(D$,19)"[145]"TAB(19)"[144] H-A"
  103. 103 P=9:P2=1:GOSUB58:P=7:C=ASC(MID$(H$,HP+1)):GOSUB58:Q%(CT)=Q%(CT)+1
  104. 104 CD=CD-1:B$=LEFT$(H$,HP)+MID$(H$,HP+2):H$=B$:B$="":HP=HP-1:IFHP=0GOTO33
  105. 105 GOTO35
  106. 106 IFGT<>1GOTO36
  107. 107 IFCH=3GOTO39
  108. 108 B$=" "+MID$(H$,3)+MID$(H$,2,1):CH=CH+1:HP=0:H$=B$:B$=""
  109. 109 P=8:P2=1:GOSUB58:GOTO33
  110. 110 IFCD=0GOTO39
  111. 111 F=8
  112. 112 PRINTLEFT$(D$,19)"[144][145]"TAB(19)"     ":PRINT"[145]"TAB(20)I$"[144]-":IFF<>8GOTO203
  113. 113 GOTO39
  114. 114 IFFTHEN118
  115. 115 F=VAL(I$):IFE%(F-1)=0THEN228
  116. 116 K=D%(F-1,E%(F-1)-1):IFFNA(K)<>1GOTO112
  117. 117 PRINTLEFT$(D$,19)TAB(20)"[145][144]"I$"-A":GOTO187
  118. 118 G=VAL(I$)
  119. 119 IFF=8THEN222
  120. 120 GOTO209
  121. 121 IFE%(G-1)=0GOTO226
  122. 122 T1=D%(F-1,E%(F-1)-1):T2=D%(G-1,E%(G-1)-1):T3=T1+.1:T4=T2+.1
  123. 123 T3=FNA(T3):T4=FNA(T4):T3=T3-13*(T3=0)
  124. 124 T4=T4-13*(T4=0):IFT3+1<>T4GOTO228
  125. 125 IFT1>26ANDT2>26ORT1<27ANDT2<27GOTO228
  126. 126 PRINTLEFT$(D$,19)"[145][144]"TAB(22)I$:IFF=8GOTO181
  127. 127 S=D%(F-1,E%(F-1)-1)
  128. 128 E%(F-1)=E%(F-1)-1:P=F-1:P2=1:P1=-(E%(P)>0)
  129. 129 P3=0:GOSUB58:P=G-1:P1=1:GOSUB58
  130. 130 C=S:P2=0:P=G-1:P1=-1*(E%(G-1)>0):GOSUB58
  131. 131 E%(G-1)=E%(G-1)+1:D%(G-1,E%(G-1)-1)=S
  132. 132 IFE%(F-1)>1GOTO138
  133. 133 IFE%(F-1)=1GOTO36
  134. 134 IFF%(F-1,0)=0GOTO36
  135. 135 P=F-1:C=F%(F-1,F%(F-1,0)):P3=1:P2=0:P1=0:GOSUB58:F%(F-1,0)=F%(F-1,0)-1
  136. 136 O(F-1,0)=F%(F-1,0)
  137. 137 E%(F-1)=1:D%(F-1,0)=C:GOTO36
  138. 138 P=F-1:C=D%(F-1,E%(F-1)-1):P3=0:P2=0:P1=1:GOSUB58
  139. 139 E%(F-1)=E%(F-1)-1:GOTO36
  140. 140 IF PEEK(49152)=255 THENRETURN
  141. 141 POKE53280,6:POKE53281,1:POKE646,0
  142. 142 POKE53272,23
  143. 143 POKE53272,23:PRINT"[147]"
  144. 144 PRINT"[195][207][205][208]-[213]-[212][193][201][210][197]"
  145. 145 FORX=1TO40:PRINT"[178]";:NEXTX
  146. 146 FORX=1TO40:PRINT"[177]";:NEXTX:PRINT"[144]";
  147. 147 PRINT"[214]ERSION[160]# 1:[144][146] [217]OU ARE ALLOWED TO GO
  148. 148 [153]"THROUGH THE CARDS IN YOUR HAND ATN(null)CLOSE(null)ATN(null)(null)
  149. 149 PRINT"TIMES AS YOU WISH BEFORE MAKING A
  150. 150 [153]"LENLEFT$ATN(null)CHR$VAL. 3 LENLEFT$ATN(null)CHR$VAL(null) ARE ALLOWED.
  151. 151 PRINT"[214]ERSION # 2:[144][146] [193] [195][200][193][206][199][197] IS AUTOMATICALLY
  152. 152 [153]"TAKEN AT THE END OF EACH RUN THROUGH
  153. 153 PRINT"THE CARDS IN YOUR HAND. [212]HESE CARDS CAN
  154. 154 [153]"ONLY BE GONE THROUGH 3 TIMES ((null)WO
  155. 155 PRINT"[195][200][193][206][199][197][211]).
  156. 156 [153]"(null)ERSION # 3:STOPWAIT (null)HIS ONE CONSIDERS LENLEFT$ATN(null)CHR$VAL(null)
  157. 157 PRINT"AS CHEATING, NONE ARE ALLOWED, BUT YOU
  158. 158 [153]"MAY GO THROUGH THE CARDS IN YOUR HAND
  159. 159 PRINT"AS MANY TIMES AS YOU WISH.":PRINT
  160. 160 UU=0:PRINT"";
  161. 161 FORX=1TO40:PRINT"[178]";:NEXT
  162. 162 FORX=1TO40:PRINT"[177]";:NEXT:PRINT"[144]";
  163. 163 PRINTLEFT$(LT$,13)"[215][200][201][195][200]         ?"
  164. 164 KB=TI+20
  165. 165 GETI$:GT=VAL(I$):IFGT<1ORGT>3THEN167
  166. 166 GOTO172
  167. 167 IFKB-10<TIAND WW=0THENWW=1:GOTO164
  168. 168 IFKB<TIAND WW=1THENWW=0:GOTO164
  169. 169 POKE646,9
  170. 170 PRINT"         ";RE$(WW)
  171. 171 PRINTLEFT$(D$,24)LEFT$(LT$,19);"";VR$(WW):GOTO165
  172. 172 POKE49210,GT:IFYY=1THENRETURN
  173. 173 PRINT"[147][144][201]NSTRUCTIONS ?"
  174. 174 GETI$:IFI$=""THEN174
  175. 175 IF I$="Y"THEN232
  176. 176 IF I$="N"THEN RETURN
  177. 177 GOTO174
  178. 178 IFGT<>2THENHP=0:GOTO33
  179. 179 IFCH=2GOTO36
  180. 180 HP=0:GOTO108
  181. 181 P=9:P2=1:GOSUB58:P=G-1:P3=0:P2=1:P1=-1*(E%(P)<>0):GOSUB58
  182. 182 P2=0:GOSUB58
  183. 183 E%(P)=E%(P)+1:D%(P,E%(P)-1)=C:GOTO104
  184. 184 IFGT=2ANDCH=2ANDHP=CDGOTO36
  185. 185 IFGT=2ANDHP=CDGOTO107
  186. 186 P=9:P2=1:GOSUB58:GOTO33
  187. 187 PRINTLEFT$(D$,19)TAB(22)"[144][145]A":P=F-1:C=ASC(MID$(H$,HP+1,1))
  188. 188 IFF<8THENC=D%(P,E%(P)-1)
  189. 189 CT=INT((C-1)/13):CN=C-CT*13
  190. 190 IFCN-1<>Q%(CT)GOTO228
  191. 191 IFF=8GOTO197
  192. 192 P=F-1:P1=-(E%(P)>1):P2=1:P3=0:GOSUB58:P=7:C=D%(F-1,E%(F-1)-1)
  193. 193 P2=0:GOSUB58:P2=1
  194. 194 GOSUB58:Q%(CT)=Q%(CT)+1:E%(F-1)=E%(F-1)-1:IFE%(F-1)=1THEN36
  195. 195 IFE%(F-1)=0GOTO200
  196. 196 P=F-1:C=D%(P,E%(P)-1):P3=0:P2=0:P1=1:GOSUB58:GOTO36
  197. 197 P=9:P2=1:GOSUB58:P=7:P2=0:C=ASC(MID$(H$,HP+1)):GOSUB58
  198. 198 P2=1:GOSUB58
  199. 199 Q%(CT)=Q%(CT)+1:GOTO104
  200. 200 P=F-1:IFF%(P,0)=0GOTO36
  201. 201 C=F%(P,F%(P,0)):E%(P)=1:D%(P,0)=C:P3=1:P2=0:P1=0
  202. 202 GOSUB58:F%(P,0)=F%(P,0)-1:O(P,0)=F%(P,0):GOTO36
  203. 203 K=D%(F-1,0)+.1:IFFNA(K)ORF%(F-1,0)=0GOTO39
  204. 204 FORG=0TO6:IFNOT(F%(G,F%(G,0))=0ANDE%(G)=0)THENNEXTG:GOTO39
  205. 205 FORX=0TOE%(F-1)-1:D%(G,X)=D%(F-1,X):NEXT:E%(G)=E%(F-1):E%(F-1)=0
  206. 206 PRINTLEFT$(D$,19)TAB(20)"[144][145]"I$G+1"[157][157][157]-":P=F-1:F1=0:P3=0:P2=1:P1=0:GOSUB58
  207. 207 P1=1:GOSUB58:P=G:C=D%(G,0):P2=0:P1=0:GOSUB58:IFE%(G)=1GOTO218
  208. 208 C=D%(G,E%(G)-1):P1=1:GOSUB58:GOTO218
  209. 209 IFE%(G-1)=0GOTO121
  210. 210 T1=D%(F-1,0):T2=D%(G-1,E%(G-1)-1):T3=T1+.1:T4=T2+.1
  211. 211 T3=FNA(T3):T4=FNA(T4)
  212. 212 T3=T3-13*(T3=0):T4=T4-13*(T4=0):IFT3+1<>T4GOTO121
  213. 213 IFT1>26ANDT2>26ORT1<27ANDT2<27GOTO121
  214. 214 PRINTLEFT$(D$,19)TAB(22)"[144][145]"I$:P=F-1:P1=0:P2=1:P3=0:GOSUB58:P1=1:GOSUB58
  215. 215 FORX=0TOE%(F-1)-1:D%(G-1,E%(G-1)+X)=D%(F-1,X):NEXTX
  216. 216 E%(G-1)=E%(G-1)+E%(F-1):E%(F-1)=0
  217. 217 P=G-1:GOSUB58:C=D%(P,E%(P)-1):P3=0:P2=0:P1=1:GOSUB58:F1=0
  218. 218 IFF%(F-1,0)=0GOTO36
  219. 219 P=F-1:C=F%(P,F%(P,0)):P3=1:P2=0:P1=0:GOSUB58:F%(P,0)=F%(P,0)-1
  220. 220 O(P,0)=F%(P,0)
  221. 221 D%(P,0)=C:E%(P)=1:GOTO36
  222. 222 PRINTLEFT$(D$,19)TAB(22)"[144][145]"I$:IFE%(G-1)=0GOTO224
  223. 223 T1=ASC(MID$(H$,HP+1)):T2=D%(G-1,E%(G-1)-1):T3=T1+.1:T4=T2+.1:GOTO123
  224. 224 K=ASC(MID$(H$,HP+1)):IFFNA(K)GOTO228
  225. 225 GOTO181
  226. 226 K=D%(F-1,E%(F-1)-1):IFFNA(K)GOTO228
  227. 227 GOTO126
  228. 228 F1=0:PRINTLEFT$(D$,18)TAB(19)"     [145]":GOTO36
  229. 229 FORX=1TO6:FORY=1TOX:C=D%(X,Y):P=0:P3=0:P2=0:P1=1:GOSUB58
  230. 230 GETI$:IFI$=""THEN230
  231. 231 NEXT:NEXT
  232. 232 REM GAME KEYS
  233. 233 PRINT"[147]":POKE53281,1:POKE53280,5
  234. 234 PRINT"              [195][207][205][208]-[213]-[212][193][201][210][197][144]"
  235. 235 PRINT"[212]HE KEYS CHOOSEN ARE THE FIRST LETTER OFTHE FUNCTION.":PRINT
  236. 236 PRINT"[212]O FLIP THREE CARDS, TYPE '[198][144]' OR '[206][144]' OR '[198]7[144]'.":PRINT
  237. 237 PRINT"[212]O PICK A CARD FROM A [208][201][204][197] USE THE      NUMBERS FROM '1[144]' TO '7[144]'.
  238. 238 [153]:[153]"(null)O MOVE A CARD FROM LEFT$ATN(null)STR$ TO A (null)RIGHT$(null)VAL USE  'LEFT$STOP'";
  239. 239 [153]" AND THE NUMBER OF A (null)RIGHT$(null)VAL.":[153]
  240. 240 [153]"(null)O MOVE FROM LEFT$ATN(null)STR$ TO ATNCES, TYPE 'LEFT$STOP' AND THE CARD WILL MOVE ITSELF."
  241. 241 [153]:[153]"(null)O MOVE FROM A (null)RIGHT$(null)VAL TO AN ATNCE, USE (null)RIGHT$(null)VAL NUMBER AND 'ATNSTOP'.
  242. 242 PRINT:PRINT"[212]O MOVE [208][201][204][197] TO [208][201][204][197] USE NUMBER FROM ANDNUMBER TO.
  243. 243 [153]:[153]"        LEFT$RIGHT$(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL"
  244. 244 [161]EE$:[139] EE$[178]""[167]244
  245. 245 [153]"LOAD(null)O ROTATE LEFT$ATN(null)STR$ BY ONE CARD, USE 'ASC4STOP'    (SHIFTED ASC3).  ";
  246. 246 [153]"(null)HIS WILL ONLY WORK FOR ";
  247. 247 [153]" VERSIONS ONE AND TWO."
  248. 248 [153]:[153]"(null)O START A NEW GAME USE 'ASC2STOP',           ((null)HIFTED ASC1).
  249. 249 PRINT:PRINT"[212]O CLEAR AN INPUT TYPE  '[195][144]'."
  250. 250 PRINT:PRINT"[212]O SEE ALL CARDS, TYPE '[198]6[144]' (SHIFTED [198]5)[212]HIS IS CONSIDERED ";
  251. 251 PRINT"CHEATING AND THE     SCREEN WILL TURN RED INDICATING THIS"
  252. 252 PRINT"FUNCTION WAS USED."
  253. 253 PRINT:PRINT"[208]LAY [204]AS [214]EGAS STYLE,'[198]8[144]' (SHIFTED [198]7). [201]N ";
  254. 254 PRINT"[204]AS [214]EGAS STYLE [211]OLITAIRE ALL CARDS  MUST BE ON [193]CES TO WIN. [201]F NOT";
  255. 255 PRINT" CHOSEN":PRINT"A WIN WILL SHOW WHEN ALL CARDS ARE      TURNED UP."
  256. 256 PRINT:PRINT"           [200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][211][212][193][210][212]"
  257. 257 GETEE$:IF EE$=""THEN257
  258. 258 RETURN
  259. 259 POKE53281,1:POKE53280,1 :PRINTCHR$(14)
  260. 260 PRINT"?[147][144] [208]LEASE [215]AIT, [201]'M SETTING UP THE CARDS"
  261. 261 RETURN
  262. 262 A=0:IFRR=1THENA=2:WW=2
  263. 263 KB=TI+40
  264. 264 GETI$:IFI$=""THEN266
  265. 265 GOTO269
  266. 266 IFKB<TIAND WW=ATHENWW=1:GOTO263
  267. 267 IFKB<TIAND WW=1THENWW=A:GOTO263
  268. 268 PRINT"";TAB(10);WN$(WW):GOTO264
  269. 269 CLR:YY=1:GOTO3
  270. 270 PRINT"";:POKE53280,2
  271. 271 FORX=1TO24
  272. 272 PRINTLEFT$(LT$,37);"  ":NEXT:PRINT"";
  273. 273 IFCD<1THEN WW=2:GOTO285
  274. 274 FORX=2TOCD+1
  275. 275 O=ASC(MID$(H$,X,1))
  276. 276 GOSUB277:NEXTX:WW=2:GOTO285
  277. 277 IFO>0ANDO<14  THENTP$="[218]":PRINT"";:GOTO282
  278. 278 IFO>13ANDO<27 THENTP$="[211]":O=O-13:PRINT"";:GOTO282
  279. 279 IFO>26ANDO<40 THENTP$="[144][193]":O=O-26:PRINT"[144]";:GOTO282
  280. 280 IFO>39ANDO<53 THENTP$="[144][216]":O=O-39:PRINT"[144]";:GOTO282
  281. 281 IFO=0 THEN RETURN
  282. 282 IFWW=2THENRETURN
  283. 283 PRINTLEFT$(LT$,37);MID$(SS$,O,1);TP$
  284. 284 RETURN
  285. 285 V=0:L=9:D=2:FORX=1TO6
  286. 286 IFF%(X,0)=0 THEN290
  287. 287 Z=F%(X,0):FOR Y=1TOZ:O=F%(X,Y)
  288. 288 GOSUB277:PRINTLEFT$(D$,D+V);LEFT$(LT$,L+LK);MID$(SS$,O,1);TP$;"[145]":V=V+1
  289. 289 NEXTY
  290. 290 L=L+5:V=0:NEXTX:WW=0
  291. 291 GOTO39
  292. 292 REM STYLE OF PLAY MARKER
  293. 293 IFPP=1THEN39
  294. 294 IFJ=5THENJ=4:UU=0:PP=1:GOTO296
  295. 295 IFJ=4THENJ=5:UU=1:PP=1:GOTO296
  296. 296 PRINTLEFT$(D$,25)LEFT$(LT$,14)WN$(J)"[145][145]":GOTO39
  297. 297 REM SET UP SPRITES/COPYRIGHT
  298. 298 FORX=0TO63:READY:POKE832+X,Y:NEXT
  299. 299 FORX=0TO63:READY:POKE896+X,Y:NEXT
  300. 300 POKE53281,1:POKE53280,1
  301. 301 POKE53272,21
  302. 302 PRINT"[147]"
  303. 303 V=53248:POKE2042,14:POKE2041,13
  304. 304 POKEV+23,6:POKEV+29,6
  305. 305 POKEV+41,11:POKEV+40,6
  306. 306 GOSUB321
  307. 307 RETURN
  308. 308 DATA 0,0,0,0,0,0,0,255,0,1,129
  309. 309 DATA 128,3,0,128,3,0,0,3,0,0
  310. 310 DATA 3,0,128,1,129,128,0,255,0,0
  311. 311 DATA 0,0,0,255,0,1,129,128,3,0
  312. 312 DATA 128,3,0,0,3,0,0,3,0,128
  313. 313 DATA 1,129,128,0,255
  314. 314 DATA 0,0,0,0,0,0,0,0,1,255,192
  315. 315 DATA 0,28,0,0,28,0,0,28,0,0
  316. 316 DATA 28,0,0,28,0,0,28,0,0,28
  317. 317 DATA 0,0,28,0,0,28,0,0,28,0
  318. 318 DATA 0,28,0,0,28,0,0,28,0,0
  319. 319 DATA 28,0,0,28,0,0,28,0,0,28
  320. 320 DATA 0,0,28,0,0,28,0,1,255,192,0
  321. 321 POKEV+21,6:X=20
  322. 322 FORY=1TO200:Z=Z+1:IFZ=4 THENZ=0:X=X+1
  323. 323 POKEV+2,X:POKEV+3,Y:NEXT
  324. 324 FORY=200TO60 STEP-1:Z=Z+1:IFZ=4 THENZ=0:X=X+1
  325. 325 POKEV+2,X:POKEV+3,Y:NEXT
  326. 326 PRINTLEFT$(D$,4)LEFT$(LT$,17)"[144]COMMONWEALTH"
  327. 327 PRINTLEFT$(D$,6)LEFT$(LT$,17)"[144]COMPUTERS"
  328. 328 FORY=200TO60STEP-1
  329. 329 POKEV+4,104:POKEV+5,Y
  330. 330 NEXT
  331. 331 PRINTLEFT$(D$,6)LEFT$(LT$,26)",INC"
  332. 332 PRINTLEFT$(D$,10)LEFT$(LT$,16)"PRESENTS"
  333. 333 PRINTLEFT$(D$,12)LEFT$(LT$,13)"[193][211][144][216][218][144][193][211][144][216][218][144][193][211][144][216][218][144][193][211]"
  334. 334 PRINTLEFT$(D$,13)LEFT$(LT$,14)"[144]COMP-U-TAIRE"
  335. 335 PRINTLEFT$(D$,14)LEFT$(LT$,13)"[193][211][144][216][218][144][193][211][144][216][218][144][193][211][144][216][218][144][193][211]"
  336. 336 PRINTLEFT$(D$,18)LEFT$(LT$,14)"BY RICK WEST"
  337. 337 PRINTLEFT$(D$,21)LEFT$(LT$,13)"COPYRIGHT 1983":GOSUB346
  338. 338 RETURN
  339. 339 PRINT"[147]":PRINTLEFT$(D$,11)LEFT$(LT$,7);
  340. 340 PRINT"[144]WANT TO PLAY THE SAME HAND ?"
  341. 341 GET I$:IF I$=""THEN341
  342. 342 IF I$="N" THENPOKE49152,0:GOTO345
  343. 343 IF I$="Y"THENPOKE49152,255:GOTO345
  344. 344 GOTO339
  345. 345 CLR:YY=1:PRINT"[147]":GOTO3
  346. 346 PRINT"   RELEASED TO THE PUBLIC DOMAIN ON"
  347. 347 PRINT"   JANUARY 03,1986 * ALL COMMERCIAL"
  348. 348 PRINT"   RIGHTS ARE RESERVED.":RETURN
  349.