home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug013.ark / RUSSIAN.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  573 b   |  21 lines
  1. RANDOMIZE : PRINT
  2. PRINT "THIS IS A GAME OF >>>>>>>>>>>>RUSSIAN ROULETTE"
  3. 10 PRINT : PRINT "HERE IS A REVOLVER"
  4. 20 PRINT "HIT '1' TO SPIN CHAMBER AND TO PULL TRIGGER"
  5. 22 PRINT "    HIT '2' TO GIVE UP" : PRINT : PRINT "GO";
  6. N=0  
  7. 30 INPUT I
  8. 31 IF I<>2 THEN 35
  9. 32 PRINT "        CHICKEN!!!" : GOTO 72
  10. 35 N = N + 1
  11. 40 X =INT(RND*100)
  12. IF X>83 THEN 70
  13. 45 IF N > 10 THEN 80
  14. 50 PRINT "-CLICK-"
  15. 60 PRINT : GOTO 30
  16. 70 PRINT "    POW"
  17. 72 PRINT : PRINT : PRINT "..NEXT VICTOM.." : GOTO 20
  18. 80 PRINT "YOU WIN!!!" : PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
  19. GOTO 10
  20. END
  21.