Tuesday, May 28, 2013

Shared Program


From Jack.

Full Code:

10 SCREEN 2
20 DR=3.1415/180 
30 R=600
40 FOR S=0 TO 360 STEP 10
45 FOR E=20 TO 340 STEP 10
50 XS=R*COS(S*DR)
60 YS=R*SIN(S*DR)
70 XE=R*COS(E*DR)
80 YE=R*SIN(E*DR)
90 XP=1000+XP 
95 YP=500-YP 
100 MOVETO XS+1000,750-YS
103 LINETO XE+1000,750-YE ,4
110 NEXT
115 NEXT
120 GET A$ 
130 IF A$="" THEN 120



No comments:

Post a Comment