110 Rem Xxx Be Isp Lei; 140 Open 1,6,1 : Rem Zeichnen; 170 Prlnt #1, "M" ;240;-240; 180 Pr Int #1," I - Commodore Computer Vc-1520 Bedienungshandbuch
Inhaltsverzeichnis
QUADRAT
100 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
110 rem xxx belsplel 2 :
xxx
120 rem xxx quadrat
xxx
130 rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
140 open 1,6,1 : rem zeichnen
1S0 open 2,6,2 i rem färbe
160 c=-l
170 print #1 ,"m" 5240;-200
180 pr Int #1, " I "
190 for b=0 to 180 step 10
200 : c=o+l:
if o>3 then c=0
210 : print #2 ,c
220 : pr lnt #1, "r "; b;-b
230 : pr lnt #1," J " , b; b
240 : pr I nt #1 ," j " ,-b ; b
250 : pr Int #1 ," J " ,-b : -b
260 : prInt #1 ,"J" , b ; -b
270 next b
280 pr int #1, "m" ;0;-400
290 close 1 s close 2
ready .
- 40 -
Inhaltsverzeichnis
