9000	N=200 : SX=N*(B-A)/(X1-X0) : SY=N*(D-C)/(Y1-Y0) : F2(0)=1 : F2(1)=4 : F2(2)=3 : F2(3)=2 : Q9=LOG(EXP(1))/LOG(10)-1E-10
9001	AA=INT(A*N+.5) : BB=INT(B*N+.5) : CC=INT(C*N+.5) : DD=INT(D*N+.5)
9002	NV=0 : NV(1)=105.6 : NV(2)=149.28 : NV(3)=224.64 : NV(4)=395.52 : NV(5)=768.48
9003	DEF FNZZ$(X$)=RIGHT$(X$,LEN(X$)-1)
9004	C$(0)="UA" : C$(1)="DA" : SA=N*A : SB=N*B-SA : SC=N*C : SD=N*D-SC : IF G1=2 THEN G1=0 : RETURN
9005	IF G1=1 THEN G1=0 : RX=0 : RY=0 : RETURN
9007	S$=CHR$(10) : C2PLTDAT$=";:I21 100"+S$+"H"+S$ : GOSUB 9995
9008	IF F1=1 THEN DE=INT(Q9*LOG((Y1/Y0))+.5)
9009	IF F0=1 THEN DW=INT(Q9*LOG((X1/X0))+.5)   
9011	C2PLTDAT$="OUA"+STR$(AA)+","+STR$(CC)+S$ : GOSUB 9995 : RX=0 : RY=0 : FOR QQ=1 TO NV*(AA+CC) : NEXT : RETURN
9025	IF QO$=QM$ THEN RETURN
9026	IF VAL(LEFT$(QO$,1)) <> 0 THEN GOSUB 9100 : RETURN
9027	PRINT : PRINT : PRINT : PRINT TAB(8);"LOAD ";QO$;" PEN - HIT RETURN TO CONTINUE"
9028	INPUT F$
9029	QM$=QO$ : PRINT : RETURN
9075	ON H1+1 GOTO 9080,9084,9080,9076
9076	F2=0 : X=X0-H2*N/SX : Y=.5*(Y1+Y0)+.0225*EXP(.693*MM)*LEN(AZ$)*N/SY+Y0
9078	XB$=AZ$ : FOR QK=1 TO LEN(AZ$) : AZ$=MID$(XB$,QK,1) : Y=Y-.045*EXP(.693*MM)*N/SY : GOSUB 9680 : NEXT QK : RETURN
9080	F2=0 : Y=(1-H1)*H2*N/SY-(H1=0)*Y1-(H1=2)*Y0 : X=.5*(X1-X0)-MM*(.03+.01*(-(MM=1 OR MM=3)))*LEN(AZ$)*N/SX+X0 : GOTO 9085
9084	F2=1 : X=X0-H2*N/SX : Y=.5*(Y1-Y0)-MM*(.03+.01*(-(MM=1 OR MM=3)))*LEN(AZ$)*N/SY+Y0
9085	GOSUB 9680 : RETURN
9090	IF H6=0 OR M=0 THEN RETURN
9091	H6=.25*H6*N/SX : H6=H6+SGN(H6)*H6 : M1=-(M1=0)-(M1<>0)*M1 : M2=-(M2=0)*M-(M2<>0)*M2
9092	FOR QQ=M1 TO M2 : E=ABS(E1(QQ)) : EE=ABS(E2(QQ)*(1-H2)+E1(QQ)*H2) : X=X(QQ) : Y=Y(QQ) : DP=0 : GOSUB 9096 : GOSUB 9098 : GOSUB 9250 : Y=Y(QQ)+E : DP=1 : GOSUB 9096 : IF Y>Y1 THEN Y=Y1 : IF Y(QQ)>Y1 THEN DP=0
9093	GOSUB 9250 : DP=0 : X=X(QQ) : GOSUB 9098 : X=X-H6 : IF Y<Y1 THEN GOSUB 9250 : DP=1
9094	X=X(QQ) : GOSUB 9098 : X=X+H6 : GOSUB 9250 : Y=Y(QQ)-EE : DP=0 : Y=-(Y>Y1)*Y1-(Y<=Y1)*Y : IF Y<Y0 THEN X=X(QQ) : GOSUB 9098
9095	GOSUB 9096 : GOSUB 9250 : DP=-(Y<Y1 AND Y>Y0) : X=X(QQ) : GOSUB 9098 : X=X-H6 : GOSUB 9250 : X=X(QQ) : GOSUB 9098 : DP=0 : GOSUB 9250 : DP=-(Y<Y1) : Y=Y(QQ) : Y=-(Y>Y1)*Y1-(Y<=Y1)*Y : GOSUB 9096 : GOSUB 9250 : NEXT QQ : H6=0 : H2=0 : RETURN
9096	Y=-(Y<Y0)*Y0-(Y>=Y0)*Y : IF F1=1 THEN Y=Y0+((Y1-Y0)*Q9/DE)*LOG(Y/Y0)
9097	RETURN
9098	IF F0=1 THEN X=X0+((X1-X0)*Q9/DW)*LOG(X/X0)
9099	RETURN
9100	IF QO$=QX$ THEN RETURN
9102	IF VAL(LEFT$(QO$,1))>0 AND VAL(LEFT$(QO$,1))<9 THEN C2PLTDAT$="P"+LEFT$(QO$,1)+C2ENDCHR$ : GOSUB 9995
9104	QX$=QO$ : RETURN
9110	BB(5)=SD : BB(6)=SB : QT=(1-F7)*F0+F7*F1 : Y=F7*Y0+(1-F7)*YOFF : IF F3<>0 THEN C2PLTDAT$="L"+FNZZ$(STR$(F3))+S$ : GOSUB 9995
9111	BB(1)=X0 : BB(2)=Y0 : BB(3)=X1 : BB(4)=Y1 : BB(7)=SY : BB(8)=SX : DI=(1-F7)*DW+F7*DE
9112	DP=0 : X=(1-F7)*X0+F7*XOFF
9113	GOSUB 9250 : DP=1 : QF=QS : QH=QZ : QS=QS*(BB(4-F7)-BB(2-F7))
9114	IF QT=1 THEN QJ=1 : QI=1 : C2SAVEJ=DI
9115	if qt=1 then C2SAVEI=9+INT(QJ/DI)
9116	BB(9+F7)=RY*(1-F7)+F7*RX : IF QT=1 THEN 9119
9117	Y=F7*YG+YOFF*(1-F7) : X=(1-F7)*XG+XOFF*F7 : GOSUB 9250 : QI=1 : C2SAVEI=INT(F7*(YH-YG)/QZ+(1-F7)*(XH-XG)/QZ+.5)+1
9119	X=F7*QS : Y=(1-F7)*QS : GOSUB 9255 : DP=0 : X=(1-F7)*X-F7*QS
9120	Y=-(1-F7)*QS+F7*Y : GOSUB 9255 : DP=1 : IF QT = 0 THEN 9124
9121	QK=Q9*LOG((QI+1)/QI)*(BB(F7+3)-BB(F7+1))/DI : IF QI=10 THEN QK=0
9122	Y=F7*QK : X=(1-F7)*QK : GOSUB 9255 : GOTO 9128
9124	BB(10-F7)=RX*(1-F7)+F7*RY
9125	IF QZ*BB(8-F7)+BB(10-F7)>BB(6-F7) THEN QZ=(BB(6-F7)-BB(10-F7))/BB(8-F7)
9126	X=(1-F7)*QZ : Y=F7*QZ : C2PLTDAT$="L0"+C2ENDCHR$ : GOSUB 9995 : GOSUB 9255 : IF F3<>0 THEN C2PLTDAT$="L"+FNZZ$(STR$(F3))+S$ : GOSUB 9995
9128	QI=QI+1 : IF QT=1 THEN IF QI<=C2SAVEI THEN 9115 ELSE 9130
9129	IF QI<=C2SAVEI THEN 9119 ELSE 9131
9130	QI=1 : QJ=QJ+1 : IF QJ<=C2SAVEJ THEN 9115
9131	IF QT=0 AND BB(10-F7)<BB(6-F7) THEN Y=F7*Y1+YOFF*(1-F7) : X=(1-F7)*X1+XOFF*F7 : GOSUB 9250
9132	QS=QF : QZ=QH : GOSUB 9400 : C2PLTDAT$="L0"+C2ENDCHR$ : GOSUB 9995 : F3=0 : RETURN
9150	NL=INT((NL+ABS(NL))/2) : NL=NL+(1-SGN(NL)) : E=INT((E+ABS(E))/2) : E=E+(1-SGN(E))
9152	FOR Q=1 TO NL : GOSUB 9400 : C2PLTDAT$="UA"+STR$(AA)+","+STR$(CC)+S$ : GOSUB 9995
9153	C2PLTDAT$="DA"+STR$(AA)+","+STR$(DD)+","+STR$(BB)+","+STR$(DD)+","+STR$(BB)+","+STR$(CC)+","+STR$(AA)+","+STR$(CC)+S$ : GOSUB 9995
9154	GOSUB 9400 : FOR QQ=1 TO NV*(2*(BB-AA+DD-CC)) : NEXT QQ : AA=AA+E : BB=BB-E : CC=CC+E : DD=DD-E : NEXT Q
9155	AA=AA-NL*E : BB=BB+NL*E : CC=CC-NL*E : DD=DD+NL*E : NL=0 : E=0 : RETURN
9160	IF H2<=H1 THEN H2=H2+360 : GOTO 9160
9161	GOSUB 9165 : H1=H1*.01745 : H2=H2*.01745 : M=1 : IF H3=1 THEN X(M)=XA : Y(M)=YA : M=M+1
9162	FOR T=H1 TO H2 STEP .15-.025*RA*SX/N : X(M)=RA*COS(T)+XA : Y(M)=RA*SIN(T)+YA : M=M+1 : NEXT
9163	X(M)=RA*COS(H2)+XA : Y(M)=RA*SIN(H2)+YA : IF H3=1 THEN M=M+1 : X(M)=X(1) : Y(M)=Y(1)
9164	F3=0 : F4=0 : GOSUB 9200 : GOSUB 9167 : H1=0 : H2=0 : H3=0 : RETURN
9165	FM(1)=A : FM(2)=B : FM(3)=C : FM(4)=D : FM(5)=X0 : FM(6)=X1 : FM(7)=Y0 : FM(8)=Y1 : A=0 : B=15 : C=0 : D=15 : X0=A : X1=B : Y0=C : Y1=D : G1=2 : GOSUB 9000 : RETURN
9167	A=FM(1) : B=FM(2) : C=FM(3) : D=FM(4) : X0=FM(5) : X1=FM(6) : Y0=FM(7) : Y1=FM(8) : G1=2 : GOSUB 9000 : RETURN
9170	M7=12*MM : CY=Y0 : IF F8=0 THEN CS=C : C=C-2*M7/N : Y0=Y0-2*M7/SY
9171	CX=X0 : IF F8=1 THEN CA=A : A=A-11*M7/N : X0=X0-11*M7/SX
9172	G1=1 : GOSUB 9000 : BB(2)=Y0 : BB(3)=X1 : BB(4)=Y1 : BB(5)=XE :	BB(6)=YE : BB(7)=XB : IF MM=0 THEN MM=1
9173	BB(1)=X0 : BB(8)=YB : BB(9)=XI : BB(10)=YI : XA=BB(1+F8) : XB$=STR$(BB(7+F8)) : XD=XA
9174	QT=(1-F8)*F0+F8*F1 : XC=BB(3+F8)-BB(1+F8) : IF QT=0 THEN XC=BB(5+F8)-BB(7+F8) : GOTO 9177
9175	DI=(1-F8)*DW+F8*DE : BB(0)=INT(Q9*LOG(BB(7+F8)/BB(1+F8))+.5)+1 : QJ=1 : QI=1 : C2SAVEJ=INT(Q9*LOG(BB(5+F8)/BB(1+F8))+.5) : C2SAVEI=10
9176	GOTO 9178
9177	QK=1 : C2SAVEK=INT(XC/BB(9+F8)+.5)+1 : IF ND=0 AND BB(9+F8)<1 THEN ND=1
9178	QB$=XB$ : GOSUB 9450 : XB$=QB$
9179	IF QT=1 THEN Q=XD+Q9*LOG(QI)*XC/DI : GOTO 9181
9180	Q=VAL(XB$)-((LEN(XB$)-1.5)*M7/SX)*(1-F8)/2
9181	Q1=BB(2-F8)+F8*((10-LEN(XB$))*M7/SX) : AZ$=XB$
9182	X=(1-F8)*Q+F8*(Q1+(XOFF-CX)) : Y=(1-F8)*(Q1+(YOFF-CY))+F8*Q : BB(7+F8)=(1-F8)*XB+F8*YB+QK*BB(9+F8) : IF QT=0 THEN 9189
9183	IF F6=1 AND QI=1 AND QJ>=BB(0) THEN 9186
9184	IF F6=1 AND QJ>=BB(0) THEN GOSUB 9680 : GOTO 9187
9185	IF (QI=10 AND QJ>=BB(0)) OR (QJ=BB(0) AND BB(1+F8)=XB*(1-F8)+YB*F8 AND F6=1) THEN GOSUB 9680
9186	IF QI=1 AND QJ=BB(0) THEN AZ$=STR$(BB(7+F8)) : GOSUB 9680
9187	BB(7+F8)=QI+1 : IF BB(7+F8)=10 THEN BB(7+F8)=XA*10 : XA=BB(7+F8)
9188	XB$=STR$(BB(7+F8)) : GOTO 9191
9189	GOSUB 9680 : XB$=STR$(BB(7+F8)) : QK=QK+1 : IF QK<=C2SAVEK THEN 9178
9190	IF QT=0 THEN 9194
9191	QI=QI+1 : IF QI<=C2SAVEI THEN 9176
9192	XD=(1-F8)*X+F8*Y : XB$=" " : QI=1 : QJ=QJ+1 : IF QJ<=C2SAVEJ THEN 9176
9193	QT=0
9194	IF F8=1 THEN A=CA : X0=CX
9195	IF F8=0 THEN C=CS : Y0=CY
9196	G1=2 : GOSUB 9000 : RETURN
9200	CQ=CC : CC=CC+ABS(F9) : IF F3<>0 THEN C2PLTDAT$="L"+FNZZ$(STR$(F3))+S$ : GOSUB 9995
9201	W=F4 : F4=ABS(F4) : IF M1=0 THEN M1=1
9202	SE=SE-(SE=0) : IF M2=0 THEN M2=M
9203	GOSUB 9090 :IF F1=1 THEN FOR QJ=M1 TO M2 : IF Y(QJ)<Y0 THEN Y(QJ)=Y0-1 : GOTO 9205
9204	IF F1=1 THEN Y(QJ)=Y0+(Y1-Y0)*Q9*LOG(Y(QJ)/Y0)/DE	
9205	IF F1=1 THEN NEXT QJ
9206	Q=M1+1 : IF F0=1 THEN FOR QJ=M1 TO M2 : X(QJ)=X0+(X1-X0)*Q9*LOG(X(QJ)/X0)/DW : NEXT QJ
9207	IF Q>M1+1 THEN 9211
9208	X=X(M1) : Y=Y(M1)
9209	IF Y>Y1 OR Y<Y0 OR X>X1 OR X<X0 THEN Q=M1 : GOSUB 9222 : QQ=QJ : GOSUB 9226 : QQ=0 : GOTO 9227
9210	QQ=M1 : GOSUB 9226 : QQ=0 : IF M=1 THEN 9214
9211	IF Y(Q)>Y1 OR Y(Q)<Y0 OR X(Q)>X1 OR X(Q)<X0 THEN GOSUB 9222 : GOTO 9227
9214	X=INT((X-X0)*SX+AA+.5) : XQ=INT((X(Q)-X0)*SX+AA+.5)
9215	Y=INT((Y-Y0)*SY+CC+.5) : YQ=INT((Y(Q)-Y0)*SY+CC+.5) : BZ$="DA" : IF W<0 THEN BZ$="UA"
9216	DP=1 : IF M=1 AND F4=0 THEN C2PLTDAT$=BZ$+STR$(X)+","+STR$(Y)+S$ : GOSUB 9995 : GOTO 9228
9217	IF F4>0 AND QQ=0 THEN C2PLTDAT$="M"+FNZZ$(STR$(SE))+FNZZ$(STR$(F4-1))+S$ : GOSUB 9995 : QQ=1 : FOR QQ=1 TO 100*SE : NEXT QQ : IF M=1 THEN 9228
9218	C2PLTDAT$=BZ$+STR$(XQ)+","+STR$(YQ)+S$ : GOSUB 9995
9219	IF F4>0 THEN C2PLTDAT$="M"+FNZZ$(STR$(SE))+FNZZ$(STR$(F4-1))+S$ : GOSUB 9995 : QQ=1 : FOR QQ=1 TO 100*SE : NEXT QQ
9220	RX=RX+XQ-X : RY=RY+YQ-Y : GOTO 9227
9222	FOR QJ=Q TO M2 : IF Y(QJ)<=Y1 AND Y(QJ)>=Y0 AND X(QJ)<=X1 AND X(QJ)>=X0 THEN 9224
9223	NEXT QJ : Q=M2 : RETURN
9224	X=X(QJ)-X(Q-1) : Y=Y(QJ)-Y(Q-1) : DP=0 : IF Q<>M1 THEN GOSUB 9255 : QQ=0
9225	DP=1 : Q=QJ : RETURN
9226	DP=0 : X=X(QQ) : Y=Y(QQ) : GOSUB 9250 : DP=1 : RETURN
9227	X=X(Q) : Y=Y(Q) : Q=Q+1 : IF Q<=M2 THEN 9207
9228	GOSUB 9400 : IF CC>CQ THEN CC=CC-2*ABS(F9) : F4=W : GOTO 9201
9229	IF F9<0 THEN CC=CQ : F9=0 : GOTO 9201
9230	F9=0 : GOSUB 9400 : C2PLTDAT$="L0"+S$ : GOSUB 9995 : F3=0 : F4=0 : M1=0 : M2=0 : RETURN
9250	B$=C$(DP) : NX=ABS((X-X0)*SX-RX) : NY=ABS((Y-Y0)*SY-RY) : IF F5=1 THEN QH=X : X=Y : Y=Y1-QH+X0 : NY=ABS((Y-Y0)*SY-RY) : IF X<X0 THEN X=X0 : B$=C$(0)
9251	RX=(X-X0)*SX : RY=(Y-Y0)*SY : RX=SGN(RX)*INT(ABS(RX)+.5) : IF RX<0 AND GA=0 THEN RX=0
9252	RY=SGN(RY)*INT(ABS(RY)+.5) : IF RY<0 AND GA=0 THEN RY=0
9253	C2PLTDAT$=B$+STR$(SGN(RX+AA)*INT(ABS(RX+AA)+.5))+","+STR$(SGN(RY+CC)*INT(ABS(RY+CC)+.5))+S$ : GOSUB 9995 : FOR QO=1 TO NV*(NX+NY) : NEXT QO
9254	RETURN
9255	BZ$="UR" : TX=SGN(X*SX)*INT(ABS(X*SX)+.5) : TY=SGN(Y*SY)*INT(ABS(Y*SY)+.5) : IF DP=1 THEN BZ$="DR"
9256	C2PLTDAT$=BZ$+STR$(TX)+","+STR$(TY)+S$ : GOSUB 9995 : RX=RX+TX : RY=RY+TY : FOR QO=1 TO (NV+3*SGN(F3))*(ABS(X*SX)+ABS(Y*SY)) : NEXT QO
9257	RETURN
9300	ZQ=0 : T(0)=0 : H1(1)=0 : FOR J=1 TO F(0) : T(0)=T(0)+T(J) : F(J)=F(J)*RA/100 : NEXT
9302	FOR J=1 TO F(0) : T(J)=T(J)/T(0) : H2(J)=H1(J)+T(J)*6.283 : H1(J+1)=H2(J)
9305	H1=H1(J) : H2=H2(J) : XB=XA+F(J)*COS((H1+H2)/2) : YB=YA+F(J)*SIN((H1+H2)/2)
9307	XC=XB : YC=YB : GOSUB 9330 : NEXT
9310	FOR I=1 TO F(0) : H1=H1(I) : H2=H2(I) : MM=MM(I) : IF LB(I)=0 THEN 9322
9315	QO$=LB$(0) : GOSUB 9350 : RB=RA*LB(0)+F(I) : FOR T=1 TO 2 : X(T)=XA+RB*COS((H1+H2)/2)
9316	Y(T)=YA+RB*SIN((H1+H2)/2) : RB=LB(I)+F(I) : NEXT : M=2 : F0=0 : F1=0 : F3=0 : F4=0
9317	X(0)=H1 : Y(0)=H2 : H1=0 : H2=0 : GOSUB 9200 : X=X(2)-.009*2^(MM-1)*(X1-X0)/(B-A) : H1=X(0) : H2=Y(0)
9318	Y=Y(2)-.03*2^(MM-1)*(Y1-Y0)/(D-C) : F2=0 : F9=0 : AZ$="-"+LB$(I)
9319	IF XA<X THEN 9321
9320	AZ$=LB$(I)+"-" : X=X-.06*2^(MM-1)*LEN(AZ$)*(X1-X0)/(B-A) : X=X+.01*2^(MM-1)*(X1-X0)/(B-A) : IF MM>1 THEN X=X+.0047*2^(MM-1)*(X1-X0)/(B-A)
9321	GOSUB 9680
9322	NEXT I : RETURN
9330	RB=RA : GOSUB 9335 : IF EP(J)=0 THEN RETURN
9331	IF EP(J)<0 THEN GOSUB 9347 : RETURN
9332	FOR RB=EP(J) TO RA-EP(J)/4 STEP EP(J) : XC=2*X1 : YC=2*Y1 : GOSUB 9335 : NEXT : RETURN
9335	NN=.1 : IF (H2-H1)/2<NN THEN NN=(H2-H1)/2
9340	X(1)=XC : Y(1)=YC : M=2 : FOR T=H1 TO H2 STEP NN*(1.5-.5*RB/RA) : X(M)=RB*COS(T)+XB
9343	Y(M)=RB*SIN(T)+YB : M=M+1 : NEXT : X(M)=XC : Y(M)=YC : X(M-1)=RB*COS(H2)+XB
9344	Y(M-1)=RB*SIN(H2)+YB : F0=0 : F1=0 : F3=0 : F4=0 : QO$=EP$(J) : IF ZQ=1 THEN ZQ=0 : RETURN
9345	MM(0)=J : X(0)=H1 : Y(0)=H2 : H1=0 : H2=0
9346	GOSUB 9350 : GOSUB 9200 : J=MM(0) : H1=X(0) : H2=Y(0) : RETURN
9347	E=-EP(J) : FOR I=0 TO 13 : V3(I)=0 : NEXT : V3(6)=2 : V3(8)=ABS(AN(J)) : GOSUB 9700
9348	IF AN(J)<0 THEN AN(J)=90-AN(J) : T(J)=T(J)*T(0) : J=J-1	: ZQ=1
9349	RETURN
9350	IF VAL(LEFT$(QO$,1))=0 THEN GOSUB 9025
9351	GOSUB 9100 : RETURN
9400	DP=0 : C2PLTDAT$="U"+S$ : GOSUB 9995 : RETURN
9450	ER=ND : QP=VAL(QB$) : EQ=SGN(QP) : QP=ABS(QP) : ND=-(ND>8)*8-(ND<=8)*ND : GOTO 9480
9451	IF QP<EH OR QP>1E+09 THEN 9453
9452	QP=QP*1E+20 : QB$=FNZZ$(STR$(QP)) : QB$=LEFT$(QB$,LEN(QB$)-2)+"0"+RIGHT$(QB$,1) : GOTO 9454
9453	QB$=STR$(QP)
9454	FOR QQ=1 TO 15 : IF MID$(QB$,QQ,1)="E" THEN E$=MID$(QB$,QQ,4) : GOTO 9457
9455	IF MID$(QB$,QQ,1)="" THEN 9457
9456	NEXT QQ
9457	QB$=LEFT$(QB$,QQ-1)
9458	IF QP<=.001 AND QP>=EL THEN ND=ND-VAL(RIGHT$(E$,1)) : A$="#" : IF ND<0 THEN ND=0
9460	FOR Q=1 TO 15 : IF MID$(QB$,Q,1)="." OR MID$(QB$,Q,1)="" THEN QB$=LEFT$(QB$,ND+Q+1) : GOTO 9462
9461	NEXT Q
9462	QP=VAL(QB$) : IF QP=INT(QP) OR ND>=QQ-Q-1 THEN 9464
9463	IF VAL(RIGHT$(QB$,1))>=5 THEN QP=QP+10^-ND
9464	QB$=FNZZ$(STR$(QP)) : IF E$<>"" AND QP>=9.999999990000029# THEN A$="*"
9465	IF ND=0 THEN ND=-1 : IF VAL(QB$)<1 AND VAL(QB$)>EL THEN ND=0 : RETURN
9470	FOR QQ=1 TO 15 : IF MID$(QB$,QQ,1)="." THEN QB$=LEFT$(QB$+"0000000000",QQ+ND) : GOTO 9473
9471	IF MID$(QB$,QQ,1)="" THEN QB$=LEFT$(QB$+".0000000000",QQ+ND) : GOTO 9473
9472	NEXT QQ
9473	IF A$="#" THEN A$=QB$ : QB$=LEFT$(".00000000",VAL(RIGHT$(E$,1)))+LEFT$(QB$,1) : IF LEN(A$)>2 THEN QB$=QB$+RIGHT$(A$,LEN(A$)-2)
9474	IF A$<>"" AND A$<>"*" THEN A$="" : E$="" : GOTO 9476
9475	QB$=QB$+E$ : E$=""
9476	QP=VAL(QB$)*SGN(EQ) : IF A$="*" THEN A$="" : GOTO 9451
9477	IF EQ<0 THEN QB$="-"+QB$
9478	ND=ER : RETURN
9480	IF EL=0 THEN EL=.001
9481	IF EH=0 THEN EH=1E+09
9482	EH=ABS(EH) : EL=ABS(EL)
9483	IF EH>1E+09 THEN EH=1E+09
9484	IF EL<1E-08 THEN EL=1E-08
9485	IF EH<1 THEN EH=1
9486	IF EL>.001 THEN EL=.001
9487	IF QP<1 AND QP>EL AND ND=0 THEN RETURN
9488	GOTO 9451
9500	DP=1 : C2PLTDAT$="D"+S$ : GOSUB 9995 : RETURN
9550	GOSUB 9400 : C2PLTDAT$="UA"+STR$(AA)+","+STR$(CC)+S$ : GOSUB 9995 : FOR Q=1 TO NV*(RX+RY) : NEXT : RX=0 : RY=0 : RETURN
9600	IF RR=1 THEN GOSUB 9550 : RR=0 : GOTO 9608
9601	C2PLTDAT$="P0"+C2ENDCHR$ : GOSUB 9995
9608	M1=0 : M2=0 : F0=0 : F1=0 : F2=0 : F3=0 : F4=0 : F5=0 : F6=0 : F7=0 : F8=0 : F9=0 : RX=0 : RY=0
9609	IF RR=0 THEN C2PLTDAT$="H"+S$ : GOSUB 9995 : FOR QQ=1 TO NV*(AA+CC) : NEXT QQ
9610	DE=0 : DW=0 : RR=0 : C2PLTDAT$="@"+S$ : GOSUB 9995 : RETURN
9620	IF M1<1 OR M2<M1 THEN M1=1
9622	IF M2<1 OR M2<M1 THEN M2=M
9624	X2=0 : X3=0 : Y2=0 : Y3=0 : IF M<2 THEN 9638
9626	H2=SGN(H2) : H3=SGN(H3) : Q=0 : FOR QQ=M1 TO M2 : IF (H1<>0 AND (X(QQ)>X1 OR X(QQ)<X0 OR Y(QQ)>Y1 OR Y(QQ)<Y0)) OR (H2>0 AND X(QQ)<=X) OR (H2<0 AND X(QQ)>=X) OR (H3>0 AND Y(QQ)<=Y) OR (H3<0 AND Y(QQ)>=Y) THEN 9637
9628	IF Q=0 THEN X2=X(QQ) : X3=X2 : Y2=Y(QQ) : Y3=Y2 : Q=1
9630	IF X(QQ)>X3 THEN X3=X(QQ)
9632	IF X(QQ)<X2 THEN X2=X(QQ)
9634	IF Y(QQ)>Y3 THEN Y3=Y(QQ)
9636	IF Y(QQ)<Y2 THEN Y2=Y(QQ)
9637	NEXT Q
9638	H1=0 : H2=0 : H3=0 : M1=0 : M2=0 : RETURN
9680	DZ$="S"+FNZZ$(STR$(F2(F2)))+FNZZ$(STR$(MM))+"," : IF J9=1 THEN 9683
9681	DP=0 : GA=1 : GOSUB 9250 : GA=0 : IF LEFT$(AZ$,1)=" " THEN AZ$=RIGHT$(AZ$,LEN(AZ$)-1)
9683	QL=2^(MM-1) : ED=LEN(AZ$)*12*2^(MM-1)
9684	DZ$=DZ$+AZ$+CHR$(95) : FOR Q=1 TO QL : C2PLTDAT$=DZ$+C2ENDCHR$ : GOSUB 9995 : GOSUB 9693
9685	FOR QQ=1 TO NV(MM)*LEN(AZ$) : NEXT
9686	ES=-(ED-3) : IF F9=0 THEN 9692
9687	IF F2(F2)=1 THEN C2PLTDAT$="UR"+STR$(ES)+",0"+S$ : GOSUB 9995
9688	IF F2(F2)=4 THEN C2PLTDAT$="UR"+"0,"+STR$(ES)+S$ : GOSUB 9995
9689	IF F2(F2)=3 THEN C2PLTDAT$="UR"+STR$(-ES)+",0"+S$ : GOSUB 9995
9690	IF F2(F2)=2 THEN C2PLTDAT$="UR"+"0,"+STR$(-ES)+S$ : GOSUB 9995
9691	NEXT
9692	RETURN
9693	IF F2(F2)=1 THEN RX=RX+ED : RETURN
9694	IF F2(F2)=2 THEN RY=RY-ED : RETURN
9695	IF F2(F2)=3 THEN RX=RX-ED : RETURN
9697	IF F2(F2)=4 THEN RY=RY+ED : RETURN
9698	RETURN
9700	V3(7)=ATN(TAN(V3(7)*.01745)*SX/SY) : V3(8)=ATN(TAN(V3(8)*.01745)*SX/SY) : V3(1)=0 : V3(4)=1 : DP=0 : FOR I=0 TO M : L(I)=I : NEXT I : IF V3(11)=1 THEN GOSUB 9775
9701	IF V3(7)<>0 THEN GOSUB 9792
9702	IF V3(6)<>2 THEN GOSUB 9200 : IF V3(6)=1 THEN RETURN
9703	P=0 : FOR I=2 TO M+1 : IF X(I)<=X1 AND X(I)>=X0 AND Y(I)<=Y1 AND Y(I)>=Y0 AND I<>M+1 THEN 9705
9704	L(I)=99999! : X(P)=X(I-2) : Y(P)=Y(I-2) : L(I-1)=L(P+1) : P=I
9705	NEXT I
9707	IF V3(8)<>0 THEN V3(7)=2*3.14159-V3(8) : GOSUB 9793
9709	FOR I=0 TO M : Z(I)=X(I) : P(I)=Y(I) : NEXT I : GOSUB 9785
9710	FOR P=1 TO M-1 : FOR I=2 TO M-1
9711	IF Y(I)<Y(I-1) THEN Q=Y(I-1) : Y(I-1)=Y(I) : Y(I)=Q : Q=X(I-1) : X(I-1)=X(I) : X(I)=Q : Q=L(I-1) : L(I-1)=L(I) : L(I)=Q
9712	NEXT I : NEXT P : X=X(1) : Y=Y(1)
9715	IF P(L(V3(4))-1)>Y(V3(4)) THEN GOSUB 9770
9716	IF P(L(V3(4))+1)>Y(V3(4)) THEN GOSUB 9771
9717	IF Y(V3(4))>P(L(V3(4))-1) OR Y(V3(4))>P(L(V3(4))+1) THEN GOSUB 9760
9718	IF Y(V3(4)+1)<Y THEN V3(4)=V3(4)+1 : GOTO 9715
9721	FOR I=1 TO V3(1) : IF Z(V1(I))=Z(V2(I)) THEN XX(I)=Z(V1(I)) : GOTO 9723
9722	XX(I)=(Y-YY(I))/((P(V1(I))-P(V2(I)))/(Z(V1(I))-Z(V2(I))))
9723	NEXT I
9725	FOR P=1 TO V3(1) : FOR I=2 TO V3(1) : IF V3(3)=1 AND XX(I)>XX(I-1) THEN Q=XX(I-1) : XX(I-1)=XX(I) : XX(I)=Q
9726	IF V3(3)=0 AND XX(I)<XX(I-1) THEN Q=XX(I-1) : XX(I-1)=XX(I) : XX(I)=Q
9727	NEXT I : NEXT P : IF V3(3)=0 THEN V3(3)=1 : GOTO 9730
9728	IF V3(3)=1 THEN V3(3)=0
9730	FOR I=1 TO V3(1) : X=XX(I) : Q=Y : GOSUB 9780 : C2PLTDAT$=C$(DP)+STR$(INT(X*SX+AA))+","+STR$(INT(Y*SY+CC))+S$ : GOSUB 9995 : Y=Q
9731	DP=1-DP
9732	NEXT I : GOSUB 9400 : Y=Y+E : V3(5)=V3(4) : IF Y>Y(M-1) THEN GOSUB 9400 : RETURN
9733	IF Y>Y(V3(5)+1) THEN V3(5)=V3(5)+1
9734	IF V3(4)=V3(5) THEN 9721
9735	V3(4)=V3(5) : GOTO 9715
9760	FOR I=1 TO V3(1) : P=V1(I) : Q=V2(I) : IF P(P)<=Y(V3(4)) AND P(Q)<=Y(V3(4)) THEN 9762
9761	GOTO 9764
9762	FOR P=I+1 TO V3(1) : V1(P-1)=V1(P) : V2(P-1)=V2(P) : YY(P-1)=YY(P) : NEXT P : I=I-1 : V3(1)=V3(1)-1 : IF I=V3(1) THEN RETURN
9764	NEXT I : RETURN
9770	V3(1)=V3(1)+1 : V1(V3(1))=L(V3(4))-1 : GOTO 9772
9771	V3(1)=V3(1)+1 : V1(V3(1))=L(V3(4))+1
9772	V2(V3(1))=L(V3(4)) : P=V3(1) : I=V1(P) : Q=V2(P) : IF Z(I)=Z(Q) THEN YY(P)=0 : RETURN
9773	YY(P)=P(I)-((P(I)-P(Q))/(Z(I)-Z(Q)))*Z(I) : RETURN
9775	FOR I=1 TO M : X(I)=X(I)+V3(12) : Y(I)=Y(I)+V3(13) : NEXT I : RETURN
9780	IF V3(8)=0 THEN RETURN
9781	P=X-V3(9) : X=P*COS(V3(8))-(Y-V3(10))*SIN(V3(8))+V3(9) : Y=P*SIN(V3(8))+(Y-V3(10))*COS(V3(8))+V3(10) : RETURN
9785	FOR I=1 TO M : IF L(I)<>99999! THEN 9787
9786	FOR P=I TO M-1 : X(P-1)=X(P+1) : Y(P-1)=Y(P+1) : L(P-1)=L(P+1) : NEXT P : M=M-2
9787	NEXT I : RETURN
9792	FOR I=1 TO M : GOTO 9794
9793	FOR I=0 TO M
9794	P=X(I) : X(I)=(X(I)-V3(9))*COS(V3(7))-(Y(I)-V3(10))*SIN(V3(7))+V3(9)
9795	Y(I)=(P-V3(9))*SIN(V3(7))+(Y(I)-V3(10))*COS(V3(7))+V3(10) : NEXT I : RETURN
9800	FM(1)=A : FM(2)=B : FM(3)=C : FM(4)=D : FM(5)=X0 : FM(6)=X1 : FM(7)=Y0 : FM(8)=Y1
9805	A=0 : B=15 : C=0 : D=15 : X0=A : X1=B : Y0=C : Y1=D : G1=2 : GOSUB 9000
9810	FOR T=1 TO LEN(AZ$) : Z$=MID$(AZ$,T,1) : GOSUB 9820 : IF Z$="" THEN NEXT T : GOTO 9889
9811	P=2
9812	X(P/2)=XT+SW*(T-1+(ASC(MID$(Z$,P-1,1))-32)/50) : Y(P/2)=YT+SH*(ASC(MID$(Z$,P,1))-32)/50
9813	IF MID$(Z$,P,1)="Z" THEN X(P/2)=2*X1 : Y(P/2)=2*Y1
9814	P=P+2 : IF P<=LEN(Z$) THEN 9812 ELSE M=LEN(Z$)/2 : M1=1 : M2=M : GOSUB 9200 : IF E<=0 THEN 9816
9815	FOR QQ=1 TO 13 : V3(QQ)=0 : NEXT QQ : V3(6)=2 : V3(8)=AN : GOSUB 9700
9816	P=P+2 : IF P>LEN(Z$) THEN 9889 ELSE 9812
9820	Q=ASC(Z$) : IF Q=32 THEN Z$=""
9821	IF Q=33 THEN Z$="/ /,>,> / ZZ/0/R>R>0/0"
9822	IF Q=34 THEN Z$="%=%A*E*I%I%R4R4E*=%=ZZ9=9A>E>I9I9RHRHE>=9="
9823	IF Q=35 THEN Z$=" * 4)4)> > H)H)R2R2H;H;RDRDHMHM>D>D4M4M*D*D ; ;*2*2 ) )* *ZZ242>;>;424"
9825	IF Q=36 THEN Z$=" , 1/1//1.;.>/>2;4*4 : E*K/K/R>R>KCKMEM@>@>B"
9826	IF Q=36 THEN Z$=Z$+";C1C/B/?1=C=M7M,C&>&> / /&*& ,"
9827	IF Q=37 THEN Z$=" C J%R*R/J/C*<%< CZZ%F%H&J(J*H*F(C&C%FZZ>'>.C5H5M.M'H C >'ZZ"
9828	IF Q=37 THEN Z$=Z$ + "C)C+E.F.H+H)F'E'C)ZZ*'9JCJ4'*'"
9829	IF Q=38 THEN Z$=" + 6*A%F%L*R4R9L9F4A@3E9J3E-M%H @(9 *  +ZZ*I,L1L4I1F,F*IZZ"
9830	IF Q=38 THEN Z$=Z$ + "*0*6/;;-9+/+*0"
9834	IF Q=39 THEN Z$=",=,A3E3I,I,R@R@E3=,="
9835	IF Q=40 THEN Z$="%0%A9RHR/=/4H 9 %0"
9836	IF Q=41 THEN Z$="% >4>=%R4RHAH04 % "
9837	IF Q=42 THEN Z$=" *)4 4 >)> H)R2H2R;R;HDRMHD>M>M4D4M*D ;*; 2 2*)  *"
9838	IF Q=43 THEN Z$=" 0 A/A/R>R>AMAM0>0> / /0 0"
9839	IF Q=44 THEN Z$="/ /$4(4,/,/4>4>(4 / "
9840	IF Q=45 THEN Z$=" 2 ?M?M2 2"
9841	IF Q=46 THEN Z$="2 2*;*; 2 "
9842	IF Q=47 THEN Z$="  >RMR/   "
9843	IF Q=48 THEN Z$=" ( I*RCRMIM(C *  (ZZ*,*E/I9I*,ZZ4(CEC,>(4("
9844	IF Q=49 THEN Z$="/ /E'E/R>R> / "
9845	IF Q=50 THEN Z$="   ,>A>C;E1E/C/A A I*RCRMIM=9,M,M   "
9846	IF Q=51 THEN Z$=" ( 0/0/.1,;,>.>2;4/4/?;?>A>E;G1G/E/C C I*RCRMIM>H:M5M(C *  ("
9847	IF Q=52 THEN Z$="6 6- - 66RBRB6M6M-B-B 6 ZZ66+66D66"
9848	IF Q=53 THEN Z$=" ( 0/0/,1*;*>,>2;4*4 = RMRME/E/ACAM9M(C *  ("
9849	IF Q=54 THEN Z$=" ( I*RCRMIMC>C>E;G1G/E/=4?C?M6M(C *  (ZZ/,/214;4>2>,;*1*/,"
9850	IF Q=55 THEN Z$="  9E E RMRME4   "
9851	IF Q=56 THEN Z$=" ( 6%; ? I*RCRMIM?H;M6M(C *  (ZZ/,/214;4>2>,;*1*/,ZZ/A/G1I;I>G>A;?1?/A"
9853	IF Q=57 THEN Z$=" ( ././,1*;*>,>492*2 ; I*RCRMIM(C *  (ZZ/?/E1G;G>E>?;=1=/?"
9854	IF Q=58 THEN Z$="/,/04494>0>,9(4(/,ZZ/@/D4H9H>D>@9<4</@"
9855	IF Q=59 THEN Z$="/$/(4,/,/04494>0>,4$/$ZZ/@/D4H9H>D>@9<4</@"
9856	IF Q=60 THEN Z$=" 9;RMR29M ;  9"
9857	IF Q=61 THEN Z$=")*)4D4D*)*ZZ)>)HDHD>)>"
9858	IF Q=62 THEN Z$="  ;9 R2RM92   "
9859	IF Q=63 THEN Z$=" A I*RCRMIMA>4>0/0/6>C>E;G1G/E/A AZZ/$/(4,9,>(>$9 4 /$"
9860	IF Q=64 THEN Z$=" ( I*RCRMIM4H0@0>4;040141A4E;E>A>=@6C9CG@I/I,G,04*C*M.M *  ("
9861	IF Q=65 THEN Z$="  /R>RM > =$0$/   ZZ40906=40"
9862	IF Q=66 THEN Z$="   RBRJIJ?H;M4M(E   ZZ0,04:4=2=.:,0,ZZ0?0G8G:E:A8?0?"
9863	IF Q=67 THEN Z$=" ( I*RCRMIMA>A>C;E1E/C/.1,;,>.>0M0M(C *  ("
9864	IF Q=68 THEN Z$="   RCRMIM(C   ZZ/,/E;E>C>.;,/,"
9865	IF Q=69 THEN Z$="   RMRMG/G/?@?@4/4/+M+M   "
9866	IF Q=70 THEN Z$="   RMRMG3G3=F=F0303   "
9867	IF Q=71 THEN Z$="*  ) I*RCRMIMA>A>C;E4E/A/04,;,>.>0909;M;M(C * "
9868	IF Q=72 THEN Z$="   R/R/?>?>RMRM > >4/4/   "
9869	IF Q=73 THEN Z$="   ,/,/E E RMRME>E>,M,M   "
9870	IF Q=74 THEN Z$=" ( 0.0.,1*9*<,<RMRM(B +  ("
9871	IF Q=75 THEN Z$="   R/R/B;RJR>BM > 46/0/   "
9872	IF Q=76 THEN Z$="   R1R1.M.M   "
9873	IF Q=77 THEN Z$="   R+R6;BRMRM B B66 +6+   "
9874	IF Q=78 THEN Z$="   R-R?4?RMRM ? -9-   "
9875	IF Q=79 THEN Z$=" ( I*RCRMIM(C *  (ZZ/0/A4E9E>A>09,4,/0"
9876	IF Q=80 THEN Z$="   RBRMIM9B0101   ZZ1=1E<E?C??<=1="
9877	IF Q=81 THEN Z$=" ( I*RCRMIM0H,J*M*M C >$9 *  (ZZ/0/A4E9E>A>26,4,/0"
9878	IF Q=82 THEN Z$="   R@RJIJ=E6M0M = =,61010   ZZ0=0F8F:D:?8=0="
9879	IF Q=83 THEN Z$=" ( 0/0/.1,;,>.>0;2*2 ; I*RERMKMC>C>E;G1G/E/A1?D?M6M(C *  ("
9880	IF Q=84 THEN Z$=" E RMRME?E? . .E E"
9881	IF Q=85 THEN Z$=" ( R/R/.1,;,>.>RMRM(C *  ("
9882	IF Q=86 THEN Z$=" R/R69>RMR> /  R"
9883	IF Q=87 THEN Z$=" R*R-=1R;R?=BRMRF ; 641 &  R"
9884	IF Q=88 THEN Z$="  /;"+CHR$(34)+"R1R6I;RJR>;M > 6,/   "
9885	IF Q=89 THEN Z$=" R/R6E>RMR>9> / /9 R"
9886	IF Q=90 THEN Z$="  5E E RMR7,M,M   "
9887	IF Q<32 OR Q>90 THEN Z$=""
9888	RETURN
9889	A=FM(1) : B=FM(2) : C=FM(3) : D=FM(4) : X0=FM(5) : X1=FM(6) : Y0=FM(7) : Y1=FM(8) : G1=2 : GOSUB 9000 : RETURN
9900	X(1)=X0 : X(2)=X(1) : QL=3*NN+1 : FOR Q=3 TO QL-2 STEP 3
9924	X(Q)=X(Q-1)+((1-F5)*(X1-X0)+F5*(Y1-Y0))/NN : X(Q+1)=X(Q) : X(Q+2)=X(Q+1)
9927	NEXT : X(QL-1)=X(QL-2)+((1-F5)*(X1-X0)+F5*(Y1-Y0))/NN : X(QL)=X(QL-1)
9928	FOR Q=1 TO QL STEP 3 : Y(Q)=Y0 : NEXT
9931	FOR QK=2 TO 3 : QQ=1 : FOR Q=QK TO QL STEP 3 : Y(Q)=BAR(QQ) : QQ=QQ+1 : NEXT : NEXT : GOSUB 9550
9939	GOSUB 9500 : FOR QK=1 TO QL : X=X(QK) : Y=Y(QK) : GOSUB 9250 : NEXT : GOSUB 9400 : RETURN
9950	NV=.6 : QK=N*(B-A) : QQ=SY : GOSUB 9550 : IF F5=1 THEN QK=N*(D-C) : QQ=SX : C2PLTDAT$="DR"+"0,"+STR$(QK)+C2ENDCHR$ : GOSUB 9995
9951	ES=E : E=INT(QQ*E+.5) : DZ$="DR"
9952	ER=QK/NN : QL=NN+1 : IF INT(ER+.5)*NN<>QK THEN QL=INT(NN/(INT(ER+.5)*NN-QK))
9953	FOR QD=1 TO NN : BAR=INT(INT((BAR(QD)-(F5*X0+(1-F5)*Y0))*QQ+.5)/E) : QB=0
9954	QS=INT(ER+.5) : IF (QD/ABS(QL)-INT(QD/ABS(QL)))=0 THEN QS=INT((ER-SGN(QL))+.5)
9955	IF BAR<=0 THEN C2PLTDAT$="UR"+STR$((1-F5)*QS)+","+STR$(-F5*QS)+C2ENDCHR$ : GOSUB 9995 : GOTO 9968
9956	C2PLTDAT$=DZ$+STR$(F5*E)+","+STR$((1-F5)*E)+C2ENDCHR$ :	GOSUB 9995 : C2PLTDAT$=DZ$+STR$((1-F5)*QS)+","+STR$(-F5*QS)+C2ENDCHR$ : GOSUB 9995 : FOR Q=1 TO .7*NV*(E+QS) : NEXT Q
9960	QB=QB+1 : IF QB>=BAR THEN C2PLTDAT$="UR"+STR$(-F5*QB*E)+","+STR$(-1*(1-F5)*QB*E)+C2ENDCHR$ : GOSUB 9995 : GOTO 9968
9962	C2PLTDAT$=DZ$+STR$(F5*E)+","+STR$((1-F5)*E)+C2ENDCHR$ :	GOSUB 9995 : C2PLTDAT$=DZ$+STR$(-QS*(1-F5))+","+STR$(F5*QS)+C2ENDCHR$ : GOSUB 9995 : QB=QB+1 : FOR Q=1 TO .7*NV*(E+QS) : NEXT Q
9966	IF QB>=BAR THEN C2PLTDAT$="UR"+STR$(-F5*QB*E)+","+STR$(-(1-F5)*QB*E)+C2ENDCHR$ : GOSUB 9995 : C2PLTDAT$="UR"+STR$((1-F5)*QS)+","+STR$(-F5*QS)+C2ENDCHR$ : GOSUB 9995 : GOTO 9968
9967	GOTO 9956
9968	NEXT QD
9970	RX=(1-F5)*QK : RY=0 : E=ES : GOSUB 9550 : NV=0 : RETURN
9971	E(0)=0 : FOR K=1 TO NN : V3(7)=0 : V3(6)=2 : V3(11)=0 : M=5
9972	FOR I=2 TO 4 : X(I)=X(I+E(0)) : Y(I)=Y(I+E(0)) : NEXT : E(0)=E(0)+3 : V3(6)=2
9973	AN(0)=X(4) : V1(0)=Y(4) : V2(0)=X(5) : V3(0)=Y(5) : X(5)=X(1) : Y(5)=Y(1) : V3(8)=AN(K)+.001 : E=E(K)
9974	IF BAR(K)<>0 THEN GOSUB 9700
9975	X(5)=V2(0) : Y(5)=V3(0) : X(1)=AN(0) : Y(1)=V1(0) : NEXT I : RETURN
9980	Y=Y0-24*MM/SY : QI=1 : QT=(X1-X0+1)/NN
9981	QK=INT((XB+(QI-1)*XI-XB)*NN/(X1-X0+QT))+1 : AZ$=STR$(XB+(QK-1)*QT)
9982	X=(INT(NN*(VAL(AZ$)-X0)/(X1-X0+.5))+.5)*(X1-X0)/NN-.5*LEN(AZ$)*(N/SX)*(.03*EXP(.693*MM))+X0 : GOSUB 9680
9983	QI=QI+1 : IF XB+(QI-1)*XI>XE THEN RETURN
9984	GOTO 9981
9985	NN=NN/(NL+SGN(SGN(INT(NL))-1)*(NL-1)) : Y=Y0-24*MM/SY : FOR QK=1 TO NN : AZ$=BL$(QK)
9986	X=(QK-.5)*(X1-X0)/NN-.5*LEN(AZ$)*(N/SX)*(.03*EXP(.693*MM))+X0
9987	GOSUB 9680 : NEXT : NL=0 : NN=0 : RETURN
9995	IF C2FRSTSW%<>0 THEN 9998
9996	C2PLTPRT%=224 : C2STSPRT%=230 : C2RDYFLG%=32 : C2ENDCHR$=CHR$(10)
9997	C2FRSTSW%=1
9998	LPRINT C2PLTDAT$
9999	RETURN
