Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0147/format.get
There are 2 other files named format.get in the archive. Click here to see a list.
This file contains the results which are to be  expected  if
the FORMAT.TRY file is processed by the FORMAT program.  The
first results are for the examples given in the user  guide.
The  subsequent  results  are  for  some  tests  which  were
developed during the writing of the FORMAT program.
%CASE NOTATION EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(43HOnly the first letter in this line remains ,
     111Hupper case./35HTHE first word in this line will be,
     213H capitalized./33HAll but the first letter of this ,
     324Hline remains lower case./22HTHE first word in this,
     426H line will be capitalized./20HUnderscores precede ,
     531H^, \, <, # or _ which are kept.)
      END
%.BEGIN EXAMPLE FROM MANUAL
      WRITE(1,10)
   10 FORMAT(25H The quick red fox jumps ,I2,7H feet o,
     122Hver the lazy brown dog)
   20 FORMAT(25H The quick red fox jumps ,9H feet ove,
     120Hr the lazy brown dog)
      WRITE(1,120)
  120 FORMAT(25H The quick red fox jumps ,I2,7H feet o,
     122Hver the lazy brown dog)
      WRITE(1,130)
  130 FORMAT(/25H The quick red fox jumps ,F2,6H feet ,
     123Hover the lazy brown dog)
      WRITE(1,135)
  135 FORMAT(///25H The quick red fox jumps ,A2,4H fee,
     125Ht over the lazy brown dog)
%.BLANK EXAMPLE FROM MANUAL
    1 FORMAT(38H The quick red fox jumps over the lazy,
     123H brown dog,  then  runs//17H into the forest./
     2//43H The quick red fox jumps over the lazy brow,
     318Hn dog,  then  runs//17H into the forest.////
     445H The quick red fox jumps over the lazy brown ,
     516Hdog,  then  runs//17H into the forest./////
     645H The quick red fox jumps over the lazy brown ,
     716Hdog,  then  runs//17H into the forest.)
%.BREAK EXAMPLE FROM MANUAL
    1 FORMAT(14H one two three//19H four five six seve,
     116Hn eight nine ten//24H eleven twelve thirteen ,
     237Hfourteen  fifteen  sixteen  seventeen//4H eig,
     332Hhteen nineteen twenty twenty-one)
%.CARRIAGE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1     This is the first line in  the  ,
     117Hdemonstration  of/1H*/20H*the insertion of th,
     229He carriage control character./1H*/1H1/6X,2HTh,
     345His is the second line in the  demonstration  ,
     42Hof/1X/37H the insertion of the carriage contro,
     512Hl character./1X/1H1/6X,19HThis is the third l,
     630Hine in  the  demonstration  of//10H the inser,
     739Htion of the carriage control character.///6X,
     845HThis is the fourth line in the  demonstration,
     94H  of//37H the insertion of the carriage contro,
     112Hl character./)
      END
%.CENTER EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H12345678901234567890123456789012345678,
     117H90123456789012345/14X,20HThe  quick  red  fox/
     214X,20Hjumps  over the lazy/14X,9Hbrown dog/19X,
     310HCENTER   0/21X,10HCENTER  52/23X,9HCENTER  -,
     41H4/25X,6HCENTER,4X/27X,6HCENTER/29X,6HCENTER/9X,
     522X,10HCENTER +12/33X,10HCENTER  76/35X,6HCENTER,
     63X,1H0/30X,20HThe  quick  red  fox/30X,7Hjumps  ,
     713Hover the lazy/30X,9Hbrown dog/12H123456789012,
     843H3456789012345678901234567890123456789012345)
      END
%.COPY EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1 ************************     *******,
     117H*****************/3H* *,22X,7H*     *,22X,1H*/
     218H* *  Corporation: ,5H01234,15H  *     *  Corp,
     39Horation: ,5H01234,3H  */3H* *,9X,6HFirm: ,
     45H56789,9H  *     *,9X,6HFirm: ,5H56789,3H  */
     53H* *,22X,7H*     *,22X,1H*/17H* * To   gain    ,
     638Hinitial *     * To   gain    initial */4H* * ,
     745Haccess     to    the *     * access     to   ,
     86H the */36H* * computer,  you  will *     * com,
     919Hputer,  you  will */22H* * use    the   numbe,
     133Hrs *     * use    the   numbers */4H* * ,
     26H111111,8H  and   ,6H222222,9H *     * ,
     36H111111,8H  and   ,6H222222,2H */11H* * and pas,
     46Hsword ,6HPUBLIC,23H. *     * and password ,
     56HPUBLIC,3H. */30H* * To run the programs, *    ,
     625H * To run the programs, */16H* * you   will  ,
     739Huse  the *     * you   will  use  the */3H* *,
     810H password ,6HSECRET,22H.     *     * password,
     91H ,6HSECRET,7H.     */3H* *,22X,7H*     *,22X,
     11H*)
      WRITE(1,2)
    2 FORMAT(38H* ************************     *******,
     117H*****************)
      END
%.EJECT EXAMPLE FROM MANUAL
    1 FORMAT(4H one/1H*/1H*/4H*two/1H*/1H*/6H@three)
%.FILL EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HThe FILL command  indicates  that  eac,
     117Hh  line  of  text/24Hrepresented in the FORMA,
     228HT statements is to be filled/13Hwith the next,
     338H words which appear in the source text/4Hunti,
     426Hl the following word would/6Hextend,14X,3Hbey,
     53Hond,15X,3Hthe/5X,7Hcurrent,16X,5Hright,15X,1Hm,
     66Hargin.)
      END
%.FLAGS ALL EXAMPLE FROM MANUAL
      write(1,1)
    1 FORMAT(30HThe quick Red <fox jumps over ,3Hthe,
     117H lazy Brown <dog.)
The quick Red <fox jumps over   2 lazy Brown <dog.
      write(1,2)
    2 FORMAT(38H\\^THE QUICK#_RED <FOX JUMPS OVER $$$ ,
     117HLAZY _BROWN <DOG.)
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
      \\WRITE(1,$)
    3 FORMAT(29HThe quick Red FOX jumps over ,
     13^^H\\THE,16H lazy Brown DOG.)
The quick Red FOX jumps over   4 lazy Brown DOG.
%.FLAGS CAPITALIZE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HUPPER lower LESSthANUPPERlower UPPER l,
     14Hower/32HUPPER lower LESSthAN UPPER lower/3HUPP,
     217HER lower LESSthAN/11HUPPER lower/9Hupper low,
     334Her LESSthANupper*lower upper lower/8Hupper lo,
     424Hwer LESSthAN upper lower/17Hupper lower LESSt,
     53HhAN/11Hupper lower/24H^^upper lower %le^s^s\t\,
     626Hhan%upperlower upper lower/15H\\upper lower %,
     736Hle^s^s\t\han%upper*lower upper lower/6HUPPER ,
     836Hlower LESSthANUPPERlower UPPER lower/6Hupper ,
     937Hlower LESSthANupper*lower upper lower/5HUPPER,
     139H lower %LeSSthan%UPPERlower UPPER lower/3Hupp,
     242Her lower %leSSthan%upper*lower upper lower)
      end
%.FLAGS CONTROL EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H .this is the first line and this is t,
     115Hhe second line.)
%.FLAGS FENCE EXAMPLE FROM MANUAL
    1 FORMAT(6X,35HThis text is to be represented in t,
     120Hhe FORMAT statement.)
%.FLAGS INSERT EXAMPLE FROM MANUAL
C     NEXT FORMAT STATEMENT IS 100.
      WRITE(1$2,100)
  100 FORMAT(28H Maximum amount of loan is $,1I8,1H.)
C     NEXT FORMAT STATEMENT IS 110.
      WRITE(1$2,110)
  110 FORMAT(28H Maximum amount of loan is $,1A8,1H.)
^^c     next format statement is $.
      WRITE(1$2,120)
  120 FORMAT(38H \\^maximum amount of loan is _$$$$$$$,
     13H$$.)
%.FLAGS LOWER CASE EXAMPLE FROM MANUAL
    1 FORMAT(33H this line will be all lower case/2H T,
     131HHIS LINE WILL BE ALL UPPER CASE/10H this line,
     223H will be all lower case/18H THIS LINE WILL BE,
     315H ALL UPPER CASE)
