10 REM > BLib.BFont 1.00 23-Feb-1991
   20 :
   30 REM Bitmap font routines
   40 REM ====================
   50 REM This version uses serial BGET/BPUT
   60 :
   70 :
   80 REM BFont_Load - Load bitmap font
   90 REM -----------------------------
  100 REM A$ - filename to load
  110 REM S% - start character to save or 0 for VDU file
  120 :
  130 DEFPROCBFont_Load(A$,S%):LOCALin%,A%:in%=OPENIN(A$):IFin%=0:ENDPROC
  140 REPEAT:IFA%=0:IFS%:VDU23,S%:S%=S%+1
  150 VDUBGET#in%:A%=(A%+1)AND7:UNTILEOF#in%:CLOSE#in%:ENDPROC
  160 :
  170 :
  180 REM BFont_Save - Save bitmap font
  190 REM -----------------------------
  200 REM A$ - filename to save to
  210 REM S% - start character to save
  220 REM E% - end character to save
  230 REM R% - <>0 save as raw bitmap, 0 save as VDU file
  240 :
  250 DEFPROCBFont_Save(A$,S%,E%,R%):LOCALout%,L%,X%,Y%,A%:out%=OPENOUT(A$):IFout%=0:ENDPROC
  260 DIMX%-1:Y%=X%DIV256:A%=10:REPEAT:?X%=S%:CALL&FFF1:IFR%=0:BPUT#out%,23:BPUT#out%,S%
  270 FORL%=1TO8:BPUT#out%,X%?L%:NEXT:S%=S%+1:UNTILS%>E%:CLOSE#out%:ENDPROC