$D DEFAUL
:R
; Clears the current font
; and replaces the HPL1.DHP file from DSK0:[7,0]
LOG DSK0:[7,0]
:<...erasing HPL#.DHP...
>
ERASE $0.DHP
GOTO #$0
;#DEFAUL
LOG $:[$P]
EXIT
;#$0
COPY $0.DHP=DSK10:CLEAR.DHP[7,22]
LOG $:[$P]
:<
Default Font file CLEARED!
>
EXP