home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / comal3-2.dms / in.adf / RexxScripts / SaveBlock.Comal next >
Encoding:
Text File  |  1993-04-10  |  980 b   |  56 lines
  1. /* Save block as code file  */
  2.  
  3. OPTIONS RESULTS
  4. 'BLOCKSIZE'
  5. IF RC > 0 
  6.   THEN DO
  7.     OPTIONS
  8.     WRITESTATUS 'No block marked'
  9.   END
  10.   ELSE DO
  11.     BlockSize = RESULT
  12.     IF ARG() = 0
  13.     THEN DO
  14.       'GETFILE'
  15.       File = RESULT
  16.     END
  17.     ELSE DO
  18.       File = ARG(1)
  19.     END
  20.     IF RC = 0
  21.     THEN DO
  22.       'BLOCK'
  23.       IF BlockSize < 0
  24.       THEN DO
  25.         OPTIONS
  26.         'LINE' BlockSize
  27.         BlockLen = -BlockSize+1;
  28.         BlockSize =0
  29.       END
  30.       ELSE DO
  31.         BlockLen = BlockSize+1;
  32.         BlockSize = -BlockSize
  33.       END
  34.       address 'Comal.CodeMan'
  35.       OPTIONS RESULTS
  36.       'OPEN'
  37.       ID = RESULT
  38.       DO BlockLen
  39.         address
  40.         OPTIONS RESULTS
  41.         'GETTEXT'
  42.         Line = RESULT
  43.         'CURSOR DOWN'
  44.         address
  45.         OPTIONS
  46.         MAKECODE 'ID ' ID Line
  47.         INSERT 'ID ' ID
  48.         'LINE ID ' ID 1
  49.       END
  50.       'SAVE ID ' ID FILENAME File
  51.       'CLOSE' 'ID ' ID
  52.       address
  53.       'LINE' BlockSize
  54.     END
  55.   END
  56.