- GOTO SCREEN begin
*>SCREEN begin
- COM: INIT COM 2 ECHO 0 BAUD 96 HANDSHAKE 0 TIMEOUT 0 STRIP 1
- COM: WHEN COM 2 GETS A CHAR, GOSUB abba
- LABEL toprun
- PUT TEXT AT (24,2): msgin$
- PUT TEXT AT (24,6): msgout$
- GOTO LABEL toprun
- LABEL abba
  STOP
- COM: GET COM 2 TEXT msgin$
- COM: RESUME COM 2 INTERRUPTS (AFTER SUSPEND)
- RETURN
- END OF PSEUDOCODE