home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / amigamode / ARexx / roger3.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-09-18  |  284 b   |  14 lines
  1. /* Roger script */
  2.  
  3.     address 'BPAINT2' /*NOT really need as you are calling this from BPAINT so it is the Default address */
  4.     DO i = 150 to 0 by -10
  5.      MYLINE 0 150 400 i
  6.     END i
  7.  
  8.     DO x = 0 to 400 by 10
  9.      MYLINE 400 0 x 150
  10.     END x
  11.  
  12.     EXIT "Script Completed OK!"
  13.  
  14.