Thread View: fj.lang.basic
7 messages
7 total messages
Started by mitisita takasi
Fri, 04 Jul 1997 00:00
N88-BASIC
Author: mitisita takasi
Date: Fri, 04 Jul 1997 00:00
Date: Fri, 04 Jul 1997 00:00
17 lines
1373 bytes
1373 bytes
$BF;2<(B@$B:eBg$H$$$$$^$9!#(B DISK$B$GN)$A>e$2$?(BN88-BASIC(DOS-BASIC$B$G$O$J$$(B)$B$N(B $B%W%m%0%i%`%=!<%9$r(BDOS$B$GFI$`(B(DOS disk$B$K%;!<%V$9$k(B) $B$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+(B? $B?'!9;n$_$F$_$?$s$G$9$,(B $BJ,$+$j$^$;$s!#%W%m%0%i%`$rBG$AD>$9$7$+J}K!$O$J$$$N$G$7$g$&$+(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? ==Takashi Michishita <so3029mt@ex.ecip.osaka-u.ac.jp>==
Re: N88-BASIC
Author: KANEKO Yutaka
Date: Fri, 04 Jul 1997 00:00
Date: Fri, 04 Jul 1997 00:00
48 lines
2782 bytes
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*/
Re: N88-BASIC
Author: Yasmasa,W
Date: Fri, 04 Jul 1997 00:00
Date: Fri, 04 Jul 1997 00:00
30 lines
1695 bytes
1695 bytes
mitisita takasi wrote: > > $BF;2<(J@$B:eBg$H$$$$$^$9!#(J > > DISK$B$GN)$A>e$2$?(JN88-BASIC(DOS-BASIC$B$G$O$J$$(J)$B$N(J > $B%W%m%0%i%`%=!<%9$r(JDOS$B$GFI$`(J(DOS disk$B$K%;!<%V$9$k(J) > $B$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+(J? $B?'!9;n$_$F$_$?$s$G$9$,(J > $BJ,$+$j$^$;$s!#%W%m%0%i%`$rBG$AD>$9$7$+J}K!$O$J$$$N$G$7$g$&$+(J? > > <<$B8=:_$N>u67(J>> > N88-BASIC$B$G%U%)!<%^%C%H$5$l$?%G%#%9%/$K$"$k%W%m%0%i%`(JA$B$,$"$k!#(J > $B<B9T7k2L(J($B%0%i%U(J)$B$r0u:~$7$?$$$,I8=`$N%W%j%s%?$G$OITK~!#(J(&$B%$%s%/@Z$l(J) > DOS$B$GF0$/(JN88-BASIC$B$b$"$k!#(J($B%a%b%jITB-$N2DG=@-$b!&!&!&(J) > DOS$B$+$i$G(J�$B$l$P(JBJ-10v$B$K0u:~$,2DG=!#(J > $B%W%m%0%i%`(JA$B$r(JDOS$B>e$GF0$+$7$?$$!#(J > # $B",J,$+$C$FD:$1$^$9$G$7$g$&$+(J? > > ==Takashi Michishita <so3029mt@ex.ecip.osaka-u.ac.jp>== $B0lEY%m!<%I$7$F(JSAVE$B%3%^%s%I$N%U%!%$%kL>$N8e$K(J,a$B$rIU$1$l$P(J $B%F%-%9%H$G%;!<%V$G$-$^$9$N$G$=$l$r(JMSDOS(98)$B$N%3%^%s%I(JFILECONV $B$G%3%s%P!<%H=PMh$kH&!#(J -- ---------------------------------------- Yasmasa,W http://www.dokidoki.ne.jp/home2/next mailto:next@mail.dokidoki.ne.jp ----------------------------------------
Re: N88-BASIC
Author: MakiMakiMakki-
Date: Fri, 04 Jul 1997 00:00
Date: Fri, 04 Jul 1997 00:00
19 lines
1592 bytes
1592 bytes
$B!zKRLn!w#S#F#C$H$$$$$^$9!#(B >>DISK$B$GN)$A>e$2$?(BN88-BASIC(DOS-BASIC$B$G$O$J$$(B)$B$N(B >>$B%W%m%0%i%`%=!<%9$r(BDOS$B$GFI$`(B(DOS disk$B$K%;!<%V$9$k(B) >>$B$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+(B? $B?'!9;n$_$F$_$?$s$G$9$,(B >>$BJ,$+$j$^$;$s!#%W%m%0%i%`$rBG$AD>$9$7$+J}K!$O$J$$$N$G$7$g$&$+(B? DOS $B$KIUB0$7$F$$$k(B FILECONV.EXE $B$H$$$&%D!<%k$G!"(BDISK-BASIC $B$N%G%#%9%/(B $B>e$N%U%!%$%k$r(B MS-DOS $B$N%G%#%9%/$K%3%T!<$9$k$3$H$,$G$-$^$9(B($B5U$b2D(B)$B!#(B FILECONV $B$O(B Windows95 $B$K$OIUB0$7$F$$$J$$$h$&$G$9$,!">/$J$/$H$b(B DOS5 $B$K$OIUB0$7$F$$$^$9!#(B DISK-BASIC $B$GJ]B8$9$k;~!"(BASCII $B7A<0$GJ]B8(B(SAVE "HOGE.BAS",A $B$G$7$?$C$1(B?) $B$7$?J}$,L5Fq$G$"$C$?$H;W$$$^$9!#(B +=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+ | $BKRLn(B $B>0I'(B ($B$^$-$N(B $B$?$+$R$3(B) | [E-mail]t96828tm@sfc.keio.ac.jp | | $B7DXf5A=NBg3X4D6->pJs3XIt(B2$BG/(B | CXN05165@niftyserve.or.jp | +=-=-=-=-=-=-=-=- $B"v39$KL@$+$j$,>:$k:"$K(B $BKM$OL2$k$N$@$m$&(B -=-=-=-=-=-=-=-=+
Re: N88-BASIC
Author: Masanori Yamamoto
Date: Fri, 04 Jul 1997 00:00
Date: Fri, 04 Jul 1997 00:00
22 lines
1275 bytes
1275 bytes
$B;3K\$G$9=i$a$^$7$F(J $B$+$J$jA0$N$3$H$G$9$,(JPC98$B$N$3$H$G$9$M(J $B$^$:(JN88BASIC,N88$BF|K\8l(JBASIC$B$G%W%m%0%i%`$r(JLOAD$B$7$F$+$i(J $B%"%9%-!<(JSAVE$B$7$^$7$g$&(J $B!!Nc(J SAVE "FILE.BAS",A $B<!$K(JMS-DOS$B$G5/F0$7(JFILECONV$B$H$$$&%3%^%s%I$GJQ49$G$-$?$O$:$G$9(J MS-DOS Ver 3.1,3.3a,3.3b,3.3c $B$K$O$D$$$F$$$^$7$?(J Ver 5.0$B0J>e$K$O$D$$$F$$$k$+$OCN$j$^$;$s$,(J -- /********************************************************** * $B;3K\(J $B@/B'(J ( Masanori Yamamoto ) #P/N-ML0003T#* * * * E-mail: mannori@fsinet.or.jp * * Web : http://www.fsinet.or.jp/~mannori/ * **********************************************************/
Re: N88-BASIC
Author: FUJINAMI Nobuhisa (JIS 4623 4748...
Date: Mon, 07 Jul 1997 00:00
Date: Mon, 07 Jul 1997 00:00
12 lines
1258 bytes
1258 bytes
In article <5phv60$1nu@newsserver.ex.ecip.osaka-u.ac.jp> so3029mt@ex.ecip.osaka-u.ac.jp (mitisita takasi) writes: >DISK$@$GN)$A>e$2$?(JN88-BASIC(DOS-BASIC$@$G(J$@$O$J$$(J)$@$N(J >$@%W%m%0%i%`%=!<%9$r(JDOS$@$GFI$`(J(DOS disk$@$K%;!<%V$9$k(J) >$@$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+(J? $@?'!9;n(J$@$_$F$_$?$s$G$9$,(J >$@J,$+$j$^$;$s!#%W%m%0%i%`$rBG$AD>$9$7$+J}K!$O$J$$$N$G$7$g$&$+(J? NEC$@$N(JMS-DOS$@$N3HD%5!(J$@G=%;%C%H$KF~$C$F$$$k!"(JFILECONV.EXE$@$H$$$&%3%^%s%I$G!"(J DISK BASIC$@$N%U%!%$%k$r(JMS-DOS$@$N%U%!%$%k$KJQ49$9$k(J$@$3$H$,$G$-$^$9!#(J $@F#GH=g5W(J fnami@csl.sony.co.jp $@%=%K!<%3%s%T%e!<%?%5%$%(%s%98&5f=j(J
Re: N88-BASIC
Author: Yasuo-Suzuki
Date: Mon, 07 Jul 1997 00:00
Date: Mon, 07 Jul 1997 00:00
28 lines
1845 bytes
1845 bytes
<so3029mt@ex.ecip.osaka-u.ac.jp (mitisita takasi)>$B$5$s$,$*=q$-$K$J$i$l$?(B $B5-;v(B <5phv60$1nu@newsserver.ex.ecip.osaka-u.ac.jp>$B$G(B ===================== >$BF;2<(B@$B:eBg$H$$$$$^$9!#(B > >DISK$B$GN)$A>e$2$?(BN88-BASIC(DOS-BASIC$B$G$O$J$$(B)$B$N(B >$B%W%m%0%i%`%=!<%9$r(BDOS$B$GFI$`(B(DOS disk$B$K%;!<%V$9$k(B) $B$=$3$G$$$&(BDOS$B$H$O(B MS-DOS$B$N;v$G$9$M!)(B (DOS-BASIC$B$C$F8@$o$l$k$H(B FD$B$@$N(BDISK$B$,;H$($k(B $BIaDL$N(BN88BASIC$B$C$F;W$C$A$c$&;d$O(B $B8E$$!)(B ) >$B%W%m%0%i%`%=!<%9$r(BDOS$B$GFI$`(B(DOS disk$B$K%;!<%V$9$k(B) >$B$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+(B? $B?'!9;n$_$F$_$?$s$G$9$,(B >$BJ,$+$j$^$;$s!#%W%m%0%i%`$rBG$AD>$9$7$+J}K!$O$J$$$N$G$7$g$&$+(B? N88BASIC$B$G(B ASCII$B%;!<%V$7$F!"(B PC98$BMQ(BNEC$B@=(BMSDOS$B$N?7$7$a$N%P!<%8%g%s$KF~$C$F$$$k(B FILECONV$B$H$$$&%W%m%0%i%`$G(B MSDOS$B>e$X(B $BJQ49$7$F$_$F2<$5$$!#(B # 98$B4XO"$@$+$i(B $BB>$N%K%e!<%9%0%k!<%W$NJ}$,$$$$$+$J!)(B - -- *=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=|=-=* |<<< $B#N#E#C(B $B%3%s%T%e!<%?%=%U;vK\(B $BFs%3%s%=%U;v(B >>> (O) (--) (::) | | $BNkLZ(B $B9/M:(B $B!J(Bsuzuky@uxd.fc.nec.co.jp$B!K(B Do you have GNU's badge? | | [$B$G$O!"$"$J$?$O(B $B%J%?%G%3%3$G$$$$$N!)(B Air/$B%J%?%G%3%3$r7/$K!O(B|
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads