Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!news.trc!nf5.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!tamaru-news!kuee-news!kuis-news!sakura.kudpc!sakunami!ayashi!kaneko
From: kaneko@ccedu.sendai-ct.ac.jp (Yutaka Kaneko)
Subject: Re: [Q] about a format of fscanf statement for FORTRAN data
X-Nntp-Posting-Host: saikachi
Message-ID: <E913ry.9vB@ayashi.cc.sendai-ct.ac.jp>
Lines: 19
Sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
Organization: Sendai National College of Technology
X-Newsreader: mnews [version 1.18PL3] 1994-08/01(Mon)
References: <mori-2104971946380001@senna.abiko.denken.or.jp>
	<5jh511$ps9@sunglow.eds.ecip.nagoya-u.ac.jp>
	<E912Jo.9p9@ayashi.cc.sendai-ct.ac.jp>
Date: Tue, 22 Apr 1997 07:35:58 GMT
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:3947
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=3947&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.

   $B6b;R!w@gBfEEGH$G$9!#<+8J%U%)%m!<$G$9!#(B

In article <E912Jo.9p9@ayashi.cc.sendai-ct.ac.jp>
kaneko@ccedu.sendai-ct.ac.jp writes:
>> --- $B%j%9%H(B3 ----------------------------
>>     char buf[256];
>>     double x[4];
>>     char *p;
>> 
>>     #define skipcm(p)while((isspace(*p)) || (p==',')) p++;

       #define skipcm(p)while((isspace(*(p)))||(*(p)==',')) (p)++

$B$,@5$7$$!#(B

double x,y,z=1.8;main(a,b){x=(time( /*       $B6b;R(B $BM5(B(Yutaka Kaneko)          */
0)%935)/472;while(!0){y=x;x=2-z*(x- /* Sendai National College of Technology */
1)*(x-1);a=(x*631);a%=78;b=(y*95);b /*     kaneko@cc.sendai-ct.ac.jp         */
%=24;printf("\033[%d;%dHx\n",b,a);}}/*Evanx08,Megax05,Escax07,Fushx16,WedPx07*/
