home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mod2.hqx / m2-2.pit / Hiero.MOD < prev    next >
Encoding:
Text File  |  1985-02-24  |  746 b   |  29 lines
  1. MODULE Hieroglyphen;
  2.  
  3. FROM Terminal IMPORT ReadString, Read, Write, WriteString, WriteLn;
  4. FROM OutTerminal IMPORT WriteH;
  5. FROM QuickDraw IMPORT TextFont, TextSize;
  6.  
  7. VAR s: ARRAY [0..40] OF CHAR;
  8.  
  9.     ch,ch1: CHAR;  
  10.      k: INTEGER;
  11. CONST Chicago = 0;  Cairo = 11; Monaco = 4;
  12.      
  13.  BEGIN
  14.   WriteString (' Modula-2 Programm: Font Cairo   (Press Space)'); 
  15.   Read (ch1);
  16.   k := 0;
  17.   FOR ch := 40C TO 177C DO
  18.     IF k MOD 8 = 0 THEN WriteLn END;
  19.     TextFont (Monaco); TextSize (9);
  20.     Write (' ');WriteH (CARDINAL (ch),2); Write (' ');
  21.     Write (ch); Write (' ');
  22.     TextFont (Cairo); TextSize (18); Write (ch);
  23.     INC (k);
  24.     IF k MOD 30 = 0 THEN Read (ch1) END;
  25.   END;
  26.   TextFont (Monaco); TextSize (9); Read (ch);
  27.  END Hieroglyphen.
  28.  
  29.