home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / c128 / c137.d64 / comp-u-tare (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  10KB  |  310 lines
  1. 5 POKE49152,0
  2. 10 RE$(0)="            ":RE$(1)="3 [214][197][210][211][201][207][206][211]" :RR=0:J=5:PP=0
  3. 15 VR$(0)="       ":VR$(1)="[214][197][210][211][201][207][206]"
  4. 20 SS$="A23456789TJQK":KN=0
  5. 25 LT$=""
  6. 30 WN$(0)="       YOU WIN       "
  7. 35 WN$(1)="[144]      HIT A KEY      "
  8. 40 WN$(2)=" YOU WON BY CHEATING "
  9. 45 WN$(4)=" [144]STANDARD PLAY  "
  10. 50 WN$(5)="[144]LAS VEGAS STYLE "
  11. 55 R$="[218][211][193][216]":D$=""
  12. 60 IFYY=0THENGOSUB1500:T=TI+180
  13. 65 IF T>TI THEN65
  14. 70 POKEV+21,0:PRINT"[147]"
  15. 75 DEFFNF(X)=X-INT(X)
  16. 80 DEFFNA(X)=INT(FNF(X/13)*13)
  17. 85 DIMA%(51),F%(6,6),D%(6,12),O(6,1),SH%(51)
  18. 90 O(1,0)=1:O(2,0)=2:O(3,0)=3:O(4,0)=4:O(5,0)=5:O(6,0)=6
  19. 95 GOSUB695:PRINT"[147]":A=RND(-TI):GOSUB1290:POKE53280,1
  20. 100 IF PEEK(49152)=255 THEN FORX=0TO51:A%(X)=PEEK(49153+X):NEXTX:GOTO110
  21. 105 GOSUB270
  22. 110 Z=0:FORX=1TO6:FORY=1TOX:F%(X,Y)=A%(Z):Z=Z+1:NEXTY:NEXTX:H$=" "
  23. 115 FORX=0TO6:D%(X,0)=A%(Z):Z=Z+1:NEXTX:FORX=28TO51:H$=H$+CHR$(A%(X)):NEXTX
  24. 120 FORX=0TO6:E%(X)=1:NEXTX
  25. 125 PRINT"[147]":POKE53272,21
  26. 130 REM SET UP CARDS FACE DOWN/ 7PILES
  27. 135 PRINT"[145]  1    2    3    4    5    6    7"
  28. 140 PRINT"":FORX=1TO6:FORY=XTO6:PRINTTAB(Y*5)"[207][169][223][208] [157][157][157]";
  29. 145 NEXTY:PRINT:NEXTX
  30. 150 FORX=0TO6:F%(X,0)=X:NEXTX:FORB=21TO27:C=A%(B):P1=0:P2=0:P3=0:P=B-21
  31. 155 GOSUB285:NEXTB:HP=0:CH=0:CD=24
  32. 160 IFCD=0GOTO175
  33. 165 HP=HP+3:IFHP-3=CDGOTO885
  34. 170 IFHP>CDGOTO265
  35. 175 OO=O(1,0)+O(2,0)+O(3,0)+O(4,0)+O(5,0)+O(6,0)+CD:IFOO<1ANDUU=0THEN1305
  36. 180 F=0:P=9:P2=0:C=ASC(MID$(H$,HP+1)):GOSUB285
  37. 185 REM KEYBOARD INPUT
  38. 190 GETI$
  39. 195 PRINTLEFT$(D$,23)LEFT$(LT$,27)"";
  40. 200 PRINTWN;:IFUU=1ANDWN>51THEN 1305
  41. 205 IFI$="" THEN 1460
  42. 210 IFI$="F"ORI$="[136]"ORI$="N"GOTO915
  43. 215 IFI$="H"ANDFNA(C)=1GOTO505
  44. 220 IFI$="[140]"THEN 1465
  45. 225 IFI$="[138]"GOTO525
  46. 230 IFI$="H"GOTO545
  47. 235 IFI$>"0"ANDI$<"8"GOTO565
  48. 240 IFI$="[137]"THEN1690
  49. 245 IFI$="A"ANDFGOTO930
  50. 250 IFI$="C"GOTO1135
  51. 255 IFI$="[139]"THENRR=1:GOTO1345
  52. 260 GOTO190
  53. 265 HP=CD:GOTO175
  54. 270 A$=" ":FORX=1TO52:A$=A$+CHR$(X):NEXTX:A$=A$+" ":C=52
  55. 275 FORX=0TO51:Z=INT(RND(1)*C+1):A%(X)=ASC(MID$(A$,Z+1)):POKE49153+X,A%(X)
  56. 280 A$=LEFT$(A$,Z)+RIGHT$(A$,C-Z+1):C=C-1:NEXT:RETURN
  57. 285 CT=INT((C-1)/13):CN=C-CT*13:IFP>6GOTO335
  58. 290 D=1+F%(P,0)-P3+5*P1:L=P*5:IFP2GOTO330
  59. 295 IFP1THENPRINTLEFT$(D$,D)TAB(L+3)"^^^^"
  60. 300 ZZ$="":IF CT>1 THEN ZZ$="[144]"
  61. 305 PRINTLEFT$(D$,D+1)TAB(L+3);ZZ$;"[169][163][163][223]"
  62. 310 GOSUB470:PRINTTAB(L)ZZ$;"[165] ";
  63. 315 PRINTA$;ZZ$;"[167][157][157][157]":PRINTTAB(L+3);ZZ$"[165]"MID$(R$,CT+1,1)" [167]"
  64. 320 PRINTTAB(L+3);ZZ$"[223][146][164][164][169][146]":PRINTTAB(L+3)"    "
  65. 325 RETURN
  66. 330 PRINTLEFT$(D$,D-P1+1);:FORX=1TO5:PRINTTAB(L+3)"    ":NEXTX:RETURN
  67. 335 IFP=7GOTO425
  68. 340 PRINTLEFT$(D$,18)TAB(14)"[144]MOVE:"
  69. 345 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]
  70. 350 [153][163]12)"(null) # OF CARDS  ="CD"CMD "[163]31)"(null)"
  71. 355 [153][163]12)"(null) STOP# INTO HAND ="HP"CMD "[163]31)"(null)"
  72. 360 [139]GT[179][177]3[167][153][163]12)"(null) CHANGES     ="CH" (null)"
  73. 365 [139]GT[178]3[167][153][163]12)"(null) NO CHANGES  **** (null)"
  74. 370 [153][163]12)"(null) POINT CARDS =    (null)"
  75. 375 [153][163]12)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  76. 380 IFLEN(H$)=1THENHP=0:CD=0:RETURN
  77. 385 REM SET UP CARDS WHEN FLIPED
  78. 390 PRINTLEFT$(D$,25)"[144]VERSION #";PEEK(49210);"[145][145]"
  79. 395 GOSUB470:PRINTLEFT$(D$,20)TAB(33);ZZ$;"[169][163][163][223]"
  80. 400 IFP2GOTO420
  81. 405 PRINTTAB(33);ZZ$"[165] "A$"[167]"
  82. 410 PRINTTAB(33);ZZ$"[165]"MID$(R$,CT+1,1)" [167]":PRINTTAB(33);ZZ$"[223][146][164][164][169]"
  83. 415 RETURN
  84. 420 PRINT"[145]";:FORX=1TO4:PRINTTAB(33)"    ":NEXTX:RETURN
  85. 425 L=1-6*(FNF(CT/2)<>0)
  86. 430 D=15-5*(CT>1)
  87. 435 IFP2=0GOTO465
  88. 440 REM SET CARDS GOING TO ACE STACKS
  89. 445 GOSUB470:PRINTLEFT$(D$,D)TAB(L);ZZ$;"[169][163][163][223]":WN=WN+1: REM ACES HERE ******
  90. 450 PRINTTAB(L);ZZ$;"[165] "A$"[167]"
  91. 455 PRINTTAB(L);ZZ$;"[165]"MID$(R$,CT+1,1)" [167]":PRINTTAB(L);ZZ$;"[223][146][164][164][169]"
  92. 460 RETURN
  93. 465 PRINTLEFT$(D$,D);:FORX=1TO4:PRINTTAB(L)"    ":NEXTX:RETURN
  94. 470 IFCN=1GOTO485
  95. 475 IFCN>9GOTO490
  96. 480 A$=STR$(CN):A$=RIGHT$(A$,1):GOTO495
  97. 485 A$="A":GOTO495
  98. 490 B$="TJQK":A$=MID$(B$,CN-9,1)
  99. 495 ZZ$="":IFCT>1THEN ZZ$="[144]"
  100. 500 RETURN
  101. 505 PRINTLEFT$(D$,19)"[145]"TAB(19)"[144] H-A"
  102. 510 P=9:P2=1:GOSUB285:P=7:C=ASC(MID$(H$,HP+1)):GOSUB285:Q%(CT)=Q%(CT)+1
  103. 515 CD=CD-1:B$=LEFT$(H$,HP)+MID$(H$,HP+2):H$=B$:B$="":HP=HP-1:IFHP=0GOTO160
  104. 520 GOTO170
  105. 525 IFGT<>1GOTO175
  106. 530 IFCH=3GOTO190
  107. 535 B$=" "+MID$(H$,3)+MID$(H$,2,1):CH=CH+1:HP=0:H$=B$:B$=""
  108. 540 P=8:P2=1:GOSUB285:GOTO160
  109. 545 IFCD=0GOTO190
  110. 550 F=8
  111. 555 PRINTLEFT$(D$,19)"[144][145]"TAB(19)"     ":PRINT"[145]"TAB(20)I$"[144]-":IFF<>8GOTO1010
  112. 560 GOTO190
  113. 565 IFFTHEN585
  114. 570 F=VAL(I$):IFE%(F-1)=0THEN1135
  115. 575 K=D%(F-1,E%(F-1)-1):IFFNA(K)<>1GOTO555
  116. 580 PRINTLEFT$(D$,19)TAB(20)"[145][144]"I$"-A":GOTO930
  117. 585 G=VAL(I$)
  118. 590 IFF=8THEN1105
  119. 595 GOTO1040
  120. 600 IFE%(G-1)=0GOTO1125
  121. 605 T1=D%(F-1,E%(F-1)-1):T2=D%(G-1,E%(G-1)-1):T3=T1+.1:T4=T2+.1
  122. 610 T3=FNA(T3):T4=FNA(T4):T3=T3-13*(T3=0)
  123. 615 T4=T4-13*(T4=0):IFT3+1<>T4GOTO1135
  124. 620 IFT1>26ANDT2>26ORT1<27ANDT2<27GOTO1135
  125. 625 PRINTLEFT$(D$,19)"[145][144]"TAB(22)I$:IFF=8GOTO900
  126. 630 S=D%(F-1,E%(F-1)-1)
  127. 635 E%(F-1)=E%(F-1)-1:P=F-1:P2=1:P1=-(E%(P)>0)
  128. 640 P3=0:GOSUB285:P=G-1:P1=1:GOSUB285
  129. 645 C=S:P2=0:P=G-1:P1=-1*(E%(G-1)>0):GOSUB285
  130. 650 E%(G-1)=E%(G-1)+1:D%(G-1,E%(G-1)-1)=S
  131. 655 IFE%(F-1)>1GOTO685
  132. 660 IFE%(F-1)=1GOTO175
  133. 665 IFF%(F-1,0)=0GOTO175
  134. 670 P=F-1:C=F%(F-1,F%(F-1,0)):P3=1:P2=0:P1=0:GOSUB285:F%(F-1,0)=F%(F-1,0)-1
  135. 675 O(F-1,0)=F%(F-1,0)
  136. 680 E%(F-1)=1:D%(F-1,0)=C:GOTO175
  137. 685 P=F-1:C=D%(F-1,E%(F-1)-1):P3=0:P2=0:P1=1:GOSUB285
  138. 690 E%(F-1)=E%(F-1)-1:GOTO175
  139. 695 IF PEEK(49152)=255 THENRETURN
  140. 700 POKE53280,6:POKE53281,1:POKE646,0
  141. 705 POKE53272,23
  142. 710 POKE53272,23:PRINT"[147]"
  143. 715 PRINT"[195][207][205][208]-[213]-[212][193][201][210][197]"
  144. 720 FORX=1TO40:PRINT"[178]";:NEXTX
  145. 725 FORX=1TO40:PRINT"[177]";:NEXTX:PRINT"[144]";
  146. 730 PRINT"[214]ERSION[160]# 1:[144][146] [217]OU ARE ALLOWED TO GO
  147. 735 [153]"THROUGH THE CARDS IN YOUR HAND ATN(null)CLOSE(null)ATN(null)(null)
  148. 740 PRINT"TIMES AS YOU WISH BEFORE MAKING A
  149. 745 [153]"LENLEFT$ATN(null)CHR$VAL. 3 LENLEFT$ATN(null)CHR$VAL(null) ARE ALLOWED.
  150. 750 PRINT"[214]ERSION # 2:[144][146] [193] [195][200][193][206][199][197] IS AUTOMATICALLY
  151. 755 [153]"TAKEN AT THE END OF EACH RUN THROUGH
  152. 760 PRINT"THE CARDS IN YOUR HAND. [212]HESE CARDS CAN
  153. 765 [153]"ONLY BE GONE THROUGH 3 TIMES ((null)WO
  154. 770 PRINT"[195][200][193][206][199][197][211]).
  155. 775 [153]"(null)ERSION # 3:STOPWAIT (null)HIS ONE CONSIDERS LENLEFT$ATN(null)CHR$VAL(null)
  156. 780 PRINT"AS CHEATING, NONE ARE ALLOWED, BUT YOU
  157. 785 [153]"MAY GO THROUGH THE CARDS IN YOUR HAND
  158. 790 PRINT"AS MANY TIMES AS YOU WISH.":PRINT
  159. 795 UU=0:PRINT"";
  160. 800 FORX=1TO40:PRINT"[178]";:NEXT
  161. 805 FORX=1TO40:PRINT"[177]";:NEXT:PRINT"[144]";
  162. 810 PRINTLEFT$(LT$,13)"[215][200][201][195][200]         ?"
  163. 815 KB=TI+20
  164. 820 GETI$:GT=VAL(I$):IFGT<1ORGT>3THEN830
  165. 825 GOTO855
  166. 830 IFKB-10<TIAND WW=0THENWW=1:GOTO815
  167. 835 IFKB<TIAND WW=1THENWW=0:GOTO815
  168. 840 POKE646,9
  169. 845 PRINT"         ";RE$(WW)
  170. 850 PRINTLEFT$(D$,24)LEFT$(LT$,19);"";VR$(WW):GOTO820
  171. 855 POKE49210,GT:IFYY=1THENRETURN
  172. 860 PRINT"[147][144][201]NSTRUCTIONS ?"
  173. 865 GETI$:IFI$=""THEN865
  174. 870 IF I$="Y"THEN 1155
  175. 875 IF I$="N"THEN RETURN
  176. 880 GOTO865
  177. 885 IFGT<>2THENHP=0:GOTO160
  178. 890 IFCH=2GOTO175
  179. 895 HP=0:GOTO535
  180. 900 P=9:P2=1:GOSUB285:P=G-1:P3=0:P2=1:P1=-1*(E%(P)<>0):GOSUB285
  181. 905 P2=0:GOSUB285
  182. 910 E%(P)=E%(P)+1:D%(P,E%(P)-1)=C:GOTO515
  183. 915 IFGT=2ANDCH=2ANDHP=CDGOTO175
  184. 920 IFGT=2ANDHP=CDGOTO530
  185. 925 P=9:P2=1:GOSUB285:GOTO160
  186. 930 PRINTLEFT$(D$,19)TAB(22)"[144][145]A":P=F-1:C=ASC(MID$(H$,HP+1,1))
  187. 935 IFF<8THENC=D%(P,E%(P)-1)
  188. 940 CT=INT((C-1)/13):CN=C-CT*13
  189. 945 IFCN-1<>Q%(CT)GOTO1135
  190. 950 IFF=8GOTO980
  191. 955 P=F-1:P1=-(E%(P)>1):P2=1:P3=0:GOSUB285:P=7:C=D%(F-1,E%(F-1)-1)
  192. 960 P2=0:GOSUB285:P2=1
  193. 965 GOSUB285:Q%(CT)=Q%(CT)+1:E%(F-1)=E%(F-1)-1:IFE%(F-1)=1THEN175
  194. 970 IFE%(F-1)=0GOTO995
  195. 975 P=F-1:C=D%(P,E%(P)-1):P3=0:P2=0:P1=1:GOSUB285:GOTO175
  196. 980 P=9:P2=1:GOSUB285:P=7:P2=0:C=ASC(MID$(H$,HP+1)):GOSUB285
  197. 985 P2=1:GOSUB285
  198. 990 Q%(CT)=Q%(CT)+1:GOTO515
  199. 995 P=F-1:IFF