Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50510/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 expected  when  the
test cases  are  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)
      WRITE(1,20)
   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(/37H Leading  blank  lines  requested  by,
     124H  .SKIP   commands   are/17H generated within,
     232H 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(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.)
    1 IF(KONTRL.EQ.1)WRITE(1,  2)
    2 FORMAT(31H The  .PREFACE  command  allows/4H sev,
     127Heral    FORMAT   statements)
    3 IF(KONTRL.EQ.1)WRITE(1,  4)
    4 FORMAT(31H representing a single  section/4H of ,
     127H text  to be used under the)
    5 IF(KONTRL.EQ.1)WRITE(1,  6)
    6 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)
%.COMMENT EXAMPLE FROM MANUAL
    1 FORMAT(38H This sentence is followed by a  simpl,
     117He  comment.   THE/24H COMMENT  WHICH  APPEARS,
     231H  AFTER  THIS  WORD  contains a/10H double ba,
     345Hckslash which selects  upper  to  lower  case/
     445H conversion  in  the following text.  the com,
     510Hment which/31H appears after this word CONTAI,
     624HNS A  DOUBLE  CIRCUMFLEX/17H WHICH  RESTORES ,
     738H THE RETENTION OF ORIGINAL CASES.  The/4H cha,
     845Hracters which select case conversion  or  ret,
     96Hention/36H are  acted  upon  even  though the ,
     119Hcommands which have/22H been commented out ar,
     220He otherwise ignored.)
%.END DEFINITION EXAMPLE FROM MANUAL
C     THIS IS INSERTED BEFORE EACH NEW GROUP OF FORMATS
      WRITE(ITTY,100)
C     THIS IS INSERTED BEFORE EACH NEW FORMAT STATEMENT
      WRITE(ITTY,1)
    1 FORMAT(38H This text will be in the first format,
     110H statment.)
C     THIS IS INSERTED BEFORE EACH NEW FORMAT STATEMENT
      WRITE(ITTY,2)
    2 FORMAT(38H This comes after the first CONTINUE c,
     17Hommand.)
C     THIS IS INSERTED BY A PROGRAM COMMAND
C     THIS IS INSERTED BEFORE EACH NEW FORMAT STATEMENT
      WRITE(ITTY,3)
    3 FORMAT(38H This comes after the second CONTINUE ,
     18Hcommand.)
C     THIS IS INSERTED BEFORE EACH NEW GROUP OF FORMATS
      WRITE(ITTY,100)
C     THIS IS INSERTED BEFORE EACH NEW FORMAT STATEMENT
      WRITE(ITTY,4)
    4 FORMAT(33H This comes after a TEXT command.)
%.DEFINE PREFACE EXAMPLE FROM MANUAL
C
C     THIS IS A NEW FORMAT STATEMENT
      WRITE(ITTY,1)
    1 FORMAT(38H This is some text which will demonstr,
     123Hate  the  insertion  of/18H several  lines  o,
     243Hf  FORTRAN  code  before  each  new  FORMAT/
     345H statement.  The code  which  is  inserted  c,
     416Han  contain  any)
C
C     THIS IS A NEW FORMAT STATEMENT
      WRITE(ITTY,2)
    2 FORMAT(38H desired mixture of comments and FORTR,
     116HAN instructions.)
C
C     THIS IS A NEW FORMAT STATEMENT
      WRITE(ITTY,3)
    3 FORMAT(33H This comes after a .TEXT command)
C
C     THIS IS A NEW FORMAT STATEMENT
      WRITE(ITTY,4)
    4 FORMAT(38H and this comes after a .CONTINUE comm,
     14Hand.)
%.RESUME PREFACE EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(38H This text comes after the definition ,
     123Hof a  preface  line  by/18H the .PREFACE comm,
     24Hand.)
    2 FORMAT(38H This text comes after the .NO PREFACE,
     123H command.   There  will/18H not be a preface ,
     224Hline before this FORMAT.)
      WRITE(ITTY,3)
    3 FORMAT(38H This text comes after  the  .RESUME  ,
     123HPREFACE  command.   The/18H preface line will,
     233H again appear before this FORMAT.)
%.DEFINE GROUP EXAMPLE FROM MANUAL
C
C     NEXT MESSAGE
      GO TO 1000
    1 CONTINUE
      WRITE(ITTY,2)
    2 FORMAT(38H The first FORMAT statement which is g,
     118Henerated should be/23H preceded by both group,
     235H and preface lines even though this)
      WRITE(ITTY,3)
    3 FORMAT(38H text is not preceded by either a .TEX,
     116HT or a .CONTINUE/9H command.)
      WRITE(ITTY,4)
    4 FORMAT(38H This text appears after a .CONTINUE c,
     121Hommand.  It should be/20H preceded by preface,
     221H but not group lines.)
C
C     NEXT MESSAGE
      GO TO 1000
  100 CONTINUE
      WRITE(ITTY,101)
  101 FORMAT(38H This text appears after a .TEXT comma,
     116Hnd and should be/25H preceded by both group a,
     217Hnd preface lines.)
%.GROUP EXAMPLE FROM MANUAL
      GO TO 1000
    1 WRITE(ITTY,2)
    2 FORMAT(38H This is the  first  text  in  the  ex,
     123Hample.   It  should  be)
    3 WRITE(ITTY,4)
    4 FORMAT(38H preceded by both a group and a prefac,
     17He line.)
    5 WRITE(ITTY,6)
    6 FORMAT(38H This text follows a .CONTINUE command,
     11H.)
      GO TO 1000
  100 WRITE(ITTY,101)
  101 FORMAT(35H This text follows a .TEXT command.)
%.NO GROUP EXAMPLE FROM MANUAL
      GO TO 1000
    1 WRITE(1,2)
    2 FORMAT(23H This is the first line)
      GO TO 1000
    3 WRITE(1,4)
    4 FORMAT(24H This is the second line)
    5 WRITE(1,6)
    6 FORMAT(23H This is the third line)
%.RESUME GROUP EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(38H This text comes after the definition ,
     123Hof a group line by  the/16H .GROUP command.)
    2 FORMAT(38H This text comes after the .NO GROUP c,
     123Hommand.  There will not/18H be a group line b,
     218Hefore this FORMAT.)
      WRITE(ITTY,3)
    3 FORMAT(38H This text comes after the .RESUME GRO,
     123HUP command.  The  group/18H line will again a,
     225Hppear before this FORMAT.)
%.BOTTOM EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(13H1This is some/12H text on the/6H first,
     16H page./11H It will be/12H filled with)
      READ(ITTY,999)LTRDMY
      WRITE(ITTY,2)
    2 FORMAT(11H1relatively/13H little text.)
      READ(ITTY,999)LTRDMY
      WRITE(ITTY,3)
    3 FORMAT(11H1This comes/15H after the page/5H comm,
     14Hand.)
  999 FORMAT(1A1)
      END
%.PAGE CARRIAGE EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(13H1This is on a/13H-fixed length/5H-page,
     11H./1H-/1H-)
      WRITE(ITTY,2)
    2 FORMAT(14H+Paging is not/6H+being/11H+performed ,
     12Hat/12H+this point./1H+)
      WRITE(ITTY,3)
    3 FORMAT(15H1A page command/13H-started this/3H-pa,
     18Hge which/13H-will not end/14H-after a fixed/
     210H-number of/7H-lines.)
%.PAGE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(15H1This page will/14H be terminated/2H e,
     15Harly.//)
      WRITE(1,2)
    2 FORMAT(14H1This sentence/15H is long enough/2H t,
     111Hhat it will/11H have to be/15H continued onto)
      WRITE(1,3)
    3 FORMAT(15H1a second page.)
%.TOP EXAMPLE FROM MANUAL
      ITTY=5
      WRITE(ITTY,100)
      WRITE(ITTY,1)
    1 FORMAT(15H This page will/14H be terminated/2H e,
     15Harly.//)
      WRITE(ITTY,101)
      READ(ITTY,102)LTRDMY
      WRITE(ITTY,100)
      WRITE(ITTY,2)
    2 FORMAT(14H This sentence/15H is long enough/2H t,
     111Hhat it will/11H have to be/15H continued onto)
      WRITE(ITTY,101)
      READ(ITTY,102)LTRDMY
      WRITE(ITTY,100)
      WRITE(ITTY,3)
    3 FORMAT(15H a second page.////)
      WRITE(ITTY,101)
      READ(ITTY,102)LTRDMY
  100 FORMAT('1Sample Screen'/)
  101 FORMAT(/' Press RETURN',$)
  102 FORMAT(1A1)
      END
%NO PAGE CARRIAGE EXAMPLE FROM MANUAL
      WRITE(1,1)
    1 FORMAT(15H1This is double/1H+/14H+spaced on the/
     11H+/12H+first page.)
      WRITE(1,2)
    2 FORMAT(15H This has space/1X/12H as carriage/1X/
     19H control.)
      WRITE(1,3)
    3 FORMAT(14H This does not//14H have carriage//1H ,
     18Hcontrol.)
%PAGE POSITION COMMAND EXAMPLE FROM MANUAL
      DATA ITTY/5/
      KOUNT=0
      CALL HELP(ITTY,1)
      DO 2 LINE=1,4
      KOUNT=KOUNT+1
      WRITE(ITTY,1)KOUNT
    1 FORMAT(' INSERT',1I3)
    2 CONTINUE
      CALL HELP(ITTY,2)
      DO 4 LINE=1,3
      KOUNT=KOUNT+1
      WRITE(ITTY,3)KOUNT
    3 FORMAT(' INSERT',1I3)
    4 CONTINUE
      CALL HELP(ITTY,3)
      DO 6 LINE=1,4
      KOUNT=KOUNT+1
      WRITE(ITTY,5)KOUNT
    5 FORMAT(' INSERT',1I3)
    6 CONTINUE
      CALL HELP(ITTY,4)
      STOP
      END
      SUBROUTINE HELP(ITTY,KIND)
      GO TO(100,200,300,400),KIND
  100 CONTINUE
      WRITE(ITTY,1)
      GO TO 4
C
C     AFTER FIRST INSERTION
  200 CONTINUE
      WRITE(ITTY,501)
  501 FORMAT(14H This is after)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,502)
  502 FORMAT(15H 1st insertion.)
      GO TO 4
C
C     AFTER SECOND INSERTION
  300 CONTINUE
      WRITE(ITTY,503)
  503 FORMAT(14H This is after)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,504)
  504 FORMAT(15H 2nd insertion.)
      GO TO 4
C
C     AFTER THIRD INSERTION
  400 CONTINUE
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
    1 FORMAT('1Read message')
    2 FORMAT(' Press RETURN',$)
    3 FORMAT(1A1)
    4 RETURN
      END
%PAGING EXAMPLE FROM MANUAL
      DATA ITTY/5/
      WRITE(ITTY,100)
  100 FORMAT(15H This text will/15H not be divided/1H ,
     111Hinto pages./15H-This text will/11H-be split i,
     23Hnto)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,101)
  101 FORMAT(15H+pages and will/13H-use carriage/3H-co,
     112Hntrol set by/15H-PAGE CARRIAGE./10H-Text set ,
     22Hby)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,102)
  102 FORMAT(15H+TOP and BOTTOM/14H-commands will/2H-b,
     113He inserted at/15H-page boundary./9H This tex,
     26Ht will/15H not be divided/12H into pages.)
    1 FORMAT('1Read message')
    2 FORMAT(' Press RETURN',$)
    3 FORMAT(1A1)
      END
