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