' GEM FONT LOADER BY BRIAN HUGHES
' This routine should load any standard GEM format font such as the ones
' created by Degas Elite and Fontz, It will work in any resolution. It does
' not use GDOS. I modified the original routine from the big man "Frank".
' You must use the deftext command to switch to your loaded font. This routine
' works in conjunction with the TEXT command. There are many possibilitys to
' add to this routine like file select box and many others. I decided to leave
' that to you so you can have fun as well. (Hint) you can also use the inline
' command to have the font inside your program and have no disk access, also
' it will shorten the program as well.
'
Font$=Space$(16000) !Reserve space; could use LOF
Font_adr%=V:Font$
Bload "technicl.fnt",Font_adr%
Convert_font
Dpoke Font_adr%,2       !Our font
For I|=6 To 26
  Deftext ,,,I|,2       !Change to our font
  Text 50,200,"Gem Font Loader"
  Pause 10
  Cls
Next I|
Deftext ,,,13,1         !switch back to system font
Font$=""       !release memory
A%=Fre(0)      !Collect garbage
End
> procedure Convert_font
  Local L%,A%,I%
  A%=Font_adr%
  L%=Peek(A%+76)+255*Peek(A%+77)      !L% Bytes for Font-Data
  For I%=A% To A%+L%-1 Step 2        !from Intel into Motorola
    Dpoke I%,Peek(I%)+256*Peek(I%+1)  !Format calculating
  Next I%
  Lpoke A%+68,A%+Dpeek(A%+68)         !Pointer to Hor-Offs-Tab
  Lpoke A%+72,A%+Dpeek(A%+72)         !Pointer to Chr-Offs-Tab
  Lpoke A%+76,A%+Dpeek(A%+76)         !Pointer to Font-Data
  Chrlink%={L~a-906}                  !Address of current font header
  Lpoke Chrlink%+84,A%                !Pointer to next font
Return