add all BASIC source files and folders

66 Number/number.bas

@@ -0,0 +1,37 @@
+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