home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / saveblk.ttx < prev    next >
Text File  |  1995-07-10  |  983b  |  51 lines
  1.  
  2. /** $VER: SaveBlk.ttx 2.0 (27.8.93)
  3.  **
  4.  ** Save the currently selected block to a file on disk.
  5.  **/
  6.  
  7.  
  8. OPTIONS RESULTS
  9. OPTIONS FAILAT 21
  10. PARSE ARG file
  11.  
  12.   GetCursorPos
  13.   PARSE VAR RESULT cursorLine cursorColumn .
  14.  
  15.   GetBlkInfo
  16.   PARSE VAR RESULT blockActive verticalBlock blockLine blockColumn .
  17.  
  18.   IF blockActive = "ON" THEN DO
  19.     SetDisplayLock ON
  20.  
  21.     /* save current contents of clipboard to the end of the file */
  22.     SetBookmark 0
  23.     MoveEOF
  24.     SetBookmark 191    /* pick a number, any number... */
  25.     PasteClip
  26.     MoveBookmark 0
  27.  
  28.     /* save the current block */
  29.     CopyBlk
  30.     SaveClip file
  31.  
  32.     /* restore the previous contents of the clipboard */
  33.     MoveBookmark 191
  34.     ClearBookmark 191
  35.     MarkBlk
  36.     MoveEOF
  37.     CutBlk
  38.  
  39.     /* remark the selected block */
  40.     Move blockLine blockColumn
  41.     IF verticalBlock = "ON" THEN
  42.       MarkBlk VERTICAL
  43.     ELSE DO
  44.       MarkBlk
  45.     END
  46.     Move cursorLine cursorColumn
  47.  
  48.     CenterView OFF
  49.     SetDisplayLock OFF
  50.   END
  51.