🚀 go-pugleaf

$B2,K\!w6bBtBg3X$G$9!#(B

<5atb87$ns6@doc.dpc.ehime-u.ac.jp>$B$N5-;v$K$*$$$F!'(B

$B!d(B>> $B!!(BFACOM$B$N(BPASCAL$B$G$b<!$N$h$&$K4JC1$G$9!#(B
$B!d(B>>
$B!d(B>> //$B!!#J#O#BJ8(B
$B!d(B>> //   EXEC  PASCG
$B!d(B>> //PAS.SYSIN  DD  *
$B!d(B>> PROGRAM  DEMO;
$B!d(B>> BEGIN
$B!d(B>>       WRITELN('SAMPLE PROGRAM');
$B!d(B>> END.
$B!d(B>> /*
$B!d(B>> //
$B!d(B
$B!d(B
$B!d(B  $B$$$d!"I8=`F~=PNO$@$1;H$($l$PNI$$$H$$$&>l9g$P$+$j(B
$B!d$G$O$J$$$G$9$h$M!#F1;~$KJ#?t$NF~NO$d=PNO$,I,MW$K$J(B
$B!d$k>l9g$b$"$j$^$9!#(B

$B!!J#?t$N%U%!%$%k$r07$&%P%C%A%8%g%V$NNc$O<!$N$h$&$K$J$j$^$9!#(B

//   $B#J#O#BJ8(B
//   EXEC  PASCG
//PAS.SYSIN  DD  *
PROGRAM  DEMO;
VAR   F1, F2 : TEXT;
BEGIN
      WRITELN('SAMPLE PROGRAM');
      WRITELN(F1,'SAMPLE FILE - 1');
      WRITELN(F2,'SAMPLE FILE - 2');
END.
/*
//GO.F1 DD SYSOUT=A
//GO.F2 DD SYSOUT=A
//


$B!d(B>> $B!!B?BV@-$O!"(BTurbo Pascal 5.5$B$J$$$7(BObject Pascal/Delphi$B$K$*$$$F$O(B
$B!d(B>> $B%/%i%97?!J(BTP$B$G$O%*%V%8%'%/%H7?!K$NBeF~8_49@-$K4X$9$k35G0$G$9!#(B
$B!d(B
$B!d(B
$B!d(B  $B$&!<$s!"$3$A$i$O7Q>5$N35G0$G$O$J$$$N$G$9$+!)(B $B4p(B
$B!dDl%/%i%9(B($B%9!<%Q!<%/%i%9(B)$B$r%3%s%F%J$H$7$F;H$($k$H$$(B
$B!d$&$d$D$G$9$h$M!#$b$A$m$s!"2>A[4X?t(B($B%a%=%C%I$H%a%C(B
$B!d%;!<%8$NF0E*7k9g(B)$B$,Mm$s$G$/$l$P!"B?BV@-$K$b$J$j$^(B
$B!d$9!#(B

$B!!$b$A$m$s!"B?BV@-$O7Q>5$rA0Ds$H$7$F$$$^$9!#(B
$B!!(BDelphi2.0$B$G$N%/%i%97?$O$9$Y$F(BTObject$B7?$r7Q>5$7$F$$$^$9!#(B
$B!!(BDelphi$B$K$*$$$F!"%a%=%C%I$K(Bvirtual$B$H$+(Bdynamic$B$N;XDj$,$G$-$^$9$,!"(B
$B$3$l$i$HMm$a$J$/$F$bB?BV@-$N9M$(J}$O@.N)$7$^$9!#(B


$B!d(B  $B$9$$$^$;$s!#87L)$K=q$+$J$+$C$?$N$G8m2r$J$5$l$?$h$&(B
$B!d$G$9$M!#7Q>5$dB?BV@-$r;H$&$N$O:#F|E*2r7h:v$J$N$G$"$C(B
$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!0!0!0!0!0!0(B
$B!d$F!VBeMQ!W$G$O$"$j$^$;$s!#(BC++ $B$K$*$$$F$O%/%i%9$N(B
$B!d(Bprivate $B%a%=%C%I$r;H$&$3$H$b$G$-$^$9$7!"F~$l;R$N%/%i(B
$B!d%9$r;H$&$3$H$b$G$-$^$9!#BeMQ$O$3$l$G=<J,$G$9!#(B


$B!!2?$r2r7h$9$k$N$+$H$$$&$3$H$G$9!#(B
$B!!%m!<%+%k$J4X?t$r$o$6$o$6F~$l;R$N%/%i%9$GBeMQ$7$h$&$H$9$k(B
$BI,MW$O$J$$$N$G$O!)(B

$B2,K\0B@2(B
C00279@sinet.ad.jp