Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0147/format.get
There are 2 other files named format.get in the archive. Click here to see a list.
This file contains the results which are 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)