home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / charset.i next >
Text File  |  2023-02-26  |  249b  |  1 lines
  1. PROCEDURE Charset(n:INTEGER);¢¢ (* n=1: Internationaler Zeichensatz¢    n=2: Graphik-Zeichensatz¢    Linker Rand=0, Kleinschrift ein *)¢¢VAR CHBAS:^CHAR;¢¢BEGIN¢ CHBAS:=POINTER(756);¢ IF n=1 THEN CHBAS^:=CHR(204);¢ IF n=2 THEN CHBAS^:=CHR(224)¢END;¢