# ô > BLib.BFont 1.00 23-Feb-1991 : ô Bitmap font routines (ô ==================== (2ô This version uses serial BGET/BPUT <: F: #Pô BFont_Load - Load bitmap font #Zô ----------------------------- d: -nÝòBFont_Load(A$):ê in%:in%=Ž(A$):çin%=0:á xõïš#in%:ýÅ#in%:Ù#in%:á ‚: Œ: #–ô BFont_Save - Save bitmap font # ô ----------------------------- ªô A$ - filename to save to "´ô S% - start character to save ¾ô E% - end character to save È: BÒÝòBFont_Save(A$,S%,E%):ê out%,L%,X%,Y%,A%:out%=®(A$):çout%=0:á @ÜÞ X% -1:Y%=X%256:A%=10:õ:?X%=S%:Ö &FFF1:Õ#out%,23:Õ#out%,S% 5æã L%=1 ¸ 8:Õ#out%,X%?L%:í:S%=S%+1:ýS%>E%:Ù#out%:á ÿÿ