[net.sources] another poster

johnbl@tekig5.UUCP (John Blankenagel) (11/06/86)

Here is a program (fortran) to print out a woman in a kimono.  I got this
in Japan. I didn't write it, but the name of the author and the school
he was going to is in the program and data file respectively.  Run this
shell script through sh.  i.e. save to kimono.sh or whatever and type
sh kimono.sh.

John Blankenagel

---------cut-here-------------------------------------------------
#
echo 'extracting README'
cat <<'//== E*O*F README ==//' >README
I got this program when I was in Japan a few years ago.  I helped 
some students at a community college debug their Othelo program and they
gave me this program on a paper tape (what? you never heard of paper tape?).
I loaded it into our Gould, fixed it and this is the result.  You need
a program which converts its output to a form that your printer can use.
I.e. a program which converts fortran output stuff to printer stuff.  Our
computer has a program called asa.  You just type the following:

     kimono < kimono.dat | asa | lpr

and it will print it.

//== E*O*F README ==//
#
#
echo 'extracting Makefile'
cat <<'//== E*O*F Makefile ==//' >Makefile
all: kimono.o
	f77 kimono.o -o kimono
//== E*O*F Makefile ==//
#
#
echo 'extracting kimono.data'
cat <<'//== E*O*F kimono.data ==//' >kimono.data
 1
