home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 55 / af055a.adf / Examples / LacedTwin.DM < prev    next >
Text File  |  1993-02-10  |  6KB  |  145 lines
  1. Reset
  2. OpenScreen 2 LACE
  3.  
  4. Color AAA 000 FFF 06F
  5. Font topaz/8
  6.  
  7. AddMenu Project, Display Format, D, SetFormat
  8. AddMenu Project, Add Command, AddCmd
  9. AddMenu Project, Change Command, ChgCmd
  10. AddMenu Project, Add Menu Item, AddMenu
  11. AddMenu Project, Add Auto Command, AddAutoCmd
  12. AddMenu Project, Add Key Command, AddKeyCmd
  13. AddMenu Project, Palette, Color
  14. AddMenu Project, Printer Setup, SetPrinter
  15. AddMenu Project, Save Config, S, SaveConfig
  16. AddMenu Project, ReConfig, batch sys:startup.dm
  17. AddMenu Project, Save Cmd Window, SaveCmdWin
  18. AddMenu Project, About, About
  19. AddMenu Project, Quit DM, Q, Quit
  20.  
  21. AddMenu Tools, Execute Command.., Extern
  22. AddMenu Tools, Test REXX, A, REXX
  23. AddMenu Tools, Run Selected, Single;External run %s
  24. AddMenu Tools, Run DM Script, single;batch %s
  25. AddMenu Tools, Change Font, Font
  26. AddMenu Tools, New Window, N, OpenWindow 240 40 260 120
  27. AddMenu Tools, New Cmd Window, C, OpenWindow 240 40 260 120 CMD;AddCmd
  28. AddMenu Tools, Run DM Script, Single;Batch %s
  29. AddMenu Tools, Print Dir, P, printdir %s prt:
  30. AddMenu Tools, PrintFiles.., O, Extern tools/printfiles %s
  31. AddMenu Tools, Swap S<->D, Swap
  32.  
  33. AddMenu Sort, Sort By NAME.., sortby Name
  34. AddMenu Sort, Sort By DATE.., sortby Date
  35. AddMenu Sort, Sort By SIZE.., sortby Size
  36.  
  37. ;You MUST have the decompression programmes already in your C: directories - we do not supply them.
  38. AddMenu Archives, Lharc Add, StdIO "CON:0/12/640/100/Add Window";Archive "Lharc <* -x -r a";StdIO CLOSE
  39. AddMenu Archives, Arc   Add, StdIO "CON:0/12/640/100/Add Window";Archive "Arc <* a";StdIO CLOSE
  40. AddMenu Archives, Zoo   Add, StdIO "CON:0/12/640/100/Add Window";Archive "Zoo <* a";StdIO CLOSE
  41. AddMenu Archives, Lharc Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Lharc <* x %s;StdIO CLOSE
  42. AddMenu Archives, Lharc X >Dest, StdIO "CON:0/12/640/100/Extract Window";Extern CD %d \Lharc <* x %s;StdIO CLOSE
  43. AddMenu Archives, Lharc X Req, Confirm "Enter destination path" Continue Cancel %P;StdIO "CON:0/12/640/100/Extract Window";Extern CD %R \Lharc <* x %s;StdIO CLOSE
  44. AddMenu Archives, Arc   Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Arc <* x %s;StdIO CLOSE
  45. AddMenu Archives, Zoo   Extract, StdIO "CON:0/12/640/100/Extract Window";Extern Zoo <* x// %s;StdIO CLOSE
  46. AddMenu Archives, Lharc List, StdIO "CON:0/12/640/160/List Window";Extern Lharc v %s;Wait;StdIO CLOSE
  47. AddMenu Archives, Arc   List, StdIO "CON:0/12/640/160/List Window";Extern Arc v %s;Wait;StdIO CLOSE
  48. AddMenu Archives, Zoo   List, StdIO "CON:0/12/640/160/List Window";Extern Zoo v %s;Wait;StdIO CLOSE
  49. AddMenu Archives, DM Pack, Pack %s %d
  50. AddMenu Archives, DM UnPack, Unpack %s %d
  51.  
  52. AddMenu Disk, Format, F, Format
  53. AddMenu Disk, DiskCopy, X, DiskCopy
  54. AddMenu Disk, Format DF0:, Confirm "Are you sure?";Format DF0:
  55. AddMenu Disk, Format DF1:, Format DF1: VERIFY "WorkDisk"
  56. AddMenu Disk, Clear  DF0:, Format DF0: QUICK INSTALL VERIFY
  57. AddMenu Disk, Copy DF0: DF0:, DiskCopy DF0: DF0:
  58. AddMenu Disk, Copy DF0: DF1:, DiskCopy DF0: DF1:
  59.  
  60. AddMenu Control, Lock as Source, Lock S
  61. AddMenu Control, Lock as Dest, Lock D
  62. AddMenu Control, UnLock, UnLock
  63. AddMenu Control, UnLock all, UnLock All
  64. AddMenu Control, Toggle Expand, Expand
  65.  
  66. AddMenu MMedia, Play.., P, Play %s
  67. AddMenu MMedia, Show.., S, ShowPic %s
  68.  
  69. AddMenu DMS, DMS Read.., extern sys:c2/DMS read ram:DMSfile
  70. AddMenu DMS, DMW Write.., extern sys:c2/DMS write %s
  71.  
  72. Button "parent"
  73. SetFormat "NS T DMY A C"
  74. BarFormat "DiskMaster %V %W %T %D %M %Y  Total RAM: %P Kbytes"
  75. TitleFormat "%B/%F %I/%C"
  76.  
  77. OpenWindow 307  12  96 388 CMD
  78.  
  79. AddCmd Root, 10, Root
  80. AddCmd Parent, 10, Parent
  81. AddCmd , 20,
  82. AddCmd All, 20, Select *
  83. AddCmd Clear, 20, Deselect *
  84. AddCmd , 20,
  85. AddCmd MakeDir, 30, MakeDir
  86. AddCmd Copy, 30, ReqPattern;Copy %s %d
  87. AddCmd CopyNEW, 30, Copy %s %d NEWER
  88. AddCmd CopyAS    , 20, Copy %s %d RENAME
  89. AddCmd Move, 30, ReqPattern;Move %s %d
  90. AddCmd Rename, 30, Recurse OFF;Rename %s
  91. AddCmd , 20,
  92. AddCmd Delete!, 32, ReqPattern;Confirm "All selected files will be lost.";Protect %s +D;Delete %s
  93. AddCmd , 20,
  94. AddCmd IFF2DCTV, 12, external c:ifftodctv %s -w640 -h400 -d3 -oram:; this is an example of how to use an external file like IFF2DCTV
  95. AddCmd , 20,
  96. AddCmd Protect, 20, Recurse OFF;Protect %s
  97. AddCmd Comment, 20, Recurse OFF;Comment %s
  98. AddCmd Exclude, 20, DeSelect
  99. AddCmd Find, 20, ReqPattern "Please enter search pattern";Find %s
  100. AddCmd SizeChk, 20, UnMark OFF;Check %s
  101. AddCmd , 20,
  102. AddCmd Read, 30, Read %s LACE
  103. AddCmd HexRead, 30, Read %s HEX
  104. AddCmd Edit, 30, scrback; external c:ed %s; scrfront
  105. AddCmd , 20,
  106. AddCmd Print, 12, Single; Print %s PRT:
  107. AddCmd PrtDir, 12, printdir %s PRT:
  108. AddCmd , 20,
  109. AddCmd , 20,
  110. AddCmd , 20,
  111. AddCmd , 20, 
  112. AddCmd , 20,
  113. AddCmd , 20, 
  114. AddCmd , 20,
  115. AddCmd Quit, 21, Quit
  116.  
  117. OpenWindow 403  12 237 388
  118.  
  119. OpenWindow   0  12 218 388
  120.  
  121. OpenWindow 218  12  89 388
  122.  
  123. AddAutoCmd FORM????ACBM, ShowPic %s
  124. AddAutoCmd FORM????8SVX, ShowPic %s
  125. AddAutoCmd FORM????ILBM, ShowPic %s
  126. AddAutoCmd FORM????ANIM, Extern sys:utilities/View %s
  127. AddAutoCmd ??-lh,StdIO "CON:0/12/640/100/Extract Window";Extern Lharc <* x %s;StdIO CLOSE
  128. AddAutoCmd ^Z,StdIO "CON:0/12/640/100/Extract Window";Extern Arc <* x %s;StdIO CLOSE
  129. AddAutoCmd ZOO ?.?? Archive,StdIO "CON:0/12/640/100/Extract Window";Extern Zoo <* x// %s;StdIO CLOSE
  130. AddAutoCmd TEXT,Read %s
  131. AddAutoCmd DEFAULT,Read %s HEX
  132.  
  133. AddKeyCmd Q, quit
  134. AddKeyCmd c, copy %s %d
  135. AddKeyCmd C, copy %s
  136. AddKeyCmd D, delete %s
  137. AddKeyCmd r, rename %s
  138. AddKeyCmd m, move %s %d
  139. AddKeyCmd M, move %s
  140. AddKeyCmd e, extern c:ed %s
  141. AddKeyCmd E, extern c:ced %s
  142. AddKeyCmd /, Parent
  143. AddKeyCmd :, Root
  144. AddKeyCmd q, quit
  145.