Schraffierung - Commodore Computer Vc-1520 Bedienungshandbuch
Inhaltsverzeichnis
SCHRAFFIERUNG
ready .
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110
120
rem xxx belsplel 6 :
xxx
rem xxx Schraffierung
xxx
130
140
150
160
170
180
190
200
210
220
230
240
250
260
220
280
290
300
310
320
330
340
350
360
320
380
390
400
410
420
430
440
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
open 4,6,0
open 1,6,1
open 2,6,2: pr 1 nt #2 ,2
x=0: b =50
for d =14 to 2 st ep -2
: h=0
: h=h+d:
। f h<100 then 200
: prlnt #1, "m" ; x; -100: x=x+60
: print *1," i '
: prlnt «1 ," j :0; h
: prlnt #1 ," j '; b : h
: pr intttl ,' J :b;0
s pr int »1 ,' j : 0; 0
:
<or y=h to 0 step -d
:
yl= 0 : xl=y
:
y2=h-y : x2=h
:
H h-y>b then y2=b: x2=50+y
:
print #1, "r "; yl ; xl
:
prlnt #1 , ' J : y2;x2
: next y
:
for z=0 to b step d
s
yl=z : xl=0
:
y2=b : x2=50-z
S
prlnt «1 ," r ": yl 1 xl
:
pr l nt #1 ," J ": y2; x2
: next z
next d
pr 1 nt »1, "m" :0;-120
pr l nt «4
close 4: close 1: close 2
end
- 44 -
Inhaltsverzeichnis
