home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / banners / part01 < prev    next >
Encoding:
Text File  |  1993-04-07  |  103.7 KB  |  5,377 lines
  1. Newsgroups: comp.sources.unix
  2. From: fkk@stasys.sta.sub.org (Frank Kaefer)
  3. Subject: v26i109: banners - a collection of banner programs, Part01/05
  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 109
  9. Archive-Name: banners/part01
  10.  
  11. [ this is an unusual posting in that it contains no top-level Makefile and
  12.   no man pages.  i am publishing it anyway, since as a collection of related
  13.   software (all are banner programs of one kind or another), i believe that
  14.   it is useful even if it doesn't build up into a shiny package of binaries
  15.   and man pages.  comments on this kind of posting are encouraged.  this kind
  16.   of posting, in general, is discouraged.                --vix ]
  17.  
  18. Hi Paul!
  19.  
  20. I am sending you a 5 part shell archive and would like to ask you to post it
  21. in comp.sources.unix. The shell archive contains a collection of banner
  22. programs that might be interesting for many netters.
  23.  
  24.     Cheers,
  25.     Frank
  26.     -- 
  27.     | Frank Kaefer | fkk@stasys.sta.sub.org | Starnberg, Germany |
  28.     | Compuserve: 72427,2101  |  Internet: frank.kaefer@Sun.COM  |
  29.     | unido!sunde!fkaefer     |      fkaefer@Germany.Sun.COM     |
  30.  
  31. #! /bin/sh
  32. # This is a shell archive.  Remove anything before this line, then unpack
  33. # it by saving it into a file and typing "sh file".  To overwrite existing
  34. # files, type "sh file -c".  You can also feed this as standard input via
  35. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  36. # will see the following message at the end:
  37. #        "End of archive 1 (of 5)."
  38. # Contents:  MANIFEST README banner-1 banner-1/banner.c
  39. #   banner-1/makefile banner-10 banner-10/scripto.alt
  40. #   banner-10/scripto.doc banner-10/scripto.pas banner-10/scripto.set
  41. #   banner-11 banner-11/Read.Me banner-11/mb.c banner-2 banner-3
  42. #   banner-3/Makefile banner-3/README banner-3/banr.f0
  43. #   banner-3/banr.f1 banner-3/banr.f2.uu banner-4
  44. #   banner-4/sysvbanner.c banner-5 banner-5/3db.c banner-5/Banner.doc
  45. #   banner-5/kban.c banner-5/kban.hlp banner-5/lban.c
  46. #   banner-5/lban.dat banner-5/leb.c banner-5/sban.dat banner-5/seb.c
  47. #   banner-6 banner-6/banner.6 banner-7 banner-7/banner.c banner-8
  48. #   banner-9 banner-9/Makefile banner-9/TODO banner-9/block.c
  49. #   cursive-1 cursive-1/Makefile cursive-1/README cursive-1/cursive.6
  50. #   cursive-1/cursive.h cursive-2 cursive-2/Makefile
  51. #   cursive-2/cursive.6 cursive-2/cursive.h gothic
  52. # Wrapped by vixie@gw.home.vix.com on Thu Apr  8 12:26:11 1993
  53. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  54. if test -f 'MANIFEST' -a "${1}" != "-c" ; then 
  55.   echo shar: Will not clobber existing file \"'MANIFEST'\"
  56. else
  57. echo shar: Extracting \"'MANIFEST'\" \(2253 characters\)
  58. sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
  59. X   File Name        Archive #    Description
  60. X-----------------------------------------------------------
  61. X MANIFEST                   1    This shipping list
  62. X README                     1    
  63. X banner-1                   1    
  64. X banner-1/banner.c          1    
  65. X banner-1/font.c            2    
  66. X banner-1/makefile          1    
  67. X banner-10                  1    
  68. X banner-10/scripto.alt      1    
  69. X banner-10/scripto.doc      1    
  70. X banner-10/scripto.pas      1    
  71. X banner-10/scripto.set      1    
  72. X banner-11                  1    
  73. X banner-11/MB_Font.uu       2    
  74. X banner-11/Read.Me          1    
  75. X banner-11/mb.c             1    
  76. X banner-2                   1    
  77. X banner-2/banner.c          3    
  78. X banner-3                   1    
  79. X banner-3/Makefile          1    
  80. X banner-3/README            1    
  81. X banner-3/banr.c            3    
  82. X banner-3/banr.f0           1    
  83. X banner-3/banr.f1           1    
  84. X banner-3/banr.f2.uu        1    
  85. X banner-4                   1    
  86. X banner-4/sysvbanner.c      1    
  87. X banner-5                   1    
  88. X banner-5/3db.c             1    
  89. X banner-5/Banner.doc        1    
  90. X banner-5/block.c           2    
  91. X banner-5/cursive.c         3    
  92. X banner-5/kban.c            1    
  93. X banner-5/kban.hlp          1    
  94. X banner-5/kbandat.c         3    
  95. X banner-5/lban.c            1    
  96. X banner-5/lban.dat          1    
  97. X banner-5/leb.c             1    
  98. X banner-5/sban.c            2    
  99. X banner-5/sban.dat          1    
  100. X banner-5/seb.c             1    
  101. X banner-5/vban.c            4    
  102. X banner-6                   1    
  103. X banner-6/banner.6          1    
  104. X banner-6/banner.c          5    
  105. X banner-7                   1    
  106. X banner-7/banner.c          1    
  107. X banner-8                   1    
  108. X banner-8/banner.c          2    
  109. X banner-8/banner.c-org      2    
  110. X banner-9                   1    
  111. X banner-9/Makefile          1    
  112. X banner-9/TODO              1    
  113. X banner-9/block.c           1    
  114. X banner-9/data.c            3    
  115. X cursive-1                  1    
  116. X cursive-1/Makefile         1    
  117. X cursive-1/README           1    
  118. X cursive-1/cursive.6        1    
  119. X cursive-1/cursive.c        2    
  120. X cursive-1/cursive.h        1    
  121. X cursive-1/font.c           2    
  122. X cursive-2                  1    
  123. X cursive-2/Makefile         1    
  124. X cursive-2/cursive.6        1    
  125. X cursive-2/cursive.c        2    
  126. X cursive-2/cursive.h        1    
  127. X cursive-2/font.c           3    
  128. X gothic                     1    
  129. X gothic/gothic.c            2    
  130. END_OF_FILE
  131. if test 2253 -ne `wc -c <'MANIFEST'`; then
  132.     echo shar: \"'MANIFEST'\" unpacked with wrong size!
  133. fi
  134. # end of 'MANIFEST'
  135. fi
  136. if test -f 'README' -a "${1}" != "-c" ; then 
  137.   echo shar: Will not clobber existing file \"'README'\"
  138. else
  139. echo shar: Extracting \"'README'\" \(1463 characters\)
  140. sed "s/^X//" >'README' <<'END_OF_FILE'
  141. Return-Path: stasys!fkk@Germany.Sun.COM
  142. Received: by cognition.pa.dec.com; id AA14191; Sun, 19 Apr 92 08:21:13 -0700
  143. Received: by inet-gw-1.pa.dec.com; id AA19652; Sun, 19 Apr 92 08:21:13 -0700
  144. Received: from snail.Sun.COM (snail.Corp.Sun.COM) by Sun.COM (4.1/SMI-4.1)id AA23626; Sun, 19 Apr 92 08:21:12 PDT
  145. Received: from Germany.Sun.COM (sungy) by snail.Sun.COM (4.1/SMI-4.1)id AA08616; Sun, 19 Apr 92 08:21:10 PDT
  146. Received: from sunde.Germany.Sun.COM by Germany.Sun.COM (4.1/SMI-4.1e.fkk)id AA04595; Sun, 19 Apr 92 17:21:08 +0200
  147. Received: from stasys.UUCP by sunde.Germany.Sun.COM (4.1/SMI-4.1-MHS-7.0)id AA15486; Sun, 19 Apr 92 17:21:06 +0200
  148. Received: by stasys.sta.sub.org [129.157.154.4] (/\==/\ Smail3.1.25.1 #25.1)id <m0lcdFN-000Dv0C@stasys.sta.sub.org>; Sun, 19 Apr 92 16:52 MET DST
  149. Message-Id: <m0lcdFN-000Dv0C@stasys.sta.sub.org>
  150. XFrom: fkk@stasys.sta.sub.org (Frank Kaefer)
  151. Subject: Submission vor comp.sources.unix
  152. To: vixie
  153. Date: Sun, 19 Apr 92 16:52:05 MET DST
  154. Reply-To: jason@Germany.Sun.COM
  155. XX-Mailer: ELM [version 2.3 PL11]
  156. X
  157. Hi Paul!
  158. X
  159. I am sending you a 5 part shell archive and would like to ask you to post
  160. it in comp.sources.unix. The shell archive contains a collection of banner
  161. programs that might be interesting for many netters.
  162. X
  163. Cheers,
  164. XFrank
  165. X-- 
  166. X| Frank Kaefer | fkk@stasys.sta.sub.org | Starnberg, Germany |
  167. X| Compuserve: 72427,2101  |  Internet: frank.kaefer@Sun.COM  |
  168. X| unido!sunde!fkaefer     |      fkaefer@Germany.Sun.COM     |
  169. END_OF_FILE
  170. if test 1463 -ne `wc -c <'README'`; then
  171.     echo shar: \"'README'\" unpacked with wrong size!
  172. fi
  173. # end of 'README'
  174. fi
  175. if test ! -d 'banner-1' ; then
  176.     echo shar: Creating directory \"'banner-1'\"
  177.     mkdir 'banner-1'
  178. fi
  179. if test -f 'banner-1/banner.c' -a "${1}" != "-c" ; then 
  180.   echo shar: Will not clobber existing file \"'banner-1/banner.c'\"
  181. else
  182. echo shar: Extracting \"'banner-1/banner.c'\" \(5255 characters\)
  183. sed "s/^X//" >'banner-1/banner.c' <<'END_OF_FILE'
  184. X/*
  185. X * The ultimative banner.
  186. X *
  187. X * Written in 1987 by Wolfgang Ocker, reccoware systems, Puchheim
  188. X *
  189. X * It's *not* fast, but nice ...
  190. X *
  191. X * Tested on OS-9/68000, SunOS
  192. X */
  193. X
  194. X#include <stdio.h>
  195. X#ifdef OSK
  196. X#include <modes.h>
  197. X#else
  198. X#define S_IREAD 0
  199. X#endif
  200. X
  201. X
  202. X#define TRUE  1
  203. X#define FALSE 0
  204. X
  205. extern unsigned char charset;      /* Zeichensatz */
  206. extern int           errno;
  207. X
  208. X#ifdef OSK
  209. X/*
  210. X * Signal Handler (Dummy)
  211. X */
  212. int sighandler()
  213. X{
  214. X}
  215. X#endif
  216. X
  217. X/*
  218. X * m a i n
  219. X */
  220. main(argc, argv)
  221. X  int  argc;
  222. X  char *argv[];
  223. X{
  224. X  char          *str, strbuf[200];
  225. X  int           linenum, chnum, i, j, k, count, strnum;
  226. X  unsigned char ch;
  227. X  int           ch_off;
  228. X  unsigned char *ch_addr;
  229. X  unsigned char *font;
  230. X  int           italic, dblsize, samechar;
  231. X  char          bannerchar;
  232. X  FILE          *infp;  
  233. X  char          *from, *plife;
  234. X
  235. X  italic     = dblsize = samechar = FALSE;
  236. X  strnum     = 0;
  237. X  from       = NULL;
  238. X  bannerchar = '*';
  239. X  plife      = NULL;
  240. X
  241. X  /*
  242. X   * Get the arguments. I *hate* getopt(:-). This works nice (and is
  243. X   * simpler).
  244. X   */
  245. X  for (i = 1; i < argc; i++)
  246. X    if (argv[i][0] == '-')
  247. X      for (j = 1; j < strlen(argv[i]); j++)
  248. X        switch(tolower(argv[i][j])) {
  249. X          case '?':
  250. X            usage();
  251. X            exit(1);
  252. X            
  253. X          case 'i':     /* italic printing */
  254. X            italic = TRUE;
  255. X            break;          
  256. X
  257. X          case 'd':     /* double sized characters */
  258. X            dblsize = TRUE;
  259. X            break;
  260. X  
  261. X          case 's':     /* use character to build large char, e.g.
  262. X                         * c becomes
  263. X                         *
  264. X                         *  ccc
  265. X                         * c   
  266. X                         * c          (or so ...)
  267. X                         *  ccc
  268. X                         */
  269. X            samechar = TRUE;
  270. X            break;
  271. X
  272. X#ifdef OSK          
  273. X          case 'l':
  274. X            plife = argv[i] + j + (argv[i][j+1] == '=' ? 2 : 1);
  275. X            j = strlen(argv[i]);
  276. X            break;
  277. X#endif
  278. X  
  279. X          case 'c':       /* character for banner */
  280. X            j += argv[i][j+1] == '=' ? 2 : 1;
  281. X            bannerchar = argv[i][j];
  282. X            break;
  283. X 
  284. X          case 'z':       /* get text from ... */
  285. X            if (from) {
  286. X              usage();
  287. X              fputs("multiple 'z' option not allowed\n", stderr);
  288. X              exit(1);
  289. X            }
  290. X
  291. X            from = argv[i] + j + (argv[i][j+1] == '=' ? 2 : 1);
  292. X            j = strlen(argv[i]);
  293. X            break;
  294. X
  295. X          default:
  296. X            usage();
  297. X            fprintf(stderr, "banner: unknown option '%c'\n", argv[i][j]);
  298. X            exit(1);
  299. X        }
  300. X    else
  301. X      strnum++;     /* count number of strings */
  302. X
  303. X  if (strnum == 0 && from == NULL) {
  304. X    usage();
  305. X#ifdef OSK
  306. X    exit(_errmsg(1, "no string given\n"));
  307. X#else
  308. X    exit(fputs("no string given\n", stderr), 1);
  309. X#endif
  310. X  }
  311. X
  312. X  if (strnum && from) {
  313. X    usage();
  314. X#ifdef OSK
  315. X    exit(_errmsg(1, "'z' option not allowed if string(s) given\n"));
  316. X#else
  317. X  exit(fputs("'z' option not allowed if string(s) given\n", stderr), 1);
  318. X#endif
  319. X  }
  320. X
  321. X  if (from) {
  322. X    if (from[0]) {
  323. X      if ((infp = fopen(from, "r")) == NULL)
  324. X#ifdef OSK
  325. X        exit(_errmsg(errno, "can't open '%s'\n", from));
  326. X#else
  327. X        exit(fprintf(stderr, "can't open '%s'\n", from), errno);
  328. X#endif
  329. X    }
  330. X    else
  331. X      infp = stdin;
  332. X
  333. X  }
  334. X
  335. X#ifdef OSK
  336. X  if (plife && !strcmp(plife, "dont_kill_me"))
  337. X    intercept(sighandler);
  338. X#endif
  339. X
  340. X  font = &charset;
  341. X  str  = strbuf;
  342. X
  343. X  i = 1;
  344. X  while (TRUE) {
  345. X    if (from) {     /* read strings from file/stdin */
  346. X      if (fgets(strbuf, sizeof(strbuf)-1, infp) == NULL)
  347. X        break;
  348. X      strbuf[strlen(strbuf)-1] = '\0';
  349. X    }
  350. X    else {        /* get strings from argument line */
  351. X      if ((str = argv[i++]) == NULL)
  352. X        break;
  353. X      if (str[0] == '-')
  354. X        continue;
  355. X    }
  356. X       
  357. X    for (linenum = 0; linenum < 8; linenum++) {     /* 8 lines per char */
  358. X      for (j = 0; j < (dblsize ? 2 : 1); j++) {
  359. X        putchar('\n');
  360. X
  361. X        if (italic)     /* shift for italics */
  362. X          for (k = linenum; k < 7; k++)
  363. X            fputs(dblsize ? "  " : " ", stdout);
  364. X
  365. X        for (chnum = 0; chnum < strlen(str); chnum++) {
  366. X          ch      = str[chnum];
  367. X          ch_off  = (int) ch * 8;
  368. X          ch_addr = font + ch_off + linenum;
  369. X          outline(ch, *ch_addr, dblsize, bannerchar, samechar);
  370. X        }
  371. X      } 
  372. X    }
  373. X  }
  374. X
  375. X  putchar('\n');
  376. X}
  377. X
  378. X/*
  379. X * o u t l i n e
  380. X */
  381. outline(outchar, outbyte, dblsize, bannerchar, samechar)
  382. X  char outchar, outbyte, bannerchar;
  383. X  int  dblsize, samechar;
  384. X
  385. X{
  386. X  int bc, j;
  387. X
  388. X  for (bc = 7; bc >= 0; bc--)
  389. X    for (j = 0; j < (dblsize ? 2 : 1); j++)
  390. X      if (outbyte & (0x01 << bc))
  391. X        putchar((samechar) ? outchar : bannerchar);
  392. X      else
  393. X        putchar(' ');
  394. X}
  395. X
  396. X/*
  397. X * u s a g e
  398. X */
  399. usage()
  400. X{
  401. X  fputs("Syntax: banner [<opts>] {<string>} [<opts>]\n", stderr);
  402. X  fputs("Function: prints a banner to stdout\n", stderr);
  403. X  fputs("Options:\n", stderr);
  404. X  fputs("     -i          prints italic\n", stderr);
  405. X  fputs("     -d          double size\n", stderr);
  406. X  fputs("     -c=<char>   character\n", stderr);
  407. X  fputs("     -s          use same character\n", stderr);
  408. X  fputs("     -z          read strings from standard input\n", stderr);
  409. X  fputs("     -z=<file>   read strings from <file>\n", stderr);
  410. X}
  411. END_OF_FILE
  412. if test 5255 -ne `wc -c <'banner-1/banner.c'`; then
  413.     echo shar: \"'banner-1/banner.c'\" unpacked with wrong size!
  414. fi
  415. # end of 'banner-1/banner.c'
  416. fi
  417. if test -f 'banner-1/makefile' -a "${1}" != "-c" ; then 
  418.   echo shar: Will not clobber existing file \"'banner-1/makefile'\"
  419. else
  420. echo shar: Extracting \"'banner-1/makefile'\" \(142 characters\)
  421. sed "s/^X//" >'banner-1/makefile' <<'END_OF_FILE'
  422. OBJECTS = banner.o font.o
  423. X
  424. Banner: $(OBJECTS)
  425. X    cc $(OBJECTS) -o Banner
  426. X
  427. banner.o: banner.c
  428. X    cc -c -O banner.c
  429. font.o: font.c
  430. X    cc -c -O font.c
  431. END_OF_FILE
  432. if test 142 -ne `wc -c <'banner-1/makefile'`; then
  433.     echo shar: \"'banner-1/makefile'\" unpacked with wrong size!
  434. fi
  435. # end of 'banner-1/makefile'
  436. fi
  437. if test ! -d 'banner-10' ; then
  438.     echo shar: Creating directory \"'banner-10'\"
  439.     mkdir 'banner-10'
  440. fi
  441. if test -f 'banner-10/scripto.alt' -a "${1}" != "-c" ; then 
  442.   echo shar: Will not clobber existing file \"'banner-10/scripto.alt'\"
  443. else
  444. echo shar: Extracting \"'banner-10/scripto.alt'\" \(2107 characters\)
  445. sed "s/^X//" >'banner-10/scripto.alt' <<'END_OF_FILE'
  446. A
  447. X .--.
  448. X( / :
  449. X /--+
  450. X/   |
  451. X
  452. X
  453. B
  454. X .--.
  455. X( / )
  456. X /-<
  457. X/___)
  458. X
  459. X
  460. C
  461. X   .-.
  462. X  /  :
  463. X /
  464. X(__./ @
  465. X
  466. X
  467. D
  468. X .---.
  469. X( /  |
  470. X /   |
  471. X/__,/
  472. X
  473. X
  474. XE
  475. X .----
  476. X( /__
  477. X /
  478. X/___ @
  479. X
  480. X
  481. XF
  482. X .----
  483. X( /__
  484. X /
  485. X/    @
  486. X
  487. X
  488. G
  489. X   .-.
  490. X  /  '
  491. X / -+-
  492. X(__.:
  493. X
  494. X
  495. H
  496. X .-- --
  497. X( /_ /
  498. X /  /
  499. X/  /  @
  500. X
  501. X
  502. I
  503. X   .---
  504. X  ( /
  505. X   /
  506. X__/__ @
  507. X
  508. X
  509. J
  510. X
  511. X    '|
  512. X   / |
  513. X  (__|_@
  514. X  /  |
  515. X (___'
  516. K
  517. X .--   ,
  518. X( / . '
  519. X /-<
  520. X/   \_ @
  521. X
  522. X
  523. L
  524. X    .-.
  525. X   /
  526. X  /
  527. X./____.
  528. X
  529. X
  530. M
  531. X .--..-.
  532. X( ) )  |
  533. X /  |  |
  534. X/   :  | @
  535. X
  536. X
  537. N
  538. X .--.  --
  539. X( ) )  /
  540. X /  | /
  541. X/   :/ @
  542. X
  543. X
  544. O
  545. X .---.
  546. X( /   :
  547. X /    |
  548. X :__ /
  549. X
  550. X
  551. P
  552. X .---.
  553. X( /   )
  554. X /---'
  555. X/      @
  556. X
  557. X
  558. Q
  559. X .---.
  560. X( /   :
  561. X /    |
  562. X :_(><_
  563. X
  564. X
  565. R
  566. X .--.
  567. X( /  )
  568. X /--<
  569. X/    \
  570. X
  571. X
  572. S
  573. X  .-.
  574. X (   '
  575. X  >.
  576. X(___) @
  577. X
  578. X
  579. T
  580. X .-----
  581. X(  /
  582. X  /
  583. X /   @
  584. X
  585. X
  586. U
  587. X .--  --
  588. X( /  /
  589. X /  /
  590. X(_./ @
  591. X
  592. X
  593. V
  594. X .--  --
  595. X( |   /
  596. X  |  /
  597. X  :_/ @
  598. X
  599. X
  600. W
  601. X .--   --
  602. X( |    /
  603. X  | : /
  604. X  :/:/ @
  605. X
  606. X
  607. XX
  608. X .-.  ,-
  609. X(   |/
  610. X  ./|
  611. X /  :__
  612. X
  613. X
  614. Y
  615. X .--  --
  616. X( |   /
  617. X  :_./
  618. X    /  @
  619. X ._/
  620. X
  621. Z
  622. X .----.-
  623. X(   .'
  624. X  ,'
  625. X.'____/
  626. X
  627. X
  628. a
  629. X
  630. X __
  631. X __)
  632. X(__(_
  633. X
  634. X
  635. b
  636. X   /
  637. X  /_
  638. X /  )
  639. X(__/
  640. X
  641. X
  642. c
  643. X
  644. X  ___
  645. X /
  646. X(___
  647. X
  648. X
  649. d
  650. X      /
  651. X  __ /
  652. X /  /
  653. X(__(_ @
  654. X
  655. X
  656. e
  657. X
  658. X  __
  659. X /__)
  660. X(___
  661. X
  662. X  
  663. f
  664. X     .-
  665. X    /
  666. X   /
  667. X__/_ @
  668. X /
  669. X/
  670. g
  671. X
  672. X   __ ,
  673. X  /  /
  674. X (__/_ @
  675. X   /
  676. X(_/
  677. h
  678. X   /
  679. X  /_
  680. X /  )
  681. X/   (_
  682. X
  683. X
  684. i
  685. X
  686. X  *
  687. X /
  688. X(_
  689. X
  690. X
  691. j
  692. X
  693. X     *
  694. X    /
  695. X   / @
  696. X(_/
  697. X
  698. k
  699. X   /
  700. X  /__
  701. X /<
  702. X/  \_
  703. X
  704. X
  705. l
  706. X   /)
  707. X  //
  708. X /
  709. X(_
  710. X
  711. X
  712. m
  713. X
  714. X  _  _
  715. X )' |' )
  716. X/;  :  (_
  717. X
  718. X
  719. n
  720. X
  721. X   _
  722. X )' )
  723. X/;  (_
  724. X
  725. X
  726. o
  727. X
  728. X  __
  729. X /  )
  730. X(__/
  731. X
  732. X
  733. p
  734. X
  735. X    __
  736. X   /  )
  737. X  /_./
  738. X /
  739. X/
  740. q
  741. X
  742. X  __
  743. X /  /
  744. X(_./ @
  745. X  /
  746. X (_
  747. r
  748. X
  749. X  ,__.
  750. X /  /
  751. X/  (__
  752. X
  753. X
  754. s
  755. X
  756. X  __
  757. X (_
  758. X___)
  759. X
  760. X
  761. t
  762. X
  763. X __/_
  764. X  /
  765. X (__
  766. X
  767. X
  768. u
  769. X
  770. X  .  .
  771. X /  /
  772. X(_.(_
  773. X
  774. X
  775. v
  776. X
  777. X .  _
  778. X |  )
  779. X :_/
  780. X
  781. X
  782. w
  783. X
  784. X .     _
  785. X |  .  )
  786. X :_/|_/
  787. X
  788. X
  789. x
  790. X
  791. X  : /
  792. X .+'
  793. X/ :__
  794. X
  795. X
  796. y
  797. X
  798. X .   .
  799. X |  /
  800. X :_/ @
  801. X  /
  802. X-'
  803. z
  804. X
  805. X  __
  806. X  ./
  807. X /__
  808. X
  809. X
  810. X. 
  811. X
  812. X
  813. X
  814. X@ @
  815. X
  816. X
  817. X,
  818. X
  819. X
  820. X
  821. X@ @
  822. X'
  823. X
  824. X(
  825. X  /
  826. X,'
  827. X:
  828. X \ @
  829. X
  830. X
  831. X)
  832. X  \
  833. X   :
  834. X  ,'
  835. X / @
  836. X
  837. X
  838. X-
  839. X
  840. X____
  841. X
  842. X     @
  843. X
  844. X
  845. X&
  846. X    |)
  847. X   /|
  848. X /  |)
  849. X(___/\
  850. X
  851. X
  852. X!
  853. X   /
  854. X  /
  855. X /
  856. X@  @
  857. X
  858. X
  859. X/
  860. X   /
  861. X  /
  862. X /
  863. X/  @
  864. X
  865. X
  866. X?
  867. X  .-.
  868. X (   )
  869. X   /
  870. X  .  @
  871. X
  872. X
  873. X'
  874. X  @
  875. X  '
  876. X
  877. X  @
  878. X
  879. X
  880. X:
  881. X
  882. X  @
  883. X
  884. X @ @
  885. X
  886. X
  887. X;
  888. X
  889. X  @
  890. X
  891. X @ @
  892. X '
  893. X
  894. X%
  895. X() /
  896. X  /
  897. X /
  898. X/ ()
  899. X
  900. X
  901. X*
  902. X
  903. X_\|/_
  904. X /|\
  905. X     @
  906. X
  907. X
  908. X$
  909. X  .-/-
  910. X (_/_
  911. X  /  )
  912. X-/--'
  913. X
  914. X
  915. X0
  916. X   __
  917. X  /  :
  918. X /  /
  919. X:__/
  920. X
  921. X
  922. X1
  923. X   _
  924. X   /
  925. X  /
  926. X_/_
  927. X
  928. X
  929. X2
  930. X  __
  931. X    )
  932. X .--'
  933. X(___
  934. X
  935. X
  936. X3
  937. X  __
  938. X    )
  939. X  -<
  940. X.___)
  941. X
  942. X
  943. X4
  944. X  . .
  945. X / /
  946. X'-/-
  947. X /  @
  948. X
  949. X
  950. X5
  951. X  __
  952. X /
  953. X'--.
  954. X___)
  955. X
  956. X
  957. X6
  958. X   __
  959. X  /
  960. X /-.
  961. X(__)
  962. X
  963. X
  964. X7
  965. X ___
  966. X   /
  967. X  /
  968. X :  @
  969. X
  970. X
  971. X8
  972. X  __
  973. X (  )
  974. X /-<
  975. X(___)
  976. X
  977. X
  978. X9
  979. X  __
  980. X /  )
  981. X '-/
  982. X_./ @
  983. X
  984. X
  985. X=
  986. X     .---
  987. X    ( /
  988. X_    /
  989. X(___/  @
  990. X
  991. X
  992. END_OF_FILE
  993. if test 2107 -ne `wc -c <'banner-10/scripto.alt'`; then
  994.     echo shar: \"'banner-10/scripto.alt'\" unpacked with wrong size!
  995. fi
  996. # end of 'banner-10/scripto.alt'
  997. fi
  998. if test -f 'banner-10/scripto.doc' -a "${1}" != "-c" ; then 
  999.   echo shar: Will not clobber existing file \"'banner-10/scripto.doc'\"
  1000. else
  1001. echo shar: Extracting \"'banner-10/scripto.doc'\" \(1195 characters\)
  1002. sed "s/^X//" >'banner-10/scripto.doc' <<'END_OF_FILE'
  1003. X
  1004. X  .-.
  1005. X (   '   ___  ,_.    *    __  __/_  __ 
  1006. X  >.    /    /  :   /    /  )  /   /  )
  1007. X(___)  (___ /   :_ (_   /_./  (__ (__/ 
  1008. X                       /               
  1009. X                      /                
  1010. X
  1011. Scripto is a program for building cursive writing from text.  To run scripto,
  1012. the file scripto.set must be in the current directory.  You may run scripto
  1013. interactively by starting the program and entering any readable text.  The
  1014. cursive equivalent will appear on the screen.  Of course, input and output may
  1015. be redirected so it is possible to type cursive to disk by running this way:
  1016. X"scripto >cursive.txt" or disk to disk using "scripto <input.txt >output.txt"
  1017. or to printer with "scripto >prn" (note: when writing to printer - dot matrix
  1018. only - compressed mode is recommended).
  1019. X
  1020. If you wish, you may add or change the "font" dataset: scripto.set. After
  1021. looking at a few examples, it should become obvious how a font is stored.
  1022. XEach character uses the same number of lines.  The "@" sometimes found on the
  1023. X"base" line marks where the next cursive letter would be written.  It is a
  1024. primitive form of proportional spacing.
  1025. X
  1026. XEnjoy!
  1027. X
  1028. manny juan
  1029. manny@wet.UUCP or manny@tcomeng.COM
  1030. X5/22/91
  1031. END_OF_FILE
  1032. if test 1195 -ne `wc -c <'banner-10/scripto.doc'`; then
  1033.     echo shar: \"'banner-10/scripto.doc'\" unpacked with wrong size!
  1034. fi
  1035. # end of 'banner-10/scripto.doc'
  1036. fi
  1037. if test -f 'banner-10/scripto.pas' -a "${1}" != "-c" ; then 
  1038.   echo shar: Will not clobber existing file \"'banner-10/scripto.pas'\"
  1039. else
  1040. echo shar: Extracting \"'banner-10/scripto.pas'\" \(1585 characters\)
  1041. sed "s/^X//" >'banner-10/scripto.pas' <<'END_OF_FILE'
  1042. program cursive;
  1043. type
  1044. X  line=array[0..255]of char;
  1045. X  str255=string[255];
  1046. X  str80=string[80];
  1047. X  fontch=array[-3..2,1..11]of char;
  1048. X  fontrec=record
  1049. X    width:byte;
  1050. X    def:fontch;
  1051. X  end;
  1052. X
  1053. var
  1054. X  A:string[255];
  1055. X  fonts:array[0..255]of fontrec;
  1056. X  Inp:str80;
  1057. X  Buf:array[1..6]of str255;
  1058. X  Oup:array[-3..2]of line absolute Buf;
  1059. X
  1060. procedure loadfont;
  1061. var
  1062. X  f:text;
  1063. X  Ltr:byte;
  1064. X  S:string[12];
  1065. X  i,j,
  1066. X  m:integer;
  1067. begin
  1068. X  assign(f,'scripto.set');
  1069. X  reset(f);
  1070. X  A:='';
  1071. X  fillchar(fonts,sizeof(fonts),#0);
  1072. X  while not(eof(f)) do
  1073. X    begin
  1074. X    readln(f,S);
  1075. X    A:=A+S;
  1076. X    Ltr:=ord(S[1]);
  1077. X    for i:=-3 to 2 do
  1078. X      begin
  1079. X      readln(f,S);
  1080. X      if(i=0)then
  1081. X        begin
  1082. X        if(copy(S,length(S),1)='@')then
  1083. X          delete(S,length(S),1);
  1084. X        fonts[Ltr].width:=length(S);
  1085. X        end;
  1086. X      for j:=1 to length(S) do
  1087. X        begin
  1088. X        fonts[Ltr].def[i,j]:=S[j];
  1089. X        end;
  1090. X      end;
  1091. X    end;
  1092. X  {make blank 6 chars wide}
  1093. X  fonts[ord(' ')].width:=6;
  1094. end; {loadfont}
  1095. X
  1096. procedure scripto(Inp:str80);
  1097. var
  1098. X  ch:char;
  1099. X  Ltr:byte;
  1100. X  i,j,n,c:integer;
  1101. begin
  1102. X  fillchar(Oup,sizeof(Oup),' ');
  1103. X  c:=0;
  1104. X  for n:=1 to length(Inp) do
  1105. X    begin
  1106. X    Ltr:=ord(Inp[n]);
  1107. X    for i:=-3 to 2 do
  1108. X      begin
  1109. X      for j:=1 to 11 do
  1110. X        begin
  1111. X        ch:=fonts[Ltr].def[i,j];
  1112. X        if(ch>' ')then
  1113. X          Oup[i,c+j]:=ch;
  1114. X        end;
  1115. X      end;
  1116. X      c:=c+fonts[Ltr].width+1;
  1117. X    end;
  1118. X  for i:=1 to 6 do
  1119. X    begin
  1120. X    Buf[i][0]:=chr(c);
  1121. X    writeln(Buf[i]);
  1122. X    end;
  1123. end; {scripto}
  1124. X
  1125. begin
  1126. X  loadfont;
  1127. X  readln(Inp);
  1128. X  while not(Inp='') do
  1129. X    begin
  1130. X    scripto(Inp);
  1131. X    readln(Inp);
  1132. X    end;
  1133. end.
  1134. END_OF_FILE
  1135. if test 1585 -ne `wc -c <'banner-10/scripto.pas'`; then
  1136.     echo shar: \"'banner-10/scripto.pas'\" unpacked with wrong size!
  1137. fi
  1138. # end of 'banner-10/scripto.pas'
  1139. fi
  1140. if test -f 'banner-10/scripto.set' -a "${1}" != "-c" ; then 
  1141.   echo shar: Will not clobber existing file \"'banner-10/scripto.set'\"
  1142. else
  1143. echo shar: Extracting \"'banner-10/scripto.set'\" \(2066 characters\)
  1144. sed "s/^X//" >'banner-10/scripto.set' <<'END_OF_FILE'
  1145. A
  1146. X .--.
  1147. X( / :
  1148. X /--+
  1149. X/   |
  1150. X
  1151. X
  1152. B
  1153. X .--.
  1154. X( / )
  1155. X /-<
  1156. X/___)
  1157. X
  1158. X
  1159. C
  1160. X   .-.
  1161. X  /  :
  1162. X /
  1163. X(__./ @
  1164. X
  1165. X
  1166. D
  1167. X .---.
  1168. X( /  |
  1169. X /   |
  1170. X/__,/
  1171. X
  1172. X
  1173. XE
  1174. X .----
  1175. X( /__
  1176. X /
  1177. X/___ @
  1178. X
  1179. X
  1180. XF
  1181. X .----
  1182. X( /__
  1183. X /
  1184. X/    @
  1185. X
  1186. X
  1187. G
  1188. X   .-.
  1189. X  /  '
  1190. X / -+
  1191. X(__.:
  1192. X
  1193. X
  1194. H
  1195. X .-- --
  1196. X( /_ /
  1197. X /  /
  1198. X/  /  @
  1199. X
  1200. X
  1201. I
  1202. X   .---
  1203. X  ( /
  1204. X   /
  1205. X__/__ @
  1206. X
  1207. X
  1208. J
  1209. X     .---
  1210. X    ( /
  1211. X_    /
  1212. X(___/  @
  1213. X
  1214. X
  1215. K
  1216. X .--   ,
  1217. X( / . '
  1218. X /-<
  1219. X/   \_ @
  1220. X
  1221. X
  1222. L
  1223. X    .-.
  1224. X   /
  1225. X  /
  1226. X./____.
  1227. X
  1228. X
  1229. M
  1230. X .--..-.
  1231. X( / |  |
  1232. X /  |  |
  1233. X/   :  | @
  1234. X
  1235. X
  1236. N
  1237. X .--.  --
  1238. X( / |  /
  1239. X /  | /
  1240. X/   :/ @
  1241. X
  1242. X
  1243. O
  1244. X .---.
  1245. X( /   :
  1246. X /    |
  1247. X :__ /
  1248. X
  1249. X
  1250. P
  1251. X .---.
  1252. X( /   )
  1253. X /---'
  1254. X/      @
  1255. X
  1256. X
  1257. Q
  1258. X .---.
  1259. X( /   :
  1260. X /    |
  1261. X :_(><_
  1262. X
  1263. X
  1264. R
  1265. X .--.
  1266. X( /  )
  1267. X /--<
  1268. X/    \
  1269. X
  1270. X
  1271. S
  1272. X  .-.
  1273. X (   '
  1274. X  >.
  1275. X(___) @
  1276. X
  1277. X
  1278. T
  1279. X .-----
  1280. X(  /
  1281. X  /
  1282. X /   @
  1283. X
  1284. X
  1285. U
  1286. X .--  --
  1287. X( /  /
  1288. X /  /
  1289. X(_./ @
  1290. X
  1291. X
  1292. V
  1293. X .--  --
  1294. X( |   /
  1295. X  |  /
  1296. X  :_/ @
  1297. X
  1298. X
  1299. W
  1300. X .--   --
  1301. X( |    /
  1302. X  | : /
  1303. X  :/:/ @
  1304. X
  1305. X
  1306. XX
  1307. X .-.  ,-
  1308. X(   |/
  1309. X  ./|
  1310. X /  :__
  1311. X
  1312. X
  1313. Y
  1314. X .--  --
  1315. X( |   /
  1316. X  :_./
  1317. X    /  @
  1318. X ._/
  1319. X
  1320. Z
  1321. X .----.-
  1322. X(   .'
  1323. X  ,'
  1324. X.'____/
  1325. X
  1326. X
  1327. a
  1328. X
  1329. X __
  1330. X __)
  1331. X(__(_
  1332. X
  1333. X
  1334. b
  1335. X   /
  1336. X  /_
  1337. X /  )
  1338. X(__/
  1339. X
  1340. X
  1341. c
  1342. X
  1343. X  ___
  1344. X /
  1345. X(___
  1346. X
  1347. X
  1348. d
  1349. X      /
  1350. X  __ /
  1351. X /  /
  1352. X(__(_ @
  1353. X
  1354. X
  1355. e
  1356. X
  1357. X  __
  1358. X /__)
  1359. X(___
  1360. X
  1361. X  
  1362. f
  1363. X     .-
  1364. X    /
  1365. X   /
  1366. X__/_ @
  1367. X /
  1368. X/
  1369. g
  1370. X
  1371. X   __ ,
  1372. X  /  /
  1373. X (__/_ @
  1374. X   /
  1375. X(_/
  1376. h
  1377. X   /
  1378. X  /_
  1379. X /  )
  1380. X/   (_
  1381. X
  1382. X
  1383. i
  1384. X
  1385. X  *
  1386. X /
  1387. X(_
  1388. X
  1389. X
  1390. j
  1391. X
  1392. X     *
  1393. X    /
  1394. X   / @
  1395. X(_/
  1396. X
  1397. k
  1398. X   /
  1399. X  /__
  1400. X /<
  1401. X/  \_
  1402. X
  1403. X
  1404. l
  1405. X   /)
  1406. X  //
  1407. X /
  1408. X(_
  1409. X
  1410. X
  1411. m
  1412. X
  1413. X   _  _
  1414. X )' |' )
  1415. X/   :  (_
  1416. X
  1417. X
  1418. n
  1419. X
  1420. X   _
  1421. X )' )
  1422. X/   (_
  1423. X
  1424. X
  1425. o
  1426. X
  1427. X  __
  1428. X /  )
  1429. X(__/
  1430. X
  1431. X
  1432. p
  1433. X
  1434. X    __
  1435. X   /  )
  1436. X  /_./
  1437. X /
  1438. X/
  1439. q
  1440. X
  1441. X  __
  1442. X /  /
  1443. X(_./ @
  1444. X  /
  1445. X (_
  1446. r
  1447. X
  1448. X  ,_.
  1449. X /  :
  1450. X/   :_
  1451. X
  1452. X
  1453. s
  1454. X
  1455. X  __
  1456. X (_
  1457. X___)
  1458. X
  1459. X
  1460. t
  1461. X
  1462. X __/_
  1463. X  /
  1464. X (__
  1465. X
  1466. X
  1467. u
  1468. X
  1469. X  .  .
  1470. X /  /
  1471. X(_.(_
  1472. X
  1473. X
  1474. v
  1475. X
  1476. X .  _
  1477. X |  )
  1478. X :_/
  1479. X
  1480. X
  1481. w
  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. y
  1496. X
  1497. X .   .
  1498. X |  /
  1499. X :_/ @
  1500. X  /
  1501. X-'
  1502. z
  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. X0
  1615. X   __
  1616. X  /  :
  1617. X /  /
  1618. X:__/
  1619. X
  1620. X
  1621. X1
  1622. X   _
  1623. X   /
  1624. X  /
  1625. X_/_
  1626. X
  1627. X
  1628. X2
  1629. X  __
  1630. X    )
  1631. X .--'
  1632. X(___
  1633. X
  1634. X
  1635. X3
  1636. X  __
  1637. X    )
  1638. X  -<
  1639. X.___)
  1640. X
  1641. X
  1642. X4
  1643. X  . .
  1644. X / /
  1645. X'-/-
  1646. X /  @
  1647. X
  1648. X
  1649. X5
  1650. X  __
  1651. X /
  1652. X'--.
  1653. X___)
  1654. X
  1655. X
  1656. X6
  1657. X   __
  1658. X  /
  1659. X /-.
  1660. X(__)
  1661. X
  1662. X
  1663. X7
  1664. X ___
  1665. X   /
  1666. X  /
  1667. X :  @
  1668. X
  1669. X
  1670. X8
  1671. X  __
  1672. X (  )
  1673. X /-<
  1674. X(___)
  1675. X
  1676. X
  1677. X9
  1678. X  __
  1679. X /  )
  1680. X '-/
  1681. X_./ @
  1682. X
  1683. X
  1684. END_OF_FILE
  1685. if test 2066 -ne `wc -c <'banner-10/scripto.set'`; then
  1686.     echo shar: \"'banner-10/scripto.set'\" unpacked with wrong size!
  1687. fi
  1688. # end of 'banner-10/scripto.set'
  1689. fi
  1690. if test ! -d 'banner-11' ; then
  1691.     echo shar: Creating directory \"'banner-11'\"
  1692.     mkdir 'banner-11'
  1693. fi
  1694. if test -f 'banner-11/Read.Me' -a "${1}" != "-c" ; then 
  1695.   echo shar: Will not clobber existing file \"'banner-11/Read.Me'\"
  1696. else
  1697. echo shar: Extracting \"'banner-11/Read.Me'\" \(4473 characters\)
  1698. sed "s/^X//" >'banner-11/Read.Me' <<'END_OF_FILE'
  1699. mb - and just another banner program.
  1700. X
  1701. No makefile, No manualpage included.
  1702. X
  1703. It's just another senseless program but I couldn't resist in writing
  1704. it. It should just compile ok under OS-9/68k, any *IX flavour and on
  1705. nearly every other system (with same small changes...). I could only
  1706. test it on OS-9/68k.
  1707. X
  1708. The main difference to other programs: It uses an external font-file,
  1709. so you can change this as you want. The format is very easy:
  1710. X256 characters each in a size of 16 byte, displaying in following
  1711. order
  1712. bit     7 6 5 4 3 2 1 0
  1713. byte 0  X X X X X X X X
  1714. byte 1  X X X X X X X X
  1715. byte 2  X X X X X X X X
  1716. byte 3  X X X X X X X X
  1717. byte 4  X X X X X X X X
  1718. byte 5  X X X X X X X X
  1719. byte 6  X X X X X X X X
  1720. byte 7  X X X X X X X X
  1721. byte 8  X X X X X X X X
  1722. byte 9  X X X X X X X X
  1723. byte 10 X X X X X X X X
  1724. byte 11 X X X X X X X X
  1725. byte 12 X X X X X X X X
  1726. byte 13 X X X X X X X X
  1727. byte 14 X X X X X X X X
  1728. byte 15 X X X X X X X X
  1729. X
  1730. Then 256 characters with a size of 8 bytes each follows, order is the
  1731. same as above (but only 8 lines).
  1732. X
  1733. This file may be prefixed by an OS-9/68k module header of 48 bytes
  1734. X(these font files are used on an OS-9 implementation for the Atari ST).
  1735. X
  1736. The format itself can be found in the Atari ST TOS world very often,
  1737. so it's easy to get other fonts (I haven't included any, 'cause I
  1738. don't if they are copyrighted, sigh).
  1739. X
  1740. There is no difference to other programs of the same type, the most
  1741. common options are available:
  1742. X-f=<file>  use this fontfile instead of $HOME/.font or
  1743. X           /dd/SYS/MB_Font (OS-9) / /etc/MB_Font (*IX)
  1744. X-l         use the larger (16x8) font (default is 8x8 font)
  1745. X-c         print the letters cursive (well not really cursive...)
  1746. X-i         invert the printing (exchange for- and background pattern)
  1747. X-f=<char>  use <char> as the forground (i.e. write) pattern
  1748. X           (default `*')
  1749. X-b=<char>  the background (default ` ')
  1750. X-s         use the character itself as the forground pattern
  1751. X
  1752. If no string is given, the strings are read in from stdin until
  1753. an EOF is detected.
  1754. X
  1755. You can print a leading `-' with a construct `--'
  1756. X
  1757. The included font file represents roughly the ISO 8859/1 character
  1758. set.
  1759. X
  1760. Bug: if a fontfile starts with the bytes 0x4a 0xfc then it is assumed
  1761. to be a OS-9 Module and the first 48 bytes are skipped...
  1762. X
  1763. Some expamples:
  1764. X% mb Foo Bar
  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$ mb "Foo Bar"
  1783. X*******                         ******                  
  1784. X **   *                          **  **                 
  1785. X ** *    ****    ****            **  **  ****   ** ***  
  1786. X ****   **  **  **  **           *****      **   *** ** 
  1787. X ** *   **  **  **  **           **  **  *****   **  ** 
  1788. X **     **  **  **  **           **  ** **  **   **     
  1789. X****     ****    ****           ******   *** ** ****    
  1790. X                                                        
  1791. X$ mb -lcfXb. "--Foo Bar"
  1792. X...............................................................................
  1793. X...............................................................................
  1794. X...............................................................................
  1795. X....................XXXXXXX.........................XXXXXX.....................
  1796. X...................XX..............................XX...XX.....................
  1797. X..................XX..............................XX...XX......................
  1798. X.................XX.......XXXXX...XXXXX..........XX...XX..XXXXX..XXXXXX........
  1799. X.........XXXXXX.XXXXX...XX...XX.XX...XX.........XXXXXX.......XX.XX...XX........
  1800. X...............XX......XX...XX.XX...XX.........XX...XX..XXXXXX.XX...XX.........
  1801. X..............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX...............
  1802. X.............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX................
  1803. X............XX......XX...XX.XX...XX.........XX...XX.XX...XX.XX.................
  1804. X...........XX.......XXXXX...XXXXX..........XXXXXX...XXXXXX.XX..................
  1805. X...............................................................................
  1806. X...............................................................................
  1807. X...............................................................................
  1808. X
  1809. END_OF_FILE
  1810. if test 4473 -ne `wc -c <'banner-11/Read.Me'`; then
  1811.     echo shar: \"'banner-11/Read.Me'\" unpacked with wrong size!
  1812. fi
  1813. # end of 'banner-11/Read.Me'
  1814. fi
  1815. if test -f 'banner-11/mb.c' -a "${1}" != "-c" ; then 
  1816.   echo shar: Will not clobber existing file \"'banner-11/mb.c'\"
  1817. else
  1818. echo shar: Extracting \"'banner-11/mb.c'\" \(6396 characters\)
  1819. sed "s/^X//" >'banner-11/mb.c' <<'END_OF_FILE'
  1820. X/*
  1821. X *    mb:    another banner program with external fontfiles
  1822. X *
  1823. X *    (C) Copyrighted 1992 by Ulrich Dessauer, Germering, Germany
  1824. X *
  1825. X *    You can copy, forward, redistribute the whole package as long
  1826. X *    as you make no profit and this copyright messages stays untouched!
  1827. X */
  1828. X# include    <stdio.h>
  1829. X# include    <errno.h>
  1830. X# ifdef        OSK
  1831. X# include    <modes.h>
  1832. X# include    <module.h>
  1833. X# define    R_OK        S_IREAD
  1834. X# define    MODHEADSIZ    sizeof (struct modhcom)
  1835. X# else        /* OSK */
  1836. X# include    <fcntl.h>
  1837. X# ifndef    R_OK
  1838. X# define    R_OK        O_RDONLY
  1839. X# endif        /* R_OK */
  1840. X# define    MODSYNC        ((unsigned long) 0x4afc)
  1841. X# define    MODHEADSIZ    0x30
  1842. X# if        defined (USG) || defined (SYSV) || defined (SYS5) || defined (HAS_STRCHR)
  1843. X# define    index        strchr
  1844. X# endif        /* defined (USG) || defined (SYSV) || defined (SYS5) || defined (HAS_STRCHR) */
  1845. X# endif        /* OSK */
  1846. X
  1847. X    /* use an extended cursive mode (fill left and right margin) */
  1848. X# define    XTEND_CURSIVE
  1849. X    /* binary read for fopen */
  1850. X# if        defined (MSDOS) || defined (msdos) || defined (TOS)
  1851. X# define    READ_BINARY    "rb"
  1852. X# else        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  1853. X# define    READ_BINARY    "r"
  1854. X# endif        /* defined (MSDOS) || defined (msdos) || defined (TOS) */
  1855. X
  1856. X# define    FALSE        (0 == 1)
  1857. X# define    TRUE        (1 == 1)
  1858. X
  1859. X# ifdef        OSK
  1860. X# define    DEF_FONTFILE    "/dd/SYS/MB_Font"
  1861. X# else        /* OSK */
  1862. X# define    DEF_FONTFILE    "/etc/MB_Font"
  1863. X# endif        /* OSK */
  1864. X
  1865. X# define    NO_MEM        exit (_errmsg (errno, "Out of memory!\n"));
  1866. X
  1867. extern char    *getenv ();
  1868. extern char    *index ();
  1869. extern char    *malloc ();
  1870. X
  1871. typedef unsigned char    byte;
  1872. X
  1873. static char        *fontfile;
  1874. static int        large;
  1875. static int        cursive;
  1876. static int        invers;
  1877. static char        forground;
  1878. static char        background;
  1879. X
  1880. X# ifndef    OSK
  1881. X/*
  1882. X *    Not very portable....
  1883. X */
  1884. int
  1885. X_errmsg (error, fmt, a, b, c)
  1886. int error;
  1887. char *fmt;
  1888. void *a, *b, *c;
  1889. X{
  1890. X    fputs ("mb: ", stderr);
  1891. X    fprintf (stderr, fmt, a, b, c);
  1892. X    return (error);
  1893. X}
  1894. X# endif        /* OSK */
  1895. X
  1896. static void
  1897. banner (s, cset)
  1898. char *s;
  1899. byte *cset;
  1900. X{
  1901. X    register byte    *ptr;
  1902. X    register int    n;
  1903. X    register int    t;
  1904. X    register byte    b;
  1905. X    register int    max;
  1906. X    char        space[16];
  1907. X
  1908. X    if (cursive)
  1909. X# ifdef        XTEND_CURSIVE
  1910. X        memset (space, invers ? forground : background, sizeof (space));
  1911. X# else        /* XTEND_CURSIVE */
  1912. X        strcpy (space, "               ");
  1913. X# endif        /* XTEND_CURSIVE */
  1914. X    max = large ? 16 : 8;
  1915. X    for (n = 0; n < max; ++n) {
  1916. X        if (cursive) {
  1917. X            space[max- n - 1] = '\0';
  1918. X            fputs (space, stdout);
  1919. X        }
  1920. X        ptr = (byte *) s;
  1921. X        while (*ptr) {
  1922. X            b = cset[(*ptr << (large ? 4 : 3)) + n];
  1923. X            for (t = 7; t >= 0; --t)
  1924. X                if (((b & (1 << t)) != 0) ^ invers)
  1925. X                    putchar (forground ? forground : *ptr);
  1926. X                else
  1927. X                    putchar (background);
  1928. X            ++ptr;
  1929. X        }
  1930. X# ifdef        XTEND_CURSIVE
  1931. X        if (cursive)
  1932. X            for (t = 0; t < n; ++t)
  1933. X                putchar (invers ? forground : background);
  1934. X# endif        /* XTEND_CURSIVE */
  1935. X        putchar ('\n');
  1936. X    }
  1937. X}
  1938. X
  1939. static char    *help[] = {
  1940. X    "Syntax: mb [<opts>] [<string(s)] [<opts>]\n",
  1941. X    "Function: prints a string in large letter\n",
  1942. X    "Options:\n",
  1943. X    "     -o=<file> Use <file> instead of default font-file\n",
  1944. X    "     -l        print an even larger banner than default\n",
  1945. X    "     -c        make the banner cursive (eek, not real cursive...)\n",
  1946. X    "     -i        invert the characters\n",
  1947. X    "     -f=<char> use <char> as the forground pattern\n",
  1948. X    "     -b=<char> use <char> as the background pattern\n",
  1949. X    "     -s        use the printed character as the forground pattern\n",
  1950. X    NULL
  1951. X};
  1952. X
  1953. static void
  1954. usage ()
  1955. X{
  1956. X    register int    t;
  1957. X
  1958. X    for (t = 0; help[t]; ++t)
  1959. X        fputs (help[t], stderr);
  1960. X}
  1961. X
  1962. int
  1963. main (ac, av)
  1964. int ac;
  1965. char *av[];
  1966. X{
  1967. X    FILE    *fp;
  1968. X    byte    msync[2];
  1969. X    byte    *csetl, *csets;
  1970. X    int    t, err;
  1971. X    char    *ptr, *tmp;
  1972. X    int    use_char;
  1973. X    int    found_string;
  1974. X
  1975. X    fontfile = NULL;
  1976. X    large = FALSE;
  1977. X    cursive = FALSE;
  1978. X    invers = FALSE;
  1979. X    forground = '*';
  1980. X    background = ' ';
  1981. X    use_char = FALSE;
  1982. X    found_string = FALSE;
  1983. X    for (t = 1; t < ac; ++t)
  1984. X        if ((av[t][0] == '-') && (av[t][1] != '-')) {
  1985. X            ptr = av[t] + 1;
  1986. X            while (*ptr) {
  1987. X                switch (*ptr) {
  1988. X                    case 'o':
  1989. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  1990. X                        fontfile = ptr;
  1991. X                        while (*ptr)
  1992. X                            ++ptr;
  1993. X                        break;
  1994. X                    case 'l':
  1995. X                        large = TRUE;
  1996. X                        break;
  1997. X                    case 'c':
  1998. X                        cursive = TRUE;
  1999. X                        break;
  2000. X                    case 'i':
  2001. X                        invers = TRUE;
  2002. X                        break;
  2003. X                    case 'f':
  2004. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2005. X                        forground = *ptr;
  2006. X                        break;
  2007. X                    case 'b':
  2008. X                        ptr += *(ptr + 1) == '=' ? 2 : 1;
  2009. X                        background = *ptr;
  2010. X                        break;
  2011. X                    case 's':
  2012. X                        use_char = TRUE;
  2013. X                        break;
  2014. X                    case '?':
  2015. X                    case 'h':
  2016. X                    default:
  2017. X                        usage ();
  2018. X                        exit (((*ptr == '?') || (*ptr == 'h')) ? 0 :
  2019. X                            _errmsg (1, "Unknown option '%c'.\n", *ptr));
  2020. X                }
  2021. X                if (*ptr)
  2022. X                    ++ptr;
  2023. X            }
  2024. X        } else
  2025. X            found_string = TRUE;
  2026. X    if (use_char)
  2027. X        forground = '\0';
  2028. X    if (large) {
  2029. X        if (! (csetl = (byte *) malloc (256 * 16)))
  2030. X            NO_MEM
  2031. X        csets = NULL;
  2032. X    } else {
  2033. X        if (! (csets = (byte *) malloc (256 * 8)))
  2034. X            NO_MEM
  2035. X        csetl = NULL;
  2036. X    }
  2037. X    if (! fontfile) {
  2038. X        if (ptr = getenv ("HOME"))
  2039. X            if (tmp = malloc (strlen (ptr) + 16)) {
  2040. X                sprintf (tmp, "%s/.font", ptr);
  2041. X                if (access (tmp, R_OK) != -1)
  2042. X                    fontfile = tmp;
  2043. X                else
  2044. X                    free (tmp);
  2045. X            }
  2046. X        if (! fontfile)
  2047. X            fontfile = DEF_FONTFILE;
  2048. X    }
  2049. X    if (! (fp = fopen (fontfile, READ_BINARY)))
  2050. X        exit (_errmsg (errno, "Can't open %s.\n", fontfile));
  2051. X    if (fread (msync, sizeof (byte), 2, fp) != 2) {
  2052. X        fclose (fp);
  2053. X        exit (_errmsg (errno, "Can't read first %d byte%s.\n",
  2054. X            sizeof (short), sizeof (short) > 1 ? "s" : ""));
  2055. X    }
  2056. X    if ((msync[0] == (byte) ((MODSYNC >> 8) & 0xff)) && (msync[1] == (byte) (MODSYNC & 0xff)))
  2057. X        err = fseek (fp, MODHEADSIZ, 0);
  2058. X    else
  2059. X        err = fseek (fp, 0, 0);
  2060. X    if (err == -1) {
  2061. X        fclose (fp);
  2062. X        exit (_errmsg (errno, "Can't fseek to start of font data!\n"));
  2063. X    }
  2064. X    if (large) {
  2065. X        if (fread (csetl, sizeof (byte), 16 * 256, fp) != 16 * 256) {
  2066. X            fclose (fp);
  2067. X            exit (_errmsg (errno, "Can't read font data (large).\n"));
  2068. X        }
  2069. X    } else {
  2070. X        if (fseek (fp, 256 * 16, 1) == -1) {
  2071. X            fclose (fp);
  2072. X            exit (_errmsg (errno, "Can't fseek to font data.\n"));
  2073. X        }
  2074. X        if (fread (csets, sizeof (byte), 8 * 256, fp) != 8 * 256) {
  2075. X            fclose (fp);
  2076. X            exit (_errmsg (errno, "Can't read font data (small).\n"));
  2077. X        }
  2078. X    }
  2079. X    fclose (fp);
  2080. X    if (found_string) {
  2081. X        for (t = 1; t < ac; ++t)
  2082. X            if ((av[t][0] != '-') || (av[t][1] == '-'))
  2083. X                banner (av[t] + (av[t][0] == '-' ? 1 : 0), large ? csetl : csets);
  2084. X    } else if (ptr = malloc (130)) {
  2085. X        while (fgets (ptr, 128, stdin)) {
  2086. X            if (tmp = index (ptr, '\n'))
  2087. X                *tmp = '\0';
  2088. X            banner (ptr, large ? csetl : csets);
  2089. X        }
  2090. X        free (ptr);
  2091. X    }
  2092. X}
  2093. END_OF_FILE
  2094. if test 6396 -ne `wc -c <'banner-11/mb.c'`; then
  2095.     echo shar: \"'banner-11/mb.c'\" unpacked with wrong size!
  2096. fi
  2097. # end of 'banner-11/mb.c'
  2098. fi
  2099. if test ! -d 'banner-2' ; then
  2100.     echo shar: Creating directory \"'banner-2'\"
  2101.     mkdir 'banner-2'
  2102. fi
  2103. if test ! -d 'banner-3' ; then
  2104.     echo shar: Creating directory \"'banner-3'\"
  2105.     mkdir 'banner-3'
  2106. fi
  2107. if test -f 'banner-3/Makefile' -a "${1}" != "-c" ; then 
  2108.   echo shar: Will not clobber existing file \"'banner-3/Makefile'\"
  2109. else
  2110. echo shar: Extracting \"'banner-3/Makefile'\" \(70 characters\)
  2111. sed "s/^X//" >'banner-3/Makefile' <<'END_OF_FILE'
  2112. CFLAGS = -O -s
  2113. X
  2114. all: banr
  2115. X
  2116. banr:
  2117. X    cc $(CFLAGS) banr.c -o $@ -ltermcap
  2118. END_OF_FILE
  2119. if test 70 -ne `wc -c <'banner-3/Makefile'`; then
  2120.     echo shar: \"'banner-3/Makefile'\" unpacked with wrong size!
  2121. fi
  2122. # end of 'banner-3/Makefile'
  2123. fi
  2124. if test -f 'banner-3/README' -a "${1}" != "-c" ; then 
  2125.   echo shar: Will not clobber existing file \"'banner-3/README'\"
  2126. else
  2127. echo shar: Extracting \"'banner-3/README'\" \(656 characters\)
  2128. sed "s/^X//" >'banner-3/README' <<'END_OF_FILE'
  2129. banr is a banner program with a relatively small (4 line) font.  It uses the
  2130. terminal's underline capability (from termcap) if found and not suppressed
  2131. X(with -n) to produce a more readable font.
  2132. X
  2133. This program is in the public domain.  Do whatever you want with/to it.
  2134. X
  2135. Installation:
  2136. X
  2137. X    Compile with "make".
  2138. X
  2139. X    It was successfully built on SunOS 3.5 - 4.1.1.
  2140. X
  2141. X    rindex() can be replaced by strrchr() [or throw it away -- it doesn't
  2142. X    do anything important].
  2143. X
  2144. Included are test/demonstration files produced by:
  2145. X
  2146. X    banr -n < banr.f0 > banr.f1
  2147. X    banr < banr.f0 > banr.f2    (on an xterm)
  2148. X
  2149. X _  __  ___ 
  2150. X/_\ |_)  |  
  2151. X| | | \  |  
  2152. X
  2153. Art Messenger
  2154. art@wilbur.coyote.trw.com
  2155. END_OF_FILE
  2156. if test 656 -ne `wc -c <'banner-3/README'`; then
  2157.     echo shar: \"'banner-3/README'\" unpacked with wrong size!
  2158. fi
  2159. # end of 'banner-3/README'
  2160. fi
  2161. if test -f 'banner-3/banr.f0' -a "${1}" != "-c" ; then 
  2162.   echo shar: Will not clobber existing file \"'banner-3/banr.f0'\"
  2163. else
  2164. echo shar: Extracting \"'banner-3/banr.f0'\" \(101 characters\)
  2165. sed "s/^X//" >'banner-3/banr.f0' <<'END_OF_FILE'
  2166. ABCDEFGHIJKLM
  2167. NOPQRSTUVWXYZ
  2168. abcdefghijklm
  2169. nopqrstuvwxyz
  2170. X0123456789
  2171. X!"#$%&'()*+;-./
  2172. X:;<=>?@[\]^_`{|}~
  2173. END_OF_FILE
  2174. if test 101 -ne `wc -c <'banner-3/banr.f0'`; then
  2175.     echo shar: \"'banner-3/banr.f0'\" unpacked with wrong size!
  2176. fi
  2177. # end of 'banner-3/banr.f0'
  2178. fi
  2179. if test -f 'banner-3/banr.f1' -a "${1}" != "-c" ; then 
  2180.   echo shar: Will not clobber existing file \"'banner-3/banr.f1'\"
  2181. else
  2182. echo shar: Extracting \"'banner-3/banr.f1'\" \(1292 characters\)
  2183. sed "s/^X//" >'banner-3/banr.f1' <<'END_OF_FILE'
  2184. X _  __   _  __  ___ ___  _  _ _ _  _ _ _ _   _  _ 
  2185. X/_\ |_) / ' | \ |_  |_  / _ |_| |  | |_/ |   |\/| 
  2186. X| | |_) \_, |_/ |__ |   \_| | | | \/ | \ |__ |  | 
  2187. X                                                  
  2188. X_  _  _  __   _  __   _  ___ _ _ _  _ _  _ _ _ _ _ __ 
  2189. X|\ | / \ |_) / \ |_) (_'  |  | | \  / |  | \_/ \_/  / 
  2190. X| \| \_/ |   \_X | \ ,_)  |  \_/  \/  \/\/ / \  |  /_ 
  2191. X                                                      
  2192. X                    _                         
  2193. X _. |_   _  _|  _  |_  _  |_  .  . |  | ._ _  
  2194. X(_| |_) |_ (_| (-' |  (_| | | |  | |< | | | | 
  2195. X                      ._)       ./            
  2196. X                                            
  2197. X._   _  ._   _. ._ _ |                    _ 
  2198. X| | (_) |_) (_| |  \ | |_| \/ \/\/ >< \_/ / 
  2199. X        |     |                       _/    
  2200. X _    _  _       __     __  _   _  
  2201. X/.\ |  ) _) /_| |_   /   / (_) (_) 
  2202. X\_/ | /_ _)   | ._) (_) /  (_)  /  
  2203. X                                   
  2204. X          __                              
  2205. X| // |_| (|  o/ o  / / \ \/ _|_ o __    / 
  2206. X.    |_| _|) /o (X   \ / /\  |  o    o /  
  2207. X     | |                        /         
  2208. X            _      __    __                  
  2209. o o / __ \ ' )  _  |  \   | /\    \ ( | ) ^v 
  2210. o o \ __ /  !  (Q) |_  \ _|    __   ( | )    
  2211. X  /                                          
  2212. END_OF_FILE
  2213. if test 1292 -ne `wc -c <'banner-3/banr.f1'`; then
  2214.     echo shar: \"'banner-3/banr.f1'\" unpacked with wrong size!
  2215. fi
  2216. # end of 'banner-3/banr.f1'
  2217. fi
  2218. if test -f 'banner-3/banr.f2.uu' -a "${1}" != "-c" ; then 
  2219.   echo shar: Will not clobber existing file \"'banner-3/banr.f2.uu'\"
  2220. else
  2221. echo shar: Extracting \"'banner-3/banr.f2.uu'\" \(3638 characters\)
  2222. sed "s/^X//" >'banner-3/banr.f2.uu' <<'END_OF_FILE'
  2223. begin 644 banr.f2
  2224. M(!M;-&T@&UMM(" ;6S1M(!M;;1M;-&T@&UMM(" @&ULT;2 ;6VT@(!M;-&T@
  2225. M&UMM&ULT;2 ;6VT@(!M;-&T@&UMM&ULT;2 ;6VT;6S1M(!M;;2 ;6S1M(!M;
  2226. M;1M;-&T@&UMM&ULT;2 ;6VT@(!M;-&T@&UMM(" ;6S1M(!M;;2 ;6S1M(!M;
  2227. M;2 ;6S1M(!M;;2 @&ULT;2 ;6VT@&ULT;2 ;6VT@&ULT;2 ;6VT@&ULT;2 ;
  2228. M6VT@(" ;6S1M(!M;;2 @&ULT;2 ;6VT@"B\;6S1M(!M;;5P@?!M;-&T@&UMM
  2229. M*2 O("<@?"!<('P;6S1M(!M;;2 @?!M;-&T@&UMM(" O(!M;-&T@&UMM('P;
  2230. M6S1M(!M;;7P@?" @?"!\&ULT;2 ;6VTO('P@("!\7"]\( H;6S1M?!M;;2 ;
  2231. M6S1M?!M;;2 ;6S1M?!M;;1M;-&T@&UMM*2!<&ULT;2 ;6VTL(!M;-&U\&UMM
  2232. M&ULT;2 ;6VTO(!M;-&U\&UMM&ULT;2 ;6VT;6S1M(!M;;2 ;6S1M?!M;;2 @
  2233. M(%P;6S1M(!M;;7P@&ULT;7P;6VT@&ULT;7P;6VT@&ULT;7P;6VT@7"\@&ULT
  2234. M;7P;6VT@&ULT;5P;6VT@&ULT;7P;6VT;6S1M(!M;;1M;-&T@&UMM(!M;-&U\
  2235. M&UMM(" ;6S1M?!M;;2 *(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  2236. M(" @(" @(" @(" @(" @(" @(" *&ULT;2 ;6VT@(!M;-&T@&UMM(" ;6S1M
  2237. M(!M;;2 @&ULT;2 ;6VT;6S1M(!M;;2 @(!M;-&T@&UMM(" ;6S1M(!M;;1M;
  2238. M-&T@&UMM(" @&ULT;2 ;6VT@(!M;-&T@&UMM&ULT;2 ;6VT;6S1M(!M;;2 ;
  2239. M6S1M(!M;;2 ;6S1M(!M;;2 ;6S1M(!M;;2 @&ULT;2 ;6VT@&ULT;2 ;6VT@
  2240. M(!M;-&T@&UMM(!M;-&T@&UMM(!M;-&T@&UMM(!M;-&T@&UMM(!M;-&T@&UMM
  2241. M(!M;-&T@&UMM&ULT;2 ;6VT@"GQ<('P@+R!<('P;6S1M(!M;;2D@+R!<('P;
  2242. M6S1M(!M;;2D@*!M;-&T@&UMM)R @?" @?"!\(%P@("\@?" @?"!<&ULT;2 ;
  2243. M6VTO(%P;6S1M(!M;;2\@("\@"AM;-&U\&UMM(%P;6S1M?!M;;2!<&ULT;2 ;
  2244. M6VTO(!M;-&U\&UMM(" @7!M;-&T@&UMM6" ;6S1M?!M;;2 ;6S1M7!M;;2 L
  2245. M&ULT;2 ;6VTI(" ;6S1M?!M;;2 @7!M;-&T@&UMM+R @7"\@(%PO7"\@&ULT
  2246. M;2\;6VT@&ULT;5P;6VT@(!M;-&U\&UMM(" ;6S1M+QM;;1M;-&T@&UMM( H@
  2247. M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  2248. M(" @(" @(" *(" @(" @(" @(" @(" @(" @(" ;6S1M(!M;;2 @(" @(" @
  2249. M(" @(" @(" @(" @(" @(" *(!M;-&T@&UMM+B!\&ULT;2 ;6VT@(" ;6S1M
  2250. M(!M;;2 @&ULT;2 ;6VU\(" ;6S1M(!M;;2 @&ULT;7P;6VT;6S1M(!M;;2 @
  2251. M&ULT;2 ;6VT@('P;6S1M(!M;;2 @+B @+B!\("!\("X;6S1M(!M;;2 ;6S1M
  2252. M(!M;;2 @"B@;6S1M(!M;;7P@?!M;-&T@&UMM*2!\&ULT;2 ;6VT@*!M;-&T@
  2253. M&UMM?" H&ULT;2T;6VTG('P@("@;6S1M(!M;;7P@?"!\('P@('P@?#P@&ULT
  2254. M;7P;6VT@?"!\('P@"B @(" @(" @(" @(" @(" @(" @(" N&ULT;2 ;6VTI
  2255. M(" @(" @("XO(" @(" @(" @(" @"B @(" @(" @(" @(" @(" @(" @(" @
  2256. M(" @(" @(" @(" @(" @(" @(" @"BX;6S1M(!M;;2 @(!M;-&T@&UMM(" N
  2257. M&ULT;2 ;6VT@(" ;6S1M(!M;;2X@+AM;-&T@&UMM(!M;-&T@&UMM(!M;-&U\
  2258. M&UMM(" @(" @(" @(" @(" @(" @(" ;6S1M(!M;;2 *?"!\("@;6S1M(!M;
  2259. M;2D@?!M;-&T@&UMM*2 H&ULT;2 ;6VU\('P@(!M;-&U<&UMM('P@?!M;-&T@
  2260. M&UMM?"!<+R!<+UPO(#X\(%P;6S1M(!M;;2\@&ULT;2\;6VT@"B @(" @(" @
  2261. M?" @(" @?" @(" @(" @(" @(" @(" @(" @(" @&ULT;2 ;6VTO(" @( H@
  2262. M&ULT;2 ;6VT@(" @&ULT;2 ;6VT@(!M;-&T@&UMM(" @(" @(!M;-&T@&UMM
  2263. M&ULT;2 ;6VT@(" @(!M;-&T@&UMM&ULT;2 ;6VT@(!M;-&T@&UMM(" @&ULT
  2264. M;2 ;6VT@( HO+EP@?" @*2 ;6S1M(!M;;2D@&ULT;2\;6VT;6S1M(!M;;7P@
  2265. M?!M;-&T@&UMM(" @&ULT;2\;6VT@(" O("@;6S1M(!M;;2D@*!M;-&T@&UMM
  2266. M*2 *7!M;-&T@&UMM+R!\(!M;-&TO&UMM&ULT;2 ;6VT@&ULT;2 ;6VTI(" @
  2267. M?" N&ULT;2 ;6VTI("@;6S1M(!M;;2D@+R @*!M;-&T@&UMM*2 @+R @"B @
  2268. M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @"B @(" @(" @(" ;
  2269. M6S1M(!M;;1M;-&T@&UMM(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  2270. M"GP@+R\@&ULT;7P;6VT;6S1M(!M;;1M;-&U\&UMM("@;6S1M?!M;;2 @;R\@
  2271. M;R @+R O(%P@&ULT;5P;6VT;6S1M+QM;;2 ;6S1M(!M;;1M;-&U\&UMM&ULT
  2272. M;2 ;6VT@;R ;6S1M(!M;;1M;-&T@&UMM(" @("\@"BX@(" @&ULT;7P;6VT;
  2273. M6S1M(!M;;1M;-&U\&UMM(!M;-&T@&UMM&ULT;7P;6VTI("]O("A8(" @7" O
  2274. M("]<("!\("!O(" @(&\@+R @"B @(" @?"!\(" @(" @(" @(" @(" @(" @
  2275. M(" @(" @+R @(" @(" @( H@(" @(" @(" @(" ;6S1M(!M;;2 @(" @(!M;
  2276. M-&T@&UMM&ULT;2 ;6VT@(" @&ULT;2 ;6VT;6S1M(!M;;2 @(" @(" @(" @
  2277. M(" @(" @( IO(&\@+R ;6S1M(!M;;1M;-&T@&UMM(%P@)R I(" ;6S1M(!M;
  2278. M;2 @?" @7" @('P@+UP@(" @7" H('P@*2!>=B *;R!O(%P@&ULT;2 ;6VT;
  2279. M6S1M(!M;;2 O(" A(" H&ULT;5$;6VT;6S1M*1M;;2 ;6S1M?!M;;1M;-&T@
  2280. M&UMM("!<(!M;-&T@&UMM&ULT;7P;6VT@(" @&ULT;2 ;6VT;6S1M(!M;;2 @
  2281. M("@@?" I(" @( H@("\@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  2282. X,(" @(" @(" @(" *
  2283. X 
  2284. end
  2285. END_OF_FILE
  2286. if test 3638 -ne `wc -c <'banner-3/banr.f2.uu'`; then
  2287.     echo shar: \"'banner-3/banr.f2.uu'\" unpacked with wrong size!
  2288. fi
  2289. # end of 'banner-3/banr.f2.uu'
  2290. fi
  2291. if test ! -d 'banner-4' ; then
  2292.     echo shar: Creating directory \"'banner-4'\"
  2293.     mkdir 'banner-4'
  2294. fi
  2295. if test -f 'banner-4/sysvbanner.c' -a "${1}" != "-c" ; then 
  2296.   echo shar: Will not clobber existing file \"'banner-4/sysvbanner.c'\"
  2297. else
  2298. echo shar: Extracting \"'banner-4/sysvbanner.c'\" \(6293 characters\)
  2299. sed "s/^X//" >'banner-4/sysvbanner.c' <<'END_OF_FILE'
  2300. X/*****************************************************************
  2301. X * 
  2302. X * SYSVbanner.c
  2303. X * 
  2304. X * This is a PD version of the SYS V banner program (at least I think 
  2305. X * it is compatible to SYS V) which I wrote to use with the clock 
  2306. X * program written by:
  2307. X **     DCF, Inc.
  2308. X **     14623 North 49th Place
  2309. X **     Scottsdale, AZ 85254
  2310. X * and published in the net comp.sources.misc newsgroup in early July 
  2311. X * since the BSD banner program works quite differently.
  2312. X * 
  2313. X * There is no copyright or responsibility accepted for the use
  2314. X * of this software.
  2315. X * 
  2316. X * Brian Wallis, brw@jim.odr.oz, 4 July 1988
  2317. X *
  2318. X *****************************************************************/
  2319. X
  2320. char *glyphs[] = {
  2321. X"         @@@  @@@ @@@  @ @   @@@@@ @@@   @  @@     @@@  ",
  2322. X"         @@@  @@@ @@@  @ @  @  @  @@ @  @  @  @    @@@   ",
  2323. X"         @@@   @   @ @@@@@@@@  @   @@@ @    @@      @   ",
  2324. X"          @            @ @   @@@@@    @    @@@     @    ",
  2325. X"                     @@@@@@@   @  @  @ @@@@   @ @       ",
  2326. X"         @@@           @ @  @  @  @ @  @ @@    @        ",
  2327. X"         @@@           @ @   @@@@@ @   @@@ @@@@ @       ",
  2328. X
  2329. X"   @@    @@                                            @",
  2330. X"  @        @   @   @    @                             @ ",
  2331. X" @          @   @ @     @                            @  ",
  2332. X" @          @ @@@ @@@ @@@@@   @@@   @@@@@           @   ",
  2333. X" @          @   @ @     @     @@@           @@@    @    ",
  2334. X"  @        @   @   @    @      @            @@@   @     ",
  2335. X"   @@    @@                   @             @@@  @      ",
  2336. X
  2337. X"  @@@     @    @@@@@  @@@@@ @      @@@@@@@ @@@@@ @@@@@@@",
  2338. X" @   @   @@   @     @@     @@    @ @      @     @@    @ ",
  2339. X"@ @   @ @ @         @      @@    @ @      @          @  ",
  2340. X"@  @  @   @    @@@@@  @@@@@ @@@@@@@ @@@@@ @@@@@@    @   ",
  2341. X"@   @ @   @   @            @     @       @@     @  @    ",
  2342. X" @   @    @   @      @     @     @ @     @@     @  @    ",
  2343. X"  @@@   @@@@@ @@@@@@@ @@@@@      @  @@@@@  @@@@@   @    ",
  2344. X
  2345. X" @@@@@  @@@@@    @     @@@      @           @     @@@@@ ",
  2346. X"@     @@     @  @ @    @@@     @             @   @     @",
  2347. X"@     @@     @   @            @     @@@@@     @        @",
  2348. X" @@@@@  @@@@@@         @@@   @                 @     @@ ",
  2349. X"@     @      @   @     @@@    @     @@@@@     @     @   ",
  2350. X"@     @@     @  @ @     @      @             @          ",
  2351. X" @@@@@  @@@@@    @     @        @           @       @   ",
  2352. X
  2353. X" @@@@@    @   @@@@@@  @@@@@ @@@@@@ @@@@@@@@@@@@@@ @@@@@ ",
  2354. X"@     @  @ @  @     @@     @@     @@      @      @     @",
  2355. X"@ @@@ @ @   @ @     @@      @     @@      @      @      ",
  2356. X"@ @ @ @@     @@@@@@@ @      @     @@@@@@  @@@@@  @  @@@@",
  2357. X"@ @@@@ @@@@@@@@     @@      @     @@      @      @     @",
  2358. X"@     @@     @@     @@     @@     @@      @      @     @",
  2359. X" @@@@@ @     @@@@@@@  @@@@@ @@@@@@ @@@@@@@@       @@@@@ ",
  2360. X
  2361. X"@     @  @*@        @@    @ @      @     @@     @@@@@@@@",
  2362. X"@     @   @         @@   @  @      @@   @@@@    @@     @",
  2363. X"@     @   @         @@  @   @      @ @ @ @@ @   @@     @",
  2364. X"@@@@@@@   @         @@@@    @      @  @  @@  @  @@     @",
  2365. X"@     @   @   @     @@  @   @      @     @@   @ @@     @",
  2366. X"@     @   @   @     @@   @  @      @     @@    @@@     @",
  2367. X"@     @  @@@   @@@@@ @    @ @@@@@@@@     @@     @@@@@@@@",
  2368. X
  2369. X"@@@@@@  @@@@@ @@@@@@  @@@@@ @@@@@@@@     @@     @@     @",
  2370. X"@     @@     @@     @@     @   @   @     @@     @@  @  @",
  2371. X"@     @@     @@     @@         @   @     @@     @@  @  @",
  2372. X"@@@@@@ @     @@@@@@@  @@@@@    @   @     @@     @@  @  @",
  2373. X"@      @   @ @@   @        @   @   @     @ @   @ @  @  @",
  2374. X"@      @    @ @    @ @     @   @   @     @  @ @  @  @  @",
  2375. X"@       @@@@ @@     @ @@@@@    @    @@@@@    @    @@ @@ ",
  2376. X
  2377. X"@     @@     @@@@@@@@ @@@@@ @       @@@@@    @          ",
  2378. X" @   @  @   @      @  @      @          @   @ @         ",
  2379. X"  @ @    @ @      @   @       @         @  @   @        ",
  2380. X"   @      @      @    @        @        @               ",
  2381. X"  @ @     @     @     @         @       @               ",
  2382. X" @   @    @    @      @          @      @               ",
  2383. X"@     @   @   @@@@@@@ @@@@@       @ @@@@@        @@@@@@@",
  2384. X
  2385. X"  @@@                                                   ",
  2386. X"  @@@     @@   @@@@@   @@@@  @@@@@  @@@@@@ @@@@@@  @@@@ ",
  2387. X"   @     @  @  @    @ @    @ @    @ @      @      @    @",
  2388. X"    @   @    @ @@@@@  @      @    @ @@@@@  @@@@@  @     ",
  2389. X"        @@@@@@ @    @ @      @    @ @      @      @  @@@",
  2390. X"        @    @ @    @ @    @ @    @ @      @      @    @",
  2391. X"        @    @ @@@@@   @@@@  @@@@@  @@@@@@ @       @@@@ ",
  2392. X 
  2393. X"                                                        ",
  2394. X" @    @    @        @ @    @ @      @    @ @    @  @@@@ ",
  2395. X" @    @    @        @ @   @  @      @@  @@ @@   @ @    @",
  2396. X" @@@@@@    @        @ @@@@   @      @ @@ @ @ @  @ @    @",
  2397. X" @    @    @        @ @  @   @      @    @ @  @ @ @    @",
  2398. X" @    @    @   @    @ @   @  @      @    @ @   @@ @    @",
  2399. X" @    @    @    @@@@  @    @ @@@@@@ @    @ @    @  @@@@ ",
  2400. X 
  2401. X"                                                        ",
  2402. X" @@@@@   @@@@  @@@@@   @@@@   @@@@@ @    @ @    @ @    @",
  2403. X" @    @ @    @ @    @ @         @   @    @ @    @ @    @",
  2404. X" @    @ @    @ @    @  @@@@     @   @    @ @    @ @    @",
  2405. X" @@@@@  @  @ @ @@@@@       @    @   @    @ @    @ @ @@ @",
  2406. X" @      @   @  @   @  @    @    @   @    @  @  @  @@  @@",
  2407. X" @       @@@ @ @    @  @@@@     @    @@@@    @@   @    @",
  2408. X 
  2409. X"                       @@@     @     @@@   @@    @ @ @ @",
  2410. X" @    @  @   @ @@@@@@ @        @        @ @  @  @ @ @ @ ",
  2411. X"  @  @    @ @      @  @        @        @     @@ @ @ @ @",
  2412. X"   @@      @      @  @@                 @@        @ @ @ ",
  2413. X"   @@      @     @    @        @        @        @ @ @ @",
  2414. X"  @  @     @    @     @        @        @         @ @ @ ",
  2415. X" @    @    @   @@@@@@  @@@     @     @@@         @ @ @ @"};
  2416. X
  2417. X
  2418. main(argc,argv)
  2419. X     int argc;
  2420. X     char *argv[];
  2421. X{
  2422. X  int a,b,c,len,ind;
  2423. X  char line[80];
  2424. X
  2425. X  for(argv++;--argc;argv++){
  2426. X    len=strlen(*argv);
  2427. X    if(len>10)
  2428. X      len=10;
  2429. X    for(a=0;a<7;a++){
  2430. X      for(b=0;b<len;b++){
  2431. X        if((ind=(*argv)[b]-' ')<0)
  2432. X          ind=0;
  2433. X        for(c=0;c<7;c++){
  2434. X          line[b*8+c] = glyphs[(ind/8*7)+a][(ind%8*7)+c];
  2435. X        }
  2436. X        line[b*8+7] = ' ';
  2437. X      }
  2438. X      for(b=len*8-1;b>=0;b--){
  2439. X        if(line[b]!=' ')
  2440. X          break;
  2441. X        line[b]='\0';
  2442. X      }
  2443. X      puts(line);
  2444. X    }
  2445. X    puts("");
  2446. X  }
  2447. X}
  2448. END_OF_FILE
  2449. if test 6293 -ne `wc -c <'banner-4/sysvbanner.c'`; then
  2450.     echo shar: \"'banner-4/sysvbanner.c'\" unpacked with wrong size!
  2451. fi
  2452. # end of 'banner-4/sysvbanner.c'
  2453. fi
  2454. if test ! -d 'banner-5' ; then
  2455.     echo shar: Creating directory \"'banner-5'\"
  2456.     mkdir 'banner-5'
  2457. fi
  2458. if test -f 'banner-5/3db.c' -a "${1}" != "-c" ; then 
  2459.   echo shar: Will not clobber existing file \"'banner-5/3db.c'\"
  2460. else
  2461. echo shar: Extracting \"'banner-5/3db.c'\" \(5167 characters\)
  2462. sed "s/^X//" >'banner-5/3db.c' <<'END_OF_FILE'
  2463. X/* 3db : three-dimensional banner
  2464. X *
  2465. X * Who the heck wrote original Pascal version?
  2466. X *
  2467. X * C version by Han, Yun-Su
  2468. X * 880505 KAIST undergraduate Dept of Life Science
  2469. X */
  2470. X
  2471. X#include <stdio.h>
  2472. X
  2473. main(argc, argv)
  2474. int argc;
  2475. char **argv;
  2476. X{
  2477. X    char line[256];
  2478. X
  2479. X    if (argc < 2)    {
  2480. X        fprintf(stderr, "&:^)\n");
  2481. X        exit(1);
  2482. X        }
  2483. X    getline(line, argc, argv);
  2484. X    lowerline(line);
  2485. X    putline(line);
  2486. X}
  2487. X
  2488. getline(s, n, v)
  2489. char *s;
  2490. int n;
  2491. char *v[];
  2492. X{
  2493. X    int i, j;
  2494. X
  2495. X    strcpy(s, "");
  2496. X    for (i = 1; i < n; i++, s++)    {
  2497. X        for (j = 0; v[i][j] != '\0'; j++, s++)
  2498. X            *s = v[i][j];
  2499. X        *s = ' ';
  2500. X        }
  2501. X    s--;
  2502. X    *s = '\0';
  2503. X}
  2504. X
  2505. lowerline(s)
  2506. char *s;
  2507. X{
  2508. X    char *p;
  2509. X
  2510. X    for (p = s; *p != '\0'; p++)
  2511. X        if (*p >= 'A' && *p <= 'Z')
  2512. X            *p = *p - 'A' + 'a';
  2513. X}
  2514. X
  2515. X#define    Height        8    /* Height of 3D Font */
  2516. X#define    Blank        "     "
  2517. putline(s)
  2518. char *s;
  2519. X{
  2520. X    static char *data[] = {
  2521. X        "     ____    ",
  2522. X        "   /____/ \\  ",
  2523. X        " /|     \\ /| ",
  2524. X        "| |______| | ",
  2525. X        "|/_______| | ",
  2526. X        "| |      | | ",
  2527. X        "| |      | | ",
  2528. X        "|/       |/  ",
  2529. X        "  _______    ",
  2530. X        " /______/ \\  ",
  2531. X        "| |     \\ /| ",
  2532. X        "| |______|/  ",
  2533. X        "|/______/ \\  ",
  2534. X        "| |     \\ /| ",
  2535. X        "| |______|/  ",
  2536. X        "|/______/    ",
  2537. X        "     _____    ",
  2538. X        "   /____ / \\  ",
  2539. X        " /|      \\ /| ",
  2540. X        "| |       |/  ",
  2541. X        "| |           ",
  2542. X        "| |        /| ",
  2543. X        "|/ \\______|/  ",
  2544. X        " \\ /_____/    ",
  2545. X        "  _______    ",
  2546. X        " /______/ \\  ",
  2547. X        "| |     \\ /| ",
  2548. X        "| |      | | ",
  2549. X        "| |      | | ",
  2550. X        "| |      | | ",
  2551. X        "| |______|/  ",
  2552. X        "|/______/    ",
  2553. X        "  __________ ",
  2554. X        " /_________/ ",
  2555. X        "| |          ",
  2556. X        "| |______    ",
  2557. X        "|/______/    ",
  2558. X        "| |          ",
  2559. X        "| |_________ ",
  2560. X        "|/_________/ ",
  2561. X        "  __________ ",
  2562. X        " /_________/ ",
  2563. X        "| |          ",
  2564. X        "| |______    ",
  2565. X        "|/______/    ",
  2566. X        "| |          ",
  2567. X        "| |          ",
  2568. X        "|/           ",
  2569. X        "     _____    ",
  2570. X        "   /____ / \\  ",
  2571. X        " /|      \\ /| ",
  2572. X        "| |       |/  ",
  2573. X        "| |       __  ",
  2574. X        "| |     /_ /| ",
  2575. X        "|/ \\______|/  ",
  2576. X        " \\ /_____/    ",
  2577. X        "             ",
  2578. X        " /|       /| ",
  2579. X        "| |      | | ",
  2580. X        "| |______| | ",
  2581. X        "|/_______| | ",
  2582. X        "| |      | | ",
  2583. X        "| |      | | ",
  2584. X        "|/       |/  ",
  2585. X        " _____ ",
  2586. X        "/____/ ",
  2587. X        "  | |  ",
  2588. X        "  | |  ",
  2589. X        "  | |  ",
  2590. X        "  | |  ",
  2591. X        " _| |_ ",
  2592. X        "/_|/_/ ",
  2593. X        "          ",
  2594. X        "       /| ",
  2595. X        "      | | ",
  2596. X        "      | | ",
  2597. X        "      | | ",
  2598. X        "      | | ",
  2599. X        "/ \\___|/  ",
  2600. X        "\\ /__/    ",
  2601. X        "            ",
  2602. X        " /|      /  ",
  2603. X        "| |    /    ",
  2604. X        "| |  /      ",
  2605. X        "| |/  \\     ",
  2606. X        "|/| \\   \\   ",
  2607. X        "| |   \\   \\ ",
  2608. X        "|/      \\ / ",
  2609. X        "           ",
  2610. X        " /|        ",
  2611. X        "| |        ",
  2612. X        "| |        ",
  2613. X        "| |        ",
  2614. X        "| |        ",
  2615. X        "| |_______ ",
  2616. X        "|/_______/ ",
  2617. X        "               ",
  2618. X        " / \\        /| ",
  2619. X        "|\\  \\      / | ",
  2620. X        "| \\  \\    /| | ",
  2621. X        "| |\\  \\  / | | ",
  2622. X        "| | \\  \\/  | | ",
  2623. X        "| |  \\ /   | | ",
  2624. X        "|/         |/  ",
  2625. X        "           ",
  2626. X        " / \\    /| ",
  2627. X        "|\\  \\  | | ",
  2628. X        "| \\  \\ | | ",
  2629. X        "| |\\  \\| | ",
  2630. X        "| | \\  | | ",
  2631. X        "| |  \\ | | ",
  2632. X        "|/    \\|/  ",
  2633. X        "     ____    ",
  2634. X        "   /___ / \\  ",
  2635. X        " /|     \\ /| ",
  2636. X        "| |      | | ",
  2637. X        "| |      | | ",
  2638. X        "| |      | | ",
  2639. X        "|/ \\ ____|/  ",
  2640. X        " \\ /____/    ",
  2641. X        "  _______    ",
  2642. X        " /______/ \\  ",
  2643. X        "| |     \\ /| ",
  2644. X        "| |______|/  ",
  2645. X        "|/______/    ",
  2646. X        "| |          ",
  2647. X        "| |          ",
  2648. X        "|/           ",
  2649. X        "     ____     ",
  2650. X        "   /___ / \\   ",
  2651. X        " /|     \\ /|  ",
  2652. X        "| |      | |  ",
  2653. X        "| |      | |  ",
  2654. X        "| |     /| |  ",
  2655. X        "|/ \\ ___\\|/ \\ ",
  2656. X        " \\ /____/ \\ / ",
  2657. X        "  _______    ",
  2658. X        " /______/ \\  ",
  2659. X        "| |     \\ /| ",
  2660. X        "| |______|/  ",
  2661. X        "|/______/    ",
  2662. X        "| | \\   \\    ",
  2663. X        "| |   \\   \\  ",
  2664. X        "|/      \\ /  ",
  2665. X        "     _____    ",
  2666. X        "   /____ / \\  ",
  2667. X        " /|      \\ /  ",
  2668. X        "|/ \\ _____    ",
  2669. X        " \\ /____ / \\  ",
  2670. X        "         \\ /| ",
  2671. X        " / \\ _____|/  ",
  2672. X        " \\ /_____/    ",
  2673. X        " _______________ ",
  2674. X        "/______________/ ",
  2675. X        "       | |       ",
  2676. X        "       | |       ",
  2677. X        "       | |       ",
  2678. X        "       | |       ",
  2679. X        "       | |       ",
  2680. X        "       |/        ",
  2681. X        "             ",
  2682. X        " /|       /| ",
  2683. X        "| |      | | ",
  2684. X        "| |      | | ",
  2685. X        "| |      | | ",
  2686. X        "| |      | | ",
  2687. X        "|/ \\ ____|/  ",
  2688. X        " \\ /____/    ",
  2689. X        "              ",
  2690. X        "/ \\         / ",
  2691. X        "\\  \\       /  ",
  2692. X        " \\  \\     /   ",
  2693. X        "  \\  \\   /    ",
  2694. X        "   \\  \\ /     ",
  2695. X        "    \\  /      ",
  2696. X        "     \\/       ",
  2697. X        "                     ",
  2698. X        "/ \\                / ",
  2699. X        "\\  \\              /  ",
  2700. X        " \\  \\     /\\     /   ",
  2701. X        "  \\  \\   /  \\   /    ",
  2702. X        "   \\  \\ / \\  \\ /     ",
  2703. X        "    \\  /   \\  /      ",
  2704. X        "     \\/     \\/       ",
  2705. X        "              ",
  2706. X        "/ \\         / ",
  2707. X        "\\   \\     /   ",
  2708. X        "  \\   \\ /     ",
  2709. X        "    \\ / \\     ",
  2710. X        "    / \\   \\   ",
  2711. X        "  /     \\   \\ ",
  2712. X        "/         \\ / ",
  2713. X        "              ",
  2714. X        "/ \\         / ",
  2715. X        "\\   \\     /   ",
  2716. X        "  \\   \\ /     ",
  2717. X        "    \\ /|      ",
  2718. X        "     | |      ",
  2719. X        "     | |      ",
  2720. X        "     |/       ",
  2721. X        " ____________ ",
  2722. X        "/___________/ ",
  2723. X        "          /   ",
  2724. X        "        /     ",
  2725. X        "      /       ",
  2726. X        "    /         ",
  2727. X        "  /__________ ",
  2728. X        "/___________/ ",
  2729. X        ""
  2730. X        };
  2731. X    int i;
  2732. X    char *p;
  2733. X
  2734. X    for (i = 0; i < Height; i++)    {
  2735. X        for (p = s; *p != '\0'; p++)
  2736. X            if (*p < 'a' || *p > 'z')
  2737. X                printf(Blank);
  2738. X            else
  2739. X                printf("%s", data[(*p - 'a') * Height + i]);
  2740. X        printf("\n");
  2741. X        }
  2742. X}
  2743. END_OF_FILE
  2744. if test 5167 -ne `wc -c <'banner-5/3db.c'`; then
  2745.     echo shar: \"'banner-5/3db.c'\" unpacked with wrong size!
  2746. fi
  2747. # end of 'banner-5/3db.c'
  2748. fi
  2749. if test -f 'banner-5/Banner.doc' -a "${1}" != "-c" ; then 
  2750.   echo shar: Will not clobber existing file \"'banner-5/Banner.doc'\"
  2751. else
  2752. echo shar: Extracting \"'banner-5/Banner.doc'\" \(854 characters\)
  2753. sed "s/^X//" >'banner-5/Banner.doc' <<'END_OF_FILE'
  2754. X===============================================================================
  2755. Banner : Collected by Han YoonSoo KAIST undergradute 880505
  2756. X===============================================================================
  2757. file name    : description
  2758. X===============================================================================
  2759. block.c        : block style banner (english)
  2760. cursive.c    : cursive (english)
  2761. kban.c        : semi's banner (korean and english)
  2762. kbandat.c    : data file for 'kban.c'
  2763. kban.hlp    : help file for 'kban'
  2764. lban.c        : large korean banner
  2765. lban.dat    : data file for 'lban.c'
  2766. sban.c        : small korean banner
  2767. sban.dat    : data file for 'sban.c'
  2768. vban.c        : vertical banner (english)
  2769. X3db.c        : three-dimensional banner (english)
  2770. leb.c        : large english banner
  2771. seb.c        : small english banner
  2772. X-------------------------------------------------------------------------------
  2773. END_OF_FILE
  2774. if test 854 -ne `wc -c <'banner-5/Banner.doc'`; then
  2775.     echo shar: \"'banner-5/Banner.doc'\" unpacked with wrong size!
  2776. fi
  2777. # end of 'banner-5/Banner.doc'
  2778. fi
  2779. if test -f 'banner-5/kban.c' -a "${1}" != "-c" ; then 
  2780.   echo shar: Will not clobber existing file \"'banner-5/kban.c'\"
  2781. else
  2782. echo shar: Extracting \"'banner-5/kban.c'\" \(5312 characters\)
  2783. sed "s/^X//" >'banner-5/kban.c' <<'END_OF_FILE'
  2784. X/********************************************************/
  2785. X/*                            */
  2786. X/*    SEMI's BANNER ( Ver 1.21- ) :            */
  2787. X/*                            */
  2788. X/*        made    by Koh,BongGyun            */
  2789. X/*            in '91.4 ( Ver 1.0- )        */
  2790. X/*               '91.5 ( Ver 1.11- )        */
  2791. X/*               '91.9            */
  2792. X/*                            */
  2793. X/*        e-mail to e910017@xserver.kaist.ac.kr    */
  2794. X/*                            */
  2795. X/********************************************************/
  2796. X
  2797. X#include <stdio.h>
  2798. X
  2799. X#define    END    '\0'
  2800. X#define    NO    -1
  2801. X#define DATFILE    "kbandat.c"
  2802. X
  2803. X#include DATFILE
  2804. X
  2805. char    *data;                /* data inputed */
  2806. short    font[ _WIDTH+2 ][ MAX_LEN ];    /* font data to output */
  2807. X    /* font[ _WIDTH ] : width of letter, font[ _WIDTH+1 ] : cmode */
  2808. X
  2809. short    count;    /* pass1: now reading count-th character in data */
  2810. X        /* output: now reading count-th font */
  2811. short    digit;    /* pass1: now making digit-th font */
  2812. X        /* output: total digits of font */
  2813. X
  2814. main( argc, argv )
  2815. X    short    argc;
  2816. X    char    *argv[];
  2817. X{
  2818. X    int    i;
  2819. X    void    pass1(), output();
  2820. X
  2821. X    if ( argc == 1 )    puts( ":)" );    /* refuse if no strings */
  2822. X    else    for ( i=1 ; i < argc ; ++i ) {
  2823. X            data = argv[ i ];    /* data is the i-th string */
  2824. X            count = digit = 0;
  2825. X
  2826. X            pass1();    /* making font */
  2827. X            output();    /* output font with compression */
  2828. X        }
  2829. X}
  2830. X
  2831. void    pass1()        /* making font following data */
  2832. X{
  2833. X    short    kor =NO, i;
  2834. X    void    make_eng(), make_kor();
  2835. X
  2836. X    while ( data[ count ] != END )
  2837. X        if ( data[ count ] == CMD_CHR )
  2838. X            if ( data[ ++count ] == CMD_CHR )    /* double CMD_CHR is one normal character */
  2839. X                make_eng();
  2840. X            else
  2841. X            switch ( instr( mod_chr, data[ count ] ) + 1 ) {
  2842. X              case 0:    /* toggle Korean mode */
  2843. X                kor = -kor;    break;
  2844. X              case 1:    /* change choice char's */
  2845. X                if ( ( i = data[ ++count ] - '0' ) < 0 || i >= N_CMODE )
  2846. X                    cmode = 0;
  2847. X                else {    cmode = i;        ++count; }
  2848. X                break;
  2849. X              case 2:    /* change English letter types */
  2850. X                if ( ( i = data[ ++count ] - '0' ) < 0 || i >= N_MODE )
  2851. X                    mode = 0;
  2852. X                else {    mode = i;        ++count; }
  2853. X            }
  2854. X        else if ( kor == NO )    make_eng();
  2855. X        else            make_kor();
  2856. X}
  2857. X
  2858. void    output()    /* output font with compression */
  2859. X{
  2860. X    short    i;
  2861. X    void    output1();
  2862. X
  2863. X    for ( i=0 ; i < WIDTH ; i+=2 ) {
  2864. X        output1( font[ i ], font[ i+1 ] );    /* compress two lines into one line and output it */
  2865. X        putchar( '\n' );
  2866. X    }
  2867. X}
  2868. X
  2869. void    output1( font1, font2 )        /* compress two lines and output */
  2870. X    short    *font1, *font2;
  2871. X{
  2872. X    short    i;
  2873. X    void    output2();
  2874. X
  2875. X    for ( i=0 ; i < digit ; ++i )
  2876. X        output2( font1[ i ], font2[ i ], font[ _WIDTH ][ i ], font[ _WIDTH+1 ][ i ] );    /* output one digit font in two lines with compression */
  2877. X}
  2878. X
  2879. void    output2( f1, f2, len, cmode )        /* output a digit font with compression */
  2880. X    short    f1, f2;
  2881. X    short    len;
  2882. X    short    cmode;
  2883. X{
  2884. X    short    choice, i;
  2885. X
  2886. X    for ( i=stepspace ; i > 0 ; --i )
  2887. X        putchar( font_choice[ cmode ][ 0 ] );
  2888. X    while ( ( len /= 2 ) > 0 ) {
  2889. X        choice = ( f1 / len ) * 2 + ( f2 / len );    /* get the choice determining the character to output */
  2890. X        putchar( font_choice[ cmode ][ choice ] );    /* output a bit character */
  2891. X        f1 %= len; f2 %= len;
  2892. X    }
  2893. X}
  2894. X
  2895. void    make_eng()    /* making font in English mode */
  2896. X{
  2897. X    short    i, in;
  2898. X
  2899. X    if ( ( in = instr( eng_chr, data[ count++ ] ) ) != NO ) {
  2900. X        for ( i=0 ; i < WIDTH ; ++i )
  2901. X            font[ i ][ digit ] = eng_fnt[ mode ][ in ][ i ];    /* read font */
  2902. X        font[ _WIDTH ][ digit ] = eng_fnt[ mode ][ in ][ i ];        /* read the width */
  2903. X        font[ _WIDTH+1 ][ digit++ ] = cmode;
  2904. X    }
  2905. X}
  2906. X
  2907. void    make_kor()    /* making font in Korean mode */
  2908. X{
  2909. X    short    fir, sec, thi, i;
  2910. X    short    att_f =0, att_s =0;
  2911. X
  2912. X    if ( ( fir = instr( kor_key[ 0 ], data[ count ] ) ) != NO )
  2913. X        ++count;
  2914. X    if ( ( sec = instr( kor_key[ 1 ], data[ count ] ) ) != NO ) {
  2915. X        if ( sec >= 9 ) {
  2916. X            ++att_f;
  2917. X            switch ( instr( "hnm", data[ count++ ] ) + 1 ) {
  2918. X              case 1:
  2919. X                if ( ( i = instr( "kol", data[ count ] ) ) != NO ) {
  2920. X                    sec += i+1;    ++count;    ++att_f;
  2921. X                }
  2922. X                break;
  2923. X              case 2:
  2924. X                if ( ( i = instr( "jpl", data[ count ] ) ) != NO ) {
  2925. X                    sec += i+1;    ++count;    ++att_f;
  2926. X                }
  2927. X                break;
  2928. X              case 3:
  2929. X                if ( data[ count ] == 'l' ) {
  2930. X                    ++sec;        ++count;    ++att_f;
  2931. X                }
  2932. X            }
  2933. X        }
  2934. X        else    ++count;
  2935. X        if ( ( thi = instr( kor_key[ 2 ], data[ count ] ) ) != NO &&
  2936. X             instr( kor_key[ 1 ], data[ count+1 ] ) == NO ) {
  2937. X            att_f += 3;    att_s = 1;
  2938. X            if ( ( i = instr( "rsfq", data[ count++ ] ) ) != NO &&
  2939. X                 instr( kor_key[ 1 ], data[ count+1 ] ) == NO ) {
  2940. X                switch ( i ) {
  2941. X                  case 0:
  2942. X                    if ( data[ count ] == 't' ) {
  2943. X                        ++thi;        ++count;
  2944. X                    }
  2945. X                    break;
  2946. X                  case 1:
  2947. X                    if ( ( i = instr( "wg", data[ count ] ) ) != NO ) {
  2948. X                        thi += i+1;    ++count;
  2949. X                    }
  2950. X                    break;
  2951. X                  case 2:
  2952. X                    if ( ( i = instr( "raqtxvg", data[ count ] ) ) != NO ) {
  2953. X                        thi += i+1;    ++count;
  2954. X                    }
  2955. X                    break;
  2956. X                  case 3:
  2957. X                    if ( data[ count ] == 't' ) {
  2958. X                        ++thi;        ++count;
  2959. X                    }
  2960. X                }
  2961. X            }
  2962. X        }
  2963. X    }
  2964. X
  2965. X    if ( fir == NO && sec == NO )
  2966. X        make_eng();    /* if not Korean letter, deal it as English */
  2967. X    else {
  2968. X        for ( i=0 ; i < WIDTH ; ++i ) {
  2969. X            font[ i ][ digit ] = ( fir != NO ) ? fir_fnt[ att_f ][ fir ][ i ] : 0;
  2970. X            if ( sec != NO ) {
  2971. X                font[ i ][ digit ] |= sec_fnt[ att_s ][ sec ][ i ];
  2972. X                if ( att_s != 0 )    font[ i ][ digit ] |= thi_fnt[ 0 ][ thi ][ i ];
  2973. X            }
  2974. X        }
  2975. X        font[ _WIDTH ][ digit ] = KOR_LEN;
  2976. X        font[ _WIDTH+1 ][ digit++ ] = cmode;
  2977. X    }
  2978. X}
  2979. X
  2980. instr( str, ch )    /* return the position of ch in str, if no position, NO */
  2981. X    char    *str;
  2982. X    char    ch;
  2983. X{
  2984. X    short    i =0;
  2985. X
  2986. X    while ( ch != str[ i ] && str[ i ] != END )    ++i;
  2987. X    if ( str[ i ] == END )    i = NO;        /* if no position, return NO */
  2988. X    return( i );
  2989. X}
  2990. X
  2991. END_OF_FILE
  2992. if test 5312 -ne `wc -c <'banner-5/kban.c'`; then
  2993.     echo shar: \"'banner-5/kban.c'\" unpacked with wrong size!
  2994. fi
  2995. # end of 'banner-5/kban.c'
  2996. fi
  2997. if test -f 'banner-5/kban.hlp' -a "${1}" != "-c" ; then 
  2998.   echo shar: Will not clobber existing file \"'banner-5/kban.hlp'\"
  2999. else
  3000. echo shar: Extracting \"'banner-5/kban.hlp'\" \(1379 characters\)
  3001. sed "s/^X//" >'banner-5/kban.hlp' <<'END_OF_FILE'
  3002. X
  3003. X--#1    How to use
  3004. X
  3005. X   The character '/' has special power...called CMD_CHR.  By it alone, it can
  3006. X  toggle the Korean/English letter mode.  With '.' or '+' after it, it changes
  3007. X  output letter mode or writing-type.  Now, there is only one writing-type,
  3008. X  Roman, so '+' is useless in Ver1.21-.  If you want to know the power of trick
  3009. X  by '.' after '/', try followings :
  3010. X
  3011. X    kban /.0Hello
  3012. X    kban /.1Hello
  3013. X    kban /.2Hello
  3014. X     :     :
  3015. X    kban /.5Hello
  3016. X
  3017. X  Now, there are 6 (0~5) letter modes and the initial value is 0 ( you can
  3018. X  change this at the line '#define CMODE 0' in kbandat.c ).
  3019. X
  3020. X   Here are some examples of usage :
  3021. X
  3022. X    kban /dkssud/____semi
  3023. X    kban Hello,,,,/.3/tpadl
  3024. X
  3025. X--#2    How to compile
  3026. X
  3027. X   First, you must change the line '#define DATFILE xxxxx' in kban.c to inform
  3028. X  where kbandat.c exists.
  3029. X   Then, just 'cc kban.c -o kban' is all.
  3030. X
  3031. X--#3    Info
  3032. X
  3033. X   This banner can cover Korean and English both.  Moreover, it has a special
  3034. X  function(/.# : # is number) and it's fonts are quite pretty.  But now, there
  3035. X  are no fonts for numbers and other letters though there will be soon.
  3036. X   All unknown characters are treated as 1 vertical space, so ',' and '_' can
  3037. X  be used as space in above examples.
  3038. X   Help option for this program is not ready yet.  I can support this help file
  3039. X  only now.  sorry.
  3040. X
  3041. X   If you have any question or any suggestion, e-mail to :
  3042. X
  3043. X    e910017@xserver.kaist.ac.kr
  3044. X
  3045. END_OF_FILE
  3046. if test 1379 -ne `wc -c <'banner-5/kban.hlp'`; then
  3047.     echo shar: \"'banner-5/kban.hlp'\" unpacked with wrong size!
  3048. fi
  3049. # end of 'banner-5/kban.hlp'
  3050. fi
  3051. if test -f 'banner-5/lban.c' -a "${1}" != "-c" ; then 
  3052.   echo shar: Will not clobber existing file \"'banner-5/lban.c'\"
  3053. else
  3054. echo shar: Extracting \"'banner-5/lban.c'\" \(6638 characters\)
  3055. sed "s/^X//" >'banner-5/lban.c' <<'END_OF_FILE'
  3056. X/* Large Korean Banner */
  3057. X
  3058. X#include <stdio.h>
  3059. X
  3060. X#define TOTAL 37
  3061. X
  3062. X#define CW   6   /* character width */
  3063. X#define CL   3   /* character length */ 
  3064. X
  3065. X#define SD   2   /* shift down */ 
  3066. X#define SR   3   /* shift right */ 
  3067. X#define SB   1   /* shift below */
  3068. X
  3069. X#define MC   6  /* max characters */
  3070. X
  3071. X#define DFName "/ufo2/fcode/e880505/Bin/lban.dat"    /* data file name */
  3072. X
  3073. static char alpha[]={"abcdefghijklmnopqrstuvwxyzQWERTOP?!.,"};
  3074. static char c[]={"acdefgqrstvwxzQWERT"};  /* consonant */
  3075. static char v1[]={"ijklopuOP"}; 
  3076. static char v2[]={"bhmny"};
  3077. static char s[]={"?!.,"};
  3078. X
  3079. struct FONT  {
  3080. X    int   address;
  3081. X    short type;
  3082. X    }  a[TOTAL];  
  3083. X
  3084. int  b[MC*4];    /*  board  */
  3085. int  t[MC*4];    /*  taget  */
  3086. X
  3087. char board[2*CL+3][(CW*2-1)*MC+3]; 
  3088. char *receiver;
  3089. X
  3090. short  word_counter = 0;
  3091. X
  3092. main(argc,argv)
  3093. int argc;
  3094. char *argv[];
  3095. X{ 
  3096. X    int number ; 
  3097. X    
  3098. X    if( argc != 2 && argc !=3 ) {Error("?"); Quit();} 
  3099. X    if(argc == 3 )  receiver = argv[2];
  3100. X    make_font(); 
  3101. X    clear_board();
  3102. X    number=make_board(argv[1]);
  3103. X    load_board(number);
  3104. X    print_board(argc-2);
  3105. X    fflush(stdout);
  3106. X}
  3107. clear_board()
  3108. X{
  3109. X    int i,j;
  3110. X
  3111. X    for(i=0;i<2*CL+3; i++ ){
  3112. X        for( j=0; j< (CW*2-1)*MC; j++)
  3113. X            board[i][j] = ' ';
  3114. X        board[i][j] = 0;
  3115. X    }
  3116. X}
  3117. X
  3118. contractor( index ,num)
  3119. int index;
  3120. int num;
  3121. X{
  3122. X    int i,j;
  3123. X    int what, mwhat;
  3124. X            
  3125. X    switch( t[index] ){
  3126. X        case 3:
  3127. X            return 0;
  3128. X            break;
  3129. X        case 1: 
  3130. X            if( index > 0 ) {
  3131. X                    if( t[index-1] ==2 ) return 2;
  3132. X                    else return 1;
  3133. X                    }
  3134. X            else return 1;
  3135. X            break;
  3136. X        case 2:
  3137. X            return 3;
  3138. X            break;
  3139. X        case 0:
  3140. X            if(index==0 ) return 0;
  3141. X            if( index <num-1 ) { 
  3142. X                what = contractor(index+1, num );
  3143. X                if( what ==1 || what ==2 || what == 3 ) return 0;
  3144. X                if( what == 0 ) {
  3145. X                    mwhat = t[index-1] ;
  3146. X                    if( mwhat== 1 ) {
  3147. X                        mwhat = contractor(index-1, num );
  3148. X                        if( mwhat== 1) return 8;
  3149. X                        if(mwhat == 2) return 9;
  3150. X                        }
  3151. X                    if( mwhat == 2) {
  3152. X                            return 6;
  3153. X                        }
  3154. X                    if( mwhat== 0) {
  3155. X                        mwhat = contractor( index-2);
  3156. X                        if(mwhat == 1) return 5;
  3157. X                        if(mwhat == 2) return 7;
  3158. X                        if(mwhat == 3) return 7;
  3159. X                        }
  3160. X                    } /* if */
  3161. X                  else{ 
  3162. X                    mwhat = contractor( index-1, num );
  3163. X                    if(mwhat == 1 ) return 4;
  3164. X                    if(mwhat == 2 ) return 6;
  3165. X                    if(mwhat == 3 ) return 6;
  3166. X                    }
  3167. X                }    /*  if */
  3168. X            else { 
  3169. X                what = t[index-1];
  3170. X                if(what == 0) {
  3171. X                    mwhat = contractor(index-2, num);
  3172. X                    if( mwhat == 3 )  return 7;
  3173. X                    if( mwhat == 1 ) return 5;
  3174. X                    if(mwhat ==2 ) return 7;
  3175. X                    }
  3176. X                what = contractor( index-1 , num );
  3177. X                if( what == 3 ) return 6;
  3178. X                if( what == 1 ) return 8;
  3179. X                if( what == 2 ) return 9;
  3180. X                }
  3181. X        break;
  3182. X        } /* swtich */
  3183. X} /* end of procedure */
  3184. X
  3185. X
  3186. X
  3187. load_board( num )
  3188. int num;
  3189. X{
  3190. X    int i;
  3191. X    int x=0 ,y=0 ;    /* location of a charcater */
  3192. X    int tx, ty ;   /* location of a alphabet */ 
  3193. X    short  what;
  3194. X    
  3195. X    for( i=0; i< num ; i++ ){ 
  3196. X        what = contractor(i,num); 
  3197. X        switch( what ){
  3198. X            case 0:
  3199. X                if(i!=0) { x+=CW*2-1 ;  }
  3200. X                tx=x; ty = y;
  3201. X                word_counter++;
  3202. X                if( word_counter > MC ) {Error("Too many characters");Quit();}
  3203. X                break;
  3204. X            case 1:
  3205. X                tx = x+CW ;
  3206. X                ty=y;
  3207. X                break;
  3208. X            case 2: 
  3209. X                tx= x+CW;
  3210. X                ty= y+SB ;
  3211. X                break; 
  3212. X            case 3: 
  3213. X                tx = x; 
  3214. X                ty = y+CL ;
  3215. X                break;
  3216. X            case 4:
  3217. X                tx = x ;
  3218. X                ty = y+CL ;
  3219. X                break; 
  3220. X            case 5:
  3221. X                tx= x+CW ;
  3222. X                ty = y+CL;
  3223. X                break;
  3224. X            case 6:
  3225. X                tx = x;
  3226. X                ty = y+CL+SD ;
  3227. X                break;
  3228. X            case 7:
  3229. X                tx = x+CW;
  3230. X                ty = y+CL+SD;
  3231. X                break;
  3232. X            case 8:
  3233. X                tx = x+ SR;
  3234. X                ty = y+CL;
  3235. X                break;
  3236. X            case 9:
  3237. X                tx = x +SR;
  3238. X                ty= y+CL+SD;
  3239. X                break;
  3240. X            default:
  3241. X                break;
  3242. X                }  /* switch */
  3243. X        sculpture( tx,ty, b[i] );
  3244. X        }   /*  for */
  3245. X}   /*  end of function */    
  3246. X
  3247. sculpture( x, y, index )
  3248. int x,y, index;
  3249. X{
  3250. X    FILE *fptr;
  3251. X    char str[20],len;
  3252. X    int i,j;
  3253. X
  3254. X    if( NULL == (fptr=fopen(DFName,"r"))) { Error("!"); Quit();}
  3255. X    fseek(fptr, (long)(a[index].address), 0 );
  3256. X    for(i=0; i< CL ; i++ ){
  3257. X        fgets( str, CW+5, fptr);
  3258. X        len = strlen( str );
  3259. X        str[ len-1] =' '; len--;
  3260. X        for(j=0 ; j <len ; j++ ){
  3261. X            board[y+i][x+j] = str[j] ; 
  3262. X        }  /*  for */
  3263. X    }  /* for */
  3264. X    fclose(fptr);
  3265. X}
  3266. compress(str)
  3267. char *str;
  3268. X{
  3269. X    int i,len ;
  3270. X    len = strlen(str);
  3271. X    for(i=0; i<len ; i++ )
  3272. X        if( str[i] != ' ')  return 1;
  3273. X    return 0;
  3274. X}
  3275. X
  3276. X
  3277. print_board(mode)
  3278. short mode;
  3279. X{
  3280. X    int i,  limit;
  3281. X
  3282. X    for(i=0; i < CL*2+3 ; i++ )
  3283. X        if( compress(board[i]) ) limit=i;
  3284. X
  3285. X    board_optimize( limit );
  3286. X    board_compress( limit );
  3287. X        
  3288. X    if(mode == 0 ) {
  3289. puts("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~");
  3290. X        for(i=0 ; i <= limit ; i++ ){
  3291. X                    puts( board[i]);
  3292. X                    fflush(stdout);
  3293. X                    }
  3294. puts("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n");
  3295. X    fflush(stdout);
  3296. X                }
  3297. X    else if( mode==1 )   for(i=0 ; i <= limit ; i++ )
  3298. X                            printf("%s:%s\n",receiver,board[i]);
  3299. X}
  3300. X
  3301. board_compress( max )
  3302. int max;
  3303. X{
  3304. X    int i,j;
  3305. X    int end;
  3306. X    int sw = 0;
  3307. X    char tablet[CL*3+2];
  3308. X
  3309. X    end = strlen(board[0]);
  3310. X
  3311. X    for(i=0 ; i<end-1 ; i++ ){
  3312. X        for(j=0; j<= max ; j++ ) tablet[j]= board[j][i];
  3313. X        tablet[j] = 0;
  3314. X        if( strClen(tablet) ==0 ){ 
  3315. X            sw++; 
  3316. X            if (sw==3){
  3317. X                exec_compress(i,max,end);
  3318. X                sw--;
  3319. X                end--;
  3320. X                i--;  } /* if */
  3321. X                }  /* if */
  3322. X        else sw=0;
  3323. X        }  /* for i */
  3324. X}
  3325. X
  3326. exec_compress( i, max, end)
  3327. int i,max,end;
  3328. X{
  3329. X    int j,k;
  3330. X
  3331. X    for(j=0 ; j<=max ; j++ ){
  3332. X        for(k=i; k<end-1; k++ )
  3333. X            board[j][k]=board[j][k+1];
  3334. X        board[j][k] = 0 ;
  3335. X        }
  3336. X}
  3337. strClen(str)
  3338. char *str;
  3339. X{
  3340. X    int len, i;
  3341. X    len=strlen(str);
  3342. X    for(i=0 ; i<len ; i++)
  3343. X        if(str[i]!=' ') return 1;
  3344. X    return 0;
  3345. X}
  3346. board_optimize( max )
  3347. int max;
  3348. X{
  3349. X    int i,j,k;
  3350. X    int local_max;
  3351. X    int delta ;
  3352. X
  3353. X    for(i=0; i< word_counter ; i++ ){
  3354. X        local_max= local_scan(i,max);
  3355. X        if( local_max <= max-2) {
  3356. X            delta = (max-local_max)/2 ;
  3357. X            for( j=i*(CW*2-1); j< (i+1)*(CW*2-1) ; j++) 
  3358. X                for(k=local_max ; k>=0 ; k--){
  3359. X                    board[k+delta][j] = board[k][j];
  3360. X                    board[k][j]=' ';
  3361. X                    }  /*  for k */
  3362. X                } /*  if  */
  3363. X        } /* for i */
  3364. X}
  3365. X
  3366. local_scan(i,max)
  3367. int i;
  3368. int max;
  3369. X{
  3370. X    int j,k;
  3371. X    int local=0;
  3372. X
  3373. X    for( j=i*(CW*2-1); j< (i+1)*(CW*2-1) ; j++) 
  3374. X        for(k=max; k>0 ; k--) 
  3375. X            if( board[k][j] != ' ') { if(k>local) local=k ; break; }
  3376. X    return local;
  3377. X}
  3378. X        
  3379. make_board(str)
  3380. char *str;
  3381. X{
  3382. X    int i,len,defect=0 ;
  3383. X
  3384. X    len = strlen(str); 
  3385. X    
  3386. X    for(i=0; i<len ; i++ ) { 
  3387. X        b[i+defect] = where( str[i], alpha );
  3388. X        if( b[i+defect] == -1 ) defect--;
  3389. X        else t[i+defect] = a[b[i+defect]].type;
  3390. X        }
  3391. X    return i+defect; 
  3392. X}
  3393. make_font()
  3394. X{
  3395. X    int i;
  3396. X    for(i=0; i<TOTAL ; i++ ) { 
  3397. X        a[i].type = exist( alpha[i] );
  3398. X        a[i].address = i*(CL*(CW+1)+1) ;
  3399. X        }
  3400. X}
  3401. X    
  3402. exist( ch )
  3403. X{
  3404. X    if( where(ch, c ) >-1 )  return 0;
  3405. X    else if( where( ch, v1) > -1 ) return 1;
  3406. X    else if( where(ch, v2) >-1 ) return 2;
  3407. X    return 3;
  3408. X}
  3409. where( ch, str )
  3410. char ch;
  3411. char *str;
  3412. X{
  3413. X    int i, len;
  3414. X
  3415. X    len=strlen(str);
  3416. X    for(i=0; i<len ; i++ ) 
  3417. X        if( ch == str[i] )  return i;
  3418. X    return -1;
  3419. X}
  3420. XError(str)
  3421. char *str;
  3422. X{
  3423. X}
  3424. Quit()
  3425. X{
  3426. X    puts("-------");
  3427. X    exit(0);
  3428. X}
  3429. X
  3430. X
  3431. END_OF_FILE
  3432. if test 6638 -ne `wc -c <'banner-5/lban.c'`; then
  3433.     echo shar: \"'banner-5/lban.c'\" unpacked with wrong size!
  3434. fi
  3435. # end of 'banner-5/lban.c'
  3436. fi
  3437. if test -f 'banner-5/lban.dat' -a "${1}" != "-c" ; then 
  3438.   echo shar: Will not clobber existing file \"'banner-5/lban.dat'\"
  3439. else
  3440. echo shar: Extracting \"'banner-5/lban.dat'\" \(813 characters\)
  3441. sed "s/^X//" >'banner-5/lban.dat' <<'END_OF_FILE'
  3442. X .___.
  3443. X |   |
  3444. X +---+
  3445. X
  3446. X _____
  3447. X  | | 
  3448. X  | | 
  3449. X
  3450. X __|__
  3451. X  / \ 
  3452. X /   \
  3453. X
  3454. X  ___ 
  3455. X /   \
  3456. X \___/
  3457. X
  3458. X .____
  3459. X |    
  3460. X |____
  3461. X
  3462. X .___.
  3463. X .___|
  3464. X |___.
  3465. X
  3466. X __|__
  3467. X /   \
  3468. X \___/
  3469. X
  3470. X   |  
  3471. X --+--
  3472. X      
  3473. X
  3474. X |__  
  3475. X |__  
  3476. X |    
  3477. X
  3478. X   |  
  3479. X --|  
  3480. X   |  
  3481. X
  3482. X  |   
  3483. X  |-- 
  3484. X  |   
  3485. X
  3486. X  |   
  3487. X  |   
  3488. X  |   
  3489. X
  3490. X _____
  3491. X      
  3492. X      
  3493. X
  3494. X _____
  3495. X   |  
  3496. X      
  3497. X
  3498. X  | | 
  3499. X  |-| 
  3500. X  | | 
  3501. X
  3502. X  | | 
  3503. X -| | 
  3504. X  | | 
  3505. X
  3506. X .   .
  3507. X |___|
  3508. X |___|
  3509. X
  3510. X ----+
  3511. X     |
  3512. X     |
  3513. X
  3514. X .    
  3515. X |    
  3516. X +----
  3517. X
  3518. X   .  
  3519. X  / \ 
  3520. X /   \
  3521. X
  3522. X __|  
  3523. X __|  
  3524. X   |  
  3525. X
  3526. X _____
  3527. X  | | 
  3528. X -+-+-
  3529. X
  3530. X _____
  3531. X  / \ 
  3532. X /   \
  3533. X
  3534. X .____
  3535. X |____
  3536. X |____
  3537. X
  3538. X  | | 
  3539. X -+-+-
  3540. X      
  3541. X
  3542. X ----+
  3543. X ____|
  3544. X     |
  3545. X
  3546. X . . .
  3547. X |_|_|
  3548. X |_|_|
  3549. X
  3550. X _____
  3551. X  / / 
  3552. X /\/ \
  3553. X
  3554. X .____
  3555. X | |  
  3556. X |_|__
  3557. X
  3558. X ____.
  3559. X   | |
  3560. X   | |
  3561. X
  3562. X  ..  
  3563. X // \ 
  3564. X// \ \
  3565. X
  3566. X |_|  
  3567. X |_|  
  3568. X | |  
  3569. X
  3570. X _| | 
  3571. X _| | 
  3572. X  | | 
  3573. X
  3574. X .---.
  3575. X  .--'
  3576. X  @   
  3577. X
  3578. X  ||  
  3579. X  |   
  3580. X  @   
  3581. X
  3582. X      
  3583. X  @   
  3584. X
  3585. X      
  3586. X      
  3587. X @@   
  3588. X  /
  3589. X
  3590. X
  3591. X
  3592. END_OF_FILE
  3593. if test 813 -ne `wc -c <'banner-5/lban.dat'`; then
  3594.     echo shar: \"'banner-5/lban.dat'\" unpacked with wrong size!
  3595. fi
  3596. # end of 'banner-5/lban.dat'
  3597. fi
  3598. if test -f 'banner-5/leb.c' -a "${1}" != "-c" ; then 
  3599.   echo shar: Will not clobber existing file \"'banner-5/leb.c'\"
  3600. else
  3601. echo shar: Extracting \"'banner-5/leb.c'\" \(3633 characters\)
  3602. sed "s/^X//" >'banner-5/leb.c' <<'END_OF_FILE'
  3603. X/* leb : Large English Banner
  3604. X *
  3605. X * Who the heck wrote original Pascal version?
  3606. X *
  3607. X * C version by Han, Yun-Su
  3608. X * 880505 KAIST undergraduate Dept of Life Science
  3609. X */
  3610. X
  3611. X#include <stdio.h>
  3612. X
  3613. main(argc, argv)
  3614. int argc;
  3615. char **argv;
  3616. X{
  3617. X    char line[256];
  3618. X
  3619. X    if (argc < 2)    {
  3620. X        fprintf(stderr, "&:^)\n");
  3621. X        exit(1);
  3622. X        }
  3623. X    getline(line, argc, argv);
  3624. X    lowerline(line);
  3625. X    putline(line);
  3626. X}
  3627. X
  3628. getline(s, n, v)
  3629. char *s;
  3630. int n;
  3631. char *v[];
  3632. X{
  3633. X    int i, j;
  3634. X
  3635. X    strcpy(s, "");
  3636. X    for (i = 1; i < n; i++, s++)    {
  3637. X        for (j = 0; v[i][j] != '\0'; j++, s++)
  3638. X            *s = v[i][j];
  3639. X        *s = ' ';
  3640. X        }
  3641. X    s--;
  3642. X    *s = '\0';
  3643. X}
  3644. X
  3645. lowerline(s)
  3646. char *s;
  3647. X{
  3648. X    char *p;
  3649. X
  3650. X    for (p = s; *p != '\0'; p++)
  3651. X        if (*p >= 'A' && *p <= 'Z')
  3652. X            *p = *p - 'A' + 'a';
  3653. X}
  3654. X
  3655. X#define    Height        6    /* Height of 3D Font */
  3656. X#define    Blank        "     "
  3657. putline(s)
  3658. char *s;
  3659. X{
  3660. X    static char *data[] = {
  3661. X        "     __      ",
  3662. X        "    /  \\     ",
  3663. X        "   /    \\    ",
  3664. X        "  /  /\\  \\   ",
  3665. X        " /  ____  \\  ",
  3666. X        "/__/    \\__\\ ",
  3667. X        " ______   ",
  3668. X        "|  __  \\  ",
  3669. X        "| |__|  | ",
  3670. X        "|  __  <  ",
  3671. X        "| |__|  | ",
  3672. X        "|______/  ",
  3673. X        "  _____  ",
  3674. X        " / ____| ",
  3675. X        "| |      ",
  3676. X        "| |      ",
  3677. X        "| |____  ",
  3678. X        " \\_____| ",
  3679. X        " ______   ",
  3680. X        "|  ___ \\  ",
  3681. X        "| |   | | ",
  3682. X        "| |   | | ",
  3683. X        "| |___| | ",
  3684. X        "|______/  ",
  3685. X        " _______  ",
  3686. X        "|  _____| ",
  3687. X        "| |___    ",
  3688. X        "|  ___|   ",
  3689. X        "| |_____  ",
  3690. X        "|_______| ",
  3691. X        " _______  ",
  3692. X        "|  _____| ",
  3693. X        "| |___    ",
  3694. X        "|  ___|   ",
  3695. X        "| |       ",
  3696. X        "|_|       ",
  3697. X        "  ______   ",
  3698. X        " / _____|  ",
  3699. X        "| |   ___  ",
  3700. X        "| |  |_  | ",
  3701. X        "| |____| | ",
  3702. X        " \\______/  ",
  3703. X        " _     _  ",
  3704. X        "| |   | | ",
  3705. X        "| |___| | ",
  3706. X        "|  ___  | ",
  3707. X        "| |   | | ",
  3708. X        "|_|   |_| ",
  3709. X        " _  ",
  3710. X        "| | ",
  3711. X        "| | ",
  3712. X        "| | ",
  3713. X        "| | ",
  3714. X        "|_| ",
  3715. X        "     _  ",
  3716. X        "    | | ",
  3717. X        "    | | ",
  3718. X        " _  | | ",
  3719. X        "| |_| | ",
  3720. X        " \\___/  ",
  3721. X        " _   __ ",
  3722. X        "| | / / ",
  3723. X        "| |/ /  ",
  3724. X        "|   <   ",
  3725. X        "| |\\ \\  ",
  3726. X        "|_| \\_\\ ",
  3727. X        " _       ",
  3728. X        "| |      ",
  3729. X        "| |      ",
  3730. X        "| |      ",
  3731. X        "| |____  ",
  3732. X        "|______| ",
  3733. X        " ___    ___  ",
  3734. X        "|   \\  /   | ",
  3735. X        "| |\\ \\/ /| | ",
  3736. X        "| | \\__/ | | ",
  3737. X        "| |      | | ",
  3738. X        "|_|      |_| ",
  3739. X        " __    _  ",
  3740. X        "|  \\  | | ",
  3741. X        "|   \\ | | ",
  3742. X        "| |\\ \\| | ",
  3743. X        "| | \\   | ",
  3744. X        "|_|  \\__| ",
  3745. X        "  ______   ",
  3746. X        " / ____ \\  ",
  3747. X        "| |    | | ",
  3748. X        "| |    | | ",
  3749. X        "| |____| | ",
  3750. X        " \\______/  ",
  3751. X        " _____   ",
  3752. X        "|  __ \\  ",
  3753. X        "| |__| | ",
  3754. X        "|  ___/  ",
  3755. X        "| |      ",
  3756. X        "|_|      ",
  3757. X        "  ______    ",
  3758. X        " / ____ \\   ",
  3759. X        "| |    | |  ",
  3760. X        "| |    | |  ",
  3761. X        "| |___|  |  ",
  3762. X        " \\________| ",
  3763. X        " _____   ",
  3764. X        "|  __ \\  ",
  3765. X        "| |__| | ",
  3766. X        "|  _  /  ",
  3767. X        "| | \\ \\  ",
  3768. X        "|_|  \\_\\ ",
  3769. X        "  _____   ",
  3770. X        " / ____|  ",
  3771. X        "| |____   ",
  3772. X        " \\____ \\  ",
  3773. X        "  ____| | ",
  3774. X        " |_____/  ",
  3775. X        " _________  ",
  3776. X        "|___   ___| ",
  3777. X        "    | |     ",
  3778. X        "    | |     ",
  3779. X        "    | |     ",
  3780. X        "    |_|     ",
  3781. X        " _     _  ",
  3782. X        "| |   | | ",
  3783. X        "| |   | | ",
  3784. X        "| |   | | ",
  3785. X        "| |___| | ",
  3786. X        " \\_____/  ",
  3787. X        "__        __ ",
  3788. X        "\\ \\      / / ",
  3789. X        " \\ \\    / /  ",
  3790. X        "  \\ \\  / /   ",
  3791. X        "   \\ \\/ /    ",
  3792. X        "    \\__/     ",
  3793. X        "__            __ ",
  3794. X        "\\ \\          / / ",
  3795. X        " \\ \\        / /  ",
  3796. X        "  \\ \\  /\\  / /   ",
  3797. X        "   \\ \\/  \\/ /    ",
  3798. X        "    \\__/\\__/     ",
  3799. X        "__    __ ",
  3800. X        "\\ \\  / / ",
  3801. X        " \\ \\/ /  ",
  3802. X        "  >  <   ",
  3803. X        " / /\\ \\  ",
  3804. X        "/_/  \\_\\ ",
  3805. X        "__     __ ",
  3806. X        "\\ \\   / / ",
  3807. X        " \\ \\_/ /  ",
  3808. X        "  \\   /   ",
  3809. X        "   | |    ",
  3810. X        "   |_|    ",
  3811. X        " _______  ",
  3812. X        "|____  /  ",
  3813. X        "    / /   ",
  3814. X        "   / /    ",
  3815. X        "  / /___  ",
  3816. X        " /______| ",
  3817. X        };
  3818. X    int i;
  3819. X    char *p;
  3820. X
  3821. X    for (i = 0; i < Height; i++)    {
  3822. X        for (p = s; *p != '\0'; p++)
  3823. X            if (*p < 'a' || *p > 'z')
  3824. X                printf(Blank);
  3825. X            else
  3826. X                printf("%s", data[(*p - 'a') * Height + i]);
  3827. X        printf("\n");
  3828. X        }
  3829. X}
  3830. END_OF_FILE
  3831. if test 3633 -ne `wc -c <'banner-5/leb.c'`; then
  3832.     echo shar: \"'banner-5/leb.c'\" unpacked with wrong size!
  3833. fi
  3834. # end of 'banner-5/leb.c'
  3835. fi
  3836. if test -f 'banner-5/sban.dat' -a "${1}" != "-c" ; then 
  3837.   echo shar: Will not clobber existing file \"'banner-5/sban.dat'\"
  3838. else
  3839. echo shar: Extracting \"'banner-5/sban.dat'\" \(412 characters\)
  3840. sed "s/^X//" >'banner-5/sban.dat' <<'END_OF_FILE'
  3841. X_.
  3842. L|
  3843. X
  3844. TT
  3845. X  
  3846. X
  3847. X_L
  3848. X/\
  3849. X
  3850. X  
  3851. X()
  3852. X
  3853. r-
  3854. L_
  3855. X
  3856. X-)
  3857. X(_
  3858. X
  3859. X_L
  3860. X()
  3861. X
  3862. X_L
  3863. X  
  3864. X
  3865. X|_
  3866. X|-
  3867. X
  3868. X |
  3869. X-|
  3870. X
  3871. X|_
  3872. X| 
  3873. X
  3874. X| 
  3875. X| 
  3876. X
  3877. X  
  3878. X__
  3879. X
  3880. X-r
  3881. X  
  3882. X
  3883. X|J
  3884. X||
  3885. X
  3886. J|
  3887. X||
  3888. X
  3889. L|
  3890. L|
  3891. X
  3892. X_.
  3893. X |
  3894. X
  3895. X. 
  3896. X|_
  3897. X
  3898. X .
  3899. X/\
  3900. X
  3901. X_|
  3902. X-|
  3903. X
  3904. X__
  3905. JL
  3906. X
  3907. X__
  3908. X/\
  3909. X
  3910. X==
  3911. L_
  3912. X
  3913. JL
  3914. X  
  3915. X
  3916. X__
  3917. X-/
  3918. X
  3919. UU
  3920. UU
  3921. X
  3922. X__
  3923. X^^
  3924. X
  3925. X__
  3926. LL
  3927. X
  3928. X__
  3929. X//
  3930. X
  3931. X..
  3932. X^^
  3933. X
  3934. L|
  3935. r|
  3936. X
  3937. J|
  3938. T|
  3939. X
  3940. X?)
  3941. o 
  3942. X
  3943. X|7
  3944. o 
  3945. X
  3946. X  
  3947. o 
  3948. X
  3949. X  
  3950. X, 
  3951. X
  3952. o 
  3953. o 
  3954. X
  3955. AA
  3956. X  
  3957. X
  3958. oo
  3959. X\/
  3960. X
  3961. oo
  3962. X/\
  3963. X
  3964. X**
  3965. X\/
  3966. X
  3967. X**
  3968. X/\
  3969. X
  3970. X..
  3971. X\/
  3972. X
  3973. X..
  3974. X/\
  3975. X
  3976. X'`
  3977. X\/
  3978. X
  3979. X`'
  3980. X/\
  3981. X
  3982. X^^
  3983. X U
  3984. X
  3985. X^^
  3986. U 
  3987. X
  3988. X'|
  3989. X |
  3990. X
  3991. X')
  3992. X<_
  3993. X
  3994. X')
  3995. X_)
  3996. X
  3997. X||
  3998. X-+
  3999. X
  4000. X.-
  4001. X_)
  4002. X
  4003. X| 
  4004. X()
  4005. X
  4006. X->
  4007. X/ 
  4008. X
  4009. X()
  4010. X()
  4011. X
  4012. X()
  4013. X |
  4014. X
  4015. X/\
  4016. X\/
  4017. END_OF_FILE
  4018. if test 412 -ne `wc -c <'banner-5/sban.dat'`; then
  4019.     echo shar: \"'banner-5/sban.dat'\" unpacked with wrong size!
  4020. fi
  4021. # end of 'banner-5/sban.dat'
  4022. fi
  4023. if test -f 'banner-5/seb.c' -a "${1}" != "-c" ; then 
  4024.   echo shar: Will not clobber existing file \"'banner-5/seb.c'\"
  4025. else
  4026. echo shar: Extracting \"'banner-5/seb.c'\" \(3119 characters\)
  4027. sed "s/^X//" >'banner-5/seb.c' <<'END_OF_FILE'
  4028. X/* seb : Small English Banner
  4029. X *
  4030. X * Who the heck wrote original Pascal version?
  4031. X *
  4032. X * C version by Han, Yun-Su
  4033. X * 880505 KAIST undergraduate Dept of Life Science
  4034. X */
  4035. X
  4036. X#include <stdio.h>
  4037. X
  4038. main(argc, argv)
  4039. int argc;
  4040. char **argv;
  4041. X{
  4042. X    char line[256];
  4043. X
  4044. X    if (argc < 2)    {
  4045. X        fprintf(stderr, "&:^)\n");
  4046. X        exit(1);
  4047. X        }
  4048. X    getline(line, argc, argv);
  4049. X    putline(line);
  4050. X}
  4051. X
  4052. getline(s, n, v)
  4053. char *s;
  4054. int n;
  4055. char *v[];
  4056. X{
  4057. X    int i, j;
  4058. X
  4059. X    strcpy(s, "");
  4060. X    for (i = 1; i < n; i++, s++)    {
  4061. X        for (j = 0; v[i][j] != '\0'; j++, s++)
  4062. X            *s = v[i][j];
  4063. X        *s = ' ';
  4064. X        }
  4065. X    s--;
  4066. X    *s = '\0';
  4067. X}
  4068. X
  4069. X#define    Height        4    /* Height of Font */
  4070. X#define    Blank        "     "
  4071. putline(s)
  4072. char *s;
  4073. X{
  4074. X    static char *upper[] = {
  4075. X        "     ",
  4076. X        "  /\\ ",
  4077. X        " /--\\",
  4078. X        "     ",
  4079. X        "  _ ",
  4080. X        " |_)",
  4081. X        " |_)",
  4082. X        "    ",
  4083. X        "  __",
  4084. X        " /  ",
  4085. X        " \\__",
  4086. X        "    ",
  4087. X        "  _ ",
  4088. X        " | \\",
  4089. X        " |_/",
  4090. X        "    ",
  4091. X        "  __",
  4092. X        " |_ ",
  4093. X        " |__",
  4094. X        "    ",
  4095. X        "  __",
  4096. X        " |_ ",
  4097. X        " |  ",
  4098. X        "    ",
  4099. X        "  _ ",
  4100. X        " / _",
  4101. X        " \\_|",
  4102. X        "    ",
  4103. X        "    ",
  4104. X        " |_|",
  4105. X        " | |",
  4106. X        "    ",
  4107. X        "  ",
  4108. X        " |",
  4109. X        " |",
  4110. X        "  ",
  4111. X        "    ",
  4112. X        "   |",
  4113. X        " |_|",
  4114. X        "    ",
  4115. X        "    ",
  4116. X        " |_/",
  4117. X        " | \\",
  4118. X        "    ",
  4119. X        "    ",
  4120. X        " |  ",
  4121. X        " |__",
  4122. X        "    ",
  4123. X        "       ",
  4124. X        " |\\  /|",
  4125. X        " | \\/ |",
  4126. X        "       ",
  4127. X        "     ",
  4128. X        " |\\ |",
  4129. X        " | \\|",
  4130. X        "     ",
  4131. X        "  _ ",
  4132. X        " / \\",
  4133. X        " \\_/",
  4134. X        "    ",
  4135. X        "  _ ",
  4136. X        " |_)",
  4137. X        " |  ",
  4138. X        "    ",
  4139. X        "  _ ",
  4140. X        " / \\",
  4141. X        " \\_\\",
  4142. X        "    ",
  4143. X        "  _ ",
  4144. X        " |_)",
  4145. X        " | \\",
  4146. X        "    ",
  4147. X        "  _ ",
  4148. X        " (_ ",
  4149. X        "  _)",
  4150. X        "    ",
  4151. X        " ___",
  4152. X        "  | ",
  4153. X        "  | ",
  4154. X        "    ",
  4155. X        "     ",
  4156. X        " |  |",
  4157. X        " |__|",
  4158. X        "     ",
  4159. X        "     ",
  4160. X        " \\  /",
  4161. X        "  \\/ ",
  4162. X        "     ",
  4163. X        "       ",
  4164. X        " \\    /",
  4165. X        "  \\/\\/ ",
  4166. X        "       ",
  4167. X        "    ",
  4168. X        " \\_/",
  4169. X        " / \\",
  4170. X        "    ",
  4171. X        "    ",
  4172. X        " \\_/",
  4173. X        "  | ",
  4174. X        "    ",
  4175. X        " __",
  4176. X        "  /",
  4177. X        " /_",
  4178. X        "   ",
  4179. X        ""
  4180. X        };
  4181. X    static char *lower[] = {
  4182. X        "    ",
  4183. X        "  _ ",
  4184. X        " (_|",
  4185. X        "    ",
  4186. X        "    ",
  4187. X        " |_ ",
  4188. X        " |_)",
  4189. X        "    ",
  4190. X        "   ",
  4191. X        "  _",
  4192. X        " (_",
  4193. X        "   ",
  4194. X        "    ",
  4195. X        "  _|",
  4196. X        " (_|",
  4197. X        "    ",
  4198. X        "   ",
  4199. X        "  _",
  4200. X        " (=",
  4201. X        "   ",
  4202. X        "   _",
  4203. X        " _|_",
  4204. X        "  | ",
  4205. X        "    ",
  4206. X        "    ",
  4207. X        "  _ ",
  4208. X        " (_|",
  4209. X        "  _/",
  4210. X        "    ",
  4211. X        " |_ ",
  4212. X        " | |",
  4213. X        "    ",
  4214. X        "  ",
  4215. X        " .",
  4216. X        " |",
  4217. X        "  ",
  4218. X        "   ",
  4219. X        "  .",
  4220. X        "  |",
  4221. X        " _/",
  4222. X        "   ",
  4223. X        " |_",
  4224. X        " |\\",
  4225. X        "   ",
  4226. X        "  ",
  4227. X        " |",
  4228. X        " |",
  4229. X        "  ",
  4230. X        "      ",
  4231. X        "  _ _ ",
  4232. X        " | | |",
  4233. X        "      ",
  4234. X        "    ",
  4235. X        "  _ ",
  4236. X        " | |",
  4237. X        "    ",
  4238. X        "    ",
  4239. X        "  _ ",
  4240. X        " (_)",
  4241. X        "    ",
  4242. X        "    ",
  4243. X        "  _ ",
  4244. X        " |_)",
  4245. X        " |  ",
  4246. X        "    ",
  4247. X        "  _ ",
  4248. X        " (_|",
  4249. X        "   |",
  4250. X        "   ",
  4251. X        "  _",
  4252. X        " | ",
  4253. X        "   ",
  4254. X        "  ",
  4255. X        "  ",
  4256. X        " S",
  4257. X        "  ",
  4258. X        "    ",
  4259. X        " _|_",
  4260. X        "  |_",
  4261. X        "    ",
  4262. X        "    ",
  4263. X        "    ",
  4264. X        " |_|",
  4265. X        "    ",
  4266. X        "    ",
  4267. X        "    ",
  4268. X        " \\_/",
  4269. X        "    ",
  4270. X        "      ",
  4271. X        "      ",
  4272. X        " \\_|_/",
  4273. X        "      ",
  4274. X        "   ",
  4275. X        "   ",
  4276. X        " ><",
  4277. X        "   ",
  4278. X        "    ",
  4279. X        "    ",
  4280. X        " \\_/",
  4281. X        " _/ ",
  4282. X        "   ",
  4283. X        " _ ",
  4284. X        " /_",
  4285. X        "   ",
  4286. X        "   ",
  4287. X        ""
  4288. X        };
  4289. X    int i;
  4290. X    char *p;
  4291. X
  4292. X    for (i = 0; i < Height; i++)    {
  4293. X        for (p = s; *p != '\0'; p++)
  4294. X            if (*p >= 'a' && *p <= 'z')
  4295. X                printf("%s", lower[(*p - 'a') * Height + i]);
  4296. X            else if (*p >= 'A' && *p <= 'Z')
  4297. X                printf("%s", upper[(*p - 'A') * Height + i]);
  4298. X            else
  4299. X                printf(Blank);
  4300. X        printf("\n");
  4301. X        }
  4302. X}
  4303. END_OF_FILE
  4304. if test 3119 -ne `wc -c <'banner-5/seb.c'`; then
  4305.     echo shar: \"'banner-5/seb.c'\" unpacked with wrong size!
  4306. fi
  4307. # end of 'banner-5/seb.c'
  4308. fi
  4309. if test ! -d 'banner-6' ; then
  4310.     echo shar: Creating directory \"'banner-6'\"
  4311.     mkdir 'banner-6'
  4312. fi
  4313. if test -f 'banner-6/banner.6' -a "${1}" != "-c" ; then 
  4314.   echo shar: Will not clobber existing file \"'banner-6/banner.6'\"
  4315. else
  4316. echo shar: Extracting \"'banner-6/banner.6'\" \(2979 characters\)
  4317. sed "s/^X//" >'banner-6/banner.6' <<'END_OF_FILE'
  4318. X.\" Copyright (c) 1980 The Regents of the University of California.
  4319. X.\" All rights reserved.
  4320. X.\"
  4321. X.\" Redistribution and use in source and binary forms, with or without
  4322. X.\" modification, are permitted provided that the following conditions
  4323. X.\" are met:
  4324. X.\" 1. Redistributions of source code must retain the above copyright
  4325. X.\"    notice, this list of conditions and the following disclaimer.
  4326. X.\" 2. Redistributions in binary form must reproduce the above copyright
  4327. X.\"    notice, this list of conditions and the following disclaimer in the
  4328. X.\"    documentation and/or other materials provided with the distribution.
  4329. X.\" 3. All advertising materials mentioning features or use of this software
  4330. X.\"    must display the following acknowledgement:
  4331. X.\"    This product includes software developed by the University of
  4332. X.\"    California, Berkeley and its contributors.
  4333. X.\" 4. Neither the name of the University nor the names of its contributors
  4334. X.\"    may be used to endorse or promote products derived from this software
  4335. X.\"    without specific prior written permission.
  4336. X.\"
  4337. X.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  4338. X.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  4339. X.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  4340. X.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  4341. X.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  4342. X.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  4343. X.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  4344. X.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  4345. X.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  4346. X.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  4347. X.\" SUCH DAMAGE.
  4348. X.\"
  4349. X.\"    @(#)banner.6    6.4 (Berkeley) 6/23/90
  4350. X.\"
  4351. X.TH BANNER 6 "June 23, 1990"
  4352. X.UC
  4353. X.SH NAME
  4354. banner \- print large banner on printer
  4355. X.SH SYNOPSIS
  4356. X.B /usr/games/banner
  4357. X[
  4358. X.BI \-w n
  4359. X]
  4360. message ...
  4361. X.SH DESCRIPTION
  4362. X.I Banner
  4363. prints a large, high quality banner on the standard output.
  4364. If the message is omitted, it prompts for and
  4365. reads one line of its standard input.  If
  4366. X.B \-w
  4367. is given, the output is scrunched down from a width of 132 to
  4368. X.I n ,
  4369. suitable for a narrow terminal.  If
  4370. X.I n
  4371. is omitted, it defaults to 80.
  4372. X.PP
  4373. The output should be printed on a hard-copy device, up to 132 columns wide,
  4374. with no breaks between the pages. The volume is great enough that you 
  4375. may want
  4376. a printer or a fast hardcopy terminal, but if you are patient, a
  4377. decwriter or other 300 baud terminal will do.
  4378. X.SH BUGS
  4379. Several ASCII characters are not defined, notably <, >, [, ], \\,
  4380. X^, _, {, }, |, and ~.  Also, the characters ", ', and & are funny
  4381. looking (but in a useful way.)
  4382. X.PP
  4383. The
  4384. X.B \-w
  4385. option is implemented by skipping some rows and columns.
  4386. The smaller it gets, the grainier the output.
  4387. Sometimes it runs letters together.
  4388. X.SH AUTHOR
  4389. Mark Horton
  4390. END_OF_FILE
  4391. if test 2979 -ne `wc -c <'banner-6/banner.6'`; then
  4392.     echo shar: \"'banner-6/banner.6'\" unpacked with wrong size!
  4393. fi
  4394. # end of 'banner-6/banner.6'
  4395. fi
  4396. if test ! -d 'banner-7' ; then
  4397.     echo shar: Creating directory \"'banner-7'\"
  4398.     mkdir 'banner-7'
  4399. fi
  4400. if test -f 'banner-7/banner.c' -a "${1}" != "-c" ; then 
  4401.   echo shar: Will not clobber existing file \"'banner-7/banner.c'\"
  4402. else
  4403. echo shar: Extracting \"'banner-7/banner.c'\" \(6380 characters\)
  4404. sed "s/^X//" >'banner-7/banner.c' <<'END_OF_FILE'
  4405. X#include <stdio.h>
  4406. X
  4407. static char *chars[][4] = {
  4408. X/***************/
  4409. X"  ",
  4410. X"  ",
  4411. X"  ",
  4412. X"  ",
  4413. X/***************/
  4414. X".",
  4415. X"|",
  4416. X"|",
  4417. X".",
  4418. X/***************/
  4419. X"_ _",
  4420. X"| |",
  4421. X"   ",
  4422. X"   ",
  4423. X/***************/
  4424. X" . . ",
  4425. X"_|_|_",
  4426. X"_|_|_",
  4427. X" | | ",
  4428. X/***************/
  4429. X" ___",
  4430. X"| | ",
  4431. X" \\| ",
  4432. X" _|)",
  4433. X/***************/
  4434. X" _ ",
  4435. X" -/",
  4436. X" / ",
  4437. X"/ =",
  4438. X/***************/
  4439. X"  _  ",
  4440. X" | | ",
  4441. X" /\\  ",
  4442. X"(__|\\",
  4443. X/***************/
  4444. X" _",
  4445. X" /",
  4446. X"  ",
  4447. X"  ",
  4448. X/***************/
  4449. X"  _",
  4450. X" / ",
  4451. X"|  ",
  4452. X" \\_",
  4453. X/***************/
  4454. X"_  ",
  4455. X" \\ ",
  4456. X"  |",
  4457. X"_/ ",
  4458. X/***************/
  4459. X"      ",
  4460. X"  \\|/ ",
  4461. X" --*--",
  4462. X"  /|\\ ",
  4463. X/***************/
  4464. X"     ",
  4465. X"  |  ",
  4466. X"--+--",
  4467. X"  |  ",
  4468. X/***************/
  4469. X" ",
  4470. X" ",
  4471. X"_",
  4472. X"/",
  4473. X/***************/
  4474. X"    ",
  4475. X"____",
  4476. X"    ",
  4477. X"    ",
  4478. X/***************/
  4479. X"   ",
  4480. X"   ",
  4481. X"___",
  4482. X"|_|",
  4483. X/***************/
  4484. X"    _",
  4485. X"   / ",
  4486. X"  /  ",
  4487. X"_/   ",
  4488. X/***************/
  4489. X"  ___/ ",
  4490. X" /  /\\ ",
  4491. X"| /   |",
  4492. X"/\\___/ ",
  4493. X/***************/
  4494. X" . ",
  4495. X"/| ",
  4496. X" | ",
  4497. X"_|_",
  4498. X/***************/
  4499. X"  __  ",
  4500. X" /  ) ",
  4501. X"   /  ",
  4502. X"  /___",
  4503. X/***************/
  4504. X" ___ ",
  4505. X" __/ ",
  4506. X"   \\ ",
  4507. X"\\___)",
  4508. X/***************/
  4509. X"  _. ",
  4510. X" / | ",
  4511. X"/__|_",
  4512. X"  _|_",
  4513. X/***************/
  4514. X".___",
  4515. X"|__ ",
  4516. X"   \\",
  4517. X"\\__/",
  4518. X/***************/
  4519. X"  __ ",
  4520. X" /__ ",
  4521. X"/   \\",
  4522. X"\\___/",
  4523. X/***************/
  4524. X"___.",
  4525. X"  / ",
  4526. X" /  ",
  4527. X"/   ",
  4528. X/***************/
  4529. X" __ ",
  4530. X"(__)",
  4531. X"/  \\",
  4532. X"\\__/",
  4533. X/***************/
  4534. X" ___ ",
  4535. X"(___|",
  4536. X"   / ",
  4537. X"__/  ",
  4538. X/***************/
  4539. X"  ",
  4540. X"||",
  4541. X"  ",
  4542. X"||",
  4543. X/***************/
  4544. X"  ",
  4545. X"||",
  4546. X"  ",
  4547. X"|/",
  4548. X/***************/
  4549. X"  .",
  4550. X" / ",
  4551. X" \\ ",
  4552. X"  \\",
  4553. X/***************/
  4554. X"    ",
  4555. X"____",
  4556. X"____",
  4557. X"    ",
  4558. X/***************/
  4559. X".  ",
  4560. X" \\ ",
  4561. X" / ",
  4562. X"/  ",
  4563. X/***************/
  4564. X" __ ",
  4565. X"/  )",
  4566. X"  | ",
  4567. X"  . ",
  4568. X/***************/
  4569. X"  ___  ",
  4570. X" ___ \\ ",
  4571. X"| |_\\ |",
  4572. X" \\___/ ",
  4573. X/***************/
  4574. X  "   _   ",
  4575. X  "  / \\  ",
  4576. X  " /___\\ ",
  4577. X  "/     \\",
  4578. X/***************/
  4579. X  "___ ",
  4580. X  "|__)",
  4581. X  "|  \\",
  4582. X  "|__/",
  4583. X/***************/
  4584. X  "  __ ",
  4585. X  " /  \\",
  4586. X  "|    ",
  4587. X  " \\__/",
  4588. X/***************/
  4589. X  " __  ",
  4590. X  "|  \\ ",
  4591. X  "|   |",
  4592. X  "|__/ ",
  4593. X/***************/
  4594. X  " ___",
  4595. X  "|__ ",
  4596. X  "|   ",
  4597. X  "|___",
  4598. X/***************/
  4599. X  " ___",
  4600. X  "|__ ",
  4601. X  "|   ",
  4602. X  "|   ",
  4603. X/***************/
  4604. X  "  __ ",
  4605. X  " /  \\",
  4606. X  "|  __",
  4607. X  " \\__|",
  4608. X/***************/
  4609. X  "_   _",
  4610. X  "|___|",
  4611. X  "|   |",
  4612. X  "|   |",
  4613. X/***************/
  4614. X  "___",
  4615. X  " | ",
  4616. X  " | ",
  4617. X  "_|_",
  4618. X/***************/
  4619. X  " ___",
  4620. X  "   |",
  4621. X  "   |",
  4622. X  "\\_/ ",
  4623. X/***************/
  4624. X  "_  _",
  4625. X  "| / ",
  4626. X  "|/\\ ",
  4627. X  "|  \\",
  4628. X/***************/
  4629. X  "_   ",
  4630. X  "|   ",
  4631. X  "|   ",
  4632. X  "|___",
  4633. X/***************/
  4634. X  "_    _",
  4635. X  "|\\  /|",
  4636. X  "| \\/ |",
  4637. X  "|    |",
  4638. X/***************/
  4639. X  "__   _",
  4640. X  "| \\  |",
  4641. X  "|  \\ |",
  4642. X  "|   \\|",
  4643. X/***************/
  4644. X  "  ___  ",
  4645. X  " /   \\ ",
  4646. X  "|     |",
  4647. X  " \\___/ ",
  4648. X/***************/
  4649. X  "____ ",
  4650. X  "|   \\",
  4651. X  "|___/",
  4652. X  "|    ",
  4653. X/***************/
  4654. X  "  ___  ",
  4655. X  " /   \\ ",
  4656. X  "|   \\ |",
  4657. X  " \\___\\ ",
  4658. X/***************/
  4659. X  "____ ",
  4660. X  "|   \\",
  4661. X  "|___/",
  4662. X  "|  \\ ",
  4663. X/***************/
  4664. X  " __  ",
  4665. X  "|  \\ ",
  4666. X  " \\__ ",
  4667. X  "\\___|",
  4668. X/***************/
  4669. X  "_____",
  4670. X  "  |  ",
  4671. X  "  |  ",
  4672. X  "  |  ",
  4673. X/***************/
  4674. X  "_    _",
  4675. X  "|    |",
  4676. X  "|    |",
  4677. X  " \\__/ ",
  4678. X/***************/
  4679. X  "_      _",
  4680. X  " \\    / ",
  4681. X  "  \\  /  ",
  4682. X  "   \\/   ",
  4683. X/***************/
  4684. X  "_          _",
  4685. X  " \\        / ",
  4686. X  "  \\  /\\  /  ",
  4687. X  "   \\/  \\/   ",
  4688. X/***************/
  4689. X  "_   _",
  4690. X  " \\ / ",
  4691. X  " / \\ ",
  4692. X  "/   \\",
  4693. X/***************/
  4694. X  "_   _",
  4695. X  " \\ / ",
  4696. X  "  /  ",
  4697. X  " /   ",
  4698. X/***************/
  4699. X  "____ ",
  4700. X  "   / ",
  4701. X  "  /  ",
  4702. X  " /___",
  4703. X/***************/
  4704. X" __",
  4705. X"|  ",
  4706. X"|  ",
  4707. X"|__",
  4708. X/***************/
  4709. X".   ",
  4710. X" \\  ",
  4711. X"  \\ ",
  4712. X"   \\",
  4713. X/***************/
  4714. X"__ ",
  4715. X"  |",
  4716. X"  |",
  4717. X"__|",
  4718. X/***************/
  4719. X" . ",
  4720. X"/ \\",
  4721. X"   ",
  4722. X"   ",
  4723. X/***************/
  4724. X"    ",
  4725. X"    ",
  4726. X"    ",
  4727. X"____",
  4728. X/***************/
  4729. X"_ ",
  4730. X"\\ ",
  4731. X"  ",
  4732. X"  ",
  4733. X/***************/
  4734. X  "   _   ",
  4735. X  "  / \\  ",
  4736. X  " /___\\ ",
  4737. X  "/     \\",
  4738. X/***************/
  4739. X  "___ ",
  4740. X  "|__)",
  4741. X  "|  \\",
  4742. X  "|__/",
  4743. X/***************/
  4744. X  "  __ ",
  4745. X  " /  \\",
  4746. X  "|    ",
  4747. X  " \\__/",
  4748. X/***************/
  4749. X  " __  ",
  4750. X  "|  \\ ",
  4751. X  "|   |",
  4752. X  "|__/ ",
  4753. X/***************/
  4754. X  " ___",
  4755. X  "|__ ",
  4756. X  "|   ",
  4757. X  "|___",
  4758. X/***************/
  4759. X  " ___",
  4760. X  "|__ ",
  4761. X  "|   ",
  4762. X  "|   ",
  4763. X/***************/
  4764. X  "  __ ",
  4765. X  " /  \\",
  4766. X  "|  __",
  4767. X  " \\__|",
  4768. X/***************/
  4769. X  "_   _",
  4770. X  "|___|",
  4771. X  "|   |",
  4772. X  "|   |",
  4773. X/***************/
  4774. X  "___",
  4775. X  " | ",
  4776. X  " | ",
  4777. X  "_|_",
  4778. X/***************/
  4779. X  " ___",
  4780. X  "   |",
  4781. X  "   |",
  4782. X  "\\_/ ",
  4783. X/***************/
  4784. X  "_  _",
  4785. X  "| / ",
  4786. X  "|/\\ ",
  4787. X  "|  \\",
  4788. X/***************/
  4789. X  "_   ",
  4790. X  "|   ",
  4791. X  "|   ",
  4792. X  "|___",
  4793. X/***************/
  4794. X  "_    _",
  4795. X  "|\\  /|",
  4796. X  "| \\/ |",
  4797. X  "|    |",
  4798. X/***************/
  4799. X  "__   _",
  4800. X  "| \\  |",
  4801. X  "|  \\ |",
  4802. X  "|   \\|",
  4803. X/***************/
  4804. X  "  ___  ",
  4805. X  " /   \\ ",
  4806. X  "|     |",
  4807. X  " \\___/ ",
  4808. X/***************/
  4809. X  "____ ",
  4810. X  "|   \\",
  4811. X  "|___/",
  4812. X  "|    ",
  4813. X/***************/
  4814. X  "  ___  ",
  4815. X  " /   \\ ",
  4816. X  "|   \\ |",
  4817. X  " \\___\\ ",
  4818. X/***************/
  4819. X  "____ ",
  4820. X  "|   \\",
  4821. X  "|___/",
  4822. X  "|  \\ ",
  4823. X/***************/
  4824. X  " __  ",
  4825. X  "|  \\ ",
  4826. X  " \\__ ",
  4827. X  "\\___|",
  4828. X/***************/
  4829. X  "_____",
  4830. X  "  |  ",
  4831. X  "  |  ",
  4832. X  "  |  ",
  4833. X/***************/
  4834. X  "_    _",
  4835. X  "|    |",
  4836. X  "|    |",
  4837. X  " \\__/ ",
  4838. X/***************/
  4839. X  "_      _",
  4840. X  " \\    / ",
  4841. X  "  \\  /  ",
  4842. X  "   \\/   ",
  4843. X/***************/
  4844. X  "_          _",
  4845. X  " \\        / ",
  4846. X  "  \\  /\\  /  ",
  4847. X  "   \\/  \\/   ",
  4848. X/***************/
  4849. X  "_   _",
  4850. X  " \\ / ",
  4851. X  " / \\ ",
  4852. X  "/   \\",
  4853. X/***************/
  4854. X  "_   _",
  4855. X  " \\ / ",
  4856. X  "  /  ",
  4857. X  " /   ",
  4858. X/***************/
  4859. X  "____ ",
  4860. X  "   / ",
  4861. X  "  /  ",
  4862. X  " /___",
  4863. X/***************/
  4864. X"  __",
  4865. X"_(  ",
  4866. X" (  ",
  4867. X"  \\_",
  4868. X/***************/
  4869. X".",
  4870. X"|",
  4871. X"|",
  4872. X"|",
  4873. X/***************/
  4874. X"__  ",
  4875. X"  )_",
  4876. X"  ) ",
  4877. X"_/  ",
  4878. X/***************/
  4879. X" _  .",
  4880. X"/ \\/ ",
  4881. X"     ",
  4882. X"     ",
  4883. X};
  4884. X
  4885. X#define LINLEN 79
  4886. static int filled;
  4887. static char buf[4][LINLEN+1];
  4888. X
  4889. main(argc, argv)
  4890. int argc;
  4891. char *argv[];
  4892. X{
  4893. X  int i,j,max;
  4894. X
  4895. X  for (i=1; i<argc; i++) {
  4896. X    for (j=0, max=strlen(argv[i]); j<max; j++) {
  4897. X      print1char(argv[i][j]);
  4898. X    }
  4899. X    flushit();
  4900. X  }
  4901. X}
  4902. X
  4903. print1char(ch) 
  4904. char ch;
  4905. X{
  4906. X  int c=ch-' ';
  4907. X  int charlen;
  4908. X
  4909. X
  4910. X  charlen=strlen(chars[c][0]);
  4911. X
  4912. X  if (charlen+filled+(filled?1:0) > LINLEN) flushit();
  4913. X
  4914. X  strcat(buf[0]," ");
  4915. X  strcat(buf[0],chars[c][0]);
  4916. X  strcat(buf[1]," ");
  4917. X  strcat(buf[1],chars[c][1]);
  4918. X  strcat(buf[2]," ");
  4919. X  strcat(buf[2],chars[c][2]);
  4920. X  strcat(buf[3]," ");
  4921. X  strcat(buf[3],chars[c][3]);
  4922. X  filled+=charlen+1;
  4923. X}
  4924. X
  4925. flushit()
  4926. X{
  4927. X  puts(buf[0]);
  4928. X  puts(buf[1]);
  4929. X  puts(buf[2]);
  4930. X  puts(buf[3]);
  4931. X  putchar('\n');
  4932. X  buf[0][0]=buf[1][0]=buf[2][0]=buf[3][0]='\0';
  4933. X  filled=0;
  4934. X}
  4935. END_OF_FILE
  4936. if test 6380 -ne `wc -c <'banner-7/banner.c'`; then
  4937.     echo shar: \"'banner-7/banner.c'\" unpacked with wrong size!
  4938. fi
  4939. # end of 'banner-7/banner.c'
  4940. fi
  4941. if test ! -d 'banner-8' ; then
  4942.     echo shar: Creating directory \"'banner-8'\"
  4943.     mkdir 'banner-8'
  4944. fi
  4945. if test ! -d 'banner-9' ; then
  4946.     echo shar: Creating directory \"'banner-9'\"
  4947.     mkdir 'banner-9'
  4948. fi
  4949. if test -f 'banner-9/Makefile' -a "${1}" != "-c" ; then 
  4950.   echo shar: Will not clobber existing file \"'banner-9/Makefile'\"
  4951. else
  4952. echo shar: Extracting \"'banner-9/Makefile'\" \(96 characters\)
  4953. sed "s/^X//" >'banner-9/Makefile' <<'END_OF_FILE'
  4954. block: block.o data.o
  4955. X    cc block.o data.o -o block
  4956. X
  4957. prtout: *.c TODO
  4958. X    pr TODO *.c | PRMAN -setup
  4959. END_OF_FILE
  4960. if test 96 -ne `wc -c <'banner-9/Makefile'`; then
  4961.     echo shar: \"'banner-9/Makefile'\" unpacked with wrong size!
  4962. fi
  4963. # end of 'banner-9/Makefile'
  4964. fi
  4965. if test -f 'banner-9/TODO' -a "${1}" != "-c" ; then 
  4966.   echo shar: Will not clobber existing file \"'banner-9/TODO'\"
  4967. else
  4968. echo shar: Extracting \"'banner-9/TODO'\" \(259 characters\)
  4969. sed "s/^X//" >'banner-9/TODO' <<'END_OF_FILE'
  4970. X8702.171220
  4971. X
  4972. X*    Set up with display buffer instead of stream to allow for adding
  4973. X    special features.
  4974. X    (added: 8702.201336)
  4975. X
  4976. X8702.201337
  4977. X
  4978. X*    Set up to use flag to set print width, possibly add feature to
  4979. X    use an environment variable.
  4980. X
  4981. X*    Modify to use font files.
  4982. END_OF_FILE
  4983. if test 259 -ne `wc -c <'banner-9/TODO'`; then
  4984.     echo shar: \"'banner-9/TODO'\" unpacked with wrong size!
  4985. fi
  4986. # end of 'banner-9/TODO'
  4987. fi
  4988. if test -f 'banner-9/block.c' -a "${1}" != "-c" ; then 
  4989.   echo shar: Will not clobber existing file \"'banner-9/block.c'\"
  4990. else
  4991. echo shar: Extracting \"'banner-9/block.c'\" \(1401 characters\)
  4992. sed "s/^X//" >'banner-9/block.c' <<'END_OF_FILE'
  4993. X#include <stdio.h>
  4994. X#include <string.h>
  4995. X
  4996. X#define LINES          10
  4997. X#define BUFFERSIZE    1024
  4998. X
  4999. extern char    *data[][LINES];
  5000. X
  5001. char        buffer[LINES][BUFFERSIZE+1];
  5002. X
  5003. int min(a,b)
  5004. int    a,
  5005. X    b;
  5006. X{
  5007. X    if (a>b)
  5008. X    return(b);
  5009. X    return(a);
  5010. X}
  5011. X
  5012. main(argc,argv)
  5013. int    argc;
  5014. char    **argv;
  5015. X{
  5016. X    short    i,
  5017. X        j,
  5018. X        k,
  5019. X        l,
  5020. X        m,
  5021. X        idx,
  5022. X        idx2,
  5023. X        al,
  5024. X        sw,
  5025. X        tmp,
  5026. X        tmp2;
  5027. X    char    *p,
  5028. X        *ptr;
  5029. X
  5030. X    while (--argc) {
  5031. X    argv++;
  5032. X/*
  5033. X    for (i=0; i<LINES; i++) {
  5034. X        p = *argv;
  5035. X        while (*p != '\0')
  5036. X        printf("%s ",data[*p++][i]);
  5037. X        printf("\n");
  5038. X    }
  5039. X*/
  5040. X    p = *argv;
  5041. X    idx = 0;
  5042. X    idx2 = 0;
  5043. X    for (i=0; i<LINES; i++)
  5044. X        for (j=0; j<BUFFERSIZE; j++)
  5045. X        buffer[i][j] = ' ';
  5046. X    while (*p != '\0') {
  5047. X        al = strlen(data[*p][0]);
  5048. X        sw = al;
  5049. X        l = 0; m = 0;
  5050. X        for (i=0; i<LINES; i++) {
  5051. X        for (j=1; j<=idx2 && buffer[i][idx-j]==' '; j++);
  5052. X        for (k=0; *p!=' ' && k<al && data[*p][i][k]==' '; k++);
  5053. X        sw = min(sw,j+k);
  5054. X        if (i) {
  5055. X            sw = min(sw,j+m);
  5056. X            sw = min(sw,l+k);
  5057. X        }
  5058. X        l = j; m = k;
  5059. X        }
  5060. X        if (sw)
  5061. X        --sw;
  5062. X        tmp = idx + al - sw;
  5063. X        tmp2 = idx-sw+1;
  5064. X        for (i=0; i<LINES; i++)
  5065. X        for (j=0; j<min(al,BUFFERSIZE-tmp); j++)
  5066. X            if (data[*p][i][j]!=' ')
  5067. X            buffer[i][tmp2+j]=data[*p][i][j];
  5068. X        idx2 = ( *p==' ' ? 0 : tmp);
  5069. X        idx = tmp + 1;
  5070. X        p++;
  5071. X        if (idx>=BUFFERSIZE) {
  5072. X        idx = BUFFERSIZE;
  5073. X        *p = '\0';
  5074. X        }
  5075. X    }
  5076. X    for (i=0; i<LINES; i++) {
  5077. X        buffer[i][idx] = '\0';
  5078. X        printf("%s\n",buffer[i]);
  5079. X    }
  5080. X    }
  5081. X}
  5082. END_OF_FILE
  5083. if test 1401 -ne `wc -c <'banner-9/block.c'`; then
  5084.     echo shar: \"'banner-9/block.c'\" unpacked with wrong size!
  5085. fi
  5086. # end of 'banner-9/block.c'
  5087. fi
  5088. if test ! -d 'cursive-1' ; then
  5089.     echo shar: Creating directory \"'cursive-1'\"
  5090.     mkdir 'cursive-1'
  5091. fi
  5092. if test -f 'cursive-1/Makefile' -a "${1}" != "-c" ; then 
  5093.   echo shar: Will not clobber existing file \"'cursive-1/Makefile'\"
  5094. else
  5095. echo shar: Extracting \"'cursive-1/Makefile'\" \(466 characters\)
  5096. sed "s/^X//" >'cursive-1/Makefile' <<'END_OF_FILE'
  5097. CFLAGS = -g
  5098. X
  5099. cursive: cursive.o x.o xs.o
  5100. X    cc -g -o cursive cursive.o x.o xs.o
  5101. X
  5102. x.o: x.c
  5103. X
  5104. xs.o: xs.c
  5105. X
  5106. x.c: font.c
  5107. X    xstr font.c
  5108. X
  5109. xs.c: font.c
  5110. X    xstr font.c
  5111. X
  5112. X# This is for use if you haven't got the xstr command.  The program works
  5113. X# the same, but is slightly bigger.
  5114. X
  5115. lcursive: cursive.o font.o
  5116. X    cc -g -o lcursive cursive.o font.o
  5117. X
  5118. cursive.shar: cursive.c font.c cursive.h cursive.6 Makefile shar
  5119. X    shar cursive.c font.c cursive.h cursive.6 Makefile shar > cursive.shar
  5120. END_OF_FILE
  5121. if test 466 -ne `wc -c <'cursive-1/Makefile'`; then
  5122.     echo shar: \"'cursive-1/Makefile'\" unpacked with wrong size!
  5123. fi
  5124. # end of 'cursive-1/Makefile'
  5125. fi
  5126. if test -f 'cursive-1/README' -a "${1}" != "-c" ; then 
  5127.   echo shar: Will not clobber existing file \"'cursive-1/README'\"
  5128. else
  5129. echo shar: Extracting \"'cursive-1/README'\" \(424 characters\)
  5130. sed "s/^X//" >'cursive-1/README' <<'END_OF_FILE'
  5131. This is a program for generating horizontal cursive banners.  It's main
  5132. use is for generating cute signatures for email.  It is copyrighted by
  5133. Jan Wolter, but may be distributed freely.  Have what fun you can...
  5134. X
  5135. X                  ___                _     __  _
  5136. X                 (   >              ' )   /   // _/_
  5137. X                  __/___.  ____      / / / __|/  /  _  __
  5138. X                 / / (_/|_/ / <__   (_(_/ (_) \_<__</_/ (__
  5139. X                <_/
  5140. X                    janc@crim.eecs.umich.edu
  5141. X
  5142. END_OF_FILE
  5143. if test 424 -ne `wc -c <'cursive-1/README'`; then
  5144.     echo shar: \"'cursive-1/README'\" unpacked with wrong size!
  5145. fi
  5146. # end of 'cursive-1/README'
  5147. fi
  5148. if test -f 'cursive-1/cursive.6' -a "${1}" != "-c" ; then 
  5149.   echo shar: Will not clobber existing file \"'cursive-1/cursive.6'\"
  5150. else
  5151. echo shar: Extracting \"'cursive-1/cursive.6'\" \(1300 characters\)
  5152. sed "s/^X//" >'cursive-1/cursive.6' <<'END_OF_FILE'
  5153. X.TH CURSIVE 6 "24 July 1985"
  5154. X.UC
  5155. X.SH NAME
  5156. cursive \- print text in cursive script
  5157. X.SH SYNOPSIS
  5158. X.B /usr/games/cursive
  5159. X[
  5160. X.BI \-i n
  5161. X]
  5162. X[
  5163. X.BI \-t n
  5164. X]
  5165. X[message]
  5166. X.SH DESCRIPTION
  5167. X.I Cursive
  5168. prints a line of text in a rather crude cursive script.
  5169. It is intended for use mainly for the generation of decorative signatures
  5170. for electronic mail.
  5171. If message text is given on the command line, that text is used.
  5172. Otherwise the text will be read from standard input up to an end of file.
  5173. The
  5174. X.B \-i
  5175. option sets the minimum spacing between adjacent characters.
  5176. The default is
  5177. X.B \-i1 .
  5178. The
  5179. X.B \-t
  5180. option sets the length of the trailing lines on the end of each word.
  5181. The default is
  5182. X.B \-t1 .
  5183. X.PP
  5184. The '_' character is treated in a special way.  It may be inserted in
  5185. the text anywhere you wish to lengthen a connecting line between two
  5186. letters.
  5187. X.SH BUGS
  5188. Many ASCII characters are not defined, notably the numbers and symbols.
  5189. Punctuation is mostly available.
  5190. Some characters are rather ugly.
  5191. The author has lousy handwriting.
  5192. X.SH AUTHOR
  5193. Jan Wolter.  UUCP mail to janc@crim.eecs.umich.edu
  5194. X.SH COPYRIGHT
  5195. This program and the cursive font it generates are copyrighted by Jan Wolter.
  5196. Both may be freely used and distributed in any way whatsoever, so long as
  5197. the author's name is left in the source code and documentation.
  5198. END_OF_FILE
  5199. if test 1300 -ne `wc -c <'cursive-1/cursive.6'`; then
  5200.     echo shar: \"'cursive-1/cursive.6'\" unpacked with wrong size!
  5201. fi
  5202. # end of 'cursive-1/cursive.6'
  5203. fi
  5204. if test -f 'cursive-1/cursive.h' -a "${1}" != "-c" ; then 
  5205.   echo shar: Will not clobber existing file \"'cursive-1/cursive.h'\"
  5206. else
  5207. echo shar: Extracting \"'cursive-1/cursive.h'\" \(544 characters\)
  5208. sed "s/^X//" >'cursive-1/cursive.h' <<'END_OF_FILE'
  5209. struct letter {
  5210. X    char *line[6];            /* What's on each of the six lines */
  5211. X    char spcs[6];            /* Number of leading spaces for each */
  5212. X    short tailin,tailout;        /* Where the lines in and out go */
  5213. X    };
  5214. X
  5215. X/* Special Codes for Character Table */
  5216. X
  5217. X#define XX  -1        /* Ignore character */
  5218. X#define SP  -2          /* Space */
  5219. X#define ST  -3          /* Extend trailer */
  5220. X#define SA  -4        /* Alternate font number */    /* Not used */
  5221. X#define SN  -5        /* Numbers */            /* Not used */
  5222. X
  5223. X#define CHARWIDTH 10
  5224. X
  5225. extern struct letter list[];
  5226. extern short code1[], code2[];
  5227. END_OF_FILE
  5228. if test 544 -ne `wc -c <'cursive-1/cursive.h'`; then
  5229.     echo shar: \"'cursive-1/cursive.h'\" unpacked with wrong size!
  5230. fi
  5231. # end of 'cursive-1/cursive.h'
  5232. fi
  5233. if test ! -d 'cursive-2' ; then
  5234.     echo shar: Creating directory \"'cursive-2'\"
  5235.     mkdir 'cursive-2'
  5236. fi
  5237. if test -f 'cursive-2/Makefile' -a "${1}" != "-c" ; then 
  5238.   echo shar: Will not clobber existing file \"'cursive-2/Makefile'\"
  5239. else
  5240. echo shar: Extracting \"'cursive-2/Makefile'\" \(466 characters\)
  5241. sed "s/^X//" >'cursive-2/Makefile' <<'END_OF_FILE'
  5242. CFLAGS = -O
  5243. X
  5244. cursive: cursive.o x.o xs.o
  5245. X    cc -g -o cursive cursive.o x.o xs.o
  5246. X
  5247. x.o: x.c
  5248. X
  5249. xs.o: xs.c
  5250. X
  5251. x.c: font.c
  5252. X    xstr font.c
  5253. X
  5254. xs.c: font.c
  5255. X    xstr font.c
  5256. X
  5257. X# This is for use if you haven't got the xstr command.  The program works
  5258. X# the same, but is slightly bigger.
  5259. X
  5260. lcursive: cursive.o font.o
  5261. X    cc -g -o lcursive cursive.o font.o
  5262. X
  5263. cursive.shar: cursive.c font.c cursive.h cursive.6 Makefile shar
  5264. X    shar cursive.c font.c cursive.h cursive.6 Makefile shar > cursive.shar
  5265. END_OF_FILE
  5266. if test 466 -ne `wc -c <'cursive-2/Makefile'`; then
  5267.     echo shar: \"'cursive-2/Makefile'\" unpacked with wrong size!
  5268. fi
  5269. # end of 'cursive-2/Makefile'
  5270. fi
  5271. if test -f 'cursive-2/cursive.6' -a "${1}" != "-c" ; then 
  5272.   echo shar: Will not clobber existing file \"'cursive-2/cursive.6'\"
  5273. else
  5274. echo shar: Extracting \"'cursive-2/cursive.6'\" \(1300 characters\)
  5275. sed "s/^X//" >'cursive-2/cursive.6' <<'END_OF_FILE'
  5276. X.TH CURSIVE 6 "24 July 1985"
  5277. X.UC
  5278. X.SH NAME
  5279. cursive \- print text in cursive script
  5280. X.SH SYNOPSIS
  5281. X.B /usr/games/cursive
  5282. X[
  5283. X.BI \-i n
  5284. X]
  5285. X[
  5286. X.BI \-t n
  5287. X]
  5288. X[message]
  5289. X.SH DESCRIPTION
  5290. X.I Cursive
  5291. prints a line of text in a rather crude cursive script.
  5292. It is intended for use mainly for the generation of decorative signatures
  5293. for electronic mail.
  5294. If message text is given on the command line, that text is used.
  5295. Otherwise the text will be read from standard input up to an end of file.
  5296. The
  5297. X.B \-i
  5298. option sets the minimum spacing between adjacent characters.
  5299. The default is
  5300. X.B \-i1 .
  5301. The
  5302. X.B \-t
  5303. option sets the length of the trailing lines on the end of each word.
  5304. The default is
  5305. X.B \-t1 .
  5306. X.PP
  5307. The '_' character is treated in a special way.  It may be inserted in
  5308. the text anywhere you wish to lengthen a connecting line between two
  5309. letters.
  5310. X.SH BUGS
  5311. Many ASCII characters are not defined, notably the numbers and symbols.
  5312. Punctuation is mostly available.
  5313. Some characters are rather ugly.
  5314. The author has lousy handwriting.
  5315. X.SH AUTHOR
  5316. Jan Wolter.  UUCP mail to janc@crim.eecs.umich.edu
  5317. X.SH COPYRIGHT
  5318. This program and the cursive font it generates are copyrighted by Jan Wolter.
  5319. Both may be freely used and distributed in any way whatsoever, so long as
  5320. the author's name is left in the source code and documentation.
  5321. END_OF_FILE
  5322. if test 1300 -ne `wc -c <'cursive-2/cursive.6'`; then
  5323.     echo shar: \"'cursive-2/cursive.6'\" unpacked with wrong size!
  5324. fi
  5325. # end of 'cursive-2/cursive.6'
  5326. fi
  5327. if test -f 'cursive-2/cursive.h' -a "${1}" != "-c" ; then 
  5328.   echo shar: Will not clobber existing file \"'cursive-2/cursive.h'\"
  5329. else
  5330. echo shar: Extracting \"'cursive-2/cursive.h'\" \(544 characters\)
  5331. sed "s/^X//" >'cursive-2/cursive.h' <<'END_OF_FILE'
  5332. struct letter {
  5333. X    char *line[6];            /* What's on each of the six lines */
  5334. X    char spcs[6];            /* Number of leading spaces for each */
  5335. X    short tailin,tailout;        /* Where the lines in and out go */
  5336. X    };
  5337. X
  5338. X/* Special Codes for Character Table */
  5339. X
  5340. X#define XX  -1        /* Ignore character */
  5341. X#define SP  -2          /* Space */
  5342. X#define ST  -3          /* Extend trailer */
  5343. X#define SA  -4        /* Alternate font number */    /* Not used */
  5344. X#define SN  -5        /* Numbers */            /* Not used */
  5345. X
  5346. X#define CHARWIDTH 10
  5347. X
  5348. extern struct letter list[];
  5349. extern short code1[], code2[];
  5350. END_OF_FILE
  5351. if test 544 -ne `wc -c <'cursive-2/cursive.h'`; then
  5352.     echo shar: \"'cursive-2/cursive.h'\" unpacked with wrong size!
  5353. fi
  5354. # end of 'cursive-2/cursive.h'
  5355. fi
  5356. if test ! -d 'gothic' ; then
  5357.     echo shar: Creating directory \"'gothic'\"
  5358.     mkdir 'gothic'
  5359. fi
  5360. echo shar: End of archive 1 \(of 5\).
  5361. cp /dev/null ark1isdone
  5362. MISSING=""
  5363. for I in 1 2 3 4 5 ; do
  5364.     if test ! -f ark${I}isdone ; then
  5365.     MISSING="${MISSING} ${I}"
  5366.     fi
  5367. done
  5368. if test "${MISSING}" = "" ; then
  5369.     echo You have unpacked all 5 archives.
  5370.     rm -f ark[1-9]isdone
  5371. else
  5372.     echo You still need to unpack the following archives:
  5373.     echo "        " ${MISSING}
  5374. fi
  5375. ##  End of shell archive.
  5376. exit 0
  5377.