🚀 go-pugleaf

$B=i$a$FEj9F$5$;$F$$$?$@$-$^$9!#1;@8!wElBg65M\$H?=(J$B$7$^$9!#(J
$B:rF|!"(JMac$B!J$N(J HD $B!)!K$,>/$7$*$+$7$JF0:n$r$7$?$N$G$9$,!"860x(J
$B$,:#0l$D$O$C$-$j$7$^$;$s!#$I$J$?(J$B$+!";~4V$,$"$j$^$7$?$i%3%a%s%H(J
$B$r$7$FD:$1$$$?$@$1$k$H9,$$$G$9!#(J
$B!G$=$s$J2K$O$J$$!*!G$H$$$&J}$O(J. . .  $B>P$C$F$d$C$F2<$5$$!#(J

Mac quadra700 $B$r(J system 7.0.1,  GomTalk $B$J$7!"(J $B$G;H$C$F$$$^$9!#(J
ftp $B$G0z$CD%$C$F(J$B$-$?(J MacPhase 1.1.0 $B$H$$$&(J plotter&FFT&graph
$B%D!<%k$N$h$&$J%=%U%H$rD4$Y$F$$$^$7$?!#(Jtext data file $B$rFI(J$B$_$3$^(J
$B$;$h$&$H$7$F!"(JWriteNow ver2.2 $B!J$*$=$i$/(J system 7 $BBP1~$G$O$J$$!K(J
$B$G(J data file $B$r0lEY(J clipboard $B$K%3%T!<$7!"(JMacPhase $B$K(J paste
$B$7$h$&$H$7$^$7$?!#$,!"$&$^$/$$$+$J$$$N$G2?EY$+7+$jJV$7$?$H$3$m!"(J
MacPhase $B$,6/@)=*N;$7$F$7$^$$$^$7$?!#2hLL>e$K%4%_$,;D$C$?$N$G(J
$B%j%9%?!<%H$5$;$k$H$"$iIT;W5D!"(Jno system file $B$H=P$k$8$c$"$j$^$;$s$+!*(J

$B5c$-$=$&$K$J$j$J$,$i%G%#%9%/%D!<%k$G5/F0$7(J HD $B$NCf?H$r$r$N$>$$$F$_$k$H(J
System folder $B$NCf?H$,(J. . .  $B6u$C$]$@!<!*(J 
$B$=$l0J30$N(J folder $B$J$I$OL5;v$N$h$&$J$N$G(J HD $B$KF~$l$F$*$$$?%o%/(J$B%A%s$r(J
$BJR$C$Q$7$+$iF0$+$7$F$_$?$N$G$9$,!"%&%$%k%9$O8!=P$5$l$^$;$s!#!J$J$s$;!"(J
$B$3$N#2!"#3;~4VA0$K(J gate keeper 2.7.1 $B$r$$$l$?$P$+$j$J$s$G$9!K$I$&$d$i(J
HD $B$N%/%i%C%7%e$N$h$&$J$N$G!"(JDisk first aid $B$rF0$+$7$?(J$B$H$3$m!"(J
$B!GK\3JE*$J=$M}$,I,MW(J. . .$B!G(J $B$H=P$?$N$G(J OK $B$r%/%j%C%/$7$F(J . . .
$BD>$j$^$7$?!#(J
$BD>$C$?>e$K!"0JA0(J$B$3$l$b860xITL@$G>CLG$7$F$$$?(J WriteNow $B$,I|3h$9$k$d$i!"(J
$BGK2u$5$l$F$$$?%"%$%3%s$,D>$k$d$i(J. . . $B?'!9L5Cc(J$B$J$3$H$r$7$F$$$?!J$$$k!K(J
$B$h$&$G$9!#(J  
$B$G!"(JDisk first aid $B$b(J Log file $B$b2?$b:n$i$J$$$h$&$G!":#0l$D2?$,(J$B$I$&(J
$B$J$C$?$N$+$o$+$j$^$;$s!#(J($B!GMW$9$k$K(J HD $B%/%i%C%7%e!*!G$H8@$o$l$=$&$G$9$,!K(J
$B$3$N860x$d:#8e$NBP:v$J(J$B$I$K$D$$$F$N(J $B!G7Y9p!G$,$"$j$^$7$?$i!"$*J9$+$;(J
$B4j$($J$$$G$7$g$&$+!#!J8D?ME*$K$O!":#8e$NBP:v$H$7$F!"!G$3(J$B$N$^$^C8!9$H;H$&!G(J
$B$J$I$r$+$s$,$($F$$$^$9!#!K$I$&$+$h$m$7$/$*4j$$$7$^$9!#(J

$B!t$D$/$E$/<+J,$O=i?4<T$@$H(J$B;W$$CN$i$5$l$^$7$?(J

      PROGRAM AHO
C
C --- $B1;@8!wElBg65M\(J.$B1'ChCO5e2J3X65<<(J
C --- uryu@namite.c.u-tokyo.ac.jp
C
      WRITE(6,*) ' *** FORTRAN HA OOMOJIDE. ***'
C
      END