9700 REM draw axes
9705 REM 	Set XINCR=X increments
9710 REM	and YINCR=Y increments
9715 X=XMIN
9720 IF YMIN<=0 AND YMAX>=0 THEN Y=0

     ELSE Y=(YMIN+YMAX)/2
9725 PENUP%=-1:GOSUB 9000
9730 IF XINCR<=0 THEN XINCR=XRAN/24
9735 NUMB%=INT(XRAN/XINCR+.5)
9740 STP%=INT(PXRAN%/NUMB%+.5)
9745 LPRINT "X1,";STP%;",";NUMB%
9750 IF XMIN<=0 AND XMAX>=0 THEN X=0

     ELSE X=(XMIN+XMAX)/2
9755 Y=YMIN
9760 LASTX=X-1:LASTY=Y-1
9765 PENUP%=-1:GOSUB 9000
9770 IF YINCR<=0 THEN YINCR=YRAN/20
9775 NUMB%=INT(YRAN/YINCR+.5)
9780 STP%=INT(PYRAN%/NUMB%+.5)
9785 LPRINT "X0,";STP%;",";NUMB%
9790 XINCR=0:YINCR=0
9795 RETURN
NUMB%=INT(YRA