10 REM ML CIRCLES, POLYGONS, ARCS
20 IFPEEK(49152)<>76THENLOAD"HIRES",8,1
30 IFPEEK(32820)<>32THENLOAD"POLYGON.OBJ",8,1
100 :
110 HIRES=12*4096:DRAW=HI+3:PLOT=DR+3
120 MOVE=PL+3:CLSCR=MO+3:DMODE=CL+3
130 SELPC=DM+3:COLOUR=SE+3:BOX=CO+3
140 TEXT=BO+3:PRNT=TE+3:CHSET=PR+3
150 TRAP=CH+3
160 :
170 CIRCLE=32768+52 :REM NOT THE SAME AS POTENTIAL
180 SYS HIRES,0,1,6
190 :
200 SYS PRNT,16,1,"CIRCLES"
210 SA=0: EA=360: INC=5
220 GOSUB 370
230 :
240 SYS PRNT,16,1,"POLYGONS"
250 SA=0: EA=360: INC=45
260 GOSUB 370
270 :
280 SYS PRNT,18,1,"ARCS"
290 SA=90: EA=270: INC=5
300 GOSUB 370
310 :
320 SYS PRNT,16,1,"MORE ARCS"
330 SA=0: EA=180: INC=5
340 GOSUB 370
350 END
360 :
370 XC=155:YC=100:XR=99:YR=79
380 SYS CIRCLE,XC,YC,XR,YR,SA,EA,INC
390 SYS PRNT,19,12,"1"
400 :
410 XC=100:YC=120:XR=90:YR=50
420 SYS CIRCLE,XC,YC,XR,YR,SA,EA,INC
430 SYS PRNT,10,9,"2"
440 :
450 XC=275:YC=100:XR=30:YR=80
460 SYS CIRCLE,XC,YC,XR,YR,SA,EA,INC
470 SYS PRNT,34,12,"3"
480 :
490 XC=52:YC=45:XR=35:YR=30
500 SYS CIRCLE,XC,YC,XR,YR,SA,EA,INC
510 SYS PRNT,6,19,"4"
520 :
530 FOR J=1 TO 3000: NEXT
540 SYS CLSCR,1,6
550 RETURN