' *** FILLINIT.LST *** 2nd GFA-Manual, page 20-25 > PROCEDURE fill_init(adr%,VAR fill$) ' ' *** Put fill-pattern from INLINE-line adr% in string ' *** Activate pattern in main program with: DEFFILL [colour],fill$ ' *** A pattern can also be used in a lower resolution ' *** Pattern-length (bytes): 32 in High, 64 in Medium, 128 in Low ' ' *** Standard: high.res! med.res! low.res! ' LOCAL bytes IF high.res! bytes=32 ELSE IF med.res! bytes=64 ELSE IF low.res! bytes=128 ENDIF ' fill$=STRING$(bytes,0) BMOVE adr%,V:fill$,bytes RETURN ' ********* '