Russian Roulette
The six-shooter points straight at you. There is only one bullet somewhere in the cylinder. Spin the cylinder as much as you wish and then press the trigger — if you dare!
10 REM RUSS I AN ROULETTE
20 REM @ M CHAEL BEWS
30 MODE 1: BORDER 0:INK 0,0:INK 1,4:INK 2 ,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER #1 ,O:PEN #1,1: CLS #1
40 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
50 F=1:FB=INT(RND*5+1):SC=0:HS=0
60 CLS:LOCATE 1,1:PEN 3:PRINT "RUSSIAN": LOCATE 1,2:PEN 2:PRINT"ROULETTE";:PEN 1 70 FOR C=1 TO 9:READ X,Y,R:GOSUB 500
BO NEXT C
90 READ X,Y,R:FOR A=I TO 360 STEP 2:DEG: ORIGIN X,Y:PLOT R*COS(A),R*SIN(A):NEXT 100 ORIGIN 0,0
110 FOR Y=12 TO 15:LOCATE 15,Y:PRINT CH R$(143);CHR$(143):NEXT
120 LOCATE 15,3:PRINT CHR$(22);CHR$(1);C HR$(130);CHR$(129);CHR$(22);CHR$(0)
130 LOCATE 1,18:PRINT CHR$(24)"This is a
revolver, pointing at you. It has one b ullet. PRESS 'A' to spin the cylinder for as long as you wish and FIRE with B'. Score 100 each time the gunf ails to kill you,then try again";CHR$(24)
140 LOCATE 19,1:PEN 2:PRINT "This score" ;:LOCATE 19,2:PEN 3:PRINT"High score";:P EN 1
150 IF INKEY$<>" THEN 150
160 IF INKEY(69)<>0 AND INKEY(54)<>0 THE N 160
170 SOUND 1,50,3
180 (REM
190 IF INKEY(54)=0 THEN 320
200 PLOT 344,314,2:F=1:GOSUB 470:PLOT 34 4,314,0