0 Q=36874:POKEQ+5,30:PRINT"";:FORT=1TO22:PRINT" ";:NEXT
1 PRINT"SCHLOWSKI & BORAY 2006":GOSUB68:GOSUB34:GOTO15
2 G=G-FA:D=D+1:GOSUB80:IFW>0THENC=0:GOSUB66
3 GOSUB28:FORT=1TO5:GOSUB77:GOSUB32:NEXT:GOSUB45:FORI=1TO5:O%(I)=0:NEXT
4 E=Y+INT(RND(1)*42)
5 FORT=1TO5:H%(T)=PEEK(E+T):A=H%(T):GOSUB77:GOSUB33:GOSUB40:NEXT
6 GOSUB82:PRINT" 1-5 TOGGLE  SPC=DEAL";:POKE198,0
7 GETA$:IFA$=""THEN7
8 GOSUB79:IFA$=" "THEN12
9 H=VAL(A$):IF(H=0)OR(H>5)THEN7
10 O%(H)=1-O%(H):A=H%(H):T=H:IFO%(H)=0THENGOSUB33:GOSUB40:GOTO7
11 GOSUB32:GOTO7
12 E=E+6:FORI=1TO5:IFO%(I)=1THENH%(I)=PEEK(E):E=E+1
13 NEXT:GOSUB45:FORT=1TO5:IFO%(T)=1THENA=H%(T):GOSUB77:GOSUB33:GOSUB40
14 NEXT:GOSUB47:GOSUB49:IFW>0THENC=2:GOSUB74:P%(W,1)=P%(W,1)+1:GOSUB26:GOSUB66
15 GOSUB24:IFW=0THENGOSUB76
16 GOSUB82:PRINT"D=DISP B=BET SPC=DEAL";:POKE198,0
17 GETA$:IFA$=""THEN17
18 GOSUB79:IFFA<9ANDG>FATHENIFA$="B"THENFA=FA+1:GOSUB80:GOTO17
19 ON-(A$=" ")GOTO22:ON-(A$<>"D")GOTO17:Z=1-Z:IFW>0THENC=0:GOSUB66
20 GOSUB26:IFW>0THENC=2:GOSUB66
21 GOTO17
22 IFG>0THEN2
23 Z=1:GOSUB26:PRINT"LOSER!":GOSUB76:END
24 IFW>0THENFORG=GTOG+P%(W,0)*FA:GOSUB80:NEXT:G=G-1
25 FA=1:GOSUB80:RETURN
26 POKE214,12:PRINT"":FORT=1TO9
27 PRINT,""RIGHT$("     "+STR$(P%(T,Z)),5):NEXT:RETURN
28 PRINT" "E$;
29 PRINTE$E$E$;
30 PRINTE$"   1   2   3   4   5  "
31 RETURN
32 PRINT""SPC(T*4-3)"":RETURN
33 PRINT""SPC(T*4-3)"               ":RETURN
34 PRINT"    WINNING TABLE":FORT=1TO22:PRINT"-";:NEXT
35 PRINT" 1 PAIR (JQKA) ="," 2 PAIRS (ANY) ="," 3 OF A KIND   ="
36 PRINT" STRAIGHT      ="," FLUSH         ="," FULL HOUSE    ="
37 PRINT" 4 OF A KIND   ="," STR. FLUSH    ="," ROYAL FLUSH   ="
38 POKE8185,160:POKE38905,6
39 FORT=217TO227:POKET,158:POKET+12,159:NEXT:GOSUB26:RETURN
40 CC=A/16:C$=S$(CC)
41 K=2+AAND15:IFK<11THENX$=MID$(STR$(K),2):O$=C$+X$:U$=X$+C$
42 IFK>10THENK=K-11:O$=C$+K$(K):U$=K$(K)+C$
43 IFLEN(O$)<3THENO$=" "+O$
44 PRINT""F$(CC)SPC(T*4-3)O$:PRINT""F$(CC)SPC(T*4-3)U$:RETURN
45 K1=RND(1)*52+Y:FORI=0TO75:K2=RND(1)*52+Y:M=PEEK(K1):POKEK1,PEEK(K2):POKEK2,M:K1=K2
46 NEXT:RETURN
47 FORI=1TO4:FORT=I+1TO5:IF(H%(I)AND15)>(H%(T)AND15)THENM=H%(I):H%(I)=H%(T):H%(T)=M
48 NEXT:NEXT:RETURN
49 V=0:X=0:F=0:S=0:R=0:W=0:FORI=1TO5:K%(I,1)=H%(I)AND15:K%(I,2)=H%(I)/16:NEXT
50 FORT=1TO4:P=1:A=K%(T,1):FORI=T+1TO5:IFK%(I,1)>-1THENIFK%(I,1)=ATHENP=P+1:K%(I,1)=-1
51 NEXT:IFP>1THENIFA>8THENP=P+128
52 IFP>1THENX=P:IFV=0THENV=P:X=0
53 NEXT:A=K%(1,1):S=1:FORI=2TO5:A=A+1:IFK%(I,1)<>ATHENS=S-1
54 NEXT:IFS<0THENS=0
55 A=K%(1,2):F=1:FORI=2TO5:IFK%(I,2)<>ATHENF=F-1
56 NEXT:IFF<0THENF=0
57 IFS=1THENIFK%(5,1)=12THENR=1
58 IF(V>0)AND(X>0)THENW=2:IF((VAND127)=3)OR((XAND127)=3)THENW=6:GOTO63
59 IF(V<3)AND(X=0)THEN63
60 IFW=0ANDV=130THENW=1:GOTO63
61 V=VAND127:IFV=3THENW=3
62 IFV=4THENW=7
63 IFF=0THENIFS=1THENW=4
64 IFF=1THENW=5:IFS=1THENW=8:IFR=1THENW=9
65 RETURN
66 L=(W+12)*22:N=38400+L:O=7680+L:B=128:IFC=0THENB=-B
67 FORI=0TO21:POKEN+I,C:POKEO+I,PEEK(O+I)+B:NEXT:RETURN
68 DIMS$(3):S$(0)="":S$(1)="":S$(2)="":S$(3)="":DIMF$(3):F$(0)=""
69 F$(1)="":F$(2)="":F$(3)="":DIMK$(3):K$(0)="J":K$(1)="Q":K$(2)="K"
70 K$(3)="A":Y=828:FORI=0TO3:FORT=0TO12:POKEY+I*13+T,I*16+T:NEXT:NEXT
71 I=RND(-TI):FA=1:DIMH%(5):DIMK%(5,2):DIMO%(5):G=10
72 DIMP%(9,1):P%(1,0)=1:P%(2,0)=2:P%(3,0)=4:P%(4,0)=6:P%(5,0)=8
73 P%(6,0)=10:P%(7,0)=15:P%(8,0)=25:P%(9,0)=50:E$="                "
74 FORJ=15TO0STEP-3:POKEQ+4,J:FORR=190TO252STEP10:POKEQ+1,R:FORU=1TO19:NEXTU,R,J
75 POKEQ+1,0:RETURN
76 FORJ=15TO8STEP-.1:POKEQ+4,J:POKEQ,J*15:NEXT:RETURN
77 POKEQ+3,253:FORJ=0TO5STEP.4+RND(1)/2:POKEQ+4,J:NEXT
78 FORH=0TO1:POKEQ+3,236+H*3:FORJ=13+2*HTO0STEP-4:POKEQ+4,J:NEXTJ,H:POKEQ+3,0:RETURN
79 POKEQ+4,15:POKEQ,250:FORJ=1TO2:NEXT:POKEQ,0:RETURN
80 IFG>MOTHENMO=G
81 PRINT"GAME"D,"TOP:"MO:PRINT" BET"FA"  COINS:"G" ":RETURN
82 POKE214,21:PRINT:RETURN
