home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / PET-CDW2.DMS / in.adf / rexx / PasteFromUnit.ced < prev    next >
Encoding:
Text File  |  1993-07-07  |  803 b   |  47 lines
  1. /*
  2. ** PasteFromUnit.ced
  3. **
  4. ** $VER: PasteFromUnit.ced 1.0.0 (24.05.93)
  5. **
  6. ** This script allows you to paste the contents of a specific Clipboard unit to
  7. ** the current cursor position.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** Copyright © 1993 ASDG, Incorporated  All Rights Reserved
  12. */
  13.  
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. NL = '0A'X
  19. TRUE = 1
  20. FALSE = 0
  21. MinClipUnit = 0
  22. MaxClipUnit = 255
  23.  
  24. STATUS CLIPUNIT
  25. OldClipUnit = RESULT
  26. NewClipUnit = OldClipUnit
  27.  
  28. CEDTOFRONT
  29. GETNUMBER NewClipUnit '"Paste from which unit?"' MinClipUnit MaxClipUnit
  30. IF (RESULT = "") THEN
  31.     EXIT 0
  32. ELSE DO
  33.     NewClipUnit = RESULT
  34. END
  35.  
  36. SET CLIPBOARD UNIT NewClipUnit
  37.  
  38. PASTE
  39. IF (RESULT = 0) THEN DO
  40.     CEDTOFRONT
  41.     OKAY1 "Error pasting from clipboard unit" NewClipUnit || "."
  42. END
  43.  
  44. SET CLIPBOARD UNIT OldClipUnit
  45.  
  46. EXIT 0
  47.