ZX81 Listing for hit.p


ZX81 program listing for **HIT**SLR/1985********

**HIT**SLR/1985******** (hit.p)

Try to break the bank in my ZX81 variation of the a classic 21 style card game.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18419
VARS  : 19212
E-LINE: 19213
STKBOT: 19213
STKEND: 19213


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **HIT**SLR/1985********
  20 LET A$="123456789TJQK"
  21 LET T=10
  22 LET J=10
  23 LET Q=10
  24 LET K=10
  30 LET M=1000
  40 PRINT "     ** **  H  I  T 
 **  **               úúúúúúúúúú
ú                       SLR/1985
"
  50 PRINT AT 5,0;"YOU HAVE ";M;
" DOLLARS."
  60 PRINT "HOW MUCH DO YOU BET?
"
  70 INPUT A
  80 IF (A<10 AND M>10) OR A>500
THEN GOTO 70
  90 IF A>M THEN LET A=M
 100 PRINT AT 6,0;"YOU BET ";A;"
 DOLLARS.      "
 110 LET M1=0
 120 LET C1=0
 130 GOSUB 500
 140 LET D=1
 150 PRINT AT 10,0;"YOUR CARDS:"
;AT 14,0;"DEALERS CARDS:"
 160 LET M2=1
 170 LET C2=1
 180 PRINT AT 11,M2;A$(D)
 190 GOSUB 300
 200 PRINT AT 15,C2;A$(D)
 210 GOSUB 350
 220 PRINT AT 11,M2;A$(D)
 230 GOSUB 300
 240 PRINT AT 15,C2;A$(D)
 250 GOSUB 350
 260 PRINT AT 18,0;"ANY CARDS?(Y
/N)"
 270 INPUT B$
 280 IF B$<>"Y" THEN GOTO 290
 281 PRINT AT 11,M2;A$(D)
 282 GOSUB 300
 283 GOTO 260
 290 PRINT AT 18,0;"            
   "
 291 IF C1<15 OR C1<M1 THEN
GOTO 295
 292 IF M1<C1 THEN GOTO 400
 293 IF M1>C1 THEN GOTO 450
 294 IF M1=C1 THEN GOTO 496
 295 PRINT AT 15,C2;A$(D)
 296 GOSUB 350
 297 GOTO 291
 300 LET M1=M1+VAL A$(D)
 310 LET M2=M2+2
 320 LET D=D+1
 330 IF M1>21 THEN GOTO 400
 340 RETURN
 350 LET C1=C1+VAL A$(D)
 360 LET C2=C2+2
 370 LET D=D+1
 380 IF C1>21 THEN GOTO 450
 390 RETURN
 400 PRINT AT 18,0;"YOU LOSE****
       "
 410 LET M=M-A
 420 IF M<1 THEN GOTO 440
 421 PAUSE 200
 425 CLS
 430 GOTO 40
 440 PRINT AT 19,0;"YOURE BROKE.
..GAME OVER****"
 445 GOTO 491
 450 PRINT AT 18,0;"YOU WIN**** 
    "
 460 LET M=M+A
 470 IF M>=10000 THEN GOTO 490
 480 GOTO 421
 490 PRINT AT 19,0;"YOU BROKE TH
E BANK...GAME OVER**"
 491 PRINT "PRESS A KEY TO START
 AGAIN......"
 492 PAUSE 4E4
 493 CLS
 494 RUN
 496 PRINT AT 18,0;"TIE****     
    "
 497 GOTO 421
 500 PRINT AT 18,0;"SHUFFLE****
**"
 510 FOR G=1 TO 20
 520 LET C=INT (RND*13+1)
 530 LET K$=A$(C)
 540 LET A$(C)=A$(13)
 550 LET A$(13)=K$
 560 NEXT G
 570 PRINT AT 18,0;"            
 "
 580 RETURN
 600 SAVE "HIT"
 610 RUN