Compucolor.org – Virtual Media

Listing of file='C2.BAS;01' on disk='vmedia/demos2-sector.ccvf'

10 PLOT 14
15 PLOT 29,17,30,20,12
20 RD= 3.14159265/ 180
30 P2= 3.14159265* 2
40 R= 50
50 X0= 63:Y0= 63
60 D1= 90:D2= 450
65 D3= 10
70 A= 1
75 A0= A
80 V= 10
85 K= 0
90 VR= V* RD
100 V0= VR
110 PLOT 12
120 PLOT 2
130 FOR D= D1TO D2STEP D3
140 R0= D* RD
150 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242
152 A= A0* COS (VR)
154 VR= VR+ V0
160 NEXT
185 PLOT 255
186 K= K+ 1
187 IF K= 10THEN GOTO 195
190 GOTO 120
195 LOAD "MENU":RUN 200