- GOTO SCREEN begin
*>SCREEN begin
  five&=0
  seven&=0
- PUT TEXT AT (1,3): "This program demonstrates the use of i/o"
- PUT TEXT AT (1,4): "interrupts using a 1000 series Eason"
- PUT TEXT AT (1,5): "operator interface."
- PUT TEXT AT (1,6): "  Press 'RUN' to begin."
- PUT LARGE TEXT AT (4,1): "I/O INTERRUPT"
- SOFTKEY (1) "RUN" GOTO SCREEN runscr
- SOFTKEY WAIT
*>SCREEN runscr
- COMMENT "call lowbits(2) - this specifies an interrupt whenever the I/O bits"
- COMMENT "specified in the IO24 statement change"
  call lowbits(2)
  ON IO24 GOSUB ioint
  IO24 "01011111"
- PUT TEXT AT (9,1): "I/O Interrupt Counters"
- PUT LARGE TEXT AT (1,2): "BIT 5:"
- PUT LARGE TEXT AT (1,3): "BIT 7:"
- SOFTKEY (2) "RESET" GOTO SCREEN reset
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
  CALL CURSOR(0)
- LABEL toprun
- PUT LARGE NUMBER five& AT (8,2) USING "##########"
- PUT LARGE NUMBER seven& AT (8,3) USING "##########"
- SOFTKEY CHECK
- GOTO SCREEN toprun
  LABEL ioint
   INP ioin&
   IF BIT(5,ioin&)=0 THEN GOSUB bitfive
   IF BIT(7,ioin&)=0 THEN GOSUB bitseven
   IO24 "01011111"
  RETURN
  LABEL bitfive
   five&=five&+1
  RETURN
  LABEL bitseven
   seven&=seven&+1
  RETURN
*>SCREEN reset
  five&=0
  seven&=0
- GOTO SCREEN runscr
*>SCREEN exitscr
- PUT LARGE TEXT AT (1,1): "THANK YOU FOR USING"
- PUT LARGE TEXT AT (8,2): "EASON"
- PUT LARGE TEXT AT (5,3): "TECHNOLOGY"
  pos 1,7
- DELAY 2500
  CALL GCLS()
- END OF PSEUDOCODE