From: takahasi@tiny.or.jp (Hironobu Takahashi)
Subject: Computer Language "HA"
Followup-To: fj.jokes
Organization: Tsukuba internet Club (TINY net)
Distribution: fj
Date: Sat, 3 Oct 1992 07:47:38 GMT

$B!{(B $B$3$l$O2?$+!)(B

  $B@$3&E*$KCxL>$J(B TINY $B$N5;=Q?X$O:#2sBTK>$N?7@$Be8@8l!V$O!W$rH/I=$7(B
$B$^$9!#(B TINY $B$G$O$3$N3+H/$N$?$a$NG|Bg$JEj;q!"?M0w$N@0M}$r?J$a$F$-$F(B
$B$*$j!"?78@8l!V$O!W$O$D$$$K(B 1992 $BG/(B 10 $B7n$K40@.$r8+$k$3$H$K$J$j$^$7(B
$B$?!#(B

$B!{(B $B!V$O!W$NFCD'(B

1. $BJQ?tL>$H$7$FF|K\8l$b;H$($k!#(B
2. $B%-!<%o!<%I$d<gMW$J4X?t$OF|K\8l$G$"$k!#(B
3. $B6h@Z$j$H$7$F!V$^$k(B($B!#(B)$B!W$d!VE@(B($B!"(B)$B!W$r:NMQ$7$?!#(B
4. $B!V(BC$B!W(B $B$r%5%V%;%C%H$H$7$F4^$_!"40A4>e0L8_49$G$"$k!#(B

$B!{(B $B!V$O!W40@.$^$G$NNr;K(B

  $B$3$N8@8l$OBg5,LO$J?M9)CNG=8=<B@$3&7W;;4o$r3+H/$9$k$?$a$N%W%m%8%'(B
$B%/%H$N0l4D$H$7$F3+H/$5$l$F$-$^$7$?!#(B
  $B3+H/<T$ND9CK$,$?$^$?$^!V$3$&$$$A$m$&!W$G$"$C$?$?$a!"$=$N:G=i$NL?(B
$BL>$O!V?7@$Be?7>pJs8@8l$3$&$$$A$m$&$/$s!W$H$5$l$F$$$?$,!"$=$N8e>JN,(B
$B$5$l$FC1=c$K!V$$!W$H$5$l$^$7$?!#$=$N<!$NHG$G$"$k!V$m!W$r7P$F!"0lHL(B
$B$X$N%j%j!<%9$N$?$a$K(B UNIX $B;EMM$N!V$O!W$,3+H/$5$l$^$7$?!#(B
  $B$J$*!":#8e$O$5$i$K%*%V%8%'%/%H;X8~$K2~NI$7$?(B $B!V$O(B++$B!W$r3+H/$9$k(B
$BM=Dj$G$9!#(B

$B!{(B $B!V$O!W$N;HMQJ}K!(B

1. $B!V$O!W%W%m%0%i%`$N:n@.(B
  $B$=$NJ8K!$K$D$$$F$O9b66!"9-Ln$i$K$h$C$F=q$+$l$?(B
            $B!V%W%m%0%i%_%s%08@8l!X$O!Y!W(B
$B$r;2>H$9$k$H$h$$$G$7$g$&!#$7$+$7!V$O!W$N%5%V%;%C%H$H$J$C$F$$$k(B $B!V(BC$B!W(B 
$B$K$D$$$F<c43$NCN<1$,$"$l$P!"$[$\$=$NA45!G=$r;HMQ$9$k$3$H$,$G$-$k$G(B
$B$7$g$&!#(B
  $B$^$:!V$O!W$G=q$+$l$?%W%m%0%i%`$r(B xx.ha $B$H$$$&(B suffix $B$rIU$1$FJ](B
$BB8$7$^$9!#(B

2. $B%5%V%;%C%H8@8l!V(BC$B!W$X$NJQ49(B
  $B<!$K$3$N!V$O!W$r(B conv $B$H$$$&ImB0$N%W%j%3%s%Q%$%i$rDL$7!"(Bxx.c $B$K(B
$BJQ49$7$^$9!#(B

3. $B%X%C%@!<$NJQ49(B
  $B$b$7$b%X%C%@!<$,$"$k>l9g$K$OF1MM$K(B .he $B$H$$$&(B suffix $B$rIU$1$FJ](B
$BB8$7!"(B conv -h $B$rDL$7$F(B xx.h $B$KJQ49$7$^$9!#$=$N8e!"3F%3%s%T%e!<%?!<(B
$B$KImB0$N(B cc $BEy$rMQ$$$F%3%s%Q%$%k$7$^$9!#(B
  $B$J$*!"<B:]$N<B9T$G$OImB0$N(B Makefile $B$H(B sample.ha $B$,;29M$K$J$k$O(B
$B$:$G$9!#(B

# $B$J$*:#HU$O!V$O!W$N40@.$r=K$$!"(BTINY $B<g:E$GEZ1:2V2PBg2q$,:E$5$l$^$9!#(B

begin 644 ha.tar.Z
M'YV03<*L*6,F#9LR !(J7,BPH<.'$"-*G$@1 (B+-FC0 &'Q8@P:-3A>!/%Q
M8\>1(VG N'&QA@P;,V30L&%#QHR1-6K8B&&QHL^?0(,*'4JTJ-&C2),J7<IT
MHHLI58P828*ER!0=(%R@"9,531D0)%! E4K5:@H%"K2&<3%&AX($+EZ,>>/&
M#@@>8%6H!>$C+UNT6LMH=0M7+EV[+=#<]>N5+V/ 6PG'G5MW,0F]6QU?_IL@
M[) A*<"B&&*$29 C4T*W> ,6B-\Q:,.P88.5LMVM6D',"=,&SD&TMFL?YCQF
M#(C5(&PG'PY;P>[>![$^]RT8=N?1H$63-HU:-6L2KJ<?9'N<31L%3=.K7\^^
MO?N@MMF^GR]T9$:3(S^&/%E2),J+,]0  PPMO133###4M%&!-/#$$7T01BCA
MA!16:*%/+Z@  BFSD#(/*=: H,(+:(V0AAMCL%$'&5_Q, <=9*3QAE8^H/5B
M&'2D8=P86\DAHFU?T"$&&UOD0$,7(/0 PAX*H"0"""*P "4+44*Y0Y518NF"
MEECJ@.654HKP Y8A8,F%"%E.">4)6(*!I9HB>!%EDR.)X >67V 9RBQ9AD)+
MG[7T:4N?M_2)2Y^Y]*E+G[OTR4N?O639 I8OF'DF"W1>9">6?/"1I:=AAD),
MG\5DZ6:8;(9Y9I:K4HD"EBE@N0667<A**Y9[S.ED'UCR@*4/O?Z*Y:MAQAIF
MKF'R&N:L8=8:Y@I83AJJ-UFJ0*FN=?9 IK94^AHFL&'RP*T(/HP;RCE]HM-G
M.GVJT^<Z6:8*9:LBA.(.JY>*0 *VFH823Y_R9%D"EB-@:0*6UH8)A)[X])E/
MG_KTN4^?_/393Y_^B-#'#FBU$<:)*(0AQQEC2"GR&7:<=2(=()P\!L<\BBSB
MR79LT07'3**T<G(Q2#F&#%*FP7&F(*1A!@@ACVQ<#TK&<%8"<-1!QQROFHBB
MBBR"<"9N:*R:PM HW8&&066@@,(8,20)PAEET!&S'"BD$%H(2A;QA!&A,9F 
MT4BC#8()(," !PXPY/T62C^KS;;;/<;-<0(HS7%'&HSW[?22A_\W1AAS?"5X
M&#$0MO?19G].(%X_AV8"X"A\+L-B@IMAAMR8)P#Y2'RW/CB!@ ,I))$_M_!Y
M#%UL 0.23 ?^M.UPR+&R&:]B48(,>$R/1Y5HFR#X#6;X+(/V>'#_]5NW7U0&
M&YV3GX 9;\"=AMHP[+!<74$.N47PPQ>?!I)T@W "%S X@?Q6L(*B+:]\((@:
MXT1VML/4#W@R$!X>0*>_+HS/=GT P?DZ5SL$-N]YT;.>]; 7 _!QSWLFG-WC
M$M '\HE!#F40R./^DQS.>6Z",Q"= M_6M]<!;GLJ="$,99@YE+#(#&&H QOH
MH$/GN8$.T!.!]*@W0I^5$(@H!.(%4=)"%FH0?5\IHFXFQ[BS74YO--P<!]ET
M@B:^80QEF,,<OO B)Y[!<4*,X1IFJ#D;^N\%;21?XI2TN+?AT79U<$,ASP8T
MW<#H1!<<70^3I*03J. $RT-)\]X8QSG.I0UM*,,3#YF #9:!?)J4FB'1%LD7
MZI&/1B1($I>H0U4VCI6P!$$+N4@T&-*A#G)P0^ XUD(%;!*.<J0C'>P8-P7D
M#'=/3 [81K+#QK%Q?&$;VT',MK2UM<V0M.N?W?!6NVHR< P7S-W2*BD"3(+ 
ME\!TP^/424G_<8$+[C0GW K9.+EQC)?%/&8GO_#)4([R+,^\R,[0YKUI7D2?
M*#@!(+%)35LRT)*8_.=(Q$8V;J:-D-_LY]SJ=C?#0<VB<,/E6]3YT4I>TJ2(
M>QU(%PBW+8XDD8O\F91>%",WV%2AI!MD)2?:07@&,Y==W.5(6MC""SGUJ4[E
M&D*@2B'[:,0_) $)5OMS$I3$P"4$ H%+8"(3&\"@03B!P0QLT!.JNO6M<(VK
M7-F3(1"4HA6AX$4IWI'74B1#1"12P B.>**O  ,6OZ!'T9XH6,*ZP;"P6"P=
M&DN0PH)@&+O0#1K:-]G!5O:Q("!&+D# !KJ<@;(% >TQN $,710C&R @PQOJ
M,*13>C:U7UEM;&=;6]1:-AGB,$9DS5!:'/D6M, % 7'?8-S;6E89N-B%/I+3
MH^-^1;K4%9EU00!=Z3IC'MGUD0JV2PIQD.(613,#>8]!"F60XKW(^&+ZG O:
M6ZR"%.I0AC7.J]SV;1<7PL O"#CZ&_I^A1?"R 4U=KM=7[ C%^=0!BM($8LQ
M4HY'#7[P.6HX7\?F=AD@<*5 R-L+4CA#&+Z(K2R5.%D%U)46V$@L8$OD81#P
M(L*X (''3K3=4H2C%*0H!7AW[(;M]B(>O(!%,JK1"V@XXQD)="(4>UR-4H0"
MR*58QY&3O.0F/UFY'WRB>@T, @5[&<H*G .5K8SE=9C9R5 V0YJW"PMV2/?,
M"43I=A5L#']\>7%J)G,IJGSE(+N9&GW^LAD O5WI)AK*A5QSH;/L:#_'.=)D
MKG.E_QQ2[0J:T&V>Q2KZ"P=12KK-RB"&<E/TA@Y_]BN#9K.ACZS<.SB/#K:M
M<:PGO0YC_-4,0R3#J0T-"VX(5[F=*\,:>EP++(-W#CR&H 0I:#SD*:EPZ@LS
M%$-(1>J1,(59#%\0;8<24ZJ/?>Z#G_Q\9S_\39!X6]@?"/KWOP .L(!I.& J
M:=I ^OWN?A',7[PMN,(,FK*#D>,-==0R5_98%3\>T2I_KMK5_,@@)P4BZTS6
M&I*6W*!!;6VXR$=.\I+#-13T.%&*5O254(R#IS+22BC(H0"4JQQK+1^'Q^B 
M!IG37 $^=G8HK $+?236Q(D-A2A 4/3$&D,<S3!&**ZA@,/*N.GT0#H]0C$*
M!717']\5$=:?'G6NUQP;1+.Z8E%2BE64PA1"+@4RE*[@8@O7["A9;6M?.Y)>
M$$,9_<"%/\Q.-+\#7O @"$4X0# *6%RY\7@?B7WQJ]_S#KWM;X][?!7/>,>/
MPJYNA_L\Y)[X<C ^%HV'_.=#P0W6@S[SHY_[-1*/]@1,/K_[O<70ZV[LR')>
M]42CH?#+3 V[^][T*%!["D*AC%(T.\CS&+KA S_X:X3B&Z- O>-+ 7EN9!_R
MW'?\,LP>BO*;__SH-S_O[][ZUE-]^"C1M#[.//03E-_^UN]Z\$?B8 A+F,*7
M%WJ:EWC@-0JS,'6TESG]MV&0=PIB]&9/-G0B  O5P RC0 H3)@KX10K>0 J[
MX"&DT RD< KUDG_','Y=!W\@L("G%PH.B$ 0^ P22';&4%ZDH('JP($>"((B
M2()3QW4G:':W0PHE=F*^X((/2 WT9PTB0 HRF I$2 KL@(&R\ NDL JAD HE
M&'DT% K9L'\7,7V(QWJ*5W[@-PJRP(6)]X5>J ";!FF=)@?#EF6B1FJF]FFR
MEF6IMFJEY6JX95>@-FOQ4&NWEFNO!HAYV&N_%FQSN [&AVQEH&S,YFRZ$6T 
M-VWP=CSUA&VV S52%D535#W>9D7@EAS?HT4K5&Y@=&[M@P+O<VWKYD#_YF[4
M)F_T!D "! ($9$#JLV^K)(OM%G#O5D&19'!@A' C87+*N(S,V(S.^(S0&(W2
M.(W46(W62%52=8U!\7!;)7'Y07'"]U4R$%9C%1,S<59ITQ)JQ58/HHWN^([P
"Z![4
 
end
-- 
/* $@9b66M5?.(J($@%$%s%l$N$/$m$&$5$.(J) takahasi@tiny.or.jp */