Mail to--> Fredrik Ismyren

;F. Ismyrens Startup.DM (Sat 98-03-14) Contact me: fredrik.ismyren@usa.net
Reset
Pens 0 1 1 2 1 3 1 0 3 6 7 3
NewScreen ID=32768 D=3 W=640 H=256
Color 635 002 EDD 236 FFF 810 BC0 063
Font den.font 6

AddMenu Project, Display Format, D, SetFormat
AddMenu Project, Palette, Color
AddMenu Project, Change Font, font
AddMenu Project, SaveConfig, SaveConfig
AddMenu Project, Save Cmd Window, SaveCmdWin
AddMenu Project, EDIT Startup.DM, S, Extern Sys:c2/CEd S:Startup.DM
AddMenu Project, EDIT User-startup, extern sys:c2/ced s:user-startup
AddMenu Project, EDIT Startup-sequence, extern sys:c2/ced s:startup-sequence
AddMenu Project, DINST, extern sys:c2/dinst
AddMenu Project, RECONFIG, R, batch S:Startup.DM
AddMenu Project, Priority, Priority
AddMenu Project, Read DM Manual, extern run multiview sys:c2/diskmaster/dm2.guide
AddMenu Project, About, About
AddMenu Project, Quit DM, Q, Quit

AddMenu Tools, Enter Command.., Extern
AddMenu Tools, RUN, extern run %s
AddMenu Tools, ,
AddMenu Tools, New Window, N, OpenWindow 240 40 260 120
AddMenu Tools, New Cmd Window, C, OpenWindow 240 40 260 120 CMD;AddCmd
AddMenu Tools, Swap S<->D, Swap
AddMenu Tools, Parents, Extern run Sys:c2/DiskMaster/rexx/Parents.dmrx %a %p
AddMenu Tools, ,
AddMenu Tools, NEWSHELL, scrback; extern NewShell

AddMenu SortBy, NAME, sort N
AddMenu SortBy, DATE, sort D
AddMenu SortBy, SIZE, sort S
AddMenu SortBy, COMMENT, sort C
AddMenu SortBy, ,
AddMenu SortBy, RESET, sort N G

AddMenu Control, Lock as Source, Lock S
AddMenu Control, Lock as Dest, Lock D
AddMenu Control, ,
AddMenu Control, UnLock, UnLock
AddMenu Control, UnLock all, UnLock All

AddMenu Archivers, LHA Add, StdIO "CON:0/10/640/100/LHA Add/CLOSE";Archive "Lha <* -r -x a";StdIO CLOSE
AddMenu Archivers, LZX Add, StdIO "CON:0/10/640/100/LZX Add/CLOSE";Archive "Lzx <* -r -x a";StdIO CLOSE
AddMenu Archivers, ZIP Add, StdIO "CON:0/10/640/100/ZIP Add/CLOSE";Archive "Sys:c/Zip <* -r";StdIO CLOSE
AddMenu Archivers, ZOO Add, StdIO "CON:0/10/640/100/ZOO Add/CLOSE";Archive "Sys:c2/Zoo <* a";StdIO CLOSE
AddMenu Archivers, , 
AddMenu Archivers, ARC List, StdIO "CON:0/10/640/160/ARC List/CLOSE";Extern Sys:c2/pkxArc -v %s;Wait;StdIO CLOSE
AddMenu Archivers, ZOO List, StdIO "CON:0/10/640/160/ZOO List/CLOSE";Extern Sys:c2/Zoo V %s;Wait;StdIO CLOSE
AddMenu Archivers, ARJ List, StdIO "CON:0/10/640/160/ARJ List/CLOSE";Extern Sys:c2/UnArj l %s;Wait;StdIO CLOSE
AddMenu Archivers, , 
AddMenu Archivers, LHA/LZX Test, StdIO "CON:0/10/640/160/LHA Test/CLOSE";Extern lzx t %s;wait;StdIO Close
AddMenu Archivers, ZIP     Test, StdIO "CON:0/10/640/160/ZIP Test/CLOSE";Extern unzip -t %s;wait;StdIO Close
AddMenu Archivers, ARJ     Test, StdIO "CON:0/10/640/160/ARJ Test/CLOSE";Extern c2:unarj t %s;wait;StdIO Close

