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

*				ldy #S.FON.PixH
*				>SYSCALL2 GetStkObjProp
				lda #7
				sta SYSFON.H

				>PUSHWZ				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