another poster
John Blankenagel
johnbl at tekig5.UUCP
Fri Nov 7 01:41:27 AEST 1986
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 ==//
#
More information about the Comp.sources.unix
mailing list