AddMenu Archivers 2, LHA/LZX X >RAM: (x), StdIO "CON:0/10/640/200/LHA/LZX Extract/CLOSE";Extern lzx <* -M x %s RAM:;StdIO CLOSE; scrfront
AddMenu Archivers 2, LHA/LZX X, StdIO "CON:0/10/640/200/LHA/LZX Extract/CLOSE";Extern lzx <* x %s;StdIO CLOSE; scrfront
AddMenu Archivers 2, LHA/LZX X >Dest, StdIO "CON:0/10/640/200/LHA/LZX Extract/CLOSE";Extern CD %d \lzx <* x %s;StdIO CLOSE; scrfront
AddMenu Archivers 2, LHA/LZX X >Request, StdIO "CON:0/10/640/100/LHA/LZX Extract/CLOSE"; Confirm "Enter dest path" Continue Cancel %p; Extern CD %r \lzx <* x %s; StdIO CLOSE
AddMenu Archivers 2, ,
AddMenu Archivers 2, ARC X, StdIO "CON:0/10/640/100/ARC Extract/CLOSE";Extern sys:c2/pkxArc <* x %s;StdIO CLOSE
AddMenu Archivers 2, ARC X >Dest, StdIO "CON:0/10/640/100/ARC Extract/CLOSE";Extern CD %d \Sys:c2/pkxArc <* x %s;StdIO CLOSE
AddMenu Archivers 2, ,
AddMenu Archivers 2, ZIP X, StdIO "CON:0/10/640/200/ZIP Extract/CLOSE";Extern Unzip <* %s;StdIO CLOSE; scrfront
AddMenu Archivers 2, ZIP X >Dest, StdIO "CON:0/10/640/200/ZIP Extract/CLOSE";Extern CD %d \UnZip <* %s;StdIO CLOSE; scrfront 
AddMenu Archivers 2, ,
AddMenu Archivers 2, ZOO X, StdIO "CON:0/10/640/100/ZOO Extract/CLOSE";Extern Sys:c2/Zoo x <*// %s;StdIO CLOSE
AddMenu Archivers 2, ZOO X >Dest, StdIO "CON:0/10/640/100/ZOO Extract/CLOSE";Extern CD %d \Sys:c2/Zoo x <* %s;StdIO CLOSE
AddMenu Archivers 2, ,
AddMenu Archivers 2, ARJ X >Dest, StdIO "CON:0/10/640/200/ARJ Extract/CLOSE";Extern CD %d \Sys:c2/UnArj <* x %s;StdIO CLOSE; scrfront 

