2010-05-10から1日間の記事一覧
10 T=0 :WAIT 0 20 X=10:Y=20 30 X0=20:Y0=20 40 G=6.67:M0=1 50 VX=0:VY=-1 60 Y1=Y:X1=X 70 W1= SQR(VX*VX+VY*VY) 80 W2= SQR(VX*VX+VY*VY) 90 GM=G*M0 100 CLS :LOC. 19,2 :U. "#####" :PRINT T 110 T=0 120 GC. (X0,Y0) 130 GP. "E0E0E0" 140 R2=(X-X0)*…