[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM  ALTAIR RUSSIAN ROULETTE
3  REM  =======================
4  REM
7  REM  ADAPTED FOR THE APPLE II AND IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
8  REM
9  REM  ************************
10 TEXT : HOME : PRINT ">>>> RUSSIAN ROULETTE <<<<"
15 PRINT: PRINT "YOU HAVE A REVOLVER IN YOUR HAND ..."
20 PRINT : PRINT " - 1 = SPIN CHAMBER AND PULL TRIGGER"
22 PRINT " - 2 = GIVE UP" 
23 N=0
25 PRINT : PRINT "WHAT DO YOU WANT TO DO TOUGH GUY ";
30 INPUT I
31 IF I <> 2 THEN 35
32 PRINT : PRINT "   CHICKEN SHIT !!!" : GOTO 72
35 N=N+1
40 IF RND(1)>.83333 THEN 65
45 IF N >9 THEN  80
50 PRINT : PRINT "-CLICK-  SHIT, YOU'RE STILL ALIVE !!"
60 PRINT : PRINT "OK, WHAT NEXT TOUGH GUY "; : GOTO 30
65 PRINT CHR$(7)
70 PRINT : PRINT "    BANG!!!   YOU'RE DEAD!!! "
71 PRINT : PRINT "CONDOLENCES WILL BE SENT TO YOUR" : PRINT "RELATIVES !"
72 PRINT:PRINT:PRINT:PRINT "NEXT VICTIM PLEASE...": GOTO 20
80 PRINT "YOU WIN!!!"
85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
90 GOTO 15
99 END