1 PRINT TAB(33);"NUMBER" 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 4 PRINT "YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 TO 5, YOU" 5 PRINT "CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO" 6 PRINT "A RANDOM NUMBER SELECTED BY THE COMPUTER.": PRINT 7 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)" 8 PRINT "YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS." 9 PRINT: P=100 10 DEF FNR(X)=INT(5*RND(1)+1) 12 INPUT "GUESS A NUMBER FROM 1 TO 5";G 15 R=FNR(1) 16 S=FNR(1) 17 T=FNR(1) 18 U=FNR(1) 19 V=FNR(1) 20 IF G=R THEN 30 21 IF G=S THEN 40 22 IF G=T THEN 50 23 IF G=U THEN 60 24 IF G=V THEN 70 25 IF G>5 THEN 12 30 P=P-5 35 GOTO 80 40 P=P+5 45 GOTO 80 50 P=P+P 53 PRINT "YOU HIT THE JACKPOT!!!" 55 GOTO 80 60 P=P+1 65 GOTO 80 70 P=P-(P*.5) 80 IF P>500 THEN 90 82 PRINT "YOU HAVE";P;"POINTS.":PRINT 85 GOTO 12 90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS." 99 END