AddMenu DMS/Crunchers, DMS Read..DF0:, StdIO "CON:0/10/640/200/DMS Read/CLOSE"; confirm "Path/Name:" "HIT IT" "CANCEL" %p; extern run dms read %r from df0: noval nozero;wait;StdIO CLOSE
AddMenu DMS/Crunchers, DMS Read..DF1:, StdIO "CON:0/10/640/200/DMS Read/CLOSE"; confirm "Path/Name:" "HIT IT" "CANCEL" %p; extern run dms read %r from df1: noval nozero;wait;StdIO CLOSE
AddMenu DMS/Crunchers, DMS Read..RAD:, StdIO "CON:0/10/640/200/DMS Read/CLOSE"; confirm "Path/Name:" "HIT IT" "CANCEL" %p; extern run dms read %r from rad: noval nozero;wait;StdIO CLOSE
AddMenu DMS/Crunchers, DMS Write.DEV: (w), StdIO "CON:0/10/640/200/DMS Write NoValidate/CLOSE"; confirm "DEV:" "HIT IT" "CANCEL" DF1:; extern run dms write %s to %r noval;wait;extern c:DiskChange RAD:;extern c:DiskChange RAD2:;StdIO CLOSE
AddMenu DMS/Crunchers, DMS Test, StdIO "CON:0/10/640/200/DMS Test/CLOSE";Extern c:mapus -s %s; Wait;StdIO CLOSE
AddMenu DMS/Crunchers, ,
AddMenu DMS/Crunchers, ADF Read..DF0:, StdIO "CON:0/10/640/100/ADF Read/CLOSE"; confirm "Path/Name:" "HIT IT" "CANCEL".adf; extern TransADF-Lite drive df0: file %r;wait;StdIO CLOSE
AddMenu DMS/Crunchers, ADF Read..DF1:, StdIO "CON:0/10/640/100/ADF Read/CLOSE"; confirm "Path/Name:" "HIT IT" "CANCEL".adf; extern TransADF-Lite drive df1: file %r;wait;StdIO CLOSE
AddMenu DMS/Crunchers, ADF Write.DF:, StdIO "CON:0/10/640/100/ADF Write/CLOSE"; confirm "DiskDrive:" "HIT IT" "CANCEL"DF1:; extern TransADF-Lite drive %r file %s write;wait;StdIO CLOSE
AddMenu DMS/Crunchers, ADF Write.RAD:, StdIO "CON:0/10/640/100/ADF Write/CLOSE"; extern c3:adf2disk %s ramdrive.device 0;extern c:DiskChange RAD:;StdIO CLOSE
AddMenu DMS/Crunchers, ADF Write.RAD2:, StdIO "CON:0/10/640/100/ADF Write/CLOSE"; extern c3:adf2disk %s ramdrive.device 1;extern c:DiskChange RAD2:;StdIO CLOSE
AddMenu DMS/Crunchers, ,
AddMenu DMS/Crunchers, UnWarp DF0:, StdIO "CON:0/10/650/190/Extract Window/CLOSE";Extern run Sys:c2/Warp write %s;StdIO CLOSE;scrfront
AddMenu DMS/Crunchers, ,
AddMenu DMS/Crunchers, RAD:  ON/OFF   (o), extern sys:c2/diskmaster/scripts/radmount.script
AddMenu DMS/Crunchers, RAD2: ON/OFF, extern sys:c2/diskmaster/scripts/radmount2.script
AddMenu DMS/Crunchers, FF0: ON, extern mount FF0:
AddMenu DMS/Crunchers, VIRCHECK ARCS (1), StdIO "CON:0/60/680/200/VirusChecking Archives/CLOSE"single;extern sys:rexxc/rx Rexx:Checkarcs.rexx %s%s;wait;StdIo CLOSE
AddMenu DMS/Crunchers, ,
AddMenu DMS/Crunchers, XFD Decrunch >Dest, StdIO "CON:0/10/640/200/XFD Decrunch/CLOSE";extern sys:c2/xfd/xfdDecrunch %s %d;wait;StdIO CLOSE
AddMenu DMS/Crunchers, XFD List, StdIO "CON:0/10/640/200/XFD List/CLOSE";extern sys:c2/xfd/xfdList;wait;StdIO CLOSE
AddMenu DMS/Crunchers, XFDLibInfo, StdIO "CON:0/10/640/200/XFDLibInfo/CLOSE";extern sys:c2/xfd/xfdLibInfo;wait;StdIO CLOSE

AddMenu Utils, VW-Save! On, extern sys:c2/VW-Save!
AddMenu Utils, VW-Save! Off, extern sys:c2/VW-Save! off
AddMenu Utils, Lock   HD, extern sys:c2/diskmaster/scripts/lockON.script
AddMenu Utils, Unlock HD, extern sys:c2/diskmaster/scripts/lockOFF.script
AddMenu Utils, DosTrace, extern run sys:c2/dt
AddMenu Utils, SnoopDos, extern run sys:c2/snoopdos
AddMenu Utils, --------------, 
AddMenu Utils, Setclock, extern sys:c/setclock load
AddMenu Utils, CrackPatch, extern s=8192 run sys:CrackPatch/CrackPatch
AddMenu Utils, PC DISKS ON, extern sys:c2/diskmaster/scripts/crossdos.script
AddMenu Utils, MuchMore, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 Sys:c2/Muchmore
AddMenu Utils, MultiView (A), scrback; extern run multiview %s; scrfront
AddMenu Utils, SysSpeed, extern run sys:c2/sysspeed/sysspeed
AddMenu Utils, Backup Various, extern c3:fback ram: ram: cfg=s:myback.cfg
AddMenu Utils, PGP -cw, StdIO "CON:0/10/640/237/PGP Encrypt with IDEA/CLOSE";extern sys:pgp/pgp -cw %s;StdIO CLOSE
AddMenu Utils, Encryptor, scrback; extern run sys:c2/encryptor
AddMenu Utils, MIME Decode, extern c3:Base64Coders/68020+/Base64Decode %s USEMINLEN AUTONAME
AddMenu Utils, MIME Encode, Confirm "Dest File?" GO! Abort! RAM:;extern c3:Base64Coders/68020+/Base64Encode %s %r
AddMenu Utils, SEARCH Guide, scrback;extern c2:lsags %s;scrfront
AddMenu Utils, LOCATOR, scrback; extern run Sys:c2/Locator

