home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / PROG / REXX / CMD / BLKOS207.ZIP / MASTER.ALS < prev    next >
Encoding:
Text File  |  1993-05-26  |  2.9 KB  |  155 lines
  1. @show
  2. aa=x.2
  3. if aa='X.2'|x.2=''|x.2='' then do
  4. say 'MUST INPUT AN ALIAS NAME_TRY AGAIN'
  5. x.=''done=1;opcomm.='';lev=1;call adj;return
  6. end
  7. ppp=pather||'master.als';ddd=pather||'123'
  8. re=0
  9. sw=aa;swl=length(sw)
  10. vv='@'||sw
  11. call sysfilesearch vv,ppp,poi
  12. if poi.0=0|swl+1\= length(poi.1) then do
  13. call adj;say  sw 'IS NOT A STORED ALIAS';call adj;return;end
  14. else
  15. do i=1 to al.aa.0
  16. say x2c(1b5b)'1;36m'al.aa.i x2c(1b5b)'0m'
  17. end
  18. $$$$DISPLAYS THE LINES OF AN ALIAS
  19. @e
  20. 'call epm' x.2
  21. $$$$OPENS A FILE FOR EDITING
  22. @d
  23. if (datatype(x.2,'W' )=1)&(x.2<9) then aa=x.2
  24. else aa=x.2'*'
  25. 'call d' aa
  26. $$$$WILDCARD  QD.CMD
  27. @edtal
  28. 'call e f:\master.als'
  29. call loadals
  30. $$$$OPENS MASTER.ALS FILE FOR EDITING
  31. @t
  32. 'start /min /c alarm'  x.2 x.3 x.4 x.5 x.6 x.7
  33. $$$$SETS AN ALARM
  34. @refr
  35. 'call view rexx.inf'
  36. $$$$opens rexx help
  37. @refc
  38. 'call view f:\os2\book\cmdref.inf'
  39. $$$$opens OS2 commands help
  40. @i
  41. if x.2='X.2' then X.2=''
  42. call in x.2
  43. $$$$SYSTEM DRIVE SPECS
  44. @put
  45. 'call put' x.2
  46. $$$$alt-p write a comment for an object
  47. @showtmp
  48.  aa=x.2
  49. do i=1 to al.aa.0
  50. say al.aa.i
  51. end
  52. $$$$SHOW TEMPORARY ALIAS STATEMENTS
  53. @co
  54. 'call copy' x.2 x.3 
  55. $$$$copy command
  56. @note
  57. 'call get' x.2
  58. $$$$display comments to an object
  59. @mo
  60. if x.2\=''&x.3\='' then 'copy' x.2 x.3
  61. if rc=0 then 'del' x.2
  62. $$$$MOVE inc drive to drive
  63. @laz
  64. 'cache /Lazy:off'
  65. $$$$turn off lazy write
  66. @cl
  67. 'call slaughtr'
  68. $$$$shutdown the system
  69. @win
  70. 'start /f /c winos2'
  71. $$$$start a win 3.1 session
  72. @dd
  73. 'call dd' x.2||'*'
  74. $$$$filename completing dd.cmd
  75. @cat
  76. do until lines(x.2)=0
  77. line=linein(x.2)
  78. ss=lineout(x.3,line)
  79. end
  80. aa=stream(x.2,'c','close')
  81. aa=stream(x.3,'c','close')
  82. $$$$concatenates 2 files
  83. @log
  84. 'del' pather'\blk.log'
  85. $$$$erases blkos2 command log file
  86. @un
  87. 'call undelete /a' x.2
  88. $$$$undelete
  89. @fo
  90. 'call  format' x.2
  91. $$$$format a disk
  92. @cdd
  93. call directory(x.2)
  94. $$$$change directory across drives
  95. @rec
  96. aa=x.2 x.3 x.4 x.5 x.6 x.7 x.8
  97. sd='list';sd2='dso'
  98. sw=directory()
  99. swq=strip(sw,'B')||'\'
  100. 'call' aa
  101. call sysfiletree swq,sd,sd2
  102. do i=1 to list.0
  103. tt=list.i
  104. w=directory(tt)
  105. 'call' aa
  106. end
  107. t=directory(sw)
  108. $$$$commands recursively operate on sub dirs
  109. @u5
  110. 'call u5' x.2
  111. $$$$start openzip to open an archive
  112. @002C
  113. if x.2='' then return
  114. mxi=0
  115. opcomm.1='<WP_'translate(x.2)'>' x.3
  116. call opendir;return
  117. $$$$ALT- Z opens a standard wps object with objid
  118. @lst
  119. if x.2='' then return
  120. call syscls
  121. oo=0
  122. do until lines(x.2)=0
  123. oo=oo+1
  124. dd.oo=linein(x.2);end
  125. ss=stream(x.2,'c','close')
  126. do forever
  127. ww=oo%20
  128. do u=0 to ww
  129. call syscls
  130. do i=1 to 19
  131. tt=(20*u)+i
  132. if dd.tt\=''&dd.tt\='DD.'tt then  say x2c(1b5b)'0m'dd.tt x2c(1b5b)'0m'
  133. end
  134. in =sysgetkey()
  135. select
  136. when in='u'&u=0 then leave
  137. when in='u' &u-2>-2 then u=u-2
  138. when in='x' then do;call syscls;dd.='';return;end
  139. otherwise nop
  140. end
  141. end
  142. end
  143. $$$$display the contents of a file to screen
  144. @erh
  145. bk.=''
  146. hnu=1
  147. $$$$ERASE THE HISTORY BUFFER
  148. @c
  149. cls
  150. $$$$clears the screen
  151. @002D
  152. exit
  153. $$$$leave blkos2
  154.  
  155.