home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / CFWANSRX.ZIP / CFWBOX.CMD < prev    next >
OS/2 REXX Batch file  |  1992-08-09  |  2KB  |  47 lines
  1. */
  2. /*╒════════════════════════════════════════════════════════════════╕
  3.   │    C.F.W Box-Zeichnen   (C) Copyright 1992 by                  │
  4.   │                                                                │
  5.   │             C.F.W. Christian Fair Ware                         │
  6.   │                   Hölderlinweg 10                              │
  7.   │                   7043 Grafenau 2                              │
  8.   │                                                                │
  9.   │               Tel./FAX : (07033) 41 40 4                       │
  10.   │                                                                │
  11.   │════════════════════════════════════════════════════════════════│
  12.   │                                                                │
  13.   │  Parameter : zeile,reihe,breite,höhe in char                   │
  14.   │                                                                │
  15.   │                                                                │
  16.   ╘════════════════════════════════════════════════════════════════╛
  17.  
  18. */
  19. parse arg b_row,b_col,width,height
  20. call init
  21. do
  22.  top_line = top_left||copies(hor,width-2)||top_right
  23.  frame    = vert||copies(' ',width-2)||vert
  24.  bot_line = bot_left||copies(hor,width-2)||bot_right
  25.  row = b_row
  26.  call SysCurPos row,b_col
  27.  call charout,top_line
  28.  row = row + 1
  29.  do i = 1 to height-2
  30.   call SysCurPos row,b_col
  31.   call charout,frame
  32.   row=row+1
  33.  end
  34.  call SysCurPos row,b_col
  35.  call charout,bot_line
  36. end
  37. exit rc
  38. init:
  39.  top_left = '┌'
  40.  top_right= '┐'
  41.  bot_left = '└'
  42.  bot_right= '┘'
  43.  hor      = '─'
  44.  vert     = '│'
  45.  rc       = 0
  46. return
  47.