mirror of https://github.com/rfivet/BCG101.git
26 lines
985 B
QBasic
26 lines
985 B
QBasic
10 PRINT "THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
|
|
20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACIE."
|
|
30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE"
|
|
40 PRINT "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST"
|
|
50 PRINT "DECIDE HOW MUCH WATER TO ADD FOR DILUTION. IF YOU MISS"
|
|
60 PRINT "YOU FACE THE CONSEQUENCES."
|
|
100 LET A=INT(RND(1)*50)
|
|
110 LET W=7*A/3
|
|
120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER";
|
|
130 INPUT R
|
|
140 LET D=ABS(W-R)
|
|
150 IF D>W/20 THEN 200
|
|
160 PRINT "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!"
|
|
170 PRINT
|
|
180 GO TO 100
|
|
200 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
|
|
210 PRINT "OF QUIVERING PROTOPLASM!"
|
|
220 LET T=T+1
|
|
230 IF T=9 THEN 260
|
|
240 PRINT "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE."
|
|
245 PRINT
|
|
250 GO TO 100
|
|
260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR"
|
|
270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY."
|
|
280 END
|