home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
291.lha
/
Scripit_v1.20
/
Demos
/
QB
< prev
next >
Wrap
Text File
|
1989-10-09
|
2KB
|
50 lines
;; CLI Quarterback runner.
;;
;; Format: scripit qb [source] [dest1] [dest2]
;;
;; e.g. scripit qb dh2: df0: df1:
;;
;; Note: all argument are optional except for the filename.
;;
;; A Scripit script by Khalid Aldoseri.
;; Needs Scripit version 1.20 or above.
begin
select wait 200 ABORT
if #argcount > 3 ;Did user supply more than 3 args?
con echo "Too Many Args!" ;Yes. Complain,
end ;and quit.
endif
run "dr:Backup/Quarterback" ;Run QuarterBack
$source = "DH0:" ;default source device
$dest1 = "DF0:" ;default destination device # 1
$dest2 = "DF1:" ;default destination device # 2
if #argcount >= 1 ;Did user supply 1 or more args?
$source = $arg[1] ;yes, copy first arg into $source
endif
if #argcount >= 2 ;Did user supply 2 or more args?
$dest1 = $arg[2] ;yes, copy second arg into $dest1
endif
if #argcount == 3 ;Did user supply 3 args?
$dest2 = $arg[3] ;yes, copy third arg into $dest2
endif
con text "Restoring FROM: " $source " TO: " $dest1 " + " $dest2 $lf
select window QuarterBack ;wait until the QB window shows up
wait
gadget Restore ;click on Restore gadget
wait
gadget "" 0,1,0,0 $source ;insert $source into gadget #1
gadget "" 0,2,0,0 $dest1 ;insert $dest1 into gadget #2
gadget "" 0,3,0,0 $dest2 ;insert $dest2 into gadget #3
wait 10
gadget proceed ;click on Proceed gadget