home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac-Source 1994 July
/
Mac-Source_July_1994.iso
/
Modula
/
Source
/
Hiero.MOD
< prev
next >
Wrap
Text File
|
1985-04-26
|
746b
|
29 lines
MODULE Hieroglyphen;
FROM Terminal IMPORT ReadString, Read, Write, WriteString, WriteLn;
FROM OutTerminal IMPORT WriteH;
FROM QuickDraw IMPORT TextFont, TextSize;
VAR s: ARRAY [0..40] OF CHAR;
ch,ch1: CHAR;
k: INTEGER;
CONST Chicago = 0; Cairo = 11; Monaco = 4;
BEGIN
WriteString (' Modula-2 Programm: Font Cairo (Press Space)');
Read (ch1);
k := 0;
FOR ch := 40C TO 177C DO
IF k MOD 8 = 0 THEN WriteLn END;
TextFont (Monaco); TextSize (9);
Write (' ');WriteH (CARDINAL (ch),2); Write (' ');
Write (ch); Write (' ');
TextFont (Cairo); TextSize (18); Write (ch);
INC (k);
IF k MOD 30 = 0 THEN Read (ch1) END;
END;
TextFont (Monaco); TextSize (9); Read (ch);
END Hieroglyphen.