;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;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? ")