|
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: 768 (0x300)
Types: TextFile
Names: »TESTS.PAS«
└─⟦c042bf94c⟧ Bits:30002694 SW1435 RcFont Release 1.3
└─⟦c042bf94c⟧ Bits:30005758 SW1435 RcFont Release 1.3
└─ ⟦this⟧ »TESTS.PAS«
PROGRAM testscreen;
(*$I FONTUTIL*)
VAR
font : FONTRECORD;
f : CHARSET;
fname : STRINGÆ15Å;
alpha : ALPHANO;
alpha_select: STRINGÆ4Å;
BEGIN
write('Tast navn på tegnsætfil: '); readln(fname);
write('Tast alfabet nr. (1-4) : '); readln(alpha);
CASE alpha OF
1: alpha_select := @27'h'@27'Q';
2: alpha_select := @27'g'@27'Q';
3: alpha_select := @27'h'@27'P';
4: alpha_select := @27'g'@27'P';
END;
IF NOT open_charset(f, fname, FONT_INPUT) THEN
writeln('Kan ikke åbne ', fname)
ELSE
BEGIN (* definer tegnsæt *)
WHILE read_font(f, font) = 0 DO
define_screen_font(alpha, font);
close_charset(f);
END;
writeln(alpha_select, 'Skriftprøve med nyt tegnsæt');
END.
«eof»