- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (3,2): "I/O BITS:"
- PUT TEXT AT (1,4): "COUNTER #2:"
- PUT TEXT AT (7,6): "RATE:"
  CALL WRITECNT(2,HEX("FFF000"),10)
- LABEL toprun
  CALL READCNT(2,A&,B&)
  A$=HEX$(A&)
- PUT TEXT AT (13,4): a$
  DT&=B&-OLDT&:IF DT&<0 THEN DT&=DT&+65536
  RATE=(A&-OLDC&)/(DT&)
  IF ABS(RATE)>9999 THEN RATE =9999
- PUT NUMBER rate AT (13,6) USING "+####.###"
  OLDT&=B&
  OLDC&=A&
- I/O: GET I/O NUMBER a&
  A$="0"+BIN$(A&)
  A$=RIGHT$(A$,24)
- PUT TEXT AT (13,2): a$
- GOTO LABEL toprun
- END OF PSEUDOCODE