home *** CD-ROM | disk | FTP | other *** search
- .name
- CatchDisk
- .author
- Alessandro Sala
- .email
- tser1500@cdc8g5.cdc.polimi.it
- .address
- Via A. Grandi, 16
- 20014 Nerviano (MI)
- Italy
- .version
- 1.20
- .date
- 1994.04.26
- .requirements
- OS 2.04+
- .description
- A simple commodity for "auto-formating" bad/unformatted disks. Each time a
- disk is inserted into a drive, it checks to see if it is properly
- formatted. If not, CatchDisk executes the Format program and asks the user
- if he wishes to format the disk.
- .described-by
- Richard Fish
- .docs
- english/Readme
- english/documentation/CatchDisk.doc
- english/documentation/CatchDisk.guide
- deutsch/Liesmich
- deutsch/dokumentation/CatchDisk.dok
- deutsch/dokumentation/CatchDisk.guide
- .reference
- AmigaLibDisk462:CacheDisk/
- 1.0
- FrozenFish-Apr94:BBS/ALib/d4xx/d462/CacheDisk.lha
- 1.0
- GoldFish1-Apr94:BBS/d4xx/d462/CacheDisk.lha
- 1.0
- GoldFish2-Apr94:d4xx/d462/CacheDisk/
- 1.0
- .short
- Commodity for auto-formatting disks.
- .aminet-dir
- util/cdity
- .execute
- set choice `RequestChoice "Catchdisk" "Please select an option" "View Doc" "View Guide" "Install Program" "Run Program" "Cancel"`
-
- if $choice EQ "0"
- quit 5
- endif
-
- if $choice EQ "1"
- set choice2 `RequestChoice "Language Selection" "Please select a language" "Deutsch" "English" "Italiano" "Cancel"`
- if $choice2 EQ "0"
- quit 0
- endif
-
- if $choice2 EQ "1"
- cd deutsch/dokumentation
- MetaTool CatchDisk.dok TEXT
- cd //
- endif
-
- if $choice2 EQ "2"
- cd english/documentation
- MetaTool CatchDisk.doc TEXT
- cd //
- endif
-
- if $choice2 EQ "3"
- cd italiano/documentazione
- MetaTool CatchDisk.doc TEXT
- cd //
- endif
- endif
-
- if $choice EQ "2"
- set choice2 `RequestChoice "Language Selection" "Please select a language" "Deutsch" "English" "Italiano" "Cancel"`
- if $choice2 EQ "0"
- quit 0
- endif
-
- if $choice2 EQ "1"
- cd deutsch/dokumentation
- MetaTool CatchDisk.guide TEXT
- cd //
- endif
-
- if $choice2 EQ "2"
- cd english/documentation
- MetaTool CatchDisk.guide TEXT
- cd //
- endif
-
- if $choice2 EQ "3"
- cd italiano/documentazione
- MetaTool CatchDisk.guide TEXT
- cd //
- endif
- endif
-
- if $choice EQ "3"
- set choice2 `RequestChoice "Language Selection" "Please select a language" "Deutsch" "English" "Italiano" "Cancel"`
- if $choice2 EQ "0"
- quit 0
- endif
-
- if $choice2 EQ "1"
- cd deutsch
- Installer SCRIPT Install APPNAME "CatchDisk v1.20" MINUSER AVERAGE DEFUSER AVERAGE
- cd /
- endif
-
- if $choice2 EQ "2"
- cd english
- Installer SCRIPT Install APPNAME "CatchDisk v1.20" MINUSER AVERAGE DEFUSER AVERAGE
- cd /
- endif
-
- if $choice2 EQ "3"
- cd italiano
- Installer SCRIPT Installa APPNAME "CatchDisk v1.20" MINUSER AVERAGE DEFUSER AVERAGE
- cd /
- endif
- endif
-
- if $choice EQ "4"
- assign locale: "" ADD
- wbrun CatchDisk
- endif
-