home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / os / cs-dos / cs-batch.sfx / cd < prev    next >
Encoding:
Text File  |  1990-02-12  |  253 b   |  16 lines
  1. pushdir
  2. if "%1"=" "goto noarg
  3. x$="%1"
  4. if mid$(x$,2,1)=":"then a=asc(x$):sys5888,a:x$=mid$(x$,3,len(x$)-2)
  5. poke7136,0:if x$="/"then poke7136,1
  6. if errorlevel 1 goto root
  7. >/%1
  8. goto done
  9. :root
  10. >/
  11. goto done
  12. :noarg
  13. echo Syntax: %0 [d:] directory
  14. :done
  15. popdir
  16.