Commodore Computer VC-1520 Bedienungshandbuch Seite 43

ROTIERENDES DREIECK
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 rem xxx belsplel 3 : xxx
120 rem xxx rotierendes dreleck xxx
130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
140 open 1,6,1 : rem zeichnen
150 open 2,6,2 s rem färbe
160 c=-l
120 pr Int #1, ' m" :240;-200
180 print#!, " '"
190 n=3 : l =160
200 for a=0 to 360/n step 10
210 : c=c+l:if c >3 then c =0
220 : pr l nt #2 ,c
225 : lh=axt/180
230 : for I =0 t o n
240 : x=lxslnCth+lx2xt/n 3
250 : y = l xcos C t h+l x2xr/n 3
260 : if 1=0 then pr I nt #1, "r ": x;y:next
220 ; pr Int #1 , " J : x ,y
280 : next I
290 next a
300 print #1, "m" ;0;-500
310 close 1: close 2
ready.
- 41 -