home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 June / CHIPCD_6_2000.iso / software / cad / inplot / _setup.1 / chain.scr < prev    next >
Text File  |  1999-06-17  |  296b  |  23 lines
  1. (CHAIN EXAMPLE)
  2. (FILE: CHAIN.SCR)
  3.  
  4. (first highlight a section of text to change)
  5.  
  6. (skip first line in editor)
  7. #1=startsel
  8. #2=endsel
  9. if,[#2>#1],1
  10. if,[#1=1],gosub100
  11.  
  12. :1
  13. CHAIN,block delete
  14.  
  15. renumber,1,2
  16. chain,chain1
  17. chain,chain3
  18. exit
  19.  
  20. :100(goto second line)
  21. select,2
  22. rsub
  23. exit