10010 GOSUB 10090:' DRAV OUTER BOX
10020 GOSUB 10100:'DRAW VERTICAL LINES
10030 GOSUB 10110:'DRAW HORIZONTAL LINES
10040 GOSUB 10140:'DRAW x AXIS NUMBER POINTERS
10050 GOSUB 10120:'DRAW x AXIS NUMBERS
10060 GOSUB 10150:'DRAW y AXIS NUMBER POINTERS
10070 GOSUB 10160:'DRAW y AXIS NUMBERS
10080 RETURN:'TO LINE 210
10090 x1=0:y1=0:x2=80:y2=95:GOSUB 2000:BBTUHN
10100 FOR i=5 TO 80:x1=i:y1=5:x2=i:y2=95:GOSUB 4000:NEXT:RETURN
10110 FOR i=5 TO 95:x1=5:y1=i:x2=80:y2=i:GOSUB 4000:NEXT:RETURN
10120 FOR i=5 TO 80 STEP 10:x1=i-1.75:y1=3:mes$=STR$(1):dir%=0:hgt%=400
10130 GOSUB 3000:NEXT:RETURN
10140 FOR i=5 TO 80 STEP 10:x1=i:yY=4:x2=i:y2=5:GOSUB 4000:NEXT:RETURN
10150 FOR i=5 TO 90 STEP 10:x1=4:y1=1:x2=5:y2=i:GOSUB 4000:NEXT:RETURN
10160 FOR i=5 TO 90 STEP 10:x1=1:y1=i:mes$=STR$(i):dir%=0:hgt%=400
10170 GOSUB 3000:NEXT:RETURN