home *** CD-ROM | disk | FTP | other *** search
Wrap
CMDWIN "CON:0/10/640/246/Your command.../AUTO/CLOSE/WAIT"" SHELLWIN "CON:0/11/640/100/BrowserII Shell/AUTO/CLOSE/WAIT" SHORTCUTQUAL "" #AUTOCMD "Unknown" RUN SYS:Utilities/AZap [] AUTOCMD "Source C" RUN SYS:Utilities/Ed [] AUTOCMD "Src CXX" RUN SYS:Utilities/Ed [] AUTOCMD "Include C" RUN SYS:Utilities/Ed [] AUTOCMD "Asm" RUN SYS:Utilities/Ed [] AUTOCMD "MakeFile" RUN SYS:Utilities/Ed [] AUTOCMD "Guide" RUN SYS:Utilities/MultiView [] PUBSCREEN="swMultiView" FONTNAME XHelvetica FONTSIZE 11 AUTOCMD "PP Doc" RUN SYS:Utilities/More [] AUTOCMD "Doc" RUN SYS:Utilities/More [] #AUTOCMD "Text" RUN SYS:Utilities/More [] #AUTOCMD "ILBM" RUN SYS:Utilities/MultiView [] SCREEN AUTOCMD "ILBM" RUN SYS:Utilities/ViewTek POINTER [] #AUTOCMD "ILBM24" RUN SYS:Utilities/ViewTek POINTER HIRES LACE [] AUTOCMD "ILBM24" RUN PRG:Pix/CyberView [] CENTER AUTOCMD "PCX" RUN SYS:Utilities/MultiView [] SCREEN #AUTOCMD "GIF" RUN SYS:Utilities/ViewTek POINTER [] AUTOCMD "GIF" RUN PRG:Pix/CyberView [] CENTER WITDH 800 HEIGHT 600 #AUTOCMD "JPEG" RUN SYS:Utilities/ViewTek POINTER [] #AUTOCMD "JPEG" RUN PRG:Pix/FastJPEG [] Pointer ScreenMode="0x89024" AUTOCMD "JPEG" RUN PRG:Pix/CyberView [] CENTER AUTOCMD "BMP" RUN SYS:Utilities/ViewTek [] SCREEN AUTOCMD "BMP 1Bit" RUN SYS:Utilities/ViewTek [] SCREEN AUTOCMD "BMP 4Bit" RUN SYS:Utilities/ViewTek [] SCREEN AUTOCMD "BMP 8Bit" RUN SYS:Utilities/ViewTek [] SCREEN AUTOCMD "Glimps" RUN SYS:Utilities/MultiView [] PUBSCREEN=$BrowserIIScreenName AUTOCMD "ANIM" RUN PRI 4 SYS:Utilities/ViewTek [] POINTER AUTOCMD "8SVX" RUN C:OPlay -b 50000 -s 0 [] AUTOCMD "ADPCM" SHELL WIN "CON:0/11/440/40/Playing..." PRG:Sound/PlayADPCM [:] FILTER AUTOCMD "MEd Mod" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "PP MEdMOD" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "ST Mod" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "xPK Mod" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "xPK SQSH" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD ".Mod" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "S3M" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "TFMX Trck" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "Fred" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "PP ST Mod" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "LHArc MOD" RUN Rx Rexx:PlayMod.rexx [:] AUTOCMD "Wave" RUN C:OPlay -b 50000 -s 0 [] #AUTOCMD "LHArc" WBTF SHELL WIN "CON:/15/640/200/LhArc...(list)/CLOSE/WAIT" $LhArc $LHAOpts v [] #AUTOCMD "Library" WBTF SHELL Version [] AUTOCMD "Icon" WITHSUBTYPES WBTF RUN SYS:Utilities/ShowI [] #AUTOCMD "DMS" WITHSUBTYPES WBTF RUN PRG:Utils/Arc/DMSWIN AUTOCMD "DMS" WITHSUBTYPES RUN Assign >NIL: DM0: EXISTS;IF WARN;Mount DM0:;EndIf;Set N [:];PRG:Utils/Arc/DMSDiskChange 0 $N;BD SCANDEVS AUTOCMD "Install" WBTF WB PRG:Utils/Installer AUTOCMD "MPEG" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MPEG_Play -loop [] AUTOCMD "AVI" RUN STACK 20000 PRG:Pix/XAnim +CF4 +Ae [] AUTOCMD "FLI" RUN PRG:Pix/Flip [] DISK AUTOCMD "FLC" RUN PRG:Pix/Flip [] DISK AUTOCMD "ScrLnk" RUN Execute [] AUTOCMD "ReadMe" RUN SYS:Utilities/More [] COLOR 0 MENU "Txt" ITEM {Y} "Ced" RUN SYS:Utilities/Ed [] ITEM "Edge" RUN Rx Rexx:Ed.rexx [:] ITEM "PPCed" RUN Decrunch [] TO T:Text;Run SYS:Utilities/Ed T:Text ITEM {W} "Most" WB SYS:Utilities/More [] MENU "Pix" ITEM {J} "CyberView" RUN PRG:Pix/CyberView [] CENTER ITEM "CyberView" KEY "shift j" KEYTEXT "S-j" RUN PRG:Pix/CyberView [] WIDTH 1024 HEIGHT 768 CENTER ITEM "CyberWindow" RUN PRG:Pix/CyberWindow [] PROGRESS ITEM {H} "CyberWindow" RUN PRG:Pix/CyberWindow [] PROGRESS PUBSCREEN=TrueColor ITEM {K} "ViewTek" RUN SYS:Utilities/ViewTek POINTER [] ITEM "ViewTek ?" RUN Execute S:Macro/HowView [] ScreenName $BrowserIIScreenName ITEM {X} "MultiView" RUN SYS:Utilities/MultiView [] SCREEN ITEM "MultiView" KEY "shift x" KEYTEXT "S-x" WBTF RUN SYS:Utilities/MultiView [] ITEM "MultiView" KEY "alt x" KEYTEXT "L-x" RUN SYS:Utilities/MultiView [] PUBSCREEN="swMultiView" FONTNAME XHelvetica FONTSIZE 11 SUBMENU "Alt" ITEM "WorkView" WBTF RUN STACK 50000 PRG:Pix/Rend24 -d [] ITEM "FastJPEG" RUN PRG:Pix/FastJPEG [] Pointer ScreenMode="0x89024" ITEM "FastJPEG" RUN PRG:Pix/FastJPEG [] GREY Pointer ScreenMode="0x89024" ITEM "FastView" RUN PRG:Pix/FastView [] INFO POINTER ITEM "FastView" RUN PRG:Pix/FastView [] DITHER SCALE INFO POINTER ENDSUBMENU ITEM "ViewANIM" WB PRI 4 PRG:Pix/Utils/View [] ITEM "DPPlayer" WB PRI 4 PRG:Pix/DPaint/Player [] ITEM "MPEG" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MPEG_Play -loop [] ITEM "MPEG slow" RUN PRI 4 Run Copy [] PIPE:MPEGFile/10000/10000;ChangeTaskPri 3;PRG:Pix/MPEG_Play PIPE:MPEGFile/10000 SUBMENU "MPEG" ITEM "MPEG HAM6" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither ham6 [] ITEM "MPEG HAM8" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither ham8 [] ITEM "MPEG Gray8" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither gray8 [] ITEM "MPEG Gray4" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither gray [] ITEM "MPEG 2x2" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither 2x2 [] ITEM "MPEG fs2fast" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither fs2fast [] ITEM "MPEG mbordered" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither mbordered [] ITEM "MPEG color" SHELL STACK 8192 WIN "CON:0/11/340/150/MPEG.../" PRI 4 Echo "Hit ^C to stop";PRG:Pix/MP -loop -dither color [] ENDSUBMENU # ITEM "DPaint" WB PRG:Pix/DPaint/DPaint [] ITEM "DPaint" RUN Rx Rexx:DPaint.rexx [:] ITEM "ImageFx" KEY "shift f" KEYTEXT "S-f" RUN Rx ImageFX:Rexx/LoadImage.ifx [:] ITEM "ADPro" KEY "shift a" KEYTEXT "S-a" RUN Rx Rexx:View.adpro [:] ITEM {G} "GlimpsIt" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" ITEM "GlimpsIt (IFX)" SHELL STACK 8192 WIN "CON:700/11/340/150/Glimpsing.../SCREEN IMAGEFX_SCREEN" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.rexx.ifx "%%" IconWidth=60 SUBMENU "Glimps" ITEM "KeepCurrent" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent ITEM "KeepLoaded" SHELL WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro [:] KeepLoaded ITEM "UseCurrent" KEY "shift g" KEYTEXT "S-G" SHELL WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro [:] UseCurrent KeepCurrent ITEM "*.glimps" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For #?.glimps ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent ITEM "Pic *" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For ~(#?.(glimps|info)) ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" KeepCurrent ITEM "Vapor" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" Vapor ITEM "Width 32" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] ShowFileType FullPathArgs DO Rx PRG:Pix/GlimpsPic/GlimpsIt.adpro "%%" IconWidth=32 BARLABEL #ITEM "PctIcon" WB PRG:Pix/PictIcon/PictIcon ITEM "PctIcon" SHELL PRI -1 WIN "CON:0/11/340/150/Glimpsing..." PRG:Pix/PictIcon/PictIcon [] MaxIWitdh=80 CENTERFreeIconPos Chunky NoWhatis NewIcon POPULARITY ITEM "PctIcon *" SHELL PRI -1 WIN "CON:0/11/340/150/Glimpsing..." PRG:Pix/PictIcon/PictIcon ~(*.(info|glimps)) MaxIWitdh=80 CENTERFreeIconPos Chunky NoWhatis NewIcon POPULARITY ENDSUBMENU ITEM "Info" SHELL WIN "CON:0/11/640/100/Image Info:/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" SYS:Utilities/Viewtek [] ITEM "Make Cat" WBTF RUN Rx PRG:Pix/CatMake.rexx Dir [:] ITEM "Show JPEG Comment" SHELL WIN "CON:////Show JPEG Comment/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" PRG:Pix/JPEG/ReadJPEGComment [];Echo "---- End ----" ITEM "Set JPEG Comment" SHELL WIN "CON:////Set JPEG Comment/AUTO/CLOSE/WAIT/SCREEN $BrowserIIScreenName" Set N [:];Echo "Type comment, terminate by ^\\";Echo "Temporary file is $N.$process";PRG:Pix/JPEG/WriteJPEGComment "$N" "$N.$process";Delete "$N";Rename "$N.$process" "$N" SUBMENU "Icon" ITEM "ShowIcon" KEY "shift i" KEYTEXT "S-I" WBTF RUN SYS:Utilities/ShowI [] ITEM "Show Bruch Icon" KEY "alt i" KEYTEXT "Alt-I" SHELL set echo on; copy [] T:NIB$Process_.info;PRG:Pix/NewIcon/NewIconToBrush FROM T:NIB$Process_.info DestPath T:;ViewTek T:NIB$Process_U.iff;Delete T:NIB$Process_#? ITEM "Put brush" SHELL PRG:Pix/NewIcon/InjectBrush [] FORCE ITEM "To 3Bit" RUN PRG:Pix/DoIcon [] STRIPDEPTH 3 ITEM "* To 3Bit" RUN For *.info DO PRG:Pix/DoIcon %% STRIPDEPTH 3 ITEM "To 8Bit" RUN PRG:Pix/DoIcon [] DEPTHTO8 ITEM "To Project" RUN PRG:Pix/DoIcon [] NewType=Project ITEM "To Tool" RUN PRG:Pix/DoIcon [] NewType=Tool ITEM "3bit To NI dot" RUN PRG:Pix/NewIcon/mwb2ni [] DOT ITEM "8bit To NI dot" RUN PRG:Pix/NewIcon/mwb2ni [] OFFSET=254 DOT ENDSUBMENU ITEM "To GIF" SHELL STACK 8192 WIN "CON:0/11/340/150/Glimpsing.../SCREEN ADPro" For [] Deep=1 ShowFileType FullPathArgs DO Rx ADProScripts:ToGIF.adpro "%%" ITEM "Flip" SHELL PRG:Pix/Flip [] ITEM "Flip DISK 25" SHELL PRG:Pix/Flip [] DISK FPS 25 SUBMENU "XAnim" ITEM "CF4" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +v [] ITEM "CF4 NoSound" SHELL STACK 25000 PRG:Pix/XAnim +CF4 +v -Ae [] ITEM "CF4 disk" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +f +v [] ITEM "CF4 NoSound disk" SHELL STACK 25000 PRG:Pix/XAnim +Cs10 +CF4 +f +v -Ae [] ITEM "Gray" SHELL STACK 25000 PRG:Pix/XAnim +Cg +v [] ITEM "Gray NoSound disk " SHELL STACK 25000 PRG:Pix/XAnim +Cg +v -Ae +f [] ENDSUBMENU ITEM "GIF2PNG" SHELL PRI -1 PRG:Pix/Gif2PNG [];BD RESCAN MENU "Snd" ITEM Play RUN C:PlayOnDisk [] ITEM Play8SVX RUN C:Play8SVX [] ITEM {&} OmniPlay RUN C:OPlay -b 50000 -s 0 [] ITEM "Play Mod" RUN Rx Rexx:PlayMod.rexx [:] ITEM {S} DeliTracker RUN Rx Rexx:PlayMod.rexx [:] # ITEM DeliTracker RUN Sys:Utilities/DeliTracker/DeliTracker MODULE [] PLAYING YES ITEM "Play ADPCM" SHELL WIN "CON:0/11/440/40/Playing..." PRG:Sound/PlayADPCM [:] FILTER MENU "File" ITEM {`} "Clip Selection" RUN MagicClip [] ITEM "Clip Sel path" KEY "shift `" KEYTEXT "S-`" RUN MagicClip PUT [:] ITEM "Clip Comment" RUN MagicClip PUT `List [:] LFORMAT "%c"` ITEM "Clip Contents" RUN MagicClip FILE [] ITEM "AZap" RUN SYS:Utilities/AZap [] ITEM "FileX" RUN PRG:Utils/FileX [] ITEM "ChunkIt" WBTF WB PRG:FileDisk/ChunkIt [] ITEM "FileFind" SHELL Set N `RequestFile Title "Enter Object to search" REJECTPATTERN #?`;FileFind $N ITEM "Asc" WBTF SHELL WIN "CON:0/10/640/246/AscDumping.../CLOSE/WAIT" Asc [] ITEM "AscII" WBTF SHELL WIN "CON:0/10/640/246/AscDumping.../CLOSE/WAIT" String [] ITEM "HType" WBTF SHELL WIN "CON:0/10/640/246/Hex Dumping.../CLOSE/WAIT" Type [] opt H ITEM "Sizer" WBTF SHELL WIN "CON:0/10/640/246/Size:/CLOSE/WAIT" C:Sizer [] ITEM "Blocks" WBTF WB C:Blocks ITEM "Cmp" WBTF SHELL Cmp [] ALL;Echo "Compare finished." SUBMENU "Crunch" ITEM PPCrunchExe SHELL Rx Rexx:PPCrunchExe.pprx [] ITEM PPCrunch WBTF SHELL Crunch EFFICIENCY 5 [] NOLED ITEM "PPCrunch *" WBTF SHELL Crunch EFFICIENCY 5 #? NOLED ITEM PPDeCrunch WBTF SHELL DeCrunch [] ITEM FImp WBTF SHELL FImp [] MODE11 VERBOSE ITEM "FImp *" SHELL FImp #? MODE11 VERBOSE ENDSUBMENU ITEM "Version" WBTF SHELL Version [] FILE FULL ITEM "FullDir dir" RUN Set lDir [];Set blDir `BaseName $lDir`;Ls >>Ram:$blDir.Dir -a -l -c -T -R $blDir;BD RAM: RESCAN ITEM "FullDir" RUN Ls >>Ram:.Dir -a -l -c -T -R [];BD RAM: RESCAN ITEM ReMap WBTF SHELL SYS:Tools/MapIcon ITEM Verify WBTF SHELL ArpCopy ~(...Dead|BadTrack|bad.blocks) NIL: ALL ITEM "Installer" WBTF WB PRG:Utils/Installer [] ITEM "ILBM2Icon" WBTF SHELL Set File [];PRG:Utils/ZapIcon $File $File ITEM "TexInfo2AG" SHELL PRG:Utils/MakeInfo --amiga [] SUBMENU "UU" ITEM "Encode" WBTF SHELL Set File [];Set BN `BaseName $File`;Set DestDir "`Cd`";Set DestFile `TackOn PATH "$DestDir" FILE "$BN"`;PRG:Utils/s_encode -e "$File" "$DestFile.uu";BD RESCAN ITEM "Decode" WBTF SHELL PRG:Utils/s_encode -df [];BD RESCAN ENDSUBMENU MENU "CLI/Sys" ITEM {.} CD RUN Assign CD: "" ITEM Shell WBTF RUN NewShell "CON:0/14/640/100/Amiga Shell/AUTO/CLOSE" ITEM "Shell B2" RUN NewShell "CON:0/14/640/100/Amiga Shell/AUTO/CLOSE/SCREEN $BrowserIIScreenName" ITEM MoveSys RUN MoveSys ITEM Execute WBTF SHELL Execute [] ; WaitReturn ITEM {B} RunBack RUN RunBack [] ITEM LoadLib RUN LoadLib [:] BARLABEL SUBMENU "Assign" ITEM "[] ADD" RUN Set Dir []; Assign $Dir: $Dir ADD ITEM "Libs: ADD" RUN Assign Libs: [] ADD ITEM "Fonts: ADD" RUN Assign Fonts: [] ADD BARLABEL ITEM "Vol" RUN Set Dir []; Assign $Dir: $Dir ENDSUBMENU BARLABEL ITEM "Own" RUN SRC:MultiUser/C/SetOwner [] ALL ITEM "Private" RUN SRC:MultiUser/C/MProtect [] RWD GROUP "" OTHER "" BARLABEL ITEM "true e" SHELL For #? PosProtect=e Type "~#Impl Exe,~#Exe,~#PP40 Exe,~#PP30 Exe,~#PP Exe,~#PPLoadSeg" Deep=1 SFT ALL Verbose=On DO Protect "%%" -e MENU "Dev" ITEM Free RUN C:Free [] ITEM DFree WBTF SHELL DFree [] ITEM DiskChange RUN DiskChange [] ITEM Install RUN Install [] SUBMENU QFormat # I assume that the CD of browser are correct ITEM NFS RUN WIN "CON:0/10/510/54/Format/SCREEN=BrowserII" System/Format DRIVE [] NAME NFS QUICK NOICONS ITEM FFS RUN WIN "CON:0/10/510/54/Format FFS" System/Format DRIVE [] NAME FFS QUICK NOICONS FFS ENDSUBMENU SUBMENU Format ITEM "NFS" RUN WIN "CON:0/10/510/54/Format Full NFS" System/Format DRIVE [] NAME NFS NOICONS ITEM "FFS" RUN WIN "CON:0/10/510/54/Format Full FFS" System/Format DRIVE [] NAME FFS NOICONS FFS ENDSUBMENU ITEM "?Format" WB Sys:System/Format [] ITEM DeadAlloc WBTF SHELL Prg:Utils/DeadAlloc [] SUBMENU "Info" ITEM "Info" WBTF SHELL WIN "CON:0/10/600/150/Dev Info/CLOSE/WAIT" Info DATES ITEM "DSD" RUN PRG:Utils/Diskutils/DiskStorageDeluxe ITEM "VirusX" WB SYS:VirusX ITEM "TrackDisplay" RUN PRG:Utils/DiskUtils/TrackDisplay ENDSUBMENU ITEM "Lock ON" RUN c:Lock ON [] ITEM "Lock OFF" RUN c:Lock OFF [] MENU "Pack" ITEM {Z} "Extract" WBTF SHELL STACK 8192 WIN "CON:/15//100/Extract..." S:Macro/Extract [];BD RESCAN SUBMENU "Zoo" ITEM "Add *" WBTF SHELL PRG:Utils/Arc/Zoo/Zoo aP PRG:LHArchive.zoo []* ITEM List WBTF SHELL PRG:Utils/Arc/Zoo/Zoo -list [] ITEM eXctract WBTF SHELL PRG:Utils/Arc/Zoo/Zoo x// ENDSUBMENU SUBMENU "LHArc" ITEM "Set DestDir" WBTF RUN SetEnv LHArcDestDir `RequestFile DRAWER $LHArcDestDir TITLE "Dir destination" DRAWERSONLY NOICONS` ;this way the Dir was remember and you can quicly select last DestDir ITEM {é} "Add Dir" WBTF SHELL STACK 8192 WIN "CON:/15//100/LhArc...(dir)" PRI -1 Set DestDir `CD`;For [] SFT FullPathArgs DO Execute S:Macro/LHArcDir "%%" "$DestDir" "#?";BD RESCAN ITEM "Add Dir Src" WBTF SHELL STACK 8192 WIN "CON:/15//100/LhArc...(dir src)" PRI -1 Set DestDir `CD`;For [] SFT FullPathArgs DO Execute S:Macro/LHArcDir "%%" "$DestDir" "~(#?.(o|bak|gst|lst|map))";BD RESCAN # ITEM "Add Vol" WBTF SHELL Execute S:Macro/LHArcVol [];BD RESCAN ITEM "Add Vol" WBTF SHELL $LHArc $LHAOpts a Volume.lha [] * ITEM "Add *" WBTF SHELL $LhArc a LHArchive.lzh []*;Say "Compression finished";BD RESCAN ITEM "List" WBTF SHELL SHELL WIN "CON:/15/640/200/LhArc...(list)/CLOSE/WAIT" $LhArc $LHAOpts v [] ITEM "List Full" WBTF SHELL $LhArc $LHAOpts vv [] ITEM "Test" WBTF SHELL $LhArc $LHAOpts t [] ITEM "Test *" WBTF SHELL STACK 8192 For []#?.(LHA|LZH) ALL SFT FullPathArgs DO $LhArc $LHAOpts t "%%" ITEM SFX WBTF SHELL Set File [];PRG:Utils/Arc/LHArc/LhASFX $File `BaseName $File`;BD RESCAN ITEM UnBackUp WBTF SHELL $LhArc $LHAOpts -QvDF0 -Va x [];BD RESCAN ENDSUBMENU SUBMENU "DMS" ITEM "Pack" WBTF SHELL WIN "CON:/15/450/250/DMS Packing.../CLOSE/WAIT" PRI -1 Set Vol [];Set VN `VolName "$Vol"`;CD;PRG:Utils/Arc/DMS <NIL: Read "$VN.DMS" FROM "$Vol" NOVAL DEVFIX CMODE BEST;PRG:Pack/DMS/DMSCheck "$VN.DMS";BD RESCAN ITEM "RePack" WBTF SHELL PRI -1 Set N [];PRG:Utils/Arc/DMS Repack "$N" TO "$N.repacked" CMODE BEST;BD RESCAN ITEM "Test" WBTF SHELL Set N [];PRG:Utils/Arc/DMS TEST "$N" ITEM "Check" WBTF SHELL PRG:Pack/DMS/DMSCheck [] ITEM "Info" WBTF SHELL PRG:Utils/Arc/DMS VIEW [] FULL ITEM "Make SFX" WBTF SHELL PRG:Utils/Arc/DMS SFX [];BD RESCAN ITEM "UnPack DF0:" WBTF SHELL PRG:Utils/Arc/DMS Write [] TO DF0: NOPAUSE;DiskChange DF0:;BD SCANDEVS ITEM "UnPack DF2:" WBTF SHELL PRG:Utils/Arc/DMS Write <NIL: [] TO DF2: NOPAUSE;DiskChange DF2:;BD SCANDEVS ITEM "DM0 []" SHELL Set N [:];PRG:Utils/Arc/DMSDiskChange 0 "$N";Echo "Done";BD SCANDEVS ENDSUBMENU SUBMENU "PackDev" #ITEM "Pack RAKE" WBTF SHELL PRI -1 Set Echo ON;Set Dev [:];Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN #ITEM "Pack SHRI" WBTF SHELL PRI -1 Set Vol [];Set VN `VolName $Vol`;PRG:FileDisk/PackDev READ FS $Vol FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN #ITEM "Pack FAST" WBTF SHELL PRI -1 Set Vol [];Set VN `VolName $Vol`;PRG:FileDisk/PackDev READ FS $Vol FILE $VN PACK=FAST NOCONFIRM;BD RESCAN ITEM "Pack RAKE DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN ITEM "Pack RAKE DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=RAKE.100 NOCONFIRM;BD RESCAN ITEM "Pack SHRI DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN ITEM "Pack SHRI DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=SHRI.100 NOCONFIRM;BD RESCAN ITEM "Pack FAST DF0" WBTF SHELL PRI -1 Set Dev "DF0:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=FAST NOCONFIRM;BD RESCAN ITEM "Pack FAST DF2" WBTF SHELL PRI -1 Set Dev "DF2:";Set VN `VolName $Dev`;PRG:FileDisk/PackDev READ FS $Dev FILE $VN PACK=FAST NOCONFIRM;BD RESCAN ITEM "UnPack DF0:" WBTF SHELL PRI -1 PRG:FileDisk/PackDev <NIL: WRITE FS DF0: FILE [] NOCONFIRM;BD SCANDEVS ITEM "UnPack DF2:" WBTF SHELL PRI -1 PRG:FileDisk/PackDev <NIL: WRITE FS DF2: FILE [] NOCONFIRM;BD SCANDEVS ENDSUBMENU SUBMENU "Tar" ITEM "Add Files" WBTF SHELL Set Echo ON;Set FullName [];Set N `BaseName "$FullName"`;PRG:Utils/GNUTar -v -R -S -b 1000 -c -f "$N.tar" "$FullName";BD RESCAN ITEM "Add To DF0" WBTF SHELL Set Name0 [];PRG:Utils/GNUTar +verbose +volume "$Name0" +multi-volume +block-size 15 +record-number +create +file DEV:trackdisk.device/0 "$Name0";Echo "End" ITEM "Add To MFM" WBTF SHELL Set Name0 [];PRG:Utils/GNUTar +verbose +volume "$Name0" +multi-volume +block-size 15 +record-number +create +file DEV:mfm.device/0 "$Name0";Echo "End" # ITEM "Add Files" WBTF SHELL Set FullName [];Set Name0 `BaseName $FullName`;echo $Name0;PRG:Utils/GNUTar -f "$Name0.tar" -cv $FullName;BD RESCAN #ok>PRG:Utils/GNUTar -M -R -B -v +sparse +volume tartry -b 15 -c -f DEV:mfm.device/0 t ITEM "Extract" WBTF SHELL PRG:Utils/GNUTar -v -R -b 1000 -x -f [];BD RESCAN ITEM "Extract From DF0" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 15 -x -f DEV:trackdisk.device/0;;Echo "End";BD RESCAN ITEM "Extract From MFM" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 15 -x -f DEV:mfm.device/0 +preserve-permissions;;Echo "End";BD RESCAN ITEM "List" WBTF SHELL PRG:Utils/GNUTar -v -R -b 1000 -t -f [];Echo "End" ITEM "List .tgz" WBTF SHELL Set Echo ON;Set PipeFile TGZ.$process;RUN PRG:Utils/GZip >PIPE:$PipeFile -c -d [];PRG:Utils/GNUTar -v -R -b 1000 -t -f PIPE:PipeFile;Echo "End" ITEM "List MFM" WBTF SHELL PRG:Utils/GNUTar -v -M -R -b 30 -t -f DEV:mfm.device/0;Echo "End" BARLABEL ENDSUBMENU SUBMENU "GZip ITEM "Pack" WBTF SHELL PRI -1 STACK 20000 PRG:Utils/GZip --verbose --recursive -9 [];BD RESCAN ITEM "UnPack" SHELL PRI -1 STACK 20000 PRG:Utils/GZip --verbose --recursive --decompress [];BD RESCAN ITEM "List" WBTF SHELL STACK 20000 PRG:Utils/GZip --verbose --list [] ENDSUBMENU SUBMENU "xPK" ITEM "xPack TO .xPK NUKE" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD NUKE.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN ITEM "xPack TO .xPK RAKE" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD RAKE.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN # ITEM "xPack TO .xPK RAKE" WBTF SHELL PRI -1 Set N [];PRG:Pack/xPK/xPackIt "$N" "$N.xPK" METHOD RAKE Efficiency 100;BD RESCAN ITEM "xPack TO .xPK SQSH" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD SQSH.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN ITEM "xPack TO .xPK SHRI" WBTF SHELL PRI -1 PRG:Pack/xPK/xPack [] METHOD SHRI.100 MINSIZE 1024 SUFFIX .xPK ALL;BD RESCAN ITEM "xPack Un" WBTF SHELL PRG:Pack/xPK/xPackIt [] "`Cd`" UnPack;BD RESCAN BARLABEL ITEM "xDir" WBTF SHELL WIN "CON:/15//600/xDir.../CLOSE/WAIT" PRG:Pack/xPK/xDir [] ITEM "xLoadSeg" RUN PRG:Pack/xPK/xLoadSeg ITEM "xQuery" SHELL WIN "CON:/15//600/x Packer:/CLOSE/WAIT" PRG:Pack/xPK/xQuery ITEM "xDrop" WB PRG:Pack/xPK/xDrop ENDSUBMENU SUBMENU "xFD" ITEM "SetUp" RUN Assign Libs: PRG:Pack/Xfd/Libs ADD ITEM "Decrunch" WBTF SHELL PRI -1 PRG:Pack/Xfd/xfdDecrunch [] ITEM "List" WBTF SHELL PRG:Pack/Xfd/xfdList ENDSUBMENU ITEM UnZip WBTF SHELL PRG:Utils/UnZip [] -d "`CD`";BD RESCAN SUBMENU "LZX" ITEM "Add" SHELL PRI -1 Set Echo on;Set N [];Set BN `BaseName "$N"`;Set DestDir `Cd`;Cd "$N";Cd /; PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 a `Tackon "$DestDir" $BN` $BN;CD $DestDir;BD RESCAN ITEM "Extract" SHELL PRI -1 PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 x [] * ITEM "List" SHELL PRI -1 PRG:Pack/Arc/lzx -a -e -k -r -y95 -3 l [] ENDSUBMENU ITEM "To ADCPM3" SHELL PRI -1 Set Echo ON;Set N [];Set BN `BaseName "$N"`; PRG:Sound/X2ADPCM FROM "$N" TO "$BN.ADPCM3" BITS=3;BD RESCAN MENU "BrowserDir" ITEM ":.DelDir" RUN BD :.DelDir ITEM "LastDir" RUN BD <Env:TheDir >NIL: ? ITEM "PRG:TT" RUN BD PRG:TT ITEM "PRG:Fish" RUN BD PRG:Fish ITEM "Utilities" RUN BD Sys:Utilities ITEM "DF0: DF1:" RUN BD DF0: DF1: ITEM ":Trashcan" RUN BD :Trashcan ITEM "Mod" RUN BD Vrack:Sound/Music/Mod/ ITEM "CD0:Aminet Mod" RUN BD CD0:Aminet/Mods/ ITEM "Imagine" RUN BD PRG:Pix/Imagine/ ITEM "Pictures" RUN BD Pack:Pictures/ ITEM "Games" RUN BD Vrack:Games/ ITEM "Aminet" RUN BD Vrack:Arc/Aminet/ ITEM "CD0:Aminet" RUN BD CD0:Aminet/ MENU "C" ITEM "AutoDocs" RUN BD Vrack:AutoDocs ITEM "Indent" WBTF SHELL GOD:Indent -bap -bad -bl -bli0 -nce -cli0 -ss -npcs -npsl -bs -di1 -nbc -i8 -ci8 -lp -ts8 -ip8 -lps -ncs -nfca -v [] # ITEM "Indent" WBTF SHELL GOD:Indent -bap -bad -bl -bli8 -nce -cli8 -ss -npcs -npsl -bs -di1 -nbc -i8 -ci8 -lp -ts8 -ip8 -lps -ncs -nfca -v [] ITEM "MakeInfo" WBTF SHELL GOD:MakeInfo --amiga [] ITEM "KSDoc" RUN BD Vrack:Info/Devloppement/AutoDocs ITEM "Diff" WBTF SHELL Diff -b32 -w [] ITEM "guru" RUN BD RAM:DontExist ITEM "b" RUN PRI 1 NewShell MENU "Misc" ITEM "Link Aminet4" RUN Set N []; Echo >>"$N-Aminet4" "Aminet4, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link Aminet5" RUN Set N []; Echo >>"$N-Aminet5" "Aminet5, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link Aminet6" RUN Set N []; Echo >>"$N-Aminet6" "Aminet6, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link AminetU" RUN Set N []; Echo >>"$N-AminetU" "AminetU, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link AminetF" RUN Set N []; Echo >>"$N-AminetF" "AminetF, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link VBSArc1" RUN Set N []; Echo >>"$N-VBSArc1" "VBSArc1 NDP, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N" ITEM "Link VBSArc2" RUN Set N []; Echo >>"$N-VBSArc2" "VBSArc2 NDP, " "`list "$N" LFORMAT "%s %l %b %a %d %t %l"`";Delete "$N"