0 POKE45,211:POKE46,23:CLR:J=RND(-TI):POKE53281,0:POKE53280,14:PRINT"[155]"CHR$(142)
1 M=1000:DIMA(15),B(3):POKE36879,45:VE=36878:T1=VE-4:T3=VE-2:POKEVE,15:GOTO9000
2 POKE198,0:WAIT198,1:GETR$:R=VAL(R$):RETURN
5 A=INT(RND(8)*6)+INT(RND(8)*6)+2:RETURN
7 GOSUB2:IFR$="Y"ORR$="N"THENRETURN
8 GOTO7
100 PRINT"[147] =========== E[146]VEN OR O[146]DD? ===========
107 [129]Q[178]0[164]15:A(Q)[178].5:[130]:[129]Q[178]0[164]3:B(Q)[178][181](2[172][187](8)):[130]:C[178].8:D[178].3:E[178].
110 [129]F[178]0[164]4:[153]"";:[129]F1[178]0[164]9:G[178]B(3)[172]8[170]B(2)[172]4[170]B(1)[172]2[170]B(0):H[178]A(G):I[178]H
115 [139]I[178].5[167]I[178][187](8):[137]130
120 I[178]I[172]D[171](1[171]D)[172](I[177].5)
130 K[178].:J[178][171](I[179][187](8))
140 [141]2:[139]Z[167]Z[178].:[139]R$[178]"M"[167]9020
141 [139]R$[178]" "[167]R$[178][202]("EO",[187](8)[172]2[170]1,1):[137]150
145 [139]R$[179][177]"O"[175]R$[179][177]"E"[167]140
150 [153]:[153][163]F[172]8[170]2)R$;:[139]R$[178]"E"[167]K[178]1
160 E[178]E[170]1:[139]J[171]K[167]E[178]E[171]1:[153]"*";:V%[178]30:[141]10000
170 [153]:B(0)[178]B(2):B(1)[178]B(3):B(2)[178]K:B(3)[178]J:A(G)[178]C[172]A(G)[170](1[171]C)[172]B(2):[130]:[153]:[130]
180 [153]"LOADI GUESSED"50[171]E"OUT OF 50":WL[178]100[170]200[172](E[179]25)
190 [139]WL[179].[167][141]2000:[137]200
195 [141]2100
200 [141]7000:Z[178]1:[137]100
400 C[178]0:F[178][171]25:[141]5:E[178]A
405 C[178]C[170]1:[153]"LOAD          *** D I C E ***"
410 [153]"           FIRST ROLL="E
411 [153]"":[139]C[179]2[167]414
412 [141]5:[153]"ON          ROLL #"C"="A
413 [139]E[178]A[167][153]"            ***YOU LOSE***":[141]2000:M[178]M[171]25:[137]440
414 F[178]F[170]A:[153]"          RUNNING TOTAL = "F
415 [153]"          ROLL AGAIN?";:[141]7:V%[178]20:[141]10000:[139]R$[178]"Y"[167]405
430 [153]" NO":M[178]M[170]F
440 [139]M[179].[167]WL[178]0:[137]7020
442 [153]"":[129]J[178]1[164]9:[153]"":[130]:[153]"          YOU NOW HAVE $"M:[129]J[178]1[164]500:[130]
445 [143]
450 [153]"            PLAY AGAIN?":[141]7:[139]R$[178]"N"[167]9020
455 [137]400
700 [153]"LOAD           *** HIGH NUMBERS ***":[153][163]24)"BET:WAIT
705 B=.:WL=1
710 FORA=0TO9:A(A)=INT(RND(9)*900)+100:IFA(A)>BTHENB=A(A):C=A
720 NEXT
730 FORA=0TO8:PRINTA(A)TAB(5)"D[146]OUBLE/S[146]KIP/B[146]ET";
740 GOSUB2:V%=20:GOSUB10000:IFZTHENZ=0:IFR$="M"THEN9020
745 IFR$="B"THENPRINT:PRINT:WL=-WL-2*(A=C)*WL:D=A+1:A=8:NEXT:GOTO800
750 IFR$="D"THENWL=2*WL:GOTO760
755 IFR$<>"S"THEN740
760 WL$=STR$(WL):PRINTTAB(28-LEN(WL$))WL$
770 PRINT:NEXT:D=9:IFC-9THENWL=-WL
800 FORA=DTO9:PRINTA(A):IFA=9THENNEXT:GOTO810
805 PRINT:NEXT
810 PRINT"":FORA=0TOC:PRINT:PRINT:NEXT:PRINT">":GOSUB12000
812 IFWL<.THENGOSUB2000:GOTO820
814 GOSUB2100
820 FORF=1TO1500:NEXT:PRINT"[147]":GOSUB7000:Z=1:GOTO700
901 PRINT"TIME'S UP!":POKE198,0
910 PRINT"READY FOR ANOTHER ROUND?":GOSUB2:RUN
2000 POKET1,150:FORXX=1TO900:NEXT:POKET1,0:RETURN
2100 FORYY=220TO235STEP5:POKET3,YY:FORXX=1TO80:NEXT:NEXT
2110 FORXX=1TO250:NEXT:POKET3,0:RETURN
3000 RETURN
4000 PRINT"[147]               **EVEN-ODD**"
4005 PRINT"I WILL CALCULATE YOUR NEXT ENTRY
4010 [153]"BASED ON AN ANALYSIS OF YOUR PREVIOUS
4020 PRINT"ENTRIES.  IF YOU OUTWIT ME 50% OF THE
4030 [153]"TIME, YOU WIN $100.  OTHERWISE, YOU
4040 PRINT"WILL LOSE $100.
4100 [153][163]6)"          ***DICE***"
4105 [153]"ROLL THE DICE AS LONG AS YOU CAN WITHOUT";
4110 [153]"MATCHING YOUR FIRST ROLL.
4120 PRINT"IF YOU MATCH, YOU LOSE.  OTHERWISE, YOU KEEP THE POINTS YOU ROLLED.
4130 [153]"IT COSTS $25.00 TO GET IN ON THE ACTION EACH TIME.
4199 GOSUB4900
4200 PRINT"            ***HIGH NUMBERS***"
4205 PRINT"I WILL PICK TEN RANDOM NUMBERS BETWEEN
4210 [153]"100 AND 999 AND I WILL SHOW THEM TO YOU
4220 PRINT"ONE AT A TIME.  YOU START OFF WITH A ONEDOLLAR BET.
4230 [153]"AFTER EACH NUMBER YOU MAY:
4240 PRINT" 1. BET THAT IT IS THE LARGEST              OF THE TEN.
4250 [153]" 2. DOUBLE YOUR BET.
4260 PRINT" 3. SKIP TO THE NEXT NUMBER.
4900 [153]"(HIT ANY KEY FOR MORE)":[141]2:[153]"LOAD":[142]
6000 [153]"LOAD":X[178]12
6100 [153][163]X)"FOR(null)                (null)"
6110 [153][163]X)" WAITSYS (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) FOR "
6120 [153][163]X)" WAITCLR VICTORY CASINO FOR "
6130 [153][163]X)" WAITSYS USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR FOR "
6140 [153][163]X)"FOR(null)                (null)"
6200 [153]"PRINT#    COPYRIGHT (C) 1982 BRUCE ROBINSON"
6210 X[178]13:[153][163]X)"VICTORY SOFTWARE":[153][163]X)"PAOLI, PA  19301"
6999 X[178]0:[142]
7000 Q[178][187]([171]TI):[139]WL[179]0[167][153]"YOU LOSE $";[171]WL:[137]7020
7010 [153]"YOU WIN $"WL"!"
7020 M[178]M[170]WL:[153]"YOU NOW ";:[139]M[179].[167][153]"OWE";:[137]7025
7021 [153]"HAVE";
7025 [153]" $"[182](M)
7029 [139]M[177]0[167][153]"HIT <M> FOR MENU AT BEGINNING OF GAME.":[129]Q[178]1[164]4E3:[130]:[142]
7030 [153]"COUGH IT UP BY TUESDAY OR AL AND THE
7040 PRINT"BOYS ARE GONNA PAY YOU A LITTLE VISIT!!!
7050 [137]910
9000 [141]6000
9010 [153]"WELCOME TO THE VICTORY CASINO!
9015 TI$="200440":GOTO9021
9020 PRINT"[147]":IFPEEK(657)=0THENNEW:
9021 Q=RND(-TI):PRINT" YOU NOW HAVE $"M
9050 PRINT"WHICH GAME WOULD YOU LIKE TO PLAY?":PRINT" 1) EVEN-ODD":PRINT" 2) DICE
9055 [153]" 3) HIGH NUMBERS":[153]" I) INSTRUCTIONS";
9060 [141]2:[153]"LOAD":Z[178]1:[145]R[137]100,400,700:[141]4000:[137]9020
10000 VO[178]54296:[151]VO,15:A8[178]54272:[151]A8,40:[151]A8[170]1,40:[151]A8[170]5,15:[151]A8[170]6,240
10002 [151]A8[170]4,17:[129]EM[178]1[164]V%:[130]:[151]A8[170]4,16:[151]VO,0:[142]
12000 V%[178]100:[129]A[178]1[164]4:[141]10000:[129]AA[178]1[164]100:[130]:[130]:[142]