- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (2,2): "DEMO PROGRAM WHICH SAVES AND RESTORES"
- PUT TEXT AT (2,3): "NONVOL REGISTERS VIA A PC RUNNING"
- PUT TEXT AT (2,4): "PROCOM (ASCII UPLOAD AND DOWNLOAD)."
- SOFTKEY (1) "SAVE" GOTO SCREEN savescr
- SOFTKEY (2) "STORE" GOTO SCREEN storescr
- SOFTKEY WAIT
*>SCREEN savescr
- PUT TEXT AT (3,2): "CAPTURE THE UPLOAD USING THE ASCII"
- PUT TEXT AT (3,3): "CAPTURE (PAGE UP) IN PROCOMM.  YOU"
- PUT TEXT AT (3,4): "WILL BE NOTIFIED WHEN THE UPLOAD IS"
- PUT TEXT AT (3,5): "COMPLETE."
- COM: INIT COM 2 ECHO 0 BAUD 96 HANDSHAKE 1 TIMEOUT 0 STRIP 1
  for cnt=1 to 512
  n$=str$(nvol(cnt))
- COM: PUT COM 2 TEXT n$
  next
- GOTO SCREEN save2
*>SCREEN save2
- PUT REVERSE LARGE TEXT AT (4,2): "SAVE COMPLETE!"
- DELAY 1000
- GOTO SCREEN begin
  
*>SCREEN storescr
- PUT TEXT AT (3,2): "SEND DATA TO THE EASON USING THE ASCII"
- PUT TEXT AT (3,3): "UPLOAD (PAGE DOWN) IN PROCOMM.  YOU"
- PUT TEXT AT (3,4): "WILL BE NOTIFIED WHEN THE DOWNLOAD IS"
- PUT TEXT AT (3,5): "COMPLETE."
- COM: INIT COM 2 ECHO 0 BAUD 96 HANDSHAKE 1 TIMEOUT 0 STRIP 1
  for cnt=1 to 512
- COM: GET COM 2 TEXT n$
  nvol(cnt)=val(n$)
  next
- GOTO SCREEN store2
*>SCREEN store2
- PUT LARGE TEXT AT (4,2): "STORE COMPLETE!"
- DELAY 1000
- GOTO SCREEN begin
  
- END OF PSEUDOCODE