Ronald.Winters@support.com
Path:
nntp-server.caltech.edu!ferrari.mst6.lanl.gov!newshost.lanl.gov!ncar!uchinews!vixen.cso.uiuc.edu!howland.reston.ans.net!news-e1a.megaweb.com!newstf01.news.aol.com!newsbf02.news.aol.com!not-for-mail
From: pdcchrisd@aol.com (PDC ChrisD)
Newsgroups: comp.sys.pen
Subject: Re: PCMCIA for ZOOMER
Date: 25 Nov 1995 03:28:25 -0500
Organization: America Online, Inc. (1-800-827-6364)
Lines: 181
Sender: root@newsbf02.news.aol.com
Message-ID: <496k39$o5h@newsbf02.news.aol.com>
References: <00001c4a+00000596@msn.com>
Reply-To: pdcchrisd@aol.com (PDC ChrisD)
NNTP-Posting-Host: newsbf02.mail.aol.com
Status: N
Hi,
The Zoomer PCMCIA card is a Type II card with the following limitations:
1. Card can not use more than 50ma.
2. Card must be 5v not 12v.
3. SRAM is supported
4. Sundisk Flash cards are supported (SDP5 or SDP5A only)
5. AMT Starcard is the only supported modem due to the way that the
Zoomer is wired. Geos developed a workairound in software but it was
never released.
Here's a full backup routine for the Zoomer:
REM ZBACKUP 1.1 - Transfer all files from B: or C: on the Zoomer to the
PC
REM By Michael C. Bazarewsky and Chris De Herrera
REM Copyright 1995 - All Rights Reserved
REM Contact Michael via MikeCBaz@AOL.COM regarding errors.
REM Don't forget to customize the constants for:
REM Communication speed
REM Communication port
REM Maximum number of directory levels deep to worry about
REM Maximum number of directories per level
REM Local destination for backup
REM Root Drive on Zoomer to back up
REM Root Directory on Zoomer to back up
REM Location of ZDOS program
DECLARE SUB zcmd (Cmd$)
DECLARE SUB CopyDir (Level AS INTEGER)
DECLARE SUB HandleDir (Level AS INTEGER)
CONST Speed$ = "9600"
CONST Port$ = "1"
CONST MaxLevels = 4
CONST MaxDirsPerLevel = 20
CONST LocalBackupDir = "D:\Zoomer\Backup2"
CONST ZoomerDrive = "B"
CONST ZoomerRootDir = "\"
CONST ZDosProgName = "C:\Utility\ZDos.com"
DIM SHARED HoldDir$(MaxDirsPerLevel, MaxLevels), CurDir$(MaxLevels)
DIM SHARED Index(MaxLevels) AS INTEGER
ON ERROR GOTO errors
PRINT "ZBACKUP Version 1.1, By Michael C. Bazarewsky and"
PRINT " Chris De Herrera, Copyright 1995"
PRINT "Contact Michael at MikeCBaz@aol.com for error reports."
CHDIR LocalBackupDir
zcmd ZoomerDrive + ":"
zcmd "cd " + ZoomerRootDir
HandleDir 0
PRINT "All files were transferred!"
END
errors:
IF ERR = 75 THEN RESUME NEXT
IF ERR = 76 THEN RESUME NEXT
PRINT CHR$(7); "Error! "; ERR, err$
END
SUB CopyDir (Level AS INTEGER)
DIM LineIn AS STRING, Cmd AS STRING
Cmd = ZDosProgName+" /b:" + Speed$ + "/p:" + Port$ + " /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 xx = 1 TO 4
IF NOT EOF(1) THEN LINE INPUT #1, LineIn
NEXT xx
Index(Level) = 0
WHILE NOT EOF(1)
LINE INPUT #1, LineIn
REM If the file is not a directory and it has something in it, get it!
IF MID$(LineIn, 14, 5) <> "<DIR>" AND VAL(MID$(LineIn, 14, 10)) > 0
THEN
filename$ = RTRIM$(LEFT$(LineIn, 12))
Cmd$ = ZDosProgName+" /b:" + Speed$ + "/p:" + Port$ + " /c=" +
CHR$(34) + "get " + filename$ + CHR$(34)
SHELL Cmd$
ELSEIF MID$(LineIn, 14, 5) = "<DIR>" AND LEFT$(LineIn, 1) <> "." THEN
HoldDir$(Index(Level), Level) = RTRIM$(LEFT$(LineIn, 12))
Index(Level) = Index(Level) + 1
IF Index(Level) > MaxDirsPerLevel THEN
PRINT CHR$(7); "Too many directories at a level; increase the
constant in the program"
PRINT "and try again."
END
END IF
END IF
IF LineIn > "" THEN PRINT LineIn
WEND
CLOSE
KILL "result"
END SUB
SUB HandleDir (Level AS INTEGER)
DIM Count AS INTEGER
IF Level > MaxLevels THEN
PRINT
PRINT CHR$(7); "Too many directory levels; increase the constant in the
program and try again."
CLOSE
END
END IF
CopyDir Level
IF Index(Level) > 0 THEN
FOR Count = 0 TO Index(Level) - 1
MKDIR HoldDir$(Count, Level)
CHDIR HoldDir$(Count, Level)
zcmd "cd " + HoldDir$(Count, Level)
HandleDir Level + 1
NEXT Count
Index(Level) = 0
END IF
CHDIR ".."
zcmd "cd .."
END SUB
SUB zcmd (Cmd$)
cmd2$ = ZDosProgName+" /b:" + Speed$ + "/p:" + Port$ + " /c=" + CHR$(34)
+ Cmd$ + " " + CHR$(34)
SHELL cmd2$
END SUB
Here's a directory restore routine as well:
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"
Let me know if you need more.
Chris De Herrera