- GOTO SCREEN begin
*>SCREEN begin
  on error goto ohno
- PUT LARGE TEXT AT (2,1): "CLEAR NVOL UTILITY"
- SOFTKEY (2) " M03" GOTO SCREEN m03
- SOFTKEY (1) " M02" GOTO SCREEN m02
- SOFTKEY (3) "M02+" GOTO SCREEN m02p
- SOFTKEY (4) "Nuke!" GOTO SCREEN nuke
- SOFTKEY WAIT
*>SCREEN m02
- PUT LARGE TEXT AT (1,1): "CLEARING M02..."
- PUT TEXT AT (1,4): "Clearing nvol location"
- PUT TEXT AT (28,4): "(numeric)"
  for n=1 to 512
   nvol&(n)=0
- PUT NUMBER n AT (24,4) USING "###"
  next n
  rem build blank string 127 characters long
  blank$=""
- PUT TEXT AT (28,4): "(string) "
  for n=1 to 127
   blank$=blank$+" "
  next
  for n=1 to 16
- PUT NUMBER n AT (24,4) USING "####"
   nvol$(n)=blank$
  next n
- PUT LARGE TEXT AT (1,3): "DONE!"
- SOFTKEY (6) "Begin" GOTO SCREEN begin
- SOFTKEY WAIT
*>SCREEN m02p
- PUT LARGE TEXT AT (1,1): "CLEARING M02+..."
- PUT TEXT AT (1,4): "Clearing nvol location"
- PUT TEXT AT (28,4): "(numeric)"
  blank$=""
- PUT TEXT AT (28,4): "(string) "
  call setnvols(127)
  for n=1 to 127
   blank$=blank$+" "
  next
  for n=1 to 32
   call wrnvols(n,blank$)
  next n
- PUT LARGE TEXT AT (1,3): "DONE!"
- SOFTKEY (6) "Begin" GOTO SCREEN begin
- SOFTKEY WAIT
*>SCREEN m03
- PUT LARGE TEXT AT (1,1): "CLEARING M03..."
- PUT TEXT AT (1,4): "Clearing nvol location"
- PUT TEXT AT (28,4): "(numeric)"
  for n=1 to 8160
   call wrnvol&(n,0)
- PUT NUMBER n AT (24,4) USING "####"
  next n
  rem build blank string 127 characters long
  blank$=""
- PUT TEXT AT (28,4): "(string) "
  for n=1 to 127
- PUT NUMBER n AT (24,4) USING "####"
   blank$=blank$+" "
  next
  for n=1 to 256
- PUT NUMBER n AT (24,4) USING "####"
   call wrnvol$(n,blank$)
  next n
- PUT LARGE TEXT AT (1,3): "DONE!"
- SOFTKEY (6) "Begin" GOTO SCREEN begin
- SOFTKEY WAIT
*>SCREEN nuke
- PUT LARGE TEXT AT (1,1): "CLEARING M02+..."
- PUT TEXT AT (1,4): "Clearing nvol location"
- PUT TEXT AT (28,4): "(numeric)"
  blank$=""
- PUT TEXT AT (28,4): "(string) "
  call setnvols(127)
  for n=1 to 127
   blank$=blank$+" "
  next
  for n=1 to 16
   call wrnvols(n,blank$)
  next n
- PUT LARGE TEXT AT (1,1): "CLEARING M03..."
- PUT TEXT AT (1,4): "Clearing nvol location"
- PUT TEXT AT (28,4): "(numeric)"
  for n=1 to 8160
   call wrnvol&(n,0)
- PUT NUMBER n AT (24,4) USING "####"
  next n
  rem build blank string 127 characters long
  blank$=""
- PUT TEXT AT (28,4): "(string) "
  for n=1 to 127
- PUT NUMBER n AT (24,4) USING "####"
   blank$=blank$+" "
  next
  for n=1 to 256
- PUT NUMBER n AT (24,4) USING "####"
   wrnvol$(n,blank$)
  next n
- PUT LARGE TEXT AT (1,3): "DONE!"
- SOFTKEY (6) "Begin" GOTO SCREEN begin
- SOFTKEY WAIT
  label ohno
  call gcls()
  if err=48 then goto needtwo
  if err=52 then goto needthre
  goto other
  label needtwo
  print "You need an M02 option to do that!"
  goto done
  label needthre
  print "You need an M03 option to do that!"
  goto done
  label other
  print "Error number ";err;" on line ";erl
  label done
- END OF PSEUDOCODE