10010 x1=5:y1=55:x2=80:y2=80:GOSUB 2000
10020 x1=40:y1=45:mes$="PLACE TEXT HERE":hgt%=400:dir%=0:GOSUB 3000
10030 np%=9:RESTORE 10080
10040 FOR i=1 TO np%*2 STEP 2
10050 READ pts.in%(i):pts.in%(i)=pts.in%(i)*x.scale#
10060 READ pts.in%(i+1):pts.in%(i+1)=pts.in%(i+1)*y.scale#
10070 NEXT:fill%=1:sty%=3:idx%=1:GOSUB 1000
10080 DATA 10,0,0,10,0,20,10,30,30,30,40,20,40,10,30,0,10,0
10090 RESTORE 10110
10100 FOR i=1 TO 8:READ x1,y1:tpe%=3:sze%=1:GOSUB 5000:NEXT
10110 DATA 10,10,20,20,30,30,40,40,50,50,60,60,70,70,80,80
10120 RETURN:'TO LINE 210