%.FLAGS QUOTE EXAMPLE FROM MANUAL
    1 FORMAT(4X,32HSome typical flag characters are/
     119H #  the number sign/18H ^  the circumflex/1H ,
     217H\  the back slash/19H $  the dollar sign/2H _,
     316H  the underscore)
%.FLAGS REMARK EXAMPLE FROM MANUAL
oneTWO!THREE four
    1 FORMAT(10HFIRST LINE)
fiveSIX;SEVEN eight
    2 FORMAT(11Hsecond line)
nineTEN.ELEVEN twelve
    3 FORMAT(10HTHIRD LINE)
%.FLAGS SPACE EXAMPLE FROM MANUAL
      write(1#2,1)
    1 FORMAT(19H This demonstrates ,10Hthe   #   ,2Hsp,
     124Hace   holding character./17H This demonstrate,
     22Hs ,10Hthe   *   ,26Hspace   holding character.)
%.FLAGS UPPER CASE EXAMPLE FROM MANUAL
    1 FORMAT(37H This follows an .UPPER CASE command./
     136H This follows a .LOWER CASE command./6H This ,
     234Hfollows two CIRCUMFLEX characters./8H This fo,
     332Hllows two BACK SLASH characters./9H This fol,
     430Hlows two PLUS SIGN characters./11H This follo,
     529Hws two MINUS SIGN characters.)
%.FORMAT EXAMPLE FROM MANUAL
      WRITE(1,10)
   10 FORMAT(31H This is a message in FORMAT 10)
C     FORMAT statement 15 follows
      WRITE(1,15)
   15 FORMAT(31H This is a message in FORMAT 15)
      WRITE(1,35)
   35 FORMAT(31H This is a message in FORMAT 35)
C     FORMAT statement 100 follows
      WRITE(1,100)
  100 FORMAT(32H This is a message in FORMAT 100)
      WRITE(1,90)
   90 FORMAT(31H This is a message in FORMAT 90)
%.INDENT EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(5X,35HThe flag characters which  are  lis,
     115Hted  below  are/26Hdeactivated by the .NO FLA,
     211HGS command./30H  $  (dollar  sign)  or  whate,
     325Hver  character  has  been/5X,13Hselected by a,
     423H .FLAGS INSERT command./18H  #  (number  sign,
     537H)  or  whatever  character  has  been/5X,2Hse,
     633Hlected by a .FLAGS SPACE command.)
      END
%.INPUT WIDTH EXAMPLE FROM MANUAL
   10 FORMAT(17H 12345 1234567890)
%.INSERT EXAMPLE FROM MANUAL
      DATA KOUNT,IDAY,IYEAR/12345,12,80/
      DATA IMONTH/3HJan/
      WRITE(1,10)KOUNT,IDAY,IMONTH,IYEAR
   10 FORMAT(1H ,1I5,24H items were produced on ,1I2,
     11H-,1A3,1H-,1I2,1H.)
      END
%.JUSTIFY EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HThe .JUSTIFY and the .NO JUSTIFY comma,
     116Hnds do not apply/25Hto text which is within t,
     229Hhe range of .NO FILL commands/12Hand does not,
     338H apply to the text which is within the/4Hrang,
     426He of the .PROGRAM command.//14HThe .JUSTIFY a,
     541Hnd the .NO JUSTIFY commands do not  apply/1Ht,
     645Ho  text which is within the range of .NO FILL,
     79H commands/33Hand does not apply to the  text  ,
     822Hwhich  is  within  the/19Hrange of the .PROGR,
     911HAM command.//29HThe .JUSTIFY and the .NO JUST,
     119HIFY commands do not/22Happly to text which is,
     229H within the range of .NO FILL/12Hcommands  an,
     337Hd does not apply to the text which is/5Hwithi,
     436Hn the range of the .PROGRAM command.)
      END
%.LEADING EXAMPLE FROM MANUAL
    1 FORMAT(38H The quick red fox jumps over the lazy,
     123H brown dog,  then  runs//16H into the forest)
    2 FORMAT(//36H The quick red fox jumps over the la,
     125Hzy brown dog,  then  runs//15H into the fores,
     21Ht)
    3 FORMAT(//36H The quick red fox jumps over the la,
     125Hzy brown dog,  then  runs//15H into the fores,
     21Ht/)
    4 FORMAT(38H The quick red fox jumps over the lazy,
     123H brown dog,  then  runs//16H into the forest/)
%.LEFT MARGIN EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H Default left margin and default offse,
     11Ht/11X,33HLeft margin 10 obtained as .lm 10/6X,
     231HLeft margin 5 obtained as .lm-5/10H Left marg,
     322Hin 0 obtained as .lm-5/19H Left margin -5 whi,
     418Hch is treated as 0/23H Left margin 0 obtained,
     59H as .lm+5/6X,30HLeft margin 5 obtained as .lm+,
     61H5/11X,34HUnchanged left margin and offset 6/9X,
     77X,33HLeft margin 10 obtained as .lm 10/11X,2HLe,
     829Hft margin 5 obtained as .lm-5/6X,9HLeft marg,
     922Hin 0 obtained as .lm-5/6X,16HLeft margin -5 w,
     120Hhich is treated as 0/6X,18HLeft margin 0 obta,
     213Hined as .lm+5/11X,24HLeft margin 5 obtained a,
     37Hs .lm+5)
      END
%.LENGTH EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HThe FORMAT command indicates that no a,
     122Hdditional text  is  to/19Hbe  represented  by,
     241H  the  FORMAT  statement  currently being)
      WRITE(1,2)
    2 FORMAT(38Hconstructed and that the text appearin,
     122Hg in subsequent  lines/19Hin  the  source  fi,
     241Hle  is  to be represented in a new FORMAT/1Hs,
     345Htatement.   The  preface  line,  if  any,  in,
     414Hdicated  by  a/27Hprevious  PREFACE  command ,
     533H will  be written into the output)
      WRITE(1,3)
    3 FORMAT(38Hbefore this next FORMAT statement.  Al,
     122Hl unused output  field/19Hdescriptions  previ,
     241Hously  specified  by INSERT commands will)
      WRITE(1,4)
    4 FORMAT(19Hstill be available.)
%.LOWER CASE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(8H noflags/3X,24HUPPER lower U^P\P_ER l^o,
     15H\w_er/3X,34HU<PPER l<ower U<PPE<R l<owe<r <U^P,
     215H\P_ER <l^o\w_er/11H lower case/3X,9Hupper low,
     314Her uPpEr lOwer/3X,24HuPPER lOWER uPPEr lOWEr ,
     411HUPpER LOweR/11H upper case/3X,12HUPPER lower ,
     511HUPpER lOwer/3X,27HUPPER lOWER UPPER lOWEr UPp,
     68HER LOweR)
      END
%.MASK EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1    *=============*  *=============* ,
     116H *=============*/5X,1H*,13X,4H*  *,13X,4H*  *,
     213X,1H*/5X,34H* This  shows *  * This  shows *  ,
     315H* This  shows */5X,2H* ,3Hhow,3X,5H.MASK,2H *,
     44H  * ,3Hhow,3X,5H.MASK,6H *  * ,3Hhow,3X,
     55H.MASK,2H */5X,2H* ,3Hand,3X,5H.COPY,6H *  * ,
     63Hand,3X,5H.COPY,6H *  * ,3Hand,3X,5H.COPY,2H */
     75X,42H* commands    *  * commands    *  * comman,
     87Hds    */5X,7H* work.,7X,10H*  * work.,7X,3H*  ,
     97H* work.,7X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,9X,
     14X,1H*/5X,35H*=============*  *=============*  *,
     214H=============*//7X,3HNot,6X,2Hin/7X,7Hrange  ,
     34H  of/7X,7Heither.)
      END
%.NO CARRIAGE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1The .NO CARRIAGE command terminates t,
     117Hhe generation  of/24H*the   carriage  control,
     231H  character  specified  by  the/10H*previous ,
     318H.CARRIAGE command./23H The .NO CARRIAGE comma,
     432Hnd terminates the generation  of/9H the   ca,
     545Hrriage  control  character  specified  by  th,
     61He/28H previous .CARRIAGE command.)
      END
