;   ZipCopy 1.0, Eddie Ivanov
;   Mainline Software 1997
;   eivanov@tfs.net
;
;
;choice menu
;
requestchoice >env:Choice "ZipCopy 1.0 - Eddie Ivanov, 1997" "Choose your Zip function." "ZipBackup" "ZipCopy" "Cancel"
IF $Choice EQ "1"
Skip HD
ENDIF
IF $Choice EQ "2"
skip Cop
ENDIF
IF $Choice EQ "0"
Skip Die
ENDIF
;
;zipcopy
;
Lab Cop
requestchoice >env:Drive "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipCopy creates a duplicate disk.*n100 meg of Hard drive space is needed for temporary cache.*nEnter partition." "DH0" "DH1" "HD0" "HD1" "Cancel"
IF $Drive EQ "1"
Skip  DH0C
Endif
IF $Drive EQ "2"
Skip  DH1C
Endif
IF $Drive EQ "3"
Skip  HD0C
Endif
IF $Drive EQ "4"
Skip  HD1C
Endif
IF $Drive EQ "0"
Skip Die
Endif
;
;DH0 100 meg copy start
;
Lab DH0C
requestchoice >env:Answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipCopy*nYou must have a pre-formatted Zip disk available.*nInsert source/data disk to continue.*nA temporary directory called zipxyzx will be created on DH0:" "Continue" "Cancel"
IF $Answer EQ "1"
ENDIF
IF $Answer EQ "0"
Skip Die
ENDIF
makedir DH0:zipxyzx
Copy zip0: to DH0:zipxyzx com all
requestchoice >env:answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "Insert Destination Zip disk. It must be pre-formatted." "Continue" "Cancel"
IF $Answer EQ "1"
copy DH0:zipxyzx to zip0: com all
delete dh0:zipxyzx com force all
ENDIF
IF $Answer EQ "0"
delete dh0:zipxyzx com force all
Skip Die
ENDIF
Skip Die
;
;DH1 100 meg copy start
;
Lab DH1C
requestchoice >env:Answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipCopy*nYou must have a pre-formatted Zip disk available.*nInsert source/data disk to continue.*nA temporary directory called zipxyzx will be created on DH1:" "Continue" "Cancel"
IF $Answer EQ "1"
ENDIF
IF $Answer EQ "0"
Skip Die
ENDIF
makedir DH1:zipxyzx
Copy zip0: to DH1:zipxyzx com all
requestchoice >env:answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "Insert Destination Zip disk. It must be pre-formatted." "Continue" "Cancel"
IF $Answer EQ "1"
copy DH1:zipxyzx to zip0: com all
delete dh1:zipxyzx com force all
ENDIF
IF $Answer EQ "0"
delete dh1:zipxyzx com force all
Skip Die
ENDIF
Skip Die
;
;HD0 100 meg copy start
;
Lab HD0C
requestchoice >env:Answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipCopy*nYou must have a pre-formatted Zip disk available.*nInsert source/data disk to continue.*nA temporary directory called zipxyzx will be created on HD0:" "Continue" "Cancel"
IF $Answer EQ "1"
ENDIF
IF $Answer EQ "0"
Skip Die
ENDIF
makedir hd0:zipxyzx
Copy zip0: to hd0:zipxyzx com all
requestchoice >env:answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "Insert Destination Zip disk. It must be pre-formatted." "Continue" "Cancel"
IF $Answer EQ "1"
copy hd0:zipxyzx to zip0: com all
delete hd0:zipxyzx com force all
ENDIF
IF $Answer EQ "0"
delete HD0:zipxyzx com force all
Skip Die
ENDIF
Skip Die
;
;HD1 100 meg copy start
;
Lab HD1C
requestchoice >env:Answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipCopy*nYou must have a pre-formatted Zip disk available.*nInsert source/data disk to continue.*nA temporary directory called zipxyzx will be created on HD1:" "Continue" "Cancel"
IF $Answer EQ "1"
ENDIF
IF $Answer EQ "0"
Skip Die
ENDIF
makedir hd1:zipxyzx
Copy zip0: to hd1:zipxyzx com all
requestchoice >env:answer "ZipCopy 1.0 - Eddie Ivanov, 1997" "Insert Destination Zip disk. It must be pre-formatted." "Continue" "Cancel"
IF $Answer EQ "1"
copy hd1:zipxyzx to zip0: com all
delete hd1:zipxyzx com force all
ENDIF
IF $Answer EQ "0"
delete HD1:zipxyzx com force all
Skip Die
ENDIF
Skip Die
;
;ZipBackup
;
Lab HD
requestchoice >env:Drive "ZipCopy 1.0 ZipCopy - Eddie Ivanov, 1997" "ZipBackup*nInsert formatted Zip disk in Zip0:*nChoose partition to back up." "DH0" "DH1" "HD0" "HD1" "Cancel"
IF $Drive EQ "1"
Skip  DH0B
Endif
IF $Drive EQ "2"
Skip  DH1B
Endif
IF $Drive EQ "3"
Skip  HD0B
Endif
IF $Drive EQ "4"
Skip  HD1B
Endif
IF $Drive EQ "0"
Skip Die
Endif
;
;DH0 Backup
;
Lab DH0B
requestchoice >env:Back "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipBackup*nYou have chosen to backup DH0.*nDH0 must have less than 100 meg of data.*nYou must have a pre-formatted Zip disk in Zip0: to continue." "Continue" "Cancel"
IF $Back EQ "1"
ENDIF
IF $Back EQ "0"
Skip Die
ENDIF
Copy DH0: to zip0: com all
ENDIF
Skip Die
;
;DH1 Backup
;
Lab DH1B
requestchoice >env:Back "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipBackup*nYou have chosen to backup DH1.*nDH1 must have less than 100 meg of data.*nYou must have a pre-formatted Zip disk in Zip0: to continue." "Continue" "Cancel"
IF $Back EQ "1"
ENDIF
IF $Back EQ "0"
Skip Die
ENDIF
Copy DH1: to zip0: com all
ENDIF
Skip Die
;
;HD0 Backup
;
Lab HD0B
requestchoice >env:Back "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipBackup*nYou have chosen to backup HD0.*nHD0 must have less than 100 meg of data.*nYou must have a pre-formatted Zip disk in Zip0: to continue." "Continue" "Cancel"
IF $Back EQ "1"
ENDIF
IF $Back EQ "0"
Skip Die
ENDIF
Copy hd0: to zip0: com all
ENDIF
Skip Die
;
;HD1 Backup
;
Lab HD1B
requestchoice >env:Back "ZipCopy 1.0 - Eddie Ivanov, 1997" "ZipBackup*nYou have chosen to backup HD1.*nHD1 must have less than 100 meg of data.*nYou must have a pre-formatted Zip disk in Zip0: to continue." "Continue" "Cancel"
IF $Back EQ "1"
ENDIF
IF $Back EQ "0"
Skip Die
ENDIF
Copy HD1: to zip0: com all
ENDIF
Skip Die
;
;End Program
;
Lab Die
endcli




