Inhaltsverzeichnis - Commodore Computer Vc-1520 Bedienungshandbuch

KREIS
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 rem xxx be Isp lei 1 : xxx
120 rem xxx kreis xxx
130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
140 open 1,6,1 : rem zeichnen
150 open 2,6,2 : rem farbe
160 c=-l
170 prlnt #1, "m" ;240;-240
180 pr Int #1," I "
190 for 1=200 to 100 step -20
200 : c=c+l: if o >3 then o=0 .
210 : pr l nt #2 ,c
220 : for 1=0 to 6.4 step 0.05
230 : x=lxs InC I 3
240 : y=lxcos CI 3
250 : if 1=0 then pr I nt #1, " r "; x; y: next
260 : prlnt #1," J " ; x;y
220 s next I
280 next l
290 pr Int »1 , " m" ;0;-600
300 close 1: close 2
ready.
- 39 -