' *** REC_AR_S.LST *** 2nd GFA-Manual, page 20-28 > PROCEDURE rectangle_array_save(file$,VAR clip$()) ' ' *** Save array of GET-rectangles clip$() as file$ (use extension .PRR) ' *** This takes up less space on disk than separate files and is also faster ' *** Use complete filename for file$, including drive and path ' *** This Procedure uses file-handle 90 ' *** Use Procedure Rectangle_array_load to load the GET-rectangles again ' LOCAL name$,m$,k,p,back$,last,i name$=UPPER$(RIGHT$(file$,LEN(file$)-RINSTR(file$,"\"))) IF EXIST(target$) ! does file exist already? m$="The file "+name$+"|exists already: |delete file or |rename as *.BAK?" ALERT 3,m$,0,"Delete|*.BAK",k IF k=1 KILL file$ ! kill that file ELSE p=INSTR(file$,".") back$=LEFT$(file$,p)+"BAK" IF EXIST(back$) ! kill old back-up file KILL back$ ENDIF RENAME file$ AS back$ ! rename that file as *.BAK" ENDIF ENDIF last=PRED(DIM?(clip$())) OPEN "O",#90,file$ PRINT #90,MKI$(last) ! save number of rectangles FOR i=0 TO last PRINT #90,MKI$(LEN(clip$(i)));clip$(i); ! save length and rectangle NEXT i CLOSE #90 RETURN ' ******* '