BYTE ARRAY Sfont=›INCLUDE "D:MYFONT.ACT"›]››PROC FontSetup()› BYTE ARRAY Font,Nmien=54286,Ram=106› BYTE CHBAS=756› BYTE FontP=Font+1› CARD loop› Nmien=$40› Font=((Ram-8)*256)&$E000› MoveBlock(font,sfont,2048)› CHBAS=FontP› Nmien=$C0›RETURN››