From a42af69cd27706b48d35b0de62bfb1ffbeea9a93 Mon Sep 17 00:00:00 2001 From: Christopher Pedersen <12384786+topherPedersen@users.noreply.github.com> Date: Wed, 29 Aug 2018 23:08:30 -0500 Subject: [PATCH] Update oregon.bas --- oregon.bas | 24 ++++-------------------- 1 file changed, 4 insertions(+), 20 deletions(-) diff --git a/oregon.bas b/oregon.bas index 249abea..77ed607 100644 --- a/oregon.bas +++ b/oregon.bas @@ -508,29 +508,13 @@ 5110 PRINT: PRINT "YOU RAN OUT OF MEDICAL SUPPLIES" 5120 PRINT "YOU DIED OF "; 5130 IF K8=1 THEN 5160 -5140 PRINT "PNEUMONIA": PRINT +5140 PRINT "PNEUMONIA..." 5150 GOTO 5170 -5160 PRINT "INJURIES": PRINT +5160 PRINT "INJURIES..." 5170 PRINT -5180 PRINT "DUE TO YOUR UNFORTUNATE" -5181 PRINT "SITUATION, THERE ARE A FEW" -5182 PRINT "FORMALITIES WE MUST GO THROUGH": PRINT -5200 PRINT -5210 PRINT "WOULD YOU LIKE A MINISTER?" -5220 INPUT C$ -5230 PRINT "WOULD YOU LIKE A FANCY FUNERAL?" -5240 INPUT C$ -5250 PRINT "WOULD YOU LIKE US TO INFORM": PRINT "YOUR NEXT OF KIN?" -5260 INPUT C$ -5270 IF C$="YES" THEN 5310 -5280 PRINT "BUT YOUR AUNT SADIE IN" -5281 PRINT "ST. LOUIS IS REALLY WORRIED" -5290 PRINT "ABOUT YOU": PRINT -5300 GOTO 5330 -5310 PRINT "THAT WILL BE $4.50 FOR THE": PRINT "TELEGRAPH CHARGE.": PRINT +5310 PRINT "DEAR INTREPID TRAVELER," 5320 PRINT -5330 PRINT "WE THANK YOU FOR THIS" -5331 PRINT "INFORMATION AND WE ARE SORRY" +5331 PRINT "WE ARE DEEPLY SADDENED THAT" 5332 PRINT "YOU DIDN'T MAKE IT TO THE GREAT" 5333 PRINT "TERRITORY OF OREGON." 5350 PRINT "BETTER LUCK NEXT TIME."