|
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: 1024 (0x400)
Types: TextFile
Names: »TESTP.PAS«
└─⟦c042bf94c⟧ Bits:30002694 SW1435 RcFont Release 1.3
└─⟦c042bf94c⟧ Bits:30005758 SW1435 RcFont Release 1.3
└─ ⟦this⟧ »TESTP.PAS«
PROGRAM testprint;
(*$I FONTUTIL*)
VAR
font : FONTRECORD;
f : CHARSET;
printer: PRINTERTYPE;
fname : STRINGÆ15Å;
pname : STRINGÆ5Å;
BEGIN
write('Tast navn på tegnsætfil: ');
readln(fname);
write('Tast navn på skriver : '); readln(pname);
IF (pname = 'rc603') OR (pname = 'RC603') THEN printer := RC603 ELSE
IF (pname = 'rc604') OR (pname = 'RC604') THEN printer := RC604 ELSE
IF (pname = 'rc605') OR (pname = 'RC605') THEN printer := RC605 ELSE
writeln('Skrivernavnet: ', pname, ' kendes ikke');
IF NOT open_charset(f, fname, FONT_INPUT) THEN
writeln('Kan ikke åbne ', fname) ELSE
IF NOT open_printer_charset(printer) THEN
writeln('Kan ikke åbne ', pname)
ELSE
BEGIN (* definer skriver tegnsæt *)
writeln(lst,'Skriftprøve med standard-tegnsæt');
WHILE read_font(f, font) = 0 DO
define_printer_font(printer, font);
close_charset(f);
END;
close_printer_charset(printer);
writeln(lst,'Skriftprøve med blødt tegnsæt');
END.
«eof»