MODULE font;
FROM rawBBC IMPORT DefChar, VduByte;
FROM SysStreams IMPORT SysOut;
FROM Streams IMPORT Flush;
VAR I :INTEGER;
BEGIN
   DefChar (ORD("|"),255,255,255,255,255,255,255,255);
   DefChar (ORD(","),0,0,0,0,255,255,255,255);
   DefChar (ORD("'"),255,255,255,255,0,0,0,0);
   Flush(SysOut)
END font.