Button "parent"
SetFormat "NS T C DMY A"
BarFormat "DM%V  Chip:%C   Fast:%F   Total:%P   %W %D-%M-%Y  %T"
TitleFormat "%B/%F %I/%C"

OpenWindow 273  10 102 246 CMD

AddCmd Root   (.), 10, Root
AddCmd Parent (-), 10, Parent
AddCmd All    (a), 20, Select *
AddCmd Clear  (z), 20, Deselect *
AddCmd SWIPE  (`), 20, extern c3:swipe/swipe swiperam quiet
AddCmd Select, 20, Select
AddCmd DSelect, 20, Deselect
AddCmd SwapSel, 20, swapsel
AddCmd NoDupes, 20, dupe
AddCmd Join, 20, Archive "C:Join TO"
AddCmd MAKEDIR(M), 23, MakeDir
AddCmd MakeIcon, 23, icon %s
AddCmd COPY   (c), 25, Copy %s %d
AddCmd CopyAS, 10, Copy %s %d RENAME
AddCmd MOVE   (m), 23, Move %s %d
AddCmd MoveAS, 10, Move %s %d RENAME
AddCmd RENAME (r), 23, Recurse OFF;Rename %s
AddCmd DELETE!(d), 25, Confirm "Delete file(s)?";Protect %s +D;Delete %s
AddCmd NUKE!, 23, Confirm "Nuke files?" "HIT IT" CANCEL;extern sys:pgp/pgp -w %s
AddCmd Protect, 20, Recurse OFF;Protect %s
AddCmd Comment, 20, Recurse OFF;Comment %s
AddCmd HTMLess, 20, extern c3:HTMLess/HTMLess -w -s -a %s
AddCmd SizeChk, 20, UnMark OFF;Check %s
AddCmd Read, 20, Read %s
AddCmd HexRead, 20, Read %s HEX
AddCmd CED    (e), 10, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 sys:c2/Ced
AddCmd GED, 10, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 ged
AddCmd PED, 10, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 sys:c2/Ped
AddCmd PPMore (p), 10, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 Sys:c2/PPMore
AddCmd Visage, 10, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 sys:utilities/visage center compact forever noas nobusy vcenter order random
;AddCmd ViewTek, 10, extern sys:c2/vt <* %s
AddCmd SnatchDz(v), 10, StdIO "CON:0/10/640/160/SnatchDiz/CLOSE";extern snatchdiz %s s;wait;StdIO CLOSE
;AddCmd Showdiz, 10, StdIO "CON:0/10/640/160/Showdiz/CLOSE";extern c2:sd %s;wait;StdIO CLOSE
AddCmd Fided, 20, scrback;extern s=9000 sys:c2/diskmaster/scripts/fided.script
AddCmd PC2Amiga, 20, Confirm "Convert?";extern sys:c2/pc2amiga %s
AddCmd VirusZ, 10, extern s=4096 sys:VirusZ/VirusZ

OpenWindow   0 116 276 140 

OpenWindow 354  10 286 246 

OpenWindow   0  10 277 106 Ram:

AddAutoCmd FORM????ACBM, extern s=6500 sys:utilities/visage center compact noas nobusy vcenter %s
AddAutoCmd FORM????8SVX, extern dsound -2 -f -b 60 %s
AddAutoCmd FORM????ILBM, extern s=6500 sys:utilities/visage bestmode %s
AddAutoCmd FORM????ANIM, extern s=6500 sys:utilities/visage center compact noas nobusy vcenter %s
AddAutoCmd ,*.mp3, extern run sys:c2/mpega/mpega.020 >NIL: -d 4 -q 1 -f 0 -m -p -n -t 30000 %s
AddAutoCmd ????AIFF, Extern run Sys:c2/hippoplayer/hip %s
AddAutoCmd ,*.WAV, Extern run Sys:c2/hippoplayer/hip %s
AddAutoCmd ,MOD.*, extern run Sys:c2/hippoplayer/hip %s
AddAutoCmd ,*.MOD, extern run Sys:c2/hippoplayer/hip %s
AddAutoCmd ?database, extern run multiview %s
AddAutoCmd ?hyperguide, view %s
AddAutoCmd GIF, extern s=6500 sys:utilities/visage bestmode %s
AddAutoCmd , extern s=6500 sys:utilities/visage center compact noas nobusy vcenter %s
AddAutoCmd dms!, StdIO "CON:0/10/640/200/DMS Test/CLOSE";Extern c:mapus -s %s;wait;StdIO CLOSE
AddAutoCmd ??-lh,StdIO "CON:0/10/640/160/LHA List/CLOSE";Extern lzx <* v %s;Wait;StdIO CLOSE
AddAutoCmd lzx,StdIO "CON:0/10/640/160/LZX List/CLOSE";Extern Lzx <* v %s;Wait;StdIO CLOSE
AddAutoCmd PK,StdIO "CON:0/10/640/160/ZIP List/CLOSE";Extern unzip <* -lv %s;Wait;StdIO CLOSE
AddAutoCmd `,StdIO "CON:0/10/640/160/ARJ List/CLOSE";Extern c2:unarj l %s;wait;StdIO Close
AddAutoCmd zoo,StdIO "CON:0/10/640/160/ZOO List/CLOSE";Extern Sys:c2/zoo <* V %s;Wait;StdIO CLOSE
AddAutoCmd arj,StdIO "CON:0/10/640/160/ARJ List/CLOSE";Extern Sys:c2/unarj <* l %s;Wait;StdIO CLOSE
AddAutoCmd arc,StdIO "CON:0/10/640/160/ARC List/CLOSE";Extern Sys:c2/pkxarc <* -v %s;Wait;StdIO CLOSE
AddAutoCmd ,*.pgp,StdIO "CON:0/10/640/237/View PGP/CLOSE"; Extern sys:pgp/pgp -m %s <*;StdIO CLOSE
AddAutoCmd ,*.html, extern s=30000 run sys:c3/morehtml/morehtml %s
AddAutoCmd , extern s=30000 run sys:c3/morehtml/morehtml %s
AddAutoCmd TEXT, Read %s
AddAutoCmd DEFAULT, Read %s hex
AddKeyCmd w, StdIO "CON:0/10/640/200/DMS Write NoValidate/CLOSE"; confirm "DEV:" "HIT IT" "CANCEL" DF1:; extern run dms write %s to %r noval;wait;extern c:DiskChange RAD:;StdIO CLOSE
AddKeyCmd c, copy %s %d
AddKeyCmd a, Select *
AddKeyCmd d, Confirm "Delete file(s)?";Protect %s +D;Delete %s
AddKeyCmd D, Confirm "Delete file(s)?";Protect %s +D;Delete %s
AddKeyCmd m, Move %s %d
AddKeyCmd x, StdIO "CON:0/10/640/200/LHA Extract/CLOSE";Extern lzx <* -M x %s RAM:;StdIO CLOSE; scrfront
AddKeyCmd X, StdIO "CON:0/10/640/200/LZX Extract/CLOSE";Extern Lzx <* x %s RAM:;StdIO CLOSE; scrfront
AddKeyCmd ., Root
AddKeyCmd -, Parent
AddKeyCmd z, DeSelect *
AddKeyCmd p, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 Sys:c2/PPMore
AddKeyCmd A, extern run multiview %s
AddKeyCmd e, REXX c2:diskmaster/rexx/DMExecOnMany.rexx 0 sys:c2/Ced
AddKeyCmd r, Recurse OFF;Rename %s
AddKeyCmd M, MakeDir
AddKeyCmd v, StdIO "CON:0/10/640/160/SnatchDiz/CLOSE";extern snatchdiz %s s;wait;StdIO CLOSE
AddKeyCmd 1, StdIO "CON:0/60/680/200/VirusChecking Archives/CLOSE"single;extern sys:rexxc/rx Rexx:Checkarcs.rexx %s%s;wait;StdIo CLOSE
AddKeyCmd o, extern sys:c2/diskmaster/scripts/radmount.script
AddKeyCmd `, extern c3:swipe/swipe swiperam quiet
AddKeyCmd [, StdIO "CON:0/10/640/200/ZIP Extract/CLOSE";Extern UnZip %s -dRAM:;StdIO CLOSE; scrfront
AddKeyCmd ], StdIO "CON:0/10/640/100/ADF Write/CLOSE"; extern c3:adf2disk %s ramdrive.device 0;extern c:DiskChange RAD:;StdIO CLOSE
AddKeyCmd +, Window Next
Expand ON