Amiga MA Magazine 1998 #7/amigamamagazinepolishissue1998.iso/www/alpha/dmscript.lha/Startup.DM

Text File | 1997-08-05 | 5KB | 118 lines

Reset
Pens 0 1 1 2 1 3 1 0 3
OpenScreen 2
Color 000 FF0 F0F 0FF
Font topaz/8

AddMenu Main, + Command, AddCmd
AddMenu Main, + Menu Item, AddMenu
AddMenu Main, + Auto Command, AddAutoCmd
AddMenu Main, + Key Command, AddKeyCmd
AddMenu Main, Edit Command, ChgCmd
AddMenu Main, Edit Format, F, SetFormat
AddMenu Main, Style, Color
AddMenu Main, PrintManager, SetPrinter
AddMenu Main, Save Prefs, S, SaveConfig
AddMenu Main, Save Cmd Window, SaveCmdWin
AddMenu Main, About, S, Extern c:say -p120 DiskMaster -p150 GOLD -p120 By Gareth Murfin
AddMenu Main, Quit, Q, Confirm "Are you sure you want to quit DiskMaster GOLD?" Yep Nope;Quit

AddMenu Utils, Old DM2 Cli, Extern
AddMenu Utils, New Font, Font
AddMenu Utils, Pattern, BackPattern %s P
AddMenu Utils, More Windows!, N, OpenWindow 240 40 260 120
AddMenu Utils, Load Cmd Window, C, OpenWindow 240 40 260 120 CMD;AddCmd
AddMenu Utils, Print Dir, Extern List >PRT: %s
AddMenu Utils, Play Mod, Play %s
AddMenu Utils, Run DM Script, Single;Batch %s
AddMenu Utils, Run Selected, Single;External run %s
AddMenu Utils, Swap S<->D, Swap
AddMenu Utils, EDiTxt, S, ScrBack;Extern C:ed %s;ScrFront
AddMenu Utils, TxtEDi, S, ScrBack;Extern C:ed new;ScrFront
AddMenu Utils, HeXEDi, S, ScrBack;Extern C:HeX new;ScrFront

AddMenu Crunching, Lha Add, StdIO "CON:0/12/640/100/Lha-ing file";Archive "Lha <* -r a";StdIO CLOSE
AddMenu Crunching, Zip Enc, StdIO "CON:0/12/640/100/Encrypting, Commenting & Zipping File";Archive "Zip <* -1 -e";StdIO CLOSE
AddMenu Crunching, Zip Encom, StdIO "CON:0/12/640/100/Encrypting, Commenting & Zipping File";Archive "Zip <* -c -1 -e";StdIO CLOSE
AddMenu Crunching, Zip Add, StdIO "CON:0/12/640/100/Zipping File";Archive "Zip <* -1";StdIO CLOSE
AddMenu Crunching, Lzx Add, StdIO "CON:0/12/640/100/Lzx-ing file";Archive "lzx <* -r a";StdIO CLOSE
AddMenu Crunching, Lha X >Dest, StdIO "CON:0/12/640/100/Uncrunching LhA";Extern CD %d \Lha <* x %s;StdIO CLOSE
AddMenu Crunching, Zip X >Dest, StdIO "CON:0/12/640/100/UnZiping file";Extern CD %d \unzip %s;StdIO CLOSE
AddMenu Crunching, Lzx X >Dest, StdIO "CON:0/12/640/100/Uncrunching LhA";Extern CD %d \LZX <* x %s;StdIO CLOSE

AddMenu Disk, Format, Format
AddMenu Disk, DiskCopy, DiskCopy
AddMenu Disk, Format DF0:, Confirm "Are you sure Bottom head?";Format DF0:
AddMenu Disk, Format DF1:, Format DF1: VERIFY "WorkDisk"
AddMenu Disk, Clear  DF0:, Format DF0: QUICK INSTALL VERIFY
AddMenu Disk, Copy DF0: DF0:, DiskCopy DF0: DF0:
AddMenu Disk, Copy DF0: DF1:, DiskCopy DF0: DF1:

