;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Abacus 787 Takeoff and Landing Vspeed Calculator;;
;By Jacob Bednard(SMDSkata) of www.arrowsimpro.com;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Application Title
AppTitle("Abacus 787 Speed Calculator by SMDSkata")
;Ask If You Want The Takeoff or Landing Speeds Calculated
takeOrland$ = Input$("Would you like to calculate your takeoff or landing speeds? Type 1 then hit Enter to Calculate Takeoff Speeds. Type 2 then hit Enter to Calculate Landing Speeds. ")
;If takeOrland$ = 1, Go to the Takeoff speed Calculator!
If takeOrland$ = 1
Goto takeoff
EndIf
;If takeOrland$ = 2, Go to the Landing speed Calculator!
If takeOrland$ = 2
Goto landing
EndIf
;Take Off Speed Calculator
.takeoff
;Lets ask for the Current Gross Weight of The 787.
takeoffweight$ = Input$("What is the current gross weight of your 787? ")