DataMuseum.dk

top - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »FNT.PAS«

└─⟦6cf793dfc⟧ Bits:30003506 JET80 Grafik og fontprogrammering
    └─ ⟦this⟧ »FNT.PAS« 

TextFile

PROGRAM fnt;

VAR      f                   : Text;
         rad                 : String(.80.);
         fil                 : Array(.1..17.)OF String(.8.);
         fnr,rnr             : Byte;


PROCEDURE initfil;
BEGIN
  fil(.1.):='ASCII12';
  fil(.2.):='CIRCUS24';
  fil(.3.):='COPR18';
  fil(.4.):='COPR24';
  fil(.5.):='FEANOR12';
  fil(.6.):='FEANOR18';
  fil(.7.):='GOTH18';
  fil(.8.):='GOTH24';
  fil(.9.):='GOTHB18';
  fil(.10.):='GOTHB24';
  fil(.11.):='ITALIC18';
  fil(.12.):='ITALIC24';
  fil(.13.):='PUNC18';
  fil(.14.):='PUNC24';
  fil(.15.):='ROMAN18';
  fil(.16.):='ROMAN24';
  fil(.17.):='SROMAN24';
END;


BEGIN
  initfil;
  FOR fnr := 1 TO 17 DO
  BEGIN
    Writeln(LST,fil(.fnr.),#10);
    rnr:=2;
    Assign(f,fil(.fnr.)+'.FNT');
    Reset(f);
    WHILE NOT EOF(f) DO
    BEGIN
      Readln(f,rad);
      Writeln(LST,rad);
      rnr:=Succ(rnr);
      IF rnr=60 THEN
      BEGIN
        rnr:=0;
        Writeln(LST,#12);
      END;
    END;
    Close(f);
    Writeln(LST,#12);
  END;
  Writeln(LST,#12);
END.«eof»