File NUMBER.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

1 PRINT "                NUMBER GAME"
2 PRINT\PRINT "YOU NOW HAVE 100 POINTS"
3 PRINT "BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
4 PRINT "POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"
5 PRINT "NUMBER SELECTED BY THE COMPUTER"\PRINT
6 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"
7 PRINT "YOUR POINT COUNT.  YOU WIN WHEN YOU GET 500 POINTS."
8 PRINT\P=100
11 PRINT "GUESS A NUMBER FROM 1 TO 5";
12 INPUT G
15 LET R=INT(5*RND(0))
16 LET S=INT(5*RND(0))
17 LET T=INT(5*RND(0))
18 LET U=INT(5*RND(0))
19 LET V=INT(5*RND(0))
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 11
30 LET P=P-5
35 GOTO 80
40 LET P=P+5
45 GOTO 80
50 LET P=P+P
53 PRINT "YOU HIT THE JACKPOT"
55 GOTO 80
60 LET P=P+1
65 GOTO 80
70 LET P=P-(P*.5)
80 IF P>500 THEN 90
82 PRINT "YOU HAVE ";P;"POINTS"
85 GOTO 11
90 PRINT "!!!!YOU WIN!!!! WITH  ";P; "POINTS"
95 PRINT"DO YOU WISH TO PLAY AGAIN (1=YES, 0=NO)";\INPUT Q9\IF Q9=1 THEN 8
99 END 



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search