RequestChoice >ENV:DSQmav "DiskSqueeze! Message" "WARNING!*nCould not find 'DSQ' file in your ENV: or ENVARC: dir...*nUsing default T: directory (= RAM) for temporary storage" "Choose other Device" "Continue (T: is fine)"
RequestChoice >NIL: "DiskSqueeze! Error Message" "WARNING!*nYour default temporary storage path,*nENV:DSQ, has NOT a proper format ...*nChoose other path at once !" "OK"
Skip 24HREXPERIENCE BACK
EndIf
Endif
LAB MEMCHK
Avail flush total >ENV:DSQmav
If NOT $DSQmav VAL GT 2000000
If $DSQ EQ "T:"
RequestChoice >NIL: "DiskSqueeze! Message" "WARNING!*nMemory too low to use T: (RAM) as temporary storage directory!*nRead docs carefully to use DiskSqueeze! anyway..." "QUIT"
RequestChoice >NIL: ">> NERD ALERT! << STuPiD WuSSiE PiRAT dETEcTEd >:^( " "-------------------------------------------*n! YOU ARE USING AN ILLEGAL KezFILE OF LZX !*n-------------------------------------------*n*nWith such a Kezfile, LZX will malfunction !*n+ archive integrity becomes VERY unstable !*n*nDiskSqueeze! can't work with this rubbish !*n*nGet registered at once, LAME PiECE oF SHiT!*n" "Damn, you've got me...you're real smart, dude!"
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, couldn't find that file...*nMake sure you enter the right name!" "OK"
Skip DMSstart BACK
EndIf
Echo $DSQdst >ENV:DSQmav LEN=4
If NOT $DSQmav EQ ".DMS"
RequestChoice >NIL: "DiskSqueeze! Error Message" " Sorry, that file doesn't seem to be a DMS archive...*nIf it is, make sure that its name has the '.DMS' extension !" "OK"
Skip DMSstart BACK
EndIf
LAB DSQReqDMD
RequestChoice >ENV:DSQdrv "DMS to DiskSqueeze! Conversion Tool" "Select Device to use for converting (RAM-drives automatically mounted)" "DF0:" "DF1:" "DF2:" "DF3:" "RAD:" "RAD2:" "BACK"
Skip Devices
EndIf
LAB ReqMixedFS
RequestChoice >ENV:DSQpdf "DiskSqueeze! - Packing Question" "Is the (Amiga) disk using a mixed filesystem ?" "YES" "NO" "HELP" "BACK"
If $DSQpdf EQ "0"
If $DSQact EQ "4"
Skip DMSstart BACK
else
Skip Pack
EndIf
EndIf
If $DSQpdf EQ "1"
SetEnv DSQpdf ALL
EndIf
If $DSQpdf EQ "2"
SetEnv DSQpdf ""
EndIf
If $DSQpdf EQ "3"
RequestChoice >NIL: "DiskSqueeze! Info" "A mixed filesystem means that the disk (which*nis about to be packed) is using a combination*nof normal AmigaDOS (directories & files)+AND+*ntrackdisk instructions (fastloader or special*nbootblock which contain specific instructions*nto load a menu, intro or data). Simply check*nthe contents of the disk, and if there's only*nfew bytes used, although the program is quite*nbig, it's almost certainly such a rare 'mixed*nfilesystem' disk. Read docs for further info." "BACK"
Echo "» Remember to press CTRL-C to abort current actions! «"
Echo ""
Echo "Reading and storing disk image from the $DSQdrv drive ... Please wait!"
$PackDev $DSQdrv Image.dsq NC $DSQpdf
If NOT EXISTS Image.dsq.pkd
RequestChoice >ENV:DSQbit "DiskSqueeze! Error Message (CTRL-C pushed?)" "Couldn't load the image from the disk ! *n*nIs there really a disk in device $DSQdrv ?*n*n AND/OR*n*n Is the disk readable on your system ?" "Retry" "Abort"
If $DSQbit EQ "1"
UnsetEnv DSQbit
Skip Beavis BACK
else
UnsetEnv DSQbit
Skip Pack
EndIf
EndIf
If $ALL EQ "Y"
Skip DEKUTISGEBUISD
EndIF
$TestDevice $DSQdrv
If NOT WARN
Echo ""
Echo "Standard DOS disk : adding filelist to archive... Hold on !"
$DirII >Files.dsq all sizes width=64 $DSQdrv
Echo "Done..."
else
Echo "No standard DOS disk : no filelist added to archive..."
EndIf
If EXISTS Files.dsq
$DirII >ENV:eikel Files.dsq LFORMAT %l
If $eikel VAL EQ 0
Echo ""
Delete >NIL: Files.dsq FORCE
UnSetEnv eikel
Echo "(Empty) filelist removed from archive..."
If NOT $DSQpdf EQ "ALL"
RequestChoice >ENV:DSQbit "DiskSqueeze! IMPORTANT Reminder Message" " ! ! ! ! ! W A R N I N G ! ! ! ! !*n*nSince this disk is probably using a mixed filesystem,*nyou should've selected the 'Mixed FileSystem' option,*n This option is currently NOT enabled !!*nThe archive WILL be faulty if option isn't selected !*n*nShall I re-read the disk as a mixed filesystem-disk ?" "YES, please do!" "NO, ignore this"
If $DSQbit EQ "1"
SetEnv DSQpdf "ALL"
UnSetEnv DSQbit
Delete >NIL: Image.dsq.pkd FORCE
Set ALL Y
Skip Beavis back
else
UnSetEnv DSQbit
EndIf
EndIf
EndIf
UnSetEnv eikel
EndIf
LAB DEKUTISGEBUISD
UnSet ALL
If ERROR
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, a disk error has occured...*nIs the disk present & readable ?" "Go Back To Main Menu"
RequestChoice >NIL: "DiskSqueeze! Memory Error (only $DSQmav bytes allocated)" "Sorry, not enough RAM available to use device 'RAD:'!*nTry using a disk based temporary storage to free RAM.*nRead docs for more info about memory saving tricks..." "OK"
If $DSQact EQ "1"
Skip Pack BACK
EndIf
If $DSQact EQ "2"
Skip UNPSEL
EndIf
If $DSQact EQ "4"
Skip DSQReqDMD BACK
EndIf
EndIf
EndIf
LAB rad1ok
SetEnv DSQdrv RAD:
Skip DEX
EndIf
If $DSQdrv EQ "6"
Assign >NIL: RAD2: EXISTS
If WARN
Avail total >ENV:DSQmav
If $DSQmav GT "2000000"
If NOT $DSQ EQ "T:"
Mount RAD2: >NIL:
Skip rad2ok
else
If $DSQmav GT "3000000"
Mount RAD2: >NIL:
Skip rad2ok
EndIf
EndIf
else
RequestChoice >NIL: "DiskSqueeze! Memory Error (only $DSQmav bytes allocated)" "Sorry, not enough RAM available to use device 'RAD2:'!*nTry using a disk based temporary storage to free RAM.*nRead docs for more info about memory saving tricks..." "OK"
If $DSQact eq "1"
Skip Pack BACK
EndIf
If $DSQact EQ "2"
Skip UNPSEL
EndIf
If $DSQact EQ "4"
Skip DSQReqDMD BACK
EndIf
EndIf
EndIf
LAB rad2ok
SetEnv DSQdrv RAD2:
Skip DEX
EndIf
Eval >ENV:DSQnr $DSQdrv - 1
SetEnv DSQdrv DF$DSQnr:
LAB DEX
Assign >NIL: $DSQdrv EXISTS
If WARN
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, your Amiga cannot allocate the specified device...*n Make sure the hardware (or mountfile) is present !" "Choose Another Device"
If $DSQact EQ "1"
Skip Pack BACK
EndIf
If $DSQact EQ "2"
Skip UNPSEL
EndIf
If $DSQact EQ "4"
Skip DSQreqDMD BACK
EndIf
EndIf
If $DSQact EQ "2"
Skip UNPDMS
EndIf
If $DSQact EQ "4"
$DirII $DSQdst LFormat %l >ENV:DSQorg
Skip DMC
EndIf
Skip ReqMixedFS BACK
LAB Pack2
$DirII >ENV:DSQact $DSQdst LFORMAT %l
If NOT $DSQact VAL GT 10
RequestChoice >NIL: "DiskSqueeze! Error Message (did you push 'CTRL-C' ?)" "Something went definitely wrong while packing or saving !*nSuggest you check the output window + involved devices...*n Also make sure you have enough free RAM (read docs)" "Restart DiskSqueeze!"
else
RequestChoice >NIL: "DiskSqueeze! Result" "The disk was squeezed into $DSQbit bytes!" "OK"
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, couldn't find that file...*nMake sure you enter the right name!" "OK"
If $DSQact EQ "2"
Skip UnPack BACK
else
Skip DSQview BACK
EndIf
EndIf
Echo $DSQdst >ENV:DSQbit LEN=4
If NOT $DSQbit EQ ".dsq"
If NOT $DSQact EQ "3"
Skip UNPSEL
else
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, that file doesn't seem to be a DiskSqueeze! archive...*nIf it is, make sure that its name has the '.dsq' extension !" "OK"
Skip DSQview BACK
EndIf
else
If $DSQact EQ "3"
Skip MORALES
EndIf
EndIf
RequestChoice >ENV:DSQmav "DiskSqueeze!" "Do You want to view the contents of the disk" "YES" "NO"
If $DSQmav EQ "1"
LAB MORALES
$LZX -q -m -P5 x $DSQdst Files.dsq $DSQ
If NOT EXISTS Files.dsq
RequestChoice >NIL: "DiskSqueeze! FileList Information" " Disk-image is obtained from a 'NDOS' disk*n Such a disk uses no filesystem whatsoever*n Therefore, a filelist is not available...*n*n(Disk can also be using a mixed filesystem)" "OK"
else
If NOT EXISTS ENV:More
Which More >ENV:More
If WARN
RequestChoice >NIL: "DiskSqueeze! Error Message" "Sorry, unable to locate the 'more' textviewer !" "OK"
RequestChoice >NIL: "DiskSqueeze! Error" "Archive contains no disk-image !*nIt is probably corrupt or fake !" "Restart DiskSqueeze!"
Skip Init BACK
EndIf
EndIf
EndIf
If NOT EQ $DSQdrv "RAD:"
If NOT EQ $DSQdrv "RAD2:"
RequestChoice >NIL: "DiskSqueeze!" "Insert destination disk in floppy-drive $DSQdrv" "OK"
EndIf
EndIf
Echo "Recreating disk using the $DSQdrv drive ... Please wait!"
If $DSQbit EQ ".xdm"
Skip xdmDC
EndIf
LAB BuzzCut
$PackDev Image.dsq $DSQdrv NC ETDF
If ERROR
If NOT $DSQdrv EQ "RAD:"
If NOT $DSQdrv EQ "RAD2:"
$TestDevice $DSQdrv
If WARN
RequestChoice >ENV:DSQact "DiskSqueeze! Error Message" "Couldn't write the DSQ-image to the disk ! *n*n Is there really a disk in device $DSQdrv ?" "YES, but it's an xDM-image" "NO, let's try again..."
If $DSQact EQ "0"
UnsetEnv DSQact
Skip BuzzCut BACK
else
UnsetEnv DSQact
EndIf
EndIf
EndIf
EndIf
Echo ""
Echo "PackDev couldn't handle the disk-image..."
Echo ""
Echo "Whether the archive was created with the obsolete xDM V1.0-V1.2,"
Echo "(although the extension of the archive isn't '.xdm'...)"
Echo "*OR* the archive is simply corrupted or simply fake !!!"
LAB xdmDC
Echo ""
Echo "DiskSqueeze! is now trying the xDM routines to unpack... Hold on!"
Echo ""
If NOT EXISTS ENV:dd
Which dd >ENV:dd
If WARN
RequestChoice >NIL: "DiskSqueeze! Error Message" "'dd' tool not installed.*nCheck docs for troubleshooting!" "Restart DiskSqueeze!"
Skip Init BACK
EndIf
EndIf
If EXISTS xdm.pkd
$dd -c1760 -w$DSQdrv xdm.pkd
else
If EXISTS xdm.dsk
$dd -c1760 -w$DSQdrv xdm.dsk
else
Echo "xDM routines failed to unpack the archive..."
RequestChoice >NIL: "DiskSqueeze! Error Message" "It seems that the archive is corrupted or fake !*n Sorry, DiskSqueeze! has to abort this action !" "Restart DiskSqueeze!"
Skip Init BACK
EndIf
EndIf
$TestDevice $DSQdrv
If WARN
RequestChoice >NIL: "DiskSqueeze! Remark" " Check the window whether 'dd' wrote*n any obscure error messages*n*nThis means that something went wrong !*n(>Check docs for evt. troubleshooting)*n*nIf 1760/1760 appeared, all went fine !*n" "OK"
