' *** SCRPWRIT.LST *** 2nd GFA-Manual, page 19-8 > PROCEDURE scrap_write(text$,VAR ok!) ' ' *** Put text$ (< 160 characters) in Scrap-library; ok!=TRUE if successful ' LOCAL buffer$,r%,m$,k ok!=TRUE buffer$=SPACE$(160) text$=text$+CHR$(0) LSET buffer$=text$ r%=SCRP_WRITE(buffer$) IF r%=0 m$=" *** Error ***| |Procedure Scrap_write |has failed..." ALERT 3,m$,1," OK ",k ok!=FALSE ENDIF RETURN ' ********* '