🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.basic
Article #289

[vb4.0]$B%U%!%$%k$NJ]B8$,$o$+$j$^$;$s!#(J

#289
From: ninja
Date: Mon, 27 Jan 1997 00:00
42 lines
1565 bytes
$B!VG&<T!W$H$$$$$^$9!#(J
$B$9$$$^$;$s65$($F$/$@$5$$!#(J
$B#V#B#4!%#0$G%W%m%0%i%`$7$F$$$k$N$G$9$,!"(J
$B%U%!%$%k$NJ]B8$G$h$/$o$+$i$J$$$3$H$,$"$k$N$G65$($F$/$@$5$$!#(J

$BJQ?t#t!J(J300$B!K$,$"$j$^$9!#$3$l$OI8=`%b%8%e!<%k$K(J
$B#P(Jublic$B!!#t!J(J300$B!K!!(Jas$B!!(JVariant
$B$H$7$F$"$k$N$G$9$,!"$3$l$r(J
$B%F%-%9%H%U%!%$%k$G3F9T$K0l8D$NJQ?t$,3JG<$5$l$k$h$&$K(J
$B$7$?$$$N$G$9!#(J
$B$?$H$($P%U%!%$%kL>$r$"$1$k$H(J

200
300
4500
500
600

$B$H$$$&46$8$K(J300$B$3$NJQ?t$rJB$Y$F$"$2$?$$$N$G$9!#(J
$B$7$+$b0l9T$K0l8D$G:8C<$K$G$9!#(J
$B$^$?$3$l$r%3%b%s%@%$%"%m%0$N#S#H#O#W#O#P#E#N$r$D$+$C$F(J
$B$7$?$$$N$G$9$,!">e<j$/$G$-$^$;$s!#(J
$B0l9T$K0l8D$H$$$&$N$O(J
$B:#$N$H$3$m(J

Dim ss 
For ss=1 to 300
Print #3, Tab(0) ; t(ss)
Next ss

$B$H$7$F$k$N$G$9$,8e$O#O#P#E#NJ8$H%3%b%s%@%$%"%m%0$N(J
$B=q$-J}$,$o$+$j$^$;$s!#(J4$B9T>e$G!t#3$H$7$F$k$N$O(J
$B%U%!%$%k$NHV9f$O2?$G$b$$$$$N$G!"$3$N>e$K(J

Open "" For output as #3

$B$H$7$F$k$N$G$9$,!"%U%!%$%kL>$N<hF@$d%3%b%s%@%$%"%m%0$N(J
$B=q$-J}$,$o$+$i$J$$$N$G$^$@(J""$B$NCf$O=q$$$F$$$^$;$s!#(J

$B$9$$$^$;$s$,$I$J$?$+65$($F$$$?$@$1$J$$$G$7$g$&$+!)(J
$B$h$m$7$/$*4j$$$7$^$9!#(J
Technical Details
Message-ID: <01bc0c72$79bbff20$17be84d2@GPZ900RJA2>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: f5300,f73492764f0b1236,start
X-Google-Attributes: gidf5300,public
From: "ninja" <gpz900r@ja2.so-net.or.jp>
Subject: [vb4.0]$B%U%!%$%k$NJ]B8$,$o$+$j$^$;$s!#(J
Date: 1997/01/27
Message-ID: <01bc0c72$79bbff20$17be84d2@GPZ900RJA2>
X-Deja-AN: 212787467
organization: So-net
newsgroups: fj.lang.basic