home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / TJDMACS.ZIP / BTEST.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-12  |  543b  |  40 lines
  1. /**/     
  2.     esc = d2c(27) || '[';
  3.  
  4.     call clrscrn;
  5.     Row = 1;
  6.     Col = 1;
  7.     Width = 80;
  8.     Num = 20;
  9.     Times = 9;
  10.  
  11.     x = ''
  12.  
  13.     do Times
  14.         x = box(Row, Col, Width, Num);
  15.         x = charout(, x);
  16.         Row = Row + 1;
  17.         Col = Col + 1;
  18.         Width = Width - 2;
  19.         Num = Num - 2;
  20.         end
  21.  
  22.     Row = Row - 1;
  23.     Col = Col - 1;
  24.     Width = Width + 2;
  25.     Num = Num + 2;
  26.  
  27.     do Times
  28.         x = unbox(Row, Col, Width, Num);
  29.         x = charout(, x);
  30.         Row = Row - 1;
  31.         Col = Col - 1;
  32.         Width = Width + 2;
  33.         Num = Num + 2;
  34.         end
  35.  
  36. /*    say goto(21,1);    */
  37.  
  38.     return 0
  39.  
  40.