[Simh] Fwd: HP2100 Fortran problem

[Saporito Fausto]

Hello, 

I tried modifying the program in this way 

FTN, B, L 
C 
      WRITE(1,99) 
C 
   99 FORMAT(5H CIAO) 
      STOP 
      END 
END$ 

but i have the same error. I used WRITE(2,99) too. 

By the way the algol test program: 

HPAL,B,"PROG" 

BEGIN 
WRITE(2,#("Hello Hello")); 
END$ 

works without any problem. 

thanks, 
Fausto 

---------- Forwarded message ---------- 
From: J. David Bryan <jdbryan at acm.org> 
Date: May 17, 2007 9:28 AM 
Subject: Re: [Simh] HP2100 Fortran problem 
To: Carl Lowenstein <carl.lowenstein at gmail.com> 


Carl, 

    Did you mean to send this to the list or to me privately? 


On 17 May 2007 at 9:08, Carl Lowenstein wrote: 

> If this Fortran is anything like the classic stuff that I learned on 
> in the early 1960's, the only valid characters in the first column of 
> printer output were blank, 0, 1. 

On HP systems, carriage control (the first character) was implemented by

the line printer driver.  Most, if not all, drivers interpreted anything

other than 0 (double space), 1 (top of form), and * (suppress line feed)

as 
a blank (single space).  So the OP should have seen "IAO" on the 
printer. 


> But my instinctive reaction is: 
> 99     FORMAT(1H ,4HCIAO) 

Or "FORMAT(5H CIAO)". 


> Somewhat later Fortran had an X specification to indicate blank 
> output, so you could have 
> 99     FORMAT(X,4HCIAO) 

Indeed. 

                                      -- Dave 



-- 
    carl lowenstein         marine physical lab     u.c. san diego 
                                                 clowenstein at ucsd.edu 
_______________________________________________ 
Simh mailing list 
Simh at trailing-edge.com 
http://mailman.trailing-edge.com/mailman/listinfo/simh
<http://mailman.trailing-edge.com/mailman/listinfo/simh>  

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20070517/4661b9a8/attachment-0003.html>