new

20 C=1024:D=135:J=14337:I=0:DIMNN(3)
50 GOSUB1000:G=200:GOSUB900:K=0
60 POKEJ,8:POKEJ+1,50:?"    Your Cash = $";G;"   ":IFG>KTHENK=G
65 IFG=0THEN?:?:?TAB(10)"NO  MONEY !":FORX=1TO250:SOUND(8,X):NEXT:GOTO50
70 POKEJ,88:H=0:INPUT"    How much to bet ";H:SOUND(10,10)
75 H=INT(H):IFH<1ORH>GTHENY=12888:GOSUB970:GOTO70
80 POKEJ,168:NN(0)=0:INPUT"    On number ";NN(0):SOUND(10,10)
85 IFNN(0)<1ORNN(0)>6THENY=12968:GOSUB970:GOTO80
90 POKEJ,248:?"    RTN  throws":IFINKEY$<>""THEN90
95 Z=RND(1):SOUND(1,187):FORY=1TO50:NEXT:IFINKEY$=""THEN95
100 E=0:FORF=1TO3
110 A=INT(10*RND(1)+E+12330):B=INT(8*RND(1)):A=A+(B*40):SOUND(10,60)
120 Z=INT(6*RND(1)+1):GOSUB800:ONZGOSUB810,820,830,840,850,860
130 NN(F)=Z:E=E+12:NEXTF:Y=0:FORX=1TO3:IFNN(0)=NN(X)THENY=Y+1
140 NEXT:IFY=0THEN?:?"    YOU LOSE":G=G-H
145 IFY=1THEN?:?"    YOU WIN ON EVENS !":G=G+H
150 IFY=2THEN?:?"    YOU WIN DOUBLE YOUR BET !":G=G+(2*H)
155 IFY=3THEN?:?"     YOU WIN TRIPLE YOUR BET !":G=G+(3*H)
165 GOSUB1040
175 Y=12888:GOSUB970:GOSUB980:GOTO60
800 B=A+C:FORX=0TO2:FORY=0TO2:POKEB+Y,7:NEXT:B=B+40:NEXT:RETURN
810 POKEA+41,D:RETURN
820 POKEA,D:POKEA+82,D:RETURN
830 POKEA+2,D:POKEA+80,D:GOSUB810:RETURN
840 GOSUB850:POKEA+41,32:RETURN
850 GOSUB830:GOSUB820:RETURN
860 GOSUB840:POKEA+40,D:POKEA+42,D:RETURN
900 ?CHR$(11):FORX=13312TO14311:POKEX,204:NEXT:GOSUB980
910 A=13794:FORX=0TO12:FORY=0TO35:POKEA+Y,116:NEXT:A=A+40:NEXT
930 RETURN
970 FORX=YTO13287:POKEX,32:NEXT:RETURN
980 A=12330:FORY=0TO9:FORX=0TO35:POKEA+X,32:POKEA+X+C,2:NEXT:A=A+40:NEXT
990 RETURN
1000 ?CHR$(11):?"   GAMBLER   ";CHR$(5);" Digital Output 1984":?:?:?
1010 ?TAB(4)"See packaging for instructions":?
1011 ?TAB(11)"Bet on number 1-6":?:?
1020 ?TAB(9)"Best Score = $";I:?:?TAB(9)"Last Score = $";K:?:?:?
1030 IFK>ITHEN?TAB(9)"This is a New Best !":?:?:I=K
1040 ?:INPUT"     RTN ";F:RETURN

rem edited
rem for unexpanded Aquarius
