Listing of file='CASINO ' on disk='vmedia/gamesall.wvd.zip'
# Sector 500, program filename = 'CASINO' 0005 REM "NEW CLEA CASINO" : DIM Q6$64 : W0$="N" 0010 REM "DECAY1" : PRINT HEX(03);TAB(20);"---THE NEW CLEA CASINO---" : GOSUB '248(4,0,0) : PRINT " MR. A. TOM MICK, GENERAL MANAGER OF THE NEW CLEA CASINO," 0015 DIM Q6$64 : W0$="N" 0200 PRINT "HAS, AT TIME T=0, DISCOVERED 100,000 RADIOACTIVE PLAYING" 0210 PRINT "CHIPS AT HIS TABLE. THEIR HALF-LIFE IS 10 MINUTES. EACH CHIP" : PRINT "TRANSMUTES SPONTANEOUSLY AND COMPLETELY IN A RANDOM FASHION." : PRINT : PRINT " AT VARIOUS TIMES T, AFTER T=0, YOU MUST DETERMINE WITHIN" 0250 PRINT "A CERTAIN PERCENTAGE, HOW MANY CHIPS ARE LEFT." : PRINT : PRINT " TO FURTHER THE INTEREST OF THE GAME, YOU WILL START WITH" : PRINT "$1,000 AND THE HOUSE WITH AN UNSPECIFIED AMOUNT. HALF THE" 0290 PRINT "MONEY YOU HAVE WILL RIDE ON EACH GUESS YOU TAKE. LET'S SEE" : PRINT "IF YOU CAN BREAK THE HOUSE BEFORE THE CHIPS RUN OUT."; : GOSUB '243("KEY RETURN (EXEC) TO CONTINUE",1) : GOSUB '248(4,0,12) : PRINT : PRINT "THE HOUSE OFFERS THE FOLLOWING ODDS:" 0350 PRINT " 2) 2 TO 1 ODDS FOR GUESSING WITHIN 20 PERCENT" : PRINT " 4) 4 TO 1 ODDS FOR GUESSING WITHIN 10 PERCENT" : PRINT " 8) 8 TO 1 ODDS FOR GUESSING WITHIN 5 PERCENT." 0380 GOSUB '245("GIVE ME YOUR LUCKY NUMBER",2,0) : FOR I=1TO Q9 : T3=RND(RND(Q9)) : NEXT I 0420 IF W0$="N"THEN 450 : GOSUB '200 : GOTO 460 0450 GOSUB '248(5,0,6) 0460 PRINT : PRINT : PRINT " $$ MONEY $$ TIME GUESS NO. OF CHIPS LEFT" : PRINT " YOURS HOUSE (MIN) NO. ODDS GUESSED ACTUAL" 0500 % ####### ####### ###.# ## 0510 %# ####### ####### 0520 G,D,A,B,T=0 : Y=1000 0540 C=0 : IF ABS(G-D)<500THEN 580 : G=5 : D=2 0580 B=B+1 : FOR I=1TO 3+A+ABS(G-D) : T3=INT(100*RND(-Y))/10 : NEXT I : T=T+T3 : D=INT(100000*EXP(-.0693*T)) : IF D=0THEN 1040 : IF W0$="N"THEN 680 : GOSUB '200 : GOTO 690 0680 GOSUB '248(14-(1-(B/5-INT(B/5)))*5,0,2) 0690 PRINTUSING 500,Y,1.001E+6-Y,T,B 0700 GOSUB '245("WHAT ODDS DO YOU WANT (2=20%:4=10%:8=5%)",1,0) : A=Q9 : IF A=2THEN 800 : IF A=4THEN 800 : IF A=8THEN 800 : GOSUB '248(3,0,0) : PRINT "SORRY PAL, WE DONT OFFER THOSE ODDS." : IF C=1THEN 1020 : C=1 : GOTO 700 0800 GOSUB '245("HOW MANY CHIPS ARE LEFT",6,0) : G=Q9 0820 IF W0$="N"THEN 860 : GOSUB '200 : PRINT TAB(38); : GOTO 870 0860 GOSUB '248(14-(1-(B/5-INT(B/5)))*5,39,2) 0870 PRINTUSING 510,A,G,D : GOSUB '248(3,0,4) : T=10*B : IF ABS(D-G)<=D/A*.4THEN 950 : Y=INT(Y-Y/2) : IF Y<=50THEN 1020 : PRINT "TOO BAD, YOU LOST. TRY AGAIN." : GOTO 540 0950 Y=INT(Y+A*Y/2) : IF 1E+6-Y<1THEN 1070 : IF Y>200000THEN 1000 0980 PRINT "YOU WON. TRY AGAIN." : GOTO 540 1000 PRINT "YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT." : GOTO 540 1020 PRINT "IT SEEMS YOU JUST CANT GET THE HANG OF IT. SAVE YOUR BREAD." : GOTO 1140 1040 PRINT "OOOOPS... SORRY PAL, THE LAST CHIP JUST DISINTEGRATED." 1050 PRINT "THE HOUSE IS CLOSED." : GOTO 1140 1070 PRINT "YOU BROKE THE HOUSE. YOU NEEDED ONLY "; : IF B>5THEN 1110 : PRINT "THE MINIMUM NUMBER OF GUESSES." : GOTO 1120 1110 PRINT B;"GUESSES." 1120 PRINT "CONGRATULATIONS." : PRINT "YOU MUST KNOW A LOT ABOUT RADIOACTIVITY AND THINGS." 1140 GOSUB '243("KEY RETURN (EXEC) TO CONTINUE",0) : GOSUB '248(4,0,12) : PRINT " THANKS FOR PLAYING......DONT SPEND IT ALL IN ONE PLACE" : PRINT : PRINT " * * * * * * * * * * * * * * * * * * * * * * * * * * *" : PRINT " *";TAB(36);"CHECK NO.";B+D;TAB(57);"*" 1200 PRINT " *";TAB(36);"DATE: ----------19--";TAB(57);"*" : PRINT " *";TAB(57);"*" : PRINT " * PAY TO THE ORDER OF C A S H $";Y;TAB(57);"*" : PRINT " *";TAB(29);"-------------------------";TAB(57);"*" : PRINT " * THE NEW CLEA CASINO";TAB(40);"A TOM MICK *" 1250 PRINT " *";TAB(40);"GENERAL MANAGER *" : PRINT " * * * * * * * * * * * * * * * * * * * * * * * * * * *" 1260 GOSUB '243("WOULD YOU LIKE TO PLAY THE GAME AGAIN (Y/N)",1) : PRINT HEX(03);TAB(20);"---THE NEW CLEA CASINO---" : IF Q6$="Y"THEN 380 : IF Q6$<>"N"THEN 1260 1300 STOP 8710 Q6=3 : GOTO 9490 8790 DEFFN'242(W0,Q6$) : IF W0<=0THEN 9680 : IF W0=1THEN 8840 : STR(Q6$,2)=STR(Q6$,1,W0-1) 8840 PRINT Q6$; : RETURN 8870 DEFFN'243(Q6$,Q0) : GOSUB 9330 8900 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 9430 : IF LEN(Q6$)<=Q0THEN 9430 : GOSUB 9290 8970 DEFFN'244(Q0) : GOSUB 9400 : GOSUB 9360 : GOTO 8900 9020 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 9050 GOSUB 9330 9060 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 9400 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 9160 : IF Q9>=0THEN 9240 : IF Q2<=0THEN 9240 9160 GOSUB 9290 9180 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 9400 : GOSUB 9360 : GOTO 9060 9240 IF ABS(Q9)>=10^ABS(Q2)THEN 9160 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 9160 : GOTO 8710 9290 GOSUB 8710 : PRINT "RE-ENTER" : RETURN 9330 GOSUB 9680 : PRINT HEX(010A);STR(Q6$,1); 9360 GOSUB 9680 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 9400 PRINT HEX(010A0A) : RETURN 9430 PRINT HEX(0A);TAB(64) : GOTO 9680 9450 Q6=0 9490 Q7=0 : Q8=1 9520 DEFFN'248(Q6,Q7,Q8) : GOSUB 9680 : IF Q8<1THEN 9640 : GOSUB 9640 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 9640 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 9640 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 9680 SELECT PRINT 005(64),CO 005 : RETURN 9720 DEFFN'31 : W0$="N" : RETURN 9770 DEFFN'15 : W0$="Y" : RETURN 9820 DEFFN'200 9830 SELECT PRINT 015(80) : IF W9$="T"THEN 9880 : SELECT PRINT 211(80) : IF W9$="P"THEN 9880 : SELECT PRINT 215(80) 9880 RETURN