home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / db22re.zip / COPYLAB.CMD next >
OS/2 REXX Batch file  |  1993-03-09  |  2KB  |  53 lines
  1. /* */
  2.  
  3. Begin:
  4.     call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  5.     call SysLoadFuncs
  6.     call SysCls
  7.     call SetColor
  8.     '@echo off'
  9.  
  10. DoIt:
  11.     say
  12.     say
  13.     say c.yellow  '---> Hello: place the diskette in drive a:' c.itblue
  14.     pause
  15.     say c.green
  16.     address cmd 'copy d:\lab\*.* a:\'
  17.     if RC \= 0 then signal ErrorRC
  18.  
  19. EndProg:
  20.     say c.reset
  21.     'exit'
  22.  
  23. ErrorRC:
  24.     say c.itred
  25.     call beep 220,500
  26.     say
  27.     say '        >>>  OS/2 has returned a fatal condition code'
  28.     say '             RC            = ' RC
  29.     say '             RESULT        = ' RESULT
  30.     say
  31.     say c.normal
  32.     pause
  33.     signal EndProg
  34.  
  35. SetColor:
  36.     ansii.esc      = '1B'x
  37.     c.normal       = ansii.esc || '[0m'
  38.     c.highlite     = ansii.esc || '[1m'
  39.     c.blackback    = ansii.esc || '[40m'
  40.     c.green        = c.normal || ansii.esc || '[32m'
  41.     c.grey         = c.normal || ansii.esc || '[37m'
  42.     c.red          = c.normal || ansii.esc || '[31m'
  43.     c.itred        = c.highlite || ansii.esc || '[31m'
  44.     c.itgreen      = c.highlite || ansii.esc || '[32m'
  45.     c.yellow       = c.highlite || ansii.esc || '[33m'
  46.     c.itblue       = c.highlite || ansii.esc || '[34m'
  47.     c.itmagenta    = c.highlite || ansii.esc || '[35m'
  48.     c.itcyan       = c.highlite || ansii.esc || '[36m'
  49.     c.white        = c.highlite || ansii.esc || '[37m'
  50.     c.std          = c.normal || c.itcyan || c.blackback
  51.     c.reset        = c.normal || c.grey || c.blackback
  52.     return 0
  53.