- GOTO SCREEN begin
*>SCREEN begin
- PUT LARGE TEXT AT (3,1): "WAITING FOR IRQ"
  CALL INVERTIO("11")
  CALL LOWBITS(2)
- I/O: GOSUB TO ioirq WHEN THE I/O = "00"
- SOFTKEY (1) "EXIT" GOTO SCREEN exitscr
- SOFTKEY WAIT
- LABEL ioirq
- PUT TEXT AT (6,4): "IOPATTERN:"
  INP A&
  A$=RIGHT$("000000"+HEX$(A&),6)
- PUT TEXT AT (20,4): a$
- I/O: GOSUB TO ioirq WHEN THE I/O = "00"
- RETURN
*>SCREEN exitscr
- PUT LARGE TEXT AT (4,1): "DONE"
- END OF PSEUDOCODE