/*           ** PR801 **

           BY ÔONY ÂERTRAM.

ÔHIS SHORT PROGRAM PRINTS Ã CHARACTERS
TO A ÃOMMODORE ÍÐÓ-801 OR COMPATABLE
PRINTER WHEN USED WITH Ã-ÐÏ×ÅÒ OR 
ÐÏ×ÅÒ-Ã.
     ÕSE THE FOLLOWING COMMAND LINE 
ARGUMENT:
   
$  PR801 < FILENAME.C >>

*/
 

#INCLUDE "STDIO.H"

MAIN()
Û
CHAR CH;

WHILE((CH=GETCHAR())!=ÅÏÆ)
 Û
 SWITCH(CH)
  Û
 CASE 'Ý':
  PRINTF("%C%C%C%C%C%C%C%C",08,193,193,182,136,136,128,15);
   BREAK;
 CASE 'Û':
  PRINTF("%C%C%C%C%C%C%C%C",08,136,136,182,193,193,128,15);
   BREAK;
  CASE '\\':
  PRINTF("%C%C%C%C%C%C%C%C",08,131,132,136,144,224,128,15);
   BREAK;
 CASE 'ß':
  PRINTF("%C%C%C%C%C%C%C%C",08,128,128,247,128,128,128,15);   
   BREAK;
 CASE '¯':
  PRINTF("%C%C%C%C%C%C%C%C",08,130,129,130,130,129,128,15);
   BREAK;
 CASE '"':
  PRINTF("%C%C%C%C%C%C%C%C",08,128,131,128,131,128,128,15);
   BREAK;
 DEFAULT:
   PUTCHAR(CH);
  Ý   
 Ý
Ý