home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / RUSSIAN.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  2.3 KB  |  61 lines
  1.  
  2.  
  3. 8 PRINT"THIS IS A GAME OF **** RUSSIAN ROULETTE ****"
  4. 10 PRINT:PRINT"HERE IS A REVOLVER."
  5. 11 GOSUB 1000
  6. 120 PRINT "HIT '1' TO SPIN THE CHAMBER AND PULL THE TRIGGER."
  7. 130 PRINT:PRINT"     (HIT '2' TO GIVE UP)"
  8. 140 PRINT :PRINT:PRINT"GO";
  9. 150 N=0
  10. 160 INPUT I
  11. 170 IF I<>2 THEN 200
  12. 180 PRINT:PRINT"    CHICKEN   !!!!!    ":GOTO 350
  13. 200 N=N+1
  14. 205 IF N = 6 THEN 500
  15. 210 J=INT((6)*RND(1)+1)
  16. 220 IF J=>5THEN300
  17. 240 PRINT"--CLICK--";
  18. 250 GOTO 160
  19. 300 PRINT"  * * *  BANG  * * *    YOU'RE DEAD......"
  20. 310 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
  21. 314 GOSUB 3000
  22. 315 FOR W=1 TO1250:NEXTW
  23. 350 PRINT:PRINT"IS THERE ANOTHER VICTIM  (Y/N)"
  24. 360 INPUT Y$
  25. 370 IF Y$ = "Y" THEN 10
  26. 380 END
  27. 500 PRINT :PRINT"YOU WIN!!!!"
  28. 505 FOR W=1 TO 500:NEXT W
  29. 510 PRINT "LET SOMEONE ELCE BLOW HIS BRAINS OUT."
  30. 515 FOR W=1 TO 1250:NEXT W
  31. 520 GOTO10
  32. 1000 PRINT:PRINT
  33. 1010 PRINT"           \\                                  /\    "  
  34. 1020 PRINT"           ! \  /------------------------------''--- "    
  35. 1030 PRINT"           !  -/ ------------ !                     I"   
  36. 1040 PRINT"         /    /  I    ------I !--------------------- " 
  37. 1050 PRINT"        /----/   I    ------I !                      "   
  38. 1060 PRINT"       /         ------------ !                       "  
  39. 1070 PRINT"      /           /    //     /                      "  
  40. 1080 PRINT"     /           /     \\    /    "  
  41. 1090 PRINT"    /           /-----------/  "   
  42. 1100 PRINT"    !           !"   
  43. 1110 PRINT"    !           !"  
  44. 1120 PRINT"     \---------/ "   
  45. 1200 RETURN
  46. 3000 PRINT"                       /^^^^^^^\        "  
  47. 3010 PRINT"                     /          \           
  48. 3020 PRINT"                    1            1         
  49. 3030 PRINT"                    1    R.I.P   1       "  
  50. 3040 PRINT"                    1            1        "  
  51. 3050 PRINT"                    1            1     "  
  52. 3060 PRINT"                    /============/      "
  53. 3070 PRINT"                   /            /          
  54. 3080 PRINT"                 /             /         "  
  55. 3090 PRINT"               /              /   " 
  56. 3100 PRINT"             /               / "
  57. 3110 PRINT"           /                / "
  58. 3120 PRINT"         /-----------------/ "
  59. 3130 RETURN
  60. 9999 END
  61.