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