|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »TESTFG.PAS«
└─⟦c042bf94c⟧ Bits:30002694 SW1435 RcFont Release 1.3
└─⟦c042bf94c⟧ Bits:30005758 SW1435 RcFont Release 1.3
└─ ⟦this⟧ »TESTFG.PAS«
PROGRAM testfq;
(*$Ifontutil*)
VAR
fgtekst: TEXT;
BEGIN
assign(fgtekst, 'fgfile.tst');
rewrite(fgtekst);
writeln(fgtekst, '%%h2 b2 r2 <');
writeln(fgtekst, 'TEKST FRA FIL');
close(fgtekst);
open_font_graphics; (* open queues for fontgraphics *)
writefg(@27'A1'); (* select std characterset *)
writefg('%%b2 h1 r1 >'); (* command line *)
writefg('TEKST FRA PROGRAM'); (* textline *)
writefg(@27'Astd914'); (* select characterset: std914 *)
writefg(@27'Ffgfile.tst'); (* print file: fgfile.tst *)
writeln(lst, 'ALMINDELIG TEXT');
writefg(@27'Bus88'); (* add new characterset: us88 *)
writefg('%%b3 h2 r2');
writefg('TEKST MED ÆØÅ æøå');
writefg(@27'E'); (* Abort the fontqueue process *)
END. «eof»