Skip to content

Commit

Permalink
Update oregon.bas
Browse files Browse the repository at this point in the history
  • Loading branch information
topherPedersen authored Aug 30, 2018
1 parent c3917eb commit a42af69
Showing 1 changed file with 4 additions and 20 deletions.
24 changes: 4 additions & 20 deletions oregon.bas
Original file line number Diff line number Diff line change
Expand Up @@ -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."
Expand Down

0 comments on commit a42af69

Please sign in to comment.