Source Code
10 PRINT "RUSSIAN ROULETT"
20 PRINT
25 PRINT "HI GUN TOTER. YOU HAVE"
30 PRINT "A PISTOL WITH ONE BULLET IN IT"
35 PRINT "YOU WILL SPIN THE CHAMBER"
40 PRINT "AND FIRE 10 TIMES"
45 PRINT "ARE YOU GAME TO PLAY?(Y OR N)"
50 INPUT A$
55 LET J=0
60 RAND
65 IF A$="N" THEN GOTO 185
70 PRINT "PRESS ENTER TO FIRE"
75 INPUT T$
80 CLS
85 PRINT
90 PRINT
95 PRINT
100 LET J=J+1
105 LET G=RND
110 PRINT ,"SHOT NUMBER ";J
115 IF G<5/6 THEN GOSUB 195
120 IF G>5/6 THEN GOTO 220
125 IF J=10 THEN GOTO 140
130 IF J<10 THEN GOTO 70
135 CLS
140 PRINT
145 PRINT
150 PRINT ,"YOU HAVE SURVIVED."
155 PRINT "IF YOU WANT TO RISK DEATH AGAIN"
160 PRINT "PRESS G FOR GO OR S FO STOP"
165 INPUT B$
170 CLS
180 IF B$="G" THEN GOTO 55
185 PRINT "COWARD... ";
190 GOTO 185
195 LET H=INT (2*RND)+1
200 IF H=1 THEN PRINT "/.CLICK/."
210 IF H=2 THEN PRINT "EMPTY CHAMBER"
215 RETURN
220 PRINT "%B%A%N%G%.%.%.";
225 GOTO 220
300 SAVE "1004%6"
400 RUN
