MANIFEST [ NWRDS = 36 LINES = 760 OLINES = 808-84 //SYSTEM DISPLAY AREA IS 84 LINES SCALE = 7 //FONT EDIT PARAMETERS FWMAX= 4 FHMAX = 64 BOXSIZE = 7 LWMARGIN = 3 //WORDS OF MARGIN FOR BIG BOX IN FONT EDITOR LMARGIN = 100 ] EXTERNAL //STATICS [ GAP MOUSELINK FCHEIGHT FARRAY CLMARGIN CTOPMARGIN EXTENSIONCOUNT FCWIDTH FONTVEC CURRENTFONT CURSOR FONT S420 NEWY MASKTAB DISPLAYAREA DCB ] EXTERNAL //O.S. PROCEDURES [ GETCHAR ENDOFS WOS DSP WS WSS PUTS GETS GETAFILE OPENAFILE FORMATN CLOSEAFILE INITALTOIO BSTORE BMOVE KEYS ] EXTERNAL //PROCEDURES [ FORMAT CUOUT COPYCH PUTITBACK CHASE GETLAST GETBIGGEST COMPACTFONT TANDD BIGGESTCHAR BUILDCHAR READFONT WRITEFONT GETHW GETHWX FEDIT SETTICK SETBOX SETARRAY CLEARBLOCK SETBLOCK GETKEYST TRANSLATECHAR SETCHARWIDTH ] STRUCTURE STR: [ LENGTH BYTE CHAR↑1,255 BYTE ] STRUCTURE ITEM: [ LINK WORD XMIN WORD YMIN WORD XMAX WORD FONT BIT 3 YMAX BIT 13 STRING: @STR ]