🚀 go-pugleaf

$B>eED$G$9!#(J

In article <5nodah$hhf$1@news.hiroshima-u.ac.jp>, 
magico@ipc.hiroshima-u.ac.jp (Mahiko Watanabe) wrote:

>$B9-Eg$NEOJU$G$9!#;O$a$^$7$F!#(J
>$B@N$N(JN88Basic$B$GAH$s$@B,DjMQ%W%m%0%i%`$G!"B,Dj7k2L$r%O!<%I%3%T!<$G0u:~$7$F$$(J
$B$k$s$G$9$,(J
>$B$3$l$r(JQuick Basic $B$G$d$m$&$H$7$F$b!"$I$&$b%O!<%I%3%T!<$,=PMh$J$$$h$&$G$9!#(J
>$B2?$+N"$o$6$N$h$&$J;v$H$+!"=PMh9g$$$N%D!<%k$H$+$rCN$C$F$i$C$7$c$kJ}$,5o$?$i(J
$B65$($F$/$@$5$$!#(J
>$B$*4j$$$7$^$9!#(J

Quick BASIC Ver.4.5 $B$GDs6!$5$l$F$$$kHFMQ%i%$%V%i%j$N(J HCOPY $B$G(J
$B%O!<%I%3%T!<$,=PMh$^$9!#(J

'$INCLUDE: 'qb.bi'
'$INCLUDE: 'gen.bi'

HCOPY plane%, mode%

$B%F%-%9%H2hLL$H%0%i%U%#%C%/2hLL$N%O!<%I%3%T!<$,$H$l$^$9!#(J
plane% $B$K;XDj$9$kCM$O!"(J0-2 $B$N%S%C%H$,0u;z$9$k%W%l!<%s$r<($7$^$9!#(J
  bit0: blue plane, bit1: Red plane, bit2: Green plane
mode% $B$,(J 0 $B$J$i%N!<%^%k!"(J1 $B$J$i=L>.0u;z$H$J$j$^$9!#(J

>$B$=$l$+$i!"IY;NDL$N(JF-Basic$B$C$F$"$j$^$9$h$M!"$"$l$N(J32bit$BHG$O%a%b%j$J$s$+$N@)(J
$B8B$O$I$&$J$C$F(J
>$B$$$k$N$G$7$g$&$+!)$?$/$5$sG[Ns$,;H$($k$s$J$i7k9=$$$m$s$J;v$,=PMh$k$s$G$9$1$I$M(J

$B$o$+$j$^$;$s!#(J

-- 
  ueda@en2.ehime-u.ac.jp (Ueda Ko)
  Ehime Univ., Matsuyama, 790-77, Japan
  Tel 089-927-9887    Fax 089-927-9907

$B>eED$G$9!#(J

In article <5o24bf$id0$1@news.hiroshima-u.ac.jp>, 
magico@ipc.hiroshima-u.ac.jp (Mr. Mahiko Watanabe) wrote:

>>Quick BASIC Ver.4.5 $B$GDs6!$5$l$F$$$kHFMQ%i%$%V%i%j$N(J HCOPY $B$G(J
>>$B%O!<%I%3%T!<$,=PMh$^$9!#(J
>>
>>'$INCLUDE: 'qb.bi'
>>'$INCLUDE: 'gen.bi'
>>
>>HCOPY plane%, mode%
>
>$B2sEz$"$j$,$H$&$4$6$$$^$7$?!#;d$O(JQB Ver.4.5$B$N(JDOS/V$BHG$r(J
>$B;H$C$F$$$k$N$G$9$,!"(Jgen.bi$B$H$$$&%$%s%/%k!<%I%U%!%$%k(J
>$B$,$I$3$rC5$7$F$b8+$D$+$j$^$;$s!#$3$l$O!"JLES<j$KF~$l$k(J
>$BI,MW$,$"$k$N$G$7$g$&$+!)$^$?!"<j$KF~$k$N$G$7$g$&$+!)(J
>$BJ,$+$k$h$&$G$7$?$i65$($F2<$5$$!#$*4j$$$7$^$9!#(J
>
DOS/V$BHG$N(JQB Ver.4.5 $B$G$7$?$+!#;d$,;HMQ$7$F$$$?$N$O!"(J
PC-9801$BHG$G$7$?!#(JPC-9801$BHG$G$O(J gen.bi $B$O%G%#%l%/%H%j(J
QB45\INCLUDE $B$K$"$j$^$7$?!#(J

DOS/V$BHG$G(J HCOPY $B$r%5%]!<%H$7$F$$$k$N$+J,$+$j$^$;$s!#(J

$B$*Lr$K$?$F$J$/$F?=$7Lu$"$j$^$;$s!#(J

-- 
  ueda@en2.ehime-u.ac.jp (Ueda Ko)
  Ehime Univ., Matsuyama, 790-77, Japan
  Tel 089-927-9887    Fax 089-927-9907

$BD`4,$G$9!#(J

Mahiko Watanabe <magico@ipc.hiroshima-u.ac.jp> wrote in article
<5nodah$hhf$1@news.hiroshima-u.ac.jp>...
> $B9-Eg$NEOJU$G$9!#;O$a$^$7$F!#(J
>
$B$=$l$+$i!"IY;NDL$N(JF-Basic$B$C$F$"$j$^$9$h$M!"$"$l$N(J32bit$BHG$O%a%b%j$J$s$+$N@)8B$O(J
$B$I$&$J$C$F(J
>
$B$$$k$N$G$7$g$&$+!)$?$/$5$sG[Ns$,;H$($k$s$J$i7k9=$$$m$s$J;v$,=PMh$k$s$G$9$1$I$M(J
$B!A(J

F-BASIC4.1$B$G;n$7$K0J2<$N%W%m%0%i%`$rAH$s$G$_$?$i$H$*$j$^$7$?!#=jMW;~4V$O(J
pentinum 133Mhz$B$G(J293$BIC$G$7$?!#(J

dim A(5000,5000)
TIME1$=time$
print TIME1$
for N=1 to 5000
  for M=1 to 5000
     A(N,M)=1
  next M
next N
print TIME1$, time$
A$=input$(1)
end

HDD$B$NF0$-$r8+$k$H;~$K(Jswap file$B$r;HMQ$7$F$$$k$h$&$G$9!#(J


-- 
JIchi Medical School Omiya Medical Center
Dept. of Ophthalmology   Y.Tsurimaki M.D.
y-maki@omiya-ms.omiya.jichi.ac.jp






 

>Quick BASIC Ver.4.5 $B$GDs6!$5$l$F$$$kHFMQ%i%$%V%i%j$N(B HCOPY $B$G(B
>$B%O!<%I%3%T!<$,=PMh$^$9!#(B
>
>'$INCLUDE: 'qb.bi'
>'$INCLUDE: 'gen.bi'
>
>HCOPY plane%, mode%

$B2sEz$"$j$,$H$&$4$6$$$^$7$?!#;d$O(BQB Ver.4.5$B$N(BDOS/V$BHG$r(B
$B;H$C$F$$$k$N$G$9$,!"(Bgen.bi$B$H$$$&%$%s%/%k!<%I%U%!%$%k(B
$B$,$I$3$rC5$7$F$b8+$D$+$j$^$;$s!#$3$l$O!"JLES<j$KF~$l$k(B
$BI,MW$,$"$k$N$G$7$g$&$+!)$^$?!"<j$KF~$k$N$G$7$g$&$+!)(B
$BJ,$+$k$h$&$G$7$?$i65$($F2<$5$$!#$*4j$$$7$^$9!#(B

Name : M. Watanabe
       $BEOJU(B $B??I'(B
E-mail : magico@ipc.hiroshima-u.ac.jp

>F-BASIC4.1$B$G;n$7$K0J2<$N%W%m%0%i%`$rAH$s$G$_$?$i$H$*$j$^$7$?!#=jMW;~4V$O(B
>pentinum 133Mhz$B$G(B293$BIC$G$7$?!#(B
>
>dim A(5000,5000)
>TIME1$=time$
>print TIME1$
>for N=1 to 5000
>  for M=1 to 5000
>     A(N,M)=1
>  next M
>next N
>print TIME1$, time$
>A$=input$(1)
>end
>
>HDD$B$NF0$-$r8+$k$H;~$K(Bswap file$B$r;HMQ$7$F$$$k$h$&$G$9!#(B
>

reply$B$I!A$b$G$9!#(B100M$B0L$NG[Ns$G$9$M!#7k9=;~4V$,$+$+$j$^$9(B
$B$M!#$A$J$_$KD`4,$5$s$N%^%7%s$G$O$I$N0L$N(BRAM$B$rF3F~$5$l$F$k(B
$B$s$G$9$+!)$h$m$7$1$l$P65$($F2<$5$$!#;d$N%^%7%s$O(B133MHz$B$G(B
64M$B$G$9!#(B

$B$=$l$+$i;d$NJ}$G$b(B32bit$BHG$r$D$$!"$3$N$"$$$@F~<j$7$^$7$F(B
16bit$BHG$N;~$K:n$C$?(BProgram$B$rAv$i$7$F$_$?$s$G$9$,!"(B
$B%U%!%$%k%*!<%W%s$N%@%$%"%m%0%\%C%/%9$,!"(B32bit$BHG$N(B
$B%3%s%Q%$%i$rDL$7$?8e$K$b$+$+$o$i$:!"!V@N$N;Q$G!W=P$F$-$^(B
$B$7$?!#5$;}$A0-$+$C$?$N$G!"%=!<%9$r0c$&%G%#%l%/%H%j$K0\$7$?(B
$B8e$G%3%s%Q%$%k$9$k$H!":#EY$O(BWindows95$B$*$J$8$_$N%@%$%"%m%0(B
$B%\%C%/%9$,8=$l$F$[$C$H$7$?$h$&$J!"5$;}$A0-$$MM$JJQ$J46$8(B
$B$G$9!#$I$&$J$C$F$k$s$G$9$+$M!A!)D`4,$5$s$NJ}$GJQ$J>I>u$H$+(B
$B$"$j$^$;$s$+!)$"$C$?$i65$($F2<$5$$!#(B
$B$G$OKt!#(B

# Mahiko Watanabe
# $BEOJU(B $B??I'(B
# E-mail : magico@ipc.hiroshima-u.ac.jp

In article <ueda-1606971320230001@133.71.94.94>, ueda@en2.ehime-u.ac.jp says...
>
>$B>eED$G$9!#(B
>
>In article <5o24bf$id0$1@news.hiroshima-u.ac.jp>, 
>magico@ipc.hiroshima-u.ac.jp (Mr. Mahiko Watanabe) wrote:
>
>>>Quick BASIC Ver.4.5 $B$GDs6!$5$l$F$$$kHFMQ%i%$%V%i%j$N(B HCOPY $B$G(B
>>>$B%O!<%I%3%T!<$,=PMh$^$9!#(B
>>>
>>>'$INCLUDE: 'qb.bi'
>>>'$INCLUDE: 'gen.bi'
>>>
>>>HCOPY plane%, mode%
>>
>>$B2sEz$"$j$,$H$&$4$6$$$^$7$?!#;d$O(BQB Ver.4.5$B$N(BDOS/V$BHG$r(B
>>$B;H$C$F$$$k$N$G$9$,!"(Bgen.bi$B$H$$$&%$%s%/%k!<%I%U%!%$%k(B
>>$B$,$I$3$rC5$7$F$b8+$D$+$j$^$;$s!#$3$l$O!"JLES<j$KF~$l$k(B
>>$BI,MW$,$"$k$N$G$7$g$&$+!)$^$?!"<j$KF~$k$N$G$7$g$&$+!)(B
>>$BJ,$+$k$h$&$G$7$?$i65$($F2<$5$$!#$*4j$$$7$^$9!#(B
>>
>DOS/V$BHG$N(BQB Ver.4.5 $B$G$7$?$+!#;d$,;HMQ$7$F$$$?$N$O!"(B
>PC-9801$BHG$G$7$?!#(BPC-9801$BHG$G$O(B gen.bi $B$O%G%#%l%/%H%j(B
>QB45\INCLUDE $B$K$"$j$^$7$?!#(B
>
>DOS/V$BHG$G(B HCOPY $B$r%5%]!<%H$7$F$$$k$N$+J,$+$j$^$;$s!#(B
>
>$B$*Lr$K$?$F$J$/$F?=$7Lu$"$j$^$;$s!#(B
>

$B$$$($$$(!"$H$s$G$b$"$j$^$;$s!#(Breply$B$7$F2<$5$kJ}$,(B
$B$$$k$H!"7k9=$[$C$H$9$k$b$s$G$9!#Kt!"J,$+$i$J$$;v$,(B
$B$"$C$?$iEj9F$7$^$9$N$G65$($F2<$5$$!#$h$m$7$/(B
$B$*4j$$$7$^$9!#(B

# Mahiko Watanabe
# $BEOJU(B $B??I'(B
# E-mail : magico@ipc.hiroshima-u.ac.jp