Chris De Herrera
REM ZGETDIR - Transfer a whole directory from the Zoomer to the PC
REM By Chris De Herrera, Copyright 1994 - All Rights Reserved
REM Don't forget to customize the cmd$ for:
REM 1. Directory for ZDOS.
REM 2. Com Port and Baud Rate
REM And remember, it copies files from the default directory on the Zoomer!
PRINT "ZGETDIR - Xfer whole Dir to PC! By Chris De Herrera Copyright 1994"
cmd$ = "c:\zoomer\zdos /b:38400 /c=" + CHR$(34) + "dir" + CHR$(34) + " >
result"
SHELL cmd$
REM Copy all the files from the default directory of the Zoomer!
OPEN "result" FOR INPUT AS 1
FOR x = 1 TO 4
IF NOT EOF(1) THEN LINE INPUT #1, A$
PRINT A$
NEXT x
WHILE NOT EOF(1)
LINE INPUT #1, A$
REM If the file is not a directory and it has something in it, get it!
IF MID$(A$, 14, 5) <> "<DIR>" AND VAL(MID$(A$, 14, 10)) > 0 THEN
filename$ = RTRIM$(LEFT$(A$, 12))
cmd$ = "c:\zoomer\zdos /b:38400 /c=" + CHR$(34) + "get " + filename$ +
CHR$(34)
SHELL cmd$
END IF
IF A$ > "" THEN PRINT A$
WEND
CLOSE
PRINT "All files were transferred!"
KILL "result"