%.NO COPY EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1  The .NO COPY command     The .NO CO,
     110HPY command/31H*  terminates the range     ter,
     217Hminates the range/24H*  of   the    previous ,
     34X,20Hof   the    previous/17H*  .COPY command.,
     411X,14H.COPY command./23H*  Both    the    .COPY/
     523H*  command  and the .NO/18H*  COPY command im,
     65Hply a/17H*  .BREAK command)
      END
%.NO FILL EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(14H  The .NO FILL,8X,10Hcommand is,7X,1Hn,
     115Hot   equivalent/24H  to  the combination of,
     26X,1Ha,8X,13H.FILL command/13H  and a   .NO,9X,
     316HJUSTIFY command./25HThe  .NO  FILL  command  ,
     430His  not  equivalent   to   the/11Hcombination,
     544H  of  a  .FILL  command  and  a  .NO JUSTIFY/
     68Hcommand./34HThe .NO FILL command is not equiva,
     711Hlent to the/30Hcombination of a .FILL command,
     818H and a .NO JUSTIFY/8Hcommand.)
      END
%.NO INSERT EXAMPLE FROM MANUAL
    1 FORMAT(16H The .NO INSERT ,7Hcommand,9H discards,
     11H ,6Hgroups,22H of  characters  which/7H were  ,
     213Hdefined  by  ,28H  .INSERT  command,  but  wh,
     310Hich remain/8H unused.)
%.NO JUSTIFY EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HLines of text which are constructed in,
     115H fill mode, but/26Hwithout justification, hav,
     226He the words wrapped around/15Huntil the next ,
     334Hword would extend beyond the right/8Hmargin, ,
     440Hbut the lines are not of uniform length.)
      END
%.NO LEADING EXAMPLE FROM MANUAL
    1 FORMAT(/6X,34HLeading blank lines requested  by ,
     121H .PARAGRAPH  commands/20H are generated withi,
     233Hn the range of a .LEADING command)
    2 FORMAT(/37H Leading  blank  lines  requested  by,
     124H  .SKIP   commands   are/17H generated within,
     232H the range of a .LEADING command)
    3 FORMAT(6X,35HLeading blank lines requested  by  ,
     120H.PARAGRAPH  commands/21H are discarded within,
     235H the range of a .NO LEADING command)
    4 FORMAT(38H Leading  blank  lines  requested  by ,
     123H .SKIP   commands   are/18H discarded within ,
     234Hthe range of a .NO LEADING command)
%.NO MASK EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1 @   The  .NO  MASK  command  termina,
     112Htes  the   @/29H* %   range  of  the  previou,
     221Hs  .MASK command.   %/20H* %   The .NO MASK c,
     330Hommand has no effect if  a   %/11H*     .MASK,
     429H command has not been issued.)
      END
%.NO OFFSET EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(6X,35HThe default .OFFSET  1  command  pr,
     110Hovides  an/31H empty column for the carriage ,
     218Hcontrol character./5X,20HThe   .NO   OFFSET  ,
     325H command   prevents   the/16Hgeneration of th,
     416His empty column.)
      END
%.NO PREFACE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(23H This is the first line)
      WRITE(1,2)
    2 FORMAT(24H This is the second line)
    3 FORMAT(23H This is the third line)
%.NO TRAILING EXAMPLE FROM MANUAL
    1 FORMAT(23H This is the first line)
    2 FORMAT(24H This is the second line)
    3 FORMAT(23H This is the third line/)
    4 FORMAT(24H This is the fourth line/)
%.OFFSET EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(2H1@,9X,30HThe  offset   specified   by  ,
     19H the    @/33H*@    .OFFSET  command is in addi,
     217Htion to that    @/24H*@    specified  by  the,
     326H  .LEFT  MARGIN   and    @/15H*@    .INDENT o,
     422Hr .PARAGRAPH commands.,12X,1H@/7H1     @,9X,
     539HThe  offset   specified   by   the    @/3H*  ,
     63X,42H@    .OFFSET  command is in addition to th,
     77Hat    @/35H*     @    specified  by  the  .LEF,
     820HT  MARGIN   and    @/21H*     @    .INDENT or,
     921H .PARAGRAPH commands.,12X,1H@)
      END
%.OUTPUT WIDTH EXAMPLE FROM MANUAL
    1 FORMAT(18H The quick red fox,
     125H jumps over the lazy brow,
     218Hn dog,  then  runs/13H into  the  f,
     335Horest.   The  quick  red fox jumps ,
     413Hover the lazy/28H brown dog, then runs into t,
     510Hhe forest.)
%.PARAGRAPH EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(1H1,10X,30HThis line is at the start of t,
     114Hhe source  and/27H*     will only be indented,
     21H./1H*/1H*,15X,29H(spacing-1)-(negative    argu,
     310Hment)    =/1H*/27H*     (1-1)-(-1)  =  1  bla,
     428Hnk  line  since  the default/1H*/9H*     .SP,
     545HACING 1 command was in effect at  the  end  o,
     61Hf/1H*/24H*     the previous line./1H*/1H*/1H*,
     715X,39H(2-1)-(-1) = 2 blank lines precede this/
     81H*/41H*     paragraph  since  the  .SPACING  2 ,
     914Hcommand was in/1H*/23H*     effect at the end,
     122H of the previous line./1H*/1H*/1H*/1H*/1H*/
     231H*(spacing-1)+(spacing*(positive,6X,8Hargument,
     32H)),7X,1H=/1H*/29H*     (2-1)+(2*2) = 5 lines p,
     422Hrecede this paragraph.)
      END
%.PREFACE EXAMPLE FROM MANUAL
      IF(KONTRL.EQ.1)WRITE(1,  1)
    1 FORMAT(31H The  .PREFACE  command  allows/4H sev,
     127Heral    FORMAT   statements)
      IF(KONTRL.EQ.1)WRITE(1,  2)
    2 FORMAT(31H representing a single  section/4H of ,
     127H text  to be used under the)
      IF(KONTRL.EQ.1)WRITE(1,  3)
    3 FORMAT(17H same conditions.)
%.PROGRAM EXAMPLE FROM MANUAL
   10 FORMAT(13HStatement ten)
Next statement will be number  20.
   20 FORMAT(/16HStatement twenty)
Next statement will be number 25.
.Underscore before initial period and dollar sign $.
   25 FORMAT(/21HStatement twenty-five/)
Next statement will be number 125.
  125 FORMAT(37HStatement one hundred and twenty-five/)
%.RIGHT MARGIN EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(1H1,10X,20HThe  .RIGHT   MARGIN/7H*     c,
     124Hommand  implies a .BREAK/14H*     command./
     241H*The .RIGHT MARGIN command  applies  only/1H*,
     35X,35Hto  text  which  is  constructed in/4H*   ,
     412H  fill mode./29H*     The right margin is ign,
     521Hored in no fill mode.)
      END
%.SKIP EXAMPLE FROM MANUAL
    1 FORMAT(38H The quick red fox jumps over the lazy,
     123H brown dog,  then  runs//17H into the forest./
     2///42H The quick red fox jumps over the lazy bro,
     319Hwn dog,  then  runs//17H into the forest./////
     4/44H The quick red fox jumps over the lazy brown,
     517H dog,  then  runs//17H into the forest.///////
     6/44H The quick red fox jumps over the lazy brown,
     717H dog,  then  runs//17H into the forest.)
%.SPACING EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38H1A .SPACING 1 command is assumed to be,
     117H in  effect  when/24H*this program is started,
     21H./41H*No blank lines  precede  this  since  th,
     314He  .SPACING  2/1H*/23H*command forced out pre,
     432Hvious line before taking effect./1H*/1H*/1H*/
     533H*Normal spacing and 2 blank lines/1H*/1H*/1H*/
     61H*/1H*/37H*Normal spacing and 2 multiples of 2 ,
     711Hblank lines/1H*/1H*/1H*/1H*/1H*/10H*     Para,
     833Hgraph similar to .skip 2.indent 5)
      END
