File NN1.BA (BASIC source file)

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

1 PRINT "**********ONE ARMED BANDIT**********"
2 PRINT 
3 GO TO 20 
4 PRINT "WHAT IS YOUR LUCKY NUMBER TODAY, BETWEEN 1 AND 711";
5 INPUT Q
6 IF Q<1 THEN 2 
7 IF Q>711 THEN 2 
8 PRINT 
9 READ Q9
10 DATA 43
11 LET U=INT(Q+Q9)
12 FOR I=1 TO U
13 LET V=RND(I)
14 NEXT I
15 LET S=INT(30+15*V)
16 PRINT "GOOD, YOUR STARTING BALANCE IS";S/2;"POUNDS,OR";S;"50P PIECES"
17 PRINT 
18 GO TO 30 
19 PRINT 
20 PRINT "EACH PLAY YOU CAN PUT ANY AMOUNT OF 50 PENCE'S INTO"
21 PRINT "THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN"
22 PRINT "THE NUMBER OF COINS"
23 PRINT 
24 PRINT "YOU 'PULL DOWN THE HANDLE' BY PRESSING THE RETURN KEY"
25 PRINT 
26 PRINT "WHEN YOUR BALANCE REACHES ZERO THE GAME IS OVER"
27 PRINT "OR TYPE A ZERO TO STOP AT ANY TIME. GOOD LUCK"
28 PRINT 
29 GO TO 4 
30 PRINT "HOW MANY COINS DO YOU WISH TO PUT ON YOUR FIRST PLAY"
31 INPUT Z
32 IF Z=INT(Z) THEN 36 
33 PRINT 
34 PRINT "NO FRACTIONAL COINS ALLOWED IN THIS CASINO"
35 GO TO 39 
36 IF Z<=0 THEN 147 
37 IF Z<S+1 THEN 44 
38 PRINT 
39 PRINT "ILLEGAL PLAY, TRY AGAIN....WHAT'S YOUR PLEASURE";
40 GO TO 31 
41 PRINT 
42 PRINT "SO SOON!.....YOU HAVN'T GIVEN IT A WHIRL YET!"
43 GO TO 155 
44 PRINT 
46 FOR I=1 TO 3
47 FOR J=1 TO 6
48 READ P(I,J)
49 NEXT J
50 NEXT I
51 LET E4=0
52 FOR I=1 TO 3
53 LET R=RND(I)
54 FOR J=1 TO 6
55 LET T(I)=J
56 IF R<P(I,J) THEN 58 
57 NEXT J
58 NEXT I
59 FOR I=1 TO 3
60 LET W=T(I)
61 IF W=1 THEN 67 
62 IF W=2 THEN 69 
63 IF W=3 THEN 71 
64 IF W=4 THEN 73 
65 IF W=5 THEN 75 
66 IF W=6 THEN 77 
67 PRINT "LEMON   ";
68 GO TO 79 
69 PRINT "CHERRY   ";
70 GO TO 79 
71 PRINT "ORANGE   ";
72 GO TO 79 
73 PRINT "PLUM   ";
74 GO TO 79 
75 PRINT "BELL   ";
76 GO TO 79 
77 PRINT "APPLE   ";
78 GO TO 79 
79 NEXT I
80 LET D=100*T(1)+10*T(2)+T(3)
81 IF D=221 THEN 96 
82 IF D=223 THEN 96 
83 IF D=224 THEN 96 
84 IF D=225 THEN 97 
85 IF D=226 THEN 99 
86 IF D=333 THEN 103 
87 IF D=444 THEN 105 
88 IF D=555 THEN 107 
89 IF D=336 THEN 109 
90 IF D=446 THEN 111 
91 IF D=556 THEN 113 
92 IF D=666 THEN 115 
93 LET D=0
94 PRINT "A LOSER"
95 GO TO 119 
96 LET D=2*Z
97 LET D=4*Z
98 GO TO 119 
99 LET D=6*Z
100 GO TO 119 
101 LET D=8*Z
102 GO TO 119 
103 LET D=10*Z
104 GO TO 119 
105 LET D=12*Z
106 GO TO 119 
107 LET D=14*Z
108 GO TO 119 
109 LET D=16*Z
110 GO TO 119 
111 LET D=18*Z
112 GO TO 119 
113 LET D=20*Z
114 GO TO 119 
115 LET D=INT8200+400*RND(T(2)))
116 PRINT "..... YOU HIT THE JACKPOT....WIN";D/2;"POUNDS"
117 PRINT 
118 LET E4=1
119 LET S=S+D-Z
120 IF S>0 THEN 123 
121 PRINT "HARD LUCK..... YOU JUST RAN OUT OF THE READY'S"
122 GO TO 139 
123 IF D=0 TEN 126 
124 IF E4=1 THEN 126 
125 PRINT "YOU WIN:";D/2;"POUNDS"
126 PRINT "...BALANCE:";S/2;"POUNDS.   NEXT WAGER PLEASE"
127 INPUT Z
128 IF Z=INT(Z) THEN 132 
130 PRINT "NO FRACTIONAL COINS ALLOWED IN THIS CASINO!"
131 GO TO 135 
132 IF Z<=0 THEN 132 
133 IF Z<S+1 THEN 137 
134 PRINT 
135 PRINT "ILLEGAL PLAY.....TRY AGAIN...WHAT'S YOUR PLEASURE";
136 GO TO 127 
137 PRINT 
138 GO TO 52 
139 PRINT 
140 PRINT "THE GAME IS OVER ,BETTER LUCK NEXT TIME"
141 GO TO 155 
142 DATA 0,.4,.65,.83,.94,1
143 DATA .1,.45,.65,.8,.9,1
144 DATA .3,.3,.5,.7,.82,1
145 PRINT 
146 PRINT "...SO SOON!,...ANYWAY IT WAS FUN,WASN'T IT?"
147 PRINT 
148 IF Z=0 THEN 41 
149 GO TO 39 
150 IF Z=0 THEN 145 
151 GO TO 134 
155 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