#Т > 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%:А Ъ