home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 29 Fixes_o
/
29-Fixes_o.zip
/
make8090.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-06
|
1KB
|
56 lines
/* Makedsks utility */
parse arg drivetemp format
if (drivetemp == "") then
do
say "Command Syntax: MAKEDSKS <drive letter> [/f]"
say " where <drive letter> is a valid 1.44 meg floppy disk drive"
say " /f parameter formats the floppy disk first"
say ""
say " eg. MAKEDSKS a: /f"
exit
end
"@dir /b /on *_* | rxqueue"
disks=0
drive=left(drivetemp,1)
do j = 1 to QUEUED()
pull templine
parse var templine fixpak"_"disk"."ext
if (disk>disks) then
disks=disk
end
say "The DB2 for OS/2 Fixpak you are about to install is "fixpak" and it is "disks" disks"
say "in size. It will be unpacked to diskettes in Drive "drive":"
say ""
do i= 1 to disks
if (format == "/f") then
say "Please insert a blank unformatted 1.44M disk into Drive "drive":"
if (format <> "/f") then
say "Please insert an empty formatted 1.44M disk into Drive "drive":"
"@pause"
if (format == "/f") then
do
say ""
say "Formatting Disk "i"..."
say ""
"@echo n | format "drive": /ONCE >NUL"
end
say ""
say "Creating Disk "i"..."
say ""
"@pkunzip -d -o "fixpak"_"i" "drive":"
"@label "drive":VOLUME"i
say ""
say "Finished Disk "i
say ""
end
say ""
say "All done!"
say ""