(1H ,//////////////////////43X,13H+++++     +++)
(41X,2H++,3X,2H0 ,2(3H ++),3X,2H++,3X,17(1H*),2X,9(1H.))
(42X,7H++ OOO ,4(1H+),5H  OO ,4(1H+),15(1H*),6X,7H..... .)
(42X,3H+++,3H O ,2(3H ++),6X,2HOO,3H ++,10(1H*),10(1H.),4X,1H.)
(40X,2H++,3X,4H++ +,3X,2(4H ++ ),16(1H*),6(1H.),3X,5(1H.))
(39X,9H++ 00  ++,6X,3H+++,3X,17(1H*),3H...,5X,6H....**)
(39X,9H++ OO +++,3X,10H++++ +  * ,16(1H*),1H.,8X,7H..****.)
(40X,12H++ +++  ++ +,5X,3H+ +,16(1H*),X,6(1HO),3X,9H.*****...)
(42X,17H++  O  *** + OO +,17(1H*),11(1HO),6(1H*),3H...)
(41X,19H**  OOO ***   OO * ,16(1H*),12(1HO),5(1H*),4H...*)
(42X,5H**  O,2(3H **),9H *  * *  ,14(1H*),12(1HO),11H*****....**)
(44X,7(1H*),8H  ***** ,5(1HO),11(1H*),14(1HO),11H***.....***)
(45X,11(1H*),2X,7(1HO),10(1H*),13(1HO),11H****....***)
(44X,11(1H*),3H.*.,7(1HO),8(1H*),15(1HO),5H***. ,7(1H*))
(44X,11(1H*),4H.*.*,5(1HO),7(1H*),16(1HO),5(1H*),7H +  ++*)
(43X,12(1H*),6H.*.*..,12(1H*),13(1HO),5(1H*),8H   O   +)
(43X,12(1H*),6H.*.*..,14(1H*),10(1HO),14H****. + OOO  +)
(43X,12(1H*),6H.*.*..,18(1H*),3HOOO,7(1H*),9H +   O ++)
(43X,12(1H*),6H.*.*..,29(1H*),2(3H ++))
(43X,12(1H*),6H.*.*..,35(1H*),3(/43X,12(1H*),6H.*.*..,36(1H*)))
(44X,11(1H*),6H.*.*..,36(1H*),/44X,11(1H*),6H.*.*..,34(1H*))
(46X,9(1H*),6H.*.*..,33(1H*))
(47X,8(1H*),6H.*.*..,31(1H*),/48X,1HW,6(1H*),6H.*.*..,30(1H*))
(48X,13HW. ****.*.*..,29(1H*)/46X,3HW W,6X,8H.*.*..* ,18(1H*),X,6(1H*))
(46X,1HW,17X,15(1H*),7H   ****/46X,1HW,19X,10(1H*),6X,2H**)
(47X,1HW,6X,1HW,13X,5HW****/48X,1HW,5X,1HW,13X,1HW/50X,5(1HW),13X,1HW)
(54X,1HW,14X,1HW/54X,1HW,15X,1HW/53X,1HW,17X,1HW,4X,6(1HX))
(46X,7HXXX   W,18X,1HW,9(1HX)/44X,6(1HX),2H W,18X,11(1HX),2H**)
(42X,1H.,7(1HX),1HW,16X,13(1HX),5H   **)
(39X,5H... *,9(1HX),11X,13(1HX),9H**     **)
(37X,9H..   *   ,10(1HX),5X,14(1HX),5H* ***,5X,3H*..)
(36X,4H.   ,11(1H*),22(1HX),5(1H*),11H  *    *  .)
(29X,11HXX    .  **,6X,6(1H*),6HXXXXX.,9(1HX),11(1H*),12H   *   *   .)
(23X,18HXX   XXXXX .  ****,11X,6H*****.,16(1H*),5X,12H** *   *  *.)
(22X,22HXXXXX XXXX..  **   ***,4X,9(1H*),1H.,15(1H*),11X,1H*,6X,2H..)
(18X,21HXXX  XXXXX X.. *   **,5X,13(1H*),1H.,20(1H*),7H * ** *,8X,1H.)
(17X,2(X,5(1HX)),2H. ,3(3H  *),1H*,10X,6(1H*),1H.,18(1H*),8X,2H**,6X,1H*)
(1H+,93X,2H../17X,7(1HX),5H XX..,2(4H   *),5(1H.),3H***,7X,5(1H*),1H.,25(1H*))
(1H+,86X,3(3H*  ),2H../11X,2(7H  XXXXX),12H.. *   *  ..,8X,7(1H*))
(1H+,59X,20(1H*),5X,4H**  ,2(4H*   ),1H./14X,6(1HX),15H  XXX.X*   * ..)
(1H+,46X,2H**,16X,13(1H*),15H  *****    *  *,5X,1H*)
(14X,8(1HX),11H  . *   * .,6X,1H.,8X,2H..,12X,4H....,4X,7(1H*),X,6(1H*))
(1H+,87X,6H** * *,4X,2H*./10X,4(1HX),4X,5(1HX),9H. **  * .,6X,1H.)
(1H+,49X,7(1H.),5H  ...,12X,9(1H*),4X,3(2H* ),8H *   * ./11X,7(1HX),2H X)
(1H+,21X,9H. *** * .,6X,2(2H..,18X),11H *****  ** ,3(3H*  ),X,4H** .)
(11X,12(1HX),7(1H*),5X,3H...,20X,1H.,22X,22H** ******  * ** ******)
(17X,6(1HX),6(1H*),4X,5(1H.),21X,1H.,23X,8(1H*),12H **** ******)
(21X,7(1H*),3X,7(1H.),21X,1H.,25X,7(1H*),12H **** ******)
(22X,5(1H*),X,10(1H.),21X,1H.,6X,1H*,20X,11(1H*),X,6(1H*))
(22X,5(1H*),12(1H.),20X,1H.,7X,2H**,20X,9(1H*),X,6(1H*))
(21X,5(1H*),14(1H.),19X,1H.,8X,3H***,19X,2(X,6(1H*)),2H**)
(21X,4(1H*),15(1H.),19X,1H.,8X,6(1H*),16X,2(7H   ****),2H**)
(20X,5(1H*),2(7(1H.),X),18X,1H.,8X,9H**  *****,10X,2(4X,6(1H*)))
(20X,5H*** *,6(1H.),X,9(1H.),18X,4H,   ,2(4X,3H***),2H**,10X,4H****)
(1H+,94X,3H***,4X,6H**** */19X,5H*** *,6(1H.),X,10(1H.),18X,1H,)
(1H+,59X,2(7X,3H***),8X,3H***,5X,13H**    *** ***)
(19X,11H** **..... ,11(1H.),18X,1H,,7X,7H***   O,2(5X,3H***),6X,2H**)
(1H+,102X,7H*  ** */18X,12H**  **....  ,11(1H.),16X,3H..,,7X,8H***    O)
(1H+,76X,2(3X,3H***),8X,2H**,2(3X,1H*),4H  **/17X,12H**   **...  )
(1H+,28X,12(1H.),13X,6H...  ,,7X,3H***,5X,1HO,6X,5H** **,10X,6H* *  *)
(1H+,105X,6H*  * ./16X,2H.*,5X,6H...   ,11(1H.),8X,9(1H.),3H  ,)
(1H+,67X,3H***,5X,1HO,6X,3H***,9X,5HO *  ,3(3H  *),5H   **)
(15X,3H. *,5X,5H..   ,12(1H.),4X,12(1H.),4H   ,,8X,3H***,6X,1HO,6X,2H**)
(1H+,93X,8HO  *  **,2(4X,1H*),3H***/14X,14H.  *    **.   ,11(1H.))
(1H+,40X,15(1H.),4H   ,,9X,3H***,6X,2HOO,5X,1H*,7X,1HO)
(1H+,97X,8H*  *   *,4X,7(1H*)/13X,13H.*   *  ..   ,11(1H.),2X,16(1H.))
(1H+,58X,1H,,9X,3H***,7X,2HOO,10X,2HOO,5X,7H,  *  *,4X,3H***,5X,1H.)
(12X,15H.. *  *  *..   ,11(1H.),2X,16(1H.),4H   ,,11X,3H***,6X,3HOOO)
(1H+,89X,2HOO,6X,11H,  * *   **,5X,6(1H*)/10X,3H.* ,3(3H  *),2H..)
(1H+,26X,21(1H.),2X,6(1H.),3X,1H,,8X,7(1H*),6X,3HOOO,5X,2HOO,7X,4H,  *)
(1H+,105X,1H*,6X,8(1H*)/10X,16H. *   * *  *..  ,19(1H.),3X,8(1H.))
(1H+,58X,3H,  ,10(1H*),5H   **,5X,8HOOO   OO,8X,1H,,11X,3H***,7X,2H**)
(11X,15H. **  . * ..   ,16(1H.),4X,9(1H.),4X,7H,******,16X,8HOOOO OOO)
(1H+,97X,1H,,8X,4H****,6X,6(1H*)/11X,15H.*  ** *  ..   ,13(1H.))
(1H+,42X,12(1H.),5X,2H,*,21X,7H.OOOOOO,9X,1H,,11X,12(1H*))
(12X,9H.   **  .,4X,11(1H.),5X,13(1H.),6X,1H,,22X,6H.OOOOO,10X,1H,)
(1H+,104X,2H**,12X,5(1H*)/12X,9H. **    .,4X,8(1H.),5X,15(1H.),7X,1H,)
(1H+,68X,4HO O ,10(1HO),2H..,6(1HO),8X,1H,,4X,10H*  *****  ,9(1H*))
(13X,8H.    * .,4X,6(1H.),6X,15(1H.),8X,1H,,20X,6HO.....,9(1HO),5H   **)
(1H+,100X,3(4H   *),10(1H*)/14X,15H. **  .    ....,6X,16(1H.),9X,1H,)
(1H+,80X,1HO,7(1H.),11X,13H*** *    *   ,9(1H*)/15X,5H. * .,4X,3H...)
(1H+,32X,16(1H.),11X,3H,**,14X,4H** O,10(1H.),9X,5H*****,5X,1H*)
(1H+,113X,7(1H*)/16X,4H.* .,11X,16(1H.),13X,1H,,10(1H*),9H *****  O)
(1H+,79X,12(1H.),8X,6(1H*),4X,4H**  ,6(1H*)/17X,3H. .,9X,18(1H.))
(1H+,59X,1H,,4X,11(1H*),4H  OO,14(1H.),7X,7(1H*),11H  *********/18X,2H..)
(1H+,21X,1H.,5X,22(1H.),10X,1H,,11X,7H***   O,17(1H.),5X,5(1H*),4H ***,8(1H*))
(19X,6H.  ...,5X,22(1H.),8X,1H,,10X,8H***   O ,17(1H.),2H**,3X,5(1H*),2H *)
(1H+,106X,3H **,7(1H*)/19X,3H.  ,5(1H.),4X,22(1H.),7X,1H,,9X,3H***,4H   O)
(1H+,78X,19(1H.),8(1H*),2X,9(1H*)/18X,1H.,3X,7(1H.),4X,21(1H.),6X,1H,)
(1H+,69X,9H***  O   ,19(1H.),8(1H*),4X,7(1H*)/18X,1H.,3X,9(1H.))
(1H+,36X,18(1H.),6X,1H,,7X,3H***,5X,2H**,21(1H.),X,6(1H*),5X,4H****)
(18X,1H.,3X,13(1H.),5X,16(1H.),5X,1H,,7X,3H***,4X,3H***,21(1H.))
(1H+,102X,5H*** *,5X,1H*)
(18X,4H..  ,17(1H.),4X,13(1H.),5X,1H,,6X,2(5H  ***),X,8(1H.),X,12(1H.))
(1H+,101X,8H.** * **,4X,1H./17X,5H...  ,21(1H.),5X,8(1H.),5X,1H,,8X,6(1H*))
(1H+,78X,8(1H.),2X,11(1H.),16H ...**    *    ,/17X,6H....  ,9(1H.))
(1H+,32X,25(1H.),3X,1H,,9X,2H**,8X,6(1H.),3X,15(1H.),2H**,5X,6H*    .)
(17X,5(1H.),X,9(1H.),3X,18(1H.),4X,5H.. *,,9X,1H*,10X,6(1H.))
(1H+,89X,17(1H.),2H**,4X,5H*   ./16X,1H,,6(1H.),X,9(1H.),5X,1H*,11(1H.))
(1H+,58X,3H**,,20X,5(1H.),3X,15(1H.),13H*  **   *   ./16X,1H,,16(1H.))
(1H+,32X,2(4X,4(1H*)),9X,4(1H*),1H,,11X,15(1H.),3X,12(1H.),9H .***   *,5X,1H.)
(16X,1H,,16(1H.),4X,2(3H***,7X),4(1H*),2H ,,6X,20(1H.),3X,11(1H.),5H  ..*)
(1H+,109X,6(1H*),4H   ./16X,2H, ,14(1H.),4X,3H***,10X,3H***,4X,4(1H*),3H  ,)
(1H+,65X,24(1H.),3X,9(1H.),7H   ...*,6X,1H*,4H   ./16X,3H,  ,12(1H.))
(1H+,35X,3H***,11X,2(6H***   ),2H, ,26(1H.),4X,7(1H.),3X,4(1H.),4(1H*),2H *)
(1H+,115X,4H* *./15X,1H,,4X,10(1H.),6X,3H***,12X,6H*** **,5X,1H,,28(1H.))
(1H+,94X,6(1H.),3X,5(1H.),1H*,5X,5H*  *./15X,1H,,6X,6(1H.),7X,4(1H*),5X,1HO)
(1H+,51X,5H** **,5X,2HO,,27(1H.),5X,4(1H.),4X,6(1H.),3X,6H**   .)
(15X,1H,,7X,3H...,9X,4(1H*),6X,1HO,6X,4(1H*),5X,3HO ,,28(1H.),5X,3H...)
(1H+,102X,7(1H.),9H ** *  *./15X,1H,,8X,1H.,10X,5(1H*),6X,1HO,6X,2H**)
(1H+,59X,6HOO ,..,5X,22(1H.),6X,1H.,3X,7(1H.),8H*  *  *./15X,1H,,8X,1H.)
(1H+,35X,4(1H*),7X,1HO,5X,2H**,5X,4HO  ,,7(1H.),7X,16(1H.),9X,7(1H.))
(1H+,109X,8H***  * ./15X,1H,,8X,1H.,12X,4(1H*),6X,2HOO,5X,1H*,4X,5HOO  ,)
(1H+,63X,14(1H.),26X,6(1H.),8H***  * ./14X,2H,,,22X,3H***,7X,2HOO)
(1H+,57X,6HOO   ,,24(1H.),18X,5(1H.),6H* ** ./14X,1H*,23X,5(1H*),6X,2HOO)
(1H+,57X,2HOO,4X,1H,,30(1H.),14X,8H...*** ./14X,1H*,19X,11(1H*),5X,3HOOO)
(1H+,56X,3HOOO,4X,1H,,28(1H.),4X,7H.   .  ,7(1H.),5H*** */13X,2H**)
(1H+,30X,5(1H*),15X,2(5HOOO  ),5H   , ,25(1H.),2(6H   ...),2X,6(1H.),5(1H*))
(12X,3H***,14X,4(1H*),19X,6(1HO),6X,4H,   ,21(1H.),3X,5(1H.),3X,4(1H.))
(1H+,105X,6(1H.),4(1H*)/2(12X,3H***),1H*,22X,5(1HO),7X,1H,,6X,3H,,,,4X,8(1H.))
(1H+,86X,2(3X,6(1H.)),10H.  ....***/X,2(10X,4(1H*)),23X,5(1HO),8X,1H,)
(1H+,75X,2(9(1H.),2X),X,8(1H.),8H  ...***)
(11X,4(1H*),9X,4(1H*),19X,9(1H0),9X,1H,,8X,9(1H.),2(3X,10(1H.)),6H  .***)
(10X,5(1H*),6X,6(1H*),9X,4(2H O),13(1HO),8X,1H,,6X,10(1H.),2(2X,12(1H.)),2H..)
(1H+,111X,3H***/10X,5(1H*),2X,10(1H*),25X,6(1HO),7X,1H,,4X,10(1H.))
(1H+,79X,2(2X,14(1H.)),3H.**/9X,6(1H*),9X,5(1H*),22X,8HOOOO  OO,6X,1H,)
(1H+,68X,10(1H.),X,16(1H.),2X,15(1H.),2H**/9X,6(1H*),11X,5(1H*))
(1H+,49X,17HO  OO    OO     ,,9(1H.),2X,18(1H.),2X,15(1H.),2H**)
(8X,7(1H*),13X,5(1H*),16X,6HO   OO,6X,1HO,4X,1H,,8(1H.),2X,19(1H.),2X,15(1H.))
(1H+,112X,2H**/7X,8(1H*),15X,6(1H*),6X,7H***   O,5X,1HO,11X,1H,,7(1H.))
(1H+,75X,20(1H.),2X,15(1H.),3H* ./6X,9(1H*),18X,9(1H*),6X,1HO,5X,5HO  **)
(1H+,65X,1H,,6(1H.),X,22(1H.),2X,16(1H.),2H ./5X,10H* ***** **,22X,4(1H*))
(1H+,46X,1HO,7X,3HO  ,8(1H*),1H,,29(1H.),X,17(1H.),2H .)
(4X,11H** ****  **,20X,4(1H*),7X,1HO,9X,11HO  ***  **,,29(1H.),X,9(1H.))
(1H+,106X,7(1H.),3H* ./3X,12H***  **   **,19X,4(1H*),7X,1HO,6X,1H*,4X,1HO)
(1H+,60X,7H***   ,,17(1H.),3X,8(1H.),2X,9(1H.),X,6(1H.),2X,1H.)
(15H  ****  **  **,,19X,3H***,7X,1HO,7X,2H**,4X,10HO  ***   ,,13(1H.))
(1H+,88X,7(1H.),2X,9(1H.),11H  ..... * .)
(15H  ***   *  *  ,,19X,3H***,13X,4(1H*),8X,6H***  ,,8(1H.),12X,9(1H.))
(1H+,97X,9(1H.),3X,8H....*  ./15H *  *    * *  ,,18X,3H***,13X,6H*** **)
(1H+,61X,9H***  ,...,18X,2(X,7(1H.)),1H.,6X,6H..** ./2H ,,2(3X,1H*),4X,1H,)
(1H+,32X,3H***,11X,2(4(1H*),2X),9H   ***  ,,22X,16(1H.),7X,5H.  *.)
(15H ,   *  *    *,,18X,3H***,7X,7(1H*),4X,5(1H*),9H  ***   ,,23X,14(1H.))
(1H+,112X,5H.   ./15H ,**  * *   * ,,18X,3H** ,11(1H*),8X,7H**** **)
(1H+,66X,1H,,23X,13(1H.),8X,6H,*   ./5H ,  *,6X,4H* *,,17X,11(1H*))
(1H+,56X,4H** *,6X,1H,,20X,4H*   ,10(1H.),10X,6H, *  ./6H ,** *)
(1H+,9X,5H* * .,16X,4(1H*),24X,2H**,6X,1H,,19X,1H*,5X,8(1H.),11X,7H,  *  .)
(5H ,  *,9X,1H,,15X,2H**,28X,1H*,6X,1H,,18X,1H*,8X,5(1H.),12X,7H,   * .)
(6H ,   *,5X,4H***,,14X,1H*,37X,1H,,15X,3H***,10X,3H...,13X,1H,,4X,2H**)
(4H , *,10X,1H,,53X,1H,,12X,6(1H*),10X,1H.,15X,6H*   **)
(3H ,*,7X,5H*   ,,53X,1H,,9X,9H***** ***,26X,7H**  ***)
(15H ,   * *   ...,,54X,1H,,6X,5(1H*),6H   ***,26X,8H*** ****)
(15H ,  *   *   * ,,54X,1H,,4X,5(1H*),5X,4(1H*),25X,8(1H*))
(15H ,, *   *    *,,55X,6H, ****,9X,3H***,25X,9(1H*))
(15H   .*   *    *,,55X,5H,****,6X,1HO,4X,3H***,24X,10(1H*))
(15H   .*     *   ,,56X,3H,**,6X,1HO,5X,3H***,24X,11(1H*))
(15H  ***     **  ,,56X,2H,*,7X,1HO,5X,3H***,24X,11(1H*))
(15H   **     *** ,,56X,1H,,7X,1HO,6X,3H***,24X,12(1H*))
(15H    **    ****,,57X,1H,,5X,2HOO,6X,3H***,24X,12H**** **** **)
(15H    ***  *****,,57X,1H,,4X,2HOO,6X,3H***,26X,12H** ****  ***)
(4X,10(1H*),1H,,58X,6H,   OO,6X,3H***,26X,12H**  ***  **,)
(5X,10H** ***** ,,58X,5H,  OO,6X,3H***,27X,12H*    **  * ,)
(5X,10H**  ***  ,,59X,4H,OOO,5X,9H***   ***,22X,1H*,5X,6H*  * ,)
(5X,10H***  *   ,,59X,4H,OOO,4X,18(1H*),14X,1H*,5X,7H* *   ,)
(5X,10H****  *  ,,60X,5H,O   ,7(1H*),6X,10(1H*),5X,19H***   ,*     *    ,)
(4X,11H, *   *   ,,61X,4H,  *,21X,7(1H*),6X,13H, *    *   *,)
(4X,11H, *    *  ,,62X,1H,,24X,4H****,8X,13H,  *   * ** ,)
(4X,10H,  *   * ,,64X,1H,,10X,6(1HO),6X,3H***,10X,14H,*  *  **    ,)
(4X,10H,* *   * ,,65X,1H,,4X,6(1HO),11X,3H***,10X,6H, ****,6X,3H* ,)
(4X,10H,***   * ,,65X,6H,OOOOO,15X,3H***,11X,1H,,9X,5H****,)
(4X,10H,  *    *,,66X,2H,O,17X,3H***,12X,1H,,4X,1H*,5X,5H*   ,)
(4X,2H,*,6X,1H,,67X,1H,,16X,4(1H*),13X,7H,  ** *,5X,4H*  ,)
(4X,9H, **    ,,68X,1H,,12X,6(1H*),14X,16H,**  *    *  **,)
(4X,1H,,7X,1H,,68X,1H,,9X,7(1H*),16X,9H,   * * *,6X,1H,)
(4X,9H, ***   ,,68X,4H,   ,9(1H*),20X,1H,,4(3H  *),3H  ,)
(5X,8H,   ** ,,68X,1H,,7(1H*),25X,16H, *   *  *  *  ,)
(5X,8H,  * * ,,69X,1H,,3X,5(1H*),23X,16H,**  *   *   * ,)
(6X,6H,*  *,,70X,1H,,6X,4(1H*),21X,16H*** *    *   * ,)
(7X,5H,  *,,70X,3H,OO,6X,3H***,20X,16H** *    **  ** ,)
(8X,4H,,*,,67X,8H,,,OOOOO,6X,4(1H*),17X,16H***  *****  ****)
(10X,2H,,,64X,3H,,,,6X,4(1HO),6X,3H***,16X,10(1H*),5H ****)
(11X,1H,,62X,4H,, *,10X,3HOOO,4X,3H***,16X,10(1H*),5H ****)
(11X,1H,,58X,9H,,,,   **,12X,8HOO   ***,14X,2H, ,13(1H*))
(11X,1H,,55X,4H,,,O,5X,5(1H*),12X,6HO   **,14X,4H,   ,10(1H*))
(11X,1H,,52X,7H,,, OOO,5X,8H** *****,14X,2H**,13X,1H,,7X,4(1H*))
(11X,1H,,49X,3H,,,,4X,2HOO,5X,3H***,3X,12(1H*),5X,2H**,12X,1H,)
(11X,1H,,45X,7H,,,,***,4X,1HO,5X,3H***,7X,15(1H*),2H *,11X,1H,)
(11X,1H,,42X,3H,,,,5X,3H***,3X,7HO   ***,16X,11(1H*),10X,1H,)
(12X,1H,,36X,9H,,,,, ,,,,5X,10H***    ***,27X,4(1H*),7X,1H,)
(12X,1H,,30X,6(1H,),8H **  *  ,5(1H.),9H  *** ***,40X,1H,)
(12X,1H,,24X,6(1H,),8X,18H** **  ****....***,41X,1H,)
(13X,2H,,,15X,7(1H,),17H **   *    *   * ,7(1H*),5X,6(1H.),38X,1H,)
(15X,15(1H,),8X,5(1H*),9H   *** * ,5(1H*),X,7(2H X),8(1H.),29X,1H,)
(39X,4H*** ,10(1H*),2H X,6(4H   X),X,19(1H.),5X,5(1H,))
(41X,7(1H*),4H X  ,14(2H X),3HX**,14X,7H**,,,,,)
(45X,3HX  ,5(4HX   ),5(2HX ),2HX*,13X,6(1H*))
(45X,17(2HX ),5X,14(1H*)/46X,4(4HX   ),3(4H   X),4H X  ,18(1H*))
(46X,15(2H X),20(1H*),/47X,2HXX,6(4H   X),2H X,20(1H*))
(48X,2HXX,12(2H X),19(1H*)/49X,2HXX,5(4H   X),4H X  ,16(1H*))
(50X,11(2H X),4H*** ,13(1H*)/52X,1HX,11X,5HX X X,7(1H*),X,9(1H*))
(51X,4(1H*),6X,15(1H*),X,6(1H*)/50X,30(1H*),3(/50X,27(1H*))/51X,25(1H*))
(51X,25(1H*)/52X,23(1H*)/52X,22(1H*))
(53X,20(1H*)/54X,18(1H*))
$
$$*

//== E*O*F kimono.data ==//
#
#
echo 'extracting kimono.f'
cat <<'//== E*O*F kimono.f ==//' >kimono.f
C     PICTURE
C     Z002 S-SUZUKI
      CHARACTER*256 M(290),BUFF
      READ(5,200) N
  200 FORMAT(I3)
      K=0
    5 K=K+1
      READ(5,100) M(K)
  100 FORMAT(A)
      BUFF = M(K)
      IF(BUFF(1:1).NE.'$ ') GO TO 5
      K=K-1
      CLOSE(8)
      DO 20 I=1,N
      DO 10 J=1,K
      WRITE(6,M(J))
   10 CONTINUE
      WRITE(6,500)
  500 FORMAT(////20X,10(1H*),'  MIYAGI KOSEN   SUURI CLUB  ===  1979.
     *10. 27&28.  ',10(1H*))
   20 CONTINUE
      STOP
      END
//== E*O*F kimono.f ==//
#