home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / UNO.SDA / UNO (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  11.6 KB  |  364 lines

  1. 5 PRINT"":PRINTCHR$(142):DIMNM$(12):DIMN(12)
  2. 10 POKE53281,0:POKE53280,0:GOSUB3050:GOSUB3470
  3. 20 PRINT"[144]";TAB(3);K$;", PRESS ANY KEY TO PLAY"
  4. 21 GETC$:IFC$=""THENGOTO21
  5. 30 PRINT"[147]";:POKE53280,0:POKE53281,0
  6. 50 DIMCC(100):DIMCP(100):C1=8:C2=8
  7. 70 PRINT"":FORX=1TO16:PRINT"";:NEXT
  8. 90 PRINT"              DISCARD PILE"
  9. 110 FORX=17TO24:PRINT"";:NEXT:PRINT"             ";K$;"'S CARDS"
  10. 130 PRINT" JOYSTICK OR CURSOR TO MOVE, * TO QUIT"
  11. 140 PRINT"[158]         MATCH ME IF YOU CAN"
  12. 141 PRINT" STICK DOWN AND FIRE OR 'D' TO DRAW CARD"
  13. 150 FORCT=1TOC1
  14. 170 GOSUB 710
  15. 190 CC(CT)=Z
  16. 210 NEXT:GOSUB 2010
  17. 230 FORCT=1TOC2
  18. 250 GOSUB 710
  19. 270 CP(CT)=Z
  20. 290 NEXT:GOSUB2130
  21. 310 GOSUB 710:IFZ>100 THEN GOTO310
  22. 330 D=Z
  23. 350 PRINT"";
  24. 370 PD=D:GOSUB 990
  25. 390 PRINT"                                       "
  26. 410 PRINT"                ";NM$(11);"'S TURN"
  27. 430 C=1:GOSUB2850:POKE53280,2:GOSUB830
  28. 450 IF C2=0 THEN GOTO 2890
  29. 470 IF GA=1 THEN GA=0:GOTO 390
  30. 490 PRINT"                                       "
  31. 510 PRINT"              COMPUTER'S TURN":POKE53280,6
  32. 530 IF TT=1 THEN GOSUB710:C1=C1+1:CC(C1)=Z:GOSUB2010:GOSUB710:C1=C1+1
  33. 550 IFTT=1 THENTT=0:CC(C1)=Z:GOSUB2010
  34. 570 GOSUB2850:POKE53280,6
  35. 590 GOSUB 2250
  36. 610 IF C1=0 THEN K$="COMPUTER":NM$(11)="COMPUTER":GOTO2890
  37. 630 IF GA=1 THEN GA=0:GOTO490
  38. 650 IF TT=1 THEN GOSUB710:C2=C2+1:CP(C2)=Z:GOSUB2130:GOSUB710:C2=C2+1
  39. 670 IFTT=1 THENTT=0:CP(C2)=Z:GOSUB2130
  40. 690 GOTO 390
  41. 710 W=INT(RND(1)*4):REM TYPE
  42. 730 X=INT(RND(1)*4)+1:REM COLOR
  43. 750 Y=INT(RND(1)*9)+1:REM NUMBER
  44. 770 IFW>OANDY/2<>INT(Y/2)THENW=W-1
  45. 790 Z=Y+(X*10)+(W*100)
  46. 810 RETURN
  47. 830 DM=1:PRINT"";:FORTC=1TOC2
  48. 831 IFTC=1 THEN GOTO835
  49. 833 PRINT"[157][157][157][157][145][145][145][145]";:    REM   PRINT"[145][145][145][145][157][157][157][157] [157] [157] [157] [157] [145][145][145][145]";
  50. 835 PD=CP(TC):GOSUB990
  51. 839 NEXT:C=1
  52. 840 PRINT"^[157]";
  53. 841 J=PEEK(56320):GETB$:IFB$="*"THEN GOSUB4000
  54. 842 IF(J=119ORB$="")ANDC<C2THENC=C+1:PD=CP(C):PRINT"  ^[157]";
  55. 843 IF(J=123ORB$="[157]")ANDC>1THENC=C-1:PD=CP(C):PRINT" [157][157][157]^[157]";
  56. 844 IF(J=111ORB$=CHR$(13)) THENRT=1:DM=0:GOSUB1370:IFRT=0THEN DM=0:RETURN
  57. 845 IF J=109 OR B$="D"THEN W=4:GOTO1370
  58. 846 GOTO 841
  59. 849 PRINT"";:PD=CP(1):C=1
  60. 850 GOSUB 990
  61. 870 PRINT"";
  62. 890 J=PEEK(56320):GETB$:IFB$="*"THENGOSUB4000
  63. 910 IFJ=119ANDC<C2+1THENC=C+1:PD=CP(C):GOSUB990
  64. 930 IFJ=123ANDC>1THENC=C-1:PD=CP(C):GOSUB990
  65. 950 IFJ=111 THENRT=1:DM=0:GOSUB1370:IFRT=0THEN DM=0:RETURN
  66. 970 GOTO 870
  67. 990 IF PD=0 THEN PD=400
  68. 1010 W=(INT(PD/100))
  69. 1030 X=(INT((PD-(W*100))/10))
  70. 1050 Y=(PD-(W*100)-(X*10)):IFCH=1THENRETURN
  71. 1070 IF X=1 THEN PRINT"";
  72. 1090 IF X=2 THEN PRINT"";
  73. 1110 IF X=3 THEN PRINT"[158]";
  74. 1130 IF X=4 THEN PRINT"";
  75. 1150 IF W>=3 THEN PRINT"[151]";
  76. 1170 IF PD=400 THEN PRINT"[146]";
  77. 1190 IFDM=.THENPRINT"";
  78. 1210 PRINT"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [145][145][145][145][157][157][157][157][157]";
  79. 1220 IFPD<100THENM$=RIGHT$(STR$(Y),1)
  80. 1230 IFPD>99THEN1245
  81. 1235 PRINTM$""M$"[157][157][157]"M$"[157][157][157]"M$""M$"";
  82. 1237 IF(DM=.)OR(TC=C2)THEN1250
  83. 1240 PRINT"[145][145][145][145][157][157][157][157][157][167]   [157][157][157][157][167]   [157][157][157][157][167]   [157][157][157][157][167]   [157][157][157][157][167]   ";
  84. 1245 IF(DM=.)OR(TC=C2)THEN1280
  85. 1250 IF W=1 THEN PRINT"G[167][157][157]O[167][157][167][157][157]G[167][157][157]O[167][145][145][145][145]G[157]O[157]G[157]O[146]";
  86. 1260 IF W=2 THEN PRINT"D[167][157][157]R[167][157][157]A[167][157][157]W[167][157][157]2[167][145][145][145][145]D[157]R[157]A[157]W[157]2[146]";
  87. 1270 IF W=3 THEN PRINT"W[167][157][157]I[167][157][157]L[167][157][157]D[167][157][167][145][145][145][145]W[157]I[157]L[157]D[146]";
  88. 1275 GOTO 1310
  89. 1280 IF W=1 THEN PRINT"G [157][157]O [157] [157][157]G [157][157]O [145][145][145][145]G[157]O[157]G[157]O[146]";
  90. 1290 IF W=2 THEN PRINT"D [157][157]R [157][157]A [157][157]W [157][157]2 [145][145][145][145]D[157]R[157]A[157]W[157]2[146]";
  91. 1300 IF W=3 THEN PRINT"W [157][157]I [157][157]L [157][157]D [157][145][145][145][145]W[157]I[157]L[157]D[146]";
  92. 1310 IF W=4 THEN PRINT"PICK[157][157][157][157]A   [157][157][157][157]CARD"
  93. 1330 PRINT"[146]";:RETURN
  94. 1370 IFW=4 THEN RT=0:GOTO 1670
  95. 1390 IFCP(C)>=300ANDCP(C)<400THENRT=0:GOTO1530
  96. 1410 CH=1:PD=(CP(C)):GOSUB 1010:WW=W:XX=X:YY=Y
  97. 1430 PD=D:GOSUB 1010:CH=0
  98. 1431 POKE896,W:POKE897,X:POKE898,Y:POKE899,WW:POKE900,XX:POKE901,YY
  99. 1432 IF(W<>WW AND X<>XX AND Y<>YY)THEN GOTO1730
  100. 1433 IFW=0THENIF(W=WW)AND((Y<>YY)AND(X<>XX))THEN GOTO 1730
  101. 1434 IFW<>WW AND X<>XX AND Y=YYTHEN GOTO1730
  102. 1450 IFW>=1ANDW=WWORX=XXTHENRT=0:GOTO1510
  103. 1470 IFW=0ANDY=YYTHENRT=0:GOTO1510
  104. 1490 GOTO 1730
  105. 1510 PRINT"";:FORCT=1TO8:PRINT"                             ";
  106. 1511 PRINT"          ":NEXT
  107. 1530 PD=CP(C):D=PD:PRINT"";:GOSUB1010
  108. 1550 RT=0:CH=0
  109. 1570 CH=0:CP(C)=0:GOSUB2130:C2=C2-1
  110. 1590 IFW=3 THENXG=0:GOSUB 1770:D=(300+(X*10)):GA=0:GOTO1650
  111. 1610 IF WW=1THENGA=1
  112. 1630 IFWW=2THENTT=1
  113. 1650 RT=0:RETURN
  114. 1670 C2=C2+1:GOSUB710:CP(C2)=Z:RT=0:GOSUB 2130
  115. 1690 PRINT"";:FORCT=1TO8:PRINT"                             ";
  116. 1691 PRINT"          ":NEXT
  117. 1710 C=1:CH=0:RETURN
  118. 1730 PRINT" ^[157]";:PD=CP(1):C=1
  119. 1750 RT=1:RETURN:GOSUB 990:RETURN
  120. 1770 PRINT"[158]COLOR OF WILD CARD[146]"
  121. 1790 W=0:X=1:PD=101
  122. 1810 PRINT"";:GOSUB1070
  123. 1830 PRINT"";
  124. 1850 J=PEEK(56320):GETB$:E$=CHR$(13)
  125. 1870 IF(J=119ORB$="")ANDX<4THENX=X+1:GOSUB 1070
  126. 1890 IF(J=123ORB$="[157]")ANDX>1THENX=X-1:GOSUB1070
  127. 1910 IF(J=111ORB$=E$)ANDXG>10THEN W=3:PRINT"";:GOSUB1190:GOTO1950
  128. 1930 XG=XG+1:GOTO 1830
  129. 1950 PRINT"                              "
  130. 1970 PRINT"";:FORCT=1TO8:PRINT"                             ";
  131. 1971 PRINT"          ":NEXT
  132. 1990 RETURN
  133. 2010 FORY=1TOC1-1
  134. 2030 FORZ=Y+1TOC1
  135. 2050 IFCC(Y)>=CC(Z)THENGOTO 2090
  136. 2070 S=CC(Z):CC(Z)=CC(Y):CC(Y)=S
  137. 2090 NEXT Z
  138. 2110 NEXT Y:RETURN
  139. 2130 FORY=1TOC2-1
  140. 2150 FORZ=Y+1TOC2
  141. 2170 IFCP(Y)>=CP(Z)THENGOTO 2210
  142. 2190 S=CP(Z):CP(Z)=CP(Y):CP(Y)=S
  143. 2210 NEXT Z
  144. 2230 NEXT Y:RETURN
  145. 2250 WO=1:PRINT"                        [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  146. 2270 A=INT(D/100)
  147. 2290 B=INT((D-(A*100))/10)
  148. 2310 C=D-(A*100)-(B*10)
  149. 2330 FORCT=1TOC1
  150. 2350 AA=INT(CC(CT)/100)
  151. 2370 BB=INT((CC(CT)-(AA*100))/10)
  152. 2390 CJ=CC(CT)-(AA*100)-(BB*10)
  153. 2410 IFAA>=1ANDAA=AORBB=BTHENGOTO2510
  154. 2430 IFAA=0ANDCJ=CTHENPD=1:GOTO2510
  155. 2450 NEXT
  156. 2470 PRINT"[159]  COMPUTER DREW A CARD"
  157. 2490 C1=C1+1:GOSUB710:CC(C1)=Z:GOSUB 2010:RETURN
  158. 2510 PRINT"";
  159. 2530 IFAA=1THENGA=1
  160. 2550 IFAA=2THENTT=1
  161. 2570 D=CC(CT):CC(CT)=0:GOSUB2010:C1=C1-1
  162. 2590 PRINT"[146]";
  163. 2610 IFBB=1 THEN PRINT"";
  164. 2630 IFBB=2 THEN PRINT"";
  165. 2650 IFBB=3 THEN PRINT"[158]";
  166. 2670 IFBB=4 THEN PRINT"";
  167. 2690 E=CJ:PRINT"";
  168. 2710 PRINT"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [145][145][145][145][157][157][157][157][157][157]";
  169. 2730 IF AA=0 THEN PRINTE;"";E;"[157][157][157][157][157]";E;"[157][157][157][157][157]";E;"";E;"[144][157][157][157][157][157][157][157] [145][145][145][145][157] [146]"
  170. 2750 IFAA=1 THEN PRINT"G[157]O[157]G[157]O[145][145][145][145]G[157]O[157]G[157]O[146]"
  171. 2770 IFAA=2 THEN PRINT"D[157]R[157]A[157]W[157]2[145][145][145][145]D[157]R[157]A[157]W[157]2[146]"
  172. 2790 IFAA=3 THEN PRINT"W[157]I[157]L[157]D[157][145][145][145][145]W[157]I[157]L[157]D[146]"
  173. 2810 IFW=4 THEN PRINT"PICK[157][157][157][157]A   [157][157][157][157]CARD"
  174. 2830 RETURN
  175. 2850 PRINT"[156]COMPUTER HAS";C1;"[157] CARDS LEFT  "
  176. 2870 PRINT"";K$;" HAS";C2;"[157] CARDS LEFT  "
  177. 2875 IF C1>=18 THEN C2=0:GOTO2890
  178. 2876 IF C2>=18 THEN C1=0:K$="COMPUTER":NM$(11)="COMPUTER":GOTO2890
  179. 2877 RETURN
  180. 2890 PRINT"[147][156]";K$
  181. 2910 PRINT"IS THE WINNER":FORX=0TO98:POKE53280,X:NEXT:GOSUB5000
  182. 2919 PRINT"WITH ";SC;" POINTS"
  183. 2920 IFSC>=HSTHEN PRINT"!!!!!THIS MAKES IT INTO THE TOP TEN!!!!!":JU=1
  184. 2921 IF JU=0THENPRINT"     SORRY, THIS IS NOT A TOP SCORE":GOTO 2930
  185. 2922 PRINT"[159]      PRESS ANY KEY TO CONTINUE"
  186. 2924 GETQ$:IFQ$=""THEN GOTO2921
  187. 2925 IFJU=1THENJU=0:PRINT"[147]":POKE53281,15:POKE53280,15:GOSUB3370
  188. 2930 PRINT:PRINT" WOULD YOU LIKE TO PLAY AGAIN? (Y OR N)"
  189. 2950 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2950
  190. 2960 IF A$="Y"THEN CLR:RUN
  191. 2970 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
  192. 2980 INPUT#15,ER%:CLOSE15:IFER%<>63THENEND
  193. 2990 LOAD"HELLO CONNECT",8
  194. 3050 PRINTTAB(13)"[147]                   UNO"
  195. 3070 PRINTTAB(10)"(MATCH ME IF YOU CAN)
  196. 3140 [153]"    ENTER YOUR NAME ->";:[141]6000:NM$(11)[178]K$
  197. 3230 [153][163]10)"INSTRUCTIONS? SYS(Y / N)"
  198. 3270 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]3270
  199. 3290 [139]A$[178]"Y"[167][141]3710
  200. 3310 [142]
  201. 3350 [143] *** SCORES ***
  202. 3370 [159]2,8,2,"@0:SCORES,S,W"
  203. 3390 C$[178][199](13):[129] X[178]1[164]10
  204. 3430 [152]2,NM$(X)","[196](N(X))C$
  205. 3450 [130]:[160]2
  206. 3470 [151]53281,12:[151]53280,12
  207. 3480 [153]"LOADSTOP              HIGH SCORES"
  208. 3490 [153]"":[159]2,8,2,"0:SCORES,S,R"
  209. 3510 [129]X[178]1[164]10
  210. 3530 [132]2,NM$(X),N(X)
  211. 3550 [153]"STOP";:[129]Y[178]1[164]X:[153]"";:[130]:[153][163]7);
  212. 3570 [139] X[178]10 [167] [153]"CMD";
  213. 3590 [153]X;"CMD. ";NM$(X);
  214. 3610 [153]"STOP";:[129]Y[178]1[164]X:[153]"";:[130]:[153][163]23)N(X);
  215. 3630 [130]:[160]2:HS[178]N(X[171]1)
  216. 3690 [142]
  217. 3710 [143] *** INSTRUCTIONS ***
  218. 3715 [151]53281,15:[151]53280,15
  219. 3720 [153]"LOADSTOPTHE OBJECT OF THIS GAME IS TO GET RID"
  220. 3725 [153]"OF ALL OF YOUR CARDS BEFORE THE COMPUTER"
  221. 3727 [153]"GETS RID OF ITS CARDS.  ALSO, IF YOU"
  222. 3728 [153]"COLLECT 18 CARDS, YOU LOSE. TO DISCARD,"
  223. 3729 [153]"YOU MUST BE ABLE TO MATCH EITHER THE"
  224. 3731 [153]"TYPE, NUMBER, OR COLOR OF THE TOP CARD"
  225. 3733 [153]"IN THE DISCARD PILE.  FOR EXAMPLE, YOU"
  226. 3735 [153]"COULD PUT A RED '7' ON A RED 'GO' CARD."
  227. 3738 [153]"  PRESS ANY KEY OR FIRE TO CONTINUE"
  228. 3740 J[178][194](56320):[161]Q$:[139]((J[178]111)[176](Q$[179][177]""))[167] [137]3742
  229. 3741 [137]3740
  230. 3742 [153]"LOADSTOPTHERE ARE FOUR TYPES OF CARDS IN THE"
  231. 3745 [153]"DECK.  THEY ARE:"
  232. 3746 [153]"     1) NUMBER CARDS
  233. 3747 PRINT"     2) GO CARDS"
  234. 3748 PRINT"     3) DRAW TWO CARDS"
  235. 3749 PRINT"     4) WILD CARDS"
  236. 3750 PRINT"1) TO PLAY A NUMBER CARD, THE TOP CARD"
  237. 3752 PRINT"IN THE DISCARD PILE MUST EITHER BE THE"
  238. 3754 PRINT"SAME NUMBER OR THE SAME COLOR AS THE"
  239. 3756 PRINT"CARD YOU WISH TO PLAY."
  240. 3758 PRINT"  PRESS ANY KEY TO CONTINUE READING"
  241. 3760 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THEN GOTO3762
  242. 3761 GOTO3760
  243. 3762 PRINT"[147][144]2) TO PLAY A GO CARD, THE TOP CARD IN"
  244. 3764 PRINT"THE DISCARD PILE MUST BE THE SAME"
  245. 3766 PRINT"COLOR AS THE GO CARD YOU WISH TO PLAY"
  246. 3768 PRINT"OR BE A DIFFERENT COLOR GO CARD."
  247. 3769 PRINT"YOU TAKE ANOTHER TURN IMMEDIATELY AFTER"
  248. 3770 PRINT"YOU PLAY A GO CARD."
  249. 3771 PRINT"3) TO PLAY A DRAW TWO CARD, THE TOP CARD"
  250. 3772 PRINT"IN THE DISCARD PILE MUST BE THE SAME"
  251. 3774 PRINT"COLOR AS THE DRAW TWO CARD YOU WISH TO"
  252. 3776 PRINT"PLAY, OR BE A DIFFERENT COLOR DRAW TWO"
  253. 3778 PRINT"CARD.":PRINT"  PRESS ANY KEY OR FIRE TO CONTINUE"
  254. 3779 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3781
  255. 3780 GOTO 3779
  256. 3781 GOSUB3900:PRINT"[147][144]WHEN YOU PLAY A DRAW TWO CARD, THE"
  257. 3782 PRINT"COMPUTER WILL TAKE 2 CARDS AND THEN TAKE"
  258. 3783 PRINT"ITS TURN.  WHEN THE COMPUTER PLAYS A"
  259. 3784 PRINT"DRAW TWO CARD, YOU WILL BE DEALT TWO "
  260. 3786 PRINT"CARDS AND THEN IT WILL BE YOUR TURN."
  261. 3788 PRINT"  PRESS ANY KEY OR FIRE TO CONTINUE"
  262. 3789 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3792
  263. 3790 GOTO 3789
  264. 3792 PRINT"[147][144]AT THE BEGINNING OF THE GAME, YOU"
  265. 3793 PRINT"WILL SEE A DISCARD PILE IN THE MIDDLE"
  266. 3794 PRINT"OF THE SCREEN AND THE EIGHT CARDS YOU"
  267. 3796 PRINT"WERE DEALT AT THE BOTTOM OF THE SCREEN."
  268. 3798 PRINT"YOUR CARDS WILL BE STACKED UP SO YOU"
  269. 3800 PRINT"WILL ONLY SEE THE LEFT SIDE OF ALL OF"
  270. 3802 PRINT"THE CARDS EXCEPT FOR THE TOP CARD."
  271. 3804 PRINT"TO SELECT A CARD TO PLAY, MOVE THE"
  272. 3806 PRINT"POINTER USING EITHER THE CURSOR BUTTONS"
  273. 3808 PRINT"OR THE JOYSTICK (PORT #2)."
  274. 3810 PRINT"  PRESS ANY KEY OR FIRE TO CONTINUE"
  275. 3811 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3813
  276. 3812 GOTO3811
  277. 3813 PRINT"[147][144]TO PLAY THE CARD YOU SELECT, EITHER"
  278. 3814 PRINT"PRESS THE FIRE BUTTON OR HIT RETURN."
  279. 3816 PRINT"IF YOU CANNOT PLAY ANY OF YOUR CARDS"
  280. 3818 PRINT"ON THE DISCARD PILE, EITHER HIT 'D'"
  281. 3820 PRINT"OR PULL DOWN ON THE JOYSTICK AND PRESS"
  282. 3822 PRINT"THE FIRE BUTTON.  IN THIS WAY, YOU WILL"
  283. 3824 PRINT"WILL BE DEALT A NEW CARD, AND THE"
  284. 3826 PRINT"COMPUTER WILL TAKE ITS TURN."
  285. 3828 PRINT"IF THE COMPUTER PLAYS A DRAW TWO"
  286. 3830 PRINT"YOU WILL BE DEALT TWO CARDS AND THEN"
  287. 3832 PRINT"IT WILL BE YOUR TURN."
  288. 3834 PRINT"  PRESS ANY KEY OR FIRE TO CONTINUE"
  289. 3836 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENGOTO3838
  290. 3837 GOTO3836
  291. 3838 PRINT"[147][144]TO QUIT THE GAME AT ANY TIME, PRESS"
  292. 3840 PRINT"THE '*' KEY.  OTHERWISE, THE GAME"
  293. 3842 PRINT"ENDS WHEN EITHER YOU OR THE COMPUTER"
  294. 3844 PRINT"RUNS OUT OF CARDS."
  295. 3846 PRINT"GETTING RID OF ALL YOUR CARDS IS WORTH"
  296. 3848 PRINT"1000 POINTS.  YOU GET ADDITIONAL POINTS"
  297. 3850 PRINT"FROM THE CARDS THAT THE COMPUTER HASN'T"
  298. 3852 PRINT"YET PLAYED.  A NUMBER CARD IS WORTH ITS"
  299. 3853 PRINT"NUMBER, A GO CARD IS WORTH 100 POINTS."
  300. 3854 PRINT"A DRAW CARD IS WORTH 200 POINTS, AND"
  301. 3856 PRINT"A WILD CARD IS WORTH 500 POINTS."
  302. 3860 PRINT"  PRESS ANY KEY OR FIRE TO BEGIN PLAY"
  303. 3866 J=PEEK(56320):GETQ$:IF((Q$<>"")OR(J=111))THENRETURN
  304. 3867 GOTO3866
  305. 3900 PRINT"[147][144]4) YOU MAY PLAY A WILD CARD ON ANY"
  306. 3902 PRINT"OTHER CARD.  AFTER YOU HAVE SELECTED"
  307. 3904 PRINT"A WILD CARD, A BLANK CARD WILL APPEAR"
  308. 3906 PRINT"IN THE CENTER OF THE BOTTOM OF THE"
  309. 3908 PRINT"SCREEN.  USE THE CURSOR KEYS OR JOYSTICK"
  310. 3910 PRINT"TO CHANGE THE COLOR OF THE CARD TO THE"
  311. 3912 PRINT"COLOR YOU DESIRE.  PRESS RETURN OR FIRE."
  312. 3914 PRINT"IF THE COMPUTER PLAYS A WILD CARD, YOU"
  313. 3916 PRINT"MAY PLAY ANY CARD THAT IS THE SAME COLOR"
  314. 3918 PRINT"ON TOP OF IT.":PRINT"  PRESS ANY KEY OR FIRE TO CONTINUE"
  315. 3920 J=PEEK(56320):GETQ$:IF((J=111)OR(Q$<>""))THENRETURN
  316. 3921 GOTO3920
  317. 3999 RETURN
  318. 4000 PRINT" [158]      Q[146]UIT  G[146]O ON PLAYING   N[146]EW GAME"
  319. 4001 GETQ$
  320. 4002 IFQ$="Q"THENA$="N":GOTO2970
  321. 4003 IFQ$="G"THENPRINT"                                    "
  322. 4004 IFQ$="G"THENPRINT" ^[157]";:C=1:RETURN
  323. 4005 IFQ$="N"THENCLR:RUN
  324. 4007 PRINT"                                    ":FORX=1TO12:NEXT
  325. 4008 PRINT" [158]      Q[146]UIT  G[146]O ON PLAYING   N[146]EW GAME"
  326. 4009 GOTO4001
  327. 5000 IF C1=0 THEN GOTO 5100
  328. 5001 IF C2=0 THEN GOTO 5200
  329. 5100 SC=1000:FOR X=1TOC2
  330. 5105 D=CP(X)
  331. 5110 A=INT(D/100):B=INT((D-(A*100))/10):C=D-(A*100)-(B*10)
  332. 5115 IFA=1 THEN SC=SC+100
  333. 5120 IFA=2 THEN SC=SC+200
  334. 5125 IFA=3 THEN SC=SC+500
  335. 5130 IFA=0 THEN SC=SC+C
  336. 5135 NEXT:GOTO5555
  337. 5200 SC=1000:FOR X=1TOC1
  338. 5205 D=CC(X)
  339. 5210 A=INT(D/100):B=INT((D-(A*100))/10):C=D-(A*100)-(B*10)
  340. 5215 IFA=1 THEN SC=SC+100
  341. 5220 IFA=2 THEN SC=SC+200
  342. 5225 IFA=3 THEN SC=SC+500
  343. 5230 IFA=0 THEN SC=SC+C
  344. 5235 NEXT:GOTO5555
  345. 5555 IF SC>HS THEN N(11)=SC:GOTO 5560
  346. 5560 FOR L=1 TO 10:FOR J=L+1 TO 11
  347. 5565 IFN(L)>=N(J) THEN GOTO 5580
  348. 5570 S=N(J):N(J)=N(L):N(L)=S
  349. 5573 DM$=NM$(J):NM$(J)=NM$(L):NM$(L)=DM$
  350. 5580 NEXT:NEXT:RETURN
  351. 6000 POKE198,0:K$=""
  352. 6010 PRINT"[158] [157][146]";
  353. 6020 FORT=0TO10:NEXT
  354. 6030 PRINT" [157]";
  355. 6040 FORT=0TO10:NEXT
  356. 6050 GETA$:IFA$=""THEN6010
  357. 6060 LL=LEN(K$)
  358. 6070 IFA$=CHR$(13)THENPRINT:RETURN
  359. 6080 IFA$=CHR$(20)ANDLLTHENPRINT" [157][157]";:K$=LEFT$(K$,LL-1):GOTO6010
  360. 6090 IF(A$<"A"ORA$>"Z")ANDA$<>" "THEN6010
  361. 6100 IFLL>12THEN6010
  362. 6110 PRINTA$;:K$=K$+A$
  363. 6120 GOTO6010
  364.