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