' *** PALSTRNG.LST *** 2nd GFA-Manual, page 20-27 > PROCEDURE palet_string(VAR pal$) ' ' *** Create a palette-string from DATA-lines (use RESTORE first!) ' *** Activate palette with Procedure Palet_change_str ' ' *** Standard: palet.max& ' LOCAL i,rgb$ pal$="" FOR i=0 TO PRED(palet.max) READ rgb$ pal$=pal$+MKI$(VAL("&H"+rgb$)) NEXT i RETURN ' ********* '