sources/new-s5r4/graf/hlineio.c

   1      /* Loglan82 Compiler&Interpreter\r
   2      Copyright (C) 1981-1993 Institute of Informatics, University of Warsaw\r
   3      Copyright (C)  1993, 1994 LITA, Pau\r
   4      \r
   5      This program is free software; you can redistribute it and/or modify\r
   6      it under the terms of the GNU General Public License as published by\r
   7      the Free Software Foundation; either version 2 of the License, or\r
   8      (at your option) any later version.\r
   9      \r
  10      This program is distributed in the hope that it will be useful,\r
  11      but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  13      GNU General Public License for more details.\r
  14      \r
  15 =======================================================================\r
  16 */\r
  17 \r
  18 /*
  19             OUTHLINE(dlugosc,bufor)
  20
  21                      Procedura OUTHLINE wywoluje HASCII dlugosc razy,
  22             wypisujac na ekran znaki, ktorych kody zawarte sa w buforze.
  23             Przed narysowaniem kazdego znaku wywolywane jest HASCII(0).
  24 */
  25
  26 #include "graf.h"
  27
  28 void pascal outhli( length, buf )
  29    int *length;
  30    char *buf;
  31 {
  32    int l = (*length) % 0x10000;
  33    int zero = 0;
  34    while( l-- > 0 )
  35    {
  36       hascii( &zero );
  37       hascii( (int *)(buf++) );
  38    }
  39 }
  40
  41 \r