   LOADF     $  $ a&    53247   :"":54757   T  FORTRAN1  (+ $*+              !F [   !@ ͵!s=\! [6:=*\fnZCODER     :(F  Undefined  IdentifieWrong data typWrong statement ordeArray syntax erroIdentifier declared twicInvalid item in lisInvalid EquivalencinArgument mismatcUndeclared labeArray element out of boundLabel used twicInvalid nestinSyntax erro>B   <, Press required keyEnter name of programRewind to verifyReady to load part 2 Editing keys Help screen7 Cursor up one line6 Cursor down one lineShifted 7 Up 8 linesShifted 6 Down 8 linesE Enter 1 lineENTER Line entry mode1 Edit current lineS Save program to tapeJ Merge from tapeB Mark start of blockK Store blockR Retrieve blockShifted 0 Delete blockV LLIST programD D lines are programC D lines are commentX Start compilationFUNCTIOSUBROUTINPROGRAIMPLICIINTEGEREALOGICACHARACTEINTRINSIEQUIVALENCCOMMOEXTERNADIMENSIODATFORMAELSEIELSDIENDIASSIGGOTSTOPAUSCONTINUREAWRITPRINCALRETURENTHETLGNGLEANOEQNEQTRUFALSNOT۟ڟڟ[As[hݻDVDDDD          L
*[[Y\R` >T]RDM*a\*S\*+U##"S\Ϳ 6"[\,*c\[a\+RDMS_\yQ0xG 6& >q͵! [6>
0O![-6 G-6 s?\6ͯF1D0[S\!  	́*#"*R| 6-*<Rq*R̮*Y\R(-́>qKC>f(~1O :g\ qԯ2g\! ~2:\*Y\[\R"_\*_\#b
1  6 !s=\>qͿ`8 O!8$ׯ2\2`\*S\""Y\Ͱ677&6>G
OBWsKZRVHE1SJXDC *[S\RDM>++##"*́"_y*"Ͱw*Y\U#w*"!"*a\[Y\++R#DM͡*Y\ð>!  "[S\[͵͚͡ÿy*́S[\GG;|*Y\KS\>B"[C[`i6: 6  p	>q! [6:=nͿ6  6:=++R(*c\+[a\RDM͡	ÿ *c\+"Y\ðkG!?"*S\.,bk>>qԯ(ɯN  >q::\<W0
>!:\~6t  "]\ʹ*_\"_\ɯ2 !\~w*a\"]\~C*D G~ h +#~D " (0 "]\ʹ͞*_\~[]\"]\*_\R0S_\ߧ͙͙ͣD̈́>#*w!!ԅo^,V߿Wzt ( *]\~GN#~  VͺE N0 [Y\R0@#"]\~ $';8=A[8+-U0:0~(w((͞ѿ( ) ' ' Udqx*]\"_\2:\Ϳ{=\()),((߿#, (͘),(h,h,(), (9/ //( '/(, ͱ͙͙ͻ,(('ڿDw*~w* 	,ͻ, #* (*(t)ؿe̈́ (UG- U,(), , hs0,/("]\k,(/U,ؿ76t*ͿFt*p="͙͙6t)(9q*6u ()(4u,():\86t+ؿw4*6#((&h6%
,(,()6$9
(}͙;)͙͙͟),*6&*6(#"ʹ*~* 5(;)>>'*ww,
=,,((ͦ,(f)A, ((
  *2S]\)͞, ͔, æ̈́w=}͙**hu͙
͙())!O<'!/(
,|),/+-C'(ImALiF7E5 h ͂*|(H(-X(9P Ph qE(=q.$K(Hx ͂*|(5߿!  "h0_ *8"h 
 *ͩ0"0'(#' '(1S͂:)h(( Z)(f")(^,(;%͙͙u͙^( :)͈^(^(/(**ؿ( t)^(*^( ͘)U 
G^(տ^^(( )ؿU͙P͙GF f߿ GFhfN ( 
Q(
F;y~,GFfU顸'ʴ(%u(´͉͙ ͙U͙Ͳ͙(;. &h(N %w. 	S]\͗..͙ ͙+u+u.(, )GF,GF,)'ʴ^ʅ͈͙͙͙͙͗͂.(E(!.h(E(U =E 0^hh(6t).̈́.ؿGF hh #'ʴh,)*" "1 !G>GfʵAb͔ͬsH ="͖͈͗ͪ 6W68!"\h!?"*S\j*+"*^G"͗ "͢!\ˮ˶*]\ 	"]\ *N !G	~ͮ*$*~(+ #"]\[Y\~R(D G~(C(*(*~#""~ G͗ͯ0 ͬGf \Gͬ((8G8 ͬͬ838*08'"(*(0ͬ*6)ͬ(*#"6 #6 #+"[ d(q*`*Gv("!*  * ~ #($_ݾ  # d("]\< ~ (2_ݾ # d(~ fn"]\<|(R))[ |(* ^ #+|! ^ F`x_ f h^^	~ * ~ ?_#ݾ  # h "]\<!  "!M÷ ͟*#",*[ ))""6 !z÷ / U ((ͺ(̟,U(/(h"!÷
OMKI ʁ6 ut6u ( )(4u) :\w	6
 _6 " *]\"*"*"!"!!0*/5I	G
ECn+ V h"]\q "!(,(( "]\((,// U(͆/G6u  v,*  ͘4u) :\6w6 Gn 6	 =_"6 *(
6+
  ~)6)
			   *!*ut!*(&$n'() & !  "%() g Wʁ4 6 (*%ut "%,( 6  (,    ) ,ͯ(/ 
/ (6  S(0ͯ(6  (,s0ͯ(c/&7a?(6  0 ^ *#"  W _( 6  (,(,K'(((U(),ʹ5((C ^ (,o W(g ,,(g6 WC_ gC()͙,(o(6 ͨ6  U"]\,()(ߧ 7ɯ,(	6  A ^(  ,(g _CoC6 8,C,{J,(((6  (ʔW((K9"]\( ͛,ͣ,**̈́"]\½ V(̟٧h!h+ !  "%*"utG)(%"ʁ6 *%ut "%,(hG! [>w,=w,<w,w,!*W^  ^#~Ao&[NFx ~ w y }o~w͈y ^'
	
w O9!$,CILR 6ͯ <A_[-(qy $@Gbkq#y G>o:w,,(?ͯ:2#,
 "'(̟Ͷ]*ͨ"]\,*'"]\g $͈ :w+~#~wwyC*'"]\`x#~  >2#:#2*( *(ͼ| 	͂: ?!
+. *!w*!
 (),(7fn"G**!ut"͘͢(Ԁ *#"6 h% #ws(#w"q*[]\D sN# 	s#   		 !"͘͢"-S]\*-R (&'"'0 > <=0 >!6 #X!P÷$:	8
64" ͩ,/ U(͏/((̩,U(n cFHͼ|u	t
##*(HAͼ|V^ͩ0ڟ++~   ^ͩ0ڟtu͟ ^ʑ?X!+÷+q"*.,*(&8)h %$&'(# !nf"nf"͂,͑,(*C7O͟
 (Cy͹u=þ F(   ^~	 "/%O};
òC*6OW(((fn ^y͟ ~ *ݾ  (	"!  w fntu,(6"	͂ * 	["]\ ~ fnRtuڽ  	C,(~ ,U!O^È(N Y /y W~	(G
 ,Y))(
ͨ"),Oͨy¹ݮ yV F	,,(*]\"*"X!"
? ^* _~  !N Fnfr rB0qp/ /((!  Cfn ev*ututtu S(0,U/ 7W ~ ! -.n(̟lV^ʩ0͚#}<<<! !  "	"")[SR"(2)*	B0C	*R0S,("]\v[~  :)w*	But*ut,(*͜*	[ut,ófn	V^*R͜fnB*R0S*	B8C	goR[C"S|͜6 6 *~ _ v(&V^*R *tuV^*ut!W lGO͆( Hl6DMBڃʩ0ک0͚G>Fͼ+DP^CjbV+^+ͩ088++$!! Xev *ut"6s0!  - !	+$x8{(y D+-/  *
*h(( ͼ͂*((=f=t=ʒ!  R}}͇͇|DM!  B|($S+)0bkf)0*+f! ! t!  Bͩ0ڟ|zʟ|M!  jR0?gi                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        SQRT
HJ8c EXP
O6c ALOG10
]c ALOG
V7c SIN
d7c COS
k7c TAN
r7c ASIN
y38c ACOS
C8c ATAN2
# ATAN
7c SINH
Qc COSH
^c TANH
κhc CIRCLE
-# ARC
# DRAW
w$ PLOT
" BEEP
 AINT
xc ANINT
c ABS
c AMOD
 SIGN
 DIM
 INT
` FIX
` NINT
` REAL
~C FLOAT
~C IABS
+.@ MOD
_b ISIGN
PS IDIM
;> AMAX1    'MAX1    $AMIN1    'MIN1    $MAX0    AMAX0    MIN0    AMIN0    PI9       Z   PRIMES             PROGRAM PRIMES      N=2      PRINT*,N      DO 20 N=3,10000,2      IF (PTEST(N)) PRINT*,N20      CONTINUE      END      LOGICAL FUNCTION PTEST(N)      PTEST=.FALSE.      DO 10 I=3,SQRT(N),2      IF (MOD(N,I).EQ.0)RETURN10    CONTINUE      PTEST=.TRUE.      ENDO  CODER     :(F x<(FORTRAN1  X/                                                       ++++	+tt	
t
ttt	
w~`
	-_Dn1 !Ns=\6W 6<!  "W"Y"_G͋*W"g*_"cG|͋k>
N  !"\*Y\[_\R"\[S\*Ko	"_Kc	RDMUSS\*e"WR""Y"]\>G*k+>*[>!XѧR>*DM+-fk>ͳ>ͳѯ(*k+"\![[ЧRDM*Y+/![gЧR82"e[cR8'"a* K͘x "q*aR"o*R"[~  _#(͘ͯ"k~  _#( #fnͲ )*[e"**Ͳ*e}n	& DM))	͋"mutfn~ #_ #~ _ !g IBv O͉͋tu )*m}n(~=_ ͋ut ͋tu*m"mfno|((fn *[*W ! -.n͍V^*1#~ # _*e} *e\rR<|DM*]\:\g(*K\+GU+!G ^GVN# [Y*]\:\g(*K\RB0*W	"W_SY*}~#"}oo& ^#V#F>` ++"]\ D! @"};*S\"]\:\2\O[Y\RD y(C(*("sV*sЧR "!Q[W#s#r*wN# # 	##   		 S]\Lk2\~	(G~
#CW(
"]\c"]()cy~fn2##"!:\W(
*]l>L"!cS]\lL"!,(tT,!L"!,(!L""L""L""C(	̈́!!͚mV:\[Ws#r!͚g!*Y!>s~Q|< L",ͻs*n*""fn""##""ͯ, ͯ!![W!>!>!2!!͐*#[is#r2\!fn"ufn"w"*W"iL"=!<pcÚ! "/ L+*( "]\*+"| "]\z ,(C(! "c N([RWW( !fnPY:"zG )+(- 8)+(_WRs#r#8#Y:!A H#vn4 	[e\+Ac_~	G(6!
 V^ 	!"!(p"I"[##"N#"Tͥ @c"F"X((~ _!W^x2L"Q!E8"d##"g#"k!c͈"q"y""##"#""! F?0h(?? fnfnF	ʯ=ʂÚ( E)(;!"##"##".! !) ! 2:x25"<##"2!1͕ IU2>""##"#"((~ _!^x2"!!8!l2!!͈!Gjˋ.({}}jͲ}>*]\gͯ|"]\͕GxCcO(a,) 	͇_~fnFP >h ͯ !vͯ! ͑ ͑Ñ@ h )ͯ)(
͑)(͑P!cWnGF8:8p ͯ!)8fn""!!F ͂!-nf!""8!  ͚!1fn"	""##"G~2x 
 !(>! Ͳ!5fn"$"-##")~2"0>#!3͠K!a͠K!xC!|C͔! !  - !+oKx8Z =C !vx((y( 1K{(=̗>Q{ y>R xSCx!a!py1S-Ȃ *C(()UOWGN,ޯ!Yx8	Z>. EjNgOmj.N("]\j}͐Py(12`!_!kxZ}jͲ}Ͳ͐dͲd}.(T͚!*]\*_Gs{"_"]\GOQpy0NGL'()C(( Ͳ) UGWGNM'S_["M2P!LY! ߯([_ S_["=!<[_8R}'(L' '(S02!L N . [L E QC(N+(- +ڟDM}--*e\ B"e\. ?8L(ͽÐE C  *]\vCC]\+8"-=88"-8  L !
 ͩ0ڟ0_ ڟz Ug(
GVWĈ8#84 8"A!@!7GV88/"="A( "E~ !D!H"M"S##"V~2P,>scfn"yOG*Wtuy͈G͡Q( ) ' ' Fͯ!ͯ!~22fn""##"""#"Afn"=~ GOxG	>>(>Fx>Hn # XV+^+S!!nfX++"!!>>!xAC Fx+FX ^Vڟ++~ zfn7Rڂ͇	 N ^ $~  
8)DM))	1>B*Wc_O( h*W,n 2Yqfn"=!<fny##K#""!Ffnͯ"##>qͯF
++">K">?<(͈,#8O>5V^tu*kЧR"kV^Ru t [
R"G((#hr:\o(Ɗ!E͎,W,,r> L"!"]\END="]"e#"q#"v#"b~2lfn"Z>X(<HăxƔGF(xƐ((XcWG(( "]\xGF -88	ͯ!9͚!A8	͑!=Ͳ!EnͲ!5G"K\((	"M\c(= *M\"]\!\~ˆͻ2\*Y!*K\G"]\[M\R(͎"!Q*(	ͯ!:\{*(C)L(C 1c $l!L###"=!<!\~ƌS]\Ͳ!>s Q!wWzt ( *]\~#~  =ͺ3 50 [Y\R0'#"]\~ $';8=A[8	0:0Gv(*yͲ*uͲ*Ͳ!Ͳ* ~ ('_#ݾ   ͈,8#"]\< ~ _=ݾ # ͈,8~ fn)"]\|(!R))[ |(* ^ +|! ^ F`8x_ f ^^	*w ^ #ݾ  # L"]\͌͌͡ѧZͪ͡-!  R+-*/*:* * â"]\(+x	*s
{S*+:_WR*:>*ͬ,!">2!"! "2Ss͂"3s! }ͅ"& o! "2"DM!>DM*:[
!  9 ͂3!  9 {ͅ_ ͞>ͬ#"*s#r[ 2!*K	K[^#V!*:!>*:́8"e\ͨ́8!ͨ́OGͶ*͜͜ͣ:_ ͆͋	.> B͔
.:B	K	>:>2[*RS000ͯ1~n4bQ8>ѧZ	R:goR͠ ͢;8"e\##~ѯR\S(<R[ <+|!R~#~|>I   ! !i*["*+"|ͮͲͶ###G!"Gsͮ͛,r͟9@![* KK .IͺError Wrong code in Format statementInvalid inputInsuffficient space to writeDummy procedure errorDummy variable length error*ʹ3*ͳ3*ʹ3ÿ5*^#V2*5!J8O!6H!7A!:!73!7,!7%!38!C8!7#!#!Q),"e\!^!h!x!!!#!#!-#Ô##w$#"#!4ʹ3%8!GN*$84x 8"e\4808&18~5&18518Q8^8#~+ > 86 > r218~0 =88~#˾+8x87* 817 8){xGW_R){  ZR+ց8ҟcj << !  ƁWƀ 2|ȯW_R   :R  Hß  :|0(  :DMz(!  R:8ɧR 2DM͉×2+-###~++(6+-(+ ;-͙x͢!  BDMs#r#z ͮ z ͞B	  0#z ^#V#,z ʹ3 	z ~ 0#ŧ(>rz ͢B	 }|~#og*e\w#"e\wO :\0ʇCo uAm:Aé*R|}:\o ghuIm͙ͬ:\o !gouLmͩF<:\0[͗͉Gn $PIm6+*BV< ×->FGh `^PLmKX>F(>T͏> O:\o 0g< CPAm*[DMR8	DMXK<  O< >:\og`͗͝6""]\	6+͐>0-!\ˆ 4#P[EFm* +GF(+x[R8BV\͜>.*+(V\>0\>.| %goR0e[*c\R(x SKS0QR #* RF>E`ix>+(!  B0*}[|K	[c\R0~60+4~:0RSɲ0 .  ( k. kE͙	DM0(-0-(+ ø,z8͝->Kc\		"e\*e\Kc\Bʹ3ÿ5ͻͿ5͗2"e\:\o 'gtuE(Fm*qxD  +(- 9.AE>ER*RC]\{ >.  -͉8zx DM GF>-DMu tZB;ut͔)͔DM))	7Rڟ+|ڟ>>|}ҟ6G ×*Q\~_M(N~ݖ~ fn^EVFRCNGN*{2GS"#"!  ""!"F>Fà GP×*"]\G~dO!'CO*$PK͎">*]\:*a\"]\	[c\RS[\*Gf(#[a\,/HX&C+':+-P() >K[]\< S]\*VS(;-͔ït ' 'G- 8ͣG`i"IALFE ,X/+L-JPO(|)S 2*"". ""!\v(:2KCx:˾͙`i*"*+F+N+V+^"xx(
G^(>S]\[]\K*s#r#q#p#"K͎ͳ͗*[\6,*c\+"*a\"]\O~(wɦ>O8	H xD> ͋}<<<G0#>_(=V<|(#8)018)08ÿ50=88!  R|(&S)0bk)0*! ! :!  BƧRɧR 
8 878//ͩ0ڟ|||DM!  BDMxI!  BDMzʟxz!   R!  j8RGWz|`i!  B bB9q#p#w#s#r#g ݮ oݮ p {=\v0N!  t7t&"\#""\Ͱn!Fs7 *,{"]\!X'V÷^[ةIڢ   FUNCT              PROGRAM FUNCT      EXTERNAL EX2      INTRINSIC COS      CALL GRAPH(COS,0,PI)      X=Z(COS,1)      WRITE(2,10) X      X=SIMPSN(COS,0,PI/2,8)      WRITE(2,30) X      PAUSE'*** PRESS A KEY FOR NEXT FUNCTION'      PRINT'(CS)'      CALL GRAPH(EX2,0,2)      X=Z(EX2,1)      WRITE(2,40)X      X=SIMPSN(EX2,0,2,8)      WRITE(2,50)X10    FORMAT('A SOLUTIONCOS Z=0 IS'/F10.4)30    FORMAT( 'INTEGRAL OF COS FROM 0̧/2  IS'/F10.4)40    FORMAT('A SOLUTION TO EXP(-X*X/2)=X/2 IS',F10.4)50    FORMAT('INTEGRAL OF EXP(-X*X/2)-X/2 FROM 0 2 IS '/F10.4)      END******      FUNCTION EX2(X)      EX2=EXP(-X*X/2)-X/2      END******      FUNCTION Z(F,A)C. SOLVES  EQUATION F(Z)=0C. USES NEWTON'S METHOD STARTING FROM POINT A      EXTERNAL F      DF(X,D)=(F(X+D)-F(X))/D      Z=A      D=.110    DEL=F(Z)/DF(Z,D)D     PRINT*,Z,DEL      Z=Z-DEL      IF (ABS(DEL).LT.1E-8)RETURN      D=.1*DEL       GOTO 10      END******      FUNCTION SIMPSN(F,A,B,N)C. GIVES INTEGRAL OF FUNCTION F OVER INTERVAL [A,B] C. USES SIMPSON'S RULE WITH 2*N INTERVALS      EXTERNAL F      H=(B-A)/(2*N)      S=F(A)+F(B)+4*F(B-H)      DO 10 I=1,N-1      S=S+4*F(A+H*(2*I-1))+2*F(A+H*2*I)10    CONTINUE      SIMPSN=S*H/3      END******      SUBROUTINE GRAPH(F,A,B)* PLOTS A GRAPH OF FUNCTION F IN INTERVAL [A,B] ON THE SCREEN      EXTERNAL F      H=(B-A)/255      CALL PLOT(0,88)      CALL DRAW(255,0)      DO 10 I=0,255      X=A+H*I      Y=F(X)      J=Y*87+88      CALL PLOT(I,J)10    CONTINUE      ENDx   LSFIT        Z      PROGRAM LSFIT      REAL X(100),Y(100),M1,B1,M2,B2,RHO      COMMON XMIN,YMIN,XMAX,YMAX,SX,SY      SQ(X)=X*X** get number of points      WRITE(1,100)      READ(4,*)N      IF (N.LE.2) STOP'AT LEAST 3 POINTS ARE REQUIRED'      IF (N.GE.100) STOP'TOO MANY POINTS'** initialise      XSUM=0.0      YSUM=0.0      XSQ=0.0      YSQ=0.0      XYSUM=0.0** loop      DO 10 I=1,N      WRITE(1,110)I      READ (4,END=90,*) X(I),Y(I)      XI=X(I)      YI=Y(I)      XSUM=XSUM+XI      YSUM=YSUM+YI      XSQ=XSQ+SQ(XI)      YSQ=YSQ+SQ(YI)      XYSUM=XYSUM+XI*YI      IF (I.EQ.1)THEN      XMAX=XI      XMIN=XI      YMAX=YI      YMIN=YI      ELSE      XMAX=AMAX1(XMAX,XI)      XMIN=AMIN1(XMIN,XI)      YMAX=AMAX1(YMAX,YI)      YMIN=AMIN1(YMIN,YI)      END IF10    CONTINUE      IF(XMAX.EQ.XMIN)STOP'X VALUES ARE NOT DISTINCT'** calculate results      XVN=N*XSQ-SQ(XSUM)      YVN=YSQ*N-SQ(YSUM)      COVN=XYSUM*N-XSUM*YSUM      M1=COVN/XVN      B1=(YSUM-XSUM*M1)/N      SIG1=(YSQ+SQ(M1)*XSQ-2*M1*XYSUM-N*SQ(B1))/(N-2)      SDM1=SQRT(N*SIG1/XVN)      SDB1=SQRT(SIG1*XSQ/XVN)      M2=COVN/YVN      B2=(XSUM-YSUM*M2)/N      SIG2=(XSQ+SQ(M2)*YSQ-2*M2*XYSUM-N*SQ(B2))/(N-2)      SDM2=SQRT(N*SIG2/YVN)      SDB2=SQRT(SIG2*YSQ/YVN)      RHO=COVN/SQRT(XVN*YVN)** plot graph points      SX=254./(XMAX-XMIN)      SY=174./(YMAX-YMIN)      DO 20 I=1,N      XP=(X(I)-XMIN)*SX      YP=(Y(I)-YMIN)*SY      CALL PLOT(XP,YP)20    CONTINUE** plot lines      CALL LINE(B1,M1)      M3=1/M2      B3=-B2/M2      CALL LINE(B3,M3)** print results      WRITE (3,120)M1,SDM1      WRITE (3,130)B1,SDB1      WRITE (3,140)M2,SDM2      WRITE(3,150)B2,SDB2      WRITE(3,160)RHO      STOP90     STOP'NOT ENOUGH DATA IN THE FILE'** formats100   FORMAT('ENTER NUMBER OF POINTS')110   FORMAT('ENTER X AND Y VALUES FOR POINT NO.',I4)120   FORMAT('LEAST SQUARES FIT OF Y ON X IS GIVEN BY Y=MX+B WHERE     +'/'M= ',E10.4,' +/- ',E10.4)130   FORMAT('AND B= ',E10.4,' +/- ',E10.4)140   FORMAT('LEAST SQUARES FIT OF X ON Y IS GIVEN BY X=M''Y+B'' WHERE      +'/'M''= ',E10.4,' +/- ',E10.4)150   FORMAT('AND B''= ',E10.4,' +/- ',E10.4)160   FORMAT('THE CORRELATION COEFFICIENT IS ',F10.6)      END******      SUBROUTINE LINE(B,M)      COMMON XMIN,YMIN,XMAX,YMAX,SX,SY      LOGICAL INTL,INTH,SIGN      REAL B,M      SIGN=M.GE.0.0      XL=(YMIN-B)/M      XH=(YMAX-B)/M      INTL=XL.GE.XMIN.AND.XL.LE.XMAX      INTH=XH.GE.XMIN.AND.XH.LE.XMAX      IF(INTL)THEN       XP1=(XL-XMIN)*SX       CALL PLOT(XP1,0)       IF (INTH)THEN        CALL DRAW(SX*174/(M*SY),174)       ELSE IF(SIGN)THEN        YP2=(M*XMAX+B-YMIN)*SY        CALL DRAW(254-XP1,YP1)       ELSE        YP2=(M*XMIN+B-YMIN)*SY        CALL DRAW(-XP1,YP2)       END IF      ELSE       YP1=(M*XMIN+B-YMIN)*SY       CALL PLOT(0,YP1)       IF(INTH)THEN        XP2=(XH-XMIN)*SX        CALL DRAW(XP2,174-YP1)       ELSE        CALL DRAW(254,254*M*SY/SX)       END IF      END IF      END0