home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / bannrs11 / part02 < prev    next >
Encoding:
Text File  |  1993-04-10  |  87.5 KB  |  3,495 lines
  1. Newsgroups: comp.sources.unix
  2. From: fkk@stasys.sta.sub.org (Frank Kaefer)
  3. Subject: v26i142: banners - a collection of banner programs, V1.1, Part02/07
  4. Sender: unix-sources-moderator@vix.com
  5. Approved: paul@vix.com
  6.  
  7. Submitted-By: fkk@stasys.sta.sub.org (Frank Kaefer)
  8. Posting-Number: Volume 26, Issue 142
  9. Archive-Name: banners-1.1/part02
  10.  
  11. #! /bin/sh
  12. # This is a shell archive.  Remove anything before this line, then unpack
  13. # it by saving it into a file and typing "sh file".  To overwrite existing
  14. # files, type "sh file -c".  You can also feed this as standard input via
  15. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  16. # will see the following message at the end:
  17. #        "End of archive 2 (of 7)."
  18. # Contents:  banner-01/banner.c banner-04/sysvbanner.c banner-05/kban.c
  19. #   banner-05/lban.c banner-05/sban.c banner-07/banner.c
  20. #   banner-11/MB_Font.uu banner-11/Read.Me banner-11/mb.c
  21. #   banner-13/cyrban.c cursive-01/cursive.c cursive-02/cursive.c
  22. # Wrapped by vixie@gw.home.vix.com on Sun Apr 11 23:19:19 1993
  23. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  24. if test -f 'banner-01/banner.c' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'banner-01/banner.c'\"
  26. else
  27. echo shar: Extracting \"'banner-01/banner.c'\" \(5255 characters\)
  28. sed "s/^X//" >'banner-01/banner.c' <<'END_OF_FILE'
  29. X/*
  30. X * The ultimative banner.
  31. X *
  32. X * Written in 1987 by Wolfgang Ocker, reccoware systems, Puchheim
  33. X *
  34. X * It's *not* fast, but nice ...
  35. X *
  36. X * Tested on OS-9/68000, SunOS
  37. X */
  38. X
  39. X#include <stdio.h>
  40. X#ifdef OSK
  41. X#include <modes.h>
  42. X#else
  43. X#define S_IREAD 0
  44. X#endif
  45. X
  46. X
  47. X#define TRUE  1
  48. X#define FALSE 0
  49. X
  50. extern unsigned char charset;      /* Zeichensatz */
  51. extern int           errno;
  52. X
  53. X#ifdef OSK
  54. X/*
  55. X * Signal Handler (Dummy)
  56. X */
  57. int sighandler()
  58. X{
  59. X}
  60. X#endif
  61. X
  62. X/*
  63. X * m a i n
  64. X */
  65. main(argc, argv)
  66. X  int  argc;
  67. X  char *argv[];
  68. X{
  69. X  char          *str, strbuf[200];
  70. X  int           linenum, chnum, i, j, k, count, strnum;
  71. X  unsigned char ch;
  72. X  int           ch_off;
  73. X  unsigned char *ch_addr;
  74. X  unsigned char *font;
  75. X  int           italic, dblsize, samechar;
  76. X  char          bannerchar;
  77. X  FILE          *infp;  
  78. X  char          *from, *plife;
  79. X
  80. X  italic     = dblsize = samechar = FALSE;
  81. X  strnum     = 0;
  82. X  from       = NULL;
  83. X  bannerchar = '*';
  84. X  plife      = NULL;
  85. X
  86. X  /*
  87. X   * Get the arguments. I *hate* getopt(:-). This works nice (and is
  88. X   * simpler).
  89. X   */
  90. X  for (i = 1; i < argc; i++)
  91. X    if (argv[i][0] == '-')
  92. X      for (j = 1; j < strlen(argv[i]); j++)
  93. X        switch(tolower(argv[i][j])) {
  94. X          case '?':
  95. X            usage();
  96. X            exit(1);
  97. X            
  98. X          case 'i':     /* italic printing */
  99. X            italic = TRUE;
  100. X            break;          
  101. X
  102. X          case 'd':     /* double sized characters */
  103. X            dblsize = TRUE;
  104. X            break;
  105. X  
  106. X          case 's':     /* use character to build large char, e.g.
  107. X                         * c becomes
  108. X                         *
  109. X                         *  ccc
  110. X                         * c   
  111. X                         * c          (or so ...)
  112. X                         *  ccc
  113. X                         */
  114. X            samechar = TRUE;
  115. X            break;
  116. X
  117. X#ifdef OSK          
  118. X          case 'l':
  119. X            plife = argv[i] + j + (argv[i][j+1] == '=' ? 2 : 1);
  120. X            j = strlen(argv[i]);
  121. X            break;
  122. X#endif
  123. X  
  124. X          case 'c':       /* character for banner */
  125. X            j += argv[i][j+1] == '=' ? 2 : 1;
  126. X            bannerchar = argv[i][j];
  127. X            break;
  128. X 
  129. X          case 'z':       /* get text from ... */
  130. X            if (from) {
  131. X              usage();
  132. X              fputs("multiple 'z' option not allowed\n", stderr);
  133. X              exit(1);
  134. X            }
  135. X
  136. X            from = argv[i] + j + (argv[i][j+1] == '=' ? 2 : 1);
  137. X            j = strlen(argv[i]);
  138. X            break;
  139. X
  140. X          default:
  141. X            usage();
  142. X            fprintf(stderr, "banner: unknown option '%c'\n", argv[i][j]);
  143. X            exit(1);
  144. X        }
  145. X    else
  146. X      strnum++;     /* count number of strings */
  147. X
  148. X  if (strnum == 0 && from == NULL) {
  149. X    usage();
  150. X#ifdef OSK
  151. X    exit(_errmsg(1, "no string given\n"));
  152. X#else
  153. X    exit(fputs("no string given\n", stderr), 1);
  154. X#endif
  155. X  }
  156. X
  157. X  if (strnum && from) {
  158. X    usage();
  159. X#ifdef OSK
  160. X    exit(_errmsg(1, "'z' option not allowed if string(s) given\n"));
  161. X#else
  162. X  exit(fputs("'z' option not allowed if string(s) given\n", stderr), 1);
  163. X#endif
  164. X  }
  165. X
  166. X  if (from) {
  167. X    if (from[0]) {
  168. X      if ((infp = fopen(from, "r")) == NULL)
  169. X#ifdef OSK
  170. X        exit(_errmsg(errno, "can't open '%s'\n", from));
  171. X#else
  172. X        exit(fprintf(stderr, "can't open '%s'\n", from), errno);
  173. X#endif
  174. X    }
  175. X    else
  176. X      infp = stdin;
  177. X
  178. X  }
  179. X
  180. X#ifdef OSK
  181. X  if (plife && !strcmp(plife, "dont_kill_me"))
  182. X    intercept(sighandler);
  183. X#endif
  184. X
  185. X  font = &charset;
  186. X  str  = strbuf;
  187. X
  188. X  i = 1;
  189. X  while (TRUE) {
  190. X    if (from) {     /* read strings from file/stdin */
  191. X      if (fgets(strbuf, sizeof(strbuf)-1, infp) == NULL)
  192. X        break;
  193. X      strbuf[strlen(strbuf)-1] = '\0';
  194. X    }
  195. X    else {        /* get strings from argument line */
  196. X      if ((str = argv[i++]) == NULL)
  197. X        break;
  198. X      if (str[0] == '-')
  199. X        continue;
  200. X    }
  201. X       
  202. X    for (linenum = 0; linenum < 8; linenum++) {     /* 8 lines per char */
  203. X      for (j = 0; j < (dblsize ? 2 : 1); j++) {
  204. X        putchar('\n');
  205. X
  206. X        if (italic)     /* shift for italics */
  207. X          for (k = linenum; k < 7; k++)
  208. X            fputs(dblsize ? "  " : " ", stdout);
  209. X
  210. X        for (chnum = 0; chnum < strlen(str); chnum++) {
  211. X          ch      = str[chnum];
  212. X          ch_off  = (int) ch * 8;
  213. X          ch_addr = font + ch_off + linenum;
  214. X          outline(ch, *ch_addr, dblsize, bannerchar, samechar);
  215. X        }
  216. X      } 
  217. X    }
  218. X  }
  219. X
  220. X  putchar('\n');
  221. X}
  222. X
  223. X/*
  224. X * o u t l i n e
  225. X */
  226. outline(outchar, outbyte, dblsize, bannerchar, samechar)
  227. X  char outchar, outbyte, bannerchar;
  228. X  int  dblsize, samechar;
  229. X
  230. X{
  231. X  int bc, j;
  232. X
  233. X  for (bc = 7; bc >= 0; bc--)
  234. X    for (j = 0; j < (dblsize ? 2 : 1); j++)
  235. X      if (outbyte & (0x01 << bc))
  236. X        putchar((samechar) ? outchar : bannerchar);
  237. X      else
  238. X        putchar(' ');
  239. X}
  240. X
  241. X/*
  242. X * u s a g e
  243. X */
  244. usage()
  245. X{
  246. X  fputs("Syntax: banner [<opts>] {<string>} [<opts>]\n", stderr);
  247. X  fputs("Function: prints a banner to stdout\n", stderr);
  248. X  fputs("Options:\n", stderr);
  249. X  fputs("     -i          prints italic\n", stderr);
  250. X  fputs("     -d          double size\n", stderr);
  251. X  fputs("     -c=<char>   character\n", stderr);
  252. X  fputs("     -s          use same character\n", stderr);
  253. X  fputs("     -z          read strings from standard input\n", stderr);
  254. X  fputs("     -z=<file>   read strings from <file>\n", stderr);
  255. X}
  256. END_OF_FILE
  257. if test 5255 -ne `wc -c <'banner-01/banner.c'`; then
  258.     echo shar: \"'banner-01/banner.c'\" unpacked with wrong size!
  259. fi
  260. # end of 'banner-01/banner.c'
  261. fi
  262. if test -f 'banner-04/sysvbanner.c' -a "${1}" != "-c" ; then 
  263.   echo shar: Will not clobber existing file \"'banner-04/sysvbanner.c'\"
  264. else
  265. echo shar: Extracting \"'banner-04/sysvbanner.c'\" \(6293 characters\)
  266. sed "s/^X//" >'banner-04/sysvbanner.c' <<'END_OF_FILE'
  267. X/*****************************************************************
  268. X * 
  269. X * SYSVbanner.c
  270. X * 
  271. X * This is a PD version of the SYS V banner program (at least I think 
  272. X * it is compatible to SYS V) which I wrote to use with the clock 
  273. X * program written by:
  274. X **     DCF, Inc.
  275. X **     14623 North 49th Place
  276. X **     Scottsdale, AZ 85254
  277. X * and published in the net comp.sources.misc newsgroup in early July 
  278. X * since the BSD banner program works quite differently.
  279. X * 
  280. X * There is no copyright or responsibility accepted for the use
  281. X * of this software.
  282. X * 
  283. X * Brian Wallis, brw@jim.odr.oz, 4 July 1988
  284. X *
  285. X *****************************************************************/
  286. X
  287. char *glyphs[] = {
  288. X"         @@@  @@@ @@@  @ @   @@@@@ @@@   @  @@     @@@  ",
  289. X"         @@@  @@@ @@@  @ @  @  @  @@ @  @  @  @    @@@   ",
  290. X"         @@@   @   @ @@@@@@@@  @   @@@ @    @@      @   ",
  291. X"          @            @ @   @@@@@    @    @@@     @    ",
  292. X"                     @@@@@@@   @  @  @ @@@@   @ @       ",
  293. X"         @@@           @ @  @  @  @ @  @ @@    @        ",
  294. X"         @@@           @ @   @@@@@ @   @@@ @@@@ @       ",
  295. X
  296. X"   @@    @@                                            @",
  297. X"  @        @   @   @    @                             @ ",
  298. X" @          @   @ @     @                            @  ",
  299. X" @          @ @@@ @@@ @@@@@   @@@   @@@@@           @   ",
  300. X" @          @   @ @     @     @@@           @@@    @    ",
  301. X"  @        @   @   @    @      @            @@@   @     ",
  302. X"   @@    @@                   @             @@@  @      ",
  303. X
  304. X"  @@@     @    @@@@@  @@@@@ @      @@@@@@@ @@@@@ @@@@@@@",
  305. X" @   @   @@   @     @@     @@    @ @      @     @@    @ ",
  306. X"@ @   @ @ @         @      @@    @ @      @          @  ",
  307. X"@  @  @   @    @@@@@  @@@@@ @@@@@@@ @@@@@ @@@@@@    @   ",
  308. X"@   @ @   @   @            @     @       @@     @  @    ",
  309. X" @   @    @   @      @     @     @ @     @@     @  @    ",
  310. X"  @@@   @@@@@ @@@@@@@ @@@@@      @  @@@@@  @@@@@   @    ",
  311. X
  312. X" @@@@@  @@@@@    @     @@@      @           @     @@@@@ ",
  313. X"@     @@     @  @ @    @@@     @             @   @     @",
  314. X"@     @@     @   @            @     @@@@@     @        @",
  315. X" @@@@@  @@@@@@         @@@   @                 @     @@ ",
  316. X"@     @      @   @     @@@    @     @@@@@     @     @   ",
  317. X"@     @@     @  @ @     @      @             @          ",
  318. X" @@@@@  @@@@@    @     @        @           @       @   ",
  319. X
  320. X" @@@@@    @   @@@@@@  @@@@@ @@@@@@ @@@@@@@@@@@@@@ @@@@@ ",
  321. X"@     @  @ @  @     @@     @@     @@      @      @     @",
  322. X"@ @@@ @ @   @ @     @@      @     @@      @      @      ",
  323. X"@ @ @ @@     @@@@@@@ @      @     @@@@@@  @@@@@  @  @@@@",
  324. X"@ @@@@ @@@@@@@@     @@      @     @@      @      @     @",
  325. X"@     @@     @@     @@     @@     @@      @      @     @",
  326. X" @@@@@ @     @@@@@@@  @@@@@ @@@@@@ @@@@@@@@       @@@@@ ",
  327. X
  328. X"@     @  @*@        @@    @ @      @     @@     @@@@@@@@",
  329. X"@     @   @         @@   @  @      @@   @@@@    @@     @",
  330. X"@     @   @         @@  @   @      @ @ @ @@ @   @@     @",
  331. X"@@@@@@@   @         @@@@    @      @  @  @@  @  @@     @",
  332. X"@     @   @   @     @@  @   @      @     @@   @ @@     @",
  333. X"@     @   @   @     @@   @  @      @     @@    @@@     @",
  334. X"@     @  @@@   @@@@@ @    @ @@@@@@@@     @@     @@@@@@@@",
  335. X
  336. X"@@@@@@  @@@@@ @@@@@@  @@@@@ @@@@@@@@     @@     @@     @",
  337. X"@     @@     @@     @@     @   @   @     @@     @@  @  @",
  338. X"@     @@     @@     @@         @   @     @@     @@  @  @",
  339. X"@@@@@@ @     @@@@@@@  @@@@@    @   @     @@     @@  @  @",
  340. X"@      @   @ @@   @        @   @   @     @ @   @ @  @  @",
  341. X"@      @    @ @    @ @     @   @   @     @  @ @  @  @  @",
  342. X"@       @@@@ @@     @ @@@@@    @    @@@@@    @    @@ @@ ",
  343. X
  344. X"@     @@     @@@@@@@@ @@@@@ @       @@@@@    @          ",
  345. X" @   @  @   @      @  @      @          @   @ @         ",
  346. X"  @ @    @ @      @   @       @         @  @   @        ",
  347. X"   @      @      @    @        @        @               ",
  348. X"  @ @     @     @     @         @       @               ",
  349. X" @   @    @    @      @          @      @               ",
  350. X"@     @   @   @@@@@@@ @@@@@       @ @@@@@        @@@@@@@",
  351. X
  352. X"  @@@                                                   ",
  353. X"  @@@     @@   @@@@@   @@@@  @@@@@  @@@@@@ @@@@@@  @@@@ ",
  354. X"   @     @  @  @    @ @    @ @    @ @      @      @    @",
  355. X"    @   @    @ @@@@@  @      @    @ @@@@@  @@@@@  @     ",
  356. X"        @@@@@@ @    @ @      @    @ @      @      @  @@@",
  357. X"        @    @ @    @ @    @ @    @ @      @      @    @",
  358. X"        @    @ @@@@@   @@@@  @@@@@  @@@@@@ @       @@@@ ",
  359. X 
  360. X"                                                        ",
  361. X" @    @    @        @ @    @ @      @    @ @    @  @@@@ ",
  362. X" @    @    @        @ @   @  @      @@  @@ @@   @ @    @",
  363. X" @@@@@@    @        @ @@@@   @      @ @@ @ @ @  @ @    @",
  364. X" @    @    @        @ @  @   @      @    @ @  @ @ @    @",
  365. X" @    @    @   @    @ @   @  @      @    @ @   @@ @    @",
  366. X" @    @    @    @@@@  @    @ @@@@@@ @    @ @    @  @@@@ ",
  367. X 
  368. X"                                                        ",
  369. X" @@@@@   @@@@  @@@@@   @@@@   @@@@@ @    @ @    @ @    @",
  370. X" @    @ @    @ @    @ @         @   @    @ @    @ @    @",
  371. X" @    @ @    @ @    @  @@@@     @   @    @ @    @ @    @",
  372. X" @@@@@  @  @ @ @@@@@       @    @   @    @ @    @ @ @@ @",
  373. X" @      @   @  @   @  @    @    @   @    @  @  @  @@  @@",
  374. X" @       @@@ @ @    @  @@@@     @    @@@@    @@   @    @",
  375. X 
  376. X"                       @@@     @     @@@   @@    @ @ @ @",
  377. X" @    @  @   @ @@@@@@ @        @        @ @  @  @ @ @ @ ",
  378. X"  @  @    @ @      @  @        @        @     @@ @ @ @ @",
  379. X"   @@      @      @  @@                 @@        @ @ @ ",
  380. X"   @@      @     @    @        @        @        @ @ @ @",
  381. X"  @  @     @    @     @        @        @         @ @ @ ",
  382. X" @    @    @   @@@@@@  @@@     @     @@@         @ @ @ @"};
  383. X
  384. X
  385. main(argc,argv)
  386. X     int argc;
  387. X     char *argv[];
  388. X{
  389. X  int a,b,c,len,ind;
  390. X  char line[80];
  391. X
  392. X  for(argv++;--argc;argv++){
  393. X    len=strlen(*argv);
  394. X    if(len>10)
  395. X      len=10;
  396. X    for(a=0;a<7;a++){
  397. X      for(b=0;b<len;b++){
  398. X        if((ind=(*argv)[b]-' ')<0)
  399. X          ind=0;
  400. X        for(c=0;c<7;c++){
  401. X          line[b*8+c] = glyphs[(ind/8*7)+a][(ind%8*7)+c];
  402. X        }
  403. X        line[b*8+7] = ' ';
  404. X      }
  405. X      for(b=len*8-1;b>=0;b--){
  406. X        if(line[b]!=' ')
  407. X          break;
  408. X        line[b]='\0';
  409. X      }
  410. X      puts(line);
  411. X    }
  412. X    puts("");
  413. X  }
  414. X}
  415. END_OF_FILE
  416. if test 6293 -ne `wc -c <'banner-04/sysvbanner.c'`; then
  417.     echo shar: \"'banner-04/sysvbanner.c'\" unpacked with wrong size!
  418. fi
  419. # end of 'banner-04/sysvbanner.c'
  420. fi
  421. if test -f 'banner-05/kban.c' -a "${1}" != "-c" ; then 
  422.   echo shar: Will not clobber existing file \"'banner-05/kban.c'\"
  423. else
  424. echo shar: Extracting \"'banner-05/kban.c'\" \(5312 characters\)
  425. sed "s/^X//" >'banner-05/kban.c' <<'END_OF_FILE'
  426. X/********************************************************/
  427. X/*                            */
  428. X/*    SEMI's BANNER ( Ver 1.21- ) :            */
  429. X/*                            */
  430. X/*        made    by Koh,BongGyun            */
  431. X/*            in '91.4 ( Ver 1.0- )        */
  432. X/*               '91.5 ( Ver 1.11- )        */
  433. X/*               '91.9            */
  434. X/*                            */
  435. X/*        e-mail to e910017@xserver.kaist.ac.kr    */
  436. X/*                            */
  437. X/********************************************************/
  438. X
  439. X#include <stdio.h>
  440. X
  441. X#define    END    '\0'
  442. X#define    NO    -1
  443. X#define DATFILE    "kbandat.c"
  444. X
  445. X#include DATFILE
  446. X
  447. char    *data;                /* data inputed */
  448. short    font[ _WIDTH+2 ][ MAX_LEN ];    /* font data to output */
  449. X    /* font[ _WIDTH ] : width of letter, font[ _WIDTH+1 ] : cmode */
  450. X
  451. short    count;    /* pass1: now reading count-th character in data */
  452. X        /* output: now reading count-th font */
  453. short    digit;    /* pass1: now making digit-th font */
  454. X        /* output: total digits of font */
  455. X
  456. main( argc, argv )
  457. X    short    argc;
  458. X    char    *argv[];
  459. X{
  460. X    int    i;
  461. X    void    pass1(), output();
  462. X
  463. X    if ( argc == 1 )    puts( ":)" );    /* refuse if no strings */
  464. X    else    for ( i=1 ; i < argc ; ++i ) {
  465. X            data = argv[ i ];    /* data is the i-th string */
  466. X            count = digit = 0;
  467. X
  468. X            pass1();    /* making font */
  469. X            output();    /* output font with compression */
  470. X        }
  471. X}
  472. X
  473. void    pass1()        /* making font following data */
  474. X{
  475. X    short    kor =NO, i;
  476. X    void    make_eng(), make_kor();
  477. X
  478. X    while ( data[ count ] != END )
  479. X        if ( data[ count ] == CMD_CHR )
  480. X            if ( data[ ++count ] == CMD_CHR )    /* double CMD_CHR is one normal character */
  481. X                make_eng();
  482. X            else
  483. X            switch ( instr( mod_chr, data[ count ] ) + 1 ) {
  484. X              case 0:    /* toggle Korean mode */
  485. X                kor = -kor;    break;
  486. X              case 1:    /* change choice char's */
  487. X                if ( ( i = data[ ++count ] - '0' ) < 0 || i >= N_CMODE )
  488. X                    cmode = 0;
  489. X                else {    cmode = i;        ++count; }
  490. X                break;
  491. X              case 2:    /* change English letter types */
  492. X                if ( ( i = data[ ++count ] - '0' ) < 0 || i >= N_MODE )
  493. X                    mode = 0;
  494. X                else {    mode = i;        ++count; }
  495. X            }
  496. X        else if ( kor == NO )    make_eng();
  497. X        else            make_kor();
  498. X}
  499. X
  500. void    output()    /* output font with compression */
  501. X{
  502. X    short    i;
  503. X    void    output1();
  504. X
  505. X    for ( i=0 ; i < WIDTH ; i+=2 ) {
  506. X        output1( font[ i ], font[ i+1 ] );    /* compress two lines into one line and output it */
  507. X        putchar( '\n' );
  508. X    }
  509. X}
  510. X
  511. void    output1( font1, font2 )        /* compress two lines and output */
  512. X    short    *font1, *font2;
  513. X{
  514. X    short    i;
  515. X    void    output2();
  516. X
  517. X    for ( i=0 ; i < digit ; ++i )
  518. X        output2( font1[ i ], font2[ i ], font[ _WIDTH ][ i ], font[ _WIDTH+1 ][ i ] );    /* output one digit font in two lines with compression */
  519. X}
  520. X
  521. void    output2( f1, f2, len, cmode )        /* output a digit font with compression */
  522. X    short    f1, f2;
  523. X    short    len;
  524. X    short    cmode;
  525. X{
  526. X    short    choice, i;
  527. X
  528. X    for ( i=stepspace ; i > 0 ; --i )
  529. X        putchar( font_choice[ cmode ][ 0 ] );
  530. X    while ( ( len /= 2 ) > 0 ) {
  531. X        choice = ( f1 / len ) * 2 + ( f2 / len );    /* get the choice determining the character to output */
  532. X        putchar( font_choice[ cmode ][ choice ] );    /* output a bit character */
  533. X        f1 %= len; f2 %= len;
  534. X    }
  535. X}
  536. X
  537. void    make_eng()    /* making font in English mode */
  538. X{
  539. X    short    i, in;
  540. X
  541. X    if ( ( in = instr( eng_chr, data[ count++ ] ) ) != NO ) {
  542. X        for ( i=0 ; i < WIDTH ; ++i )
  543. X            font[ i ][ digit ] = eng_fnt[ mode ][ in ][ i ];    /* read font */
  544. X        font[ _WIDTH ][ digit ] = eng_fnt[ mode ][ in ][ i ];        /* read the width */
  545. X        font[ _WIDTH+1 ][ digit++ ] = cmode;
  546. X    }
  547. X}
  548. X
  549. void    make_kor()    /* making font in Korean mode */
  550. X{
  551. X    short    fir, sec, thi, i;
  552. X    short    att_f =0, att_s =0;
  553. X
  554. X    if ( ( fir = instr( kor_key[ 0 ], data[ count ] ) ) != NO )
  555. X        ++count;
  556. X    if ( ( sec = instr( kor_key[ 1 ], data[ count ] ) ) != NO ) {
  557. X        if ( sec >= 9 ) {
  558. X            ++att_f;
  559. X            switch ( instr( "hnm", data[ count++ ] ) + 1 ) {
  560. X              case 1:
  561. X                if ( ( i = instr( "kol", data[ count ] ) ) != NO ) {
  562. X                    sec += i+1;    ++count;    ++att_f;
  563. X                }
  564. X                break;
  565. X              case 2:
  566. X                if ( ( i = instr( "jpl", data[ count ] ) ) != NO ) {
  567. X                    sec += i+1;    ++count;    ++att_f;
  568. X                }
  569. X                break;
  570. X              case 3:
  571. X                if ( data[ count ] == 'l' ) {
  572. X                    ++sec;        ++count;    ++att_f;
  573. X                }
  574. X            }
  575. X        }
  576. X        else    ++count;
  577. X        if ( ( thi = instr( kor_key[ 2 ], data[ count ] ) ) != NO &&
  578. X             instr( kor_key[ 1 ], data[ count+1 ] ) == NO ) {
  579. X            att_f += 3;    att_s = 1;
  580. X            if ( ( i = instr( "rsfq", data[ count++ ] ) ) != NO &&
  581. X                 instr( kor_key[ 1 ], data[ count+1 ] ) == NO ) {
  582. X                switch ( i ) {
  583. X                  case 0:
  584. X                    if ( data[ count ] == 't' ) {
  585. X                        ++thi;        ++count;
  586. X                    }
  587. X                    break;
  588. X                  case 1:
  589. X                    if ( ( i = instr( "wg", data[ count ] ) ) != NO ) {
  590. X                        thi += i+1;    ++count;
  591. X                    }
  592. X                    break;
  593. X                  case 2:
  594. X                    if ( ( i = instr( "raqtxvg", data[ count ] ) ) != NO ) {
  595. X                        thi += i+1;    ++count;
  596. X                    }
  597. X                    break;
  598. X                  case 3:
  599. X                    if ( data[ count ] == 't' ) {
  600. X                        ++thi;        ++count;
  601. X                    }
  602. X                }
  603. X            }
  604. X        }
  605. X    }
  606. X
  607. X    if ( fir == NO && sec == NO )
  608. X        make_eng();    /* if not Korean letter, deal it as English */
  609. X    else {
  610. X        for ( i=0 ; i < WIDTH ; ++i ) {
  611. X            font[ i ][ digit ] = ( fir != NO ) ? fir_fnt[ att_f ][ fir ][ i ] : 0;
  612. X            if ( sec != NO ) {
  613. X                font[ i ][ digit ] |= sec_fnt[ att_s ][ sec ][ i ];
  614. X                if ( att_s != 0 )    font[ i ][ digit ] |= thi_fnt[ 0 ][ thi ][ i ];
  615. X            }
  616. X        }
  617. X        font[ _WIDTH ][ digit ] = KOR_LEN;
  618. X        font[ _WIDTH+1 ][ digit++ ] = cmode;
  619. X    }
  620. X}
  621. X
  622. instr( str, ch )    /* return the position of ch in str, if no position, NO */
  623. X    char    *str;
  624. X    char    ch;
  625. X{
  626. X    short    i =0;
  627. X
  628. X    while ( ch != str[ i ] && str[ i ] != END )    ++i;
  629. X    if ( str[ i ] == END )    i = NO;        /* if no position, return NO */
  630. X    return( i );
  631. X}
  632. X
  633. END_OF_FILE
  634. if test 5312 -ne `wc -c <'banner-05/kban.c'`; then
  635.     echo shar: \"'banner-05/kban.c'\" unpacked with wrong size!
  636. fi
  637. # end of 'banner-05/kban.c'
  638. fi
  639. if test -f 'banner-05/lban.c' -a "${1}" != "-c" ; then 
  640.   echo shar: Will not clobber existing file \"'banner-05/lban.c'\"
  641. else
  642. echo shar: Extracting \"'banner-05/lban.c'\" \(6638 characters\)
  643. sed "s/^X//" >'banner-05/lban.c' <<'END_OF_FILE'
  644. X/* Large Korean Banner */
  645. X
  646. X#include <stdio.h>
  647. X
  648. X#define TOTAL 37
  649. X
  650. X#define CW   6   /* character width */
  651. X#define CL   3   /* character length */ 
  652. X
  653. X#define SD   2   /* shift down */ 
  654. X#define SR   3   /* shift right */ 
  655. X#define SB   1   /* shift below */
  656. X
  657. X#define MC   6  /* max characters */
  658. X
  659. X#define DFName "/ufo2/fcode/e880505/Bin/lban.dat"    /* data file name */
  660. X
  661. static char alpha[]={"abcdefghijklmnopqrstuvwxyzQWERTOP?!.,"};
  662. static char c[]={"acdefgqrstvwxzQWERT"};  /* consonant */
  663. static char v1[]={"ijklopuOP"}; 
  664. static char v2[]={"bhmny"};
  665. static char s[]={"?!.,"};
  666. X
  667. struct FONT  {
  668. X    int   address;
  669. X    short type;
  670. X    }  a[TOTAL];  
  671. X
  672. int  b[MC*4];    /*  board  */
  673. int  t[MC*4];    /*  taget  */
  674. X
  675. char board[2*CL+3][(CW*2-1)*MC+3]; 
  676. char *receiver;
  677. X
  678. short  word_counter = 0;
  679. X
  680. main(argc,argv)
  681. int argc;
  682. char *argv[];
  683. X{ 
  684. X    int number ; 
  685. X    
  686. X    if( argc != 2 && argc !=3 ) {Error("?"); Quit();} 
  687. X    if(argc == 3 )  receiver = argv[2];
  688. X    make_font(); 
  689. X    clear_board();
  690. X    number=make_board(argv[1]);
  691. X    load_board(number);
  692. X    print_board(argc-2);
  693. X    fflush(stdout);
  694. X}
  695. clear_board()
  696. X{
  697. X    int i,j;
  698. X
  699. X    for(i=0;i<2*CL+3; i++ ){
  700. X        for( j=0; j< (CW*2-1)*MC; j++)
  701. X            board[i][j] = ' ';
  702. X        board[i][j] = 0;
  703. X    }
  704. X}
  705. X
  706. contractor( index ,num)
  707. int index;
  708. int num;
  709. X{
  710. X    int i,j;
  711. X    int what, mwhat;
  712. X            
  713. X    switch( t[index] ){
  714. X        case 3:
  715. X            return 0;
  716. X            break;
  717. X        case 1: 
  718. X            if( index > 0 ) {
  719. X                    if( t[index-1] ==2 ) return 2;
  720. X                    else return 1;
  721. X                    }
  722. X            else return 1;
  723. X            break;
  724. X        case 2:
  725. X            return 3;
  726. X            break;
  727. X        case 0:
  728. X            if(index==0 ) return 0;
  729. X            if( index <num-1 ) { 
  730. X                what = contractor(index+1, num );
  731. X                if( what ==1 || what ==2 || what == 3 ) return 0;
  732. X                if( what == 0 ) {
  733. X                    mwhat = t[index-1] ;
  734. X                    if( mwhat== 1 ) {
  735. X                        mwhat = contractor(index-1, num );
  736. X                        if( mwhat== 1) return 8;
  737. X                        if(mwhat == 2) return 9;
  738. X                        }
  739. X                    if( mwhat == 2) {
  740. X                            return 6;
  741. X                        }
  742. X                    if( mwhat== 0) {
  743. X                        mwhat = contractor( index-2);
  744. X                        if(mwhat == 1) return 5;
  745. X                        if(mwhat == 2) return 7;
  746. X                        if(mwhat == 3) return 7;
  747. X                        }
  748. X                    } /* if */
  749. X                  else{ 
  750. X                    mwhat = contractor( index-1, num );
  751. X                    if(mwhat == 1 ) return 4;
  752. X                    if(mwhat == 2 ) return 6;
  753. X                    if(mwhat == 3 ) return 6;
  754. X                    }
  755. X                }    /*  if */
  756. X            else { 
  757. X                what = t[index-1];
  758. X                if(what == 0) {
  759. X                    mwhat = contractor(index-2, num);
  760. X                    if( mwhat == 3 )  return 7;
  761. X                    if( mwhat == 1 ) return 5;
  762. X                    if(mwhat ==2 ) return 7;
  763. X                    }
  764. X                what = contractor( index-1 , num );
  765. X                if( what == 3 ) return 6;
  766. X                if( what == 1 ) return 8;
  767. X                if( what == 2 ) return 9;
  768. X                }
  769. X        break;
  770. X        } /* swtich */
  771. X} /* end of procedure */
  772. X
  773. X
  774. X
  775. load_board( num )
  776. int num;
  777. X{
  778. X    int i;
  779. X    int x=0 ,y=0 ;    /* location of a charcater */
  780. X    int tx, ty ;   /* location of a alphabet */ 
  781. X    short  what;
  782. X    
  783. X    for( i=0; i< num ; i++ ){ 
  784. X        what = contractor(i,num); 
  785. X        switch( what ){
  786. X            case 0:
  787. X                if(i!=0) { x+=CW*2-1 ;  }
  788. X                tx=x; ty = y;
  789. X                word_counter++;
  790. X                if( word_counter > MC ) {Error("Too many characters");Quit();}
  791. X                break;
  792. X            case 1:
  793. X                tx = x+CW ;
  794. X                ty=y;
  795. X                break;
  796. X            case 2: 
  797. X                tx= x+CW;
  798. X                ty= y+SB ;
  799. X                break; 
  800. X            case 3: 
  801. X                tx = x; 
  802. X                ty = y+CL ;
  803. X                break;
  804. X            case 4:
  805. X                tx = x ;
  806. X                ty = y+CL ;
  807. X                break; 
  808. X            case 5:
  809. X                tx= x+CW ;
  810. X                ty = y+CL;
  811. X                break;
  812. X            case 6:
  813. X                tx = x;
  814. X                ty = y+CL+SD ;
  815. X                break;
  816. X            case 7:
  817. X                tx = x+CW;
  818. X                ty = y+CL+SD;
  819. X                break;
  820. X            case 8:
  821. X                tx = x+ SR;
  822. X                ty = y+CL;
  823. X                break;
  824. X            case 9:
  825. X                tx = x +SR;
  826. X                ty= y+CL+SD;
  827. X                break;
  828. X            default:
  829. X                break;
  830. X                }  /* switch */
  831. X        sculpture( tx,ty, b[i] );
  832. X        }   /*  for */
  833. X}   /*  end of function */    
  834. X
  835. sculpture( x, y, index )
  836. int x,y, index;
  837. X{
  838. X    FILE *fptr;
  839. X    char str[20],len;
  840. X    int i,j;
  841. X
  842. X    if( NULL == (fptr=fopen(DFName,"r"))) { Error("!"); Quit();}
  843. X    fseek(fptr, (long)(a[index].address), 0 );
  844. X    for(i=0; i< CL ; i++ ){
  845. X        fgets( str, CW+5, fptr);
  846. X        len = strlen( str );
  847. X        str[ len-1] =' '; len--;
  848. X        for(j=0 ; j <len ; j++ ){
  849. X            board[y+i][x+j] = str[j] ; 
  850. X        }  /*  for */
  851. X    }  /* for */
  852. X    fclose(fptr);
  853. X}
  854. compress(str)
  855. char *str;
  856. X{
  857. X    int i,len ;
  858. X    len = strlen(str);
  859. X    for(i=0; i<len ; i++ )
  860. X        if( str[i] != ' ')  return 1;
  861. X    return 0;
  862. X}
  863. X
  864. X
  865. print_board(mode)
  866. short mode;
  867. X{
  868. X    int i,  limit;
  869. X
  870. X    for(i=0; i < CL*2+3 ; i++ )
  871. X        if( compress(board[i]) ) limit=i;
  872. X
  873. X    board_optimize( limit );
  874. X    board_compress( limit );
  875. X        
  876. X    if(mode == 0 ) {
  877. puts("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~");
  878. X        for(i=0 ; i <= limit ; i++ ){
  879. X                    puts( board[i]);
  880. X                    fflush(stdout);
  881. X                    }
  882. puts("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n");
  883. X    fflush(stdout);
  884. X                }
  885. X    else if( mode==1 )   for(i=0 ; i <= limit ; i++ )
  886. X                            printf("%s:%s\n",receiver,board[i]);
  887. X}
  888. X
  889. board_compress( max )
  890. int max;
  891. X{
  892. X    int i,j;
  893. X    int end;
  894. X    int sw = 0;
  895. X    char tablet[CL*3+2];
  896. X
  897. X    end = strlen(board[0]);
  898. X
  899. X    for(i=0 ; i<end-1 ; i++ ){
  900. X        for(j=0; j<= max ; j++ ) tablet[j]= board[j][i];
  901. X        tablet[j] = 0;
  902. X        if( strClen(tablet) ==0 ){ 
  903. X            sw++; 
  904. X            if (sw==3){
  905. X                exec_compress(i,max,end);
  906. X                sw--;
  907. X                end--;
  908. X                i--;  } /* if */
  909. X                }  /* if */
  910. X        else sw=0;
  911. X        }  /* for i */
  912. X}
  913. X
  914. exec_compress( i, max, end)
  915. int i,max,end;
  916. X{
  917. X    int j,k;
  918. X
  919. X    for(j=0 ; j<=max ; j++ ){
  920. X        for(k=i; k<end-1; k++ )
  921. X            board[j][k]=board[j][k+1];
  922. X        board[j][k] = 0 ;
  923. X        }
  924. X}
  925. strClen(str)
  926. char *str;
  927. X{
  928. X    int len, i;
  929. X    len=strlen(str);
  930. X    for(i=0 ; i<len ; i++)
  931. X        if(str[i]!=' ') return 1;
  932. X    return 0;
  933. X}
  934. board_optimize( max )
  935. int max;
  936. X{
  937. X    int i,j,k;
  938. X    int local_max;
  939. X    int delta ;
  940. X
  941. X    for(i=0; i< word_counter ; i++ ){
  942. X        local_max= local_scan(i,max);
  943. X        if( local_max <= max-2) {
  944. X            delta = (max-local_max)/2 ;
  945. X            for( j=i*(CW*2-1); j< (i+1)*(CW*2-1) ; j++) 
  946. X                for(k=local_max ; k>=0 ; k--){
  947. X                    board[k+delta][j] = board[k][j];
  948. X                    board[k][j]=' ';
  949. X                    }  /*  for k */
  950. X                } /*  if  */
  951. X        } /* for i */
  952. X}
  953. X
  954. local_scan(i,max)
  955. int i;
  956. int max;
  957. X{
  958. X    int j,k;
  959. X    int local=0;
  960. X
  961. X    for( j=i*(CW*2-1); j< (i+1)*(CW*2-1) ; j++) 
  962. X        for(k=max; k>0 ; k--) 
  963. X            if( board[k][j] != ' ') { if(k>local) local=k ; break; }
  964. X    return local;
  965. X}
  966. X        
  967. make_board(str)
  968. char *str;
  969. X{
  970. X    int i,len,defect=0 ;
  971. X
  972. X    len = strlen(str); 
  973. X    
  974. X    for(i=0; i<len ; i++ ) { 
  975. X        b[i+defect] = where( str[i], alpha );
  976. X        if( b[i+defect] == -1 ) defect--;
  977. X        else t[i+defect] = a[b[i+defect]].type;
  978. X        }
  979. X    return i+defect; 
  980. X}
  981. make_font()
  982. X{
  983. X    int i;
  984. X    for(i=0; i<TOTAL ; i++ ) { 
  985. X        a[i].type = exist( alpha[i] );
  986. X        a[i].address = i*(CL*(CW+1)+1) ;
  987. X        }
  988. X}
  989. X    
  990. exist( ch )
  991. X{
  992. X    if( where(ch, c ) >-1 )  return 0;
  993. X    else if( where( ch, v1) > -1 ) return 1;
  994. X    else if( where(ch, v2) >-1 ) return 2;
  995. X    return 3;
  996. X}
  997. where( ch, str )
  998. char ch;
  999. char *str;
  1000. X{
  1001. X    int i, len;
  1002. X
  1003. X    len=strlen(str);
  1004. X    for(i=0; i<len ; i++ ) 
  1005. X        if( ch == str[i] )  return i;
  1006. X    return -1;
  1007. X}
  1008. XError(str)
  1009. char *str;
  1010. X{
  1011. X}
  1012. Quit()
  1013. X{
  1014. X    puts("-------");
  1015. X    exit(0);
  1016. X}
  1017. X
  1018. X
  1019. END_OF_FILE
  1020. if test 6638 -ne `wc -c <'banner-05/lban.c'`; then
  1021.     echo shar: \"'banner-05/lban.c'\" unpacked with wrong size!
  1022. fi
  1023. # end of 'banner-05/lban.c'
  1024. fi
  1025. if test -f 'banner-05/sban.c' -a "${1}" != "-c" ; then 
  1026.   echo shar: Will not clobber existing file \"'banner-05/sban.c'\"
  1027. else
  1028. echo shar: Extracting \"'banner-05/sban.c'\" \(7705 characters\)
  1029. sed "s/^X//" >'banner-05/sban.c' <<'END_OF_FILE'
  1030. X
  1031. X/* Small Korean Banner */
  1032. X
  1033. X#include <stdio.h>
  1034. X
  1035. X#define TOTAL 60
  1036. X#define BufSize 255
  1037. X
  1038. X#define CW   2   /* character width */
  1039. X#define CL   2   /* character length */ 
  1040. X
  1041. X#define SD   1   /* shift down */ 
  1042. X#define SR   1   /* shift right */ 
  1043. X#define SB   1   /* shift below */
  1044. X
  1045. X#define MC   15  /* max characters */
  1046. X
  1047. X#define DFName     "/ufo2/fcode/e880505/Bin/sban.dat"    /* data file name */
  1048. X
  1049. static char alpha[]={"abcdefghijklmnopqrstuvwxyzQWERTOP?!.,:_AZSXDCFVGB1234567890"};
  1050. static char c[]={"acdefgqrstvwxzQWERT"};  /* consonant */
  1051. static char v1[]={"ijklopuOP"}; 
  1052. static char v2[]={"bhny"};
  1053. static char v3[]={"m"};
  1054. static char s[]={"?!.,:_AZSXDCFVGB1234567890"};
  1055. X
  1056. struct FONT  {
  1057. X    int   address;
  1058. X    short type;
  1059. X    }  a[TOTAL];  
  1060. X
  1061. int  b[BufSize];    /*  board  */
  1062. int  t[BufSize];    /*  taget  */
  1063. X
  1064. char board[2*CL+3][(CW*2+1)*MC+3]; 
  1065. char *receiver;   /*  special receiver  */
  1066. char *message;
  1067. X
  1068. short  word_counter ;
  1069. X
  1070. main(argc,argv)
  1071. int argc;
  1072. char *argv[];
  1073. X{ 
  1074. X    int number , station = 0; 
  1075. X    
  1076. X    if( argc != 2 && argc !=3 ) {Error(":)"); Quit();} 
  1077. X    if(argc == 3 )  receiver = argv[2];
  1078. X    make_font(); 
  1079. X    message = argv[1];
  1080. X    number=make_board(message);
  1081. X    while(1){
  1082. X        word_counter=0;
  1083. X        clear_board();
  1084. X        station=load_board(station,number);
  1085. X        print_board(argc-2);
  1086. X        fflush(stdout);
  1087. X        if(station == number) break;
  1088. X    }
  1089. X}
  1090. clear_board()
  1091. X{
  1092. X    int i,j;
  1093. X
  1094. X    for(i=0;i<2*CL+3; i++ ){
  1095. X        for( j=0; j< (CW*2+1)*MC; j++)
  1096. X            board[i][j] = ' ';
  1097. X        board[i][j] = 0;
  1098. X    }
  1099. X}
  1100. X
  1101. contractor( index ,num)
  1102. int index;
  1103. int num;
  1104. X{
  1105. X    int i,j;
  1106. X    int what, mwhat, twhat;
  1107. X            
  1108. X    switch( t[index] ){
  1109. X        case 4:   /** symbolic  */
  1110. X            return 0;
  1111. X            break;
  1112. X        case 1:    /* */
  1113. X            if( index > 0 ) {
  1114. X                    if( t[index-1] ==2 ) return 2;
  1115. X                    else if( t[index-1] == 3) return 11;
  1116. X                    else return 1;
  1117. X                    }
  1118. X            else return 1;
  1119. X            break;
  1120. X        case 2:   /** velar */ 
  1121. X            return 3;
  1122. X            break;
  1123. X        case 3:   /*  case of m */
  1124. X            return 10;
  1125. X            break;
  1126. X        case 0:   /*  consonant */
  1127. X            if(index==0 ) return 0;
  1128. X            if( index <num-1 ) { 
  1129. X                what = contractor(index+1, num );
  1130. X                if( what==1||what==2||what==3||what==10||what==11) return 0;
  1131. X                if( what == 0 ) {
  1132. X                    twhat = t[index-1] ;
  1133. X                    if( twhat== 1 ) {
  1134. X                        mwhat = contractor(index-1, num );
  1135. X                        if( mwhat== 1) return 8;
  1136. X                        if(mwhat == 2) return 9;
  1137. X                        if( mwhat == 11 ) return 14;
  1138. X                        }
  1139. X                    if( twhat == 2) {
  1140. X                            return 6;
  1141. X                        }
  1142. X                    if( twhat == 3) {
  1143. X                        return 12;
  1144. X                        }
  1145. X                    if( twhat== 0) {
  1146. X                        mwhat = contractor( index-2);
  1147. X                        if(mwhat == 1) return 5;
  1148. X                        if(mwhat == 11) return 13;
  1149. X                        if(mwhat == 2) return 7;
  1150. X                        if(mwhat == 3) return 7;
  1151. X                        if(mwhat == 10) return 13;
  1152. X                        }
  1153. X                    } /* if */
  1154. X                  else{ 
  1155. X                    mwhat = contractor( index-1, num );
  1156. X                    if(mwhat == 1 ) return 4;
  1157. X                    if(mwhat == 11) return 12;
  1158. X                    if(mwhat == 2 ) return 6;
  1159. X                    if(mwhat == 3 ) return 6;
  1160. X                    if(mwhat == 10) return 12;
  1161. X                    }
  1162. X                }    /*  if */
  1163. X            else { 
  1164. X                twhat = t[index-1];
  1165. X                if(twhat == 0) {
  1166. X                    mwhat = contractor(index-2, num);
  1167. X                    if( mwhat == 3 )  return 7;
  1168. X                    if( mwhat == 10) return 13;
  1169. X                    if( mwhat == 1 ) return 5;
  1170. X                    if( mwhat == 11) return 13;
  1171. X                    if(mwhat ==2 ) return 7;
  1172. X                    }
  1173. X                mwhat = contractor( index-1 , num );
  1174. X                if( mwhat == 3 ) return 6;
  1175. X                if( mwhat == 10) return 12;
  1176. X                if( mwhat == 1 ) return 8;
  1177. X                if( mwhat == 11) return 14;
  1178. X                if( mwhat == 2 ) return 9;
  1179. X                }
  1180. X        break;
  1181. X        } /* swtich */
  1182. X} /* end of procedure */
  1183. X
  1184. X
  1185. X
  1186. load_board(stop, num )
  1187. int stop;
  1188. int num;
  1189. X{
  1190. X    int i;
  1191. X    int x=0 ,y=0 ;    /* location of a charcater */
  1192. X    int tx, ty ;   /* location of a alphabet */ 
  1193. X    short  what;
  1194. X    
  1195. X    for( i= stop ; i< num ; i++ ){ 
  1196. X        what = contractor(i,num); 
  1197. X        switch( what ){
  1198. X            case 0:
  1199. X                if(i!=stop) { x+=CW*2+1 ;  }
  1200. X                tx=x; ty = y;
  1201. X                word_counter++;
  1202. X                if( word_counter > MC )  return i;
  1203. X                break;
  1204. X            case 1:
  1205. X                tx = x+CW ;
  1206. X                ty=y;
  1207. X                break;
  1208. X            case 2: 
  1209. X            case 11:
  1210. X                tx= x+CW;
  1211. X                ty= y+SB ;
  1212. X                break; 
  1213. X            case 3: 
  1214. X                tx = x; 
  1215. X                ty = y+CL ;
  1216. X                break;
  1217. X            case 10:
  1218. X                tx = x;
  1219. X                ty = y+CL-1;
  1220. X                break;
  1221. X            case 4:
  1222. X                tx = x ;
  1223. X                ty = y+CL ;
  1224. X                break; 
  1225. X            case 12:
  1226. X                tx=x;
  1227. X                ty = y+CL+1;
  1228. X                break;
  1229. X            case 5:
  1230. X                tx= x+CW ;
  1231. X                ty = y+CL;
  1232. X                break;
  1233. X            case 13:
  1234. X                tx= x+CW ;
  1235. X                ty = y+CL+1;
  1236. X                break;
  1237. X            case 6:
  1238. X                tx = x;
  1239. X                ty = y+CL+SD ;
  1240. X                break;
  1241. X            case 7:
  1242. X                tx = x+CW;
  1243. X                ty = y+CL+SD;
  1244. X                break;
  1245. X            case 8:
  1246. X                tx = x+ SR;
  1247. X                ty = y+CL;
  1248. X                break;
  1249. X            case 14:
  1250. X                tx = x+ SR;
  1251. X                ty = y+CL+1;
  1252. X                break;
  1253. X            case 9:
  1254. X                tx = x +SR;
  1255. X                ty= y+CL+SD;
  1256. X                break;
  1257. X            default:
  1258. X                break;
  1259. X                }  /* switch */
  1260. X        sculpture( tx,ty, b[i] );
  1261. X        }   /*  for */
  1262. X        return i;
  1263. X}   /*  end of function */    
  1264. X
  1265. sculpture( x, y, index )
  1266. int x,y, index;
  1267. X{
  1268. X    FILE *fptr;
  1269. X    char str[20],len;
  1270. X    int i,j;
  1271. X
  1272. X    if( NULL == (fptr=fopen(DFName,"r"))) { Error("8)"); Quit();}
  1273. X    fseek(fptr, (long)(a[index].address), 0 );
  1274. X    for(i=0; i< CL ; i++ ){
  1275. X        fgets( str, CW+5, fptr);
  1276. X        len = strlen( str );
  1277. X        str[ len-1] =' '; len--;
  1278. X        for(j=0 ; j <len ; j++ ){
  1279. X            if( str[j] != ' ') board[y+i][x+j] = str[j] ; 
  1280. X        }  /*  for */
  1281. X    }  /* for */
  1282. X    fclose(fptr);
  1283. X}
  1284. compress(str)
  1285. char *str;
  1286. X{
  1287. X    int i,len ;
  1288. X    len = strlen(str);
  1289. X    for(i=0; i<len ; i++ )
  1290. X        if( str[i] != ' ')  return 1;
  1291. X    return 0;
  1292. X}
  1293. X
  1294. X
  1295. print_board(mode)
  1296. short mode;
  1297. X{
  1298. X    int i,  limit;
  1299. X
  1300. X    for(i=0; i < CL*2+3 ; i++ )
  1301. X        if( compress(board[i]) ) limit=i;
  1302. X
  1303. X    board_optimize( limit );
  1304. X    board_compress( limit );
  1305. X    space_check( limit );
  1306. X        
  1307. X    if(mode == 0 ) {
  1308. X        for(i=0 ; i <= limit ; i++ ){
  1309. X                    puts( board[i]);
  1310. X                    fflush(stdout);
  1311. X                    }
  1312. X    fflush(stdout);
  1313. X                }
  1314. X    else if( mode==1 )   for(i=0 ; i <= limit ; i++ )
  1315. X                            printf("%s:%s\n",receiver,board[i]);
  1316. X}
  1317. X
  1318. space_check(max)
  1319. X{
  1320. X    int i,j;
  1321. X
  1322. X    for(i=0;i<=max ; i++ )
  1323. X        for( j=0; j< (CW*2+1)*MC-1; j++)
  1324. X            if(board[i][j] == 'A')  board[i][j]=' ';
  1325. X}
  1326. board_compress( max )
  1327. int max;
  1328. X{
  1329. X    int i,j;
  1330. X    int end;
  1331. X    int sw = 0;
  1332. X    char tablet[CL*3+2];
  1333. X
  1334. X    end = strlen(board[0]);
  1335. X
  1336. X    for(i=0 ; i<end-1 ; i++ ){
  1337. X        for(j=0; j<= max ; j++ ) tablet[j]= board[j][i];
  1338. X        tablet[j] = 0;
  1339. X        if( strClen(tablet) ==0 ){ 
  1340. X            sw++; 
  1341. X            if (sw==3){
  1342. X                exec_compress(i,max,end);
  1343. X                sw--;
  1344. X                end--;
  1345. X                i--;  } /* if */
  1346. X                }  /* if */
  1347. X        else sw=0;
  1348. X        }  /* for i */
  1349. X}
  1350. X
  1351. exec_compress( i, max, end)
  1352. int i,max,end;
  1353. X{
  1354. X    int j,k;
  1355. X
  1356. X    for(j=0 ; j<=max ; j++ ){
  1357. X        for(k=i; k<end-1; k++ )
  1358. X            board[j][k]=board[j][k+1];
  1359. X        board[j][k] = 0 ;
  1360. X        }
  1361. X}
  1362. strClen(str)
  1363. char *str;
  1364. X{
  1365. X    int len, i;
  1366. X    len=strlen(str);
  1367. X    for(i=0 ; i<len ; i++)
  1368. X        if(str[i]!=' ') return 1;
  1369. X    return 0;
  1370. X}
  1371. board_optimize( max )
  1372. int max;
  1373. X{
  1374. X    int i,j,k;
  1375. X    int local_max;
  1376. X    int delta ;
  1377. X
  1378. X    for(i=0; i< word_counter ; i++ ){
  1379. X        local_max= local_scan(i,max);
  1380. X        if( local_max <= max-2) {
  1381. X            delta = (max-local_max)/2 ;
  1382. X            for( j=i*(CW*2+1); j< (i+1)*(CW*2+1) ; j++) 
  1383. X                for(k=local_max ; k>=0 ; k--){
  1384. X                    board[k+delta][j] = board[k][j];
  1385. X                    board[k][j]=' ';
  1386. X                    }  /*  for k */
  1387. X                } /*  if  */
  1388. X        } /* for i */
  1389. X}
  1390. X
  1391. local_scan(i,max)
  1392. int i;
  1393. int max;
  1394. X{
  1395. X    int j,k;
  1396. X    int local=0;
  1397. X
  1398. X    for( j=i*(CW*2+1); j< (i+1)*(CW*2+1) ; j++) 
  1399. X        for(k=max; k>0 ; k--) 
  1400. X            if( board[k][j] != ' ') { if(k>local) local=k ; break; }
  1401. X    return local;
  1402. X}
  1403. X        
  1404. make_board(str)
  1405. char *str;
  1406. X{
  1407. X    int i,len,defect=0 ;
  1408. X
  1409. X    len = strlen(str); 
  1410. X    
  1411. X    for(i=0; i<len ; i++ ) { 
  1412. X        b[i+defect] = where( str[i], alpha );
  1413. X        if( b[i+defect] == -1 ) defect--;
  1414. X        else t[i+defect] = a[b[i+defect]].type;
  1415. X        }
  1416. X    return i+defect; 
  1417. X}
  1418. make_font()
  1419. X{
  1420. X    int i;
  1421. X    for(i=0; i<TOTAL ; i++ ) { 
  1422. X        a[i].type = exist( alpha[i] );
  1423. X        a[i].address = i*(CL*(CW+1)+1) ;
  1424. X        }
  1425. X}
  1426. X    
  1427. exist( ch )
  1428. X{
  1429. X    if( where(ch, c ) >-1 )  return 0;
  1430. X    else if( where( ch, v1) > -1 ) return 1;
  1431. X    else if( where(ch, v2) >-1 ) return 2;
  1432. X    else if( where(ch, v3) >-1 ) return 3;
  1433. X    return 4;
  1434. X}
  1435. where( ch, str )
  1436. char ch;
  1437. char *str;
  1438. X{
  1439. X    int i, len;
  1440. X
  1441. X    len=strlen(str);
  1442. X    for(i=0; i<len ; i++ ) 
  1443. X        if( ch == str[i] )  return i;
  1444. X    return -1;
  1445. X}
  1446. XError(str)
  1447. char *str;
  1448. X{
  1449. X    puts(str);
  1450. X}
  1451. Quit()
  1452. X{
  1453. X    exit(0);
  1454. X}
  1455. X
  1456. END_OF_FILE
  1457. if test 7705 -ne `wc -c <'banner-05/sban.c'`; then
  1458.     echo shar: \"'banner-05/sban.c'\" unpacked with wrong size!
  1459. fi
  1460. # end of 'banner-05/sban.c'
  1461. fi
  1462. if test -f 'banner-07/banner.c' -a "${1}" != "-c" ; then 
  1463.   echo shar: Will not clobber existing file \"'banner-07/banner.c'\"
  1464. else
  1465. echo shar: Extracting \"'banner-07/banner.c'\" \(6380 characters\)
  1466. sed "s/^X//" >'banner-07/banner.c' <<'END_OF_FILE'
  1467. X#include <stdio.h>
  1468. X
  1469. static char *chars[][4] = {
  1470. X/***************/
  1471. X"  ",
  1472. X"  ",
  1473. X"  ",
  1474. X"  ",
  1475. X/***************/
  1476. X".",
  1477. X"|",
  1478. X"|",
  1479. X".",
  1480. X/***************/
  1481. X"_ _",
  1482. X"| |",
  1483. X"   ",
  1484. X"   ",
  1485. X/***************/
  1486. X" . . ",
  1487. X"_|_|_",
  1488. X"_|_|_",
  1489. X" | | ",
  1490. X/***************/
  1491. X" ___",
  1492. X"| | ",
  1493. X" \\| ",
  1494. X" _|)",
  1495. X/***************/
  1496. X" _ ",
  1497. X" -/",
  1498. X" / ",
  1499. X"/ =",
  1500. X/***************/
  1501. X"  _  ",
  1502. X" | | ",
  1503. X" /\\  ",
  1504. X"(__|\\",
  1505. X/***************/
  1506. X" _",
  1507. X" /",
  1508. X"  ",
  1509. X"  ",
  1510. X/***************/
  1511. X"  _",
  1512. X" / ",
  1513. X"|  ",
  1514. X" \\_",
  1515. X/***************/
  1516. X"_  ",
  1517. X" \\ ",
  1518. X"  |",
  1519. X"_/ ",
  1520. X/***************/
  1521. X"      ",
  1522. X"  \\|/ ",
  1523. X" --*--",
  1524. X"  /|\\ ",
  1525. X/***************/
  1526. X"     ",
  1527. X"  |  ",
  1528. X"--+--",
  1529. X"  |  ",
  1530. X/***************/
  1531. X" ",
  1532. X" ",
  1533. X"_",
  1534. X"/",
  1535. X/***************/
  1536. X"    ",
  1537. X"____",
  1538. X"    ",
  1539. X"    ",
  1540. X/***************/
  1541. X"   ",
  1542. X"   ",
  1543. X"___",
  1544. X"|_|",
  1545. X/***************/
  1546. X"    _",
  1547. X"   / ",
  1548. X"  /  ",
  1549. X"_/   ",
  1550. X/***************/
  1551. X"  ___/ ",
  1552. X" /  /\\ ",
  1553. X"| /   |",
  1554. X"/\\___/ ",
  1555. X/***************/
  1556. X" . ",
  1557. X"/| ",
  1558. X" | ",
  1559. X"_|_",
  1560. X/***************/
  1561. X"  __  ",
  1562. X" /  ) ",
  1563. X"   /  ",
  1564. X"  /___",
  1565. X/***************/
  1566. X" ___ ",
  1567. X" __/ ",
  1568. X"   \\ ",
  1569. X"\\___)",
  1570. X/***************/
  1571. X"  _. ",
  1572. X" / | ",
  1573. X"/__|_",
  1574. X"  _|_",
  1575. X/***************/
  1576. X".___",
  1577. X"|__ ",
  1578. X"   \\",
  1579. X"\\__/",
  1580. X/***************/
  1581. X"  __ ",
  1582. X" /__ ",
  1583. X"/   \\",
  1584. X"\\___/",
  1585. X/***************/
  1586. X"___.",
  1587. X"  / ",
  1588. X" /  ",
  1589. X"/   ",
  1590. X/***************/
  1591. X" __ ",
  1592. X"(__)",
  1593. X"/  \\",
  1594. X"\\__/",
  1595. X/***************/
  1596. X" ___ ",
  1597. X"(___|",
  1598. X"   / ",
  1599. X"__/  ",
  1600. X/***************/
  1601. X"  ",
  1602. X"||",
  1603. X"  ",
  1604. X"||",
  1605. X/***************/
  1606. X"  ",
  1607. X"||",
  1608. X"  ",
  1609. X"|/",
  1610. X/***************/
  1611. X"  .",
  1612. X" / ",
  1613. X" \\ ",
  1614. X"  \\",
  1615. X/***************/
  1616. X"    ",
  1617. X"____",
  1618. X"____",
  1619. X"    ",
  1620. X/***************/
  1621. X".  ",
  1622. X" \\ ",
  1623. X" / ",
  1624. X"/  ",
  1625. X/***************/
  1626. X" __ ",
  1627. X"/  )",
  1628. X"  | ",
  1629. X"  . ",
  1630. X/***************/
  1631. X"  ___  ",
  1632. X" ___ \\ ",
  1633. X"| |_\\ |",
  1634. X" \\___/ ",
  1635. X/***************/
  1636. X  "   _   ",
  1637. X  "  / \\  ",
  1638. X  " /___\\ ",
  1639. X  "/     \\",
  1640. X/***************/
  1641. X  "___ ",
  1642. X  "|__)",
  1643. X  "|  \\",
  1644. X  "|__/",
  1645. X/***************/
  1646. X  "  __ ",
  1647. X  " /  \\",
  1648. X  "|    ",
  1649. X  " \\__/",
  1650. X/***************/
  1651. X  " __  ",
  1652. X  "|  \\ ",
  1653. X  "|   |",
  1654. X  "|__/ ",
  1655. X/***************/
  1656. X  " ___",
  1657. X  "|__ ",
  1658. X  "|   ",
  1659. X  "|___",
  1660. X/***************/
  1661. X  " ___",
  1662. X  "|__ ",
  1663. X  "|   ",
  1664. X  "|   ",
  1665. X/***************/
  1666. X  "  __ ",
  1667. X  " /  \\",
  1668. X  "|  __",
  1669. X  " \\__|",
  1670. X/***************/
  1671. X  "_   _",
  1672. X  "|___|",
  1673. X  "|   |",
  1674. X  "|   |",
  1675. X/***************/
  1676. X  "___",
  1677. X  " | ",
  1678. X  " | ",
  1679. X  "_|_",
  1680. X/***************/
  1681. X  " ___",
  1682. X  "   |",
  1683. X  "   |",
  1684. X  "\\_/ ",
  1685. X/***************/
  1686. X  "_  _",
  1687. X  "| / ",
  1688. X  "|/\\ ",
  1689. X  "|  \\",
  1690. X/***************/
  1691. X  "_   ",
  1692. X  "|   ",
  1693. X  "|   ",
  1694. X  "|___",
  1695. X/***************/
  1696. X  "_    _",
  1697. X  "|\\  /|",
  1698. X  "| \\/ |",
  1699. X  "|    |",
  1700. X/***************/
  1701. X  "__   _",
  1702. X  "| \\  |",
  1703. X  "|  \\ |",
  1704. X  "|   \\|",
  1705. X/***************/
  1706. X  "  ___  ",
  1707. X  " /   \\ ",
  1708. X  "|     |",
  1709. X  " \\___/ ",
  1710. X/***************/
  1711. X  "____ ",
  1712. X  "|   \\",
  1713. X  "|___/",
  1714. X  "|    ",
  1715. X/***************/
  1716. X  "  ___  ",
  1717. X  " /   \\ ",
  1718. X  "|   \\ |",
  1719. X  " \\___\\ ",
  1720. X/***************/
  1721. X  "____ ",
  1722. X  "|   \\",
  1723. X  "|___/",
  1724. X  "|  \\ ",
  1725. X/***************/
  1726. X  " __  ",
  1727. X  "|  \\ ",
  1728. X  " \\__ ",
  1729. X  "\\___|",
  1730. X/***************/
  1731. X  "_____",
  1732. X  "  |  ",
  1733. X  "  |  ",
  1734. X  "  |  ",
  1735. X/***************/
  1736. X  "_    _",
  1737. X  "|    |",
  1738. X  "|    |",
  1739. X  " \\__/ ",
  1740. X/***************/
  1741. X  "_      _",
  1742. X  " \\    / ",
  1743. X  "  \\  /  ",
  1744. X  "   \\/   ",
  1745. X/***************/
  1746. X  "_          _",
  1747. X  " \\        / ",
  1748. X  "  \\  /\\  /  ",
  1749. X  "   \\/  \\/   ",
  1750. X/***************/
  1751. X  "_   _",
  1752. X  " \\ / ",
  1753. X  " / \\ ",
  1754. X  "/   \\",
  1755. X/***************/
  1756. X  "_   _",
  1757. X  " \\ / ",
  1758. X  "  /  ",
  1759. X  " /   ",
  1760. X/***************/
  1761. X  "____ ",
  1762. X  "   / ",
  1763. X  "  /  ",
  1764. X  " /___",
  1765. X/***************/
  1766. X" __",
  1767. X"|  ",
  1768. X"|  ",
  1769. X"|__",
  1770. X/***************/
  1771. X".   ",
  1772. X" \\  ",
  1773. X"  \\ ",
  1774. X"   \\",
  1775. X/***************/
  1776. X"__ ",
  1777. X"  |",
  1778. X"  |",
  1779. X"__|",
  1780. X/***************/
  1781. X" . ",
  1782. X"/ \\",
  1783. X"   ",
  1784. X"   ",
  1785. X/***************/
  1786. X"    ",
  1787. X"    ",
  1788. X"    ",
  1789. X"____",
  1790. X/***************/
  1791. X"_ ",
  1792. X"\\ ",
  1793. X"  ",
  1794. X"  ",
  1795. X/***************/
  1796. X  "   _   ",
  1797. X  "  / \\  ",
  1798. X  " /___\\ ",
  1799. X  "/     \\",
  1800. X/***************/
  1801. X  "___ ",
  1802. X  "|__)",
  1803. X  "|  \\",
  1804. X  "|__/",
  1805. X/***************/
  1806. X  "  __ ",
  1807. X  " /  \\",
  1808. X  "|    ",
  1809. X  " \\__/",
  1810. X/***************/
  1811. X  " __  ",
  1812. X  "|  \\ ",
  1813. X  "|   |",
  1814. X  "|__/ ",
  1815. X/***************/
  1816. X  " ___",
  1817. X  "|__ ",
  1818. X  "|   ",
  1819. X  "|___",
  1820. X/***************/
  1821. X  " ___",
  1822. X  "|__ ",
  1823. X  "|   ",
  1824. X  "|   ",
  1825. X/***************/
  1826. X  "  __ ",
  1827. X  " /  \\",
  1828. X  "|  __",
  1829. X  " \\__|",
  1830. X/***************/
  1831. X  "_   _",
  1832. X  "|___|",
  1833. X  "|   |",
  1834. X  "|   |",
  1835. X/***************/
  1836. X  "___",
  1837. X  " | ",
  1838. X  " | ",
  1839. X  "_|_",
  1840. X/***************/
  1841. X  " ___",
  1842. X  "   |",
  1843. X  "   |",
  1844. X  "\\_/ ",
  1845. X/***************/
  1846. X  "_  _",
  1847. X  "| / ",
  1848. X  "|/\\ ",
  1849. X  "|  \\",
  1850. X/***************/
  1851. X  "_   ",
  1852. X  "|   ",
  1853. X  "|   ",
  1854. X  "|___",
  1855. X/***************/
  1856. X  "_    _",
  1857. X  "|\\  /|",
  1858. X  "| \\/ |",
  1859. X  "|    |",
  1860. X/***************/
  1861. X  "__   _",
  1862. X  "| \\  |",
  1863. X  "|  \\ |",
  1864. X  "|   \\|",
  1865. X/***************/
  1866. X  "  ___  ",
  1867. X  " /   \\ ",
  1868. X  "|     |",
  1869. X  " \\___/ ",
  1870. X/***************/
  1871. X  "____ ",
  1872. X  "|   \\",
  1873. X  "|___/",
  1874. X  "|    ",
  1875. X/***************/
  1876. X  "  ___  ",
  1877. X  " /   \\ ",
  1878. X  "|   \\ |",
  1879. X  " \\___\\ ",
  1880. X/***************/
  1881. X  "____ ",
  1882. X  "|   \\",
  1883. X  "|___/",
  1884. X  "|  \\ ",
  1885. X/***************/
  1886. X  " __  ",
  1887. X  "|  \\ ",
  1888. X  " \\__ ",
  1889. X  "\\___|",
  1890. X/***************/
  1891. X  "_____",
  1892. X  "  |  ",
  1893. X  "  |  ",
  1894. X  "  |  ",
  1895. X/***************/
  1896. X  "_    _",
  1897. X  "|    |",
  1898. X  "|    |",
  1899. X  " \\__/ ",
  1900. X/***************/
  1901. X  "_      _",
  1902. X  " \\    / ",
  1903. X  "  \\  /  ",
  1904. X  "   \\/   ",
  1905. X/***************/
  1906. X  "_          _",
  1907. X  " \\        / ",
  1908. X  "  \\  /\\  /  ",
  1909. X  "   \\/  \\/   ",
  1910. X/***************/
  1911. X  "_   _",
  1912. X  " \\ / ",
  1913. X  " / \\ ",
  1914. X  "/   \\",
  1915. X/***************/
  1916. X  "_   _",
  1917. X  " \\ / ",
  1918. X  "  /  ",
  1919. X  " /   ",
  1920. X/***************/
  1921. X  "____ ",
  1922. X  "   / ",
  1923. X  "  /  ",
  1924. X  " /___",
  1925. X/***************/
  1926. X"  __",
  1927. X"_(  ",
  1928. X" (  ",
  1929. X"  \\_",
  1930. X/***************/
  1931. X".",
  1932. X"|",
  1933. X"|",
  1934. X"|",
  1935. X/***************/
  1936. X"__  ",
  1937. X"  )_",
  1938. X"  ) ",
  1939. X"_/  ",
  1940. X/***************/
  1941. X" _  .",
  1942. X"/ \\/ ",
  1943. X"     ",
  1944. X"     ",
  1945. X};
  1946. X
  1947. X#define LINLEN 79
  1948. static int filled;
  1949. static char buf[4][LINLEN+1];
  1950. X
  1951. main(argc, argv)
  1952. int argc;
  1953. char *argv[];
  1954. X{
  1955. X  int i,j,max;
  1956. X
  1957. X  for (i=1; i<argc; i++) {
  1958. X    for (j=0, max=strlen(argv[i]); j<max; j++) {
  1959. X      print1char(argv[i][j]);
  1960. X    }
  1961. X    flushit();
  1962. X  }
  1963. X}
  1964. X
  1965. print1char(ch) 
  1966. char ch;
  1967. X{
  1968. X  int c=ch-' ';
  1969. X  int charlen;
  1970. X
  1971. X
  1972. X  charlen=strlen(chars[c][0]);
  1973. X
  1974. X  if (charlen+filled+(filled?1:0) > LINLEN) flushit();
  1975. X
  1976. X  strcat(buf[0]," ");
  1977. X  strcat(buf[0],chars[c][0]);
  1978. X  strcat(buf[1]," ");
  1979. X  strcat(buf[1],chars[c][1]);
  1980. X  strcat(buf[2]," ");
  1981. X  strcat(buf[2],chars[c][2]);
  1982. X  strcat(buf[3]," ");
  1983. X  strcat(buf[3],chars[c][3]);
  1984. X  filled+=charlen+1;
  1985. X}
  1986. X
  1987. flushit()
  1988. X{
  1989. X  puts(buf[0]);
  1990. X  puts(buf[1]);
  1991. X  puts(buf[2]);
  1992. X  puts(buf[3]);
  1993. X  putchar('\n');
  1994. X  buf[0][0]=buf[1][0]=buf[2][0]=buf[3][0]='\0';
  1995. X  filled=0;
  1996. X}
  1997. END_OF_FILE
  1998. if test 6380 -ne `wc -c <'banner-07/banner.c'`; then
  1999.     echo shar: \"'banner-07/banner.c'\" unpacked with wrong size!
  2000. fi
  2001. # end of 'banner-07/banner.c'
  2002. fi
  2003. if test -f 'banner-11/MB_Font.uu' -a "${1}" != "-c" ; then 
  2004.   echo shar: Will not clobber existing file \"'banner-11/MB_Font.uu'\"
  2005. else
  2006. echo shar: Extracting \"'banner-11/MB_Font.uu'\" \(8721 characters\)
  2007. sed "s/^X//" >'banner-11/MB_Font.uu' <<'END_OF_FILE'
  2008. begin 644 MB_Font
  2009. M2OP``0``&#P````!```8,`55!`"````1````````````````````````````3
  2010. M`#1+````````````````````````````$#A\5!`0$````````````!`0$%1\'
  2011. M.!`````````````8#/X,&```````````````,&#^8#```````````'PXNI+6"
  2012. MQM:2NCA\``````#^_O[\_/CZ\O;F[@``````[L;6DKHXNI+6QNX```````$!B
  2013. M`P,&!HR,V%AP,"``````/&;#D9&=@<-F/``````````8/#P\/#Q^_Q`X$```]
  2014. M``@.#PD("'CX<`````````!X0'!`0``>$!P0$```````.$!`0#@`'!(<%!(`0
  2015. M````!04%!0T-'3EY<7%A00```*"@H*"PL+B<GHZ.AH(```!\NL;&QH(`@L;&/
  2016. MQKI\``````(&!@8"``(&!@8"`````'PZ!@8&.GRXP,#`N'P```!\.@8&!CI\0
  2017. M.@8&!CI\`````(+&QL:Z?#H&!@8"`````'RXP,#`N'PZ!@8&.GP```!\N,#`X
  2018. MP+A\NL;&QKI\````?+K&QL:"``(&!@8"`````'RZQL;&NGRZQL;&NGP```!\2
  2019. MNL;&QKI\.@8&!CI\`````````'Q^!@9^9F9^/`````!X0'!`>``.$`P"'```V
  2020. M````````````!P\?&!@0'A<``````````/#X[`0$!#Q4$0L-!@<N.3@`````O
  2021. M``````0HV"C0$.``````````````````````````````````````&!@8&!@8\
  2022. M```8&````-C8;&PV````````````````````1$3^1$1$_D1$`````"@H?.[HH
  2023. MZ'@\+B[N?"@H````````QL8,&#!@QL8````````X;&PX,'[,S,QV````````.
  2024. M&!@8,#`````````````.&#`P,#`P,#`P,#`8#@``<!@,#`P,#`P,#`P,&'``<
  2025. M`````$)")#S^/"1"0@``````````&!@8?A@8&```````````````````&!@8<
  2026. M&#`@`````````'X````````````````````````8&!@````````&!@P,&!@PR
  2027. M,&!@````````/&9F9F9F9F9F/````````!@X.!@8&!@8&'X````````\9F8,"
  2028. M#!@P,&!^````````?@8,&!@,#&9F/`````````P<'#PL;&Q^#`P```````!^:
  2029. M8&!\!@8&!F8\````````/&!@8'QF9F9F/````````'X&!@P,&!@P,#``````$
  2030. M```\9F9F/&9F9F8\````````/&9F9F8^!@8&/```````````&!@8```8&!@`N
  2031. M`````````!@8&````!@8&#`@````#A@P8,!@,!@.````````````?@```'X`(
  2032. M``````````#@,!@,!@P8,.``````````/&9F#`P8&``8&````````'S&PMK6B
  2033. MUMS`XGP```````!\QL;&QO[&QL;&````````_,;&QOS&QL;&_````````'S&:
  2034. MP,#`P,#`QGP```````#\QL;&QL;&QL;\````````_L#`P/S`P,#`_@``````B
  2035. M`/[`P,#XP,#`P,````````!^P,#`WL;&QL9^````````QL;&QO[&QL;&Q@``<
  2036. M`````'X8&!@8&!@8&'X```````!^!@8&!@8&QL9\````````QLS,V/#8S,S&"
  2037. MQ@```````,#`P,#`P,#`P/X```````#&[N[6UL;&QL;&````````QL;FYM;6T
  2038. MSL[&Q@```````'S&QL;&QL;&QGP```````#\QL;&QL;\P,#`````````?,;&N
  2039. MQL;&QM;<;@```````/S&QL;\V,S,QL8```````!\QL#`<!P&!L9\````````:
  2040. M?A@8&!@8&!@8&````````,;&QL;&QL;&QGP```````#&QL;&QL;&;#@0````F
  2041. M````QL;&QL;6_N[&@@```````,;&;'PX.'QLQL8```````!F9F8D/!@8&!@8*
  2042. M````````_@8&#!@P8,#`_@```````#XP,#`P,#`P,#X```````!@8#`P&!@,4
  2043. M#`8&````````?`P,#`P,#`P,?``````0.#AL;,;&````````````````````4
  2044. M`````````/X``&`P&`P``````````````````````'P&?L;&QGX```````#`"
  2045. MP,#\QL;&QL;\````````````?,;`P,#&?`````````8&!G[&QL;&QGX`````&
  2046. M``````!\QL;^P,!^````````#A@8?A@8&!@8&````````````'S&QL;&QGX&N
  2047. M!GP```#`P,#\QL;&QL;&````````&!@`>!@8&!@8?@````````P,`'P,#`P,$
  2048. M#`P,#/@```#`P,#&S-CPV,S&````````>!@8&!@8&!@8?@```````````&S^,
  2049. MUM;&QL8```````````#\QL;&QL;&````````````?,;&QL;&?```````````T
  2050. M`/S&QL;&QOS`P,````````!^QL;&QL9^!@8&````````_,;&P,#`P```````*
  2051. M`````'S&P'P&QGP`````````,##\,#`P,#`<````````````QL;&QL;&?@``0
  2052. M`````````,;&QFQL.#@```````````#&QL;6_N[&````````````QL9\.'S&V
  2053. MQ@```````````,;&QL;&QGX&!GP```````#^!@PX8,#^``````X8&!@8,.#@T
  2054. M,!@8&!@.```8&!@8&!@8&!@8&!@8&```X#`P,#`8#@X8,#`P,.````````!B<
  2055. M\KZ<`````````,"@H*#`."`P(#@$!`0$!P```````````````#8V;&S8``!LK
  2056. M;```QL;&QL;&?@```````#AL8#AL;#@,;#@`````&#QF`#P^!CY^9F9^/@``(
  2057. M``!F9@``?`9^QL;&?@````!@,!@`/#X&/GYF9GX^````'#8<`#P^!CY^9F9^\
  2058. M/@`````````\?&!@8&!@?CX,.``8/&8`/'YF9GY@8'X^`````&9F`#Q^9F9^@
  2059. M8&!^/@```&`P&``\?F9F?F!@?CX`````9F8`.#@8&!@8&#P\````&#QF`#@XZ
  2060. M&!@8&!@\/````&`P&``X.!@8&!@8/#P```!L;`!\QL;&_L;&QL8````\9CP8J
  2061. M/'YF9GY^9F9F9@``!@P8?GY@8'Q\8&!@?GX`````````=G\;>__8V/]_````,
  2062. M/G[XV-C>WOCXV-C>W@```!@\9@`\?F9F9F9F?CP`````;&P``'S&QL;&QGP`6
  2063. M````8#`8`#Q^9F9F9F9^/````!@\9@!F9F9F9F9F?CX```!@,!@`9F9F9F9FF
  2064. M9GX^`````&9F`&9F9F9F9GX^!GY\`&QL`'S&QL;&QL;&?`````!L;`#&QL;&X
  2065. MQL;&QGP``````!@8/'YF8&!F?CP8&```````.&Q@.&QL.`QL.```````9F9FB
  2066. M9GX\&'X8&!@8```````\9F9F?&9F9GQ@8&`````.'A@8&'X8&!@8&'!@`%6`=
  2067. M`8`!@`&``8`!@`&``:H````8&```&!@8&!@8````````$!!\UM#0T-9\$!``%
  2068. M`````!PB("#X("`@('X```````"!?F9F9F9F?H$`````````9F9F)#P8&'X8(
  2069. M&````!@8&!@8&!@``!@8&!@8&!@````X;&`X;&PX#&PX``````!L;```````\
  2070. M`````````````'[#O:6AH:6]PWX``````'P&?L;&QGX`_@```````````!(V>
  2071. M;-AL-A(``````````````````'X&!@8&`````````````!(\2```````````D
  2072. M?L.YI:6YJ:7#?@``````?@``````````````````&"0D&```````````````"
  2073. M```````8&!A^&!@8`'X``#QF!APP9GX```````````!XS`PX#,QX````````\
  2074. M``````8,&#```````````````````````,;&QL;&QGY@8,```#Q45%0T%!04D
  2075. M%!04```````````8&!@````````````````````````X.!@8,"`P<#`P,#!X,
  2076. M``````````````!\QL;&QL9\`/X```````````"0V&PV;-B0```````P<#`PR
  2077. M,#!['G#.'C9F?P8/,'`P,#`P>QYP_&8&'#!C?WC,##@,S'L><,X>-F9_!@\`)
  2078. M```8&``8&`P,9F8\````,!@`?,;&QL;^QL;&Q@```!@P`'S&QL;&_L;&QL8`D
  2079. M```0.&P`?,;&QO[&QL;&````8O*\F'S&QL;^QL;&Q@````!L;`!\QL;&_L;&4
  2080. MQL8````X1#@`?,;&QO[&QL;&````````#Q@8."]H2/B(CP```````'S&P,#`+
  2081. MP,#`QGP8#!@P&`#^P,#`_,#`P,#^````&#``_L#`P/S`P,#`_@```!`X;`#\N
  2082. MP,#`^,#`P/X`````;&P`_,#`P/C`P,#^````,!@,`'X8&!@8&!@8?@````P8<
  2083. M,`!^&!@8&!@8&'X````8/&8`_A@8&!@8&!C^`````&9F`'X8&!@8&!@8?@``B
  2084. M`````#XC(?DA(SX```````!B\KZ<`.;FUM;.SL;&````8#`8`'S&QL;&QL;&9
  2085. M?`````P8,`!\QL;&QL;&QGP````0.&P`?,;&QL;&QL9\````8O*^C'S&QL;&Z
  2086. MQL;&?`````!L;`!\QL;&QL;&QGP`````````QL9\.'S&Q@````````(&?,[.P
  2087. MSM[VYN;F?,"``&`P&`#&QL;&QL;&QGP````,&#``QL;&QL;&QL9\````$#AL8
  2088. M`,;&QL;&QL;&?`````!L;`#&QL;&QL;&QGP````,&#``9F8D/!@8&!@8````H
  2089. M````<"`X)#@@("`@<````````#QF9F9\9F9F?&!@8````#`8#`!\!G[&QL9^P
  2090. M```````,&#``?`9^QL;&?@``````$#AL`'P&?L;&QGX`````8O*^G`!\!G[&<
  2091. MQL9^``````!F9@``?`9^QL;&?@`````8)"08`'P&?L;&QGX```````````!^L
  2092. M&1E_3$P_````````````?,;`P,#&?!@,&```8#`8`'S&QO[`P'X```````P88
  2093. M,`!\QL;^P,!^```````0.&P`?,;&_L#`?@```````&QL`'S&QO[`P'X`````(
  2094. M`#`8#`!X&!@8&!A^```````,&#``>!@8&!@8?@``````$#AL`'@8&!@8&'X`F
  2095. M``````!L;`!X&!@8&!A^```````($"A$1@D)"08`````````8O*^G`#\QL;&M
  2096. MQL8``````&`P&`!\QL;&QL9\```````,&#``?,;&QL;&?```````$#AL`'S&J
  2097. MQL;&QGP``````&+ROIP`?,;&QL9\``````!L;```?,;&QL;&?````````````
  2098. M&!@`?@`8&````````````@9\SL[6YN9\P(````!@,!@`QL;&QL;&?@``````F
  2099. M#!@P`,;&QL;&QGX``````!`X;`#&QL;&QL9^``````!L;```QL;&QL;&?@``&
  2100. M````#!@P`,;&QL;&QGX&!GP`````<"`X)"0X("!P````````;&P`QL;&QL;&R
  2101. M?@8&?```````````?H&E@;V9@7Y^_]O_P^?_?FS^_OY\.!``$#A\_GPX$``XF
  2102. M?#C^_GPX?!`0.'S^?#A\```8/#P8``#__^?#P^?__P`\9D)"9CP`_\.9O;V90
  2103. MP_\/!P]]S,S,>#QF9F8\&'X8/S,_,#!P\.!_8W]C8V?FP)E:/.?G/%J9@.#XA
  2104. M_OC@@``"#C[^/@X"`!@\?A@8?CP89F9F9F8`9@!_V]M[&QL;`#YC.&QL.,QX6
  2105. M`````'Y^?@`8/'X8?CP8_Q@\?A@8&!@`&!@8&'X\&```&`S^#!@````P8/Y@-
  2106. M,`````#`P,#^````)&;_9B0````8/'[__P```/__?CP8`````````````#!X)
  2107. M>#`P`#``;&QL``````!L;/YL_FQL`#!\P'@,^#```,;,&#!FQ@`X;#AVW,QVR
  2108. M`&!@P```````&#!@8&`P&`!@,!@8&#!@``!F//\\9@```#`P_#`P````````7
  2109. M`#`P8````/P````````````P,``&#!@P8,"``'S&SM[VYGP`,'`P,#`P_`!XP
  2110. MS`PX8,S\`'C,##@,S'@`'#QLS/X,'@#\P/@,#,QX`#A@P/C,S'@`_,P,&#`P$
  2111. M,`!XS,QXS,QX`'C,S'P,&'```#`P```P,```,#```#`P8!@P8,!@,!@```#\4
  2112. M``#\``!@,!@,&#!@`'C,#!@P`#``?,;>WM[`>``P>,S,_,S,`/QF9GQF9OP`4
  2113. M/&;`P,!F/`#X;&9F9FSX`/YB:'AH8OX`_F)H>&A@\``\9L#`SF8^`,S,S/S,^
  2114. MS,P`>#`P,#`P>``>#`P,S,QX`.9F;'AL9N8`\&!@8&)F_@#&[O[^UL;&`,;F&
  2115. M]M[.QL8`.&S&QL9L.`#\9F9\8&#P`'C,S,S<>!P`_&9F?&QFY@!XS.!P',QXX
  2116. M`/RT,#`P,'@`S,S,S,S,_`#,S,S,S'@P`,;&QM;^[L8`QL9L.#ALQ@#,S,QX@
  2117. M,#!X`/[&C!@R9OX`>&!@8&!@>`#`8#`8#`8"`'@8&!@8&'@`$#ALQ@``````$
  2118. M````````_S`P&`````````!X#'S,=@#@8&!\9F;<````>,S`S'@`'`P,?,S,-
  2119. M=@```'C,_,!X`#AL8/!@8/````!VS,Q\#/C@8&QV9F;F`#``<#`P,'@`#``,T
  2120. M#`S,S'C@8&9L>&SF`'`P,#`P,'@```#,_O[6Q@```/C,S,S,````>,S,S'@`\
  2121. M``#<9F9\8/```';,S'P,'@``W'9F8/````!\P'@,^``0,'PP,#08````S,S,T
  2122. MS'8```#,S,QX,````,;6_OYL````QFPX;,8```#,S,Q\#/@``/R8,&3\`!PP"
  2123. M,.`P,!P`&!@8`!@8&`#@,#`<,##@`';<`````````!`X;,;&_@```````&QL@
  2124. MV`#,`,S,S'X`/F,X;&PXS'A^PSP&/F8_`,P`>`Q\S'X`X`!X#'S,?@`P,'@,]
  2125. M?,Q^````>,#`>`PX?L,\9GY@/`#,`'C,_,!X`.``>,S\P'@`S`!P,#`P>`!\3
  2126. MQC@8&!@\`.``<#`P,'@`QCALQO[&Q@`P,`!XS/S,`!P`_&!X8/P```!_#'_,B
  2127. M?P`^;,S^S,S.`'C,`'C,S'@``,P`>,S,>```X`!XS,QX`'C,`,S,S'X``.``G
  2128. MS,S,?@``S`#,S'P,^,,8/&9F/!@`S`#,S,S,>``8&'[`P'X8&#YC.&QL.,QXZ
  2129. MS,QX_##\,##XS,SZQL_&QPX;&#P8&-AP58`!@`&``:H`,``P,'AX,``0?-#07
  2130. M?!```!@D<"!\``"!?F9F9GZ!`,S,S'@P>#``&!@8```8&!@^8SAL;#C,>`#,!
  2131. M`````````#Q:4EH\``!X#'S,=O\````2)$@D$@``````?@8&`````")^1```A
  2132. M```\6GIF/````'X````````0*!`````````P,/PP,`#\8!`@<`````#`(&`@0
  2133. MP`````P,&`````````#,S,S,=L``/%0T%!04`````#`P``````````!P,&`@6
  2134. M8"!P`````'C,S,QX_````$@D$B1(```@8"1Z%B\"`"!@)'@<(@0.P"!$*M8O.
  2135. M`@``,``P&`S,>#``>,S\S,P`,`!XS/S,S``P`'C,_,S,`"A0>,S\S,P`QCAL<
  2136. MQO[&Q@`0.&S&_L;&`!X8*"YX2(X`/&;`P,!F/!C^8FAX:&+^`/YB:'AH8OX`:
  2137. M_F)H>&AB_@#^8FAX:&+^`'@P,#`P,'@`>#`P,#`P>`!X,#`P,#!X`'@P,#`PH
  2138. M,'@``#XA^2$^```4*/;>SL;&`#ALQL;&;#@`.&S&QL9L.``X;,;&QFPX`#AL[
  2139. MQL;&;#@`PQ@\9F8\&```QFPX;,8``#ILSM;F;+@`S,S,S,S,_`#,S,S,S,S\E
  2140. M`,S,S,S,S/P`S`#,S,S,>`#,S,QX,#!X``!P.#@@('```'C,^,SXP,```'@,`
  2141. M?,QV````>`Q\S'8```!X#'S,=@```'@,?,QV`,P`>`Q\S'X```!X#'S,=@``<
  2142. M9F9F9GQ@P```>,S`S'@P``!XS/S`>````'C,_,!X````>,S\P'@```!XS/S`4
  2143. M>``P`'`P,#!X`#``<#`P,'@`,`!P,#`P>`#8`'`P,#!X``````````````#XX
  2144. MS,S,S````'C,S,QX````>,S,S'@```!XS,S,>````'C,S,QX``#,`'C,S'@`4
  2145. M```8?A@``````GS,W.QX@```S,S,S'8```#,S,S,=@```,S,S,QV``#,`,S,.
  2146. GS'X`&#``S,Q\#/@`(#@D."```,P`S,S,?`SX:7-O9F]N=```TOCLF
  2147. X``
  2148. end
  2149. size 6204
  2150. END_OF_FILE
  2151. if test 8721 -ne `wc -c <'banner-11/MB_Font.uu'`; then
  2152.     echo shar: \"'banner-11/MB_Font.uu'\" unpacked with wrong size!
  2153. fi
  2154. # end of 'banner-11/MB_Font.uu'
  2155. fi
  2156. if test -f 'banner-11/Read.Me' -a "${1}" != "-c" ; then 
  2157.   echo shar: Will not clobber existing file \"'banner-11/Read.Me'\"
  2158. else
  2159. echo shar: Extracting \"'banner-11/Read.Me'\" \(5204 characters\)
  2160. sed "s/^X//" >'banner-11/Read.Me' <<'END_OF_FILE'
  2161. mb - and just another banner program.
  2162. X
  2163. No makefile, No manualpage included.
  2164. X
  2165. It's just another senseless program but I couldn't resist in writing
  2166. it. It should just compile ok under OS-9/68k, any *IX flavour and on
  2167. nearly every other system (with same small changes...). I could only
  2168. test it on OS-9/68k.
  2169. X
  2170. The main difference to other programs: It uses an external font-file,
  2171. so you can change this as you want. The format is very easy:
  2172. X256 characters each in a size of 16 byte, displaying in following
  2173. order
  2174. bit     7 6 5 4 3 2 1 0
  2175. byte 0  X X X X X X X X
  2176. byte 1  X X X X X X X X
  2177. byte 2  X X X X X X X X
  2178. byte 3  X X X X X X X X
  2179. byte 4  X X X X X X X X
  2180. byte 5  X X X X X X X X
  2181. byte 6  X X X X X X X X
  2182. byte 7  X X X X X X X X
  2183. byte 8  X X X X X X X X
  2184. byte 9  X X X X X X X X
  2185. byte 10 X X X X X X X X
  2186. byte 11 X X X X X X X X
  2187. byte 12 X X X X X X X X
  2188. byte 13 X X X X X X X X
  2189. byte 14 X X X X X X X X
  2190. byte 15 X X X X X X X X
  2191. X
  2192. Then 256 characters with a size of 8 bytes each follows, order is the
  2193. same as above (but only 8 lines).
  2194. X
  2195. This file may be prefixed by an OS-9/68k module header of 48 bytes
  2196. X(these font files are used on an OS-9 implementation for the Atari ST).
  2197. X
  2198. The format itself can be found in the Atari ST TOS world very often,
  2199. so it's easy to get other fonts (I haven't included any, 'cause I
  2200. don't if they are copyrighted, sigh).
  2201. X
  2202. There is no difference to other programs of the same type, the most
  2203. common options are available:
  2204. X-o=<file>  use this fontfile instead of $HOME/.font or
  2205. X           /dd/SYS/MB_Font (OS-9) / /etc/MB_Font (*IX) / \MB_FONT (DOS)
  2206. X-l         use the larger (16x8) font (default is 8x8 font)
  2207. X-w=<num>   width multiplicator
  2208. X-h=<num>   hight multiplicator
  2209. X-c         print the letters cursive (well not really cursive...)
  2210. X-C         make the banner cursive in other direction
  2211. X-i         invert the printing (exchange for- and background pattern)
  2212. X-f=<char>  use <char> as the forground (i.e. write) pattern
  2213. X           (default `*')
  2214. X-b=<char>  the background (default ` ')
  2215. X-s         use the character itself as the forground pattern
  2216. X
  2217. If no string is given, the strings are read in from stdin until
  2218. an EOF is detected.
  2219. X
  2220. You can print a leading `-' with a construct `--'
  2221. X
  2222. The included font file represents roughly the ISO 8859/1 character
  2223. set.
  2224. X
  2225. Bug: if a fontfile starts with the bytes 0x4a 0xfc then it is assumed
  2226. to be a OS-9 Module and the first 48 bytes are skipped...
  2227. X
  2228. Some expamples:
  2229. X% mb Foo Bar
  2230. X*******                 
  2231. X **   *                 
  2232. X ** *    ****    ****   
  2233. X ****   **  **  **  **  
  2234. X ** *   **  **  **  **  
  2235. X **     **  **  **  **  
  2236. X****     ****    ****   
  2237. X                        
  2238. X******                  
  2239. X **  **                 
  2240. X **  **  ****   ** ***  
  2241. X *****      **   *** ** 
  2242. X **  **  *****   **  ** 
  2243. X **  ** **  **   **     
  2244. X******   *** ** ****    
  2245. X                        
  2246. X
  2247. X$ mb "Foo Bar"
  2248. X*******                         ******                  
  2249. X **   *                          **  **                 
  2250. X ** *    ****    ****            **  **  ****   ** ***  
  2251. X ****   **  **  **  **           *****      **   *** ** 
  2252. X ** *   **  **  **  **           **  **  *****   **  ** 
  2253. X **     **  **  **  **           **  ** **  **   **     
  2254. X****     ****    ****           ******   *** ** ****    
  2255. X                                                        
  2256. X$ mb -lcfXb. "--Foo Bar"
  2257. X...............................................................................
  2258. X...............................................................................
  2259. X...............................................................................
  2260. X....................XXXXXXX.........................XXXXXX.....................
  2261. X...................XX..............................XX...XX.....................
  2262. X..................XX..............................XX...XX......................
  2263. X.................XX.......XXXXX...XXXXX..........XX...XX..XXXXX..XXXXXX........
  2264. X.........XXXXXX.XXXXX...XX...XX.XX...XX.........XXXXXX.......XX.XX...XX........
  2265. X...............XX......XX...XX.XX...XX.........XX...XX..XXXXXX.XX...XX.........
  2266. X..............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX...............
  2267. X.............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX................
  2268. X............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX.................
  2269. X...........XX.......XXXXX...XXXXX..........XXXXXX...XXXXXX.XX..................
  2270. X...............................................................................
  2271. X...............................................................................
  2272. X...............................................................................
  2273. X
  2274. X$ mb -w=3 Foo
  2275. X*********************                                                   
  2276. X   ******         ***                                                   
  2277. X   ******   ***            ************            ************         
  2278. X   ************         ******      ******      ******      ******      
  2279. X   ******   ***         ******      ******      ******      ******      
  2280. X   ******               ******      ******      ******      ******      
  2281. X************               ************            ************         
  2282. X                                                                        
  2283. END_OF_FILE
  2284. if test 5204 -ne `wc -c <'banner-11/Read.Me'`; then
  2285.     echo shar: \"'banner-11/Read.Me'\" unpacked with wrong size!
  2286. fi
  2287. # end of 'banner-11/Read.Me'
  2288. fi
  2289. if test -f 'banner-11/mb.c' -a "${1}" != "-c" ; then 
  2290.   echo shar: Will not clobber existing file \"'banner-11/mb.c'\"
  2291. else
  2292. echo shar: Extracting \"'banner-11/mb.c'\" \(7453 characters\)
  2293. sed "s/^X//" >'banner-11/mb.c' <<'END_OF_FILE'
  2294. X/*
  2295. X *    mb:    another banner program with external fontfiles
  2296. X *
  2297. X *    (C) Copyrighted 1992 by Ulrich Dessauer, Germering, Germany
  2298. X *
  2299. X *    You can copy, forward, redistribute the whole package as long
  2300. X *    as you make no profit and this copyright messages stays untouched!
  2301. X */
  2302. X# include    <stdio.h>
  2303. X# include    <errno.h>
  2304. X# ifdef        OSK
  2305. X# include    <modes.h>
  2306. X# include    <module.h>
  2307. X# define    R_OK        S_IREAD
  2308. X# define    MODHEADSIZ    sizeof (struct modhcom)
  2309. X# else        /* OSK */
  2310. X# include    <fcntl.h>
  2311. X# ifndef    R_OK
  2312. X# define    R_OK        O_RDONLY
  2313. X# endif        /* R_OK */
  2314. X# define    MODSYNC        ((unsigned long) 0x4afc)
  2315. X# define    MODHEADSIZ    0x30
  2316. X# if        defined (USG) || defined (SYSV) || defined (SYS5) || defined (HAS_STRCHR)
  2317. X# define    index        strchr
  2318. X# endif        /* defined (USG) || defined (SYSV) || defined (SYS5) || defined (HAS_STRCHR) */
  2319. X# endif        /* OSK */
  2320. X
  2321. X    /* binary read for fopen */
  2322. X# if        defined (MSDOS) || defined (msdos) || defined (TOS)
  2323. X# define    READ_BINARY    "rb"
  2324. X# else        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  2325. X# define    READ_BINARY    "r"
  2326. X# endif        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  2327. X
  2328. X# define    FALSE        (0 == 1)
  2329. X# define    TRUE        (1 == 1)
  2330. X
  2331. X# ifdef        OSK
  2332. X# define    DEF_FONTFILE    "/dd/SYS/MB_Font"
  2333. X# else        /* OSK */
  2334. X# if        defined (MSDOS) || defined (msdos) || defined (TOS)
  2335. X# define    DEF_FONTFILE    "\\MB_FONT"
  2336. X# else        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  2337. X# define    DEF_FONTFILE    "/etc/MB_Font"
  2338. X# endif        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  2339. X# endif        /* OSK */
  2340. X
  2341. X# define    NO_MEM        exit (_errmsg (errno, "Out of memory!\n"));
  2342. X
  2343. extern char    *getenv ();
  2344. extern char    *index ();
  2345. extern char    *malloc ();
  2346. X
  2347. typedef unsigned char    byte;
  2348. X
  2349. static char        *fontfile;
  2350. static int        large;
  2351. static int        width;
  2352. static int        hight;
  2353. static int        cursive;
  2354. static int        backcursive;
  2355. static int        invers;
  2356. static char        forground;
  2357. static char        background;
  2358. X
  2359. X# ifndef    OSK
  2360. X/*
  2361. X *    Not very portable....
  2362. X */
  2363. int
  2364. X_errmsg (error, fmt, a, b, c)
  2365. int error;
  2366. char *fmt;
  2367. void *a, *b, *c;
  2368. X{
  2369. X    fputs ("mb: ", stderr);
  2370. X    fprintf (stderr, fmt, a, b, c);
  2371. X    return (error);
  2372. X}
  2373. X# endif        /* OSK */
  2374. X
  2375. static void
  2376. banner (s, cset)
  2377. char *s;
  2378. byte *cset;
  2379. X{
  2380. X    register byte    *ptr;
  2381. X    register int    n;
  2382. X    register int    t;
  2383. X    register byte    b;
  2384. X    register int    ch;
  2385. X    int        u, v;
  2386. X    int        max;
  2387. X    static char    *space = NULL;
  2388. X    static int    spcsiz = 0;
  2389. X
  2390. X    if (! space) {
  2391. X        spcsiz = (large ? 16 : 8) * hight;
  2392. X        if (! (space = malloc (spcsiz + 4)))
  2393. X            return;
  2394. X    }
  2395. X    if (cursive || backcursive) {
  2396. X        memset (space, invers ? forground : background, spcsiz);
  2397. X        space[spcsiz] = '\0';
  2398. X    }
  2399. X    max = (large ? 16 : 8) * hight;
  2400. X    for (n = 0; n < max; ++n) {
  2401. X        if (cursive) {
  2402. X            space[max - n - 1] = '\0';
  2403. X            fputs (space, stdout);
  2404. X        } else if (backcursive)
  2405. X            for (t = 0; t < n; ++t)
  2406. X                putchar (invers ? forground : background);
  2407. X        ptr = (byte *) s;
  2408. X        while (*ptr) {
  2409. X            b = cset[(*ptr << (large ? 4 : 3)) + (n / hight)];
  2410. X                for (t = 7; t >= 0; --t) {
  2411. X                    if (((b & (1 << t)) != 0) ^ invers)
  2412. X                        ch = forground ? forground : (int) *ptr;
  2413. X                    else
  2414. X                        ch = background;
  2415. X                    for (u = 0; u < width; ++u)
  2416. X                        putchar (ch);
  2417. X                }
  2418. X            ++ptr;
  2419. X        }
  2420. X        if (cursive)
  2421. X            for (t = 0; t < n; ++t)
  2422. X                putchar (invers ? forground : background);
  2423. X        else if (backcursive) {
  2424. X            space[max - n - 1] = '\0';
  2425. X            fputs (space, stdout);
  2426. X        }
  2427. X        putchar ('\n');
  2428. X    }
  2429. X}
  2430. X
  2431. static char    *help[] = {
  2432. X    "Syntax: mb [<opts>] [<string(s)] [<opts>]\n",
  2433. X    "Function: prints a string in large letter\n",
  2434. X    "Options:\n",
  2435. X    "     -o=<file> Use <file> instead of default font-file\n",
  2436. X    "     -l        print an even larger banner than default\n",
  2437. X    "     -w=<num>  prints banner with <num> width\n",
  2438. X    "     -h=<num>  prints banner with <num> hight\n",
  2439. X    "     -c        make the banner cursive (eek, not real cursive...)\n",
  2440. X    "     -C        make the banner cursive in other direction\n",
  2441. X    "     -i        invert the characters\n",
  2442. X    "     -f=<char> use <char> as the forground pattern\n",
  2443. X    "     -b=<char> use <char> as the background pattern\n",
  2444. X    "     -s        use the printed character as the forground pattern\n",
  2445. X    NULL
  2446. X};
  2447. X
  2448. static void
  2449. usage ()
  2450. X{
  2451. X    register int    t;
  2452. X
  2453. X    for (t = 0; help[t]; ++t)
  2454. X        fputs (help[t], stderr);
  2455. X}
  2456. X
  2457. int
  2458. main (ac, av)
  2459. int ac;
  2460. char *av[];
  2461. X{
  2462. X    FILE    *fp;
  2463. X    byte    msync[2];
  2464. X    byte    *csetl, *csets;
  2465. X    int    t, err;
  2466. X    char    *ptr, *tmp;
  2467. X    int    use_char;
  2468. X    int    found_string;
  2469. X
  2470. X    fontfile = NULL;
  2471. X    large = FALSE;
  2472. X    width = 1;
  2473. X    hight = 1;
  2474. X    cursive = FALSE;
  2475. X    backcursive = FALSE;
  2476. X    invers = FALSE;
  2477. X    forground = '*';
  2478. X    background = ' ';
  2479. X    use_char = FALSE;
  2480. X    found_string = FALSE;
  2481. X    for (t = 1; t < ac; ++t)
  2482. X        if ((av[t][0] == '-') && (av[t][1] != '-')) {
  2483. X            ptr = av[t] + 1;
  2484. X            while (*ptr) {
  2485. X                switch (*ptr) {
  2486. X                    case 'o':
  2487. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2488. X                        fontfile = ptr;
  2489. X                        while (*ptr)
  2490. X                            ++ptr;
  2491. X                        break;
  2492. X                    case 'l':
  2493. X                        large = TRUE;
  2494. X                        break;
  2495. X                    case 'w':
  2496. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2497. X                        if ((width = atoi (ptr)) < 1)
  2498. X                            width = 1;
  2499. X                        while (*ptr)
  2500. X                            ++ptr;
  2501. X                        break;
  2502. X                    case 'h':
  2503. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2504. X                        if ((hight = atoi (ptr)) < 1)
  2505. X                            hight = 1;
  2506. X                        while (*ptr)
  2507. X                            ++ptr;
  2508. X                        break;
  2509. X                    case 'c':
  2510. X                        cursive = TRUE;
  2511. X                        break;
  2512. X                    case 'C':
  2513. X                        backcursive = TRUE;
  2514. X                        break;
  2515. X                    case 'i':
  2516. X                        invers = TRUE;
  2517. X                        break;
  2518. X                    case 'f':
  2519. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2520. X                        forground = *ptr;
  2521. X                        break;
  2522. X                    case 'b':
  2523. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2524. X                        background = *ptr;
  2525. X                        break;
  2526. X                    case 's':
  2527. X                        use_char = TRUE;
  2528. X                        break;
  2529. X                    case '?':
  2530. X                    default:
  2531. X                        usage ();
  2532. X                        exit (((*ptr == '?') || (*ptr == 'h')) ? 0 :
  2533. X                            _errmsg (1, "Unknown option '%c'.\n", *ptr));
  2534. X                }
  2535. X                if (*ptr)
  2536. X                    ++ptr;
  2537. X            }
  2538. X        } else
  2539. X            found_string = TRUE;
  2540. X    if (use_char)
  2541. X        forground = '\0';
  2542. X    if (large) {
  2543. X        if (! (csetl = (byte *) malloc (256 * 16)))
  2544. X            NO_MEM
  2545. X        csets = NULL;
  2546. X    } else {
  2547. X        if (! (csets = (byte *) malloc (256 * 8)))
  2548. X            NO_MEM
  2549. X        csetl = NULL;
  2550. X    }
  2551. X    if (! fontfile) {
  2552. X        if (ptr = getenv ("HOME"))
  2553. X            if (tmp = malloc (strlen (ptr) + 16)) {
  2554. X                sprintf (tmp, "%s/.font", ptr);
  2555. X                if (access (tmp, R_OK) != -1)
  2556. X                    fontfile = tmp;
  2557. X                else
  2558. X                    free (tmp);
  2559. X            }
  2560. X        if (! fontfile)
  2561. X            fontfile = DEF_FONTFILE;
  2562. X    }
  2563. X    if (! (fp = fopen (fontfile, READ_BINARY)))
  2564. X        exit (_errmsg (errno, "Can't open %s.\n", fontfile));
  2565. X    if (fread (msync, sizeof (byte), 2, fp) != 2) {
  2566. X        fclose (fp);
  2567. X        exit (_errmsg (errno, "Can't read first %d byte%s.\n",
  2568. X            sizeof (short), sizeof (short) > 1 ? "s" : ""));
  2569. X    }
  2570. X    if ((msync[0] == (byte) ((MODSYNC >> 8) & 0xff)) && (msync[1] == (byte) (MODSYNC & 0xff)))
  2571. X        err = fseek (fp, MODHEADSIZ, 0);
  2572. X    else
  2573. X        err = fseek (fp, 0, 0);
  2574. X    if (err == -1) {
  2575. X        fclose (fp);
  2576. X        exit (_errmsg (errno, "Can't fseek to start of font data!\n"));
  2577. X    }
  2578. X    if (large) {
  2579. X        if (fread (csetl, sizeof (byte), 16 * 256, fp) != 16 * 256) {
  2580. X            fclose (fp);
  2581. X            exit (_errmsg (errno, "Can't read font data (large).\n"));
  2582. X        }
  2583. X    } else {
  2584. X        if (fseek (fp, 256 * 16, 1) == -1) {
  2585. X            fclose (fp);
  2586. X            exit (_errmsg (errno, "Can't fseek to font data.\n"));
  2587. X        }
  2588. X        if (fread (csets, sizeof (byte), 8 * 256, fp) != 8 * 256) {
  2589. X            fclose (fp);
  2590. X            exit (_errmsg (errno, "Can't read font data (small).\n"));
  2591. X        }
  2592. X    }
  2593. X    fclose (fp);
  2594. X    if (found_string) {
  2595. X        for (t = 1; t < ac; ++t)
  2596. X            if ((av[t][0] != '-') || (av[t][1] == '-'))
  2597. X                banner (av[t] + (av[t][0] == '-' ? 1 : 0), large ? csetl : csets);
  2598. X    } else if (ptr = malloc (130)) {
  2599. X        while (fgets (ptr, 128, stdin)) {
  2600. X            if (tmp = index (ptr, '\n'))
  2601. X                *tmp = '\0';
  2602. X            banner (ptr, large ? csetl : csets);
  2603. X        }
  2604. X        free (ptr);
  2605. X    }
  2606. X}
  2607. END_OF_FILE
  2608. if test 7453 -ne `wc -c <'banner-11/mb.c'`; then
  2609.     echo shar: \"'banner-11/mb.c'\" unpacked with wrong size!
  2610. fi
  2611. # end of 'banner-11/mb.c'
  2612. fi
  2613. if test -f 'banner-13/cyrban.c' -a "${1}" != "-c" ; then 
  2614.   echo shar: Will not clobber existing file \"'banner-13/cyrban.c'\"
  2615. else
  2616. echo shar: Extracting \"'banner-13/cyrban.c'\" \(7519 characters\)
  2617. sed "s/^X//" >'banner-13/cyrban.c' <<'END_OF_FILE'
  2618. X/* 
  2619. X *  ####  #   #  ####   ####     #    #   # 
  2620. X * #      #  ##  #   #   #      # #   #   # 
  2621. X * #      # # #  ####    ####  #####  ##### 
  2622. X * #      ##  #  #       #  #  #   #  #   # 
  2623. X *  ####  #   #  #      #####  #   #  #   # 
  2624. X * 
  2625. X * cyrban.c by Matt Welsh: a big hack to do Cyrillic banners.
  2626. X * Handles all Cyrillic letters except Yo (because the dots won't fit--
  2627. X * Russians usu. don't use the dots anyway!).
  2628. X * The keyboard mapping is very straighforward, except:
  2629. X *  ~ = eh              / = myaknii znak    w = sha 
  2630. X *  ` = yoo             | = ih              x = scha
  2631. X *  \ = tvordnii zhak   q = tse             > = i-kratkoe
  2632. X *
  2633. X * Problems: doesn't do numbers and some punctuation, or
  2634. X * capital letters. This program can easily be generalized
  2635. X * into a 'multibanner' program to read in a BUAF character
  2636. X * file, however, this was a quickie to churn out alt.fan.warlord bait.
  2637. X *
  2638. X * v1.1  welshm@dg-rtp.dg.com
  2639. X * (c)1992 Matt Welsh
  2640. X * This program is free software.
  2641. X * You may distribute copies of the source and executable for this program
  2642. X * free of charge, as long as the copyright notice is kept intact and
  2643. X * any modifactions bear the original copyright notice.
  2644. X */
  2645. X
  2646. X#include <stdio.h>
  2647. X#include <string.h>
  2648. X
  2649. enum {lA=0, lB, lC, lD, lE, lF, lG, lH, lI, lJ, lK, lL, lM, lN, lO, lP,
  2650. X      lQ, lR, lS, lT, lU, lV, lW, lX, lY, lZ, 
  2651. X      lBS, lFS, lPI, lTL, lBQ, lGR, lSP};
  2652. X#define NUMLETTERS lSP           /* Keep lSP as last letter in series! */
  2653. char *letters[NUMLETTERS][5];
  2654. X
  2655. void printline(c,line) char c; int line; {
  2656. X  
  2657. X  if ((c<='z') && (c>='a')) {
  2658. X    printf("%s",letters[(int)(c-'a')][line]);
  2659. X  } else {
  2660. X    switch(c) {
  2661. X      case '\\': printf("%s",letters[lBS][line]); break;
  2662. X      case '/': printf("%s",letters[lFS][line]); break;
  2663. X      case '|': printf("%s",letters[lPI][line]); break;
  2664. X      case '~': printf("%s",letters[lTL][line]); break;
  2665. X      case '`': printf("%s",letters[lBQ][line]); break;
  2666. X      case ' ': printf("%s",letters[lSP][line]); break;
  2667. X      case '>': printf("%s",letters[lGR][line]); break;
  2668. X    }
  2669. X  }
  2670. X}
  2671. X
  2672. X
  2673. void printstring(s) char *s; { 
  2674. X  
  2675. X  int n,i,j,c;
  2676. X  n=strlen(s); if (n>11) n=11;
  2677. X  for (i=0; i<5; i++) {
  2678. X    for (j=0; j<n; j++) {
  2679. X      c=tolower(s[j]);
  2680. X      printline(c,i);
  2681. X    }
  2682. X   printf("\n");
  2683. X  }
  2684. X}
  2685. X
  2686. void initletters();
  2687. X
  2688. void main(argc,argv) int argc; char **argv; {
  2689. X  int i;
  2690. X  initletters();
  2691. X  if (argc<2) exit(1);
  2692. X  for (i=1; i<argc; i++) {
  2693. X    printstring(argv[i]);
  2694. X   printf("\n\n");
  2695. X  }
  2696. X}
  2697. X
  2698. X
  2699. void initletters() {      
  2700. X/* I know this is ugly and redundant. As I said, this can
  2701. X * easily be read into a file, but I didn't feel like messing
  2702. X * with it at 3 in the morning. 
  2703. X */ 
  2704. X  letters[lA][0]="   #   ";      
  2705. X  letters[lA][1]="  # #  ";
  2706. X  letters[lA][2]=" ##### ";
  2707. X  letters[lA][3]=" #   # ";
  2708. X  letters[lA][4]=" #   # ";
  2709. X 
  2710. X  letters[lB][0]=" ####  ";      
  2711. X  letters[lB][1]="  #    ";
  2712. X  letters[lB][2]="  #### ";
  2713. X  letters[lB][3]="  #  # ";
  2714. X  letters[lB][4]=" ##### ";
  2715. X
  2716. X  letters[lC][0]=" #   # ";      
  2717. X  letters[lC][1]=" #   # ";
  2718. X  letters[lC][2]="  #### ";
  2719. X  letters[lC][3]="     # ";
  2720. X  letters[lC][4]="     # ";
  2721. X  
  2722. X  letters[lD][0]=" ##### ";      
  2723. X  letters[lD][1]="  #  # ";
  2724. X  letters[lD][2]="  #  # ";
  2725. X  letters[lD][3]="  #### ";
  2726. X  letters[lD][4]=" #    #";
  2727. X  
  2728. X  letters[lE][0]=" ##### ";     
  2729. X  letters[lE][1]=" #     ";
  2730. X  letters[lE][2]=" ####  ";
  2731. X  letters[lE][3]=" #     ";
  2732. X  letters[lE][4]=" ##### ";
  2733. X  
  2734. X  letters[lF][0]="   #   ";      
  2735. X  letters[lF][1]="  ###  ";
  2736. X  letters[lF][2]=" # # # ";
  2737. X  letters[lF][3]="  ###  ";
  2738. X  letters[lF][4]="   #   ";
  2739. X  
  2740. X  letters[lG][0]=" ##### ";      
  2741. X  letters[lG][1]=" #   # ";
  2742. X  letters[lG][2]=" #     ";
  2743. X  letters[lG][3]=" #     ";
  2744. X  letters[lG][4]=" #     ";
  2745. X  
  2746. X  letters[lH][0]=" #   # ";      
  2747. X  letters[lH][1]="  # #  ";
  2748. X  letters[lH][2]="   #   ";
  2749. X  letters[lH][3]="  # #  ";
  2750. X  letters[lH][4]=" #   # ";
  2751. X  
  2752. X  letters[lI][0]=" #   # ";      
  2753. X  letters[lI][1]=" #  ## ";
  2754. X  letters[lI][2]=" # # # ";
  2755. X  letters[lI][3]=" ##  # ";
  2756. X  letters[lI][4]=" #   # ";
  2757. X  
  2758. X  letters[lJ][0]=" # # # ";      
  2759. X  letters[lJ][1]="  ###  ";
  2760. X  letters[lJ][2]="   #   ";
  2761. X  letters[lJ][3]="  ###  ";
  2762. X  letters[lJ][4]=" # # # ";
  2763. X  
  2764. X  letters[lK][0]=" #   # ";      
  2765. X  letters[lK][1]=" #  #  ";
  2766. X  letters[lK][2]=" ###   ";
  2767. X  letters[lK][3]=" #  #  ";
  2768. X  letters[lK][4]=" #   # ";
  2769. X  
  2770. X  letters[lL][0]=" ##### ";     
  2771. X  letters[lL][1]="  #  # ";
  2772. X  letters[lL][2]="  #  # ";
  2773. X  letters[lL][3]="  #  # ";
  2774. X  letters[lL][4]=" #   # ";
  2775. X  
  2776. X  letters[lM][0]=" #   # ";      
  2777. X  letters[lM][1]=" ## ## ";
  2778. X  letters[lM][2]=" # # # ";
  2779. X  letters[lM][3]=" #   # ";
  2780. X  letters[lM][4]=" #   # ";
  2781. X  
  2782. X  letters[lN][0]=" #   # ";     
  2783. X  letters[lN][1]=" #   # ";
  2784. X  letters[lN][2]=" ##### ";
  2785. X  letters[lN][3]=" #   # ";
  2786. X  letters[lN][4]=" #   # ";
  2787. X  
  2788. X  letters[lO][0]="  ###  ";     
  2789. X  letters[lO][1]=" #   # ";
  2790. X  letters[lO][2]=" #   # ";
  2791. X  letters[lO][3]=" #   # ";
  2792. X  letters[lO][4]="  ###  ";
  2793. X  
  2794. X  letters[lP][0]=" ##### ";     
  2795. X  letters[lP][1]=" #   # ";
  2796. X  letters[lP][2]=" #   # ";
  2797. X  letters[lP][3]=" #   # ";
  2798. X  letters[lP][4]=" #   # ";
  2799. X  
  2800. X  letters[lQ][0]=" #   # ";     
  2801. X  letters[lQ][1]=" #   # ";
  2802. X  letters[lQ][2]=" #   # ";
  2803. X  letters[lQ][3]=" ##### ";
  2804. X  letters[lQ][4]="     # ";
  2805. X  
  2806. X  letters[lR][0]=" ####  ";     
  2807. X  letters[lR][1]=" #   # ";
  2808. X  letters[lR][2]=" ####  ";
  2809. X  letters[lR][3]=" #     ";
  2810. X  letters[lR][4]=" #     ";
  2811. X  
  2812. X  letters[lS][0]="  #### ";     
  2813. X  letters[lS][1]=" #     ";
  2814. X  letters[lS][2]=" #     ";
  2815. X  letters[lS][3]=" #     ";
  2816. X  letters[lS][4]="  #### ";
  2817. X  
  2818. X  letters[lT][0]=" ##### ";     
  2819. X  letters[lT][1]="   #   ";
  2820. X  letters[lT][2]="   #   ";
  2821. X  letters[lT][3]="   #   ";
  2822. X  letters[lT][4]="   #   ";
  2823. X  
  2824. X  letters[lU][0]=" #   # ";     
  2825. X  letters[lU][1]="  # #  ";
  2826. X  letters[lU][2]="   #   ";
  2827. X  letters[lU][3]="  #    ";
  2828. X  letters[lU][4]=" #     ";
  2829. X  
  2830. X  letters[lV][0]=" ####  ";     
  2831. X  letters[lV][1]=" #   # ";
  2832. X  letters[lV][2]=" ####  ";
  2833. X  letters[lV][3]=" #   # ";
  2834. X  letters[lV][4]=" ####  ";
  2835. X  
  2836. X  letters[lW][0]=" #   # ";     
  2837. X  letters[lW][1]=" # # # ";
  2838. X  letters[lW][2]=" # # # ";
  2839. X  letters[lW][3]=" # # # ";
  2840. X  letters[lW][4]="  ###  ";
  2841. X  
  2842. X  letters[lX][0]=" #   # ";     
  2843. X  letters[lX][1]=" # # # ";
  2844. X  letters[lX][2]=" # # # ";
  2845. X  letters[lX][3]=" # # # ";
  2846. X  letters[lX][4]="  #####";
  2847. X  
  2848. X  letters[lY][0]="  #### ";     
  2849. X  letters[lY][1]=" #   # ";
  2850. X  letters[lY][2]="  #### ";
  2851. X  letters[lY][3]="  #  # ";
  2852. X  letters[lY][4]=" #   # ";
  2853. X  
  2854. X  letters[lZ][0]=" ####  ";     
  2855. X  letters[lZ][1]="     # ";
  2856. X  letters[lZ][2]="  ###  ";
  2857. X  letters[lZ][3]="     # ";
  2858. X  letters[lZ][4]=" ####  ";
  2859. X  
  2860. X  letters[lBS][0]=" ##  ";    
  2861. X  letters[lBS][1]=" #   ";
  2862. X  letters[lBS][2]=" ##  ";
  2863. X  letters[lBS][3]=" # # ";
  2864. X  letters[lBS][4]=" ##  ";
  2865. X  
  2866. X  letters[lFS][0]=" #   ";     
  2867. X  letters[lFS][1]=" #   ";
  2868. X  letters[lFS][2]=" ##  ";
  2869. X  letters[lFS][3]=" # # ";
  2870. X  letters[lFS][4]=" ##  ";
  2871. X  
  2872. X  letters[lPI][0]=" #   # ";     
  2873. X  letters[lPI][1]=" #   # ";
  2874. X  letters[lPI][2]=" ##  # ";
  2875. X  letters[lPI][3]=" # # # ";
  2876. X  letters[lPI][4]=" ##  # ";
  2877. X  
  2878. X  letters[lTL][0]=" ####  ";     
  2879. X  letters[lTL][1]="     # ";
  2880. X  letters[lTL][2]=" ##### ";
  2881. X  letters[lTL][3]="     # ";
  2882. X  letters[lTL][4]=" ####  ";
  2883. X  
  2884. X  letters[lBQ][0]=" #  ##  ";     
  2885. X  letters[lBQ][1]=" # #  # ";
  2886. X  letters[lBQ][2]=" ###  # ";
  2887. X  letters[lBQ][3]=" # #  # ";
  2888. X  letters[lBQ][4]=" #  ##  ";
  2889. X
  2890. X  letters[lGR][0]=" # # # ";
  2891. X  letters[lGR][1]=" #  ## ";
  2892. X  letters[lGR][2]=" # # # ";
  2893. X  letters[lGR][3]=" ##  # ";
  2894. X  letters[lGR][4]=" #   # ";
  2895. X
  2896. X  letters[lSP][0]="      ";
  2897. X  letters[lSP][1]="      ";
  2898. X  letters[lSP][2]="      ";
  2899. X  letters[lSP][3]="      ";
  2900. X  letters[lSP][4]="      ";
  2901. X}
  2902. END_OF_FILE
  2903. if test 7519 -ne `wc -c <'banner-13/cyrban.c'`; then
  2904.     echo shar: \"'banner-13/cyrban.c'\" unpacked with wrong size!
  2905. fi
  2906. # end of 'banner-13/cyrban.c'
  2907. fi
  2908. if test -f 'cursive-01/cursive.c' -a "${1}" != "-c" ; then 
  2909.   echo shar: Will not clobber existing file \"'cursive-01/cursive.c'\"
  2910. else
  2911. echo shar: Extracting \"'cursive-01/cursive.c'\" \(6630 characters\)
  2912. sed "s/^X//" >'cursive-01/cursive.c' <<'END_OF_FILE'
  2913. X/*        CURSIVE SIGNATURE PROGRAM        Version 0.10
  2914. X *              (c) 1985 - Jan Wolter
  2915. X *
  2916. X *  Purpose:    This program translates text into crude cursive script.
  2917. X *        It works on any terminal with a fairly normal character
  2918. X *        set (must have backslashes and underscores and suchlike).
  2919. X *        The font includes all upper and lower case letters, most
  2920. X *        punctuation, and a few symbols.  No numbers are included
  2921. X *        (It's difficult to make a nice italicized set of numbers).
  2922. X *        Cursive was originally written to generate fancy signatures
  2923. X *        for electronic mail messages, but other uses may occur to
  2924. X *        you.  The attractiveness of the font varies greatly with
  2925. X *        the display device.
  2926. X *
  2927. X *  Usage:    If no command line arguments are given, cursive reads the
  2928. X *        text to translate from standard input.  Otherwise the args
  2929. X *        are translated (e.g. "cursive Jan Wolter" prints my name).
  2930. X *        Output is always to standard output.  A couple command line
  2931. X *        arguments are recognized:
  2932. X *
  2933. X *          -in    Sets the amount of space to insert between letters.
  2934. X *            The default is "-i1".  "-i0" gives interesting
  2935. X *            results.
  2936. X *          -tn    Sets the length of the trailing line off the end
  2937. X *            of each word.  The default is "-t1".
  2938. X *
  2939. X *        One character in the text is treated in a special way:
  2940. X *
  2941. X *          '_'   Can be inserted in text to slightly lengthen the
  2942. X *            the spacing between two letters, or add a longer
  2943. X *            tail to the end of a word.
  2944. X *
  2945. X *  Internals:    Unfortunately, the program is a kludge and the font is
  2946. X *        somewhat difficult to edit.  It should be easy to port
  2947. X *        though.  Systems with short integers or unsigned characters
  2948. X *        should be no problem.  You should probably run "xstr" on the
  2949. X *        font.c file, but if you haven't got "xstr", just compiling it
  2950. X *        the usual way works fine.
  2951. X *
  2952. X *  Copyright:    Both the cursive program and the font it generates are
  2953. X *        copyrighted by yours truly.  However, both may be used
  2954. X *        and distributed freely.  You even have my permission to
  2955. X *        sell it, or include in it a system that you sell.  I only
  2956. X *        ask that my name be retained on this program, or any direct
  2957. X *        decendents of this program with approximately the same
  2958. X *        visibility as in this posting.
  2959. X *
  2960. X *  Mail:    I'm interested in any comments you have on this program.
  2961. X *        I can be mailed at "janc@crim.eecs.umich.edu".  Better yet,
  2962. X *        if you are into teleconferencing, call M-Net at (313) 994-6333
  2963. X *        and type "newuser" at the "login:" prompt to give yourself an
  2964. X *        account.  Send mail to janc, or join the "ugames" conference.
  2965. X *
  2966. X *        Have fun,
  2967. X *                  ___                _     __  _
  2968. X *                 (   >              ' )   /   // _/_
  2969. X *                  __/___.  ____      / / / __|/  /  _  __
  2970. X *                 / / (_/|_/ / <__   (_(_/ (_) \_<__</_/ (__
  2971. X *                <_/
  2972. X */
  2973. X
  2974. X#include <stdio.h>
  2975. X#include "cursive.h"
  2976. X
  2977. char *buffer[6];    /* memory buffers to build up line in */
  2978. int c[6];        /* current index in each of the buffer lines */
  2979. int tail[6];        /* which buffer lines have tails in them */
  2980. int lasttail;        /* which line was the last letter's tail */
  2981. int space;        /* how much white space before the next letter */
  2982. int interspace = 1;    /* how much to spread adjacent letters out */
  2983. int taillen = 1;    /* how long the tails on ends of words should be */
  2984. char firstletter;    /* is this the first letter on the line? */
  2985. char message[256] = "";    /* message to print */
  2986. X
  2987. char *malloc();
  2988. X
  2989. main(argc,argv)
  2990. int argc;
  2991. char **argv;
  2992. X{
  2993. int i;
  2994. char *s,*m;
  2995. char ch;
  2996. X
  2997. X    m = message;
  2998. X    for (i = 1; i < argc; i++)
  2999. X    {
  3000. X        if (*argv[i] == '-')
  3001. X            switch(ch = argv[i][1])
  3002. X            {
  3003. X            case 'i':
  3004. X            case 't':
  3005. X                s = argv[i]+2;
  3006. X                if (*s == '\000')
  3007. X                    if (++i < argc)
  3008. X                        s = argv[i];
  3009. X                if (*s < '0' || *s > '9')
  3010. X                {
  3011. X                    printf("%s: Illegal value %s\n",
  3012. X                        argv[0],s);
  3013. X                    exit(1);
  3014. X                }
  3015. X                if (ch == 'i')
  3016. X                    interspace = atoi(s);
  3017. X                else
  3018. X                    taillen = atoi(s);
  3019. X                break;
  3020. X            default:
  3021. X                printf("usage: %s [-tn] [-in] message\n",
  3022. X                    argv[0]);
  3023. X                exit(1);
  3024. X            }
  3025. X        else
  3026. X        {
  3027. X            if (m != message)
  3028. X                *(m++) = ' ';
  3029. X            for (s=argv[i]; *s != '\000'; s++)
  3030. X                *(m++) = *s;
  3031. X        }
  3032. X    }
  3033. X    /* Do the deed */
  3034. X    if (m != message)
  3035. X    {
  3036. X        /* Message from the arg list */
  3037. X        *(m++) = 0;
  3038. X        prline(message);
  3039. X    }
  3040. X    else
  3041. X    {
  3042. X        /* Message from standard input */
  3043. X        while (gets(message) != NULL)
  3044. X            prline(message);
  3045. X    }
  3046. X}
  3047. X
  3048. X
  3049. X/* Add the given letter to the end of the current line */
  3050. X
  3051. place(let)
  3052. struct letter *let;
  3053. X{
  3054. int i,j,n;
  3055. int col;
  3056. int max = -10000;
  3057. char pad;
  3058. char *l;
  3059. X
  3060. X    if (firstletter)
  3061. X    {
  3062. X        col = space;        /* Leading spaces */
  3063. X        firstletter = 0;
  3064. X    }
  3065. X    else
  3066. X    {
  3067. X        /* Find the furthest left position we can place this letter */
  3068. X        for(i=0; i<6; i++)
  3069. X        {
  3070. X            if (let->line[i][0] != '\000' &&
  3071. X                (col = c[i] - let->spcs[i]) > max)
  3072. X                max = col;
  3073. X        }
  3074. X
  3075. X        /* Insert some spaces between letters */
  3076. X        col = max + space + interspace;
  3077. X    }
  3078. X
  3079. X    for(i=0; i<6; i++)
  3080. X
  3081. X        /* If Nothing on this Line, Skip It */
  3082. X        if (let->line[i][0] != '\000')
  3083. X        {
  3084. X            /* Number of Spaces to Put on this Line? */
  3085. X            n = col - c[i] + let->spcs[i];
  3086. X
  3087. X            /* Flyers off Ends of Letters */
  3088. X            if (tail[i])
  3089. X                for (j = 0;
  3090. X                     j < 5 && n > space + 2; j++,n--)
  3091. X                    buffer[i][c[i]++] = '_';
  3092. X
  3093. X            /* Connecting Lines Between Letters */
  3094. X            pad = (lasttail == i && let->tailin == i) ? '_' : ' ';
  3095. X
  3096. X            /* In the middle of the intersection of South and */
  3097. X            /* East University, someone is playing the piano. */
  3098. X            for ( ; n > 0; n--)
  3099. X                buffer[i][c[i]++] = pad;
  3100. X
  3101. X            /* Copy in the letter text */
  3102. X            for (l = let->line[i]; *l != '\000'; l++)
  3103. X                buffer[i][c[i]++] = *l;
  3104. X
  3105. X            tail[i] = (i == let->tailout);
  3106. X        }
  3107. X
  3108. X    lasttail = let->tailout;
  3109. X    space = 0;
  3110. X}
  3111. X
  3112. X/* Lengthen the last trailer by n */
  3113. tailer(n)
  3114. int n;
  3115. X{
  3116. int j;
  3117. X    if (lasttail >= 0)
  3118. X        for (j = 0; j < n; j++)
  3119. X            buffer[lasttail][c[lasttail]++] = '_';
  3120. X}
  3121. X
  3122. X/* Handle a line */
  3123. prline(s)
  3124. char *s;
  3125. X{
  3126. int l,i;
  3127. char *ch;
  3128. short lcode;
  3129. X
  3130. X    lasttail = -1;
  3131. X    firstletter = 1;
  3132. X    space = 0;
  3133. X    /* Get some memory to put the output into */
  3134. X    l = strlen(s) * (CHARWIDTH + interspace);
  3135. X    for (i=0;i<6;i++)
  3136. X    {
  3137. X        buffer[i] = malloc((unsigned)l);
  3138. X        tail[i] = c[i] = 0;
  3139. X    }
  3140. X
  3141. X    /* do each letter */
  3142. X    for (ch=s; *ch != '\000'; ch++)
  3143. X    {
  3144. X
  3145. X        *ch &= '\177';
  3146. X        /* Find the letter */
  3147. X        lcode = (lasttail != 2) ? code1[*ch] : code2[*ch];
  3148. X        if (lcode >= 0)
  3149. X            place(&list[lcode]);
  3150. X        else
  3151. X            /* Various Special characters */
  3152. X            switch(lcode)
  3153. X            {
  3154. X            case SP:
  3155. X                /* Insert white space before next letter */
  3156. X                tailer(taillen);
  3157. X                space += 3;
  3158. X                lasttail = -1;
  3159. X                break;
  3160. X            case ST:
  3161. X                /* Lengthen the last tail */
  3162. X                if (lasttail >= 0)
  3163. X                    buffer[lasttail][c[lasttail]++] = '_';
  3164. X                break;
  3165. X            }
  3166. X    }
  3167. X    tailer(taillen);
  3168. X
  3169. X    /* print the line and release the memory */
  3170. X    for (i=0;i<6;i++)
  3171. X    {
  3172. X        buffer[i][c[i]++] = '\n';
  3173. X        write(1,buffer[i],c[i]);
  3174. X        free(buffer[i]);
  3175. X    }
  3176. X}
  3177. END_OF_FILE
  3178. if test 6630 -ne `wc -c <'cursive-01/cursive.c'`; then
  3179.     echo shar: \"'cursive-01/cursive.c'\" unpacked with wrong size!
  3180. fi
  3181. # end of 'cursive-01/cursive.c'
  3182. fi
  3183. if test -f 'cursive-02/cursive.c' -a "${1}" != "-c" ; then 
  3184.   echo shar: Will not clobber existing file \"'cursive-02/cursive.c'\"
  3185. else
  3186. echo shar: Extracting \"'cursive-02/cursive.c'\" \(7070 characters\)
  3187. sed "s/^X//" >'cursive-02/cursive.c' <<'END_OF_FILE'
  3188. X/*        CURSIVE SIGNATURE PROGRAM        Version 0.10
  3189. X *              (c) 1985 - Jan Wolter
  3190. X *
  3191. X *  Purpose:    This program translates text into crude cursive script.
  3192. X *        It works on any terminal with a fairly normal character
  3193. X *        set (must have backslashes and underscores and suchlike).
  3194. X *        The font includes all upper and lower case letters, most
  3195. X *        punctuation, and a few symbols.  No numbers are included
  3196. X *        (It's difficult to make a nice italicized set of numbers).
  3197. X *        Cursive was originally written to generate fancy signatures
  3198. X *        for electronic mail messages, but other uses may occur to
  3199. X *        you.  The attractiveness of the font varies greatly with
  3200. X *        the display device.
  3201. X *
  3202. X *  Usage:    If no command line arguments are given, cursive reads the
  3203. X *        text to translate from standard input.  Otherwise the args
  3204. X *        are translated (e.g. "cursive Jan Wolter" prints my name).
  3205. X *        Output is always to standard output.  A couple command line
  3206. X *        arguments are recognized:
  3207. X *
  3208. X *          -in    Sets the amount of space to insert between letters.
  3209. X *            The default is "-i1".  "-i0" gives interesting
  3210. X *            results.
  3211. X *          -tn    Sets the length of the trailing line off the end
  3212. X *            of each word.  The default is "-t1".
  3213. X *
  3214. X *        One character in the text is treated in a special way:
  3215. X *
  3216. X *          '_'   Can be inserted in text to slightly lengthen the
  3217. X *            the spacing between two letters, or add a longer
  3218. X *            tail to the end of a word.
  3219. X *
  3220. X *  Internals:    Unfortunately, the program is a kludge and the font is
  3221. X *        somewhat difficult to edit.  It should be easy to port
  3222. X *        though.  Systems with short integers or unsigned characters
  3223. X *        should be no problem.  You should probably run "xstr" on the
  3224. X *        font.c file, but if you haven't got "xstr", just compiling it
  3225. X *        the usual way works fine.
  3226. X *
  3227. X *  Copyright:    Both the cursive program and the font it generates are
  3228. X *        copyrighted by yours truly.  However, both may be used
  3229. X *        and distributed freely.  You even have my permission to
  3230. X *        sell it, or include in it a system that you sell.  I only
  3231. X *        ask that my name be retained on this program, or any direct
  3232. X *        decendents of this program with approximately the same
  3233. X *        visibility as in this posting.
  3234. X *
  3235. X *  Mail:    I'm interested in any comments you have on this program.
  3236. X *        I can be mailed at "janc@crim.eecs.umich.edu".  Better yet,
  3237. X *        if you are into teleconferencing, call M-Net at (313) 994-6333
  3238. X *        and type "newuser" at the "login:" prompt to give yourself an
  3239. X *        account.  Send mail to janc, or join the "ugames" conference.
  3240. X *
  3241. X *        Have fun,
  3242. X *                  ___                _     __  _
  3243. X *                 (   >              ' )   /   // _/_
  3244. X *                  __/___.  ____      / / / __|/  /  _  __
  3245. X *                 / / (_/|_/ / <__   (_(_/ (_) \_<__</_/ (__
  3246. X *                <_/
  3247. X */
  3248. X
  3249. X/*
  3250. X * $Log:    cursive.c,v $
  3251. X * Revision 1.2  87/12/05  09:18:09  hyc
  3252. X * Added #ifdef's for MTS CBell, or Bell Labs C in MTS.
  3253. X * (The Michigan Terminal System, our homegrown IBM 370 OS. Funstuff.
  3254. X *  But hey, it was the first 370 OS with a real filesystem...  }-)
  3255. X * 
  3256. X */
  3257. X
  3258. X#include <stdio.h>
  3259. X#include "cursive.h"
  3260. X
  3261. char *buffer[6];    /* memory buffers to build up line in */
  3262. int c[6];        /* current index in each of the buffer lines */
  3263. int tail[6];        /* which buffer lines have tails in them */
  3264. int lasttail;        /* which line was the last letter's tail */
  3265. int space;        /* how much white space before the next letter */
  3266. int interspace = 1;    /* how much to spread adjacent letters out */
  3267. int taillen = 1;    /* how long the tails on ends of words should be */
  3268. char firstletter;    /* is this the first letter on the line? */
  3269. char message[256] = "";    /* message to print */
  3270. X
  3271. char *malloc();
  3272. X
  3273. main(argc,argv)
  3274. int argc;
  3275. char **argv;
  3276. X{
  3277. int i;
  3278. char *s,*m;
  3279. char ch;
  3280. X
  3281. X    m = message;
  3282. X    for (i = 1; i < argc; i++)
  3283. X    {
  3284. X        if (*argv[i] == '-')
  3285. X            switch(ch = argv[i][1])
  3286. X            {
  3287. X            case 'i':
  3288. X            case 't':
  3289. X                s = argv[i]+2;
  3290. X                if (*s == '\000')
  3291. X                    if (++i < argc)
  3292. X                        s = argv[i];
  3293. X                if (*s < '0' || *s > '9')
  3294. X                {
  3295. X                    printf("%s: Illegal value %s\n",
  3296. X                        argv[0],s);
  3297. X                    exit(1);
  3298. X                }
  3299. X                if (ch == 'i')
  3300. X                    interspace = atoi(s);
  3301. X                else
  3302. X                    taillen = atoi(s);
  3303. X                break;
  3304. X            default:
  3305. X                printf("usage: %s [-tn] [-in] message\n",
  3306. X                    argv[0]);
  3307. X                exit(1);
  3308. X            }
  3309. X        else
  3310. X        {
  3311. X            if (m != message)
  3312. X                *(m++) = ' ';
  3313. X            for (s=argv[i]; *s != '\000'; s++)
  3314. X                *(m++) = *s;
  3315. X        }
  3316. X    }
  3317. X    /* Do the deed */
  3318. X    if (m != message)
  3319. X    {
  3320. X        /* Message from the arg list */
  3321. X        *(m++) = 0;
  3322. X        prline(message);
  3323. X    }
  3324. X    else
  3325. X    {
  3326. X        /* Message from standard input */
  3327. X        while (gets(message) != NULL)
  3328. X            prline(message);
  3329. X    }
  3330. X}
  3331. X
  3332. X
  3333. X/* Add the given letter to the end of the current line */
  3334. X
  3335. place(let)
  3336. struct letter *let;
  3337. X{
  3338. int i,j,n;
  3339. int col;
  3340. int max = -10000;
  3341. char pad;
  3342. char *l;
  3343. X
  3344. X    if (firstletter)
  3345. X    {
  3346. X        col = space;        /* Leading spaces */
  3347. X        firstletter = 0;
  3348. X    }
  3349. X    else
  3350. X    {
  3351. X        /* Find the furthest left position we can place this letter */
  3352. X        for(i=0; i<6; i++)
  3353. X        {
  3354. X            if (let->line[i][0] != '\000' &&
  3355. X                (col = c[i] - let->spcs[i]) > max)
  3356. X                max = col;
  3357. X        }
  3358. X
  3359. X        /* Insert some spaces between letters */
  3360. X        col = max + space + interspace;
  3361. X    }
  3362. X
  3363. X    for(i=0; i<6; i++)
  3364. X
  3365. X        /* If Nothing on this Line, Skip It */
  3366. X        if (let->line[i][0] != '\000')
  3367. X        {
  3368. X            /* Number of Spaces to Put on this Line? */
  3369. X            n = col - c[i] + let->spcs[i];
  3370. X
  3371. X            /* Flyers off Ends of Letters */
  3372. X            if (tail[i])
  3373. X                for (j = 0;
  3374. X                     j < 5 && n > space + 2; j++,n--)
  3375. X                    buffer[i][c[i]++] = '_';
  3376. X
  3377. X            /* Connecting Lines Between Letters */
  3378. X            pad = (lasttail == i && let->tailin == i) ? '_' : ' ';
  3379. X
  3380. X            /* In the middle of the intersection of South and */
  3381. X            /* East University, someone is playing the piano. */
  3382. X            for ( ; n > 0; n--)
  3383. X                buffer[i][c[i]++] = pad;
  3384. X
  3385. X            /* Copy in the letter text */
  3386. X            for (l = let->line[i]; *l != '\000'; l++)
  3387. X                buffer[i][c[i]++] = *l;
  3388. X
  3389. X            tail[i] = (i == let->tailout);
  3390. X        }
  3391. X
  3392. X    lasttail = let->tailout;
  3393. X    space = 0;
  3394. X}
  3395. X
  3396. X/* Lengthen the last trailer by n */
  3397. tailer(n)
  3398. int n;
  3399. X{
  3400. int j;
  3401. X    if (lasttail >= 0)
  3402. X        for (j = 0; j < n; j++)
  3403. X            buffer[lasttail][c[lasttail]++] = '_';
  3404. X}
  3405. X
  3406. X/* Handle a line */
  3407. prline(s)
  3408. char *s;
  3409. X{
  3410. int l,i;
  3411. char *ch;
  3412. short lcode;
  3413. X
  3414. X#ifdef mts
  3415. X
  3416. int mode=&0x040, lnum=0;
  3417. X
  3418. X    etoa(s,strlen(s));
  3419. X#endif
  3420. X    lasttail = -1;
  3421. X    firstletter = 1;
  3422. X    space = 0;
  3423. X    /* Get some memory to put the output into */
  3424. X    l = strlen(s) * (CHARWIDTH + interspace);
  3425. X    for (i=0;i<6;i++)
  3426. X    {
  3427. X        buffer[i] = malloc((unsigned)l);
  3428. X        tail[i] = c[i] = 0;
  3429. X    }
  3430. X
  3431. X    /* do each letter */
  3432. X    for (ch=s; *ch != '\000'; ch++)
  3433. X    {
  3434. X
  3435. X        *ch &= '\177';
  3436. X        /* Find the letter */
  3437. X        lcode = (lasttail != 2) ? code1[*ch] : code2[*ch];
  3438. X        if (lcode >= 0)
  3439. X            place(&list[lcode]);
  3440. X        else
  3441. X            /* Various Special characters */
  3442. X            switch(lcode)
  3443. X            {
  3444. X            case SP:
  3445. X                /* Insert white space before next letter */
  3446. X                tailer(taillen);
  3447. X                space += 3;
  3448. X                lasttail = -1;
  3449. X                break;
  3450. X            case ST:
  3451. X                /* Lengthen the last tail */
  3452. X                if (lasttail >= 0)
  3453. X                    buffer[lasttail][c[lasttail]++] = '_';
  3454. X                break;
  3455. X            }
  3456. X    }
  3457. X    tailer(taillen);
  3458. X
  3459. X    /* print the line and release the memory */
  3460. X    for (i=0;i<6;i++)
  3461. X    {
  3462. X#ifdef mts
  3463. X        lcode=(short)c[i];
  3464. X        mtswrite(buffer[i],&lcode,&mod,&lnum,"SPRINT  ");
  3465. X#else mts
  3466. X        buffer[i][c[i]++] = '\n';
  3467. X        write(1,buffer[i],c[i]);
  3468. X#endif mts
  3469. X        free(buffer[i]);
  3470. X    }
  3471. X}
  3472. END_OF_FILE
  3473. if test 7070 -ne `wc -c <'cursive-02/cursive.c'`; then
  3474.     echo shar: \"'cursive-02/cursive.c'\" unpacked with wrong size!
  3475. fi
  3476. # end of 'cursive-02/cursive.c'
  3477. fi
  3478. echo shar: End of archive 2 \(of 7\).
  3479. cp /dev/null ark2isdone
  3480. MISSING=""
  3481. for I in 1 2 3 4 5 6 7 ; do
  3482.     if test ! -f ark${I}isdone ; then
  3483.     MISSING="${MISSING} ${I}"
  3484.     fi
  3485. done
  3486. if test "${MISSING}" = "" ; then
  3487.     echo You have unpacked all 7 archives.
  3488.     rm -f ark[1-9]isdone
  3489. else
  3490.     echo You still need to unpack the following archives:
  3491.     echo "        " ${MISSING}
  3492. fi
  3493. ##  End of shell archive.
  3494. exit 0
  3495.