home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG021.ARK
/
RUSSIAN.ASC
< prev
next >
Wrap
Text File
|
1984-04-29
|
2KB
|
61 lines
8 PRINT"THIS IS A GAME OF **** RUSSIAN ROULETTE ****"
10 PRINT:PRINT"HERE IS A REVOLVER."
11 GOSUB 1000
120 PRINT "HIT '1' TO SPIN THE CHAMBER AND PULL THE TRIGGER."
130 PRINT:PRINT" (HIT '2' TO GIVE UP)"
140 PRINT :PRINT:PRINT"GO";
150 N=0
160 INPUT I
170 IF I<>2 THEN 200
180 PRINT:PRINT" CHICKEN !!!!! ":GOTO 350
200 N=N+1
205 IF N = 6 THEN 500
210 J=INT((6)*RND(1)+1)
220 IF J=>5THEN300
240 PRINT"--CLICK--";
250 GOTO 160
300 PRINT" * * * BANG * * * YOU'RE DEAD......"
310 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
314 GOSUB 3000
315 FOR W=1 TO1250:NEXTW
350 PRINT:PRINT"IS THERE ANOTHER VICTIM (Y/N)"
360 INPUT Y$
370 IF Y$ = "Y" THEN 10
380 END
500 PRINT :PRINT"YOU WIN!!!!"
505 FOR W=1 TO 500:NEXT W
510 PRINT "LET SOMEONE ELCE BLOW HIS BRAINS OUT."
515 FOR W=1 TO 1250:NEXT W
520 GOTO10
1000 PRINT:PRINT
1010 PRINT" \\ /\ "
1020 PRINT" ! \ /------------------------------''--- "
1030 PRINT" ! -/ ------------ ! I"
1040 PRINT" / / I ------I !--------------------- "
1050 PRINT" /----/ I ------I ! "
1060 PRINT" / ------------ ! "
1070 PRINT" / / // / "
1080 PRINT" / / \\ / "
1090 PRINT" / /-----------/ "
1100 PRINT" ! !"
1110 PRINT" ! !"
1120 PRINT" \---------/ "
1200 RETURN
3000 PRINT" /^^^^^^^\ "
3010 PRINT" / \
3020 PRINT" 1 1
3030 PRINT" 1 R.I.P 1 "
3040 PRINT" 1 1 "
3050 PRINT" 1 1 "
3060 PRINT" /============/ "
3070 PRINT" / /
3080 PRINT" / / "
3090 PRINT" / / "
3100 PRINT" / / "
3110 PRINT" / / "
3120 PRINT" /-----------------/ "
3130 RETURN
9999 END