ZX81 Listing for stud.p


ZX81 program listing for **STUD**SLR/1984*******

**STUD**SLR/1984******* (stud.p)

A simple betting hi/low card game.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18650
VARS  : 19443
E-LINE: 19444
STKBOT: 19444
STKEND: 19444


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **STUD**SLR/1984*******
  20 LET M=100
  30 LET Y=100
  31 DIM C(2)
  32 DIM S(2)
  40 DIM B(2)
  50 PRINT "         STUD 1 POKE
R"
  60 PRINT ,,,,,,"    THE  OBJEC
T  OF  STUD  1 IS TO BET MONEY T
RYING TO KEEP FROMBUSTING.THE WI
NNER OF EACH HAND IS THE ONE WIT
H THE HIGHEST FACEVALUE. HAPPY B
ETTING."
  70 PRINT ,,"PRESS ANY KEY TO C
ONTINUE"
  80 IF INKEY$="" THEN GOTO 80
  82 IF INKEY$<>"" THEN GOTO 82
  85 FOR A=1 TO 2
  90 LET C(A)=INT (13*RND+1)
 100 LET S(A)=INT (4*RND+1)
 105 NEXT A
 110 CLS
 120 PRINT "WHAT IS YOUR BET (1-
";Y;")? ";
 130 LET L$=""
 140 IF INKEY$="" THEN GOTO 140
 142 LET B$=INKEY$
 144 IF B$=CHR$ 118 THEN GOTO 20
0
 146 IF B$<"0" OR B$>"9" THEN
GOSUB 190
 150 LET L$=L$+B$
 160 PRINT B$;
 170 IF INKEY$<>"" THEN GOTO 170
 180 GOTO 140
 190 FOR A=1 TO 4
 192 FAST
 194 SLOW
 196 NEXT A
 198 GOTO 170
 200 IF L$="" THEN GOTO 190
 205 LET U=VAL L$
 206 IF U=0 THEN GOTO 110
 210 IF U>Y THEN LET U=Y
 220 LET B(1)=U
 230 LET U=INT (M*RND+1)
 240 IF U<B(1) THEN LET U=B(1)
 245 IF U>M THEN LET U=M
 250 LET B(2)=U
 260 PRINT TAB 0;"OK, OUT OF ";M
;" I BET ";B(2);"."
 270 PRINT ,,,,"NOW WE ARE READY
, SO LET US DEALTHE CARDS.  HERE
 IS YOURS:"
 280 FOR A=1 TO 2
 290 IF A=2 THEN PRINT "MINE IS:
"
 300 GOSUB 1000
 310 NEXT A
 320 IF H1=H2 THEN GOTO 400
 330 IF H1>H2 THEN GOTO 350
 340 PRINT ,,"HA, MY CARD IS HIG
HER, I WIN."
 341 LET Y=Y-B(1)
 342 LET M=M+B(2)
 343 PAUSE 500
 344 IF Y<=0 THEN GOTO 500
 345 GOTO 70
 350 PRINT ,,"DRATS, YOUR CARD B
EATS MINE."
 360 LET Y=Y+B(1)
 370 LET M=M-B(2)
 380 PAUSE 500
 390 IF M<=0 THEN GOTO 580
 395 GOTO 70
 400 PRINT ,,"WHEW, WE TIED. NO 
LOSES OR WINS."
 410 GOTO 70
 500 CLS
 510 PRINT ,,,,"WOW YOU ARE BROK
E. THAT MEANS   THAT I WIN THE G
AME***"
 520 PRINT ,,,,"PRESS KEY TO PLA
Y AGAIN..."
 530 IF INKEY$="" THEN GOTO 530
 540 CLS
 550 RUN
 580 CLS
 590 PRINT ,,,,"UH, OH.  I AM OU
T OF MONEY.     LOOKS LIKE YOU W
IN***"
 600 PRINT ,,,,"YOU HAVE ";Y;" P
OINTS LEFT."
 610 GOTO 520
1000 LET A$=("*" AND S(A)=1)+("?
" AND S(A)=2)+("+" AND S(A)=3)+(
"$" AND S(A)=4)
1010 LET L$="  "+STR$ C(A)
1020 IF C(A)=1 THEN LET L$=" ACE
"
1030 IF C(A)=11 THEN LET L$="JAC
K"
1040 IF C(A)=12 THEN LET L$="QUE
EN"
1050 IF C(A)=13 THEN LET L$="KIN
G"
1060 PRINT "µóóóóóõ";TAB 0;"µ";A
$;"    ";"õ";TAB 0;"µ";L$;TAB 6;
"õ";TAB 0;"µ    ";A$;"õ";TAB 0;"
µ³³³³³õ"
1070 LET H1=C(1)
1080 LET H2=C(2)
1090 RETURN
1100 SAVE "STUD"
1110 RUN