<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2658.2">
<TITLE>running IBM 1401 fortran</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>Hello all,</FONT>
</P>
<P><FONT SIZE=2>I'm trying to compile this fortran program:</FONT>
</P>
<P><FONT SIZE=2>PARAMI9Z0520</FONT>
<BR><FONT SIZE=2>C APPENDIX E</FONT>
<BR><FONT SIZE=2>C EXERCISE LIBRARY FUNCTIONS</FONT>
<BR><FONT SIZE=2> PRINT 8</FONT>
<BR><FONT SIZE=2>8 FORMAT(48H1A=2I(SQRT(1-COS(X)**2)COS(X)SIN(X)/ABS(SIN(X))))</FONT>
<BR><FONT SIZE=2> PRINT 1</FONT>
<BR><FONT SIZE=2>1 FORMAT(97H0 I DEGREES A EXPONENTIAL(A)=B</FONT>
<BR><FONT SIZE=2> 1LOGARITHM(B)=C I SIN(2X)=D C-D//)</FONT>
<BR><FONT SIZE=2> FI=1.0</FONT>
<BR><FONT SIZE=2> DEGREE=7.5</FONT>
<BR><FONT SIZE=2> DELTA=1.57079632679489661923/12.0</FONT>
<BR><FONT SIZE=2> ARG=DELTA</FONT>
<BR><FONT SIZE=2>3 A=(FI+FI)*SQRTF(1.0-COSF(ARG)**2)*COSF(ARG)</FONT>
<BR><FONT SIZE=2> IF(FI-24.)7,7,6</FONT>
<BR><FONT SIZE=2>6 A=-A</FONT>
<BR><FONT SIZE=2>7 B=EXPF(A)</FONT>
<BR><FONT SIZE=2> C=LOGF(B)</FONT>
<BR><FONT SIZE=2> D=FI*SINF(ARG+ARG)</FONT>
<BR><FONT SIZE=2> DIFF=C-D</FONT>
<BR><FONT SIZE=2> PRINT 2,FI,DEGREE,A,B,C,D,DIFF</FONT>
<BR><FONT SIZE=2>2 FORMAT(1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1)</FONT>
<BR><FONT SIZE=2> FI=FI+1.0</FONT>
<BR><FONT SIZE=2> DEGREE=DEGREE+7.5</FONT>
<BR><FONT SIZE=2> ARG=ARG+DELTA</FONT>
<BR><FONT SIZE=2> IF(FI-49.0)3,4,5</FONT>
<BR><FONT SIZE=2>4 PRINT 9</FONT>
<BR><FONT SIZE=2>9 FORMAT(1H1)</FONT>
<BR><FONT SIZE=2> STOP 111</FONT>
<BR><FONT SIZE=2>5 STOP 777</FONT>
<BR><FONT SIZE=2> END</FONT>
</P>
<P><FONT SIZE=2>Using both tapes included in the distribution package.</FONT>
<BR><FONT SIZE=2>The session is:</FONT>
</P>
<P><FONT SIZE=2>Sim> at mt1 Fortran_v3m0.tap</FONT>
<BR><FONT SIZE=2>Sim> at lpt listing.txt</FONT>
<BR><FONT SIZE=2>Sim> at cdr test1.for</FONT>
<BR><FONT SIZE=2>Sim> set lpt fortran</FONT>
<BR><FONT SIZE=2>Sim> set lpt 64</FONT>
<BR><FONT SIZE=2>Sim> b mt1</FONT>
</P>
<P><FONT SIZE=2>HALT instruction, IS: 280 (H 280)</FONT>
<BR><FONT SIZE=2>Sim> g</FONT>
</P>
<P><FONT SIZE=2>Address register wrap, IS: 5897 (MUL 279,3 251,3)</FONT>
</P>
<P><FONT SIZE=2>The program doesn't work. I attached the printer output.</FONT>
</P>
<P><FONT SIZE=2>What do you think? I used and example program from the IBM manual.</FONT>
</P>
<P><FONT SIZE=2>Thanks,</FONT>
<BR><FONT SIZE=2>fausto</FONT>
</P>
<P><FONT FACE="Arial" SIZE=2 COLOR="#000000"></FONT>
</BODY>
</HTML>