.TITLE FONT LOADER DAEMON
P==%6
.INSRT SITS;SITMAC >
.INSRT SITS;SITSS SYMS

FSTRT=40000
FSTRT0=FSTRT
.INSRT SITS; BIGF >
FSTRT=100000
FSTRT2=FSTRT
.INSRT SITS;MEDFNT >
FSTRT=60000
FSTRT1=FSTRT
.INSRT SITS; SMALLF >

GO:	MOV #PDL,P
;	SAVE <#FSTRT0,#.PRWRT*400>
;	$FONT
	SAVE <#FSTRT1,#.PRWRT*400+1>
	$FONT
;	SAVE <#FSTRT2,#.PRWRT*400+2>
	SAVE <#FSTRT2,#.PRWRT*400+0>
	$FONT
	BPT
	JMP GO

PAT:
PATCH:	.BLKW 100
PDL:


.END GO