4 PRINT 
5 PRINT "THIS IS THE OLD RUSIAN ROULETTE GAME!!!!"
6 PRINT 
7 PRINT 
10 PRINT "THERE IS ONE GUN THAT WE MUST SHARE.  I WILL TAKE THE FIRST SHOT"
11 PRINT "THEN YOU MUST DO THE SAME."
12 PRINT 
13 PRINT "YOU PULL THE TRIGGER BY TYPING ANY NUMBER..BUT ONLY WHEN I"
14 PRINT "SAY THAT I AM READY."
15 PRINT 
16 PRINT "WE WILL BOTH HAVE SIX TRIES.  BEING A GENEROUS SOUL, I WILL GIVE"
17 PRINT "YOU FROM 100 TO 1000 DOLLARS FOR EVERY GAME THAT YOU FINISH"
24 LET M=0
25 LET N=0
26 PRINT 
27 PRINT 
28 PRINT 
30 LET N=N+1
31 PRINT " THIS IS GAME NUMBER ";N;
35 PRINT 
36 PRINT 
37 LET A=0
38 LET A=A+1
39 IF A=7 GOTO 500 
40 PRINT "I'M ALL SET FOR TRY NUMBER ";A;" -- GO AHEAD";:INPUT B
41 rem RANDOMIZE
48 PRINT 
49 PRINT 
50 LET B=5
55 LET C=INT(10*RND(0))
60 IF C>6 THEN GOTO 55 
65 IF C<1 THEN GOTO 55 
70 IF C=4 THEN GOTO 300 
75 IF C=5 THEN GOTO 310 
80 IF C=6 THEN GOTO 320 
85 IF C<4 GOTO 330 
300 PRINT "THAT WAS CLOSE, ONE MORE CLICK AND I COULD HAVE KISSED"
305 PRINT "YOU GOOD-BYE":GOTO 1000 
310 PRINT "YOU BLEW IT,******YOUR OUT OF THERE******KISS OFF****"
312 PRINT "********LIKE******YOUR*****D*E*A*D***********":GOTO 335 
320 PRINT "ALMOST--ONE LESS CLICK AND GOOD-BYE IRENE":GOTO 1000 
330 PRINT "YOU LUCKED OUT THIS TIME, NOW IT'S MY TURN":GOTO 1000 
335 PRINT "IF YOU WOULD LIKE TO PLAY AGAIN TYPE A 1.":INPUT Z
336 IF Z=1GOTO 24 
337 STOP
410 IF Z=1GOTO 30 
500 LET K=INT(1000*RND(0))
510 IF K<100GOTO 500 
520 LET M=M+K
525 PRINT 
526 PRINT 
540 PRINT "FOR YOUR SPORTMENSHIP YOU NOW HAVE ";M;" DOLLARS TO YOUR CREDIT."
541 GOTO 1600 
550 PRINT "TO YOUR CREDIT":GOTO 1600 
1000 LET A1=INT(10*RND(0))
1001 PRINT 
1002 PRINT 
1010 IF A1>6 GOTO 1000 
1020 IF A1<1 GOTO 1000 
1030 IF A1=3 GOTO 1500 
1040 IF A1=4 GOTO 1520 
1050 IF A1=5 GOTO 1540 
1060 IF A1<3 GOTO 1550 
1070 IF A1=6 GOTO 1550 
1500 PRINT "--CLICK--THAT WAS TOO CLOSE FOR ME, OK YOUR TURN":GOTO 38 
1520 PRINT "BA BAAAAAM - - IT LOOKS LIKE YOUR THE WINNER":GOTO 500 
1540 PRINT "--CLICK-- I'D BETTER TRY A LITTLE HARDER, YOUR SHOT.":GOTO 38 
1550 PRINT "I LUCKED OUT, SO NOW IT'S YOUR TURN"
1551 PRINT 
1552 PRINT 
1553 GOTO 38 
1600 GOTO 30 
1605 END