CONSTSTRING (13) VSN="24 JAN 80   1"
EXTERNALINTEGERFNSPEC  DLOWER ACR(INTEGER  I)
DYNAMICROUTINESPEC  RSTRG(STRINGNAME  S)
DYNAMICROUTINESPEC  DUMP(INTEGER  A,B,C,D)
EXTERNALROUTINESPEC  PROMPT(STRING (255) S)
EXTERNALROUTINESPEC  RDINT(INTEGERNAME  I)
!
EXTERNALROUTINE  MAKE EMPTY(STRING (255) S)
INTEGER  VA,F,J
      PROMPT("VA: ")
      RDINT(VA)
      UNLESS  16<=  VA>>18  <=31 AND  VA&X'3FF'=0 START 
         PRINTSTRING("ADDRESS ??")
         NEWLINE
         RETURN 
         FINISH 
      PRINTSTRING("CURRENTLY CONTAINS:")
      NEWLINE
      DUMP(VA,VA+X'20',-1,16)
      PROMPT("GO AHEAD? ")
      RSTRG(S) UNTIL  S="YES" OR  S="yes" OR  CHARNO(S,1)='N'
      RETURN  IF  'Y'#CHARNO(S,1)#'y'
      J=DLOWER ACR(2)
      IF  J#0 START 
         PRINTSTRING("DLOWER ACR FLAG =")
         WRITE(J,1)
         NEWLINE
            RETURN 
         FINISH 
      STRING(VA)="EMPTY"
      PRINTSTRING("DONE")
      NEWLINE
      END ; ! MAKE EMPTY
ENDOFFILE