<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2658.2">
<TITLE>RE: [Simh] Fwd: HP2100 Fortran problem</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>Hello,</FONT>
</P>
<P><FONT SIZE=2>I tried modifying the program in this way</FONT>
</P>
<P><FONT SIZE=2>FTN, B, L</FONT>
<BR><FONT SIZE=2>C</FONT>
<BR><FONT SIZE=2> WRITE(1,99)</FONT>
<BR><FONT SIZE=2>C</FONT>
<BR><FONT SIZE=2> 99 FORMAT(5H CIAO)</FONT>
<BR><FONT SIZE=2> STOP</FONT>
<BR><FONT SIZE=2> END</FONT>
<BR><FONT SIZE=2>END$</FONT>
</P>
<P><FONT SIZE=2>but i have the same error. I used WRITE(2,99) too.</FONT>
</P>
<P><FONT SIZE=2>By the way the algol test program:</FONT>
</P>
<P><FONT SIZE=2>HPAL,B,"PROG"</FONT>
</P>
<P><FONT SIZE=2>BEGIN</FONT>
<BR><FONT SIZE=2>WRITE(2,#("Hello Hello"));</FONT>
<BR><FONT SIZE=2>END$</FONT>
</P>
<P><FONT SIZE=2>works without any problem.</FONT>
</P>
<P><FONT SIZE=2>thanks,</FONT>
<BR><FONT SIZE=2>Fausto</FONT>
</P>
<P><FONT SIZE=2>---------- Forwarded message ----------</FONT>
<BR><FONT SIZE=2>From: J. David Bryan <jdbryan@acm.org></FONT>
<BR><FONT SIZE=2>Date: May 17, 2007 9:28 AM</FONT>
<BR><FONT SIZE=2>Subject: Re: [Simh] HP2100 Fortran problem</FONT>
<BR><FONT SIZE=2>To: Carl Lowenstein <carl.lowenstein@gmail.com></FONT>
</P>
<BR>
<P><FONT SIZE=2>Carl,</FONT>
</P>
<P><FONT SIZE=2> Did you mean to send this to the list or to me privately?</FONT>
</P>
<BR>
<P><FONT SIZE=2>On 17 May 2007 at 9:08, Carl Lowenstein wrote:</FONT>
</P>
<P><FONT SIZE=2>> If this Fortran is anything like the classic stuff that I learned on</FONT>
<BR><FONT SIZE=2>> in the early 1960's, the only valid characters in the first column of</FONT>
<BR><FONT SIZE=2>> printer output were blank, 0, 1.</FONT>
</P>
<P><FONT SIZE=2>On HP systems, carriage control (the first character) was implemented by</FONT>
<BR><FONT SIZE=2>the line printer driver. Most, if not all, drivers interpreted anything</FONT>
<BR><FONT SIZE=2>other than 0 (double space), 1 (top of form), and * (suppress line feed)</FONT>
<BR><FONT SIZE=2>as</FONT>
<BR><FONT SIZE=2>a blank (single space). So the OP should have seen "IAO" on the</FONT>
<BR><FONT SIZE=2>printer.</FONT>
</P>
<BR>
<P><FONT SIZE=2>> But my instinctive reaction is:</FONT>
<BR><FONT SIZE=2>> 99 FORMAT(1H ,4HCIAO)</FONT>
</P>
<P><FONT SIZE=2>Or "FORMAT(5H CIAO)".</FONT>
</P>
<BR>
<P><FONT SIZE=2>> Somewhat later Fortran had an X specification to indicate blank</FONT>
<BR><FONT SIZE=2>> output, so you could have</FONT>
<BR><FONT SIZE=2>> 99 FORMAT(X,4HCIAO)</FONT>
</P>
<P><FONT SIZE=2>Indeed.</FONT>
</P>
<P><FONT SIZE=2> -- Dave</FONT>
</P>
<BR>
<BR>
<P><FONT SIZE=2>-- </FONT>
<BR><FONT SIZE=2> carl lowenstein marine physical lab u.c. san diego</FONT>
<BR><FONT SIZE=2> clowenstein@ucsd.edu</FONT>
<BR><FONT SIZE=2>_______________________________________________</FONT>
<BR><FONT SIZE=2>Simh mailing list</FONT>
<BR><FONT SIZE=2>Simh@trailing-edge.com</FONT>
<BR><FONT SIZE=2><A HREF="http://mailman.trailing-edge.com/mailman/listinfo/simh" TARGET="_blank">http://mailman.trailing-edge.com/mailman/listinfo/simh</A></FONT>
</P>
</BODY>
</HTML>