AddMenu Extra's, Lock as Source, Lock S
AddMenu Extra's, Lock as Dest, Lock D
AddMenu Extra's, UnLock, UnLock
AddMenu Extra's, UnLock all, UnLock All
AddMenu Extra's, Expand ON, Expand ON
AddMenu Extra's, Expand OFF, Expand OFF
AddMenu Extra's, Sort by Name, SortBy Name
AddMenu Extra's, Sort by Size, SortBy Size
AddMenu Extra's, Sort by Date, SortBy Date
AddMenu Extra's, Stop Music, Play
AddMenu Extra's, Weird Mod, StdIO "CON:0/1/1/100/Playing weird format Mod or Med...";Extern CD %d \PLayer PLAY=%s NOWINDOW;StdIO CLOSE


AddMenu System, Ed =» Sequ, S, ScrBack;Extern Ed S:Startup-Sequence;ScrFront
AddMenu System, Ed =» User, S, ScrBack;Extern Ed S:User-Startup;ScrFront
AddMenu System, NewShell, S, ScrBack;Extern NewShell;

SetPrinter PICA DRAFT DENSITY 1 LEFT 5 RIGHT 85 LINES 66 LPI 8
Button "Parent"
SetFormat "NS T DMY A C"
BarFormat "DiskMaster GOLD - By Gareth Murfin  Chip:%C Fast:%F All:%P"
TitleFormat "%B/%F %I/%C"

OpenWindow 292  11 111 272 CMD

AddCmd Root, 10, Root
AddCmd Parent, 10, Parent
AddCmd All, 30, Select *
AddCmd Clear, 30, Deselect *
AddCmd Select, 30, Select
AddCmd Exclude, 30, DeSelect
AddCmd Copy, 20, ReqPattern;Copy %s %d
AddCmd Copy Newer, 20, Copy %s %d NEWER
AddCmd Move, 20, ReqPattern;Move %s %d
AddCmd Delete, 30, ReqPattern;Confirm "All selected files will be lost bottom head.";Delete %s
AddCmd Rename, 20, Recurse OFF;Rename %s
AddCmd Protect, 20, Recurse OFF;Protect %s
AddCmd Comment, 20, Recurse OFF;Comment %s
AddCmd Find, 20, ReqPattern "Please enter search pattern";Find %s
AddCmd Read, 20, Read %s
AddCmd HexRead, 20, Read %s HEX
AddCmd ShowPic, 20, ShowPic %s
AddCmd MakeDir, 20, MakeDir
AddCmd Print, 20, Single;Print %s
AddCmd Size Check, 20, UnMark OFF;Check %s

OpenWindow 403  11 321 272

OpenWindow   0  11 295 272

AddAutoCmd FORM????ILBM,ShowPic %s
AddAutoCmd FORM????ACBM,ShowPic %s
AddAutoCmd FORM????8SVX,ShowPic %s
AddAutoCmd FORM????ANIM,extern c:vt %s SCREEN
AddAutoCmd ,MOD.*,Play %s
AddAutoCmd ??????JFIF,Extern c:vt %s BM IE
AddAutoCmd GIF,Extern c:vt %s
AddAutoCmd ??-lh,StdIO "CON:0/12/640/100/Lha Extract Window";Extern Lha <* x %s;StdIO CLOSE;Confirm "Delete Archive?" Yes No;Delete %s
AddAutoCmd ^Z,StdIO "CON:0/12/640/100/Extract Window";Extern Arc <* x %s;StdIO CLOSE;Confirm "Delete Archive?" Yes No;Delete %s
AddAutoCmd ZOO ?.?? Archive,StdIO "CON:0/12/640/100/Zoo Extract Window";Extern Zoo <* x// %s;StdIO CLOSE;Confirm "Delete Archive?" Yes No;Delete %s
AddAutoCmd PK  StdIO "CON:0/12/640/100/DM GOLD pkUnZiP";Extern UnZIP <* %s;StdIO CLOSE;Confirm "Delete Archive Bottom head?" Yes No;Delete %s
AddAutoCmd DMS!,StdIO "CON:0/12/640/100/DM GOLD DMS to DF1";Extern DMS <* WRITE %s TO DF1: NOPAUSE;StdIO CLOSE;Confirm "Delete DMS File bottom head?" Yes No;Delete %s
AddAutoCmd RIFF????WAV,extern c:play16 %s Fast Output paula14c
AddAutoCmd .snd,extern c:play16 %s Fast Output paula14c
AddAutoCmd TEXT,Read %s
AddAutoCmd DEFAULT,Read %s HEX
Expand ON