Russian Roulette

Gallery

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