%TEST SPACING EXAMPLE FROM MANUAL
      DATA ITTY/5/
      WRITE(ITTY,100)
  100 FORMAT(13H TEST SPACING//13H commands are////)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,101)
  101 FORMAT(13H+intersperced/1H-/13H-amoung these/1H-/
     11H-/1H-/1H-)
      WRITE(ITTY,2)
      READ(ITTY,3)LTRRTN
      WRITE(ITTY,1)
      WRITE(ITTY,102)
  102 FORMAT(14H+double spaced/1H-/15H-lines of text./
     11H-)
    1 FORMAT('1Read message')
    2 FORMAT(' Press RETURN',$)
    3 FORMAT(1A1)
      END
%TRAILING COMMAND EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(11H1A TRAILING/15H command hasn't/5H been,
     18H issued.)
      WRITE(ITTY,2)
    2 FORMAT(11H1A TRAILING/15H command is now/5H acti,
     13Hve.//)
      WRITE(ITTY,3)
    3 FORMAT(11H1This comes/15H after the TEST/5H PAGE,
     19H command.)
%LEADING COMMAND EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(10H1A LEADING/15H command hasn't/6H been ,
     17Hissued.)
      WRITE(ITTY,2)
    2 FORMAT(1H1/10H A LEADING/15H command is now/2H a,
     16Hctive./)
      WRITE(ITTY,3)
    3 FORMAT(1H1/13H Both LEADING/13H and TRAILING/1H ,
     111Hare active.)
%PAGE LENGTH EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(15H1This page will/11H end with a/5H PARA,
     15HGRAPH/9H command./)
      WRITE(ITTY,2)
    2 FORMAT(15H1     This page/14H will end with/2H a,
     110H TEST PAGE/9H command./)
      WRITE(ITTY,3)
    3 FORMAT(11H1This final/14H page will end/6H with ,
     16Ha PAGE/9H command./)
%PARAGRAPH EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(25H1     This   demonstrates/9H that    ,
     116Hthe   .PARAGRAPH/25H commands checks if there/
     225H is  enough  room  at the/16H bottom of the p,
     39Hage for a/25H reasonable   number   of/5H line,
     416Hs to be printed.///)
      READ(ITTY,101)IPAUSE
      WRITE(ITTY,2)
    2 FORMAT(25H1     This   follows    a/9H .PARAGRA,
     12HPH,6X,8Hcommand./25H There wasn't enough room/
     225H on  the  first  page for/16H this paragraph./
     3/6X,19HThis also follows a/11H .PARAGRAPH,6X,1Hc,
     47Hommand./25H However, There is enough/7H room o,
     518Hn the page for it.)
      READ(ITTY,101)IPAUSE
  101 FORMAT(1A1)
%.SKIP WITH NEGATIVE ARGUMENT EXAMPLE FROM MANUAL
      WRITE(ITTY,1)
    1 FORMAT(25H1This is single spaced at/9H the top ,
     112Hof the page.///////23H This is single spaced ,
     22Hat/24H the bottom of the page.)
      READ(ITTY,101)IPAUSE
      WRITE(ITTY,2)
    2 FORMAT(25H1This is double spaced at//9H the top ,
     112Hof the page./////25H This is double spaced at/
     2/24H the bottom of the page.)
      READ(ITTY,101)IPAUSE
  101 FORMAT(1A1)
%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 20
   20 FORMAT(/6H THREE)
      TYPE 25
   25 FORMAT(/5H FOUR)
FIVE 30
SIX 30
SEVEN 40
EIGHT 40
      TYPE 40
   40 FORMAT(/9H NINE TEN)
      TYPE 44
   44 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 20
   20 FORMAT(6H THREE)
      TYPE 25
   25 FORMAT(/5H FOUR/)
FIVE 30
SIX 30
SEVEN 40
EIGHT 40
      TYPE 40
   40 FORMAT(9H NINE TEN)
      TYPE 44
   44 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)
%TEST 43
    1 FORMAT(33H THIS TEXT IS ACCUMULATED IN FILL,
     128H MODE.   AS  IT  THIS.   AND/6H THIS./6X,
     240HTHIS LINE FOLLOWS AN EMPTY LINE AFTER A ,
     38HCOMMAND./6X,26HTHIS LINE FOLLOWS ANOTHER ,
     419HEMPTY LINE AFTER  A/6X,14HCOMMAND.   THI,
     531HS  LINE  FOLLOWS AN EMPTY LINE./6X,3HTHI,
     632HS LINE FOLLOWS AN EMPTY COMMAND.)
%TEST 44
    1 FORMAT(33H THIS TEXT IS ACCUMULATED IN FILL,
     128H MODE.   AS  IT  THIS.   AND//6H THIS.//
     26X,37HTHIS LINE FOLLOWS AN EMPTY LINE AFTER,
     311H A COMMAND.//6X,21HTHIS LINE FOLLOWS ANO,
     424HTHER EMPTY LINE AFTER  A//6X,9HCOMMAND. ,
     536H  THIS  LINE  FOLLOWS AN EMPTY LINE.//6X,
     635HTHIS LINE FOLLOWS AN EMPTY COMMAND.)
%TEST 45
    1 FORMAT(33H INITIAL LINE BEFORE THE NOFILL C,
     16HOMMAND//13H A FIRST LINE//11H A 3RD LINE//
     211H A 5TH LINE//9H 7TH LINE//11H NINTH LINE/
     3/14H ELEVENTH LINE//16H THIRTEENTH LINE//
     415H FIFTEENTH LINE//17H SEVENTEENTH LINE/)
%TEST 46
    1 FORMAT(33H INITIAL LINE BEFORE THE NOFILL C,
     16HOMMAND///11H FIRST LINE////11H THIRD LINE/
     2///11H A 5TH LINE////17H AND THE 7TH LINE///
     3/17H AND A NINTH LINE////14H ELEVENTH LINE//
     4//16H THIRTEENTH LINE////15H FIFTEENTH LINE/
     5///17H SEVENTEENTH LINE//)
%TEST 47
    1 FORMAT(33H INITIAL LINE BEFORE THE NOFILL C,
     16HOMMAND////9H 1ST LINE//////9H 3RD LINE////
     2//11H FIFTH LINE//////16H OR SEVENTH LINE///
     3///13H A NINTH LINE//////14H ELEVENTH LINE//
     4////16H THIRTEENTH LINE//////11H FIFTEENTH ,
     54HLINE//////17H SEVENTEENTH LINE///)
%TEST 48
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(////29H LINE AFTER NULL LINE AFTER F,
     113HORMAT COMMAND)
%TEST 49
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(///30H LINE AFTER NULL LINE AFTER FO,
     112HRMAT COMMAND)
%TEST 50
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(////29H LINE AFTER NULL LINE AFTER F,
     113HORMAT COMMAND)
%TEST 51
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(/////////24H LINE AFTER NULL LINE AF,
     118HTER FORMAT COMMAND)
%TEST 52
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(///////24H LINE TO RIGHT OF FORMAT//
     140H LINE AFTER NULL LINE AFTER FORMAT COMMA,
     22HND)
%TEST 53
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(///////26H LINE TO RIGHT OF FORMAT L,
     135HINE AFTER NULL  LINE  AFTER  FORMAT//1H ,
     27HCOMMAND)
%TEST 54
    1 FORMAT(33H INITIAL LINE BEFORE THE PROGRAM ,
     17HCOMMAND)
 
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
 
LINE AFTER EMPTY LINE IN PROGRAM SECTION
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
 
LINE AFTER BLANK LINE AND SKIP COMMAND
 
LINE AFTER SKIP COMMAND AND BLANK LINE
    2 FORMAT(/////////24H LINE AFTER NULL LINE AF,
     118HTER FORMAT COMMAND)
%TEST 55
    1 FORMAT(////////11H FIRST LINE////8H SECOND ,
     14HLINE////11H THIRD LINE//////10H FOURTH LI,
     22HNE//////11H FIFTH LINE////////9H SIXTH LI,
     32HNE////////13H SEVENTH LINE////////)
%TEST 56
    1 FORMAT(//////)
%TEST 57
    1 FORMAT(///////)
%TEST 58
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/10H SIX SEVEN)
%TEST 59
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/10H SIX SEVEN)
%TEST 60
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(///10H SIX SEVEN)
%TEST 61
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/10H SIX SEVEN/)
%TEST 62
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/10H SIX SEVEN)
%TEST 63
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(///10H SIX SEVEN/)
%TEST 64
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/4H SIX//6H SEVEN)
%TEST 65
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/4H SIX/6H SEVEN)
%TEST 66
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(///4H SIX//6H SEVEN)
%TEST 67
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/4H SIX//6H SEVEN/)
%TEST 68
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(/4H SIX/6H SEVEN)
%TEST 69
    1 FORMAT(4H ONE)
TWO
THREE
FOUR
FIVE
    2 FORMAT(///4H SIX//6H SEVEN/)
%TEST 70
+++THIS IS A PROGRAM LINE+++
---THIS IS A PREFACE LINE---
    1 FORMAT(2H 1/2H 2////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    2 FORMAT(2H 3/2H 4////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    3 FORMAT(2H 5/2H 6////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    4 FORMAT(2H 7/2H 8////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    5 FORMAT(2H 9/3H 10/3H 11)
+++THIS IS A PROGRAM LINE+++
---THIS IS A PREFACE LINE---
    6 FORMAT(3H 12/3H 13/3H 14/3H 15/3H 16/3H 17/3H 18)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    7 FORMAT(3H 19/3H 20////////)
***THIS IS AN BOTTOM LINE***
%TEST 71
+++THIS IS A PROGRAM LINE+++
---THIS IS A PREFACE LINE---
    1 FORMAT(2H 1/2H 2/2H 3/2H 4/2H 5/2H 6////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    2 FORMAT(2H 1/2H 2/2H 3/2H 4/2H 5/2H 6////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    3 FORMAT(2H 1)
%TEST 72
+++THIS IS A PROGRAM LINE+++
---THIS IS A PREFACE LINE---
    1 FORMAT(2H 1//2H 3//2H 5////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    2 FORMAT(2H 1//2H 3//2H 5////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    3 FORMAT(2H 1//2H 3//2H 5/////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    4 FORMAT(2H 1//2H 3//2H 5/////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    5 FORMAT(2H 1//2H 3//2H 5//2H 7////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    6 FORMAT(2H 1//2H 3//2H 5//2H 7////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    7 FORMAT(2H 1/)
%TEST 73
    1 FORMAT(2H 1/2H 2/2H 3/
     12H 4)
***This is the bottom of the page***
    2 FORMAT(2H 5)
    3 FORMAT(2H11/2H*2/2H*3/
     12H*4)
***This is the bottom of the page***
    4 FORMAT(2H15)
    5 FORMAT(2H11/2H*2/2H*3/
     12H*4)
***This is the bottom of the page***
    6 FORMAT(2H15)
    7 FORMAT(2H21/2H 2/2H 3/
     12H 4)
***This is the bottom of the page***
    8 FORMAT(2H25)
    9 FORMAT(2H21/2H 2/2H 3/
     12H 4)
***This is the bottom of the page***
   10 FORMAT(2H25)
%TEST 74
    1 FORMAT(2H+1/2H=2/2H=3/
     12H=4)
***This is the bottom of the page***
    2 FORMAT(2H 5/6H FIRST)
    3 FORMAT(2H=1/2H=2/2H=3/
     12H=4)
***This is the bottom of the page***
    4 FORMAT(2H15/7H*SECOND)
    5 FORMAT(2H=1/2H=2/2H=3/
     12H=4)
***This is the bottom of the page***
    6 FORMAT(2H15/6H*THIRD)
    7 FORMAT(2H=1/2H=2/2H=3/
     12H=4)
***This is the bottom of the page***
    8 FORMAT(2H25/7H FOURTH)
    9 FORMAT(2H=1/2H=2/2H=3/
     12H=4)
***This is the bottom of the page***
   10 FORMAT(2H25/6H FIFTH)
%TEST 75
    1 FORMAT(2H11/2H22/2H23/
     12H24/2H25/2H26)
***BOTTOM OF PAGE***
    2 FORMAT(2H37/2H48/2H49/
     13H410)
***BOTTOM OF PAGE***
    3 FORMAT(3H311/3H412/2H21,
     11H3/3H214/3H215/3H216)
***BOTTOM OF PAGE***
    4 FORMAT(3H317/3H418/2H61,
     11H9/3H620/3H621/3H622/
     23H623/3H624/3H725/3H826/
     33H827)
***BOTTOM OF PAGE***
    5 FORMAT(3H528/3H629/2H63,
     11H0)
%TEST 76
---This is a new format statement---
    1 FORMAT(13H This  is  ju,
     18Hst  some/9H text    ,
     212Hwhich   will/5H serv,
     316He to test if the)
---This is a new format statement---
    2 FORMAT(13H carriage    ,
     18H control)
***This is the bottom of the page***
---This is a new format statement---
    3 FORMAT(10H insertion,6X,
     15Hworks/12H properly  i,
     29Hn the new/9H paging  ,
     33X,9Hcommands.)
---This is a new format statement---
    4 FORMAT(13H This   is  a,
     18H  second)
***This is the bottom of the page***
---This is a new format statement---
    5 FORMAT(13H line in this,
     18H test of/4H the,9X,
     28Hcarriage/9H control.)
---This is a new format statement---
    6 FORMAT(13H1This  is  ju,
     18Hst  some/9H*text    ,
     212Hwhich   will/5H*serv,
     316He to test if the)
---This is a new format statement---
    7 FORMAT(13H*carriage    ,
     18H control)
***This is the bottom of the page***
---This is a new format statement---
    8 FORMAT(10H1insertion,6X,
     15Hworks/12H*properly  i,
     29Hn the new/9H*paging  ,
     33X,9Hcommands.)
---This is a new format statement---
    9 FORMAT(13H*This   is  a,
     18H  second)
***This is the bottom of the page***
---This is a new format statement---
   10 FORMAT(13H1line in this,
     18H test of/4H*the,9X,
     28Hcarriage/9H*control.)
---This is a new format statement---
   11 FORMAT(13H1This is in t,
     18Hhe third/9H*paragrap,
     212Hh   in   the/5H*test,
     34X,12Hcase.     It)
---This is a new format statement---
   12 FORMAT(13H*checks     i,
     18Hf    the)
***This is the bottom of the page***
---This is a new format statement---
   13 FORMAT(13H1carriage ret,
     18Hurn  has/9H*been kep,
     22Ht.)
---This is a new format statement---
   14 FORMAT(13H2This should ,
     18Hhave the/9H page car,
     212Hriage set to/5H 2 bu,
     316Ht  there  should)
---This is a new format statement---
   15 FORMAT(13H not  be  any,
     18H  on the)
***This is the bottom of the page***
---This is a new format statement---
   16 FORMAT(12H2second line)
---This is a new format statement---
   17 FORMAT(13H2Again, this ,
     18His after/9H a  begin,
     212H  statement./5H It s,
     316Hhould also  have)
---This is a new format statement---
   18 FORMAT(13H the  carriag,
     18He set to)
***This is the bottom of the page***
---This is a new format statement---
   19 FORMAT(13H22 but  none ,
     18H on  the/9H followin,
     28Hg lines.)
%TEST 77
---PREFACE BEFORE STATEMENT 100
  100 FORMAT(13H This  is  af,
     18Hter  the/7H format,8X,
     26H100,10/8H command)
---PREFACE BEFORE STATEMENT 110
  110 FORMAT(13H This  is  af,
     18Hter  the/7H second,8X,
     26Hformat/8H command)
This is some program text before statement 120
---PREFACE BEFORE STATEMENT 120
  120 FORMAT(13H This  is  af,
     18Hter  the/9H third fo,
     212Hrmat command/2H 1/
     32H 2/2H 3/2H 4)
---BOTTOM CONTAINS STATEMENT 130
---PREFACE BEFORE STATEMENT 130
  130 FORMAT(2H 5/2H 6/2H 7/
     12H 8)
---BOTTOM CONTAINS STATEMENT 140
---PREFACE BEFORE STATEMENT 140
  140 FORMAT(2H 9/3H 10/3H 11/
     13H 12)
---BOTTOM CONTAINS STATEMENT 150
---PREFACE BEFORE STATEMENT 150
  150 FORMAT(3H 13/3H 14//)
---BOTTOM CONTAINS STATEMENT 160
%TEST 78
PROGRAM A100B 100C883D1345E  44F 178G100-90H 100+12I
PROGRAM I100H 100G883F1345E  44D 178C100-90B 100+12A
PREFACE A100B 100C883D1345E  44F 178G100-90H 100+12I
  100 FORMAT(2H 1/2H 2/2H 3/
     12H 4)
BOTTOM  I110H 110G983F1445E  54D 188C110-90B 110+12A
PREFACE A110B 110C983D1445E  54F 188G110-90H 110+12I
  110 FORMAT(2H 5/2H 6/2H 7/
     12H 8)
BOTTOM  I120H 120G1083F1545E  64D 198C120-90B 120+12A
%TEST 79
FIRST LINE OF PREFACE BEFORE STATEMENT  100.
SECOND LINE OF PREFACE BEFORE STATEMENT 100.
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $.
  100 FORMAT(13H START OF FIR,
     120HST LINE END OF FIRST,
     25H LINE/2H 2/2H 3/2H 4)
FIRST LINE OF PREFACE BEFORE STATEMENT  110.
SECOND LINE OF PREFACE BEFORE STATEMENT 110.
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $.
  110 FORMAT(2H 5/2H 6/2H 7/
     12H 8)
FIRST LINE OF PREFACE BEFORE STATEMENT  120.
SECOND LINE OF PREFACE BEFORE STATEMENT 120.
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $.
  120 FORMAT(2H 9/3H 10/3H 11/
     13H 12)
  130 FORMAT(3H 13/3H 14/2H 1,
     11H5/3H 16)
  140 FORMAT(13H START OF 17T,
     120HH LINE END OF 17TH L,
     23HINE/3H 18/3H 19/3H 20)
FIRST LINE OF BOTTOM BEFORE STATEMENT  150.
SECOND LINE OF BOTTOM BEFORE STATEMENT 150.
 
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR $.
  150 FORMAT(3H 21/3H 22/2H 2,
     11H3/3H 24)
FIRST LINE OF BOTTOM BEFORE STATEMENT  160.
SECOND LINE OF BOTTOM BEFORE STATEMENT 160.
 
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR $.
  160 FORMAT(3H 25/3H 26/2H 2,
     11H7/3H 28)
  170 FORMAT(3H 29)
%TEST 80
    1 FORMAT(33H 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
%TEST 81
      WRITE(ITTY,1)
    1 FORMAT(13H This follows,
     112H a BEGIN and/5H a   ,
     220H PREFACE    command./
     320H Paging  has   not  ,
     45H been/11H turned on.//
     5////////////////)
      IF(ITEST.NE.0)GO TO 2
      CALL CRTWIP(ITTY)
    2 CONTINUE
      WRITE(ITTY,2)
    2 FORMAT(13H1This  follow,
     112Hs   a   PAGE/5H+comm,
     220Hand     which     is/
     320H+somewhat after the ,
     45HBEGIN/9H+command.)
      WRITE(ITTY,3)
    3 FORMAT(13H1This  follow,
     112Hs  a  BEGIN,/5H+PREF,
     220HACE     and     PAGE/
     320H+command.   We  want,
     43X,2Hto/12H+make   sure,
     53X,10Hthat   the/4H+car,
     620Hriage  controls   ar,
     71He/16H+set   properly.,
     83X,6HPaging/9H+again   ,
     916Hhas   not   been/1H+,
     110Hturned on.)
      WRITE(ITTY,4)
    4 FORMAT(13H1This follows,
     112H a BEGIN and/5H+a   ,
     220H PREFACE    command./
     320H+Paging has  been  t,
     45Hurned/4H+on./1H+/1H+/
     51H+/1H+/1H+/1H+/1H+/1H+/
     61H+/1H+/1H+/1H+/1H+/1H+/
     71H+/1H+/1H+/1H+)
      IF(ITEST.NE.0)GO TO 5
      CALL CRTWIP(ITTY)
    5 CONTINUE
      WRITE(ITTY,5)
    5 FORMAT(13H1This  follow,
     112Hs   a   PAGE/5H+comm,
     220Hand     which     is/
     320H+somewhat after the ,
     45HBEGIN/9H+command.)
      WRITE(ITTY,6)
    6 FORMAT(13H1This  follow,
     112Hs  a  BEGIN,/5H+PREF,
     220HACE     and     PAGE/
     320H+command.   We  want,
     43X,2Hto/12H+make   sure,
     53X,10Hthat   the/4H+car,
     620Hriage  controls   ar,
     71He/16H+set   properly.,
     83X,6HPaging/9H+again  h,
     916Has  been  turned/1H+,
     13Hon.)
%TEST 82
PROGRAM   A*B*=123C*D*=+10E*F*=-20G*H
SHOULD BE A100BC123DE133FG113H
PROGRAM   A100BC123DE133FG113H
 
PROGRAM   A*=200B*C*=D*E*=F*G*=+H*I*=-J*
SHOULD BE AB200CD210EF220GH230IJ220
PROGRAM   AB200CD210EF220GH230IJ220
 
NEXT STATEMENT SHOULD BE NUMBER 220
  220 FORMAT(13H This should ,
     116Hbe in format 220/1H ,
     21H2/2H 3/2H 4)
  230 FORMAT(2H 5)
THIS IS SOME TEXT BEFORE STATEMENT 400
  400 FORMAT(13H THIS IS SOME,
     120H TEXT IN STATEMENT 4,
     22H00)
  430 FORMAT(13H THIS IS SOME,
     120H TEXT IN STATEMENT 4,
     22H30)
THIS SETS THE STATEMENT NUMBER TO 500
THE STATEMENT NUMBER ABOVE SHOULD BE 500 WHICH IS
THE NEXT STATEMENT NUMBER OF 460+40
  595 FORMAT(13H THIS SHOULD ,
     119HBE IN STATEMENT 595)
  600 FORMAT(13H IT IS BASED ,
     120HON THE CURRENT STATE,
     214HMENT OF 500+95)
  605 FORMAT(13H THIS SHOULD ,
     119HBE IN STATEMENT 605)
THIS IS BEFORE STATEMENT 700 
  700 FORMAT(13H THIS IS STAT,
     19HEMENT 700)
THIS IS BEFORE STATEMENT 700 
  700 FORMAT(13H THIS IS STAT,
     19HEMENT 700)
      IF(ITEST.EQ.0)GO TO 720
      CALL CRTWIP(ITTY)
  720 WRITE(ITTY,730)
  730 FORMAT(13H THIS IS STAT,
     19HEMENT 730)
      IF(ITEST.EQ.0)GO TO 735
      CALL CRTWIP(ITTY)
  735 WRITE(ITTY,745)
  745 FORMAT(13H THIS IS ANOT,
     113HHER STATEMENT)
      IF(ITEST.EQ.0)GO TO 750
      CALL CRTWIP(ITTY)
  750 WRITE(ITTY,760)
  760 FORMAT(13H THIS IS A SE,
     120HCOND STATEMENT IN RA,
     220HNGE OF 3 LINE PREFAC,
     31HE)
  765 FORMAT(13H THIS IS A NE,
     111HW STATEMENT)
  785 FORMAT(13H THIS IS AFTE,
     120HR A FORMAT+20 COMMAN,
     21HD)
%TEST 83
THIS IS PROGRAM STATEMENT 10
   10 FORMAT(13H THIS IS IN S,
     111HTATEMENT 10)
THIS IS PROGRAM STATEMENT 20
   25 FORMAT(13H THIS IS IN S,
     111HTATEMENT 25)
THIS IS PROGRAM STATEMENT 40
   45 FORMAT(13H THIS IS IN S,
     111HTATEMENT 45)
THIS IS PROGRAM 55
   55 FORMAT(13H THIS IS IN S,
     111HTATEMENT 55)
FORCE STATEMENT 700
  700 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 700///)
FORCE STATEMENT 700
  700 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 700///)
FORCE STATEMENT 700
  730 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 730///)
FORCE STATEMENT 700
  650 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 650///)
FORCE STATEMENT 700
   67 FORMAT(13H THIS SHOULD ,
     115HBE STATEMENT 67)
THE NUMBER 300 SHOULD APPEAR TO RIGHT 300
  300 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 300)
  310 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 310)
THE NUMBER 410 SHOULD APPEAR TO RIGHT 410
  410 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 410)
  415 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 415)
THE NUMBER 900 SHOULD APPEAR TO RIGHT 900
  910 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 910)
  935 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 935)
THE NUMBER 1200 SHOULD APPEAR TO RIGHT 1200
  300 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 300)
%TEST 84
FIRST LINE OF PREFACE BEFORE STATEMENT  100
SECOND LINE OF PREFACE BEFORE STATEMENT 100
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $
  100 FORMAT(13H START OF FIR,
     120HST LINE END OF FIRST,
     25H LINE/2H 2/2H 3/2H 4)
FIRST LINE OF PREFACE BEFORE STATEMENT  110
SECOND LINE OF PREFACE BEFORE STATEMENT 110
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $
  110 FORMAT(2H 5/2H 6/2H 7/
     12H 8)
*********
*THIS IS A TOP SECTION OF 3 LINES BEFORE STATEMENT 120
*********
FIRST LINE OF PREFACE BEFORE STATEMENT  120
SECOND LINE OF PREFACE BEFORE STATEMENT 120
 
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR $
  120 FORMAT(2H 9/3H 10/3H 11/
     13H 12)
***THIS IS A SINGLE LINE TOP BEFORE STATEMENT 130
  130 FORMAT(3H 13/3H 14/2H 1,
     11H5/3H 16)
***THIS IS A SINGLE LINE TOP BEFORE STATEMENT 140
  140 FORMAT(13H START OF 17T,
     120HH LINE END OF 17TH L,
     23HINE/3H 18/3H 19/3H 20)
FIRST LINE OF BOTTOM BEFORE STATEMENT  150.
SECOND LINE OF BOTTOM BEFORE STATEMENT 150.
 
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR $.
***THIS IS A SINGLE LINE TOP BEFORE STATEMENT 150
  150 FORMAT(3H 21/3H 22/2H 2,
     11H3/3H 24)
FIRST LINE OF BOTTOM BEFORE STATEMENT  160.
SECOND LINE OF BOTTOM BEFORE STATEMENT 160.
 
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR $.
  160 FORMAT(3H 25/3H 26/2H 2,
     11H7/3H 28)
  170 FORMAT(3H 29)
%TEST 85
***PREFACE LINE BEFORE 1
    1 FORMAT(2H 1/2H 2/2H 3/)
***BOTTOM LINE BEFORE 2
***TOP LINE BEFORE 2
***PREFACE LINE BEFORE 2
    2 FORMAT(13H11AFTER TEST ,
     16HPAGE 4/2H+2/2H+3/1H+)
***BOTTOM LINE BEFORE 3
***TOP LINE BEFORE 3
***PREFACE LINE BEFORE 3
    3 FORMAT(12H11AFTER PAGE/
     12H+2/14H+3AFTER PAGING)
***PREFACE LINE BEFORE 4
    4 FORMAT(2H+4)
***BOTTOM LINE BEFORE 5
***TOP LINE BEFORE 5
***PREFACE LINE BEFORE 5
    5 FORMAT(2H11/2H+2/2H+3/
     117H 4AFTER NO PAGING)
***PREFACE LINE BEFORE 6
    6 FORMAT(2H 5)
***BOTTOM LINE BEFORE 7
***TOP LINE BEFORE 7
***PREFACE LINE BEFORE 7
    7 FORMAT(12H11AFTER PAGE/
     12H+2/2H+3)
***PREFACE LINE BEFORE 8
    8 FORMAT(13H 1AFTER BEGIN/
     12H 2/2H 3/2H 4/2H 5)
%TEST 86
    5 FORMAT(27H This should be statement 5)
This appears after reset and program+10
   10 FORMAT(28H This should be statement 10)
This appears after reset and program+20
   25 FORMAT(28H This should be statement 25)
    5 FORMAT(27H This should be statement 5)
%TEST 87
THIS IS THE FIRST PROGRAM LINE BEFORE STATEMENT 1
THIS IS THE SECOND PROGRAM LINE BEFORE STATEMENT 1
THIS IS THE PROGRAM LINE AFTER THE PREFACE DEFINITION
THIS IS THE PROGRAM LINE AFTER THE BOTTOM DEFINITION
THIS IS THE FIRST PREFACE LINE BEFORE STATEMENT 1
THIS IS THE SECOND PREFACE LINE BEFORE STATEMENT 1
    1 FORMAT(55H This is some text which is to be in a FORMAT statement/
     12H 2/2H 3/2H 4)
THIS IS THE FIRST BOTTOM LINE BEFORE STATEMENT 2
THIS IS THE SECOND BOTTOM LINE BEFORE STATEMENT 2
THIS IS THE FIRST PREFACE LINE BEFORE STATEMENT 2
THIS IS THE SECOND PREFACE LINE BEFORE STATEMENT 2
    2 FORMAT(2H 1/2H 2/2H 3/2H 4)
This is the first line in second bottom definition
This is the second line in second bottom definition
This is the top line before statement 3
THIS IS THE FIRST PREFACE LINE BEFORE STATEMENT 3
THIS IS THE SECOND PREFACE LINE BEFORE STATEMENT 3
    3 FORMAT(2H 1/2H 2)
%TEST 88
GROUP BEFORE 1
TOP BEFORE 1
PREFACE BEFORE 1
    1 FORMAT(2H 1/2H 2/2H 3/2H 4)
BOTTOM BEFORE 2
TOP BEFORE 2
PREFACE BEFORE 2
    2 FORMAT(2H 1/2H 2//)
BOTTOM BEFORE 3
TOP BEFORE 3
PREFACE BEFORE 3
    3 FORMAT(12H 1AFTER PAGE/2H 2/2H 3)
PREFACE BEFORE 4
    4 FORMAT(14H 4AFTER FORMAT)
BOTTOM BEFORE 5
TOP BEFORE 5
PREFACE BEFORE 5
    5 FORMAT(2H 1/2H 2/2H 3)
GROUP BEFORE 6
TOP BEFORE 6
PREFACE BEFORE 6
    6 FORMAT(13H 1AFTER BEGIN/2H 2/2H 3/2H 4)
BOTTOM BEFORE 7
TOP BEFORE 7
PREFACE BEFORE 7
    7 FORMAT(2H 1)
PREFACE BEFORE 8
    8 FORMAT(14H 2AFTER FORMAT/2H 3/2H 4)
BOTTOM BEFORE 9
TOP BEFORE 9
PREFACE BEFORE 9
    9 FORMAT(2H 1/2H 2)
GROUP BEFORE 10
TOP BEFORE 10
PREFACE BEFORE 10
   10 FORMAT(13H 1AFTER BEGIN/2H 2/2H 3/2H 4)
BOTTOM BEFORE 11
TOP BEFORE 11
PREFACE BEFORE 11
   11 FORMAT(2H 1)
%TEST 89
TEST GARBAGE COLLECTION OF BOTTOM COMMAND
+++++++++++
+ GROUP 1 +
+++++++++++
---------
- TOP 1 -
---------
=============
= PREFACE 1 =
=============
    1 FORMAT(16H 1TEST OF BOTTOM/2H 2/2H 3/2H 4)
THIS IS THE NEW BOTTOM LINE 1A
---------
- TOP 1 -
---------
=============
= PREFACE 1 =
=============
    2 FORMAT(2H 1/2H 2/2H 3/2H 4)
THIS IS THE NEW BOTTOM LINE 1A
+++++++++++
+ GROUP 1 +
+++++++++++
---------
- TOP 1 -
---------
=============
= PREFACE 1 =
=============
    3 FORMAT(2H 1)
TEST GARBAGE COLLECTION OF TOP COMMAND
+++++++++++
+ GROUP 2 +
+++++++++++
THIS IS THE NEW TOP LINE 2A
=============
= PREFACE 2 =
=============
    4 FORMAT(13H 1TEST OF TOP/2H 2/2H 3/2H 4)
************
* BOTTOM 2 *
************
THIS IS THE NEW TOP LINE 2A
=============
= PREFACE 2 =
=============
    5 FORMAT(2H 1/2H 2/2H 3/2H 4)
************
* BOTTOM 2 *
************
+++++++++++
+ GROUP 2 +
+++++++++++
THIS IS THE NEW TOP LINE 2A
=============
= PREFACE 2 =
=============
    6 FORMAT(2H 1)
TEST GARBAGE COLLECTION OF GROUP COMMAND
THIS IS THE NEW GROUP LINE 3A
---------
- TOP 3 -
---------
=============
= PREFACE 3 =
=============
    7 FORMAT(15H 1TEST OF GROUP/2H 2/2H 3/2H 4)
************
* BOTTOM 3 *
************
---------
- TOP 3 -
---------
=============
= PREFACE 3 =
=============
    8 FORMAT(2H 1/2H 2/2H 3/2H 4)
************
* BOTTOM 3 *
************
THIS IS THE NEW GROUP LINE 3A
---------
- TOP 3 -
---------
=============
= PREFACE 3 =
=============
    9 FORMAT(2H 1)
TEST GARBAGE COLLECTION OF PREFACE COMMAND
+++++++++++
+ GROUP 4 +
+++++++++++
---------
- TOP 4 -
---------
THIS IS THE NEW PREFACE LINE 4A
   10 FORMAT(2H 1/2H 2/2H 3/2H 4)
************
* BOTTOM 4 *
************
---------
- TOP 4 -
---------
THIS IS THE NEW PREFACE LINE 4A
   11 FORMAT(2H 1/2H 2/2H 3/2H 4)
************
* BOTTOM 4 *
************
+++++++++++
+ GROUP 4 +
+++++++++++
---------
- TOP 4 -
---------
THIS IS THE NEW PREFACE LINE 4A
   12 FORMAT(2H 1)
%TEST 90
TEST THE PAGE POSITION COMMAND
    1 FORMAT(2H 1/2H 2/2H 3/2H 7/2H 8/2H 9/3H 10)
    2 FORMAT(2H 1/2H 2/2H 3//)
%TEST 91
TEST SKIP COMMAND WITH NEGATIVE ARGUMENT
    1 FORMAT(8H 1 FIRST/2H 2/2H 3////2H 7/2H 8/2H 9/3H 10)
    2 FORMAT(9H 1 SECOND/2H 2/2H 3/////2H 8/2H 9/3H 10)
    3 FORMAT(8H 1 THIRD//2H 3/////2H 8//3H 10)
    4 FORMAT(9H 1 FOURTH//2H 3/////2H 8//3H 10)
    5 FORMAT(8H 1 FIFTH//2H 3///2H 6//2H 8//3H 10)
    6 FORMAT(8H 1 SIXTH//2H 3///2H 6//2H 8//3H 10)
    7 FORMAT(///////10H 8 SEVENTH/2H 9/3H 10)
    8 FORMAT(///////9H 8 EIGHTH/2H 9/3H 10)
    9 FORMAT(/////9H 6 NINETH//2H 8//3H 10)
   10 FORMAT(/////8H 6 TENTH//2H 8//3H 10)
%TEST 92
TEST PAGE POSITION COMMAND AT START OF PAGE
***GROUP***
***TOP***
***PREFACE***
    1 FORMAT(13H 6 FIRST TEST/2H 7/2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    2 FORMAT(2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    3 FORMAT(9H 1 SECOND/2H 2/2H 3)
***BOTTOM***
***TOP***
***PREFACE***
    4 FORMAT(8H 1 THIRD/2H 2/2H 3///////)
***BOTTOM***
    1 FORMAT(32H 6 SECOND TEST, NO PREFACES ETC./2H 7/2H 8/2H 9/3H 10)
    2 FORMAT(2H 8/2H 9/3H 10)
    3 FORMAT(9H 1 SECOND/2H 2/2H 3)
    4 FORMAT(8H 1 THIRD/2H 2/2H 3///////)
    1 FORMAT(25H 6 THIRD TEST, PAGING OFF/2H 7/2H 8/2H 9/3H 10/2H 8/1H ,
     11H9/3H 10/9H 1 SECOND/2H 2/2H 3/8H 1 THIRD/2H 2/2H 3)
%TEST 93
TEST PAGE POSITION COMMAND WITH SKIP COMMAND
***GROUP***
***TOP***
***PREFACE***
    1 FORMAT(13H 6 FIRST TEST/2H 7/2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    2 FORMAT(//)
***BOTTOM***
***TOP***
***PREFACE***
    3 FORMAT(9H 1 SECOND/2H 2/2H 3///3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    4 FORMAT(8H 1 THIRD)
    1 FORMAT(9H 1 FOURTH)
%TEST 94
TEST PARAGRAPH COMMAND WITH THIRD ARGUMENT
    1 FORMAT(27H 1 SPACING 1 PAGE LENGTH 10/2H 2/2H 3/2H 4/2H 5/2H 6/
     12H 7/2H 8/2H 9/3H 10)
***BOTTOM***
    2 FORMAT(14H 1 WOULD BE 11/2H 2//6X,1H4/2H 5//6X,1H7/2H 8//)
***BOTTOM***
    3 FORMAT(6X,13H1 WOULD BE 10/2H 2/2H 3//6X,1H5/2H 6/2H 7///)
***BOTTOM***
    4 FORMAT(6X,12H1 WOULD BE 9/2H 2//6X,1H4/2H 5/2H 6//6X,1H8/2H 9/1H ,
     12H10)
***BOTTOM***
    5 FORMAT(27H 1 SPACING 2 PAGE LENGTH 15//2H 3//2H 5//2H 7//2H 9//
     13H 11//3H 13//3H 15)
***BOTTOM***
    6 FORMAT(14H 1 WOULD BE 17//2H 3//2H 5///6X,1H8//3H 10//3H 12///)
***BOTTOM***
    7 FORMAT(6X,13H1 WOULD BE 15//2H 3///6X,1H6//2H 8//3H 10/////)
***BOTTOM***
    8 FORMAT(6X,13H1 WOULD BE 13//2H 3//2H 5//2H 7///6X,2H10//3H 12//
     13H 14/)
***BOTTOM***
    9 FORMAT(27H 1 SPACING 2 PAGE LENGTH 14//2H 3//2H 5//2H 7//2H 9//
     13H 11//3H 13/)
***BOTTOM***
   10 FORMAT(14H 1 WOULD BE 15//2H 3//2H 5///6X,1H8//3H 10//3H 12//)
***BOTTOM***
   11 FORMAT(6X,13H1 WOULD BE 15//2H 3///6X,1H6//2H 8//3H 10////)
***BOTTOM***
   12 FORMAT(6X,13H1 WOULD BE 13//2H 3//2H 5//2H 7///6X,2H10//3H 12//
     13H 14)
***BOTTOM***
   13 FORMAT(27H 1 SPACING 2 PAGE LENGTH 15//2H 3///6X,1H6//2H 8///6X,
     12H11//3H 13//3H 15)
***BOTTOM***
   14 FORMAT(14H 1 WOULD BE 17//2H 3///6X,1H6//2H 8///////)
***BOTTOM***
   15 FORMAT(6X,13H1 WOULD BE 11//2H 3///6X,1H6//2H 8///6X,2H11//3H 13//
     13H 15)
***BOTTOM***
   16 FORMAT(14H 1 WOULD BE 17//2H 3///6X,1H6//2H 8//////)
***BOTTOM***
   17 FORMAT(6X,13H1 WOULD BE 11/)
%TEST 95
TEST SKIP COMMAND WITH TEST SPACING COMMAND
    1 FORMAT(31H This is some stuff at the  top/20H of  the  page.   Th,
     111His stuff is/31H meant to just get us a  little/12H way  down  ,
     219Hfrom the top of the/31H page.  There should be 3 lines/5H left,
     326H on this page when this is/11H processed.///)
***BOTTOM***
    2 FORMAT(31H This should appear at the  top/20H of  the  second pag,
     111He since the/31H test  page  follows  the  skip/12H command.   ,
     219HThe  test page will/31H be  ignored   since   we   are/5H alre,
     326Hady  below  the  indicated/10H position.///)
***BOTTOM***
    3 FORMAT(//////31H This  should  appear  at   the/14H bottom of the,
     117H third page since/31H the skip follows the test page/7H comman,
     22Hd.)
***BOTTOM***
%TEST 96
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(2H 1/2H 2/2H 3///////)
***BOTTOM***
    2 FORMAT(2H 1/2H 2/2H 3///////)
***BOTTOM***
    3 FORMAT(2H 1/2H 2/2H 3)
    1 FORMAT(2H 1/2H 2/2H 3///////)
***BOTTOM***
%TEST 97
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(2H 1/2H 2/2H 3///////)
***BOTTOM***
    2 FORMAT(2H 1/2H 2/2H 3)
    3 FORMAT(2H 1/2H 2/2H 3///////)
***BOTTOM***
    4 FORMAT(2H 1/2H 2/2H 3)
%TEST 98
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    2 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    3 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
%TEST 99
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(/////////)
***FIRST BOTTOM***
SECOND TEST
***SECOND BOTTOM***
    1 FORMAT(24H BETWEEN LARGE POSITIONS)
***SECOND BOTTOM***
    1 FORMAT(/////////)
****THIRD BOTTOM****
    2 FORMAT(17H AFTER LARGE SKIP)
    1 FORMAT(18H BEFORE LARGE SKIP/////////)
****FOURTH BOTTOM****
%TEST 100
***FIRST TOP***
***SECOND TOP***
***SECOND BOTTOM***
***THIRD TOP***
***THIRD BOTTOM***
***FOURTH TOP***
    1 FORMAT(12H FOURTH TEST)
***FOURTH BOTTOM***
***FIFTH TOP***
***FIFTH BOTTOM***
***FIFTH TOP***
    1 FORMAT(11H FIFTH TEST)
***SIXTH TOP***
***SIXTH BOTTOM***
***SIXTH TOP***
    1 FORMAT(11H SIXTH TEST)
***SEVENTH TOP***
    1 FORMAT(13H SEVENTH TEST/13H SEVENTH TEST)
***SEVENTH BOTTOM***
***EIGHTH TOP***
    1 FORMAT(12H EIGHTH TEST)
***EIGHTH BOTTOM***
***EIGHTH TOP***
    2 FORMAT(12H EIGHTH TEST)
***NINETH TOP***
    1 FORMAT(12H NINETH TEST)
***NINETH BOTTOM***
***NINETH TOP***
    2 FORMAT(12H NINETH TEST)
%TEST 101
NOTE THAT IN FIRST EXAMPLE, 1 BLANK LINE GIVEN BY (1X)
MUST BE GENERATED BEFORE THE BOTTOM LINE IS COPIED
***FIRST GROUP***
***FIRST TOP***
***FIRST PREFACE***
    1 FORMAT(1X)
***FIRST BOTTOM***
***SECOND GROUP***
***SECOND TOP***
***SECOND BOTTOM***
***THIRD GROUP***
***THIRD TOP***
***THIRD BOTTOM***
***FOURTH GROUP***
****FOURTH TOP****
***FOURTH PREFACE***
    1 FORMAT(38H THIS IS A LINE BEFORE PROGRAM COMMAND)
THIS IS A PROGRAM LINE
***FOURTH PREFACE***
    2 FORMAT(////////)
****FOURTH BOTTOM****
****FOURTH TOP****
***FOURTH PREFACE***
    3 FORMAT(45H THIS IS AFTER THE PAGE AND CONTINUE COMMANDS)
%TEST 102
first group
first top
first preface
    1 FORMAT(23H this is the first page/////////)
first bottom
first top
first preface
    2 FORMAT(24H this is the second page)
second group
second top
second preface
    1 FORMAT(38H this is after a page position command)
third group
third top
third preface
    1 FORMAT(34H This is before a big skip command/////////)
third bottom
%TEST 103
first group
first top
first preface
    1 FORMAT(23H this is the first page/28H this is after a page positi,
     112Hon 9 command)
first bottom
second group
second top
second preface
    1 FORMAT(23H This is the first page)
second bottom
second top
second preface
    2 FORMAT(41H This is after a page position 10 command)
third group
third top
third preface
    1 FORMAT(23H This is the first page)
third bottom
third top
third preface
    2 FORMAT(41H This is after a page position 11 command)
%TEST 104
trailing skips while paging with output length 20
first top
    1 FORMAT(/////////)
first bottom
second top
    1 FORMAT(///////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section/////////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section////
     1/////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section////
     1/////)
sixth bottom
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 105
trailing while paging with output length 1
first top
    1 FORMAT(/////////)
first bottom
second top
    1 FORMAT(///////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section/////////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section///)
    2 FORMAT(/////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section///)
    2 FORMAT(/////)
sixth bottom
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 106
trailing skips with output length 20
    1 FORMAT(40H This is the first line in third section////////////////
     1////)
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
    1 FORMAT(40H This is the first line in fifth section////
     1////////////////)
    1 FORMAT(40H This is the first line in sixth section////
     1////////////////)
this is some program text
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
%TEST 107
trailing skips with output length 1
    1 FORMAT(40H This is the first line in third section///////////////)
    2 FORMAT(////)
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
    1 FORMAT(40H This is the first line in fifth section///)
    2 FORMAT(////////////////)
    1 FORMAT(40H This is the first line in sixth section///)
    2 FORMAT(////////////////)
this is some program text
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
%TEST 108
---PREFACE BEFORE STATEMENT 100
  100 FORMAT(13H This  is  af,
     18Hter  the/7H format,8X,
     26H100,10/8H command)
---PREFACE BEFORE STATEMENT 110
  110 FORMAT(13H This  is  af,
     18Hter  the/7H second,8X,
     26Hformat/8H command)
This is some program text before statement 120
---PREFACE BEFORE STATEMENT 120
  120 FORMAT(13H This  is  af,
     18Hter  the/9H third fo,
     212Hrmat command/2H 1/
     32H 2/2H 3/2H 4)
---BOTTOM CONTAINS STATEMENT 130
---PREFACE BEFORE STATEMENT 130
  130 FORMAT(2H 5/2H 6/2H 7/
     12H 8)
---BOTTOM CONTAINS STATEMENT 140
---PREFACE BEFORE STATEMENT 140
  140 FORMAT(2H 9/3H 10/3H 11/
     13H 12)
---BOTTOM CONTAINS STATEMENT 150
---PREFACE BEFORE STATEMENT 150
  150 FORMAT(3H 13/3H 14)
---BOTTOM CONTAINS STATEMENT 160
%TEST 109
      WRITE(ITTY,1)
    1 FORMAT(13H This follows,
     112H a BEGIN and/5H a   ,
     220H PREFACE    command./
     320H Paging  has   not  ,
     45H been/11H turned on.)
      IF(ITEST.NE.0)GO TO 2
      CALL CRTWIP(ITTY)
    2 CONTINUE
      WRITE(ITTY,2)
    2 FORMAT(13H1This  follow,
     112Hs   a   PAGE/5H+comm,
     220Hand     which     is/
     320H+somewhat after the ,
     45HBEGIN/9H+command.)
      WRITE(ITTY,3)
    3 FORMAT(13H1This  follow,
     112Hs  a  BEGIN,/5H+PREF,
     220HACE     and     PAGE/
     320H+command.   We  want,
     43X,2Hto/12H+make   sure,
     53X,10Hthat   the/4H+car,
     620Hriage  controls   ar,
     71He/16H+set   properly.,
     83X,6HPaging/9H+again   ,
     916Hhas   not   been/1H+,
     110Hturned on.)
      WRITE(ITTY,4)
    4 FORMAT(13H1This follows,
     112H a BEGIN and/5H+a   ,
     220H PREFACE    command./
     320H+Paging has  been  t,
     45Hurned/4H+on.)
      IF(ITEST.NE.0)GO TO 5
      CALL CRTWIP(ITTY)
    5 CONTINUE
      WRITE(ITTY,5)
    5 FORMAT(13H1This  follow,
     112Hs   a   PAGE/5H+comm,
     220Hand     which     is/
     320H+somewhat after the ,
     45HBEGIN/9H+command.)
      WRITE(ITTY,6)
    6 FORMAT(13H1This  follow,
     112Hs  a  BEGIN,/5H+PREF,
     220HACE     and     PAGE/
     320H+command.   We  want,
     43X,2Hto/12H+make   sure,
     53X,10Hthat   the/4H+car,
     620Hriage  controls   ar,
     71He/16H+set   properly.,
     83X,6HPaging/9H+again  h,
     916Has  been  turned/1H+,
     13Hon.)
%TEST 110
THIS IS PROGRAM STATEMENT 10
   10 FORMAT(13H THIS IS IN S,
     111HTATEMENT 10)
THIS IS PROGRAM STATEMENT 20
   25 FORMAT(13H THIS IS IN S,
     111HTATEMENT 25)
THIS IS PROGRAM STATEMENT 40
   45 FORMAT(13H THIS IS IN S,
     111HTATEMENT 45)
THIS IS PROGRAM 55
   55 FORMAT(13H THIS IS IN S,
     111HTATEMENT 55)
FORCE STATEMENT 700
  700 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 700)
FORCE STATEMENT 700
  700 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 700)
FORCE STATEMENT 700
  730 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 730)
FORCE STATEMENT 700
  650 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 650)
FORCE STATEMENT 700
   67 FORMAT(13H THIS SHOULD ,
     115HBE STATEMENT 67)
THE NUMBER 300 SHOULD APPEAR TO RIGHT 300
  300 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 300)
  310 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 310)
THE NUMBER 410 SHOULD APPEAR TO RIGHT 410
  410 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 410)
  415 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 415)
THE NUMBER 900 SHOULD APPEAR TO RIGHT 900
  910 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 910)
  935 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 935)
THE NUMBER 1200 SHOULD APPEAR TO RIGHT 1200
  300 FORMAT(13H THIS SHOULD ,
     116HBE STATEMENT 300)
%TEST 111
***PREFACE LINE BEFORE 1
    1 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM LINE BEFORE 2
***TOP LINE BEFORE 2
***PREFACE LINE BEFORE 2
    2 FORMAT(13H11AFTER TEST ,
     16HPAGE 4/2H+2/2H+3)
***BOTTOM LINE BEFORE 3
***TOP LINE BEFORE 3
***PREFACE LINE BEFORE 3
    3 FORMAT(12H11AFTER PAGE/
     12H+2/14H+3AFTER PAGING)
***PREFACE LINE BEFORE 4
    4 FORMAT(2H+4)
***BOTTOM LINE BEFORE 5
***TOP LINE BEFORE 5
***PREFACE LINE BEFORE 5
    5 FORMAT(2H11/2H+2/2H+3/
     117H 4AFTER NO PAGING)
***PREFACE LINE BEFORE 6
    6 FORMAT(2H 5)
***BOTTOM LINE BEFORE 7
***TOP LINE BEFORE 7
***PREFACE LINE BEFORE 7
    7 FORMAT(12H11AFTER PAGE/
     12H+2/2H+3)
***PREFACE LINE BEFORE 8
    8 FORMAT(13H 1AFTER BEGIN/
     12H 2/2H 3/2H 4/2H 5)
%TEST 112
GROUP BEFORE 1
TOP BEFORE 1
PREFACE BEFORE 1
    1 FORMAT(2H 1/2H 2/2H 3/2H 4)
BOTTOM BEFORE 2
TOP BEFORE 2
PREFACE BEFORE 2
    2 FORMAT(2H 1/2H 2)
BOTTOM BEFORE 3
TOP BEFORE 3
PREFACE BEFORE 3
    3 FORMAT(12H 1AFTER PAGE/2H 2/2H 3)
PREFACE BEFORE 4
    4 FORMAT(14H 4AFTER FORMAT)
BOTTOM BEFORE 5
TOP BEFORE 5
PREFACE BEFORE 5
    5 FORMAT(2H 1/2H 2/2H 3)
GROUP BEFORE 6
TOP BEFORE 6
PREFACE BEFORE 6
    6 FORMAT(13H 1AFTER BEGIN/2H 2/2H 3/2H 4)
BOTTOM BEFORE 7
TOP BEFORE 7
PREFACE BEFORE 7
    7 FORMAT(2H 1)
PREFACE BEFORE 8
    8 FORMAT(14H 2AFTER FORMAT/2H 3/2H 4)
BOTTOM BEFORE 9
TOP BEFORE 9
PREFACE BEFORE 9
    9 FORMAT(2H 1/2H 2)
GROUP BEFORE 10
TOP BEFORE 10
PREFACE BEFORE 10
   10 FORMAT(13H 1AFTER BEGIN/2H 2/2H 3/2H 4)
BOTTOM BEFORE 11
TOP BEFORE 11
PREFACE BEFORE 11
   11 FORMAT(2H 1)
%TEST 113
TEST THE PAGE POSITION COMMAND
    1 FORMAT(2H 1/2H 2/2H 3/2H 7/2H 8/2H 9/3H 10)
    2 FORMAT(2H 1/2H 2/2H 3)
%TEST 114
TEST PAGE POSITION COMMAND AT START OF PAGE
***GROUP***
***TOP***
***PREFACE***
    1 FORMAT(13H 6 FIRST TEST/2H 7/2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    2 FORMAT(2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    3 FORMAT(9H 1 SECOND/2H 2/2H 3)
***BOTTOM***
***TOP***
***PREFACE***
    4 FORMAT(8H 1 THIRD/2H 2/2H 3)
***BOTTOM***
    1 FORMAT(32H 6 SECOND TEST, NO PREFACES ETC./2H 7/2H 8/2H 9/3H 10)
    2 FORMAT(2H 8/2H 9/3H 10)
    3 FORMAT(9H 1 SECOND/2H 2/2H 3)
    4 FORMAT(8H 1 THIRD/2H 2/2H 3)
    1 FORMAT(25H 6 THIRD TEST, PAGING OFF/2H 7/2H 8/2H 9/3H 10/2H 8/1H ,
     11H9/3H 10/9H 1 SECOND/2H 2/2H 3/8H 1 THIRD/2H 2/2H 3)
%TEST 115
TEST PAGE POSITION COMMAND WITH SKIP COMMAND
***GROUP***
***TOP***
***PREFACE***
    1 FORMAT(13H 6 FIRST TEST/2H 7/2H 8/2H 9/3H 10)
***BOTTOM***
***TOP***
***BOTTOM***
***TOP***
***PREFACE***
    2 FORMAT(9H 1 SECOND/2H 2/2H 3///3H 10)
***BOTTOM***
***TOP***
***PREFACE***
    3 FORMAT(8H 1 THIRD)
    1 FORMAT(9H 1 FOURTH)
%TEST 116
TEST PARAGRAPH COMMAND WITH THIRD ARGUMENT
    1 FORMAT(27H 1 SPACING 1 PAGE LENGTH 10/2H 2/2H 3/2H 4/2H 5/2H 6/
     12H 7/2H 8/2H 9/3H 10)
***BOTTOM***
    2 FORMAT(14H 1 WOULD BE 11/2H 2//6X,1H4/2H 5//6X,1H7/2H 8)
***BOTTOM***
    3 FORMAT(6X,13H1 WOULD BE 10/2H 2/2H 3//6X,1H5/2H 6/2H 7)
***BOTTOM***
    4 FORMAT(6X,12H1 WOULD BE 9/2H 2//6X,1H4/2H 5/2H 6//6X,1H8/2H 9/1H ,
     12H10)
***BOTTOM***
    5 FORMAT(27H 1 SPACING 2 PAGE LENGTH 15//2H 3//2H 5//2H 7//2H 9//
     13H 11//3H 13//3H 15)
***BOTTOM***
    6 FORMAT(14H 1 WOULD BE 17//2H 3//2H 5///6X,1H8//3H 10//3H 12)
***BOTTOM***
    7 FORMAT(6X,13H1 WOULD BE 15//2H 3///6X,1H6//2H 8//3H 10)
***BOTTOM***
    8 FORMAT(6X,13H1 WOULD BE 13//2H 3//2H 5//2H 7///6X,2H10//3H 12//
     13H 14)
***BOTTOM***
    9 FORMAT(27H 1 SPACING 2 PAGE LENGTH 14//2H 3//2H 5//2H 7//2H 9//
     13H 11//3H 13)
***BOTTOM***
   10 FORMAT(14H 1 WOULD BE 15//2H 3//2H 5///6X,1H8//3H 10//3H 12)
***BOTTOM***
   11 FORMAT(6X,13H1 WOULD BE 15//2H 3///6X,1H6//2H 8//3H 10)
***BOTTOM***
   12 FORMAT(6X,13H1 WOULD BE 13//2H 3//2H 5//2H 7///6X,2H10//3H 12//
     13H 14)
***BOTTOM***
   13 FORMAT(27H 1 SPACING 2 PAGE LENGTH 15//2H 3///6X,1H6//2H 8///6X,
     12H11//3H 13//3H 15)
***BOTTOM***
   14 FORMAT(14H 1 WOULD BE 17//2H 3///6X,1H6//2H 8)
***BOTTOM***
   15 FORMAT(6X,13H1 WOULD BE 11//2H 3///6X,1H6//2H 8///6X,2H11//3H 13//
     13H 15)
***BOTTOM***
   16 FORMAT(14H 1 WOULD BE 17//2H 3///6X,1H6//2H 8)
***BOTTOM***
   17 FORMAT(6X,13H1 WOULD BE 11)
%TEST 117
TEST SKIP COMMAND WITH TEST SPACING COMMAND
    1 FORMAT(31H This is some stuff at the  top/20H of  the  page.   Th,
     111His stuff is/31H meant to just get us a  little/12H way  down  ,
     219Hfrom the top of the/31H page.  There should be 3 lines/5H left,
     326H on this page when this is/11H processed.)
***BOTTOM***
    2 FORMAT(31H This should appear at the  top/20H of  the  second pag,
     111He since the/31H test  page  follows  the  skip/12H command.   ,
     219HThe  test page will/31H be  ignored   since   we   are/5H alre,
     326Hady  below  the  indicated/10H position.)
***BOTTOM***
    3 FORMAT(//////31H This  should  appear  at   the/14H bottom of the,
     117H third page since/31H the skip follows the test page/7H comman,
     22Hd.)
***BOTTOM***
%TEST 118
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    2 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    3 FORMAT(2H 1/2H 2/2H 3)
    1 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
%TEST 119
TEST SKIP AT BOTTOM OF PAGE
    1 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    2 FORMAT(2H 1/2H 2/2H 3)
    3 FORMAT(2H 1/2H 2/2H 3)
***BOTTOM***
    4 FORMAT(2H 1/2H 2/2H 3)
%TEST 120
TEST SKIP AT BOTTOM OF PAGE
SECOND TEST
***SECOND BOTTOM***
    1 FORMAT(24H BETWEEN LARGE POSITIONS)
***SECOND BOTTOM***
    1 FORMAT(17H AFTER LARGE SKIP)
    1 FORMAT(18H BEFORE LARGE SKIP)
****FOURTH BOTTOM****
%TEST 121
***FIRST TOP***
***SECOND TOP***
***SECOND BOTTOM***
***THIRD TOP***
***THIRD BOTTOM***
***FOURTH TOP***
    1 FORMAT(12H FOURTH TEST)
***FOURTH BOTTOM***
***FIFTH TOP***
***FIFTH BOTTOM***
***FIFTH TOP***
    1 FORMAT(11H FIFTH TEST)
***SIXTH TOP***
***SIXTH BOTTOM***
***SIXTH TOP***
    1 FORMAT(11H SIXTH TEST)
***SEVENTH TOP***
    1 FORMAT(13H SEVENTH TEST/13H SEVENTH TEST)
***SEVENTH BOTTOM***
***EIGHTH TOP***
    1 FORMAT(12H EIGHTH TEST)
***EIGHTH BOTTOM***
***EIGHTH TOP***
    2 FORMAT(12H EIGHTH TEST)
***NINETH TOP***
    1 FORMAT(12H NINETH TEST)
***NINETH BOTTOM***
***NINETH TOP***
    2 FORMAT(12H NINETH TEST)
%TEST 122
NOTE THAT IN FIRST EXAMPLE, 1 BLANK LINE GIVEN BY (1X)
MUST BE GENERATED BEFORE THE BOTTOM LINE IS COPIED
***FIRST GROUP***
***FIRST TOP***
***FIRST BOTTOM***
***SECOND GROUP***
***SECOND TOP***
***SECOND BOTTOM***
***THIRD GROUP***
***THIRD TOP***
***THIRD BOTTOM***
***FOURTH GROUP***
****FOURTH TOP****
***FOURTH PREFACE***
    1 FORMAT(38H THIS IS A LINE BEFORE PROGRAM COMMAND)
THIS IS A PROGRAM LINE
****FOURTH BOTTOM****
****FOURTH TOP****
***FOURTH PREFACE***
    2 FORMAT(45H THIS IS AFTER THE PAGE AND CONTINUE COMMANDS)
%TEST 123
first group
first top
first preface
    1 FORMAT(23H this is the first page)
first bottom
first top
first preface
    2 FORMAT(24H this is the second page)
second group
second top
second preface
    1 FORMAT(38H this is after a page position command)
third group
third top
third preface
    1 FORMAT(34H This is before a big skip command)
third bottom
%TEST 124
trailing skips while paging with output length 20
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
sixth bottom
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 125
trailing while paging with output length 1
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
sixth bottom
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 126
trailing skips after page with output length 20
second top
third top
    1 FORMAT(40H This is the first line in third section)
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fifth top
    1 FORMAT(40H This is the first line in fifth section)
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
%TEST 127
trailing skips after page with output length 1
second top
third top
    1 FORMAT(40H This is the first line in third section)
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fifth top
    1 FORMAT(40H This is the first line in fifth section)
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
%TEST 128
trailing skips after page with output length 20
and terminal page commands
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 129
trailing skips after page with output length 1
and terminal page commands
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 130
trailing skips after page with output length 20
and terminal test page commands
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 131
trailing skips after page with output length 1
and terminal test page commands
second top
second bottom
third top
    1 FORMAT(40H This is the first line in third section)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 132
paragraph command with paging
first top
    1 FORMAT(6X,39HThis is in the first paragraph - line 1//6X,6HThis i,
     134Hs in the second paragraph - line 3//6X,20HThis is in the third,
     219H paragraph - line 5)
first bottom
first top
    2 FORMAT(6X,50HThis is in the fourth paragraph - line 1 on page 2//
     16X,49HThis is in the fifth paragraph - line 3 on page 2)
second top
    1 FORMAT(6X,39HThis is in the first paragraph - line 1//6X,6HThis i,
     134Hs in the second paragraph - line 3//6X,20HThis is in the third,
     219H paragraph - line 5)
second bottom
second top
    2 FORMAT(6X,50HThis is in the fourth paragraph - line 2 on page 2//
     16X,49HThis is in the fifth paragraph - line 4 on page 2)
%TEST 133
skip that overlaps page boundaries
first top
    1 FORMAT(40H1This is in the first line on first page/1H*/1H*/1H*/
     141H*This is in the bottom line on first page)
first bottom
first top
    2 FORMAT(1H1/1H*/1H*/35H*This is in 4th line on second page)
first bottom
first top
    3 FORMAT(34H1This is in 3rd line on third page)
first top
    4 FORMAT(1H1/1H*/1H*/43H*This is in 4th line on page after a text c,
     16Hommand)
first bottom
first top
    5 FORMAT(54H1This is in 3rd line on second page after text command)
second top
    1 FORMAT(1H1/1H*/1H*/34H*This is in 4th line on first page)
%TEST 134
test paging with multiple spacing
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
fourth bottom
%TEST 135
test paging with multiple spacing
first top
    1 FORMAT(40H This is in the first line on first page///3H 4t,
     140Hh line, before skip 10 at triple spacing)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///2H 4,
     142Hth line, before blank 10 at triple spacing)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
fourth bottom
%TEST 136
test paging with multiple spacing, paging enabled
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
fourth bottom
%TEST 137
test paging with multiple spacing, paging enabled, leading enabled
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
fourth bottom
%TEST 138
trailing skips after page with output length 20
second top
    1 FORMAT(///////////////////)
third top
    1 FORMAT(40H This is the first line in third section////////////////
     1////)
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fifth top
    1 FORMAT(40H This is the first line in fifth section////
     1////////////////)
sixth top
    1 FORMAT(40H This is the first line in sixth section////
     1////////////////)
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
%TEST 139
trailing skips after page with output length 1
second top
    1 FORMAT(///////////////////)
third top
    1 FORMAT(40H This is the first line in third section///////////////)
    2 FORMAT(////)
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fifth top
    1 FORMAT(40H This is the first line in fifth section///)
    2 FORMAT(////////////////)
sixth top
    1 FORMAT(40H This is the first line in sixth section///)
    2 FORMAT(////////////////)
this is some program text
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
%TEST 140
trailing skips after page with output length 20
and terminal page commands
second top
    1 FORMAT(///////////////////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section////////////////
     1////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section////
     1////////////////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section////
     1////////////////)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 141
trailing skips after page with output length 1
and terminal page commands
second top
    1 FORMAT(///////////////////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section///////////////)
    2 FORMAT(////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section///)
    2 FORMAT(////////////////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section///)
    2 FORMAT(////////////////)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 142
trailing skips after page with output length 20
and terminal test page commands
second top
    1 FORMAT(///////////////////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section////////////////
     1////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section////
     1////////////////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section////
     1////////////////)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section//
     1///////31H This is after a skip 8 command)
seventh bottom
%TEST 143
trailing skips after page with output length 1
and terminal test page commands
second top
    1 FORMAT(///////////////////)
second bottom
third top
    1 FORMAT(40H This is the first line in third section///////////////)
    2 FORMAT(////)
third bottom
fourth top
    1 FORMAT(41H This is the first line in fourth section)
This is some program text
    2 FORMAT(///////////////////)
fourth bottom
fifth top
    1 FORMAT(40H This is the first line in fifth section///)
    2 FORMAT(////////////////)
fifth bottom
sixth top
    1 FORMAT(40H This is the first line in sixth section///)
    2 FORMAT(////////////////)
this is some program text
sixth bottom
seventh top
    1 FORMAT(42H This is the first line in seventh section/)
    2 FORMAT(///////31H This is after a skip 8 command)
seventh bottom
%TEST 144
paragraph command with paging
first top
    1 FORMAT(6X,39HThis is in the first paragraph - line 1//6X,6HThis i,
     134Hs in the second paragraph - line 3//6X,20HThis is in the third,
     219H paragraph - line 5)
first bottom
first top
    2 FORMAT(6X,50HThis is in the fourth paragraph - line 1 on page 2//
     16X,49HThis is in the fifth paragraph - line 3 on page 2)
second top
    1 FORMAT(6X,39HThis is in the first paragraph - line 1//6X,6HThis i,
     134Hs in the second paragraph - line 3//6X,20HThis is in the third,
     219H paragraph - line 5)
second bottom
second top
    2 FORMAT(/6X,50HThis is in the fourth paragraph - line 2 on page 2//
     16X,49HThis is in the fifth paragraph - line 4 on page 2)
%TEST 145
skip that overlaps page boundaries
first top
    1 FORMAT(40H1This is in the first line on first page/1H*/1H*/1H*/
     141H*This is in the bottom line on first page)
first bottom
first top
    2 FORMAT(1H1/1H*/1H*/35H*This is in 4th line on second page/1H*)
first bottom
first top
    3 FORMAT(1H1/1H*/34H*This is in 3rd line on third page/1H*/1H*)
first bottom
first top
    4 FORMAT(1H1)
first top
    5 FORMAT(1H1/1H*/1H*/43H*This is in 4th line on page after a text c,
     16Hommand/1H*)
first bottom
first top
    6 FORMAT(1H1/1H*/47H*This is in 3rd line on second page after text ,
     17Hcommand)
second top
    1 FORMAT(1H1/1H*/1H*/34H*This is in 4th line on first page)
%TEST 146
test paging with multiple spacing
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing////////
     2////////////////////////)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing///////
     2/////)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
    3 FORMAT(///////////////////////////////)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
    3 FORMAT(///////////)
fourth bottom
%TEST 147
test paging with multiple spacing
first top
    1 FORMAT(40H This is in the first line on first page///3H 4t,
     140Hh line, before skip 10 at triple spacing////////////////
     2////////////////)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///2H 4,
     142Hth line, before blank 10 at triple spacing////////////)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing/////)
    3 FORMAT(//////////////////////////)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing/////)
    3 FORMAT(//////)
fourth bottom
%TEST 148
test paging with multiple spacing, paging enabled
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing//////)
first bottom
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing//////)
second bottom
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
    3 FORMAT(/////)
third bottom
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
    3 FORMAT(/////)
fourth bottom
%TEST 149
test paging with multiple spacing, paging enabled, leading enabled
first top
    1 FORMAT(40H This is in the first line on first page///
     143H 4th line, before skip 10 at triple spacing//////)
first bottom
first top
    2 FORMAT(/////////)
first bottom
first top
    3 FORMAT(/////////)
first bottom
first top
    4 FORMAT(/////)
second top
    1 FORMAT(41H This is in the first line on second page///
     144H 4th line, before blank 10 at triple spacing//////)
second bottom
second top
    2 FORMAT(/////)
third top
    1 FORMAT(40H This is in the first line on third page//)
    2 FORMAT(43H 4th line, before skip 10 at triple spacing)
    3 FORMAT(/////)
third bottom
third top
    4 FORMAT(/////////)
third bottom
third top
    5 FORMAT(/////////)
third bottom
third top
    6 FORMAT(/////)
fourth top
    1 FORMAT(41H This is in the first line on fourth page//)
    2 FORMAT(43H 4th line, before blank10 at triple spacing)
    3 FORMAT(/////)
fourth bottom
fourth top
    4 FORMAT(/////)
%TEST 150
Neither leading nor trailing
    1 FORMAT(43H This is after a skip 5 and before a skip 8)
    2 FORMAT(43H This is after a skip 8 and before a skip 5)
leading but not trailing
    1 FORMAT(43H This is after a skip 5 and before a skip 8)
    2 FORMAT(43H This is after a skip 8 and before a skip 5)
trailing but not leading
    1 FORMAT(43H This is after a skip 5 and before a skip 8////)
    2 FORMAT(43H This is after a skip 8 and before a skip 5////)
Both leading and trailing
    1 FORMAT(////)
    2 FORMAT(43H This is after a skip 5 and before a skip 8////)
    3 FORMAT(////43H This is after a skip 8 and before a skip 5)
    4 FORMAT(////)
%TEST 151
Neither leading nor trailing
    1 FORMAT(43H This is after a skip 7 and before a skip 4)
    2 FORMAT(43H This is after a skip 4 and before a skip 7)
leading but not trailing
    1 FORMAT(43H This is after a skip 7 and before a skip 4)
    2 FORMAT(43H This is after a skip 4 and before a skip 7)
trailing but not leading
    1 FORMAT(43H This is after a skip 7 and before a skip 4////)
    2 FORMAT(43H This is after a skip 4 and before a skip 7////)
Both leading and trailing
    1 FORMAT(////)
    2 FORMAT(//43H This is after a skip 7 and before a skip 4//)
    3 FORMAT(//43H This is after a skip 4 and before a skip 7//)
    4 FORMAT(////)
%TEST 152
Neither leading nor trailing
    1 FORMAT(43H This is after a skip 7 and before a skip 6)
    2 FORMAT(43H This is after a skip 6 and before a skip 7)
leading but not trailing
    1 FORMAT(43H This is after a skip 7 and before a skip 6)
    2 FORMAT(43H This is after a skip 6 and before a skip 7)
trailing but not leading
    1 FORMAT(43H This is after a skip 7 and before a skip 6////)
    2 FORMAT(43H This is after a skip 6 and before a skip 7////)
Both leading and trailing
    1 FORMAT(////)
    2 FORMAT(//43H This is after a skip 7 and before a skip 6//)
    3 FORMAT(////43H This is after a skip 6 and before a skip 7)
    4 FORMAT(////)
    5 FORMAT(/)
%TEST 153
Neither leading nor trailing
    1 FORMAT(43H This is after a skip 4 and before a skip 6)
    2 FORMAT(43H This is after a skip 6 and before a skip 4)
leading but not trailing
    1 FORMAT(////43H This is after a skip 4 and before a skip 6)
    2 FORMAT(43H This is after a skip 6 and before a skip 4)
trailing but not leading
    1 FORMAT(43H This is after a skip 4 and before a skip 6////)
    2 FORMAT(43H This is after a skip 6 and before a skip 4////)
Both leading and trailing
    1 FORMAT(////43H This is after a skip 4 and before a skip 6)
    2 FORMAT(////)
    3 FORMAT(/43H This is after a skip 6 and before a skip 4///)
    4 FORMAT(1X)
%TEST 154
Neither leading nor trailing
    1 FORMAT(43H This is after a skip 4 and before a skip 4)
    2 FORMAT(43H This is after a skip 4 and before a skip 4)
leading but not trailing
    1 FORMAT(////43H This is after a skip 4 and before a skip 4)
    2 FORMAT(////43H This is after a skip 4 and before a skip 4)
trailing but not leading
    1 FORMAT(43H This is after a skip 4 and before a skip 4////)
    2 FORMAT(43H This is after a skip 4 and before a skip 4////)
Both leading and trailing
    1 FORMAT(////43H This is after a skip 4 and before a skip 4)
    2 FORMAT(////43H This is after a skip 4 and before a skip 4)
    3 FORMAT(///)
%TEST 155
Neither leading nor trailing
FIRST TOP
    1 FORMAT(43H This is after a skip 5 and before a skip 8)
FIRST BOTTOM
FIRST TOP
    2 FORMAT(43H This is after a skip 8 and before a skip 5)
FIRST BOTTOM
leading but not trailing
SECOND TOP
    1 FORMAT(43H This is after a skip 5 and before a skip 8)
SECOND BOTTOM
SECOND TOP
    2 FORMAT(43H This is after a skip 8 and before a skip 5)
SECOND BOTTOM
trailing but not leading
THIRD TOP
    1 FORMAT(43H This is after a skip 5 and before a skip 8////)
THIRD BOTTOM
THIRD TOP
    2 FORMAT(43H This is after a skip 8 and before a skip 5////)
THIRD BOTTOM
Both leading and trailing
FOURTH TOP
    1 FORMAT(////)
FOURTH BOTTOM
FOURTH TOP
    2 FORMAT(43H This is after a skip 5 and before a skip 8////)
FOURTH BOTTOM
FOURTH TOP
    3 FORMAT(////43H This is after a skip 8 and before a skip 5)
FOURTH BOTTOM
FOURTH TOP
    4 FORMAT(////)
FOURTH BOTTOM
%TEST 156
Neither leading nor trailing
FIRST TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 4)
FIRST BOTTOM
FIRST TOP
    2 FORMAT(43H This is after a skip 4 and before a skip 7)
FIRST BOTTOM
leading but not trailing
SECOND TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 4)
SECOND BOTTOM
SECOND TOP
    2 FORMAT(43H This is after a skip 4 and before a skip 7)
SECOND BOTTOM
trailing but not leading
THIRD TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 4////)
THIRD BOTTOM
THIRD TOP
    2 FORMAT(43H This is after a skip 4 and before a skip 7////)
THIRD BOTTOM
Both leading and trailing
FOURTH TOP
    1 FORMAT(////)
FOURTH BOTTOM
FOURTH TOP
    2 FORMAT(//43H This is after a skip 7 and before a skip 4//)
FOURTH BOTTOM
FOURTH TOP
    3 FORMAT(//43H This is after a skip 4 and before a skip 7//)
FOURTH BOTTOM
FOURTH TOP
    4 FORMAT(////)
FOURTH BOTTOM
%TEST 157
Neither leading nor trailing
FIRST TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 6)
FIRST BOTTOM
FIRST TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 7)
FIRST BOTTOM
leading but not trailing
SECOND TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 6)
SECOND BOTTOM
SECOND TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 7)
SECOND BOTTOM
trailing but not leading
THIRD TOP
    1 FORMAT(43H This is after a skip 7 and before a skip 6////)
THIRD BOTTOM
THIRD TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 7////)
THIRD BOTTOM
Both leading and trailing
FOURTH TOP
    1 FORMAT(////)
FOURTH BOTTOM
FOURTH TOP
    2 FORMAT(//43H This is after a skip 7 and before a skip 6//)
FOURTH BOTTOM
FOURTH TOP
    3 FORMAT(////43H This is after a skip 6 and before a skip 7)
FOURTH BOTTOM
FOURTH TOP
    4 FORMAT(////)
FOURTH BOTTOM
FOURTH TOP
    5 FORMAT(/)
%TEST 158
Neither leading nor trailing
FIRST TOP
    1 FORMAT(43H This is after a skip 4 and before a skip 6)
FIRST BOTTOM
FIRST TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 4)
FIRST BOTTOM
leading but not trailing
SECOND TOP
    1 FORMAT(////43H This is after a skip 4 and before a skip 6)
SECOND BOTTOM
SECOND TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 4)
SECOND BOTTOM
trailing but not leading
THIRD TOP
    1 FORMAT(43H This is after a skip 4 and before a skip 6////)
THIRD BOTTOM
THIRD TOP
    2 FORMAT(43H This is after a skip 6 and before a skip 4////)
THIRD BOTTOM
Both leading and trailing
FOURTH TOP
    1 FORMAT(////43H This is after a skip 4 and before a skip 6)
FOURTH BOTTOM
FOURTH TOP
    2 FORMAT(////)
FOURTH BOTTOM
FOURTH TOP
    3 FORMAT(/43H This is after a skip 6 and before a skip 4///)
FOURTH BOTTOM
FOURTH TOP
    4 FORMAT(1X)
%TEST 159
Neither leading nor trailing
FIRST TOP
    1 FORMAT(43H This is after a skip 4 and before a skip 4)
FIRST BOTTOM
FIRST TOP
    2 FORMAT(43H This is after a skip 4 and before a skip 4)
FIRST BOTTOM
leading but not trailing
SECOND TOP
    1 FORMAT(////43H This is after a skip 4 and before a skip 4)
SECOND BOTTOM
SECOND TOP
    2 FORMAT(////43H This is after a skip 4 and before a skip 4)
SECOND BOTTOM
trailing but not leading
THIRD TOP
    1 FORMAT(43H This is after a skip 4 and before a skip 4////)
THIRD BOTTOM
THIRD TOP
    2 FORMAT(43H This is after a skip 4 and before a skip 4////)
THIRD BOTTOM
Both leading and trailing
FOURTH TOP
    1 FORMAT(////43H This is after a skip 4 and before a skip 4)
FOURTH BOTTOM
FOURTH TOP
    2 FORMAT(////43H This is after a skip 4 and before a skip 4)
FOURTH BOTTOM
FOURTH TOP
    3 FORMAT(///)
%TEST 160
THIS EXAMPLE GAVE NON-COMPILABLE CODE WITH PAGING VERSION
OF FORMAT, STARTING WITH FIRST SKIP THAT GAVE FULL PAGE.
TRYING VARIOUS SKIP SIZES IN RANGE OF TRAILING AND PAGING.
WHAT WENT WRONG WAS THAT IF A SKIP FILLED UP BOTTOM OF PAGE,
THE FIRST LINE WHICH ENDED WITH THE FINAL SLASHES WAS
TERMINATED WITH A SLASH, AND THE NEXT STARTED A NEW STATEMENT.
*****  SKIP 8 *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
    2 FORMAT(////////35H This follows the CONTINUE command.)
sixth bottom
*****  SKIP 9  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
*****  SKIP 10  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
*****  SKIP 11  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
%TEST 161
TRYING VARIOUS SKIP SIZES IN RANGE OF PAGING WO LEADING AND TRAILING
*****  SKIP 8 *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
    2 FORMAT(////////35H This follows the CONTINUE command.)
sixth bottom
*****  SKIP 9  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
*****  SKIP 10  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
*****  SKIP 11  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
%TEST 162
TRYING VARIOUS SKIP SIZES IN RANGE OF TRAILING AND PAGING AND LEADING
*****  SKIP 8 *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command)
    2 FORMAT(////////35H This follows the CONTINUE command.)
sixth bottom
*****  SKIP 9  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(35H This follows the CONTINUE command.)
*****  SKIP 10  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(/35H This follows the CONTINUE command.)
*****  SKIP 11  *****
sixth top
    1 FORMAT(41H This is the line before CONTINUE command///
     1//////)
sixth bottom
sixth top
    2 FORMAT(//35H This follows the CONTINUE command.)
%TEST 163
THIS TESTS THE COPY AND MASK FEATURES WHILE PAGING
      WRITE(1,201)
      WRITE(1,1)
    1 FORMAT(5X,35H*=============*  *=============*  *,
     114H=============*/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=============*)
      WRITE(1,202)
      WRITE(1,201)
      WRITE(1,2)
    2 FORMAT(5X,35H* This is  on *  * This is  on *  *,
     114H This is  on */5X,24H* the  second *  * the  ,
     225Hsecond *  * the  second */5X,6H* page,8X,2H* ,
     37H * page,8X,9H*  * page,8X,1H*)
      WRITE(1,202)
      WRITE(1,201)
      WRITE(1,101)
  101 FORMAT(5X,35H*=============*  *=============*  *,
     114H=============*/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=============*/5X,1H*,13X,4H*  *,13X,4H*  *,
     313X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,1H*/5X,
     41H*,13X,4H*  *,13X,4H*  *,13X,1H*/5X,1H*,13X,1H*,
     53H  *,13X,4H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,
     64H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,
     71H*)
      WRITE(1,202)
      WRITE(1,201)
      WRITE(1,102)
  102 FORMAT(5X,35H* This is  on *  * This is  on *  *,
     114H This is  on */5X,24H* the  second *  * the  ,
     225Hsecond *  * the  second */5X,6H* page,8X,2H* ,
     37H * page,8X,9H*  * page,8X,1H*/5X,1H*,13X,3H*  ,
     41H*,13X,4H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,1H*,
     53H  *,13X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,
     61H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,1H*/5X,1H*,
     713X,4H*  *,13X,4H*  *,13X,1H*/5X,1H*,13X,4H*  *,
     813X,4H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,
     913X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,1H*/5X,
     11H*,13X,4H*  *,13X,4H*  *,13X,1H*/5X,1H*,13X,1H*,
     23H  *,13X,4H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,
     34H*  *,13X,1H*/5X,1H*,13X,4H*  *,13X,4H*  *,13X,
     41H*)
      WRITE(1,202)
201   FORMAT('TOP OF PAGE')
202   FORMAT('BOTTOM OF PAGE')
      END
%TEST 164
C****** top *******
C****** top *******
      WRITE(1,1)
    1 FORMAT(12H1This is the/15H start of a new/4H pag,
     12He.)
C****** top *******
      WRITE(1,2)
    2 FORMAT(14H1This is after/9H the text/9H command./
     1/)
C******* bottom *******
C****** top *******
      WRITE(1,3)
    3 FORMAT(/)
C******* bottom *******
TEST PAGE 2
C****** top *******
TEST PAGE 3
C****** top *******
      WRITE(1,1)
    1 FORMAT(/)
C******* bottom *******
TEST PAGE 4
C****** top *******
      WRITE(1,1)
    1 FORMAT(/)
C******* bottom *******
%TEST 165
TEST PAGE 1
C****** top *******
      WRITE(1,1)
    1 FORMAT(1X)
TEST PAGE 2
C****** top *******
      WRITE(1,1)
    1 FORMAT(1H1)
TEST PAGE 3
C****** top *******
      WRITE(1,1)
    1 FORMAT(1H1/1H*/1H*)
C******* bottom *******
TEST PAGE 4
C****** top *******
      WRITE(1,1)
    1 FORMAT(//)
C******* bottom *******
%TEST 166
RESET AFTER PAGE POSITION
C****** first top *******
C******* second bottom *******
TEXT COMMAND AFTER PAGE POSITION
C****** first top *******
C******* second bottom *******
C****** third top *******
      WRITE(1,1)
    1 FORMAT(14H This is after/9H the text/8H command//
     1)
C******* third bottom *******
%TEST 167
SKIP commands at various locations after PAGE command
*** test one ***
first top
    1 FORMAT(40H SKIP COMMAND BEFORE THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test two ***
second top
    1 FORMAT(39H SKIP COMMAND AFTER THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test three ***
third top
    1 FORMAT(40H SKIP COMMAND AFTER THE CONTINUE COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test FOUR ***
fourth top
    1 FORMAT(43H SKIP COMMAND AFTER THE PROGRAM COMMAND, TH,
     18HEN EJECT)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
%TEST 168
SKIP commands at various locations after PAGING command
*** test one ***
first top
    1 FORMAT(40H SKIP COMMAND BEFORE THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
first bottom
*** test two ***
second top
    1 FORMAT(39H SKIP COMMAND AFTER THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
second bottom
*** test three ***
third top
    1 FORMAT(40H SKIP COMMAND AFTER THE CONTINUE COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
third bottom
*** test FOUR ***
fourth top
    1 FORMAT(43H SKIP COMMAND AFTER THE PROGRAM COMMAND, TH,
     18HEN EJECT)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
fourth bottom
%TEST 169
SKIP commands at various locations while not paging
*** test one ***
    1 FORMAT(40H SKIP COMMAND BEFORE THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test two ***
    1 FORMAT(39H SKIP COMMAND AFTER THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test three ***
    1 FORMAT(40H SKIP COMMAND AFTER THE CONTINUE COMMAND)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
*** test FOUR ***
    1 FORMAT(43H SKIP COMMAND AFTER THE PROGRAM COMMAND, TH,
     18HEN EJECT)
this is some program text
    2 FORMAT(////////35H THIS IS AFTER THE CONTINUE COMMAND)
%TEST 170
SKIP commands at various locations after PAGE command
*** test one ***
first top
    1 FORMAT(40H SKIP COMMAND BEFORE THE PROGRAM COMMAND////
     1//////)
this is some program text
first bottom
first top
    2 FORMAT(35H THIS IS AFTER THE CONTINUE COMMAND)
*** test two ***
second top
    1 FORMAT(39H SKIP COMMAND AFTER THE PROGRAM COMMAND)
this is some program text
    2 FORMAT(/////////)
second bottom
second top
    3 FORMAT(35H THIS IS AFTER THE CONTINUE COMMAND)
*** test three ***
third top
    1 FORMAT(40H SKIP COMMAND AFTER THE CONTINUE COMMAND)
this is some program text
    2 FORMAT(/////////)
third bottom
third top
    3 FORMAT(35H THIS IS AFTER THE CONTINUE COMMAND)
*** test FOUR ***
fourth top
    1 FORMAT(43H SKIP COMMAND AFTER THE PROGRAM COMMAND, TH,
     18HEN EJECT)
this is some program text
    2 FORMAT(//////////33H THIS IS AFTER THE CONTINUE COMMA,
     12HND)
%TEST 171
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
**** first test ****
    1 FORMAT(33H This is before the skip command.)
    2 FORMAT(////////32H This is after the skip command.)
**** second test ****
    1 FORMAT(33H This is before the skip command.)
This is some program text
    2 FORMAT(////////32H This is after the skip command.)
**** third test ****
    1 FORMAT(33H This is before the skip command.////)
    2 FORMAT(////32H This is after the skip command.)
**** fourth test ****
    1 FORMAT(33H This is before the skip command.////)
This is some program text
    2 FORMAT(////32H This is after the skip command.)
%TEST 172
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
**** first test ****
    1 FORMAT(33H1This is before the skip command.)
    2 FORMAT(1H*/1H*/1H*/1H*/1H*/1H*/1H*/1H*/23H*This is after the skip,
     19H command.)
**** second test ****
    1 FORMAT(33H1This is before the skip command.)
This is some program text
    2 FORMAT(1H*/1H*/1H*/1H*/1H*/1H*/1H*/1H*/23H*This is after the skip,
     19H command.)
**** third test ****
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*/1H*/1H*/1H*/32H*This is after the skip command.)
**** fourth test ****
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*/1H*/1H*/1H*/32H*This is after the skip command.)
%TEST 173
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
**** first test ****
    1 FORMAT(33H1This is before the skip command.)
    2 FORMAT(1H*/1H*/1H*/1H*/1H*/1H*/1H*/1H*/23H*This is after the skip,
     19H command.)
**** second test ****
    1 FORMAT(33H1This is before the skip command.)
This is some program text
    2 FORMAT(1H*/1H*/1H*/1H*/1H*/1H*/1H*/1H*/23H*This is after the skip,
     19H command.)
**** third test ****
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*/1H*/1H*/1H*/32H*This is after the skip command.)
**** fourth test ****
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*/1H*/1H*/1H*/32H*This is after the skip command.)
%TEST 174
TEST SKIP AT TOP OF PAGE AFTER TRAILING IF USING CARRIAGE CONTROL
**** first test ****
first top
    1 FORMAT(33H1This is before the skip command.)
first bottom
first top
    2 FORMAT(32H1This is after the skip command.)
**** second test ****
second top
    1 FORMAT(33H1This is before the skip command.)
This is some program text
second bottom
second top
    2 FORMAT(32H1This is after the skip command.)
**** third test ****
third top
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*)
third bottom
third top
    3 FORMAT(32H1This is after the skip command.)
**** fourth test ****
fourht top
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*)
fourth bottom
fourht top
    3 FORMAT(32H1This is after the skip command.)
%TEST 175
TEST SKIP AT TOP OF PAGE AFTER TRAILING IF NOT USING CARRIAGE CONTROL
**** first test ****
first top
    1 FORMAT(33H This is before the skip command.)
first bottom
first top
    2 FORMAT(32H This is after the skip command.)
**** second test ****
second top
    1 FORMAT(33H This is before the skip command.)
This is some program text
second bottom
second top
    2 FORMAT(32H This is after the skip command.)
**** third test ****
third top
    1 FORMAT(33H This is before the skip command.////)
    2 FORMAT(1X)
third bottom
third top
    3 FORMAT(32H This is after the skip command.)
**** fourth test ****
fourht top
    1 FORMAT(33H This is before the skip command.////)
This is some program text
    2 FORMAT(1X)
fourth bottom
fourht top
    3 FORMAT(32H This is after the skip command.)
%TEST 176
TEST SKIP AT TOP OF PAGE AFTER LEADING IF USING CARRIAGE CONTROL
**** first test ****
first top
    1 FORMAT(33H1This is before the skip command.)
first bottom
first top
    2 FORMAT(32H1This is after the skip command.)
**** second test ****
second top
    1 FORMAT(33H1This is before the skip command.)
This is some program text
second bottom
second top
    2 FORMAT(32H1This is after the skip command.)
**** third test ****
third top
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*)
third bottom
third top
    3 FORMAT(1H1/1H*/1H*/32H*This is after the skip command.)
**** fourth test ****
fourht top
    1 FORMAT(33H1This is before the skip command./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*)
fourth bottom
fourht top
    3 FORMAT(1H1/1H*/1H*/32H*This is after the skip command.)
%TEST 177
TEST SKIP AT TOP OF PAGE AFTER LEADING IF USING CARRIAGE CONTROL
**** first test ****
first top
    1 FORMAT(33H1This is before the skip command.)
first bottom
first top
    2 FORMAT(32H1This is after the skip command.)
**** second test ****
second top
    1 FORMAT(33H1This is before the skip command.)
This is some program text
second bottom
second top
    2 FORMAT(32H1This is after the skip command.)
**** third test ****
third top
    1 FORMAT(33H1This is before the skip command.)
third bottom
third top
    2 FORMAT(32H1This is after the skip command.)
**** fourth test ****
fourht top
    1 FORMAT(33H1This is before the skip command.)
This is some program text
fourth bottom
fourht top
    2 FORMAT(32H1This is after the skip command.)
%TEST 178
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
**** first test ****
first top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*)
first bottom
first top
    3 FORMAT(1H1/1H*/1H*/31H*This is after the blank lines.)
**** second test ****
second top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*)
second bottom
second top
    3 FORMAT(1H1/1H*/1H*/31H*This is after the blank lines.)
**** third test ****
third top
    1 FORMAT(32H This is before the blank lines.////)
    2 FORMAT(1X)
third bottom
third top
    3 FORMAT(///31H This is after the blank lines.)
**** fourth test ****
fourth top
    1 FORMAT(32H This is before the blank lines.////)
This is some program text
    2 FORMAT(1X)
fourth bottom
fourth top
    3 FORMAT(///31H This is after the blank lines.)
%TEST 179
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
**** first test ****
first top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*)
first bottom
first top
    3 FORMAT(1H1/1H*/1H*/31H*This is after the blank lines.)
**** second test ****
second top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*)
second bottom
second top
    3 FORMAT(1H1/1H*/1H*/31H*This is after the blank lines.)
**** third test ****
third top
    1 FORMAT(32H This is before the blank lines.////)
    2 FORMAT(1X)
third bottom
third top
    3 FORMAT(///31H This is after the blank lines.)
**** fourth test ****
fourth top
    1 FORMAT(32H This is before the blank lines.////)
This is some program text
    2 FORMAT(1X)
fourth bottom
fourth top
    3 FORMAT(///31H This is after the blank lines.)
%TEST 180
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
**** first test ****
first top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
    2 FORMAT(1H*/1H*/1H*/1H*/31H*This is after the blank lines.)
**** second test ****
second top
    1 FORMAT(32H1This is before the blank lines./1H*/1H*/1H*/1H*)
This is some program text
    2 FORMAT(1H*/1H*/1H*/1H*/31H*This is after the blank lines.)
**** third test ****
third top
    1 FORMAT(32H This is before the blank lines.////)
    2 FORMAT(////31H This is after the blank lines.)
**** fourth test ****
fourth top
    1 FORMAT(32H This is before the blank lines.////)
This is some program text
    2 FORMAT(////31H This is after the blank lines.)
%TEST 181
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
**** first test ****
first top
    1 FORMAT(32H1This*is before the blank lines./12H** * * * * */4H** *,
     18H * * * */12H** * * * * */12H** * * * * *)
    2 FORMAT(12H** * * * * *)
first bottom
first top
    3 FORMAT(12H1* * * * * */12H** * * * * */12H** * * * * */8H*This*is,
     123H after the blank lines.)
**** second test ****
second top
    1 FORMAT(32H1This*is before the blank lines./12H** * * * * */4H** *,
     18H * * * */12H** * * * * */12H** * * * * *)
This is some program text
    2 FORMAT(12H** * * * * *)
second bottom
second top
    3 FORMAT(12H1* * * * * */12H** * * * * */12H** * * * * */8H*This*is,
     123H after the blank lines.)
**** third test ****
third top
    1 FORMAT(32H This*is before the blank lines./12H * * * * * */4H * *,
     18H * * * */12H * * * * * */12H * * * * * *)
    2 FORMAT(12H * * * * * *)
third bottom
third top
    3 FORMAT(12H * * * * * */12H * * * * * */12H * * * * * */8H This*is,
     123H after the blank lines.)
**** fourth test ****
fourth top
    1 FORMAT(32H This*is before the blank lines./12H * * * * * */4H * *,
     18H * * * */12H * * * * * */12H * * * * * *)
This is some program text
    2 FORMAT(12H * * * * * *)
fourth bottom
fourth top
    3 FORMAT(12H * * * * * */12H * * * * * */12H * * * * * */8H This*is,
     123H after the blank lines.)
%TEST 182
12345678901234567890123456789012345678901234567890
    1 FORMAT(27H INITIAL LINE BEFORE NOFILL/)
    2 FORMAT(13H THE 1ST LINE//13H THE 3RD LINE/)
    3 FORMAT(13H THE 5TH LINE//13H THE 7TH LINE/)
    4 FORMAT(13H THE 9TH LINE//14H THE 11TH LINE/)
    5 FORMAT(14H THE 13TH LINE//14H THE 15TH LINE)
    6 FORMAT(/14H THE 17TH LINE/)
    7 FORMAT(14H THE 19TH LINE/)
%TEST 183
1234567890123456789012345678901234567890123456789012
    1 FORMAT(27H INITIAL LINE BEFORE NOFILL//)
    2 FORMAT(13H THE 1ST LINE////13H THE 3RD LINE//)
    3 FORMAT(/13H THE 5TH LINE////13H THE 7TH LINE/)
    4 FORMAT(//13H THE 9TH LINE///)
    5 FORMAT(14H THE 11TH LINE////14H THE 13TH LINE)
    6 FORMAT(///14H THE 15TH LINE///)
    7 FORMAT(14H THE 17TH LINE////14H THE 19TH LINE)
    8 FORMAT(/)
%TEST 184
12345678901234567890123456789012345678901234567890123456
    1 FORMAT(27H INITIAL LINE BEFORE NOFILL///)
    2 FORMAT(13H THE 1ST LINE//////13H THE 3RD LINE////)
    3 FORMAT(/13H THE 5TH LINE//////13H THE 7TH LINE///)
    4 FORMAT(//13H THE 9TH LINE//////14H THE 11TH LINE/)
    5 FORMAT(////14H THE 13TH LINE/////)
    6 FORMAT(14H THE 15TH LINE//////14H THE 17TH LINE//)
    7 FORMAT(///14H THE 19TH LINE///)
%TEST 185
123456789012345678901234567890123456789012345678
    1 FORMAT(27H*INITIAL LINE BEFORE NOFILL/1H*)
    2 FORMAT(9H*1ST LINE/1H*/9H*3RD LINE/1H*)
    3 FORMAT(9H*5TH LINE/1H*/9H*7TH LINE/1H*)
    4 FORMAT(9H*9TH LINE/1H*/10H*11TH LINE/1H*)
    5 FORMAT(10H*13TH LINE/1H*/10H*15TH LINE)
    6 FORMAT(1H*/10H*17TH LINE/1H*)
    7 FORMAT(10H*19TH LINE/1H*)
%TEST 186
123456789012345678901234567890123456789012345678901234567890
    1 FORMAT(27H*INITIAL LINE BEFORE NOFILL/1H*/1H*)
    2 FORMAT(9H*1ST LINE/1H*/1H*/1H*/9H*3RD LINE/1H*/1H*)
    3 FORMAT(1H*/9H*5TH LINE/1H*/1H*/1H*/9H*7TH LINE/1H*)
    4 FORMAT(1H*/1H*/9H*9TH LINE/1H*/1H*/1H*/10H*11TH LINE)
    5 FORMAT(1H*/1H*/1H*/10H*13TH LINE/1H*/1H*/1H*)
    6 FORMAT(10H*15TH LINE/1H*/1H*/1H*/10H*17TH LINE/1H*)
    7 FORMAT(1H*/1H*/10H*19TH LINE/1H*/1H*)
%TEST 187
123456789012345678901234567890123456789012345678901234567890
    1 FORMAT(27H*INITIAL LINE BEFORE NOFILL/1H*/1H*/1H*)
    2 FORMAT(9H*1ST LINE/1H*/1H*/1H*/1H*/1H*/9H*3RD LINE)
    3 FORMAT(1H*/1H*/1H*/1H*/1H*/13H*THE 5TH LINE/1H*/1H*)
    4 FORMAT(1H*/1H*/1H*/9H*7TH LINE/1H*/1H*/1H*/1H*/1H*)
    5 FORMAT(9H*9TH LINE/1H*/1H*/1H*/1H*/1H*/10H*11TH LINE)
    6 FORMAT(1H*/1H*/1H*/1H*/1H*/10H*13TH LINE/1H*/1H*/1H*)
    7 FORMAT(1H*/1H*/18H*AND THE 15TH LINE/1H*/1H*/1H*/1H*)
    8 FORMAT(1H*/34H*AND AT A VERY LONG LAST 17TH LINE/1H*)
    9 FORMAT(1H*/1H*/1H*/1H*/10H*19TH LINE/1H*/1H*/1H*)
%TEST 188
    1 FORMAT(4H1one/4H2two/6H2three/5H2four/5H2five)
    2 FORMAT(4H3six/6H4seven/6H4eight/5H4nine)
    3 FORMAT(4H3ten/7H4eleven/7H5twelve/9H5thirteen)
    4 FORMAT(9H5fourteen/8H5fifteen/8H sixteen/10H seventeen)
    5 FORMAT(9H6eighteen/9H nineteen/7H twenty/11H twenty-one)
    6 FORMAT(11H6twenty-two/13H twenty-three/12H8twenty-four/8H8twenty-,
     14Hfive)
    7 FORMAT(11H7twenty-six/13H8twenty-seven/13H twenty-eight/7H twenty,
     15H-nine)
    8 FORMAT(7H9thirty/11H thirty-one/11H thirty-two/13H thirty-three)
    9 FORMAT(12H9thirty-four/12H2thirty-five/11H2thirty-six)
    1 FORMAT(2H1A/2H2B/2H2C/2H2D)
    2 FORMAT(2H E/2H F/2H G/2H H)
    3 FORMAT(2H1I/2H2J/2H2K/2H2L)
    4 FORMAT(2H1M/2H N/2H O/2H P)
    5 FORMAT(2H Q/2H R)
%TEST 189
    1 FORMAT(2H+1/2H-2/1H-/2H-4)
    2 FORMAT(2H+5/2H-6//2H 8)
    3 FORMAT(2H 9/3H 10/1HB/3HB12)
    4 FORMAT(3HA13/3HB14//3H 16/3H 17/3H 18)
    5 FORMAT(3H 19/3H 20//3H 22)
    6 FORMAT(3H 23)
%TEST 190
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
** second top of page
** third top of page
** fourth top of page
** fifth top of page
** fifth bottom of page
** sixth top of page
** sixth bottom of page
** seventh top of page
** seventh bottom of page
** eigth top of page
** ninth top of page
** ninth bottom of page
** tenth top of page
** tenth bottom of page
%TEST 191
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
** second top of page
** third top of page
** fourth top of page
** fifth top of page
** sixth top of page
** seventh top of page
** eigth top of page
** ninth top of page
** tenth top of page
%TEST 192
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
%TEST 193
TEST COMBINATION OF TEST PAGE AND PAGE POSITION
** first top
    1 FORMAT(2H11/2H+2/2H+5)
** first bottom
** first top
    2 FORMAT(2H16/2H+7/2H+8/2H+9/3H+10)
** first bottom
** first top
    3 FORMAT(3H111)
** second top
    1 FORMAT(2H11/2H+2/2H+3)
** second bottom
** second top
    2 FORMAT(2H16/2H+7/2H+8/2H+9/3H+10)
** second bottom
** second top
    3 FORMAT(3H111)
** third top
    1 FORMAT(2H11/2H+2/2H+3/2H+4)
** third bottom
** third top
    2 FORMAT(2H+8/2H+9/3H+10)
** third bottom
** third top
    3 FORMAT(3H111)
** fouth top
    1 FORMAT(2H11/2H+2/2H+3/2H+4/2H+5)
** fourth bottom
** fouth top
    2 FORMAT(2H+8/2H+9/3H+10)
** fourth bottom
** fouth top
    3 FORMAT(3H111)
%TEST 194
    1 FORMAT(1H1/21H*This  is  some  text/21H*meant to test if the)
    2 FORMAT(21H1skip  is   done   at/14H*correct time./1H*/1H*/1H*)
    3 FORMAT(1H*/21H*This   is   in   the)
    4 FORMAT(21H1second test of skips/20H*and page positions.)
%TEST 195
first top
    1 FORMAT(21H11This will be double/1H+/18H+3spaced in result/1H+/1H+,
     120H7on bottom line  and)
first bottom
first top
    2 FORMAT(18H11top line of page/1H+/21H+5this is  below  the/1H+/1H+,
     116H7page position 4)
first bottom
first top
    3 FORMAT(1H1/1H+/1H+/21H+7bottom of 3rd  page)
first bottom
first top
    4 FORMAT(17H11and on 4th page)
%TEST 196
    1 FORMAT(21H This  is  some  text///21H which will be triple///2H s,
     119Hpaced in the result//)
***This is some program text after an eject command
    2 FORMAT(21H and this comes after///20H the program command)
***This is some program text not after an eject command
    3 FORMAT(//21H and this comes after///20H 2nd program command)
%TEST 197
first top
first bottom
this is some program text
first top
first bottom
first top
    2 FORMAT(33H this is after a continue command)
first bottom
first top
    3 FORMAT(29H this is after a text command)
first bottom
%TEST 198
TEST WHICH PAGING COMMANDS GIVE BREAKS
    1 FORMAT(6H BLANK/////////////////////6H BLANK/14H BOTTOM BOTTOM/
     128H DEFINE BOTTOM DEFINE BOTTOM/22H DEFINE TOP DEFINE TOP/5H LEAD,
     211HING LEADING/20H NO BOTTOM NO BOTTOM/22H NO LEADING NO LEADING/
     334H NO PAGE CARRIAGE NO PAGE CARRIAGE/10H NO PAGING/10H NO PAGING/
     414H NO TOP NO TOP/24H NO TRAILING NO TRAILING/5H PAGE)
    2 FORMAT(5H PAGE/28H+PAGE CARRIAGE PAGE CARRIAGE/15H+PAGE LENGTH PA,
     19HGE LENGTH/14H+PAGE POSITION/14H+PAGE POSITION/7H+PAGING/5H+PAGI,
     22HNG/10H+PARAGRAPH)
    3 FORMAT(15H1     PARAGRAPH/28H+RESUME BOTTOM RESUME BOTTOM/5H+RESU,
     117HME TOP RESUME TOP/5H+SKIP/1H+/1H+/1H+/1H+/1H+/5H+SKIP)
**bottom text
**top text**
    4 FORMAT(10H1TEST PAGE/10H+TEST PAGE/13H+TEST SPACING/10H+TEST SPAC,
     13HING/8H+TOP TOP/18H+TRAILING TRAILING)
%TEST 199
CHECK THAT PAGING COMMAND GIVES NEW PAGE IF ISSUED
WHEN THE CURRENT PAGE IS EXACTLY FULL.
    1 FORMAT(20H This is going to be/21H some text which will/7H exactl,
     110Hy fill one/20H page so we can test/17H the page command)
**first bottom
**first top**
    2 FORMAT(15H1This is on the/20H+second page.  Again/12H+we will exa,
     19Hctly fill/18H+the page but will/21H+then turn off paging)
**first bottom
    3 FORMAT(17H This comes after/16H paging has been/14H turned off.  ,
     17HWe will/21H end this page with a/15H break command.)
**first bottom
**first top**
    4 FORMAT(21H1This comes after the/17H+combination of a/9H+break an,
     110Hd a paging/21H+command.  It will be/14H+ended by page)
**first bottom
**first top**
    5 FORMAT(20H1This will be a page/14H+which will be/13H+terminated b,
     13Hy a/15H+break and a no/16H+paging command.)
**first bottom
    6 FORMAT(21H This comes after the/17H break and the no/9H paging c,
     18Hommands.)
THE NEXT WILL BE SAME IN NOFILL MODE
    1 FORMAT(20H This is going to be/21H some text which will/7H exactl,
     110Hy fill one/20H page so we can test/17H the page command)
**first bottom
**first top**
    2 FORMAT(15H1This is on the/19H+second page. Again/13H+we will exac,
     18Htly fill/18H+the page but will/21H+then turn off paging)
**first bottom
    3 FORMAT(17H This comes after/16H paging has been/14H turned off.  ,
     17HWe will/21H end this page with a/15H break command.)
**first bottom
**first top**
    4 FORMAT(21H1This comes after the/17H+combination of a/9H+break an,
     110Hd a paging/18H+command.  It will/17H+be ended by page)
**first bottom
**first top**
    5 FORMAT(20H1This will be a page/14H+which will be/13H+terminated b,
     13Hy a/15H+break and a no/16H+paging command.)
**first bottom
    6 FORMAT(17H This comes after/18H the break and the/12H no paging c,
     18Hommands.)
%test 200
Test insertion of bottom text by page command when no paging given
    1 FORMAT(4H one)
bottom of page
top of page
    2 FORMAT(4H1two)
    1 FORMAT(6H three)
this is program text
bottom of page
top of page
    2 FORMAT(5H1four)
%TEST 201
CHECK COMBINATION OF TRAILING AND TEXT COMMANDS
    1 FORMAT(15H No TRAILING is/13H active here.)
    2 FORMAT(12H TRAILING is/11H active now//)
    3 FORMAT(15H Double spacing//13H w/o trailing)
    4 FORMAT(15H Double spacing//14H with trailing/)
    5 FORMAT(8H the end/)
    1 FORMAT(15H No TRAILING is/13H active here.)
    2 FORMAT(12H TRAILING is/11H active now//)
    3 FORMAT(15H Double spacing//13H w/o trailing)
    4 FORMAT(15H Double spacing//14H with trailing/)
    5 FORMAT(8H the end/)
%TEST 202
CHECK COMBINATION OF TRAILING AND TEXT COMMANDS
** first top
    1 FORMAT(15H No TRAILING is/13H active here.)
** first top
    2 FORMAT(12H TRAILING is/11H active now//)
** first top
    3 FORMAT(15H Double spacing//13H w/o trailing)
** first top
    4 FORMAT(15H Double spacing//14H with trailing/)
** first top
    5 FORMAT(8H the end/)
** first top
    1 FORMAT(15H1No TRAILING is/13H*active here.)
** first top
    2 FORMAT(12H1TRAILING is/11H*active now/1H*/1H*)
** first top
    3 FORMAT(15H1Double spacing/1H*/13H*w/o trailing)
** first top
    4 FORMAT(15H1Double spacing/1H*/14H*with trailing/1H*)
** first top
    5 FORMAT(8H1the end/1H*)
%TEST 203
TEST VARIOUS COMMANDS TO SEE IF CAUSE BREAKS
    1 FORMAT(6H BLANK//6H BLANK/6H BREAK/6H BREAK/18H CARRIAGE * CARRIA,
     12HGE/7H CENTER/28X,6HCENTER/16H COMMENT COMMENT/9H CONTINUE)
    2 FORMAT(9H CONTINUE/5H COPY/5H COPY/26H DEFINE GROUP DEFINE GROUP/
     130H DEFINE PREFACE DEFINE PREFACE/6H EJECT/6H EJECT/10H END DEFIN,
     220HITION END DEFINITION/5H FILL/5H FILL/20H FLAGS ALL FLAGS ALL/
     334H FLAGS CAPITALIZE FLAGS CAPITALIZE/24H FLAGS CONTROL FLAGS CON,
     44HTROL/24H FLAGS FENCE FLAGS FENCE/26H FLAGS INSERT FLAGS INSERT/
     534H FLAGS LOWER CASE FLAGS LOWER CASE/24H FLAGS QUOTE FLAGS QUOTE/
     626H FLAGS REMARK FLAGS REMARK/24H FLAGS SPACE FLAGS SPACE/5H FLAG,
     729HS UPPER CASE FLAGS UPPER CASE/12H GROUP GROUP/7H INDENT/6X,1HI,
     85HNDENT/24H INPUT WIDTH INPUT WIDTH/14H INSERT INSERT/8H JUSTIFY/
     98H JUSTIFY/16H LEADING LEADING/12H LEFT MARGIN/12H LEFT MARGIN/
     122H LOWER CASE lower case/10H mask mask/22H no carriage no carria,
     22Hge/8H no copy/8H no copy/8H no fill/8H no fill/13H no flags all,
     313H no flags all/40H no flags capitalize no flags capitalize/2H n,
     428Ho flags fence no flags fence/30H no flags insert no flags inse,
     52Hrt/40H no flags lower case no flags lower case/13H no flags quo,
     617Hte no flags quote/32H no flags remark no flags remark/6H no fl,
     724Hags space no flags space/34H no flags upper case no flags uppe,
     86Hr case/20H no insert no insert/11H no justify/11H no justify/
     922H no leading no leading/16H no mask no mask/10H no offset/3Hno ,
     16Hoffset/18H no group no group/22H no preface no preface)
    3 FORMAT(24H no trailing no trailing/7H offset/7H offset/8H output ,
     120Hlength output length/26H output width output width/9H paragrap,
     21Hh//6X,9Hparagraph/16H preface preface/8H program)
    4 FORMAT(8H program/6H reset)
    1 FORMAT(6H RESET/26H RESUME GROUP RESUME GROUP/16H RESUME PREFACE ,
     114HRESUME PREFACE/13H RIGHT MARGIN/13H RIGHT MARGIN/5H SKIP//2H S,
     23HKIP/8H SPACING/8H SPACING/5H TEXT)
    2 FORMAT(5H TEXT/18H TRAILING TRAILING/22H UPPER CASE UPPER CASE/
     1' USE USE')
%TEST 204
CHECK USE OF SIGN WITH PAGE LENGTH COMMAND
      WRITE(ITTY,1)
    1 FORMAT(2H 1/2H 2/2H 3/2H 4/2H 5)
      WRITE(ITTY,2)
    2 FORMAT(11H 6 NEW PAGE/2H 7/2H 8/2H 9/3H 10/3H 11/3H 12)
      WRITE(ITTY,3)
    3 FORMAT(12H 13 NEW PAGE/3H 14/3H 15)
      WRITE(ITTY,4)
    4 FORMAT(12H 16 NEW PAGE)
%TEST 205
CHECK THAT NO PAGING COMMAND PROPERLY CLOSES PAGE
JUST EXACTLY FILLED
** first top **
    1 FORMAT(15H This text will/15H appear on page/14H which is just/
     113H partly full.)
THIS COMES AFTER A PAGE NOT QUITE FULL
** second top **
    1 FORMAT(13H This is some/16H text which will/12H appear on a/3H pa,
     111Hge which is/14H exactly full.)
** second bottom **
THIS COMES AFTER A PAGE WHICH IS JUST EXACTLY FULL
** third top **
    1 FORMAT(13H This is some/16H text which will/12H appear on a/3H pa,
     113Hge which will/16H run over onto a)
** third bottom **
** third top **
    2 FORMAT(13H second page.)
THIS COMES AFTER A PAGE WHICH SPILLS ONTO THE NEXT PAGE
%TEST 206
CHECK THAT 3RD ARGUMENT OF PARAGRAPH COMMAND IS ACTIVE
ONLY WHEN AUTO PAGING
    1 FORMAT(16H This appears in/16H first paragraph//6X,4HThis/5H appe,
     16Hars in/7H second/15H paragraph when/11H not paging//6X,4HThis/
     211H appears in/16H third paragraph/16H when not paging)
** bottom **
** top **
    2 FORMAT(13H This appears/12H after .page//6X,4HThis/11H appears in/
     17H second/16H paragraph after/6H .page//6X,4HThis/11H appears in/
     216H third paragraph/12H after .page)
** bottom **
** top **
    3 FORMAT(13H This appears/14H after .paging)
** bottom **
** top **
    4 FORMAT(6X,4HThis/11H appears in/7H second/16H paragraph after/1H ,
     17H.paging)
** bottom **
** top **
    5 FORMAT(6X,4HThis/11H appears in/16H third paragraph/10H after .pa,
     14Hging/9H has been)
** bottom **
** top **
    6 FORMAT(8H issued.//6X,8HThere is/15H enough room on/10H page for ,
     14Hthis)
** bottom **
** top **
    7 FORMAT(10H paragraph)
%TEST 207
      WRITE(1,1)
    1 FORMAT(15H This page will/14H be terminated/2H e,
     15Harly.//)
C*******bottom*******
      WRITE(1,2)
    2 FORMAT(14H1This sentence/15H is long enough/2H t,
     111Hhat it will/11H have to be/15H continued onto/
     215H a second page.)
%TEST 208
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
first top
    1 FORMAT(28H PAGE COMMAND WITHOUT PAGING)
this is some program text
first bottom
second top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER,
     18H PROGRAM)
this is some program text
second bottom
third top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFOR,
     19HE PROGRAM)
this is some program text
third bottom
fourth top
    1 FORMAT(43H TEST PAGE IN NOFILL WITOUT PAGING, SKIP GI,
     118HVEN BEFORE PROGRAM)
this is some program text
fourth bottom
%TEST 209
top of page
    1 FORMAT(23H TEST PAGE WHILE PAGING)
bottom of page
this is some program text
    1 FORMAT(27H This is some ordinary text)
This is program text before a skip 2
This is program text after a skip 2
    2 FORMAT(//39H This is a second line of ordinary text)
This is program text after a skip 2
    3 FORMAT(//39H This is a sthird line of ordinary text)
%TEST 210
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
first top
    1 FORMAT(28H PAGE COMMAND WITHOUT PAGING)
this is some program text
first bottom
first top
    2 FORMAT(40H THIS IS AFTER THE START OF THE NEW PAGE)
second top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER,
     18H PROGRAM)
this is some program text
second bottom
second top
    2 FORMAT(40H THIS IS AFTER THE START OF THE NEW PAGE)
third top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFOR,
     19HE PROGRAM)
this is some program text
third bottom
third top
    2 FORMAT(40H THIS IS AFTER THE START OF THE NEW PAGE)
fourth top
    1 FORMAT(43H TEST PAGE IN NOFILL WITOUT PAGING, SKIP GI,
     118HVEN BEFORE PROGRAM)
this is some program text
fourth bottom
fourth top
    2 FORMAT(40H THIS IS AFTER THE START OF THE NEW PAGE)
fifth top
    1 FORMAT(23H TEST PAGE WHILE PAGING)
fifth bottom
this is some program text
fifth top
    2 FORMAT(40H THIS IS AFTER THE START OF THE NEW PAGE)
%TEST 211
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
sixth top
    1 FORMAT(28H PAGE COMMAND WITHOUT PAGING////////////////
     1////)
this is some program text
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER,
     18H PROGRAM)
this is some program text
    2 FORMAT(///////////////////)
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFOR,
     19HE PROGRAM////////////////////)
this is some program text
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE IN NOFILL WITOUT PAGING, SKIP GI,
     118HVEN BEFORE PROGRAM////////////////////)
this is some program text
sixth bottom
sixth top
    1 FORMAT(23H TEST PAGE WHILE PAGING/////////)
sixth bottom
this is some program text
    1 FORMAT(27H This is some ordinary text)
This is program text before a skip 2
This is program text after a skip 2
    2 FORMAT(//39H This is a second line of ordinary text//)
This is program text after a skip 2
    3 FORMAT(39H This is a sthird line of ordinary text)
%TEST 212
sixth top
    1 FORMAT(40H 1his is the first line in sixth section////
     1/////)
sixth bottom
sixth top
    2 FORMAT(37H 2his is in the next format statement)
sixth top
    1 FORMAT(40H 3his is the first line in sixth section)
4his is in program statements
    2 FORMAT(////////35H 5his is in the next format stateme,
     12Hnt)
sixth bottom
sixth top
    1 FORMAT(40H 6his is the first line in sixth section////
     1/////)
sixth bottom
7his is some program text
 
    1 FORMAT(40H 8his is the first line in sixth section)
    2 FORMAT(////////////////////23H 9his is some program t,
     13Hext)
    1 FORMAT(40H 10is is the first line in sixth section)
    2 FORMAT(////////////////////23H 11is is some program t,
     13Hext)
sixth top
    1 FORMAT(40H 12is is the first line in sixth section)
    2 FORMAT(//26H 13is is some program text)
sixth top
    1 FORMAT(40H 14is is the first line in sixth section////
     1/////)
sixth bottom
sixth top
    2 FORMAT(26H 15is is some program text)
%TEST 213
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
sixth top
    1 FORMAT(28H PAGE COMMAND WITHOUT PAGING)
    2 FORMAT(////////////////////23H this comes after the c,
     17Hontinue)
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER,
     18H PROGRAM)
    2 FORMAT(30H this comes after the continue//////////////
     1//////)
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFOR,
     19HE PROGRAM)
    2 FORMAT(////////////////////23H this comes after the c,
     17Hontinue)
sixth bottom
sixth top
    1 FORMAT(43H TEST PAGE IN NOFILL WITOUT PAGING, SKIP GI,
     118HVEN BEFORE PROGRAM)
    2 FORMAT(////////////////////23H this is comes after th,
     110He continue)
sixth bottom
sixth top
    1 FORMAT(23H TEST PAGE WHILE PAGING/////////)
sixth bottom
sixth top
    2 FORMAT(33H this is comes after the continue)
    1 FORMAT(27H This is some ordinary text)
    2 FORMAT(29H This is text before a skip 2///20H This is text after ,
     18Ha skip 2)
    3 FORMAT(39H This is a second line of ordinary text)
    4 FORMAT(//28H This is text after a skip 2)
    5 FORMAT(39H This is a sthird line of ordinary text)
%TEST 214
---THIS IS A PREFACE LINE---
    1 FORMAT(38H +++THIS IS A AFTER A CONTINUE LINE+++)
---THIS IS A PREFACE LINE---
    2 FORMAT(2H 1/2H 2///////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    3 FORMAT(2H 3/2H 4////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    4 FORMAT(2H 5/2H 6////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    5 FORMAT(2H 7/2H 8////////)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    6 FORMAT(2H 9/3H 10/3H 11)
---THIS IS A PREFACE LINE---
    7 FORMAT(36H +++THIS IS AFTER A CONTINUE LINE+++)
---THIS IS A PREFACE LINE---
    8 FORMAT(3H 12/3H 13/3H 14/3H 15/3H 16/3H 17)
***THIS IS AN BOTTOM LINE***
---THIS IS A PREFACE LINE---
    9 FORMAT(3H 18/3H 19/3H 20///////)
***THIS IS AN BOTTOM LINE***
%TEST 215
TEST SMALL SKIPS WHILE TRAILING AND PAGING
first top
    1 FORMAT(40H This is the first line in first section)
    2 FORMAT(//33H This is after a continue command)
second top
    1 FORMAT(41H This is the first line in second section//)
second top
    2 FORMAT(29H This is after a text command)
third top
    1 FORMAT(40H This is the first line in third section//)
This is after a program command
 
fourth top
    1 FORMAT(41H This is the first line in fourth section//)
This is after a program command
    2 FORMAT(33H This is after a continue command)
fifth top
    1 FORMAT(40H This is the first line in fifth section//)
This is after a program command
fifth top
    2 FORMAT(29H This is after a text command)
sixth top
    1 FORMAT(40H This is the first line in sixth section//)
    2 FORMAT(43H This is after a eject and continue command)
seventh top
    1 FORMAT(42H This is the first line in seventh section)
    2 FORMAT(//41H This is after a continue and eject comma,
     12Hnd)
eighth top
    1 FORMAT(41H This is the first line in eighth section//)
    2 FORMAT(43H This is after a page position and continue,
     18H command)
%TEST 216
    1 FORMAT(16H No     trailing/16H command     has/13H been issued.)
This is some program text after a skip 2
    2 FORMAT(//16H This  is  after/16H the    continue/9H command.)
    1 FORMAT(16H The    trailing/16H command     has/13H been issued.//)
This is some program text after a skip 2
    2 FORMAT(16H This  is  after/16H the    continue/9H command.)
*** third top
    1 FORMAT(16H No     trailing/16H command     has/15H been    issued,
     11H,/16H paging has been/8H issued.)
This is some program text after a skip 2
    2 FORMAT(//16H This  is  after/16H the    continue/9H command.)
*** fourth top
    1 FORMAT(16H The    trailing/16H command     has/15H been    issued,
     11H,/16H paging has been/8H issued.//)
This is some program text after a skip 2
    2 FORMAT(16H This  is  after/16H the    continue/9H command.)
*** fifth top
    1 FORMAT(16H No     trailing/16H command     has/15H been    issued,
     11H,/16H page  has  been/8H issued.)
This is some program text after a skip 2
    2 FORMAT(//16H This  is  after/16H the    continue/9H command.)
*** sixth top
    1 FORMAT(16H The    trailing/16H command     has/15H been    issued,
     11H,/16H page  has  been/8H issued.//)
This is some program text after a skip 2
    2 FORMAT(16H This  is  after/16H the    continue/9H command.)
%TEST 217
    1 FORMAT(21H 1This   text   comes/21H 2before   the   page/6H 3posi,
     113Htion command.//)
This is some program text
    2 FORMAT(//21H 10This  comes  after/5H 1the,8X,8Hcontinue/7H 2comma,
     12Hnd)
*** second top
    1 FORMAT(21H 1This   text   comes/21H 2before   the   page/6H 3posi,
     113Htion command.//)
This is some program text
    2 FORMAT(//21H 10This  comes  after)
*** second bottom
*** second top
    3 FORMAT(5H 1the,8X,8Hcontinue/9H 2command)
*** third top
    1 FORMAT(21H 1This   text   comes/21H 2before   the   page/6H 3posi,
     113Htion command.)
This is some program text
    2 FORMAT(////21H 10This  comes  after)
*** third bottom
*** third top
    3 FORMAT(5H 1the,8X,8Hcontinue/9H 2command)
*** fouth top
    1 FORMAT(21H 1This   text   comes//21H 3before   the   page//4H 5po,
     115Hsition command.///)
This is some program text
    2 FORMAT(//21H 13This  comes  after)
*** fourth bottom
*** fouth top
    3 FORMAT(5H 1the,8X,8Hcontinue//9H 3command)
*** fifth top
    1 FORMAT(21H 1This   text   comes//21H 3before   the   page//4H 5po,
     115Hsition command./)
This is some program text
    2 FORMAT(21H 9This  comes   after)
*** fifth bottom
*** fifth top
    3 FORMAT(5H 1the,8X,8Hcontinue//9H 3command)
*** sixth top
    1 FORMAT(21H 1This   text   comes/21H 2before   the   page/6H 3posi,
     113Htion command.//)
This is some program text
    2 FORMAT(//21H 10This  comes  after)
*** sixth bottom
*** sixth top
    3 FORMAT(5H 1the,8X,8Hcontinue/9H 2command)
%TEST 218
TEST THE PAGE POSITION COMMAND WITHOUT ARGUMENT
** first GROUP
*** first top
** first PREFACE
    1 FORMAT(21H11This   text   comes/21H*2before   the   page/6H*3posi,
     115Htion   command./21H*4We  want  this page/18H*5to  just  be   f,
     23Hull/21H*6when   we   try  to/21H*7insert  some  extra/7H*8lines,
     34X,10Honto   the/21H*9page  with  fortran/8H*10code.)
*** first bottom
*** first top
This is some program text
** first PREFACE
    2 FORMAT(2H*3/2H*4/2H*5/2H*6/2H*7/2H*8/2H*9/3H*10)
*** first bottom
*** first top
** first PREFACE
    3 FORMAT(2H11/2H*2/1H*)
** SECOND GROUP
*** second top
** SECOND PREFACE
    1 FORMAT(21H11This   text   comes/21H*2before   the   page/6H*3posi,
     115Htion   command./21H*4We  want  this page/18H*5to  just  be   f,
     23Hull/21H*6when   we   try  to/21H*7insert  some  extra/7H*8lines,
     34X,10Honto   the/17H*9page with code.)
*** second bottom
*** second top
This is some program text
** SECOND PREFACE
    2 FORMAT(2H*3/2H*4/2H*5/2H*6/2H*7/2H*8/2H*9/3H*10)
*** second bottom
*** second top
** SECOND PREFACE
    3 FORMAT(2H11/2H*2/1H*)
*** THIRD GROUP ***
*** third top
*** THIRD PREFACE ***
    1 FORMAT(21H11This   text   comes/21H*2before   the   page/6H*3posi,
     115Htion   command./21H*4We  want  this page/18H*5to  just  be   f,
     23Hull/21H*6when   we   try  to/21H*7insert  some  extra/7H*8lines,
     311H onto page.)
This is some program text
*** third bottom
*** third top
*** THIRD PREFACE ***
    2 FORMAT(2H11/2H*2/2H*3/2H*4/2H*5/2H*6/2H*7/2H*8/2H*9/3H*10)
*** third bottom
*** third top
*** THIRD PREFACE ***
    3 FORMAT(2H11/2H*2)
%TEST 219
TEST PAGE POSITION WITHOUT ARGUMENTS ON EMPTY PAGE
** first GROUP
** first top
** second GROUP
** second top
** third GROUP
** third top
This is some program text
 
** fourth GROUP
** fourth top
** fourth PREFACE
    1 FORMAT(23H This is some real text)
** fifth GROUP
** fifth top
** fifth PREFACE
    1 FORMAT(23H This is some real text)
%TEST 220
PAGE POSITION WITHOUT NUMBER BUT NO PAGE POSITION WITH NUMBER
** first GROUP
** first top
This is some program text
** first PREFACE
    1 FORMAT(27H1This is after the continue)
** second GROUP
** second top
This is some program text
** second PREFACE
    1 FORMAT(27H1This is after the continue)
** third GROUP
** third top
This is some program text
** third GROUP
** third top
** third PREFACE
    1 FORMAT(31H1This is after the text command)
%TEST 221
** first group
** first top
** first preface
    1 FORMAT(46H This is after 3 page positions and a continue)
** second group
** second top
** second preface
    1 FORMAT(46H This is after 3 page positions and a continue)
%TEST 222
** first group
** first top
** first preface
    1 FORMAT(2H 1/2H 2/2H 3/2H 4)
** first bottom
** first top
THIS IS SOME PROGRAM TEXT
** first bottom
** first top
** first preface
    2 FORMAT(37H THIS COMES AFTER THE PAGE POSITION+6/)
** second group
** second top
** second preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** second bottom
** second top
THIS IS SOME PROGRAM TEXT
** second bottom
** second top
** second preface
    2 FORMAT(2H11/2H*2/2H*3/2H*4/2H*5)
** second bottom
** second top
** second preface
    3 FORMAT(2H16/1H*)
** third group
** third top
** third preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** third bottom
** third top
THIS IS SOME PROGRAM TEXT
** third bottom
** third top
** third preface
    2 FORMAT(1H1/1H*/1H*/1H*/1H*)
** third bottom
** third top
** third preface
    3 FORMAT(1H1)
** fourth group
** fourth top
** fourth preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** fourth bottom
** fourth top
THIS IS SOME PROGRAM TEXT
** fourth bottom
** fourth top
this is some program text after the test page 3
** fourth preface
    3 FORMAT(2H*4/2H*5)
** fourth bottom
** fourth top
** fourth preface
    4 FORMAT(2H16)
%TEST 223
** first group
** first top
** first preface
    1 FORMAT(2H 1/2H 2/2H 3/2H 4)
** first top
THIS IS SOME PROGRAM TEXT
** first top
** first preface
    2 FORMAT(37H THIS COMES AFTER THE PAGE POSITION+6/)
** second group
** second top
** second preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** second top
THIS IS SOME PROGRAM TEXT
** second top
** second preface
    2 FORMAT(2H11/2H*2/2H*3/2H*4/2H*5)
** second top
** second preface
    3 FORMAT(2H16/1H*)
** third group
** third top
** third preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** third top
THIS IS SOME PROGRAM TEXT
** third top
** third preface
    2 FORMAT(1H1/1H*/1H*/1H*/1H*)
** third top
** third preface
    3 FORMAT(1H1)
** fourth group
** fourth top
** fourth preface
    1 FORMAT(2H11/2H*2/2H*3/2H*4/1H*)
** fourth top
THIS IS SOME PROGRAM TEXT
** fourth top
this is some program text after the test page 3
** fourth preface
    3 FORMAT(2H*4/2H*5)
** fourth top
** fourth preface
    4 FORMAT(2H16)