🚀 go-pugleaf

$B$3$P$d$7$R$m$f$-!wEl9)Bg$H?=$7$^$9!#(B

japan.handmade.comp,fj.sys.ibmpc,fj.sys.misc $B$N(B
 <ONONO.99Feb26110713@arask.fuka.info.waseda.ac.jp>$B$N5-;v$G(B
    02$B7n(B26$BF|$N(B11$B;~(B07$BJ,$K!"(Bonono@fuka.info.waseda.ac.jp$BMM$,=q$-$^$7$?!#(B

>> In article <7b3djp$jab$5@news00.iij4u.or.jp>,
>>     ken-1 <ken-1@pp.iij4u.or.jp> wrote:
>> > $B!!%?%+%i$N$O!V$T$e!<B@!W$G$9!#F|K\8l(B BASIC $B$,;H$($^$7$?!#(B
>> > $B!!$C$F$$$C$F$b!"C1$K(B BASIC $B$N4J0WHG$_$?$$$J$N$N%9%F!<%H%a%s%H$r%+%?%+(B
>> > $B%J$K$J$*$7$?$@$1$G$9$,!#(B

$B!X$T$e$&B@!Y$O!X%H%_!<!Y$G$9$h$)!*(B $B$A$J$_$K%?%+%i$O2?$+LLGr$$$b$N(B
$B=P$7$F$^$7$?$C$1!)(B

>> >     10 GOTO 10
>> > $B$,(B
>> >     10 $B%$%1(B 10    <--$B<B:]$K$OH>3Q%+%?%+%J(B
>> > $B$H$+$$$&46$8!#(B
>> Postfix Notation$B$H8@$&$Y$-$+!"(B
>> 	10 10 $B%X(B $B%$%1(B
>> $B$8$c$J$+$C$?$+$J!#(B

$B$$$d!"(B10 $B%K%$%1(B $B$G$9!"$?$V$s!#(Bgoto $B$H(B go to $B$_$?$$$J$b$N$+(B
$B$I$&$+$OCN$j$^$;$s$,!"!X%K!Y$H!X%$%1!Y$O%P%i%P%i$G$O%@%a(B
$B$@$C$?$h$&$J$-$,$7$^$9!#(B

$B5-21NO$@$1$rMj$j$K$G$-$k$@$1L?Na$r5M$a9~$s$G%5%s%W%k=q$$$F(B
$B$_$^$7$?!#"-(B
--- sample.jbas

10 $B%7%-(B S=0
20 $B%7%-(B E=10
30 $B%^%o%l(B 50 I=S $B%+%i(B E $B%+%s%+%/(B 2
40 100 $B%r%h%Y(B
50 $B%H%8%k(B
60 999 $B%K%$%1(B
100 $B%+%1(B 20,I
110 $B%b%7(B I>5 $B%J%i%P(B 130 $B%K%$%1(B
120 $B%*%H(B $B%$%A%*%s(B
130 $B%+%(%l(B
999 $B%*%o%j(B    $B"+$T$e$&B@$G$O$3$N9T$rF~NO$7$?=V4V%i%$%s%(%G%#%?$+$i(B
                $BH4$1$k$N$G:G8e$K;}$C$F$-$F$_$^$7$?!#(B

$B$"$H!"%-%c%i%/%?2hLL$r$$$8$k(B"$B%;%k(B"$B$H$+%9%W%i%$%H4X78$N(B
$BL?Na$b$"$C$?$7!"%8%g%$%3%s%H%m!<%i$rFI$`L?Na$H$+$b(B
$B$"$j$^$7$?!#FCI.$9$Y$-$O(B input $B$KAjEv$9$kL?Na$,$J$$$3$H(B
$B$@$C$?$H$*$b$$$^$9!#(B

  _$B!]"J!](B_  $B(.(B  hkoba@ctrl.titech.ac.jp   __ /~/ _  $B!2!?(B/$B!2!?(B/_  $B(/(B
$B!:(B  /  |  $B!3(-(B  $BEl9)Bg(B.$B@)8f(B.$B>>Hx8&5f<<(B  $B"\!?(B/ /$B"\(B/ $B!?(B/ /$B!_(B/ /$B!@(B  $B(-(B
(  / .  |  )$B(-(B     $B>.NS(B $BM5G7(B              $B"\(B_/   $B!?(B  L/   L/   $B!@(-(B
 `/$B!?(B-$B!@(B_|' $B(1(B        http://www.ctrl.titech.ac.jp/~hkoba        $B(0(B