home *** CD-ROM | disk | FTP | other *** search
- /*
- * 'dos/AddBuffers'()
- *
- * $(C): (1997, Rocco Coluccelli, Bologna)
- * $VER: dos/AddBuffers 1.00 (17.Jan.1997)
- */
-
- SIGNAL ON error
- CALL CLOSE(STDOUT)
-
- tmp = "T:add_buff." || PRAGMA('id')
- num = 0
-
- ADDRESS COMMAND 'AddBuffers >'tmp '"'STRIP(ARG(1))'"' ARG(2)
- IF OPEN('log',tmp,'R') THEN DO
- log = READCH('log',1024)
- num = WORD(log,WORDS(log) - 1)
- CALL CLOSE('log')
- END
-
-
- error:
- ADDRESS COMMAND 'Delete >NIL:' tmp
- EXIT num
-