%.TRAILING EXAMPLE FROM MANUAL
   10 FORMAT('The quick red fox jumps over the lazy b',
     1'rown dog,  then  runs'//'into the forest.')
   20 FORMAT('The quick red fox jumps over the lazy b',
     1'rown dog,  then  runs'//'into the forest.')
   30 FORMAT('The quick red fox jumps over the lazy b',
     1'rown dog,  then  runs'//'into the forest.'/)
   40 FORMAT('The quick red fox jumps over the lazy b',
     1'rown dog,  then  runs'//'into the forest.'///)
%.UPPER CASE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(38HAn .UPPER CASE command does not have t,
     117Ho be issued  when/24Hthis  program  is first ,
     231Hstarted.  A .LOWER CASE command/10Hcan be iss,
     345Hued to cause conversion to lower  case.   The/
     445H.UPPER  CASE command can, of course, be reiss,
     510Hued at any/5Htime.)
      END
%.USE EXAMPLE FROM MANUAL
    1 FORMAT(34H one * two ** three ' four '' five/' ',
     1'one * two ** three '' four '''' five'/* one ***,
     2* two **** three ' four '' five*/12H one * two *,
     322H* three ' four '' five/19h one * two ** three,
     415h ' four '' five)
%TEST 1
    1 FORMAT(6X,5HONE'*/' TWO''*'/* THREE'***/7H FOUR'*/' FIVE''*'/6X,
     15HSIX'*/6X,5HSEVEN/6X,5hEIGHT)
%TEST 2
THIS IS THE FIRST PREFACE LINE AND 123 IS DOLLAR
  123 FORMAT(4H ONE//4H TWO///6H THREE//5H FOUR)
(456) (456) (456) ( 456) (  456) (   456) BUT KEEP $ THIS ONE
  456 FORMAT(4H ONE///////////
     1///////////////////////)
(457) (457) (457) ( 457) (  457) (   457) BUT KEEP $ THIS ONE
  457 FORMAT(/////////////////
     1///////////////////////)
(458) (458) (458) ( 458) (  458) (   458) BUT KEEP $ THIS ONE
  458 FORMAT(/////////////////
     1////////4H TWO//////////
     2////////////////////////
     3///////////////////////)
(459) (459) (459) ( 459) (  459) (   459) BUT KEEP $ THIS ONE
  459 FORMAT(/////////////////
     1////////////////////////
     2//6H THREE)
  789 FORMAT(4H END)
%TEST 3
      WRITE(1,1)
    1 FORMAT(55H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx ,
     15HYz Wx/54H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx,
     26H Yz Wx/53H Yz Wx Yz Wx Yz U*V U*V U*V U*V U*V Wx Yz Wx Yz Wx Yz,
     36H Wx Yz/53H Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Y,
     47Hz Wx Yz/52H Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx ,
     57HU*V U*V/52H U*V U*V U*V Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz ,
     68HWx Yz Wx/51H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz,
     79H Wx Yz Wx/50H Yz Wx Yz Wx Yz Wx Yz Wx Yz U*V U*V U*V U*V U*V Wx,
     89H Yz Wx Yz/50H Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz W,
     910Hx Yz Wx Yz/48H Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz,
     112H Wx Yz Wx Yz/46H Wx U*V U*V U*V U*V U*V Yz Wx Yz Wx Yz Wx Yz W,
     213Hx Yz Wx Yz Wx/45H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz,
     315H Wx Yz Wx Yz Wx/43H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz U*V,
     418H U*V U*V U*V ST Wx/40H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz ,
     520HWx Yz Wx Yz Wx Yz Wx/38H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Y,
     622Hz Wx Yz Wx Yz Wx Yz Wx/36H Yz Wx Yz Wx U*V U*V U*V U*V ST Yz W,
     725Hx Yz Wx Yz Wx Yz Wx Yz Wx/33H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz,
     827H Wx Yz Wx Yz Wx Yz Wx Yz Wx/31H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx ,
     930HYz Wx Yz Wx Yz U*V U*V U*V U*V/28H U*V U*V Wx Yz Wx Yz Wx Yz W,
     131Hx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx)
      WRITE(1,2)
    2 FORMAT(55H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx ,
     15HYz Wx/54H Yz Wx Yz Wx Yz Wx Yz Wx U*V U*V U*V U*V U*V U*V Yz Wx,
     26H Yz Wx/53H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz W,
     37Hx Yz Wx/52H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz ,
     48HWx Yz Wx/51H Yz U*V U*V U*V U*V U*V U*V Wx Yz Wx Yz Wx Yz Wx Yz,
     59H Wx Yz Wx/50H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Y,
     610Hz Wx Yz Wx/48H Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx Yz Wx U*V U,
     710H*V U*V U*V/8H U*V U*V)
      END
%TEST 4
    1 FORMAT(1H ,ABC!)
    2 FORMAT(1H ,DEF!GHI)
    3 FORMAT(1H ,JKL;)
    4 FORMAT(1H ,MNO;PQR)
    5 FORMAT(1H ,STU.)
    6 FORMAT(1H ,VWX.YZ0)
    7 FORMAT(1H ,ABC.GHI.JKL)
    8 FORMAT(1H ,123!456!789)
    9 FORMAT(1H ,ABC;GHI;JKL)
   10 FORMAT(1H ,123.456;789)
   11 FORMAT(1H ,ABC;DEF.GHI,1H ,WWWWWWWWWyyyWWWWWW;WWWWWWWWWyyyWWWWWW,
     11H ,zzzXXXzzzzzzzzzzzz;zzzXXXzzzzzzzzzzzz,1H ,
     2WWWWWWWWWyyyWWWWWW;WWWWWWWWWyyyWWWWWW,1H ,
     3zzzXXXzzzzzzzzzzzz;zzzXXXzzzzzzzzzzzz,1H ,
     4yyyWWWyyyyyyyyyWWW;yyyWWWyyyyyyyyyWWW,1H ,
     5zzzXXXzzzzzzzzzzzz;zzzXXXzzzzzzzzzzzz)
%TEST 5
    1 FORMAT(55H THIS LINE ENDS IN PERIOD.  THIS LINE ENDS IN EXCLAMATI,
     12HON/57H POINT!  THIS LINE ENDS IN QUESTION MARK?  THIS LINE ENDS,
     23H IN/56H COLON:  THIS LINE ENDS IN SEMICOLON;  AND THIS LINE END,
     34HS IN/9H A COMMA,)
%TEST 6
    1 FORMAT(14H one two three//19H four five six seve,
     116Hn eight nine ten//24H eleven twelve thirteen ,
     237Hfourteen  fifteen  sixteen  seventeen//4H eig,
     314Hhteen nineteen)
%TEST 7
    1 FORMAT(1H ,FIRST,3H111,SECOND,3H222,THIRD,3H333,FOURTH,3H444,
     1FIFTH,3H555,SIXTH,3H666,SEVENTH,3H777,EIGHT,3H888,NINETH,3H999,
     2/TENTH //1H ,ELEVENTH,2HAA,TWELVTH,2HBB,THIRTEENTH,2HCC,
     3FOURTEENTH,2HDD,21X,21H0123456789ABCDEFGHIJK/17H abcdefghijklmnop,
     410Hqrstuvwxyz,24X,10H0123456789/30H abcdefghijklmnopqrstuvwxyz 01,
     519H23456789 ABCDEF GHI)
%TEST 8
  600 FORMAT(33H AAAAAAAAAA BBBBBBBBBB CCCCCCCCCC/11H DDDDDDDDDD/4H EEE,
     17HEEEEEEE/11H FFFFFFFFFF/6X,32HGGGGGGGGGG HHHHHHHHHH IIIIIIIIII/
     26X,10HJJJJJJJJJJ/6X,10HKKKKKKKKKK/6X,10HLLLLLLLLLL/11X,8HMMMMMMMM,
     324HMM NNNNNNNNNN OOOOOOOOOO//11X,10HPPPPPPPPPP/11X,10HQQQQQQQQQQ/
     411X,10HRRRRRRRRRR/16X,10HSSSSSSSSSS,10X,10HTTTTTTTTTT/16X,5HUUUUU,
     55HUUUUU/16X,10HVVVVVVVVVV/16X,10HWWWWWWWWWW/16X,10HXXXXXXXXXX/21X,
     610HYYYYYYYYYY/21X,10HZZZZZZZZZZ)
  700 FORMAT(21X,10H0000000000/21X,10H1111111111/21X,10H2222222222/21X,
     110H3333333333/21X,10H4444444444/21X,10H5555555555/21X,9H666666666,
     21H6/21X,10H7777777777/21X,10H8888888888/21X,10H9999999999)
%TEST 9
    1 FORMAT(55H UNDER? UNDER! UNDER. UNDER: NONE?  NONE!  NONE.  NONE:,
     15X,1H_/32H _     A A AB AB AB AB  A A  A B)
%TEST 10
    1 FORMAT(11H 0123456789/22H  0 1 2 3 4 5 6 7 8 9 /3X,11H0  1  2  3 ,
     119H 4  5  6  7  8  9  /4X,36H0   1   2   3   4   5   6   7   8   ,
     21H9,3X/5X,46H0    1    2    3    4    5    6    7    8    9,4X/6X,
     355H0     1     2     3     4     5     6     7     8     9,5X)
    2 FORMAT(' 0123456789'/'  0 1 2 3 4 5 6 7 8 9 '/3X,'0  1  2  3  4 ',
     1' 5  6  7  8  9  '/4X,'0   1   2   3   4   5   6   7   8   9',3X/
     25X,'0    1    2    3    4    5    6    7    8    9',4X/6X,'0    ',
     3' 1     2     3     4     5     6     7     8     9',5X)
%TEST 11
ONE 1TWO
THREE   1FOUR
FIRST  1SECOND
    1 FORMAT(' FIRST LINE $$$THIS IS A TEST$$',ONE,'$$AND SO IS  THIS$',
     1'$  FINAL'/' LINE  TO  CAUSE  SOME  OVERFLOW  OF THE BUFFERS IN ',
     2'WHICH THE'/' DOLLAR SIGNS ARE STORED')
ONE$$TWO
THREE$$$$FOUR
FIRST$$$SECOND
    2 FORMAT(' FIRST LINE $$$THIS IS A TEST$$$$$$$$AND SO IS  THIS$$  ',
     1'FINAL'/' LINE  TO  CAUSE  SOME  OVERFLOW  OF THE BUFFERS IN WHI',
     2'CH THE'/' DOLLAR SIGNS ARE STORED')
ONE 3TWO
THREE   3FOUR
FIRST  3SECOND
    3 FORMAT(' FIRST LINE %%%THIS IS A TEST%%',TWO,'%%AND SO IS  THIS%',
     1'%  FINAL'/' LINE  TO  CAUSE  SOME  OVERFLOW  OF THE BUFFERS IN ',
     2'WHICH THE'/' DOLLAR SIGNS ARE STORED')
%TEST 12
START OF PROGRAM AND 101 IS DOLLAR SIGN
# AB_ 
LAST OF PROGRAM
  101 FORMAT(33H START OF FORMAT # AB_  LAST LINE)
%TEST 13
    1 FORMAT(1H ,8HAT START,9HAT MIDDLE,6HAT END/1H ,8HAT START,5HAT MI,
     14HDDLE,6HAT END)
%TEST 14
    1 FORMAT(6X,3Hone/11X,3Htwo/11X,5Hthree/11X,4Hfour/16X,4Hfive/11X,
     13Hsix/6H seven/11X,5Height)
%TEST 15
123456789012345678901234567890123456789012345678901234567890
    1 FORMAT(45H 12345678901234567890123456789012345678901234,,A,BB,,
     1CCC,,DD,F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    2 FORMAT(44H 1234567890123456789012345678901234567890123,,A,BB,,CCC,
     1,DD,F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    3 FORMAT(43H 123456789012345678901234567890123456789012,,A,BB,,CCC,,
     1DD,F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    4 FORMAT(42H 12345678901234567890123456789012345678901,,A,BB,,CCC,,
     1DD,F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    5 FORMAT(41H 1234567890123456789012345678901234567890,,A,BB,,CCC,,
     1DD,F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    6 FORMAT(40H 123456789012345678901234567890123456789,,A,BB,,CCC,,DD,
     1F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    7 FORMAT(39H 12345678901234567890123456789012345678,,A,BB,,CCC,,DD,
     1F,,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    8 FORMAT(38H 1234567890123456789012345678901234567,,A,BB,,CCC,,DD,F,
     1,14H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
    9 FORMAT(37H 123456789012345678901234567890123456,,A,BB,,CCC,,DD,F,,
     114H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   10 FORMAT(36H 12345678901234567890123456789012345,,A,BB,,CCC,,DD,F,,
     114H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   11 FORMAT(35H 1234567890123456789012345678901234,,A,BB,,CCC,,DD,F,,
     114H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   12 FORMAT(34H 123456789012345678901234567890123,,A,BB,,CCC,,DD,F,,
     114H OF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   13 FORMAT(33H 12345678901234567890123456789012,,A,BB,,CCC,,DD,F,,1H ,
     113HOF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   14 FORMAT(32H 1234567890123456789012345678901,,A,BB,,CCC,,DD,F,,2H O,
     112HF THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   15 FORMAT(31H 123456789012345678901234567890,,A,BB,,CCC,,DD,F,,3H OF,
     111H THE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   16 FORMAT(30H 12345678901234567890123456789,,A,BB,,CCC,,DD,F,,4H OF ,
     110HTHE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   17 FORMAT(29H 1234567890123456789012345678,,A,BB,,CCC,,DD,F,,5H OF T,
     19HHE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   18 FORMAT(28H 123456789012345678901234567,,A,BB,,CCC,,DD,F,,6H OF TH,
     18HE COMMA.)
123456789012345678901234567890123456789012345678901234567890
   19 FORMAT(27H 12345678901234567890123456,,A,BB,,CCC,,DD,F,,7H OF THE,
     17H COMMA.)
123456789012345678901234567890123456789012345678901234567890
   20 FORMAT(26H 1234567890123456789012345,,A,BB,,CCC,,DD,F,,8H OF THE ,
     16HCOMMA.)
123456789012345678901234567890123456789012345678901234567890
   21 FORMAT(25H 123456789012345678901234,,A,BB,,CCC,,DD,F,,9H OF THE C,
     15HOMMA.)
123456789012345678901234567890123456789012345678901234567890
   22 FORMAT(24H 12345678901234567890123,,A,BB,,CCC,,DD,F,,9H OF THE C,
     15HOMMA.)
123456789012345678901234567890123456789012345678901234567890
   23 FORMAT(23H 1234567890123456789012,,A,BB,,CCC,,DD,F,,10H OF THE CO,
     14HMMA.)
123456789012345678901234567890123456789012345678901234567890
   24 FORMAT(22H 123456789012345678901,,A,BB,,CCC,,DD,F,,11H OF THE COM,
     13HMA.)
%TEST 16
    1 FORMAT(38H The .BREAK command indicates that no ,
     123Hadditional text  is  to/18H be  included in t,
     243Hhe line of text currently being represented/
     345H in the FORMAT statement.  The line of text i,
     416Hs assumed to  be)
    2 FORMAT(38H shorter  than  normal,  and so is not,
     123H right justified by the/18H insertion of extr,
     243Ha blank characters between  the  groups  of/
     345H printing characters (words) on the line.  Th,
     416He representation/25H of the line of text  wil,
     536Hl  be  followed  by  the  number  of/6H slash,
     645Hes  specified  by  the  .SPACING  command if ,
     710Hthe .TRAIL)
    3 FORMAT(38H command  has  been  issued  or   if  ,
     123H additional   text   is/18H represented.  A .,
     243HBREAK command is also implied by most other/
     345H commands which change the manner in which th,
     416He source text is/13H represented.)
%TEST 17
    1 FORMAT(4H The,20X,4HFILL,21X,7Hcommand/23H aaaaaaaaaaaaaaaaaaaaaa,
     139Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/4X,9Hindicates,16X,1Ht,
     23Hhat,16X,4Heach/4X,42Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
     319Haaaaaaaaaaaaaaaaaaa/7X,4Hline,16X,2Hof,17X,4Htext/7X,7Haaaaaaa,
     454Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/10X,1Hr,
     510Hepresented,10X,2Hin,11X,3Hthe/10X,25Haaaaaaaaaaaaaaaaaaaaaaaaa,
     636Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/13X,6HFORMAT,6X,7Hstateme,
     73Hnts,7X,2His/13X,44Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
     817Haaaaaaaaaaaaaaaaa/16X,2Hto,7X,2Hbe,8X,6Hfilled/16X,9Haaaaaaaaa,
     952Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/19X,3Hwit,
     116Hh    the    next/19X,38Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
     223Haaaaaaaaaaaaaaaaaaaaaaa/16X,25Hwords    which     appear/16X,
     361Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/
     413X,2Hin,10X,3Hthe,10X,6Hsource/13X,26Haaaaaaaaaaaaaaaaaaaaaaaaaa,
     535Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/10X,4Htext,12X,5Huntil,13X,
     63Hthe/10X,52Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
     79Haaaaaaaaa/7X,9Hfollowing,12X,4Hword,13X,5Hwould/7X,9Haaaaaaaaa,
     852Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/4X,4Hexte,
     92Hnd,17X,6Hbeyond,17X,3Hthe/4X,31Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,
     130Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)
    2 FORMAT(8H current,18X,5Hright,18X,7Hmargin./18H aaaaaaaaaaaaaaaaa,
     144Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/14H aaaaaaaaaaaaa,
     248Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)
%TEST 18
    1 FORMAT(29X,3HTWO/28X,5HTHREE/29X,4HFOUR/29X,4HFIVE/29X,3HSIX/28X,
     15HSEVEN/28X,5HEIGHT)
%TEST 19
    1 FORMAT(6X,3Hone//11X,3Htwo//11X,5Hthree//11X,4Hfour//16X,4Hfive//
     116X,3Hsix//6H seven//6H eight)
%TEST 20
    1 FORMAT(2H a/2H b//2H c/2H d/2H e//2H f////2H g//2H h//2H i///2H j/
     1////////2H k///2H l///2H a/2H b//2H c/2H d/2H e//2H f///2H g//1H ,
     21Hh//2H i///2H j/////2H k///2H l)
%TEST 21
    1 FORMAT(23H ABCDEFGHIjklMNOPQR S T/23H abcDEFghijklmnopqr s t/2H A,
     121HBCDEFGHIjklMNOPQR S T/23H abcDEFghijklmnopqr s t/10H abcDEFghi,
     213HjklmnoPQR s t/23H abcDEFghijklmnopqr s t/18H WWWWWWWWWyyyWWWWW,
     31HW/19H zzzXXXzzzzzzzzzzzz/19H WWWWWWWWWyyyWWWWWW/12H zzzXXXzzzzz,
     47Hzzzzzzz/19H yyyWWWyyyyyyyyyWWW/19H zzzXXXzzzzzzzzzzzz)
%TEST 22
    1 FORMAT(4H ONE//4H TWO///6H THREE//5H FOUR//5H FIVE//6X,3HSIX///
     16H SEVEN//6X,5HEIGHT//5H NINE//6X,3HTEN//7H ELEVEN///6X,6HTWELVE//
     29H THIRTEEN///6X,8HFOURTEEN)
%TEST 23
      TYPE 1
    1 FORMAT(28X,6HCENTER/29X,9HCENTER +5/24X,9HCENTER -5/24X,7HCENTER ,
     12H-5/6X,13HLEFT MARGIN 5//11X,4HPARA//4X,6HPARA-2//8X,6HPARA+2/4X,
     214HLEFT MARGIN -2/6X,14HLEFT MARGIN +2/4X,14HLEFT MARGIN -2/3H  L,
     313HEFT MARGIN -2/15H LEFT MARGIN -2/15H LEFT MARGIN -2/8H LEFT MA,
     47HRGIN +2/16H  LEFT MARGIN +2/4X,14HLEFT MARGIN +2/11H LEFT MARGI,
     53HN 0/5X,8HOFFSET 5/7X,8HOFFSET+2/5X,8HOFFSET-2/9HOFFSET-10/3H  O,
     67HFFSET+7)
    2 FORMAT(7H  BEGIN)
    3 FORMAT(9H  BEGIN+1)
    5 FORMAT(9H  BEGIN+2)
   10 FORMAT(9H  BEGIN+5)
   15 FORMAT(9H  BEGIN+5)
   35 FORMAT(10H  BEGIN 35)
      END
%TEST 24
    1 FORMAT(41H  1 lower UPPER FLAGGED*LOWER lower UPPER/10H  2 lower ,
     131HUPPER FLAGGED*UPPER lower UPPER/27H  3 lower upper FLAGGED*LOW,
     214HER lower upper/41H  4 lower upper FLAGGED*UPPER lower upper/
     341H  5 lower UPPER FLAGGED*LOWER lower UPPER/17H  6 lower UPPER F,
     424HLAGGED*UPPER lower UPPER/34H  7 lower upper FLAGGED*LOWER lowe,
     57Hr upper/41H  8 lower upper FLAGGED*UPPER lower upper/8H  9 lowe,
     633Hr UPPER FLAGGED*LOWER lower UPPER/25H 10 lower UPPER FLAGGED*U,
     716HPPER lower UPPER/41H 11 lower upper FLAGged*LOWER lower upper/
     841H 12 lower upper FLAGged*UPPER lower upper/17H 13 lower UPPER F,
     924HLAGged*LOWER lower UPPER/34H 14 lower UPPER FLAGged*UPPER lowe,
     17Hr UPPER/41H 15 lower upper FLAGGED*lower lower upper/8H 16 lowe,
     233Hr upper FLAGGED*upper lower upper/25H 17 lower UPPER FLAGGED*l,
     316Hower lower UPPER/41H 18 lower UPPER FLAGGED*UPPER lower UPPER/
     441H 19 lower upper FLAGGED*LOWER lower UPPER/17H 20 lower UPPER F,
     524HLAGGED*UPPER lower UPPER/34H 21 lower UPPER FLAGGED*LOWER lowe,
     67Hr UPPER/41H 22 lower UPPER FLAGGED*UPPER lower UPPER/8H 23 lowe,
     733Hr upper FLAGGED*LOWER lower upper/25H 24 lower upper FLAGGED*U,
     816HPPER lower upper/41H 25 lower UPPER FLAGGED*LOWER lower upper/
     941H 26 lower upper FLAGGED*UPPER lower upper/4H >>>/7H <><><>)
%TEST 25
    1 FORMAT(29H \\^a^bcd^A^Bcd<THIS<THAT_a_B/22H ^^^a^bcd^A^Bcd<THIS<T,
     17HHAT_a_B/19H ABcdABcdTHISthataB/19H ABcdABcdTHISTHATaB/7H abde f,
     26Hggh ij)
%TEST 26
      WRITE(1,1)
    1 FORMAT(23X,1HC/22X,2HCE/22X,3HCEN/21X,4HCENT/21X,5HCENTE/20X,2HCE,
     14HNTER/23X,1HC/23X,2HCE/22X,3HCEN/22X,4HCENT/21X,5HCENTE/21X,2HCE,
     24HNTER/24X,1HC/23X,2HCE/23X,3HCEN/22X,4HCENT/22X,5HCENTE/21X,2HCE,
     34HNTER/24X,1HC/24X,2HCE/23X,3HCEN/23X,4HCENT/22X,5HCENTE/22X,2HCE,
     44HNTER/36X,8HA  B   C/24X,32HThe FORMAT program converts text/10X,
     560Hinto FORTRAN FORMAT statements  which  regenerate  the  text/
     610X,38Hwhen these FORMAT statements are used./39X,1Ha/39X,2Hab/9X,
     729X,3Habc/38X,4Habcd/37X,5Habcde/37X,6Habcdef/37X,6HGHIJKL/37X,
     86Habcdef/39X,6HGHIJKL/39X,6Habcdef/42X,6HGHIJKL/42X,6Habcdef/44X,
     96HGHIJKL/42X,6Habcdef/42X,6HGHIJKL/42X,6Habcdef/37X,6HGHIJKL/42X,
     16Habcdef/47X,6HGHIJKL/42X,6Habcdef/37X,6HGHIJKL)
      END
%TEST 27
      TYPE 1
    1 FORMAT(' The FORMAT program converts text into FORTR',
     1'AN  FORMAT  statements  which'/' regenerate  the  t',
     2'ext  when  these  FORMAT  statements  are  used.   ',
     3'The'/' following transformations of the text are sp',
     4'ecified  by  commands  which')
      TYPE 2
    2 FORMAT(' are  embedded  in  the original text and wh',
     1'ich are identical to commands'/' accepted by the DE',
     2'Csystem-10 text processing program RUNOFF.'/6X,'The',
     3' FORMAT program converts text into FORTRAN  FORMAT ',
     4' statements  which')
      TYPE 3
    3 FORMAT(6X,'regenerate  the  text  when  these  FORMA',
     1'T  statements  are  used.   The'/6X,'following tran',
     2'sformations of the text are specified  by  commands',
     3'  which'/6X,'are  embedded  in  the original text a',
     4'nd which are identical to commands')
      TYPE 4
    4 FORMAT(6X,'accepted by the DECsystem-10 text process',
     1'ing program RUNOFF.'/11X,'The FORMAT program conver',
     2'ts text into FORTRAN  FORMAT  statements  which'/11X,
     3'regenerate  the  text  when  these  FORMAT  stateme',
     4'nts  are  used.   The')
      TYPE 5
    5 FORMAT(11X,'following transformations of the text ar',
     1'e specified  by  commands  which'/11X,'are  embedde',
     2'd  in  the original text and which are identical to',
     3' commands'/11X,'accepted by the DECsystem-10 text p',
     4'rocessing program RUNOFF.')
      TYPE 6
    6 FORMAT(16X,'The FORMAT program converts text into FO',
     1'RTRAN  FORMAT  statements  which'/16X,'regenerate  ',
     2'the  text  when  these  FORMAT  statements  are  us',
     3'ed.   The'/16X,'following transformations of the te',
     4'xt are specified  by  commands  which')
      TYPE 7
    7 FORMAT(16X,'are  embedded  in  the original text and',
     1' which are identical to commands'/16X,'accepted by ',
     2'the DECsystem-10 text processing program RUNOFF.'/9X,
     312X,'The FORMAT program converts text into FORTRAN  ',
     4'FORMAT  statements  which')
      TYPE 8
    8 FORMAT(21X,'regenerate  the  text  when  these  FORM',
     1'AT  statements  are  used.   The'/21X,'following tr',
     2'ansformations of the text are specified  by  comman',
     3'ds  which'/21X,'are  embedded  in  the original tex',
     4't and which are identical to commands')
      TYPE 9
    9 FORMAT(21X,'accepted by the DECsystem-10 text proces',
     1'sing program RUNOFF.')
      END
%TEST 28
A
AB
ABC
      TYPE 1
    1 FORMAT(1H1)
      TYPE 2
    2 FORMAT(1H2)
      TYPE 3
    3 FORMAT(1H3)
      TYPE 5
    5 FORMAT(1H5)
      TYPE 10
   10 FORMAT(2H10)
      TYPE 12
   12 FORMAT(2H12)
      TYPE 16
   16 FORMAT(2H16)
      TYPE 23
   23 FORMAT(2H23)
      TYPE 32
   32 FORMAT(2H32)
      TYPE 44
   44 FORMAT(2H44,
     19HABCDEFGHI)
      TYPE 46
   46 FORMAT(2H46,
     19HABCDEFGHI)
      TYPE 48
   48 FORMAT(2H48,
     19HABCDEFGHI)
      TYPE 50
   50 FORMAT(2H50)
   10 FORMAT(2H10,
     19HABCDEFGHI)
   11 FORMAT(2H11,
     19HABCDEFGHI)
TWELVE 12
   12 FORMAT(2H12,
     19HABCDEFGHI)
   13 FORMAT(2H13,
     19HABCDEFGHI)
   15 FORMAT(2H15,
     19HABCDEFGHI)
TWENTY FIVE 25
   25 FORMAT(2H25,
     19HABCDEFGHI)
   30 FORMAT(2H30,
     19HABCDEFGHI)
FORTY 40
FORTY 40
   40 FORMAT(2H40,
     19HABCDEFGHI)
   45 FORMAT(2H45,
     19HABCDEFGHI)
%TEST 29
      TYPE 10
   10 FORMAT(4H ONE)
TWO 15
      TYPE 15
   15 FORMAT(/6H THREE)
      TYPE 20
   20 FORMAT(/5H FOUR)
FIVE 25
SIX 25
SEVEN 30
EIGHT 30
      TYPE 30
   30 FORMAT(/9H NINE TEN)
      TYPE 34
   34 FORMAT(/14H ELEVEN TWELVE)
      TYPE 52
   52 FORMAT(/18H THIRTEEN FOURTEEN)
FIFTEEN 54
SIXTEEN 54
SEVENTEEN 54
EIGHTEEN 54
      TYPE 54
   54 FORMAT(/16H NINETEEN TWENTY/)
      TYPE 10
   10 FORMAT(4H ONE/)
TWO 15
      TYPE 15
   15 FORMAT(6H THREE/)
      TYPE 20
   20 FORMAT(5H FOUR/)
FIVE 25
SIX 25
SEVEN 30
EIGHT 30
      TYPE 30
   30 FORMAT(9H NINE TEN/)
      TYPE 34
   34 FORMAT(14H ELEVEN TWELVE/)
      TYPE 52
   52 FORMAT(18H THIRTEEN FOURTEEN/)
FIFTEEN 54
SIXTEEN 54
SEVENTEEN 54
EIGHTEEN 54
      TYPE 54
   54 FORMAT(16H NINETEEN TWENTY/)
%TEST 30
   10 FORMAT(8H ONE TWO//11H THREE FOUR)
   20 FORMAT(9H FIVE SIX//12H SEVEN EIGHT)
   30 FORMAT(9H NINE TEN//14H ELEVEN TWELVE///)
   40 FORMAT(18H THIRTEEN FOURTEEN//16H FIFTEEN SIXTEEN///)
  100 FORMAT(3H AB//////)
  110 FORMAT(1X)
  200 FORMAT(18H FIRST FORMAT LINE/)
FIRST PROGRAM LINE
SECOND PROGRAM LINE
  210 FORMAT(/)
  300 FORMAT(19H SECOND FORMAT LINE/)
THIRD PROGRAM LINE
FOURTH PROGRAM LINE
  310 FORMAT(/)
%TEST 31
      WRITE(1,1)
    1 FORMAT(38H12345678901234567890123456789012345678,
     117H90123456789012345/28X,1H9/28X,4H9 12/28X,2H9 ,
     27H12  567/28X,16H9 12  567   1234/20X,8H1 34  78,
     317H9   3456    12345/10X,20HThe quick red fox ju,
     425Hmps over the  lazy  brown/10X,3Hdog/9X,4H0 23,
     532H  678   2345    01234     012345/5X,7HThe qui,
     638Hck red fox jumps over the  lazy  brown/5X,1Hd,
     72Hog)
      END
%TEST 32
    1 FORMAT(///4H*ONE/6H@AGAIN/1H@/1H@/1H@/4H%TWO/1H//1H//1H//6H$THREE/
     15H$MORE/1H$/1H$/1H$/7H+FOURTH/6H FINAL///)
%TEST 33
      WRITE(1,1)
    1 FORMAT(8H*    ONE,5HFIRST,26X,3HONE,5HFIRST,26X,3HONE,5HFIRST,26X,
     13HONE,5HFIRST//5X,3HTWO,6HSECOND,5HTHREE,5HTHIRD,20X,3HTWO,
     26HSECOND,5HTHREE,5HTHIRD,20X,3HTWO,6HSECOND,5HTHREE,5HTHIRD,20X,
     33HTWO,6HSECOND,5HTHREE,5HTHIRD//5X,4HFOUR,6HFOURTH,4HFIVE,5HFIFTH,
     43HSIX,5HSIXTH,16X,4HFOUR,6HFOURTH,4HFIVE,5HFIFTH,3HSIX,5HSIXTH,9X,
     57X,4HFOUR,6HFOURTH,4HFIVE,5HFIFTH,3HSIX,5HSIXTH,16X,4HFOUR,
     66HFOURTH,4HFIVE,5HFIFTH,3HSIX,5HSIXTH//5X,5HSEVEN,7HSEVENTH,3HEIG,
     72HHT,6HEIGHTH,4HNINE,6HNINETH,3HTEN,5HTENTH,6HELEVEN,6HTWELVE,1HS,
     84HEVEN,7HSEVENTH,5HEIGHT,6HEIGHTH,4HNINE,6HNINETH,3HTEN,5HTENTH,
     96HELEVEN,6HTWELVE,5HSEVEN,7HSEVENTH,5HEIGHT,6HEIGHTH,4HNINE,
     16HNINETH,3HTEN,5HTENTH,6HELEVEN,6HTWELVE,5HSEVEN,7HSEVENTH,4HEIGH,
     21HT,6HEIGHTH,4HNINE,6HNINETH,3HTEN,5HTENTH,6HELEVEN,6HTWELVE)
      WRITE(1,2)
    2 FORMAT(5X,5HBEGIN,10H1234567890,6HMIDDLE,5HBEGIN,10H1234567890,
     16HMIDDLE,5HBEGIN,10H1234567890,6HMIDDLE,5HBEGIN,10H1234567890,
     26HMIDDLE//5X,49H******************** ******************** *******,
     334H************* ********************/5X,1H@,18X,3H@ @,18X,3H@ @,
     418X,3H@ @,18X,1H@/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/5X,
     51H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/5X,17H@    THIS    IS  ,
     662H  @ @    THIS    IS    @ @    THIS    IS    @ @    THIS    IS ,
     73X,1H@/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/5X,8H@    ALL,
     862H A TEST    @ @    ALL A TEST    @ @    ALL A TEST    @ @    AL,
     913HL A TEST    @/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/5X,
     162H@    OF     THE    @ @    OF     THE    @ @    OF     THE    @,
     221H @    OF     THE    @/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,
     31H@/5X,9H@    MASK,10X,11H@ @    MASK,10X,11H@ @    MASK,10X,2H@ ,
     49H@    MASK,10X,1H@/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/
     55X,12H@    COMMAND,7X,14H@ @    COMMAND,7X,14H@ @    COMMAND,7X,
     614H@ @    COMMAND,7X,1H@/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,
     71H@/5X,1H@,18X,3H@ @,18X,3H@ @,18X,3H@ @,18X,1H@/5X,1H@,18X,3H@ @,
     818X,3H@ @,18X,3H@ @,18X,1H@/5X,31H******************** **********,
     952H********** ******************** ********************)
      END
%TEST 34
    1 FORMAT(4H ONE,8X,4H*ONE,8X,4H*ONE,8X,1H*/4H TWO,8X,4H*TWO,8X,2H*T,
     12HWO,8X,1H*)
%TEST 35
      WRITE(1,1)
    1 FORMAT(38H1    *=============*ABCDEFGHIJKL   *==,
     124H===========*ABCDEFGHIJKL/5X,1H*,13X,7H*ABCDEF,
     210HGHIJKL   *,13X,13H*ABCDEFGHIJKL/5X,8H* This  ,
     345Hshows *ABCDEFGHIJKL   * This  shows *ABCDEFGH,
     44HIJKL/5X,5H* how,9X,21H*ABCDEFGHIJKL   * how,9X,
     513H*ABCDEFGHIJKL/5X,2H* ,5H.MASK,12Hand    *ABCD,
     613HEFGHIJKL   * ,5H.MASK,20Hand    *ABCDEFGHIJKL/
     75X,2H* ,5H.COPY,25HCommandsABCDEFGHIJKL   * ,
     85H.COPY,20HCommandsABCDEFGHIJKL/5X,7H* work.,7X,
     923H*ABCDEFGHIJKL   * work.,7X,13H*ABCDEFGHIJKL/
     15X,1H*,13X,17H*ABCDEFGHIJKL   *,13X,9H*ABCDEFGH,
     24HIJKL/5X,35H*=============*ABCDEFGHIJKL   *====,
     322H=========*ABCDEFGHIJKL//7X,3HNot,6X,2Hin/7X,
     411Hrange    of/7X,7Heither.)
      END
%TEST 36
    1 FORMAT(4H ONE)
    2 FORMAT(/////4H TWO)
    3 FORMAT(/////6H THREE/////)
    4 FORMAT(1X)
    5 FORMAT(/////5H FOUR/////)
    6 FORMAT(5H FIVE/////)
%TEST 37
    1 FORMAT(4H ONE)
    1 FORMAT(4H TWO)
    1 FORMAT(6X,5HTHREE)
    1 FORMAT(5H FOUR)
    1 FORMAT(5H FIVE)
    1 FORMAT(6X,3HSIX)
    1 FORMAT(6H SEVEN/)
    1 FORMAT(6H EIGHT/)
    1 FORMAT(6X,4HNINE/)
%TEST 38
      WRITE(1,1)
    1 FORMAT(15H THIS IS A TEST,6X,14HTHIS IS A TEST/15H *    THE MASK ,
     14X,1H*/8H NO MASK)
    2 FORMAT(12H SOME MORE A,5HTHREE,1HB)
      END
%test 39
      WRITE(1,1)
    1 FORMAT(7H nofill/16H flag capitalize/19H ABcdABcdTHISthataB/3H AB,
     116HcdABcdTHISTHATaB/20H no flags capitalize/18H ABcdABcd<this<tha,
     23HtaB/21H ABcdABcd<THIS<THATaB/19H no flags lowercase/9H \\ABcdAB,
     314Hcd<THIS<THATaB/21H ABcdABcd<THIS<THATaB/19H no flags uppercase/
     427H \\^a^bcd^A^Bcd<THIS<THATaB/27H ^^^a^bcd^A^Bcd<THIS<THATaB/1H ,
     59Hflags all/27H \\^a^bcd^A^Bcd<THIS<THATaB/19H ^^^a^bcd^A^Bcd<THI,
     68HS<THATaB/17H flags capitalize/27H \\^a^bcd^A^Bcd<THIS<THATaB/
     727H ^^^a^bcd^A^Bcd<THIS<THATaB/25H \\^a^bcd^A^BcdTHISTHATaB/3H ^^,
     822H^a^bcd^A^BcdTHISTHATaB/9H no flags/17H flags capitalize/4H \\^,
     925Ha^bcd^A^Bcd<THIS<THAT_a_B/29H ^^^a^bcd^A^Bcd<THIS<THAT_a_B/1H ,
     128H\\^a^bcd^A^Bcd%THIS%THAT_a_B/29H ^^^a^bcd^A^Bcd%THIS%THAT_a_B/
     210H flags all/27H \\^a^bcd^A^Bcd<THIS<THATaB/17H ^^^a^bcd^A^Bcd<T,
     310HHIS<THATaB/25H \\^a^bcd^A^BcdTHISTHATaB/19H ^^^a^bcd^A^BcdTHIS,
     46HTHATaB/14H flags quote  /5H ^&#*/13H flag quote  /7H ABCDEF/1H ,
     513Hflags space  /8H abc def/15H flag control @/6X,12Hthis is a te,
     612Hst of indent/10H .INDENT 5/25H THIS IS A TEST OF INDENT/28X,
     76HCENTER/27X,8HINDENT 5)
      END
%test 40
    1 FORMAT(4H,one/4H two/6H,three/5H,four/5H five/4H six/6H*seven/1H,,
     15Height/5H,nine/4H*ten/7H,eleven/7H twelve)
%TEST 41
      WRITE(1,1)
    1 FORMAT(10X,40Hthis is a test of  the  left  and  right/10X,4Hmarg,
     129Hin commands as is all of this/29Hand this follows these  same ,
     231H commands  issued  without  any/17Harguments at all./7Hnow we ,
     362Hset the right margin to 70 and test that it si really  gone  t,
     41Ho/11Hthe amount./43Hand here we set it back to 50 and test that,
     57H it has/25Hreally gone back that far/23Hand this is a test of t,
     647Hhe right margin command  again  issued  without/11Hany argumen,
     78Ht at all)
      END
%TEST 42
    1 FORMAT(14X,4Hthis/11X,4Hthat/8X,4Hthen/16X,5Hthose)