Newsgroups: fj.lang.misc
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!spinnews!spin-hsd0-tky!news-relay.yhp!yan.hp.com!hpujjpo!hpscit.sc.hp.com!sdd.hp.com!swrinde!dish.news.pipex.net!pipex!news.sprintlink.net!news.gdbnet.ad.jp!sinetnews!newssinet!nacsissh!news
From: C00279@sinet.ad.jp
Subject: Re: Pascal for DOS/V
Sender: news@info.sinet.ad.jp (cnews-Admin)
Message-ID: <DBBLJG.Gnr@info.sinet.ad.jp>
Date: Fri, 7 Jul 1995 00:33:15 GMT
Organization: simail
Lines: 17
Xref: galaxy.trc.rwcp.or.jp fj.lang.misc:1486
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.misc&nb=1486&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B!!$J$<(BDOS/V$BMQ$N$b$N$G(BWindows$BMQ$N$b$N$G$J$$$H$$$&>r7o$,IU$/$N$G$9$+!#(B
$B!!:#$N%Q%=%3%s$O(BWindows$B$,%W%j!&%$%s%9%H!<%k$5$l$F$$$^$9!#(B
Windows$BMQ$N(BPascal$B$G$"$C$F$b!"(BTurbo Pascal/Win$B!"$"$k$$$O$=$N:G?7HG$G(B
$B$"$k(BDelphi$B$O(B
$B!!!!!!!!(Buses   WinCrt;
$B$N#19T$r2C$($k$@$1$G(BDOS$BIw$N;H$$J}!J(Bwrite/writeln$B<jB3$-$K$h$k(BCRT
$B%G%#%9%W%l%$>e$X$NJ8;zNs$H$7$F$N%F%-%9%H$NI=<($H!"(Bread/readln
$B<jB3$-$K$h$k%-!<%\!<%I$+$i$NF~NO!K$,$G$-$^$9!#(B
$B!!(BI/O$B%]!<%H$rDL$7$F$NF~=PNO$b(Bport/portw$BG[Ns$K$h$j(B
      port[1]:=0;  (*  byte$BC10L$N=PNO(B  *)
      x:=portw[2]; (*  word$BC10L$NF~NO(B  *)
$B$H$$$&Iw$K4JC1$K=PMh$^$9!#(B
$B!!(BDelphi$B$N>l9g$O%0%i%U%#%C%/$b4JC1$K9T$($k$h$&$K$J$C$F$$$^$9!#(B
$B!!;d$,8=:_;HMQ$7$F$$$k(BDelphi$B$O1Q8lHG$G$9$,!"F|K\8lHG$b6aF|Cf$K(B
$BH/Gd$5$l$k$H9-9p$K=P$F$$$^$9!JF|7P%P%$%H!K!#(B
                                             Y.Okamoto
                                             C00279@sinet.ad.jp
