<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <p>TYPE( ... )  is just WRITE( 5, ...) , where 5 is the DEC LUN for
      TTY, which is opened by default.  <br>
    </p>
    <p>Conversion from format carriage control specifiers to device
      motion (for TTYs, character such as CR, LF, FF, VT), is the
      responsibility of the RTL (or device driver).  Typically, some OS
      device characteristic identifies what happens; an interactive or
      print device converts to device actions, while disks record the
      carriage control.  This can sometimes be influenced by FORTRAN
      OPEN statement extensions.<br>
    </p>
    <p>RMS based systems handle the conversion in RMS by specifying the
      record mode when a file is (RMS) opened.</p>
    <p>'/' in a format is 'end of record'.<br>
    </p>
    <p>Similarly, ACCEPT is just READ(5)</p>
    <p>There is no magic beyond what the OS reports to the RTL about the
      device.</p>
    <p><br>
    </p>
    On 02-Feb-18 09:46, Clem Cole wrote:<br>
    <blockquote type="cite"
cite="mid:CAC20D2M=FXdQ6MSK6eWEcuKSDEf+yYVwckjMZa1RXzourxfVnQ@mail.gmail.com">
      <div dir="ltr">
        <div class="gmail_default"
          style="font-family:arial,helvetica,sans-serif"><br>
        </div>
        <div class="gmail_extra"><br>
          <div class="gmail_quote">On Fri, Feb 2, 2018 at 9:12 AM, Ken
            Cornetet <span dir="ltr"><<a
                href="mailto:Ken.Cornetet@kimballelectronics.com"
                target="_blank" moz-do-not-send="true">Ken.Cornetet@kimballelectronics.com</a>></span>
            wrote:<br>
            <blockquote class="gmail_quote" style="margin:0 0 0
              .8ex;border-left:1px #ccc solid;padding-left:1ex">I have
              vague recollections that FORMAT(/) prints a new line<br>
            </blockquote>
            <div>
              <div class="gmail_default"
                style="font-family:arial,helvetica,sans-serif"><font
                  color="#0000ff">​Sounds right - I'm O-O-O, but I​'ll
                  try to verify with the compiler folks when I'm on the
                  office again.<span
                    style="font-family:arial,sans-serif"> </span></font></div>
            </div>
            <blockquote class="gmail_quote" style="margin:0 0 0
              .8ex;border-left:1px #ccc solid;padding-left:1ex">
              <br>
              Format(20A5) takes 20 elements of an array and prints them
              as character stings padded to a width of 5 characters.<br>
            </blockquote>
            <div>
              <div class="gmail_default"
                style="font-family:arial,helvetica,sans-serif;display:inline">​<font
                  color="#0000ff">Right..   -- mAw - means M elements of
                  an input data type (typically Integer) as type
                  Alphabet with a width of w.​</font></div>
              <font color="#0000ff"> </font></div>
            <blockquote class="gmail_quote" style="margin:0 0 0
              .8ex;border-left:1px #ccc solid;padding-left:1ex">
              <br>
              "TYPE" is not standard fortran. That must have been a DEC
              extension. Standard fortran would have used "write".<br>
            </blockquote>
            <div>
              <div class="gmail_default"
                style="font-family:arial,helvetica,sans-serif"><font
                  color="#0000ff">​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.</font></div>
              <br>
            </div>
            <div> </div>
            <blockquote class="gmail_quote" style="margin:0 0 0
              .8ex;border-left:1px #ccc solid;padding-left:1ex">
              <div class="HOEnZb">
                <div class="h5"><br>
                  -----Original Message-----<br>
                  From: Simh [mailto:<a
                    href="mailto:simh-bounces@trailing-edge.com"
                    moz-do-not-send="true">simh-bounces@trailing-<wbr>edge.com</a>]
                  On Behalf Of Lars Brinkhoff<br>
                  Sent: Friday, February 2, 2018 3:41 AM<br>
                  To: Dave L <<a
                    href="mailto:davel.rss@googlemail.com"
                    moz-do-not-send="true">davel.rss@googlemail.com</a>><br>
                  Cc: <a href="mailto:simh@trailing-edge.com"
                    moz-do-not-send="true">simh@trailing-edge.com</a><br>
                  Subject: Re: [Simh] Crowther's Adventure game<br>
                  <br>
                  Dave L wrote:<br>
                  > Been a long time since I wrote fortran but IIRC
                  the first character on<br>
                  > the output line was to perform carriage-control
                  of the LPT, so you'd<br>
                  > have to always have a leading pad character such
                  as a space in order<br>
                  > to get the output lines to be correct. Some
                  characters were reserved<br>
                  > actions, 1 = FF from memory. I've not looked at
                  the code involved but<br>
                  > that'd be my first thoughts<br>
                  <br>
                  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.<br>
                  <br>
                  <br>
                  <br>
                          SUBROUTINE SPEAK(IT)<br>
                          IMPLICIT INTEGER(A-Z)<br>
                          COMMON RTEXT,LLINE<br>
                          DIMENSION RTEXT(100),LLINE(1000,22)<br>
                  <br>
                          KKT=RTEXT(IT)<br>
                          IF(KKT.EQ.0)RETURN<br>
                  999     TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(<wbr>KKT,2))<br>
                  998     FORMAT(20A5)<br>
                          KKT=KKT+1<br>
                          IF(LLINE(KKT-1,1).NE.0)GOTO 999<br>
                  997     TYPE 996<br>
                  996     FORMAT(/)<br>
                          RETURN<br>
                          END<br>
                  ______________________________<wbr>_________________<br>
                  Simh mailing list<br>
                  <a href="mailto:Simh@trailing-edge.com"
                    moz-do-not-send="true">Simh@trailing-edge.com</a><br>
                  <a
                    href="http://mailman.trailing-edge.com/mailman/listinfo/simh"
                    rel="noreferrer" target="_blank"
                    moz-do-not-send="true">http://mailman.trailing-edge.<wbr>com/mailman/listinfo/simh</a><br>
                  ______________________________<wbr>_________________<br>
                  Simh mailing list<br>
                  <a href="mailto:Simh@trailing-edge.com"
                    moz-do-not-send="true">Simh@trailing-edge.com</a><br>
                  <a
                    href="http://mailman.trailing-edge.com/mailman/listinfo/simh"
                    rel="noreferrer" target="_blank"
                    moz-do-not-send="true">http://mailman.trailing-edge.<wbr>com/mailman/listinfo/simh</a></div>
              </div>
            </blockquote>
          </div>
          <br>
        </div>
      </div>
      <div hspace="streak-pt-mark" style="max-height:1px"><img alt=""
          style="width:0px;max-height:0px;overflow:hidden"
src="https://mailfoogae.appspot.com/t?sender=aY2xlbWNAY2NjLmNvbQ%3D%3D&type=zerocontent&guid=6c7e30c9-8bbe-42d0-849b-32a107cc6c3b"
          moz-do-not-send="true"><font size="1" color="#ffffff">ᐧ</font></div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
Simh mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Simh@trailing-edge.com">Simh@trailing-edge.com</a>
<a class="moz-txt-link-freetext" href="http://mailman.trailing-edge.com/mailman/listinfo/simh">http://mailman.trailing-edge.com/mailman/listinfo/simh</a></pre>
    </blockquote>
    <br>
  </body>
</html>