- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (5,1): "This program will clear your NVOL"
- PUT TEXT AT (12,2): "memory locations. "
- PUT TEXT AT (3,4): "Depending on memory structure setup"
- PUT TEXT AT (9,5): "program my break out.  "
- PUT TEXT AT (3,7): "Just re-run program if this happens."
- SOFTKEY (6) "OK" GOTO SCREEN main
- SOFTKEY WAIT
  
*>SCREEN main
  X=1
- PUT TEXT AT (8,2): "PUSH KEY TO CLEAR NVOLS"
- SOFTKEY (5) "ALL" GOTO SCREEN allclr
- SOFTKEY (1) "STR" GOTO SCREEN strclr
- SOFTKEY (2) "FLTCLR" GOTO SCREEN floatclr
- SOFTKEY (3) "INTCLR" GOTO SCREEN ingclr
- SOFTKEY (4) "NUMCLR" GOTO SCREEN numclr
- SOFTKEY WAIT
  
  
*>SCREEN allclr
  on error GOTO DIRECT
  
  
- LABEL ingclr
  Z=2
- PUT TEXT AT (10,3): "CLEARING INTEGER"
- PUT NUMBER x AT (26,3) USING "###"
  NVOL%(x)=0
  X=X+1
  GOTO INGCLR
  
- LABEL numclr
  Z=3
- PUT TEXT AT (10,3): "CLEARING NUMERIC"
- PUT NUMBER x AT (26,3) USING "###"
  NVOL&(X)=0
  X=X+1
  GOTO NUMCLR
  
- LABEL floatclr
  Z=4
- PUT TEXT AT (10,3): "CLEARING FLOATING"
- PUT NUMBER x AT (26,3) USING "###"
  NVOL!(X)=0
  X=X+1
  GOTO FLOATCLR
  
- LABEL strclr
  Z=1
- PUT TEXT AT (10,3): "CLEARING STRING"
- PUT NUMBER x AT (26,3) USING "###"
  NVOL$(x)=" "
  X=X+1
  GOTO STRCLR
  
  
- LABEL direct
  CLS
  X=1
  IF Z=1 GOTO INGCLR:RETURN
  IF Z=2 GOTO NUMCLR:RETURN
  IF Z=3 GOTO FLOATCLR:RETURN
  IF Z=4 GOTO SCREEN DONE:RETURN
  GOTO DONE
*>SCREEN done
  
- END OF PSEUDOCODE