- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (1,3): "This program demonstrates I/O control"
- PUT TEXT AT (1,4): "using the Model 1100.  It was generated"
- PUT TEXT AT (1,5): "in the ApplicationBuilder, using Pseudo-"
- PUT TEXT AT (1,6): "code.  Press 'RUN' to begin."
- PUT LARGE TEXT AT (1,1): "I/O CONTROL PROGRAM:"
  out -1
- GET NUMBER BACKGROUND STYLE SETUP: 2
- SOFTKEY (1) "RUN" GOTO SCREEN runscr
- SOFTKEY WAIT
*>SCREEN runscr
- PUT TEXT AT (12,1): "I/O BIT PATTERN:"
- PUT TEXT AT (9,2): "23  20   15   10   5    0"
- PUT TEXT AT (10,3): "|  |    |    |    |    |"
- SOFTKEY (1) "BITS" GOTO SCREEN bitscr
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
  cpos%=24
  zstr$="000000000000000000000000"
- LABEL toprun
- I/O: GET I/O NUMBER ioval&
  istr$=bin$(ioval&)
  iolen%=len(istr$)
  iostr$=zstr$
  mid$(iostr$,25-iolen%,iolen%)=istr$
- PUT TEXT AT (10,4): iostr$
- SOFTKEY CHECK
- GOTO SCREEN toprun
*>SCREEN bitscr
- PUT TEXT AT (12,1): "I/O BIT PATTERN:"
- PUT TEXT AT (9,2): "23  20   15   10   5    0"
- PUT TEXT AT (10,3): "|  |    |    |    |    |"
- PUT TEXT AT (10,4): iostr$
- PUT TEXT AT (1,6): "CHANGE BIT NUMBER (0 THRU 23):"
- PUT TEXT AT (28,7): "TO:"
- LABEL getbit
- GET NUMBER bitpos% AT (32,6) USING "##" DEFAULT 0
  if bitpos% < 0 or bitpos% > 23 then goto getbit
- LABEL getval
- GET NUMBER bitval% AT (33,7) USING "#" DEFAULT 0
  if bitval% < 0 or bitval% > 1 then goto getval
- I/O: SET I/O BIT bitpos% TO bitval%
- 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
- END OF PSEUDOCODE