A320-family/Nasal/MCDU/PROGCLB.nas

# Copyright (c) 2020 Matthew Maring (hayden2000)

var progCLBInput = func(key, i) {
	var scratchpad = getprop("MCDU[" ~ i ~ "]/scratchpad");
	if (key == "L1") {
		if (scratchpad == "CLR") {
			setprop("FMGC/internal/cruise-fl-prog", getprop("FMGC/internal/cruise-fl"));
			if (getprop("FMGC/status/phase") == 5) {
				setprop("FMGC/status/phase", 3);
				setprop("FMGC/internal/activate-once", 0);
				setprop("FMGC/internal/activate-twice", 0);
				setprop("FMGC/internal/decel", 0);
			}
			setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
			setprop("MCDU[" ~ i ~ "]/scratchpad", "");
		} else if (int(scratchpad) != nil) {
			var crzs = size(scratchpad);
			if (crzs >= 1 and crzs <= 3 and scratchpad > 0 and scratchpad <= 430 and altSet.getValue() <= scratchpad * 100) {
				setprop("FMGC/internal/cruise-fl-prog", scratchpad);
				setprop("MCDU[" ~ i ~ "]/scratchpad", "");
				if (getprop("FMGC/status/phase") == 5) {
					setprop("FMGC/status/phase", 3);
					setprop("FMGC/internal/activate-once", 0);
					setprop("FMGC/internal/activate-twice", 0);
					setprop("FMGC/internal/decel", 0);
				}
			} else {
				notAllowed(i);
			}
		} else {
			notAllowed(i);
		}
	}
}