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 [mailto:cl...@ccc.com] Sent: Friday, February 2, 2018 9:46 AM To: Ken Cornetet <ken.corne...@kimballelectronics.com> Cc: simh@trailing-edge.com Subject: Re: [Simh] Crowther's Adventure game On Fri, Feb 2, 2018 at 9:12 AM, Ken Cornetet <ken.corne...@kimballelectronics.com<mailto:ken.corne...@kimballelectronics.com>> wrote: 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 [mailto:simh-boun...@trailing-edge.com<mailto:simh-boun...@trailing-edge.com>] On Behalf Of Lars Brinkhoff Sent: Friday, February 2, 2018 3:41 AM To: Dave L <davel....@googlemail.com<mailto:davel....@googlemail.com>> Cc: simh@trailing-edge.com<mailto:simh@trailing-edge.com> 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. SUBROUTINE SPEAK(IT) IMPLICIT INTEGER(A-Z) COMMON RTEXT,LLINE DIMENSION RTEXT(100),LLINE(1000,22) KKT=RTEXT(IT) IF(KKT.EQ.0)RETURN 999 TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(KKT,2)) 998 FORMAT(20A5) KKT=KKT+1 IF(LLINE(KKT-1,1).NE.0)GOTO 999 997 TYPE 996 996 FORMAT(/) RETURN END _______________________________________________ Simh mailing list Simh@trailing-edge.com<mailto:Simh@trailing-edge.com> http://mailman.trailing-edge.com/mailman/listinfo/simh _______________________________________________ Simh mailing list Simh@trailing-edge.com<mailto:Simh@trailing-edge.com> http://mailman.trailing-edge.com/mailman/listinfo/simh [https://mailfoogae.appspot.com/t?sender=aY2xlbWNAY2NjLmNvbQ%3D%3D&type=zerocontent&guid=6c7e30c9-8bbe-42d0-849b-32a107cc6c3b]ᐧ
_______________________________________________ Simh mailing list Simh@trailing-edge.com http://mailman.trailing-edge.com/mailman/listinfo/simh
