292 Russian Roulette
210 IF INKEY(69)<>0 THEN 160
220 PLOT 344,266,2:F=2:GOSUB 470:PLOT 34 4,266,0
230 IF INKEY(69)<>0 THEN 160
240 PLOT 304,242,2:F=3:GOSUB 470:PLOT 30 4,242,0
250 IF INKEY(69)<>0 THEN 160
260 PLOT 264,266,2:F=4:GOSUB 470:PLOT 26 4,266,0
270 IF INKEY(69)<>0 THEN 160
280 PLOT 264,314,2:F=5:GOSUB 470:PLOT 26 4,314,0
290 IF INKEY(69)<>0 THEN 160
300 PLOT 304,338,2:F=6:GOSUB 470:PLOT 30 4,336,0
310 GOTO 160
320 IF INKEY(54)<>0 THEN 160
330 F=F-(F<6)+5*(F=5)
340 IF F=FB THEN PLOT 300,294,2:DRAWR 10 ,0:DRAWR 0,-10:DRAWR -10,0:DRAWR 0,10:60 SUB 460:PLOT 300,294,0:DRAWR 10,0:DRAWR 0,-10:DRAWR -10,0:DRAWR 0,10:LOCATE 20,1 3:PEN 3:PRINT"YOU ARE DEAD!":LOCATE 21,1 5:PRINT"BULLET IN";F:PEN 1:GOTO 400
350 LOCATE 20,13:PEN 2:PRINT"You survive d ":LOCATE 21,15:PRINT"Bullet in";F:PEN 1
360 SC=SC+100:LOCATE 29,1:PRINT" OCATE 29,1:PEN 3:PRINT MID$(STRS(SC),2); :PEN 1
370 IF INKEY(69)=0 OR INKEY(54)=0 THEN G OTO 370
380 SOUND 1,I80,4:SOUND 1,120,4:S0UND 1, 80,4
390 GOTO 160
400 IF HS<SC THEN HS=SC
410 SC=0
420 LOCATE 29,2:PRINT"	";:LOCATE 29,2
:PEN 2:PRINT MID$(STRS(HS),2);:PEN 1
430 LOCATE 29,1:PRINT"	";:LOCATE 29,1
:PEN 3:PRINT MID$(STRS(SC),2);:PEN 1
440 IF INKEY(69)=0 OR INKEY(54)=0 THEN 4 40
450 SOUND 1,160,4:SOUND 1,120,4:SOUND 1, 80,4