CLEARSCREEN.
DECLARE X IS 150.0.

DECLARE PIDALT IS PIDLOOP().
SET PIDALT:SETPOINT TO X.
SET PIDALT:KP TO 0.01.
SET PIDALT:KI TO 0.001.
SET PIDALT:KD TO 0.07.
SET PIDALT:MINOUTPUT TO 0.0.
SET PIDALT:MAXOUTPUT TO 1.0.
LOCK THROTTLE TO PIDALT:OUTPUT.

LIST ENGINES IN ENGLIST.
FOR ENG IN ENGLIST { ENG:ACTIVATE.}

DECLARE TIME IS 0.0.
UNTIL FALSE
{
WAIT 0.1.
PIDALT:UPDATE(TIME,SHIP:ALTITUDE).
SET TIME TO TIME+0.1.
CLEARSCREEN.
PRINT "P="+PIDALT:PTERM.
PRINT "I="+PIDALT:ITERM.
PRINT "D="+PIDALT:DTERM.
}