- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (2,2): "DEMO PROGRAM WHICH SAVES AND RESTORES"
- PUT TEXT AT (2,3): "M02 NONVOL REGISTERS VIA A PC RUNNING"
- PUT TEXT AT (2,4): "TERMINAL (ASCII UPLOAD AND DOWNLOAD)."
- PUT TEXT AT (2,5): "Be sure to use XON/XOFF flow control"
- PUT TEXT AT (2,6): "in the terminal program."
- SOFTKEY (1) "E->PC" GOTO SCREEN savescr
- SOFTKEY (2) "E<-PC" GOTO SCREEN storescr
- SOFTKEY (4) "INIT" GOTO SCREEN initnvol
- SOFTKEY (6) "HELP" GOTO SCREEN helpscr
  call cursor(0)
- SOFTKEY WAIT
*>SCREEN savescr
- PUT TEXT AT (3,2): "CAPTURE THE UPLOAD USING THE ASCII"
- PUT TEXT AT (3,3): "CAPTURE TEXT FILE IN TERMINAL."
- PUT TEXT AT (3,4): "WILL BE NOTIFIED WHEN THE UPLOAD IS"
- PUT TEXT AT (3,5): "COMPLETE."
  call cursor(0)
- 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!"
  call cursor(0)
- 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): "SEND TEXT FILE IN TERMINAL. YOU WILL"
- PUT TEXT AT (3,4): "BE NOTIFIED WHEN THE DOWNLOAD IS"
- PUT TEXT AT (3,5): "COMPLETE."
  call cursor(0)
- 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
  
*>SCREEN initnvol
- PUT LARGE TEXT AT (6,2): "REGISTER SPACE"
- PUT LARGE TEXT AT (1,1): "NEW- INITIALIZE NVOL"
- SOFTKEY (1) " NEW" GOTO SCREEN newint
- SOFTKEY (6) "MAIN" GOTO SCREEN begin
  call cursor(0)
- SOFTKEY WAIT
  
*>SCREEN newint
  call cursor(0)
- PUT LARGE TEXT AT (1,1): "INITIALIZING NVOLS"
- PUT LARGE TEXT AT (1,2): "WITH NUMBERS..."
  for n=1 to 512
   nvol(n)=n*n
  next
- PUT HUGE TEXT AT (1,2): "DONE!!!!!!"
  delay 1000
  goto begin
  
*>SCREEN helpscr
- SOFTKEY (6) "MAIN" GOTO SCREEN begin
- PUT TEXT AT (1,1): "E->PC: Put terminal into text capture"
- PUT TEXT AT (8,2): "mode, then press this key to"
- PUT TEXT AT (8,3): "download NVOLS to the PC."
- PUT TEXT AT (1,4): "E<-PC: Hit this key, then send a "
- PUT TEXT AT (8,5): "previously captured text file"
- PUT TEXT AT (8,6): "from the PC's terminal program."
- PUT TEXT AT (1,7): "INIT:  Initializes the NVOL registers."
  call cursor(0)
- SOFTKEY WAIT
  
  
- END OF PSEUDOCODE