' *** FILL_HI.LST *** 2nd GFA-Manual, page 20-25 > PROCEDURE fill_1_high_init(VAR fill1$) ' ' *** Create Fill-pattern fill$ for High resolution (suitable for Medium/Low) ' *** Fill-patterns always have 16*16 format ' *** Activate pattern in main program with: DEFFILL ,fill1$ ' *** Use Fill_2_high_init for second pattern, etc. ' ' *** Procedure: Fill_high_creation ' RESTORE high.fill1 @fill_high_creation(fill1$) ' high.fill1: ' *** use 0 or 1 (0 = background-colour) to make a pattern (in Overwrite-mode) DATA 1000000000000001 DATA 0100000000000010 DATA 0010000000000100 DATA 0001000000001000 DATA 0000100000010000 DATA 0000010000100000 DATA 0000001001000000 DATA 0000000110000000 DATA 1000000000000001 DATA 0100000000000010 DATA 0010000000000100 DATA 0001000000001000 DATA 0000100000010000 DATA 0000010000100000 DATA 0000001001000000 DATA 0000000110000000 RETURN ' *** > PROCEDURE fill_high_creation(VAR fill$) ' ' *** Create fill-string for High resolution from DATA-lines ' LOCAL i,pat$ fill$=STRING$(32,0) FOR i=0 TO 15 ! 16 words READ pat$ MID$(fill$,1+i*2,2)=MKI$(VAL("&X"+pat$)) NEXT i RETURN ' ********* '