- GOTO SCREEN begin
*>SCREEN begin
- COM: INIT COM 1 ECHO 0 BAUD 96 HANDSHAKE 0 TIMEOUT 1 STRIP 1
- COM: PUT COM 1 TEXT "PROMPT OFF"
  a=25
- DELAY a
- COM: PUT COM 1 TEXT "PLIM OFF"
- DELAY a
- COM: PUT COM 1 TEXT "AMAX 2000"
- DELAY a
- COM: PUT COM 1 TEXT "EN"
- DELAY a
- COM: PUT COM 1 TEXT "ACC 500"
- DELAY a
- COM: PUT COM 1 TEXT "DEC 1000"
- DELAY a
- COM: PUT COM 1 TEXT "MI 8000 2000"
- DELAY 5000
- END OF PSEUDOCODE