Given the lack of a carriage control character in “FORMAT(20A5)”, I’m guessing 
that TYPE was like write, except it was terminal oriented so it didn’t use 
carriage control.

Also, given the FORMAT(/), I’ll also hazard a guess that TYPE did not 
automatically add a new line on whatever was printed. But that is just a guess.

From: Clem Cole []
Sent: Friday, February 2, 2018 9:46 AM
To: Ken Cornetet <>
Subject: Re: [Simh] Crowther's Adventure game

On Fri, Feb 2, 2018 at 9:12 AM, Ken Cornetet 
I have vague recollections that FORMAT(/) prints a new line
​Sounds right - I'm O-O-O, but I​'ll try to verify with the compiler folks when 
I'm on the office again.

Format(20A5) takes 20 elements of an array and prints them as character stings 
padded to a width of 5 characters.
​Right..   -- mAw - means M elements of an input data type (typically Integer) 
as type Alphabet with a width of w.​

"TYPE" is not standard fortran. That must have been a DEC extension. Standard 
fortran would have used "write".
​Yes, TYPE was introduced by DEC with PDP-10 Fortran​ to allowed for easier 
terminal I/O on timesharing (original Fortran was designed for batch i.e. LPT, 
or tape style out).  I believe it was picked up on the standard with F90 - but 
again I'll have to ask the Fortran compiler folks.   An example of the 
difference between TYPE and traditional WRITE indeed are things like Fortran 
Lineprinter control, but I've forgotten the details.

-----Original Message-----
From: Simh 
On Behalf Of Lars Brinkhoff
Sent: Friday, February 2, 2018 3:41 AM
To: Dave L <<>>
Subject: Re: [Simh] Crowther's Adventure game

Dave L wrote:
> Been a long time since I wrote fortran but IIRC the first character on
> the output line was to perform carriage-control of the LPT, so you'd
> have to always have a leading pad character such as a space in order
> to get the output lines to be correct. Some characters were reserved
> actions, 1 = FF from memory. I've not looked at the code involved but
> that'd be my first thoughts

Thanks.  Since the SPEAK subroutine is only a few lines, I'll post it here.  
Maybe someone hows how TYPE, FORMAT(20A5), and FORMAT(/) work.

        DIMENSION RTEXT(100),LLINE(1000,22)

999     TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(KKT,2))
998     FORMAT(20A5)
        IF(LLINE(KKT-1,1).NE.0)GOTO 999
997     TYPE 996
996     FORMAT(/)
Simh mailing list<>
Simh mailing list<>

Simh mailing list

Reply via email to