10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  *******************
20  REM
30  REM             DECAY1:  RADIOACTIVE DECAY GAME
40  REM
50  REM             36306  (A833)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  ************************************
80  REM DECAY1 - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN
90  REM  RICHARD F. PAV, PATCHOGUE H.S., (PHYSICS)  REVISED NOV. 26,1968 
100  REM  THIS IS A GAME BASED ON RADIOACTIVE DECAY.
110  PRINT "              ---THE NEW CLEA CASINO---"
120  PRINT 
130  PRINT "     MR. A. TOM MICK, GENERAL MANAGER OF THE NEW CLEA CASINO,"
140  PRINT "HAS, AT TIME  T=0,  DISCOVERED  100,000 RADIOACTIVE PLAYING"
150  PRINT "CHIPS AT HIS TABLE. THEIR HALF-LIFE IS 10 MINUTES. EACH CHIP"
160  PRINT "TRANSMUTES SPONTANEOUSLY AND COMPLETELY IN A RANDOM FASHION."
170  PRINT 
180  PRINT "     AT VARIOUS TIMES T, AFTER T=0, YOU MUST DETERMINE WITHIN"
190  PRINT "A CERTAIN PERCENTAGE, HOW MANY CHIPS ARE LEFT."
200  PRINT 
210  PRINT "     TO FURTHER THE INTEREST OF THE GAME, YOU WILL START WITH"
220  PRINT "$1,000 AND THE HOUSE WITH AN UNSPECIFIED AMOUNT.  HALF THE"
230  PRINT "MONEY YOU HAVE WILL RIDE ON EACH GUESS YOU TAKE.  LET'S SEE"
240  PRINT "IF YOU CAN BREAK THE HOUSE BEFORE THE CHIPS RUN OUT."
250  PRINT 
260  PRINT "THE HOUSE OFFERS THE FOLLOWING ODDS:"
270  PRINT "     2) 2 TO 1 ODDS FOR GUESSING WITHIN 20 PERCENT"
280  PRINT "     4) 4 TO 1 ODDS FOR GUESSING WITHIN 10 PERCENT"
290  PRINT "     8) 8 TO 1 ODDS FOR GUESSING WITHIN  5 PERCENT."
300  PRINT 
310  PRINT "ENTER THE NUMBER 2, 4, OR 8 FOR THE ODDS YOU WANT AFTER THE"
320  PRINT "QUESTION MARK IN THE COLUMN LABELLED ODDS."
330  PRINT 
340  PRINT "YOUR $","HOUSE $","TIME (MIN)","ODDS"
350  LET G=D=0
360  LET A=0
370  LET B=0
380  LET T=0
390  LET Y=1000
400  LET C=0
410  PRINT 
420  IF ABS(G-D)<1500 THEN 450
430  LET G=5
440  LET D=2
450  LET B=B+1
460  FOR I=1 TO 3+A+ABS(G-D)
470  LET T3=INT(100*RND(-Y))/10
480  NEXT I
490  LET T=T+T3
500  LET D=INT(100000.*EXP(-.0693*T))
510  IF D=0 THEN 860
520  PRINT Y,1.001E+06-Y,T,
530  INPUT A
540  IF A=2 THEN 610
550  IF A=4 THEN 610
560  IF A=8 THEN 610
570  PRINT "SORRY PAL, WE DONT OFFER THOSE ODDS."
580  IF C=1 THEN 820
590  LET C=1
600  GOTO 520
610  PRINT "HOW MANY CHIPS LEFT ";
620  INPUT G
630  PRINT "ACTUAL NUMBER LEFT IS ";D
640  IF A=2 THEN 700
650  IF A=4 THEN 680
660  LET P=.05
670  GOTO 710
680  LET P=.1
690  GOTO 710
700  LET P=.2
710  LET T=10*B
720  IF ABS(D-G) <= P*D THEN 770
730  LET Y=INT(Y-Y/2)
740  IF Y <= 50 THEN 820
750  PRINT "TOO BAD, YOU LOST. TRY AGAIN."
760  GOTO 400
770  LET Y=INT(Y+A*Y/2)
780  IF 1.E+06-Y<1 THEN 890
790  IF Y>200000. THEN 840
800  PRINT "YOU WON. TRY AGAIN."
810  GOTO 400
820  PRINT "IT SEEMS YOU JUST CANT GET THE HANG OF IT. SAVE YOUR BREAD."
830  GOTO 970
840  PRINT "YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT."
850  GOTO 400
860  PRINT "OOOOPS... SORRY PAL, THE LAST CHIP JUST DISINTEGRATED."
870  PRINT "THE HOUSE IS CLOSED."
880  GOTO 970
890  PRINT "YOU BROKE THE HOUSE. YOU NEEDED ONLY ";
900  LET Y=1.001E+06
910  IF B>5 THEN 940
920  PRINT "THE MINIMUM NUMBER OF GUESSES."
930  GOTO 950
940  PRINT B;"GUESSES."
950  PRINT "CONGRATULATIONS."
960  PRINT "YOU MUST KNOW A LOT ABOUT RADIOACTIVITY AND THINGS."
970  PRINT "THANKS FOR PLAYING.."
980  PRINT 
990  PRINT "-------------------------------------------------------------"
1000  PRINT 
1010  PRINT "                                       CHECK NO.";B+D
1020  PRINT 
1030  PRINT "                                    DATE: ";
1040  PRINT "-------------19--"
1050  PRINT 
1060  PRINT 
1070  PRINT " PAY TO THE ORDER OF--";
1080  PRINT "------CASH------";
1090  PRINT "$";Y
1100  PRINT 
1110  PRINT 
1120  PRINT " THE NEW CLEA CASINO                   A. TOM MICK"
1130  PRINT "                                        GENERAL MANAGER"
1140  PRINT 
1150  PRINT "--------------------------------------------------------------"
1160  PRINT 
1170  PRINT "DONT SPEND IT ALL IN ONE PLACE."
1180  END 
