QL Kill

QL KILL (not recommended for weak stomachs) is a simulation of the ever so popular (?) RUSSIAN ROULETTE game. The listing was converted from a PASCAL program and contributed by David Johnson, with permission from the author, Ron S. Morr. David would like to get in touch with other QL users. Write to: [address omitted], Edison, OH.

90 gun
100 REMark PROGRAM BY RON S. MORR 10/04/84: WRITTEN ON BELL AND HOWELL'S
110 REMark CHICAGO DATA CENTER MAIN FRAME USEING PASCAL/VS RELEASE 2.1
120 REMark CONVERTED TO SuperBASIC BY DAVID JOHNSON 09/07/86:CONVERTED
130 REMark WITH KIND PERMISSION FROM THE AUTHOR FOR THE Sinclair QL
135 WINDOW 512,256,0,0:CLS
140 DEFine PROCedure BANG
145     CURSOR 50,50,10,10
150     CSIZE 3,1:PRINT "BANG!"
151     death
155 END DEFine
170 DEFine PROCedure gun
172     LET chambers =RND (1 TO 6)
175     i=1:n=0:click=RND(1 TO 6)
180     IF click=chambers THEN BANG
181     IF click<>chambers THEN live
185 END DEFine
190 DEFine PROCedure live
195     CURSOR 50,30,10,10:CLS
200     CSIZE 3,1:PRINT"Safe!... For now! @!$%*&"
210     PAUSE 200:gun
220 END DEFine
230 DEFine PROCedure death
235     CLS:CURSOR 50,30,10,10
240     CSIZE 3,1:PRINT"You are DEAD! YEA!"
245     PRINT"PLAY AGAIN? (Y/N)"
250     INPUT a$:IF a$="y" THEN gun
255     IF a$="n" THEN STOP
260 END DEFine