NEW
PREFIX
AUTO 4,1
*--------------------------------------
FON.Init		>PUSHWI 0				Aux type
				>PUSHBI $CC				Type
				>PUSHBI	O.RDONLY	
				>LDYA L.SYSX7
				>SYSCALL2 LoadStkObj
				bcs .9
				sta hSYSFON

				ldy #S.FON.PixH
				>SYSCALL2 GetStkObjProp
				sty SYSFON.H

				>PUSHWI 0				Aux type
				>PUSHBI $CC				Type
				>PUSHBI	O.RDONLY	
				>LDYA L.SYSX7B
				>SYSCALL2 LoadStkObj
				bcs .9
				sta hSYSFONB

.9				rts
*--------------------------------------

*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.FON
LOAD USR/SRC/LIB/LIBGUI.S
ASM