Ｎ８８−ＢＡＳＩＣ入門

[339 ナイコンさん 2014/08/12(火) 20:53:45.39]

9 rem 99BASIC
10 defint A-Z
11 dim M(158),N(158)
12 for J=0 to 158
15 N(J)=100
16 next J
20 cls
30 for Y=1 to 63
40 for X=1 to 63
50 gosub 500
60 if Z=0 then C=7 : goto 80 'colorload
70 C=Z/21+4
80 D=92-(int(X/2)+int(Y/2)+Z)
90 E=X-Y+78
100 if D<=M(E) and (D>=N(E)) then goto 170
110 if D>M(E) then M(E)=D
120 if D<N(E) then N(E)=D
130 if D>99 or D<0 then goto 170
140 pset(E*4,D*4),C
170 next X
175 next Y
180 beep
185 A$=inkey$ : if A$="" then goto 185 else end
190 end
500 rem sub
510 S=(X-32)*(X-32)
520 T=(Y-25)*(Y-25)
530 Z=2200/(S+T+31)
540 return