' *** PAL_STR.LST *** 2nd GFA-Manual, page 20-27 > PROCEDURE palet_save_str(VAR pal$) ' ' *** Save current palette in (Degas-compatible) string ' *** Call Procedure Palet_change_str to activate this palette again ' LOCAL i pal$="" FOR i=0 TO 15 pal$=pal$+MKI$(XBIOS(7,i,-1)) NEXT i RETURN ' *** > PROCEDURE palet_change_str(pal$) ' ' *** Activate palette in (Degas-compatible) string pal$ ' ~XBIOS(6,L:V:pal$) RETURN ' ********* '