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