Commodore Computer VC-1520 Bedienungshandbuch Seite 44
Inhaltsverzeichnis
SPIRALE
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 rem xxx belsplel 4 :
xxx
120 rem xxx spirale
xxx
130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
140 open 1,6,1 : rem zeichnen
150 open 2,6,2 : rem färbe
160 prlnt#2,3
: rem rot
170 pr Int #1 , 'm" :240;-240
180 pr lnt «1 , " I "
190
p
=8 : a=4
200 for th=0 to ax2xr step TZ24
240 s x=pxt hxcos Ct h 1
250 : y=pxt hxs I n Ct h 3
260 :
if th =0 then pr I nt #1, " r "; x;yi next
220 : pr I nt «1 ," J ; x ,y
290 next th
300
pt
I nt «1, " m" :0;-500
310 close 1: close 2
ready .
- 42 -
Inhaltsverzeichnis
