home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 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 ╙YNTAX: %0 [D:] DIRECTORY
  14. :DONE
  15. POPDIR
  16.