PROC Main:
GLOBAL Top%,Stack%(5000),D$(128),K%
Path:("LOC::M:\")
  WHILE Top%>0
    D$=DIR$(PEEK$(Stack%(Top%)))
    Chg$:
    WHILE D$<>""
      IF KEY
      PRINT "** Aborted **"
      GET
      STOP
      ENDIF
      ONERR Skip::
      SETPATH D$+"\"
      ONERR OFF
      Path:(D$+"\")
      D$=DIR$("")
      CONTINUE
      Skip::
      ONERR OFF
      CLS
      PRINT D$
      D$=DIR$("")
    ENDWH
  ENDWH
PRINT "** Finished **"
GET
ENDP

PROC Chg$:
LOCAL lc3z$(130)
IF Top%>0
lc3z$=PEEK$(Stack%(Top%))
FREEALLOC Stack%(Top%)
Top%=Top%-1
ENDIF
RETURN lc3z$
ENDP

PROC Path:(pr3z$)
IF Top%>=5000
PRINT "Path Structure Too Complex"
GET
STOP
ENDIF
Top%=Top%+1
Stack%(Top%)=ALLOC(LEN(pr3z$)+2)
IF Stack%(Top%)=0
PRINT "Not Enough Memory"
GET
Top%=Top%-1
STOP
ENDIF
POKE$ Stack%(Top%),pr3z$
ENDP