16 GOSUB 30:IF I$=CHR$(27) THEN CLS:GOSUB 41:GOTO 12 ELSE IF I$=" " AND D>0 THEN W=0:GOSUB 32:W=1:GOSUB 29:GOSUB 32:GOTO 24 ELSE IF I$<>CHR$(13) THEN 16
17 PRINT@66,"Coin Accepted":IF D=0 THEN FOR N=0 TO 280 STEP 40:PRINT@N,SPACE$(4);:NEXT:FOR N=9 TO 289 STEP 40:PRINT@N,SPACE$(2);:PRINT@N+7,SPACE$(2);:PRINT@N+14,SPACE$(2);:NEXT
18 IF D=5 THEN 16 ELSE T=T-1:GOSUB33:D=D+1:SOUND 3500,LG:ON D GOSUB 19,20,21,22,23:GOTO 16
24 TT=T:Z=0:FOR CK=0 TO D-1:IF W(0,CK)=1 THEN Z=2-3*(W(1,CK)=1):GOTO 26
25 IF W(0,CK)<>W(1,CK) OR ((W(1,CK)<>W(2,CK) OR W(1,CK)=5) AND W(2,CK)<>5) OR (W(1,CK)=6 AND W(2,CK)=5) THEN 27 ELSE IF W(0,CK)<5 THEN Z=2+4*W(0,CK) ELSE Z=100-100*(W(0,CK)=6)
26 GOSUB 28:FOR CT=1 TO Z STEP 1-4*(W(0,CK)>4):T=T+1-4*(W(0,CK)>4):SOUND 450,LG:GOSUB33:NEXT
27 NEXT:U=1:CK=9:PRINT@66,"Insert Coins";SPACE$(1):IF Z THEN D=0:GOTO 16 ELSE FOR Z=1 TO 200/D:NEXT:SOUND 16300,9*LG:D=0:GOTO 16
29 FOR N=0 TO 2:Q(N)=INT(20*RND(1))+2:NEXT:FOR J=0 TO 2:FOR N=0 TO 2:W(N,J)=VAL(MID$(W$,Q(N)+22*N+VAL(MID$("00-1+1",2*J+1,2)),1)):NEXT:NEXT:FOR N=0 TO 2:W(N,3)=W(N,VAL(MID$("102",N+1,1))):W(N,4)=W(N,VAL(MID$("201",N+1,1))):NEXT:RETURN
30 N=RND(1):I$=INKEY$:IF I$="" THEN 30 ELSE IF PEEK(X)=7 THEN MENU ELSE RETURN
31 CLS:FOR N=0 TO 84 STEP 42:LINE(27+N,0)-(52+N,63),1,B:LINE(28+N,1)-(51+N,62),1,B:NEXT:PRINT@266,"You are":GOSUB33:PRINT@147,"Coins":PRINT@187,"paid";CHR$(241);CHR$(154):LINE(159,21)-(217,41),1,B
32 K=-1:FOR R=32 TO 116 STEP 42:K=K+1:FOR C=5 TO 43 STEP 19:ON W(K,VAL(MID$("102",(C+14)/19,1))) GOSUB 44,45,46,47,48,49:NEXT:SOUND 8000,2*LG*W:NEXT:RETURN
33 IF T=0 THEN PRINT@306,"Now Even";ELSE IF T<0 THEN PRINT@306,"Down $";MID$(STR$(ABS(T)),2);SPACE$(1); ELSE PRINT@306,"Ahead $";MID$(STR$(ABS(T)),2);SPACE$(1);
34 IF CK<9 THEN PRINT@193,RIGHT$("00"+MID$(STR$(T-TT),2,3),3) ELSE PRINT@193,"000"
39 C=0:FOR R=126 TO 150 STEP 24:GOSUB47:NEXT:LINE(178,C)-(178,C+6):LINE(177,C+1)-(179,C+5),1,B:LINE(176,C+2)-(180,C+4),1,B:LINE(175,C+3)-(181,C+3):GOSUB43:PRINT@74,"$ 18"
40 C=17:FOR R=126 TO 174 STEP 24:GOSUB48:NEXT:PRINT@154,"$100":C=33:FORR=126 TO 174 STEP 24:GOSUB 49:NEXT:PRINT@234,"$200":PRINT@302,"(Press any key)";:RETURN
41 CLS:PRINT@5,"Press for":LINE(30,10)-(58,10):LINE(72,10)-(88,10):PRINT@87,"1 True Casino Odds":PRINT@127,"2 Generous Odds":PRINT@167,"3 Extremely Generous Odds":PRINT@207,"4 Return TO current Game":PRINT@247,"5 Payout Chart"