Commodore Computer VC-1520 Bedienungshandbuch Seite 47
Inhaltsverzeichnis
RECHTECK
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
101 rem xxx belsplel 7 :
xxx
102 rem xxx rechteck
xxx
103 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 open 4,6
120 open 1,6,1
130 open 2,6,2: prlnt«2,3
140 prlnt"flgur drehen"
150 prlnt#4,"fl9ur drehen"
160 Input "sehr 1 11ue11e ": m
120 pr Int #4 , "sehr 1 11ue 1 1e ": m
180 pr Int #1, "m" ;240:-200
190 pr lnt #1 ," I "
200 tor I =1 t o 4
210 :
read a ,b : xl C I 3=a: y 1 CI 3=b
220 next
I
230 for 1=1 to 4
240 :
read a ,b : x2Cl3=a:y2CI 3=b
250 next
I
260 for k=0 to m+1
220 :
for 1=1 to 4
280 :
ax=x2Cl 3-xlCl 3
290 :
ay=y2CI 3-yl CI 3
300 :
xxC I 3=xl C I 3+kxax/Cm+l 3
*
310 :
yyCI3=ylCI3+kxay/Cm+l 3
320 : next
I
330 :
for J=1 to 4
340 :
'f J=1 then pr l nt «1 , "r " ; xxC J 3: yyC
J 3: goto 360
350 :
pr I nt #1 ," J" ; xxC J 3; yyCJ 3
360 : next J
320 : pr I nt #1 ," J ": xxC 1 3; yy C 1 3
380 next k
390 pr I nt «1 , "m" :0;-350
400 pr I nt #4
410 end
420 :
030 dat a-200 ,-90,-150,-90,-150,0,-200,0
440 dat al 50,210,150,120,200,170,200,210
ready ,
- 45 -
Inhaltsverzeichnis
