home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / blackjck.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  12.3 KB  |  315 lines
  1. 0 GOTO 65000
  2. 1 '
  3. 1000 REM  ** CCII BLACKJACK - JAN 3,78 - JESSEN **
  4. 1010 REM ADAPTED TO PC BY PATRICK LEABO--TUSCON
  5. 1011 REM COLOR MODIFICATIONS BY BOB VOLLMER - SAN JOSE, Sept '82
  6. 1015 REM
  7. 1020 SCREEN 0:COLOR 7,2:WIDTH 80:KEY OFF:LOCATE ,,0
  8. 1025 SND = 1:KEY 10,"":ON KEY (10) GOSUB 3800 :KEY (10) ON
  9. 1030 COMMON MENU:RANDOMIZE VAL(RIGHT$(TIME$,2))
  10. 1040 CLS:GOSUB 3440:Z7= RND (1):GOSUB 3250:Y= 1:COLOR 14
  11. 1050 LOCATE 7,7:PRINT "WELCOME TO...";:PRINT "BLACKJACK!":COLOR 0
  12. 1060 K= 0:W1= 0:R= RND (1):N= INT (1945* RND (1)+ 1):X= INT (10* RND (1))
  13. 1070 DIM D(52),E(5),V(5),T(5),W(5),T$(34),Q(52):WS$=""
  14. 1080 FOR A= 1 TO 52:D(A)= 0:NEXT 
  15. 1090 FOR A= 0 TO 39 STEP 13:FOR C= 1 TO 13:Q(A+ C)= C:NEXT C,A
  16. 1100 K= K+ 1:FOR P= 1 TO 5:E(P)= 0:V(P)= 0:T(P)= 0:NEXT :V(3)= 1
  17. 1110 LOCATE 9,2:GOSUB 3580
  18. 1120 LOCATE 23,54:PRINT STRING$(26," ")
  19. 1130 LOCATE 21,54:PRINT STRING$(26," ")
  20. 1140 LOCATE 9,3:PRINT STRING$(50," ")
  21. 1150 LOCATE 21,54:IF W1= 0 THEN GOSUB 3110
  22. 1160 IF W1> 0 THEN GOSUB 3090
  23. 1170 IF W1< 0 THEN GOSUB 3100
  24. 1180 GOSUB 3640:LOCATE 22,55:PRINT"WAGER ";:COLOR 14:PRINT "$";
  25. 1190 LOCATE 22,62:LINE INPUT;W$:P=1:COLOR 0
  26. 1200 IF LEFT$(W$,3)= "END" OR LEFT$(W$,3)="end" THEN GOTO 65200  :ELSE IF W$="" THEN W$=WS$ ELSE WS$=W$
  27. 1210 W= VAL (W$):LOCATE 1,1
  28. 1220 IF W< = 500 THEN 1240:REM
  29. 1230 LOCATE 23,55:PRINT "HOUSE LIMIT IS $500";:GOSUB 3610:GOTO 1110
  30. 1240 IF W> 0 THEN 1260
  31. 1250 LOCATE 23,58:PRINT "BE SERIOUS";:GOSUB 3220:GOTO 1110
  32. 1260 IF W< 1 THEN 1290
  33. 1270 HP= HP+ 1
  34. 1280 GOTO 1320
  35. 1290 LOCATE 23,58
  36. 1300 PRINT "CHEAPSKATE";
  37. 1310 GOSUB 3610:GOTO 1110
  38. 1320 Q3= W
  39. 1330 IF Q3< 250 THEN 1350
  40. 1340 Q3= INT (Q3/ 10)
  41. 1350 FOR A4= 1 TO Q3:X= RND (1):NEXT :W(2)= W:W(3)= W:GOTO 1380
  42. 1360 TE= 0:NT= 0:LOCATE 9,14:PRINT "*I AM RESHUFFLING*":GOSUB 3220:GOTO 1110
  43. 1370 LOCATE 9,2:PRINT "HOUSE LIMIT IS $500":GOSUB 3610:GOTO 1110
  44. 1380 E(5)= 1:GOSUB 3510:GOSUB 2090:IF E(1)= 0 THEN 1400
  45. 1390 V(4)= 1
  46. 1400 V(5)= 1:E(5)= 2:GOSUB 3510:GOSUB 2090:M= X:P= 3:V(3)= 1
  47. 1410 GOSUB 3510:GOSUB 2090:G= X
  48. 1420 GOSUB 3690
  49. 1430 V(3)= V(3)+ 1
  50. 1440 GOSUB 3510:GOSUB 2090:IF V(2)> 0 THEN 1670
  51. 1450 S= X
  52. 1460 IF V(3)> 2 THEN 1670
  53. 1470 IF T(P)< 21 THEN 1570
  54. 1480 IF E(P)< 2 THEN 1500
  55. 1490 E(P)= E(P)- 1:T(P)= T(P)- 10:GOTO 1570
  56. 1500 LOCATE (Y9+ 2),(X9+ 8):PRINT "*BLACKJACK*"
  57. 1510 LOCATE 9,10:PRINT "I DEALT WRONG AGAIN!"
  58. 1520 E(5)= 2:P= 1:X9= 8:Y9= 3:X= M:GOSUB 2280
  59. 1530 IF V(3)< 5 THEN 1550
  60. 1540 W1= W1+ 2* W:GOTO 1560
  61. 1550 W1= W1+ 1.5* W
  62. 1560 GOTO 3000
  63. 1570 IF V(4)= 0 THEN 1670
  64. 1580 LOCATE 9,15:PRINT SPC( 22);""
  65. 1590 LOCATE 9,15:GOSUB 3640:PRINT "INSURANCE ";:COLOR 31:PRINT"?";:COLOR 0:GOSUB 3660:PRINT
  66. 1600 LOCATE 9,3:PRINT STRING$(50," ")
  67. 1610 KS$=LEFT$ (I$,1):IF KS$< > "Y" AND KS$<>"y" THEN 1670
  68. 1620 IF T(1)< 21 THEN 1650
  69. 1630 W1= W1+ W:PRINT 
  70. 1640 LOCATE 9,8:PRINT "YOU WIN $";W/ 2;" ON INSURANCE":GOTO 1670
  71. 1650 W1= W1- W/ 2:PRINT 
  72. 1660 LOCATE 9,8:PRINT "YOU LOST $";W/ 2;" ON INSURANCE"
  73. 1670 IF T(1)< 21 THEN 1720
  74. 1680 IF E(1)< 2 THEN 1700
  75. 1690 E(1)= E(1)- 1:T(1)= T(1)- 10:GOTO 1720
  76. 1700 LOCATE 9,22:PRINT "**I HAVE BLACKJACK**"
  77. 1710 X9= 8:Y9= 3:E(5)= 2:P= 1:X= M:GOSUB 2280:P= 3:GOTO 2910
  78. 1720 IF T(P)< = 21 THEN 1780
  79. 1730 IF E(P)> 0 THEN 1770
  80. 1740 LOCATE 9,16:PRINT "**YOU BUST**"
  81. 1750 GOSUB 3560:C1= T(P)- 5* (INT (T(P)/ 5)):IF V(2)= 1 THEN 1990
  82. 1760 GOTO 2690
  83. 1770 E(P)= E(P)- 1:T(P)= T(P)- 10
  84. 1780 IF V(1)= 2 THEN 1750
  85. 1790 IF V(3)> 4 THEN 1810
  86. 1800 GOTO 1820
  87. 1810 IF T(P)< 21 THEN 3230
  88. 1820 LOCATE (Y9+ 2),(X9+ 8):GOSUB 3640:COLOR 31:PRINT "PLAY ";:COLOR 0:GOSUB 3660
  89. 1830 V(1)= 0
  90. 1840 KS$= LEFT$ (I$,1):IF KS$= "H" OR KS$="h" THEN V(1)= 1:GOTO 1870
  91. 1850 IF KS$= "D" OR KS$="d" THEN V(1)= 2:GOTO 1870
  92. 1860 IF KS$= "S" OR KS$="s" THEN V(1)= 3:GOTO 1870
  93. 1865 IF KS$ <> "0" THEN BEEP :GOTO 1820
  94. 1870 LOCATE (Y9+ 2),(X9+ 8):PRINT "      "
  95. 1880 IF V(1)< 3 THEN 2030
  96. 1890 IF V(2)> 0 THEN 2020
  97. 1900 IF V(3)> 2 THEN 2020
  98. 1910 IF Q(G)= Q(S)THEN 1940
  99. 1920 LOCATE 9,22:PRINT "THAT'S NO PAIR":GOSUB 3610
  100. 1930 LOCATE 9,22:PRINT "                        ":GOTO 1820
  101. 1940 V(2)= 1:IF Q(G)< 1 THEN 1960
  102. 1950 V(1)= 0
  103. 1960 T(3)= 0:T(2)= 0:P= 2:X9= 2:Y9= 19:GOSUB 3550
  104. 1970 X= S:GOSUB 2280:GOSUB 1980:P= 3:W(3)= W:X= G:GOSUB 1980:GOTO 1440
  105. 1980 GOSUB 2230:V(3)= 2:T(P)= C:RETURN 
  106. 1990 P= 2:V(2)= 2:V(3)= 2:IF Q(G)< 1 THEN 2010
  107. 2000 V(1)= 0
  108. 2010 GOTO 1440
  109. 2020 LOCATE 9,22:PRINT "NO SPLITS NOW     ":GOSUB 3610:LOCATE 9,22:PRINT"               ":GOTO 1820
  110. 2030 IF V(1)< 2 THEN 2070
  111. 2040 IF V(3)= 2 THEN 2060
  112. 2050 LOCATE 9,22:PRINT "TOO LATE TO DOUBLE":GOSUB 3610:LOCATE 9,22:PRINT"                      ":GOTO 1820
  113. 2060 W(P)= 2* W(P)
  114. 2070 IF V(1)> 0 THEN 1430
  115. 2080 GOTO 1750
  116. 2090 GOSUB 2120:T(P)= T(P)+ C:IF V(5)= 0 THEN 2110
  117. 2100 V(5)= 0:RETURN 
  118. 2110 GOSUB 2280:RETURN 
  119. 2120 IF R> = 50 THEN 2170
  120. 2130 X= INT (53* RND (Y))
  121. 2140 IF X= 0 THEN 2130
  122. 2150 IF D(X)= 0 THEN 2210
  123. 2160 R= R+ 1:IF R< 50 THEN 2120
  124. 2170 FOR A= 1 TO 52:IF D(A)= K THEN 2190
  125. 2180 D(A)= 0
  126. 2190 NEXT 
  127. 2200 TE= 0:NT= 0:R= 0:LOCATE 9,18:PRINT "*I RESHUFFLED*":GOSUB 3610:LOCATE 9,18:PRINT"                 ":GOTO 2120
  128. 2210 R= 0
  129. 2220 D(X)= K
  130. 2230 IF Q(X)> 1 THEN 2250
  131. 2240 C= 11:E(P)= E(P)+ 1:RETURN 
  132. 2250 IF Q(X)> 10 THEN 2270
  133. 2260 C= Q(X):RETURN 
  134. 2270 C= 10:RETURN 
  135. 2280 GOSUB 2290:RETURN 
  136. 2290 FOR I= 0 TO 34:T$(I)=  " ":NEXT
  137. 2300 IF X> 39 THEN U$=CHR$ (5):CCC=0:GOTO 2340
  138. 2310 IF X> 26 THEN U$= CHR$ (3):CCC=4:GOTO 2340
  139. 2320 IF X> 13 THEN U$= CHR$(4):CCC=4:GOTO 2340
  140. 2330 U$= CHR$ (6):CCC=0
  141. 2340 COLOR CCC,7
  142. 2350 ON Q(X) GOTO 2540,2530,2520,2510,2490,2470,2460,2450,2440,2420,2380,2370
  143. 2360 T$(17)= "K":GOTO 2390
  144. 2370 T$(17)= "Q":GOTO 2390
  145. 2380 T$(17)= "J"
  146. 2390 T$(8)= U$:T$(7)= U$:T$(6)= U$:T$(11)= U$:T$(16)= U$
  147. 2400 T$(21)= U$:T$(26)= U$:T$(27)= U$:T$(28)= U$:T$(23)= U$
  148. 2410 T$(18)= U$:T$(13)= U$:GOTO 2550
  149. 2420 T$(6)= U$:T$(8)= U$:T$(16)= U$:T$(18)= U$:T$(26)= U$
  150. 2430 T$(28)= U$:GOTO 2510
  151. 2440 T$(7)= U$:T$(27)= U$:GOTO 2460
  152. 2450 T$(12)= U$:T$(22)= U$:GOTO 2470
  153. 2460 T$(17)= U$
  154. 2470 T$(6)= U$:T$(8)= U$:T$(16)= U$:T$(18)= U$:T$(26)= U$
  155. 2480 T$(28)= U$:GOTO 2550
  156. 2490 T$(6)= U$:T$(8)= U$:T$(17)= U$:T$(26)= U$:T$(28)= U$
  157. 2500 GOTO 2550
  158. 2510 T$(11)= U$:T$(13)= U$:T$(21)= U$:T$(23)= U$:GOTO 2550
  159. 2520 T$(7)= U$:T$(17)= U$:T$(27)= U$:GOTO 2550
  160. 2530 T$(12)= U$:T$(22)= U$:GOTO 2550
  161. 2540 T$(17)= U$
  162. 2550 IF Q(X)> 1 AND Q(X)< 11 THEN T$= RIGHT$ (STR$ (Q(X)),1)
  163. 2560 IF Q(X)= 11 THEN T$= "J"
  164. 2570 IF Q(X)= 12 THEN T$= "Q"
  165. 2580 IF Q(X)= 13 THEN T$= "K"
  166. 2590 IF Q(X)= 1 THEN T$= "A"
  167. 2600 IF X> 13 AND X< 40 THEN T$= T$
  168. 2610 IF Q(X)< > 10 GOTO 2640
  169. 2620 T$= LEFT$(U$,1):M$= RIGHT$ (STR$ (0),1):N$= RIGHT$ (STR$ (1),1)
  170. 2630 T$(0)= N$:T$(1)= M$:T$(33)= T$(0):T$(34)= T$(1):GOTO 2650
  171. 2640 T$(0)= T$:T$(34)= T$
  172. 2650 Z9= Y9+ 5:X1= X9:Y1= Y9:REM GOSUB 64000:GOSUB 3000
  173. 2660 NT= NT+ 1:IF Q(X)> 9 THEN TE= TE+ 1
  174. 2670 COLOR CCC:FOR I= 0 TO 30 STEP 5:LOCATE Z9-I/5,X9+2:FOR J= 0 TO 4:PRINT T$(I+ J);:NEXT J
  175. 2680 NEXT I:COLOR 0,2:RETURN
  176. 2690 P= 3:X= M:X9= 8:Y9= 3:GOSUB 2290
  177. 2700 IF T(3)< 22 THEN 2730
  178. 2710 IF V(2)= 0 THEN 2910
  179. 2720 GOTO 2910
  180. 2730 P= 1
  181. 2740 IF T(1)< 17 THEN 3020
  182. 2750 IF T(1)> 17 THEN 2770
  183. 2760 IF E(1)> 0 THEN 3020
  184. 2770 IF T(1)> 21 THEN 3030
  185. 2780 P= 3
  186. 2790 LOCATE 5,(X9+ 7):PRINT "TOTAL":LOCATE 7,(X9+ 7):PRINT T(1);
  187. 2800 IF T(P)> 21 THEN 2840
  188. 2810 IF T(1)> 21 THEN 2840
  189. 2820 IF T(1)> T(P)THEN 2910
  190. 2830 IF T(1)= T(P)THEN 2980
  191. 2840 W1= W1+ W(P):PRINT :LOCATE 9,2
  192. 2850 FOR J= 1 TO 50:PRINT " ";:NEXT :PRINT :LOCATE 9,12
  193. 2860 IF C1> 3 THEN 3120
  194. 2870 IF C1> 2 THEN 3130
  195. 2880 IF C1> 1 THEN 3140
  196. 2890 IF C1> 0 THEN 3150
  197. 2900 GOTO 3160
  198. 2910 W1= W1- W(P):PRINT :LOCATE 9,2
  199. 2920 FOR J= 1 TO 50:PRINT " ";:NEXT :PRINT :LOCATE 9,12
  200. 2930 IF C1> 3 THEN 3170
  201. 2940 IF C1> 2 THEN 3180
  202. 2950 IF C1> 1 THEN 3190
  203. 2960 IF C1> 0 THEN 3200
  204. 2970 GOTO 3210
  205. 2980 LOCATE 9,24:PRINT "WE PUSH"
  206. 2990 IF V(2)> 0 THEN 3010
  207. 3000 GOSUB 3060:GOSUB 3610:GOTO 1100
  208. 3010 P= 3:V(2)= 0:GOTO 2800
  209. 3020 E(5)= E(5)+ 1:P= 1:GOSUB 3510:GOSUB 2090:GOTO 2730
  210. 3030 IF E(1)= 0 THEN 3050
  211. 3040 E(1)= E(1)- 1:T(1)= T(1)- 10:GOTO 2730
  212. 3050 LOCATE 6,(X9+ 13):PRINT "*I BUST*":GOTO 2780
  213. 3060 LOCATE 9,25:RETURN
  214. 3070 IF W1< 0 THEN 3100
  215. 3080 IF W1= 0 THEN 3110
  216. 3090 PRINT "YOU'RE AHEAD $";W1;:RETURN
  217. 3100 PRINT "YOU'RE BEHIND $";- W1;:RETURN
  218. 3110 PRINT "YOU'RE EVEN           ";:RETURN 
  219. 3120 'PRINT "I MUST HAVE DEALT WRONG":GOTO 2990
  220. 3130 'PRINT "YOU'RE LUCKY AGAIN":GOTO 2990
  221. 3140 'PRINT "YOU MUST HAVE BEEN PEEKING":GOTO 2990
  222. 3150 'PRINT "I COULD LOSE MY JOB THIS WAY":GOTO 2990
  223. 3160 'PRINT "THE CARDS HAVE TURNED AGAINST ME":GOTO 2990
  224. 3165 PRINT "You win!":GOTO 2990
  225. 3170 'PRINT "*THE BOTTOM OF THE DECK STRIKES AGAIN*":GOTO 2990
  226. 3180 'PRINT "A VICTORY FOR US GOOD GUYS":GOTO 2990
  227. 3190 'PRINT "YOU CAN'T BEAT SKILL":GOTO 2990
  228. 3200 'PRINT "YOU CAN'T WIN THEM ALL":GOTO 2990
  229. 3210 'PRINT "THANKS!":GOTO 2990
  230. 3215 PRINT "I win!":GOTO 2990
  231. 3220 FOR M9= 1 TO 52:D(M9)= 0:NEXT :R= 0:RETURN
  232. 3230 LOCATE 9,12:PRINT "*YOU WIN WITH 5 CARDS*":PRINT :GOTO 1520
  233. 3240 REM DRAW INSTRUCTIONS
  234. 3250 COLOR 0,7
  235. 3260 FOR N=2 TO 18:LOCATE N,54:PRINT STRING$(26," "):NEXT
  236. 3270 LOCATE 2,58:PRINT "IBM PC BLACKJACK";
  237. 3280 LOCATE 3,60:PRINT"************"                                               
  238. 3290 LOCATE  4,55:PRINT"FOLLOW ALL BETS WITH"
  239. 3300 LOCATE 5,60:PRINT"RETURN KEY"
  240. 3310 LOCATE 7,55:PRINT"RESPONSES:"
  241. 3320 LOCATE 8,57:PRINT"<CR> = STAND":LOCATE 9,60:PRINT"H = HIT"
  242. 3330 LOCATE 10,60:PRINT"D = DOUBLE DOWN":LOCATE 11,60:PRINT"S = SPLIT PAIR"
  243. 3340 LOCATE 12,58:PRINT"INSURANCE:"
  244. 3350 LOCATE 13,60:PRINT"N = NO":LOCATE 14,60:PRINT"Y = YES"
  245. 3360 LOCATE 15,63:PRINT"RULES:"
  246. 3370 LOCATE 16,54:PRINT"HOUSE LIMIT IS $500.00"
  247. 3380 LOCATE 17,54:PRINT"BLACKJACK PAYS 1.5 TO 1"
  248. 3390 LOCATE 18,54:PRINT;"BET END TO QUIT";:COLOR 7,0
  249. 3400 ME$="HOUSE":FOR YP=1 TO YP+LEN(ME$):LOCATE YP+1,2:PRINT MID$(ME$,YP,1):NEXT
  250. 3410 ME$="PLAYER":FOR YP=1 TO YP+LEN(ME$):LOCATE YP+9,2:PRINT MID$(ME$,YP,1):NEXT
  251. 3420 RETURN
  252. 3430 REM DRAW FIELD
  253. 3440 LOCATE 1,1:PRINT"╒";STRING$(51,"═");"╤";STRING$(26,"═");"╕";
  254. 3450 LOCATE 2,1:FOR N=1 TO 22:PRINT"│"TAB(53);"│";TAB(80);"│";:NEXT
  255. 3460 LOCATE 24,1:PRINT"│";:LOCATE 24,53:PRINT"│";
  256. 3470 LOCATE 25,1:PRINT"╘";STRING$(51,"═");"╧";STRING$(26,"═");
  257. 3480 DEF SEG=&HB000:POKE 3998,190:POKE 3838,179:DEF SEG
  258. 3490 LOCATE 19,53:PRINT"╞══════════════════════════╡"
  259. 3500 LOCATE 1,1:RETURN
  260. 3510 ON P GOTO 3520,3530,3540
  261. 3520 X9= INT (2+ E(5)* 6- 6):Y9= 3:GOTO 3550
  262. 3530 X9= INT (2+ V(3)* 6- 6):Y9= 19:GOTO 3550
  263. 3540 X9= INT (2+ V(3)* 6- 6):Y9= 11
  264. 3550 RETURN 
  265. 3560 LOCATE (Y9+ 0),(X9+ 7):PRINT "TOTAL";
  266. 3570 LOCATE (Y9+ 3),(X9+ 7):PRINT T(P);:RETURN
  267. 3580 COLOR ,2:FOR N=1 TO 7:LOCATE N+1,3:PRINT STRING$(50," "):NEXT
  268. 3590 FOR N=0 TO 15:LOCATE N+9,3:PRINT STRING$(50," ");:NEXT
  269. 3600 RETURN
  270. 3610 FOR P1= 1 TO 1000:NEXT P1:RETURN
  271. 3620 REM   PLINK
  272. 3630 IF SND = 1 THEN PLAY "L64T200N46":REM PLINK
  273. 3635 RETURN
  274. 3640 REM   PLONK
  275. 3650 IF SND = 1 THEN PLAY "L64T200N70":REM PLONK
  276. 3655 RETURN
  277. 3660 REM   KEYSTROKE
  278. 3670 I$=INKEY$:IF I$=""THEN 3670 ELSE IF I$= CHR$(13) THEN I$= "0":RETURN
  279. 3680 RETURN
  280. 3690 REM   BACK OF CARD
  281. 3700 COLOR 1,7:CB$= "╬╬╬╬╬"
  282. 3710 GOSUB 3620
  283. 3720 X1= 10:Y1= 1:FOR NN= 7 TO 1 STEP - 1
  284. 3730 LOCATE Y1+NN,X1:PRINT CB$:NEXT :COLOR 0:RETURN
  285. 3800 REM   toggle sound on or off with F10
  286. 3810 IF SND = 1 THEN SND = 0 ELSE SND=1
  287. 3820 RETURN
  288. 65000 REM -*- program name -*-
  289. 65010 REM Version 1.00
  290. 65020 KEY(2) ON:ON KEY(2) GOSUB 65200
  291. 65025 KEY(2) ON:ON KEY(2) GOSUB 65200
  292. 65030 KEY OFF:SCREEN 0,1:COLOR 15,3,1:WIDTH 40:CLS:LOCATE 5,18:PRINT " IBM "
  293. 65040 LOCATE 7,12,0:PRINT "Personal Computer"
  294. 65050 COLOR 10,0:LOCATE 10,7,0:PRINT CHR$(213)+STRING$(25,205)+CHR$(184)
  295. 65060 LOCATE 11,7,0:PRINT CHR$(179)+"   -*-  BLACKJACK  -*-   "+CHR$(179)
  296. 65070 LOCATE 12,7,0:PRINT CHR$(179)+STRING$(25,32)+CHR$(179)
  297. 65080 LOCATE 13,7,0:PRINT CHR$(179)+"  PC Mods  by Pat Leabo  "+CHR$(179)
  298. 65085 LOCATE 14,7,0:PRINT CHR$(179)+"Color Mods by Bob Vollmer"+CHR$(179)
  299. 65090 LOCATE 15,7,0:PRINT CHR$(212)+STRING$(25,205)+CHR$(190)
  300. 65100 COLOR 15,0:LOCATE 19,5,0:PRINT "CCII BLACKJACK 03/03/78 -Jesson"
  301. 65110 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue";CHR$(7);
  302. 65120 COLOR 30:LOCATE 23,5,0:PRINT CHR$(15);:LOCATE 23,35,0:PRINT CHR$(15);
  303. 65130 COLOR 14
  304. 65140 POKE 106,0 'CLEAR KYBD BUFFER
  305. 65150 CMD$ = INKEY$
  306. 65160 IF CMD$="" THEN GOTO 65150
  307. 65170 IF CMD$ = CHR$(27) THEN GOTO 65200
  308. 65180 IF CMD$ = " " THEN GOTO 1
  309. 65190 GOTO 65140
  310. 65200 ON ERROR GOTO 65240:RUN"BASMENU
  311. 65210 IF E<>71 THEN RUN"control
  312. 65220 RUN"A:TRANSFER
  313. 65230 SYSTEM
  314. 65240 E=ERR:RESUME NEXT
  315.