🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.basic
Article #160

Re: N88-BASIC

#160
From: KANEKO Yutaka
Date: Fri, 04 Jul 1997 00:00
48 lines
2782 bytes
  $B6b;R!w@gBfEEGH$G$9!#(B

<5phv60$1nu@newsserver.ex.ecip.osaka-u.ac.jp>$B$N5-;v$K$*$$$F(B
so3029mt@ex.ecip.osaka-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B
>> $BF;2<(B@$B:eBg$H$$$$$^$9!#(B
>> <<$B8=:_$N>u67(B>>
>> N88-BASIC$B$G%U%)!<%^%C%H$5$l$?%G%#%9%/$K$"$k%W%m%0%i%`(BA$B$,$"$k!#(B
>> $B<B9T7k2L(B($B%0%i%U(B)$B$r0u:~$7$?$$$,I8=`$N%W%j%s%?$G$OITK~!#(B(&$B%$%s%/@Z$l(B)
>> DOS$B$GF0$/(BN88-BASIC$B$b$"$k!#(B($B%a%b%jITB-$N2DG=@-$b!&!&!&(B)
>> DOS$B$+$i$G$"$l$P(BBJ-10v$B$K0u:~$,2DG=!#(B
>> $B%W%m%0%i%`(BA$B$r(BDOS$B>e$GF0$+$7$?$$!#(B
>> # $B",J,$+$C$FD:$1$^$9$G$7$g$&$+(B?

  $BJ,$+$i$J$$!#(B

  DISK$BHG(Bn88-BASIC$B$G$b(BMS-DOS$BHG(Bn88basic$B$G$b!"%W%m%0%i%`$rFbIt7A<0(B
$B$G$J$/!"%F%-%9%H$GJ]B8$9$k$K$O!"(B

    save "hoge.bas",A

$B$H(B`A'$B%*%W%7%g%s$r;XDj$7$FJ]B8$9$l$P$h$$!#%F%-%9%H7A<0$G(B
$BJ]B8$7$F$*$1$P!"(Bn88basic$B$r;H$o$J$/$F$b!"$=$N$^$^(BMS-DOS$B$N(B
print$B%3%^%s%IEy$G0u:~$G$-$k!#(B


  DISK BASIC$B$G:n@.$7$?%W%m%0%i%`$d%G!<%?$r(B MS-DOS$B$GMxMQ$7$?(B
$B$$>l9g$O!"(B fileconv$B$K$FJQ49$9$l$P$h$$!#$3$N$H$-!"%W%m%0%i%`(B
$B$O$"$i$+$8$a%F%-%9%H7A<0$GJ]B8$7$F$*$$$?J}$,0BA4!#(B

  $B$b$7!"(BDISK$BHG(Bn88-BASIC$B$GMxMQ$7$F$$$?%W%m%0%i%`$r(B MS-DOS$BHG(B
n88-BASIC$B$G<B9T$7$?$$$N$G$"$l$P!"(B DISK$BHG(Bn88-BASIC$B$G%W%m%0%i%`(B
$B$r%F%-%9%H7A<0$GJ]B8$7$?$N$A!"(B fileconv$B$GJQ49$7!"(B MS-DOS$B$N%U(B
$B%m%C%T%#%G%#%9%/$KJ]B8$9$k!#$=$N8e!"(BMS-DOS$BHG(Bn88-BASIC$B$r5/F0(B
$B$7(Bload$B$9$l$P$h$$!#$A$J$_$K!"(BDISK$BHG$H(BMS-DOS$BHG$O0lIt;EMM$,0[$J(B
$B$k$N$G%W%m%0%i%`$N=$@5$,I,MW$+$b$7$l$J$$!#N><T$N;EMM$N0c$$$K(B
$B$D$$$F$O!"(BMS-DOS$BHG(Bn88-BASIC$B$N%^%K%e%"%k$r;2>H$N$3$H!#(B

  Fileconv$B$O(BNEC PC9801$BMQ$N(BMS-DOS$B$KIUB0$7$F$$$k(B($B8E$$(Bversion
$B$r=|$/(B)$B!#;HMQK!$O(BMS-DOS$B$N%^%K%e%"%k$r;29M$N$3$H!#(B


##  $B$C$F!"$3$NDxEY$N$3$H$O(BMS-DOS$BHG(Bbasic$B$N@bL@=q$K=q$$$F$J$$$N$+$J!)(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*/
Technical Details
Message-ID: <5pi2c3$5d1$1@dp-cc.cc.tohoku.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <5phv60$1nu@newsserver.ex.ecip.osaka-u.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: f5300,90d0a06c894d0587
X-Google-Attributes: gidf5300,public
From: kaneko@ccedu.sendai-ct.ac.jp (KANEKO Yutaka)
Subject: Re: N88-BASIC
Date: 1997/07/04
Message-ID: <5pi2c3$5d1$1@dp-cc.cc.tohoku.ac.jp>
X-Deja-AN: 254477630
Distribution: fj
References: <5phv60$1nu@newsserver.ex.ecip.osaka-u.ac.jp>
Organization: Sendai National College of Technology, Sendai JAPAN.
Newsgroups: fj.lang.basic