Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0147/format.try
There are 2 other files named format.try in the archive. Click here to see a list.
.comment This file contains test cases for the FORMAT
.comment program. The first test cases are the examples
.comment given in the user guide. The subsequent cases were
.comment developed during the writing of the FORMAT program.
.comment This file should be processed using the FORMAT
.comment program, and then the resulting file should be
.comment compared with the file of expected results.
.comment
.comment Please ignore the following paragraph.
.program
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.
.PROGRAM;%CASE NOTATION EXAMPLE FROM MANUAL
.RESET.preface WRITE(1,$)
.nofill.flags capitalize.output width 60.offset 0
\\^ONLY THE FIRST LETTER IN THIS LINE REMAINS UPPER CASE.
<THE FIRST WORD IN THIS LINE WILL BE CAPITALIZED.
^^^all but the first letter of this line remains lower case.
<the first word in this line will be capitalized.
Underscores precede _^, _\, _<, _# or __ which are kept.
.program; END
.reset.PROGRAM;%.BEGIN EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55
.begin 10,10;.preface WRITE(1,$)
.insert I2
.insert F2
The quick red fox jumps $$ feet over the lazy brown dog
.begin
The quick red fox jumps $$ feet over the lazy brown dog
.skip;.begin +100
.insert I2
.insert F2
.insert A2
The quick red fox jumps $$ feet over the lazy brown dog
.format,5
The quick red fox jumps $$ feet over the lazy brown dog
.skip;.format
The quick red fox jumps $$ feet over the lazy brown dog
.reset.PROGRAM;%.BLANK EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55
.blank
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.blank
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.blank 2
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.blank 3
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.reset.PROGRAM;%.BREAK EXAMPLE FROM MANUAL
.RESET.output width 55.spacing 2
one
two three
.break
four five six
seven eight nine ten
.break
eleven twelve thirteen fourteen fifteen
sixteen seventeen eighteen nineteen twenty twenty-one
.reset.PROGRAM;%.CARRIAGE EXAMPLE FROM MANUAL
.RESET.spacing 2.right margin 54.output width 55.paragraph
.carriage 1*.preface WRITE(1,$)
This is the first line in the demonstration of the
insertion of the carriage control character.
.eject.carriage 1#.paragraph
This is the second line in the demonstration of the
insertion of the carriage control character.
.eject.carriage 1.paragraph
This is the third line in the demonstration of the
insertion of the carriage control character.
.eject.no carriage.paragraph
This is the fourth line in the demonstration of the
insertion of the carriage control character.
.eject.program; END
.reset.PROGRAM;%.CENTER EXAMPLE FROM MANUAL
.RESET.OFFSET 0;.OUTPUT WIDTH 55;.PREFACE WRITE(1,$)
1234567890123456789012345678901234567890123456789012345
.LEFT MARGIN 14;.RIGHT MARGIN 34
The quick red fox jumps over the lazy brown dog
.CENTER 0;CENTER 0
.CENTER 52;CENTER 52
.CENTER -4;CENTER -4
.CENTER;CENTER #
.CENTER;CENTER
.CENTER; CENTER
.CENTER +12;CENTER +12
.CENTER 76;CENTER 76
.LEFT MARGIN 30;.RIGHT MARGIN 50;.CENTER 0
CENTER 0
The quick red fox jumps over the lazy brown dog
.LEFT MARGIN 0
1234567890123456789012345678901234567890123456789012345
.PROGRAM; END
.reset.PROGRAM;%.COPY EXAMPLE FROM MANUAL
.RESET.insert 5H01234
.insert 5H56789
.insert 6H111111
.insert 6H222222
.insert 6HPUBLIC
.insert 6HSECRET
.preface WRITE(1,$)
.offset 2.copy 29,1.output width 55.carriage 1,*
************************
.left margin 2.right margin 22
.mask * *
.skip.center 0;Corporation: $$$$$
.center 0; Firm: $$$$$
.skip;To gain initial access to the computer, you will
use the numbers $$$$$$ and $$$$$$ and password $$$$$$.
To run the programs, you will use the password $$$$$$.
.skip.left margin 0;************************
.program; END
.reset.PROGRAM;%.EJECT EXAMPLE FROM MANUAL
.RESET;one
.skip 2
.carriage *,*
two
.skip 2
.eject
.carriage @,@
three
.reset.PROGRAM;%.FILL EXAMPLE FROM MANUAL
.RESET.FILL.OFFSET 0.RIGHT MARGIN 55.OUTPUT WIDTH 55
.PREFACE WRITE(1,$)
The FILL command
indicates that each
line of text
represented in the
FORMAT statements is
to be filled
.NO JUSTIFY; with the next
words which appear
in the source
text until the
following word would
.NOFILL;extend beyond the
current right margin.
.PROGRAM; END
.reset.PROGRAM;%.FLAGS ALL EXAMPLE FROM MANUAL
.RESET.OUTPUT WIDTH 55.RIGHT MARGIN 55.OFFSET 0.NOFILL
.UPPERCASE.INSERT 3^^H\\THE
.FORMAT.PREFACE \\WRITE(1,$)
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.PROGRAM
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.NO FLAGS
.FORMAT.FLAGS CAPITALIZE.UPPER CASE.INSERT 3^^H\\THE
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.PROGRAM.PREFACE \\WRITE(1,$)
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.FLAGS
.UPPER CASE.FORMAT
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.PROGRAM
\\^THE QUICK#_RED <FOX JUMPS OVER $$$ LAZY _BROWN <DOG.
.reset.PROGRAM;%.FLAGS CAPITALIZE EXAMPLE FROM MANUAL
.RESET.nofill.offset 0.out width 55.preface WRITE(1,$)
.flag capitalize
^^UPPER lower <Le^S^s\T\han<UPPERlower UPPER lower
UPPER lower <Le^S^s\T\han UPPER lower
UPPER lower <Le^S^s\T\han
UPPER lower
.fcap %
\\UPPER lower %Le^S^s\T\han%UPPER*lower UPPER lower
UPPER lower %Le^S^s\T\han UPPER lower
UPPER lower %Le^S^s\T\han
UPPER lower
.no flag
^^UPPER lower %Le^S^s\T\han%UPPERlower UPPER lower
\\UPPER lower %Le^S^s\T\han%UPPER*lower UPPER lower
.flag
^^UPPER lower %Le^S^s\T\han%UPPERlower UPPER lower
\\UPPER lower %Le^S^s\T\han%UPPER*lower UPPER lower
.no flag capitalize
^^UPPER lower %Le^S^s\T\han%UPPERlower UPPER lower
\\UPPER lower %Le^S^s\T\han%UPPER*lower UPPER lower
.program; END
.reset.PROGRAM;%.FLAGS CONTROL EXAMPLE FROM MANUAL
.RESET.flag control *.this is the first line
*output width 55;and this is the second line.
*flag control =;=preface WRITE(1,$)
=reset;.PROGRAM;%.FLAGS FENCE EXAMPLE FROM MANUAL
.RESET.flag fence @!a comment;.indent 5@This text is to be
.output width 55@represented in the FORMAT statement.
.reset.PROGRAM;%.FLAGS INSERT EXAMPLE FROM MANUAL
.RESET.flags insert @.output width 55.program 100,10
.insert 1I8
.insert 1A8
.preface WRITE(1$2,@)
^^C NEXT FORMAT STATEMENT IS @.
.format;\\^MAXIMUM AMOUNT OF LOAN IS $@@@@@@@@.
.flags insert $.program
^^C NEXT FORMAT STATEMENT IS $.
.format;\\^MAXIMUM AMOUNT OF LOAN IS _$$$$$$$$$.
.no flags.program
^^C NEXT FORMAT STATEMENT IS $.
.format;\\^MAXIMUM AMOUNT OF LOAN IS _$$$$$$$$$.
.reset.PROGRAM;%.FLAGS LOWER CASE EXAMPLE FROM MANUAL
.RESET.flag capitalize.nofill.output width 55
\\\T\H\I\S \l\i\n\e WILL be ^^\A\L\L \l\o\w\e\r case
^^^t^h^i^s ^L^I^N^E WILL <be \\^A^L^L ^u^p^p^e^r <CASE
.flag lower case -.flag upper case +.flag capitalize @
---T-H-I-S -l-i-n-e WILL be ++-A-L-L -l-o-w-e-r case
+++t+h+i+s +L+I+N+E WILL @be --+A+L+L +u+p+p+e+r @CASE
.reset.PROGRAM;%.FLAGS QUOTE EXAMPLE FROM MANUAL
.RESET.flags quote *.left margin 3.output width 55
Some typical flag characters are
.indent -3
*###the number sign
.indent -3
*^##the circumflex
.indent -3
*\##the back slash
.indent -3
*$##the dollar sign
.indent -3
_##the underscore
.reset.PROGRAM;%.FLAGS REMARK EXAMPLE FROM MANUAL
.RESET.!.indent 5!command which has been commented out
.flags capitalize!comment separating commands;.offset 0
.preface one<two!three four
FIRST LINE
.format! 2\\back slashes;.preface five<six;seven eight
.!capitalization stops at end of <comment;SECOND LINE
.flag remark @!at sign inactive;.begin@ 2^^circumflexes
.preface nine<ten.eleven twelve
THIRD LINE
.reset.PROGRAM;%.FLAGS SPACE EXAMPLE FROM MANUAL
.RESET.output width 55
.insert 10Hthe _####
.insert 10Hthe *###
.preface ######write(1_#2,$)
This demonstrates $space###holding character.
.flags space *.break
This demonstrates $space***holding character.
.reset.PROGRAM;%.FLAGS UPPER CASE EXAMPLE FROM MANUAL
.RESET.flag capitalize.nofill.output width 55
.upper case
^this \F\O\L\L\O\W\S \a\n .UPPER <case command.
.lower case
^THIS \F\O\L\L\O\W\S a .^L^O^W^E^R <case command.
^^^this \F\O\L\L\O\W\S \t\w\o CIRCUM<flex characters.
\\^THIS \F\O\L\L\O\W\S two ^B^A^C^K <slash characters.
.flag lower case -.flag upper case+.flag capitalize @
+++this -F-O-L-L-O-W-S -t-w-o PLUS @sign characters.
--+THIS -F-O-L-L-O-W-S two +M+I+N+U+S @sign characters.
.reset.PROGRAM;%.FORMAT EXAMPLE FROM MANUAL
.RESET.preface WRITE(1,$)
.format 10,5 ;This is a message in FORMAT 10
.program ;C FORMAT statement $ follows
.format,20 ;This is a message in FORMAT 15
.format ;This is a message in FORMAT 35
.program 100-10;C FORMAT statement $ follows
.format ;This is a message in FORMAT 100
.format ;This is a message in FORMAT 90
.reset.PROGRAM;%.INDENT EXAMPLE FROM MANUAL
.RESET.offset 0.left margin 0.right margin 55.output width 55
.indent 5.preface WRITE(1,$)
The flag characters which are listed below are
deactivated by the .NO FLAGS command.
.left margin 5
.indent -3
_$##(dollar sign) or whatever character has been
selected by a .FLAGS INSERT command.
.indent -3
_###(number sign) or whatever character has been
selected by a .FLAGS SPACE command.
.PROGRAM; END
.reset.PROGRAM;%.INPUT WIDTH EXAMPLE FROM MANUAL
.RESET.input width 5.begin 10
12345This is not read
.iw+5This is not read
1234567890This is not read
.INWID 60
.reset.PROGRAM;%.INSERT EXAMPLE FROM MANUAL
.RESET.program 10
DATA KOUNT,IDAY,IYEAR/12345,12,80/
DATA IMONTH/3HJan/
WRITE(1,$)KOUNT,IDAY,IMONTH,IYEAR
.insert 1I5
.insert 1I2,1H-,1A3,1H-,1I2
.format.output width 55
$$$$$ items were produced on $$$$$$$$$.
.program
END
.reset.PROGRAM;%.JUSTIFY EXAMPLE FROM MANUAL
.RESET.output width 55.right margin 55.offset 0
.no justify.preface WRITE(1,$)
The .JUSTIFY and the .NO JUSTIFY commands do not
apply to text which is within the range of .NO FILL
commands and does not apply to the text which is
within the range of the .PROGRAM command.
.justify.skip
The .JUSTIFY and the .NO JUSTIFY commands do not
apply to text which is within the range of .NO FILL
commands and does not apply to the text which is
within the range of the .PROGRAM command.
.nofill.skip
The .JUSTIFY and the .NO JUSTIFY commands do not
apply to text which is within the range of .NO FILL
commands and does not apply to the text which is
within the range of the .PROGRAM command.
.program; END
.reset.PROGRAM;%.LEADING EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55.skip
The quick red fox jumps over the lazy brown dog, then
runs into the forest
.begin.leading.skip
The quick red fox jumps over the lazy brown dog, then
runs into the forest
.begin.trailing.skip
The quick red fox jumps over the lazy brown dog, then
runs into the forest
.begin.no leading.skip
The quick red fox jumps over the lazy brown dog, then
runs into the forest
.reset.PROGRAM;%.LEFT MARGIN EXAMPLE FROM MANUAL
.RESET.preface WRITE(1,$)
.output width 55;Default left margin and default offset
.left margin 10 ;Left margin 10 obtained as .lm 10
.left margin -5 ;Left margin 5 obtained as .lm-5
.left margin -5 ;Left margin 0 obtained as .lm-5
.left margin -5 ;Left margin -5 which is treated as 0
.left margin +5 ;Left margin 0 obtained as .lm+5
.left margin +5 ;Left margin 5 obtained as .lm+5
.offset 6 ;Unchanged left margin and offset 6
.left margin 10 ;Left margin 10 obtained as .lm 10
.left margin -5 ;Left margin 5 obtained as .lm-5
.left margin -5 ;Left margin 0 obtained as .lm-5
.left margin -5 ;Left margin -5 which is treated as 0
.left margin +5 ;Left margin 0 obtained as .lm+5
.left margin +5 ;Left margin 5 obtained as .lm+5
.program ; END
.reset.PROGRAM;%.LENGTH EXAMPLE FROM MANUAL
.RESET.offset 0.output width 55.length 3
.preface WRITE(1,$)
The FORMAT command indicates that no additional text
is to be represented by the FORMAT statement currently
being constructed and that the text appearing in
subsequent lines in the source file is to be
.length 10
represented in a new FORMAT statement. The preface
line, if any, indicated by a previous PREFACE command
will be written into the output before this next FORMAT
.length 3
statement. All unused output field descriptions
previously specified by INSERT commands will still be
available.
.reset.PROGRAM;%.LOWER CASE EXAMPLE FROM MANUAL
.RESET.nofill.output width 55.preface WRITE(1,$)
.noflags.flags capitalize;noflags
UPPER lower U^P\P_ER l^o\w_er
U<PPER l<ower U<PPE<R l<owe<r <U^P\P_ER <l^o\w_er
.lower case.flags;lower case
UPPER lower U^P\P_ER l^o\w_er
U<PPER l<ower U<PPE<R l<owe<r <U^P\P_ER <l^o\w_er
.upper case;upper case
UPPER lower U^P\P_ER l^o\w_er
U<PPER l<ower U<PPE<R l<owe<r <U^P\P_ER <l^o\w_er
.program; END
.reset.PROGRAM;%.MASK EXAMPLE FROM MANUAL
.RESET.left margin 2.right margin 13.preface WRITE(1,$)
.carriage 1.offset 5.copy 17,2.mask * *
.indent -1.output width 55;=============
.insert 3Hhow
.insert 5H.MASK
.insert 3Hand
.insert 5H.COPY
.skip;This shows $$$ $$$$$ $$$ $$$$$ commands work.
.skip.indent -1;=============
.break.no mask.no copy.skip;Not in range of either.
.program; END
.reset.PROGRAM;%.NO CARRIAGE EXAMPLE FROM MANUAL
.RESET.carriage 1,*.right margin 54.output width 55
.preface WRITE(1,$)
The .NO CARRIAGE command terminates the generation of
the carriage control character specified by the
previous .CARRIAGE command.
.break.no carriage
The .NO CARRIAGE command terminates the generation of
the carriage control character specified by the
previous .CARRIAGE command.
.program; END
.reset.PROGRAM;%.NO COPY EXAMPLE FROM MANUAL
.RESET.right margin 20.copy 25,1.carriage 1,*.offset 3
.output width 55.preface WRITE(1,$)
The .NO COPY command terminates the range of the
previous .COPY command.
.no copy
Both the .COPY command and the .NO COPY command imply
a .BREAK command
.program; END
.reset.PROGRAM;%.NO FILL EXAMPLE FROM MANUAL
.RESET.output width 55.right margin 55.offset 0
.nofill.preface WRITE(1,$)
The .NO FILL command is not equivalent
to the combination of a .FILL command
and a .NO JUSTIFY command.
.fill
The .NO FILL command is not equivalent
to the combination of a .FILL command
and a .NO JUSTIFY command.
.no justify
The .NO FILL command is not equivalent
to the combination of a .FILL command
and a .NO JUSTIFY command.
.program; END
.reset.PROGRAM;%.NO INSERT EXAMPLE FROM MANUAL
.RESET.output width 55
.insert 7Hcommand
.insert 6Hgroups
.insert 3Hthe
The .NO INSERT $$$$$$$ discards $$$$$$ of characters
which were defined by $$$ .INSERT command, but which
.no insert
remain unused.
.reset.PROGRAM;%.NO JUSTIFY EXAMPLE FROM MANUAL
.RESET.no justify.output width 55.right margin 55
.offset 0.preface WRITE(1,$)
Lines of text which are constructed
in fill mode, but without justification,
have the words wrapped around until
the next word would extend beyond
the right margin, but the lines
are not of uniform length.
.program; END
.reset.PROGRAM;%.NO LEADING EXAMPLE FROM MANUAL
.RESET
.leading.skip.output width 55
Leading blank lines requested by .SKIP commands are
generated within the range of a .LEADING command
.text.skip
Leading blank lines requested by .SKIP commands are
generated within the range of a .LEADING command
.text.no leading.skip
Leading blank lines requested by .SKIP commands are
discarded within the range of a .NO LEADING command
.reset.PROGRAM;%.NO MASK EXAMPLE FROM MANUAL
.RESET.output width 55.preface WRITE(1,$)
.left margin 5.right margin 45.carriage 1,*
.mask @ @
The .NO MASK command terminates the range of the
previous .MASK command.
.mask % %
The .NO MASK command has no effect if a .MASK command
has not been issued.
.nomask.program; END
.reset.PROGRAM;%.NO OFFSET EXAMPLE FROM MANUAL
.RESET.offset 1.indent 5.right margin 50.output width 55
.preface WRITE(1,$)
The default .OFFSET 1 command provides an empty column
for the carriage control character.
.no offset.indent 5;The .NO OFFSET command prevents the
generation of this empty column.
.program; END
.reset.PROGRAM;%.NO PREFACE EXAMPLE FROM MANUAL
.RESET.preface WRITE(1,$)
This is the first line
.format
This is the second line
.format.no preface
This is the third line
.reset.PROGRAM;%.NO TRAILING EXAMPLE FROM MANUAL
.RESET.no trailing.spacing 1
This is the first line
.skip.begin.spacing 2
This is the second line
.begin.trailing.spacing 1
This is the third line
.skip.begin.spacing 2
This is the fourth line
.reset.PROGRAM;%.OFFSET EXAMPLE FROM MANUAL
.RESET.left margin 5.right margin 44.output width 55
.preface WRITE(1,$)
.mask @ @
.offset 1.indent 5.carriage 1,*
The offset specified by the .OFFSET command is in
addition to that specified by the .LEFT MARGIN
and .INDENT or .PARAGRAPH commands.
.offset 6.indent 5.carriage 1,*
The offset specified by the .OFFSET command is in
addition to that specified by the .LEFT MARGIN
and .INDENT or .PARAGRAPH commands.
.program; END
.reset.PROGRAM;%.OUTPUT WIDTH EXAMPLE FROM MANUAL
.RESET.output width 35
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.output width 45
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.output width 55
.reset.PROGRAM;%.PARAGRAPH EXAMPLE FROM MANUAL
.RESET.output width 55.left margin 5.right margin 54
.carriage 1,*.paragraph.preface WRITE(1,$)
This line is at the start of the source and will only
be indented.
.spacing 2.paragraph 10
(spacing-1)-(negative argument) = (1-1)-(-1) = 1 blank
line since the default .SPACING 1 command was in effect
at the end of the previous line.
.paragraph
(2-1)-(-1) = 2 blank lines precede this paragraph since
the .SPACING 2 command was in effect at the end of the
previous line.
.paragraph -5,2
(spacing-1)+(spacing*(positive argument)) = (2-1)+(2*2)
= 5 lines precede this paragraph.
.program; END
.reset.PROGRAM;%.PREFACE EXAMPLE FROM MANUAL
.RESET.length 2.output width 55.right margin 30.
.preface IF(KONTRL.EQ.1)WRITE(1,$$$)
The .PREFACE command allows several FORMAT statements
representing a single section of text to be used under
the same conditions.
.RESET.length 2.output width 55.right margin 30.
.preface $$$$$ IF(KONTRL.EQ.1)WRITE(1,$=$$$)
The .PREFACE command allows several FORMAT statements
representing a single section of text to be used under
the same conditions.
.reset.PROGRAM;%.PROGRAM EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55.offset 0
.begin 10,10 ;Statement ten
.program ;Next statement will be number $$$.
.format ;Statement twenty
.program+5,100 ;Next statement will be number $$.
_.Underscore before initial period and dollar sign _$.
.format ;Statement twenty-five
.trail !blank lines will now end statements
.program ;Next statement will be number $.
.format ;Statement one hundred and twenty-five
.reset.PROGRAM;%.RIGHT MARGIN EXAMPLE FROM MANUAL
.RESET.output width 55.carriage 1,*.preface WRITE(1,$)
.left margin 5.right margin 30.indent 5
The .RIGHT MARGIN command implies a .BREAK command.
.right margin 40.indent -5
The .RIGHT MARGIN command applies only to text which is
constructed in fill mode.
.nofill;The right margin is ignored in no fill mode.
.program; END
.reset.PROGRAM;%.SKIP EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55
.skip
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.skip
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.skip 2
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.skip 3
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.reset.PROGRAM;%.SPACING EXAMPLE FROM MANUAL
.RESET.output width 55.right margin 54
.carriage 1,*.preface WRITE(1,$)
A .SPACING 1 command is assumed to be in effect when
this program is started.
.spacing 2
No blank lines precede this since the .SPACING 2
command forced out previous line before taking effect.
.blank 2;Normal spacing and 2 blank lines
.skip 2;Normal spacing and 2 multiples of 2 blank lines
.paragraph 5,2;Paragraph similar to .skip 2.indent 5
.program; END
.reset.PROGRAM;%.TRAILING EXAMPLE FROM MANUAL
.RESET.spacing 2.output width 55.use'.offset 0.begin 10
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.begin 20
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.skip.begin 30.trail
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.begin 40
The quick red fox jumps over the lazy brown dog,
then runs into the forest.
.skip
.reset.PROGRAM;%.UPPER CASE EXAMPLE FROM MANUAL
.RESET.offset 0.right margin 55.output width 55
.flags capitalize.preface WRITE(1,$)
An <.upper ^c^a^s^e \C\O\M\M\A\N\D does not have to be
issued when this program is first started.
.lower case
^A <.LOWER ^C^A^S^E \C\O\M\M\A\N\D CAN BE ISSUED TO
CAUSE CONVERSION TO LOWER CASE.
.upper case
The <.upper ^c^a^s^e \C\O\M\M\A\N\D can, of course, be
reissued at any time.
.program; END
.reset.PROGRAM;%.USE EXAMPLE FROM MANUAL
.RESET.out width 55;one * two ** three ' four '' five
.break.use' ;one * two ** three ' four '' five
.break.use * ;one * two ** three ' four '' five
.break.useH ;one * two ** three ' four '' five
.break.use h ;one * two ** three ' four '' five
.program;%.COMMENT EXAMPLE FROM MANUAL
.reset
.output width 55.right margin 54
This sentence is followed by a simple comment.
.comment continuing across a ; (semicolon) character
THE COMMENT WHICH APPEARS AFTER THIS WORD
.COMMENT CONTAINING \\ (DOUBLE BACKSLASHES)
CONTAINS A DOUBLE BACKSLASH WHICH SELECTS UPPER TO
LOWER CASE CONVERSION IN THE FOLLOWING TEXT.
THE COMMENT WHICH APPEARS AFTER THIS WORD
.comment.skip.nofill!.skip.nofill;.skip.nofill^^
CONTAINS A DOUBLE CIRCUMFLEX WHICH RESTORES THE
RETENTION OF ORIGINAL CASES.
The characters which select case conversion or
retention are acted upon even though the commands
which have been commented out are otherwise ignored.
.RESET
.PROGRAM;%.END DEFINITION EXAMPLE FROM MANUAL
.RESET
.output width 55
.define group
C THIS IS INSERTED BEFORE EACH NEW GROUP OF FORMATS
WRITE(ITTY,100)
.define preface
C THIS IS INSERTED BEFORE EACH NEW FORMAT STATEMENT
WRITE(ITTY,$)
.end definition
This text will be in the first format statment.
.continue
This comes after the first CONTINUE command.
.program
C THIS IS INSERTED BY A PROGRAM COMMAND
.continue
This comes after the second CONTINUE command.
.text
This comes after a TEXT command.
.RESET
.PROGRAM;%.DEFINE PREFACE EXAMPLE FROM MANUAL
.RESET
.output width 55.output length 5
.define preface
C
C THIS IS A NEW FORMAT STATEMENT
WRITE(ITTY,$)
.end definition
This is some text which will demonstrate the insertion
of several lines of FORTRAN code before each new
FORMAT statement. The code which is inserted can
contain any desired mixture of comments and
FORTRAN instructions.
.text
This comes after a .TEXT command
.continue
and this comes after a .CONTINUE command.
.RESET
.PROGRAM;%.RESUME PREFACE EXAMPLE FROM MANUAL
.RESET
.output width 55
.preface WRITE(ITTY,$)
This text comes after the definition of a preface
line by the .PREFACE command.
.continue.no preface
This text comes after the .NO PREFACE command.
There will not be a preface line before this FORMAT.
.continue.resume preface
This text comes after the .RESUME PREFACE command.
The preface line will again appear before this FORMAT.
.RESET
.PROGRAM;%.DEFINE GROUP EXAMPLE FROM MANUAL
.RESET
.OUTPUT WIDTH 55.OUTPUT LENGTH 3.NO JUSTIFY
.DEFINE GROUP
C
C NEXT MESSAGE
GO TO 1000
$$$$$ CONTINUE$=
.END DEFINITION
.PREFACE WRITE(ITTY,$)
The first FORMAT statement which is generated should
be preceded by both group and preface lines even
though this text is not preceded by either a .TEXT
or a .CONTINUE command.
.CONTINUE
This text appears after a .CONTINUE command.
It should be preceded by preface but not group lines.
.TEXT 100
This text appears after a .TEXT command and
should be preceded by both group and preface lines.
.RESET
.PROGRAM;%.GROUP EXAMPLE FROM MANUAL
.RESET
.output width 55.output length 2
.group GO TO 1000
.preface $$$$$ WRITE(ITTY,$=$)
This is the first text in the example.
It should be preceded by both a group
and a preface line.
.continue
This text follows a .CONTINUE command.
.text 100
This text follows a .TEXT command.
.RESET
.PROGRAM;%.NO GROUP EXAMPLE FROM MANUAL
.RESET
.group GO TO 1000
.preface $$$$$ WRITE(1,$=$)
This is the first line
.text
This is the second line
.text.no group
This is the third line
.RESET
.PROGRAM;%.RESUME GROUP EXAMPLE FROM MANUAL
.RESET
.output width 55
.group WRITE(ITTY,$)
This text comes after the definition of a group
line by the .GROUP command.
.text.no group
This text comes after the .NO GROUP command.
There will not be a group line before this FORMAT.
.text.resume group
This text comes after the .RESUME GROUP command.
The group line will again appear before this FORMAT.
.RESET.PROGRAM;%.BOTTOM EXAMPLE FROM MANUAL
.RESET
.page length 5.right margin 14.output width 55
.paging.page carriage 1.no justify
.preface WRITE(ITTY,$)
.bottom READ(ITTY,999)LTRDMY
This is some text on the first page.
It will be filled with relatively little text.
.page
This comes after the page command.
.program
999 FORMAT(1A1)
END
.reset.program;%.PAGE CARRIAGE EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.output width 55
.no justify.trailing.paging
.preface WRITE(ITTY,$)
.carriage,+
.page carriage 1-
This is on a fixed length page.
.page.no paging
Paging is not being performed at this point.
.page
A page command started this page
which will not end after a fixed number of lines.
.reset.program;%.PAGE EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.output width 55
.no justify
.preface WRITE(1,$)
.page carriage 1
.paging.trailing
This page will be terminated early.
.page
This sentence is long enough that it will
have to be continued onto a second page.
.reset.program;%.TOP EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.output width 55
.no justify
.preface WRITE(ITTY,$)
.top WRITE(ITTY,100)
.define bottom
WRITE(ITTY,101)
READ(ITTY,102)LTRDMY
.end definition
.paging.trailing
.program; ITTY=5
.text;This page will be terminated early.
.page
This sentence is long enough that it will
have to be continued onto a second page.
.page
.program
100 FORMAT('1Sample Screen'/)
101 FORMAT(/' Press RETURN',_$)
102 FORMAT(1A1)
END
.reset.program;%NO PAGE CARRIAGE EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.output width 55
.preface WRITE(1,$)
.paging.page carriage 1,+.spacing 2.no justify
This is double spaced on the first page.
.page.page carriage _ ,_
This has space as carriage control.
.page.no page carriage
This does not have carriage control.
.reset.program;%PAGE POSITION COMMAND EXAMPLE FROM MANUAL
.reset
.paging.page length 5.right margin 14.output width 55
.no justify
.top WRITE(ITTY,1)
.define bottom
WRITE(ITTY,2)
READ(ITTY,3)LTRRTN
.preface WRITE(ITTY,$)
.program
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
.text 500
.page position
.program
GO TO 4
C
C AFTER FIRST INSERTION
200 CONTINUE
.continue
.page position 4
This is after 1st insertion.
.test page 3
.page position
.program
GO TO 4
C
C AFTER SECOND INSERTION
300 CONTINUE
.continue
.page position +3
This is after 2nd insertion.
.test page 4
.page position
.program
GO TO 4
C
C AFTER THIRD INSERTION
400 CONTINUE
.continue
.page position +4
.program
1 FORMAT('1Read message')
2 FORMAT(' Press RETURN',_$)
3 FORMAT(1A1)
4 RETURN
END
.reset.program;%PAGING EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.output width 55
.no justify.trailing
.page carriage +-
.preface WRITE(ITTY,$)
.top WRITE(ITTY,1)
.define bottom
WRITE(ITTY,2)
READ(ITTY,3)LTRRTN
.program
DATA ITTY/5/
.text 100
This text will not be divided into pages.
.paging
This text will be split into pages and will
use carriage control set by PAGE CARRIAGE.
Text set by TOP and BOTTOM commands will
be inserted at page boundary.
.no paging
This text will not be divided into pages.
.program
1 FORMAT('1Read message')
2 FORMAT(' Press RETURN',_$)
3 FORMAT(1A1)
END
.reset.program;%TEST SPACING EXAMPLE FROM MANUAL
.RESET
.page length 7.right margin 14.output width 55
.trailing.spacing 2
.page carriage +-
.preface WRITE(ITTY,$)
.top WRITE(ITTY,1)
.define bottom
WRITE(ITTY,2)
READ(ITTY,3)LTRRTN
.program
DATA ITTY/5/
.text 100
TEST SPACING
.test spacing 3
commands are
.test spacing 3
intersperced
.test page 5
amoung these
.test page 5
double spaced
.test spacing 3
lines of text.
.program
1 FORMAT('1Read message')
2 FORMAT(' Press RETURN',_$)
3 FORMAT(1A1)
END
.reset.program;%TRAILING COMMAND EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.no justify
.paging.page carriage 1.output width 55
.preface WRITE(ITTY,$)
A TRAILING command hasn't been issued.
.page.trailing
A TRAILING command is now active.
.test page 3
This comes after the TEST PAGE command.
.reset.program;%LEADING COMMAND EXAMPLE FROM MANUAL
.reset
.page length 5.right margin 14.no justify
.paging.page carriage 1.output width 55
.preface WRITE(ITTY,$)
.skip
A LEADING command hasn't been issued.
.skip 2.page.leading.skip 1
A LEADING command is now active.
.trailing.skip 2
Both LEADING and TRAILING are active.
.reset.program;%PAGE LENGTH EXAMPLE FROM MANUAL
.reset
.right margin 14.output width 55.no justify
.trailing.paging.page carriage 1
.preface WRITE(ITTY,$)
.page length 5
This page will end with a PARAGRAPH command.
.paragraph
This page will end with a TEST PAGE command.
.test page 2
This final page will end with a PAGE command.
.page
.reset.program;%PARAGRAPH EXAMPLE FROM MANUAL
.reset
.page length 10.right margin 24.output width 55
.paging.page carriage 1.trailing
.preface WRITE(ITTY,$)
.bottom READ(ITTY,101)IPAUSE
.paragraph
This demonstrates that the .PARAGRAPH commands checks
if there is enough room at the bottom of the page for
a reasonable number of lines to be printed.
.paragraph
This follows a .PARAGRAPH command. There wasn't enough
room on the first page for this paragraph.
.paragraph
This also follows a .PARAGRAPH command. However, There
is enough room on the page for it.
.program
101 FORMAT(1A1)
.reset.program;%.SKIP WITH NEGATIVE ARGUMENT EXAMPLE FROM MANUAL
.reset
.page length 10.right margin 24.output width 55
.paging.page carriage 1
.preface WRITE(ITTY,$)
.bottom READ(ITTY,101)IPAUSE
This is single spaced at the top of the page.
.skip-2
This is single spaced at the bottom of the page.
.spacing 2
This is double spaced at the top of the page.
.skip-2
This is double spaced at the bottom of the page.
.program
101 FORMAT(1A1)
.RESET;.PROGRAM;%TEST 1
.RESET.USE.INDENT 5
ONE'*
.BREAK.USE'
TWO'*
.BREAK.USE*
THREE'*
.BREAK.USEH
FOUR'*
.BREAK.USE '
FIVE'*
.BREAK.USE H.LEFT MARGIN 5
SIX'*
.BREAK. USE
SEVEN
.BREAK.USE h
EIGHT
.RESET.PROGRAM;%TEST 2
.RESET.BEGIN 123
ONE
.PREFACE THIS IS THE FIRST PREFACE LINE AND $ IS DOLLAR
.SKIP
TWO
.SKIP 2
THREE
.SKIP
FOUR
.BEGIN 456.NO PREFACE
.LENGTH 2
.output WIDTH 30
ONE
.PREFACE ($) ($$) ($$$) ($$$$) ($$$$$) ($$$$$$) BUT KEEP _$ THIS ONE
.SKIP 50;.SKIP 50
TWO
.LENGTH 4
.SKIP 100
THREE
.SKIP 50;.SKIP 50;.BEGIN 789.NO PREFACE.SKIP 50
END
.SKIP 50;.SKIP 50
.reset.program;%TEST 3
.RESET
.!THIS TESTS ABBREVIATION RECOGNITION. IN RESULT, ALL S, T, W AND Y
.!SHOULD BE IN UPPER CASE AND X AND Z IN LOWER CASE. ALL U AND V
.!SHOULD BE SEPARATED BY *
.NOJUSTIFY.PREFACE WRITE(1,$)
.FLAGS LOWER CASE @;Y@Z
.FLAGS LOWE CASE %;W%X
.FLAGS LOW CASE @;Y@Z
.FLAGS LO CASE %;W%X
.FLAGS L CASE @;Y@Z
.FLAG LOWER CASE %;W%X
.FLAG LOWE CASE @;Y@Z
.FLAG LOW CASE %;W%X
.FLAG LO CASE @;Y@Z
.FLAG L CASE %;W%X
.FLA LOWER CASE @;Y@Z
.FLA LOWE CASE %;W%X
.FLA LOW CASE @;Y@Z
.FLA LO CASE %;W%X
.FLA L CASE @;Y@Z
.FL LOWER CASE %;W%X
.FL LOWE CASE @;Y@Z
.FL LOW CASE %;W%X
.FL LO CASE @;Y@Z
.FL L CASE %;W%X
.F LOWER CASE @;Y@Z
.F LOWE CASE %;W%X
.F LOW CASE @;Y@Z
.F LO CASE %;W%X
.F L CASE @;Y@Z
.FLAGSLOWER CASE %;W%X
.FLAGSLOWE CASE @;Y@Z
.FLAGSLOW CASE %;W%X
.FLAGSLO CASE @;Y@Z
.FLAGSL CASE %;W%X
.FLAGLOWER CASE @;Y@Z
.FLAGLOWE CASE %;W%X
.FLAGLOW CASE @;Y@Z
.FLAGLO CASE %;W%X
.FLAGL CASE @;Y@Z
.FLALOWER CASE %;W%X
.FLALOWE CASE @;Y@Z
.FLALOW CASE %;W%X
.FLALO CASE @;Y@Z
.FLAL CASE %;W%X
.FLLOWER CASE @;Y@Z
.FLLOWE CASE %;W%X
.FLLOW CASE @;Y@Z
.FLLO CASE %;W%X
.FLL CASE @;Y@Z
.!FLOWER CASE *;U*V
.!FLOWE CASE *;U*V
.!FLOW CASE *;U*V
.!FLO CASE *;U*V
.!FL CASE *;U*V
.FLAGS LOWERCASE %;W%X
.FLAGS LOWECASE @;Y@Z
.FLAGS LOWCASE %;W%X
.FLAGS LOCASE @;Y@Z
.FLAGS LCASE %;W%X
.FLAG LOWERCASE @;Y@Z
.FLAG LOWECASE %;W%X
.FLAG LOWCASE @;Y@Z
.FLAG LOCASE %;W%X
.FLAG LCASE @;Y@Z
.FLA LOWERCASE %;W%X
.FLA LOWECASE @;Y@Z
.FLA LOWCASE %;W%X
.FLA LOCASE @;Y@Z
.FLA LCASE %;W%X
.FL LOWERCASE @;Y@Z
.FL LOWECASE %;W%X
.FL LOWCASE @;Y@Z
.FL LOCASE %;W%X
.FL LCASE @;Y@Z
.F LOWERCASE %;W%X
.F LOWECASE @;Y@Z
.F LOWCASE %;W%X
.F LOCASE @;Y@Z
.F LCASE %;W%X
.FLAGSLOWERCASE @;Y@Z
.FLAGSLOWECASE %;W%X
.FLAGSLOWCASE @;Y@Z
.FLAGSLOCASE %;W%X
.FLAGSLCASE @;Y@Z
.FLAGLOWERCASE %;W%X
.FLAGLOWECASE @;Y@Z
.FLAGLOWCASE %;W%X
.FLAGLOCASE @;Y@Z
.FLAGLCASE %;W%X
.FLALOWERCASE @;Y@Z
.FLALOWECASE %;W%X
.FLALOWCASE @;Y@Z
.FLALOCASE %;W%X
.FLALCASE @;Y@Z
.FLLOWERCASE %;W%X
.FLLOWECASE @;Y@Z
.FLLOWCASE %;W%X
.FLLOCASE @;Y@Z
.FLLCASE %;W%X
.!FLOWERCASE *;U*V
.!FLOWECASE *;U*V
.!FLOWCASE *;U*V
.!FLOCASE *;U*V
.!FLCASE *;U*V
.FLAGS LOWER CAS @;Y@Z
.FLAGS LOWE CAS %;W%X
.FLAGS LOW CAS @;Y@Z
.FLAGS LO CAS %;W%X
.FLAGS L CAS @;Y@Z
.FLAG LOWER CAS %;W%X
.FLAG LOWE CAS @;Y@Z
.FLAG LOW CAS %;W%X
.FLAG LO CAS @;Y@Z
.FLAG L CAS %;W%X
.FLA LOWER CAS @;Y@Z
.FLA LOWE CAS %;W%X
.FLA LOW CAS @;Y@Z
.FLA LO CAS %;W%X
.FLA L CAS @;Y@Z
.FL LOWER CAS %;W%X
.FL LOWE CAS @;Y@Z
.FL LOW CAS %;W%X
.FL LO CAS @;Y@Z
.FL L CAS %;W%X
.F LOWER CAS @;Y@Z
.F LOWE CAS %;W%X
.F LOW CAS @;Y@Z
.F LO CAS %;W%X
.F L CAS @;Y@Z
.FLAGSLOWER CAS %;W%X
.FLAGSLOWE CAS @;Y@Z
.FLAGSLOW CAS %;W%X
.FLAGSLO CAS @;Y@Z
.FLAGSL CAS %;W%X
.FLAGLOWER CAS @;Y@Z
.FLAGLOWE CAS %;W%X
.FLAGLOW CAS @;Y@Z
.FLAGLO CAS %;W%X
.FLAGL CAS @;Y@Z
.FLALOWER CAS %;W%X
.FLALOWE CAS @;Y@Z
.FLALOW CAS %;W%X
.FLALO CAS @;Y@Z
.FLAL CAS %;W%X
.FLLOWER CAS @;Y@Z
.FLLOWE CAS %;W%X
.FLLOW CAS @;Y@Z
.FLLO CAS %;W%X
.FLL CAS @;Y@Z
.!FLOWER CAS *;U*V
.!FLOWE CAS *;U*V
.!FLOW CAS *;U*V
.!FLO CAS *;U*V
.!FL CAS *;U*V
.FLAGS LOWERCAS %;W%X
.FLAGS LOWECAS @;Y@Z
.FLAGS LOWCAS %;W%X
.FLAGS LOCAS @;Y@Z
.FLAGS LCAS %;W%X
.FLAG LOWERCAS @;Y@Z
.FLAG LOWECAS %;W%X
.FLAG LOWCAS @;Y@Z
.FLAG LOCAS %;W%X
.FLAG LCAS @;Y@Z
.FLA LOWERCAS %;W%X
.FLA LOWECAS @;Y@Z
.FLA LOWCAS %;W%X
.FLA LOCAS @;Y@Z
.FLA LCAS %;W%X
.FL LOWERCAS @;Y@Z
.FL LOWECAS %;W%X
.FL LOWCAS @;Y@Z
.FL LOCAS %;W%X
.FL LCAS @;Y@Z
.F LOWERCAS %;W%X
.F LOWECAS @;Y@Z
.F LOWCAS %;W%X
.F LOCAS @;Y@Z
.F LCAS %;W%X
.FLAGSLOWERCAS @;Y@Z
.FLAGSLOWECAS %;W%X
.FLAGSLOWCAS @;Y@Z
.FLAGSLOCAS %;W%X
.FLAGSLCAS @;Y@Z
.FLAGLOWERCAS %;W%X
.FLAGLOWECAS @;Y@Z
.FLAGLOWCAS %;W%X
.FLAGLOCAS @;Y@Z
.FLAGLCAS %;W%X
.FLALOWERCAS @;Y@Z
.FLALOWECAS %;W%X
.FLALOWCAS @;Y@Z
.FLALOCAS %;W%X
.FLALCAS @;Y@Z
.FLLOWERCAS %;W%X
.FLLOWECAS @;Y@Z
.FLLOWCAS %;W%X
.FLLOCAS @;Y@Z
.FLLCAS %;W%X
.!FLOWERCAS *;U*V
.!FLOWECAS *;U*V
.!FLOWCAS *;U*V
.!FLOCAS *;U*V
.!FLCAS *;U*V
.FLAGS LOWER CA @;Y@Z
.FLAGS LOWE CA %;W%X
.FLAGS LOW CA @;Y@Z
.FLAGS LO CA %;W%X
.FLAGS L CA @;Y@Z
.FLAG LOWER CA %;W%X
.FLAG LOWE CA @;Y@Z
.FLAG LOW CA %;W%X
.FLAG LO CA @;Y@Z
.FLAG L CA %;W%X
.FLA LOWER CA @;Y@Z
.FLA LOWE CA %;W%X
.FLA LOW CA @;Y@Z
.FLA LO CA %;W%X
.FLA L CA @;Y@Z
.FL LOWER CA %;W%X
.FL LOWE CA @;Y@Z
.FL LOW CA %;W%X
.FL LO CA @;Y@Z
.FL L CA %;W%X
.F LOWER CA @;Y@Z
.F LOWE CA %;W%X
.F LOW CA @;Y@Z
.F LO CA %;W%X
.F L CA @;Y@Z
.FLAGSLOWER CA %;W%X
.FLAGSLOWE CA @;Y@Z
.FLAGSLOW CA %;W%X
.FLAGSLO CA @;Y@Z
.FLAGSL CA %;W%X
.FLAGLOWER CA @;Y@Z
.FLAGLOWE CA %;W%X
.FLAGLOW CA @;Y@Z
.FLAGLO CA %;W%X
.FLAGL CA @;Y@Z
.FLALOWER CA %;W%X
.FLALOWE CA @;Y@Z
.FLALOW CA %;W%X
.FLALO CA @;Y@Z
.FLAL CA %;W%X
.FLLOWER CA @;Y@Z
.FLLOWE CA %;W%X
.FLLOW CA @;Y@Z
.FLLO CA %;W%X
.FLL CA @;Y@Z
.!FLOWER CA *;U*V
.!FLOWE CA *;U*V
.!FLOW CA *;U*V
.!FLO CA *;U*V
.FL CA =!TAKEN AS FLAG CAPITALIZE =;S=T
.FLAGS LOWERCA %;W%X
.FLAGS LOWECA @;Y@Z
.FLAGS LOWCA %;W%X
.FLAGS LOCA @;Y@Z
.FLAGS LCA %;W%X
.FLAG LOWERCA @;Y@Z
.FLAG LOWECA %;W%X
.FLAG LOWCA @;Y@Z
.FLAG LOCA %;W%X
.FLAG LCA @;Y@Z
.FLA LOWERCA %;W%X
.FLA LOWECA @;Y@Z
.FLA LOWCA %;W%X
.FLA LOCA @;Y@Z
.FLA LCA %;W%X
.FL LOWERCA @;Y@Z
.FL LOWECA %;W%X
.FL LOWCA @;Y@Z
.FL LOCA %;W%X
.FL LCA @;Y@Z
.F LOWERCA %;W%X
.F LOWECA @;Y@Z
.F LOWCA %;W%X
.F LOCA @;Y@Z
.F LCA %;W%X
.FLAGSLOWERCA @;Y@Z
.FLAGSLOWECA %;W%X
.FLAGSLOWCA @;Y@Z
.FLAGSLOCA %;W%X
.FLAGSLCA @;Y@Z
.FLAGLOWERCA %;W%X
.FLAGLOWECA @;Y@Z
.FLAGLOWCA %;W%X
.FLAGLOCA @;Y@Z
.FLAGLCA %;W%X
.FLALOWERCA @;Y@Z
.FLALOWECA %;W%X
.FLALOWCA @;Y@Z
.FLALOCA %;W%X
.FLALCA @;Y@Z
.FLLOWERCA %;W%X
.FLLOWECA @;Y@Z
.FLLOWCA %;W%X
.FLLOCA @;Y@Z
.FLLCA %;W%X
.!FLOWERCA *;U*V
.!FLOWECA *;U*V
.!FLOWCA *;U*V
.!FLOCA *;U*V
.FLCA =!TAKEN AS FLAG CAPITALIZE =;S=T
.FLAGS LOWER C @;Y@Z
.FLAGS LOWE C %;W%X
.FLAGS LOW C @;Y@Z
.FLAGS LO C %;W%X
.FLAGS L C @;Y@Z
.FLAG LOWER C %;W%X
.FLAG LOWE C @;Y@Z
.FLAG LOW C %;W%X
.FLAG LO C @;Y@Z
.FLAG L C %;W%X
.FLA LOWER C @;Y@Z
.FLA LOWE C %;W%X
.FLA LOW C @;Y@Z
.FLA LO C %;W%X
.FLA L C @;Y@Z
.FL LOWER C %;W%X
.FL LOWE C @;Y@Z
.FL LOW C %;W%X
.FL LO C @;Y@Z
.FL L C %;W%X
.F LOWER C @;Y@Z
.F LOWE C %;W%X
.F LOW C @;Y@Z
.F LO C %;W%X
.F L C @;Y@Z
.FLAGSLOWER C %;W%X
.FLAGSLOWE C @;Y@Z
.FLAGSLOW C %;W%X
.FLAGSLO C @;Y@Z
.FLAGSL C %;W%X
.FLAGLOWER C @;Y@Z
.FLAGLOWE C %;W%X
.FLAGLOW C @;Y@Z
.FLAGLO C %;W%X
.FLAGL C @;Y@Z
.FLALOWER C %;W%X
.FLALOWE C @;Y@Z
.FLALOW C %;W%X
.FLALO C @;Y@Z
.FLAL C %;W%X
.FLLOWER C @;Y@Z
.FLLOWE C %;W%X
.FLLOW C @;Y@Z
.FLLO C %;W%X
.FLL C @;Y@Z
.!FLOWER C *;U*V
.!FLOWE C *;U*V
.!FLOW C *;U*V
.!FLO C *;U*V
.!FL C *!TAKEN AS FLAGS ALL *;U*V
.!FL C !TAKEN AS FLAGS ALL;U*V
.FLAGS LOWERC %;W%X
.FLAGS LOWEC @;Y@Z
.FLAGS LOWC %;W%X
.FLAGS LOC @;Y@Z
.FLAGS LC %;W%X
.FLAG LOWERC @;Y@Z
.FLAG LOWEC %;W%X
.FLAG LOWC @;Y@Z
.FLAG LOC %;W%X
.FLAG LC @;Y@Z
.FLA LOWERC %;W%X
.FLA LOWEC @;Y@Z
.FLA LOWC %;W%X
.FLA LOC @;Y@Z
.FLA LC %;W%X
.FL LOWERC @;Y@Z
.FL LOWEC %;W%X
.FL LOWC @;Y@Z
.FL LOC %;W%X
.FL LC @;Y@Z
.F LOWERC %;W%X
.F LOWEC @;Y@Z
.F LOWC %;W%X
.F LOC @;Y@Z
.F LC %;W%X
.FLAGSLOWERC @;Y@Z
.FLAGSLOWEC %;W%X
.FLAGSLOWC @;Y@Z
.FLAGSLOC %;W%X
.FLAGSLC @;Y@Z
.FLAGLOWERC %;W%X
.FLAGLOWEC @;Y@Z
.FLAGLOWC %;W%X
.FLAGLOC @;Y@Z
.FLAGLC %;W%X
.FLALOWERC @;Y@Z
.FLALOWEC %;W%X
.FLALOWC @;Y@Z
.FLALOC %;W%X
.FLALC @;Y@Z
.FLLOWERC %;W%X
.FLLOWEC @;Y@Z
.FLLOWC %;W%X
.FLLOC @;Y@Z
.FLLC %;W%X
.!FLOWERC *;U*V
.!FLOWEC *;U*V
.!FLOWC *;U*V
.!FLOC *;U*V
.!FLC *!TAKEN AS FLAGS ALL *;U*V
.!FLC !TAKEN AS FLAGS ALL;U*V
.FLAGS LOWER @;Y@Z
.FLAGS LOWE %;W%X
.FLAGS LOW @;Y@Z
.FLAGS LO %;W%X
.FLAGS L @;Y@Z
.FLAG LOWER %;W%X
.FLAG LOWE @;Y@Z
.FLAG LOW %;W%X
.FLAG LO @;Y@Z
.FLAG L %;W%X
.FLA LOWER @;Y@Z
.FLA LOWE %;W%X
.FLA LOW @;Y@Z
.FLA LO %;W%X
.FLA L @;Y@Z
.FL LOWER %;W%X
.FL LOWE @;Y@Z
.FL LOW %;W%X
.FL LO @;Y@Z
.FL L %;W%X
.F LOWER @;Y@Z
.F LOWE %;W%X
.F LOW @;Y@Z
.F LO %;W%X
.F L @;Y@Z
.FLAGSLOWER %;W%X
.FLAGSLOWE @;Y@Z
.FLAGSLOW %;W%X
.FLAGSLO @;Y@Z
.FLAGSL %;W%X
.FLAGLOWER @;Y@Z
.FLAGLOWE %;W%X
.FLAGLOW @;Y@Z
.FLAGLO %;W%X
.FLAGL @;Y@Z
.FLALOWER %;W%X
.FLALOWE @;Y@Z
.FLALOW %;W%X
.FLALO @;Y@Z
.FLAL %;W%X
.FLLOWER @;Y@Z
.FLLOWE %;W%X
.FLLOW @;Y@Z
.FLLO %;W%X
.FLL @;Y@Z
.!FLOWER *;U*V
.!FLOWE *;U*V
.!FLOW *;U*V
.!FLO *;U*V
.!FL *!TAKEN AS FLAGS ALL *;U*V
.!FL !TAKEN AS FLAGS ALL;U*V
.FLAGS LOWER %;W%X
.FLAGS LOWE @;Y@Z
.FLAGS LOW %;W%X
.FLAGS LO @;Y@Z
.FLAGS L %;W%X
.FLAG LOWER @;Y@Z
.FLAG LOWE %;W%X
.FLAG LOW @;Y@Z
.FLAG LO %;W%X
.FLAG L @;Y@Z
.FLA LOWER %;W%X
.FLA LOWE @;Y@Z
.FLA LOW %;W%X
.FLA LO @;Y@Z
.FLA L %;W%X
.FL LOWER @;Y@Z
.FL LOWE %;W%X
.FL LOW @;Y@Z
.FL LO %;W%X
.FL L @;Y@Z
.F LOWER %;W%X
.F LOWE @;Y@Z
.F LOW %;W%X
.F LO @;Y@Z
.F L %;W%X
.FLAGSLOWER @;Y@Z
.FLAGSLOWE %;W%X
.FLAGSLOW @;Y@Z
.FLAGSLO %;W%X
.FLAGSL @;Y@Z
.FLAGLOWER %;W%X
.FLAGLOWE @;Y@Z
.FLAGLOW %;W%X
.FLAGLO @;Y@Z
.FLAGL %;W%X
.FLALOWER @;Y@Z
.FLALOWE %;W%X
.FLALOW @;Y@Z
.FLALO %;W%X
.FLAL @;Y@Z
.FLLOWER %;W%X
.FLLOWE @;Y@Z
.FLLOW %;W%X
.FLLO @;Y@Z
.FLL %;W%X
.!FLOWER *;U*V
.!FLOWE *;U*V
.!FLOW *;U*V
.!FLO *;U*V
.!FL *!TAKEN AS FLAGS ALL *;U*V
.!FL !TAKEN AS FLAGS ALL;U*V
.PROGRAM; END
.RESET.PROGRAM;%TEST 4
.RESET.BEGIN;$
.INSERT ABC!
.BEGIN;$
.INSERT DEF!GHI
.BEGIN;$
.INSERT JKL;
.BEGIN;$
.INSERT MNO;PQR
.BEGIN;$
.INSERT STU.
.BEGIN;$
.INSERT VWX.YZ0
.BEGIN;$
.INSERT ABC.GHI.JKL
.BEGIN;$
.INSERT 123!456!789
.BEGIN;$
.INSERT ABC;GHI;JKL
.BEGIN;$
.INSERT 123.456;789
.BEGIN;$
.INSERT ABC;DEF.GHI
.INSERT WWW^W^W^WWWW\Y\Y\YWWW_W_W_W;WWW^W^W^WWWW\Y\Y\YWWW_W_W_W
.INSERT zzz^x^x^xzzz\z\z\zzzz_z_z_z;zzz^x^x^xzzz\z\z\zzzz_z_z_z
.INSERT ^^WWW^W^W^WWWW\Y\Y\YWWW_W_W_W;WWW^W^W^WWWW\Y\Y\YWWW_W_W_W
.INSERT ^^zzz^x^x^xzzz\z\z\zzzz_z_z_z;zzz^x^x^xzzz\z\z\zzzz_z_z_z
.INSERT \\YYY^W^W^WYYY\Y\Y\YYYY_W_W_W;YYY^W^W^WYYY\Y\Y\YYYY_W_W_W
.INSERT \\zzz^x^x^xzzz\z\z\zzzz_z_z_z;zzz^x^x^xzzz\z\z\zzzz_z_z_z
$ $ $ $ $ $
.RESET.PROGRAM;%TEST 5
.RESET.NOJUSTIFY
THIS LINE ENDS IN PERIOD. THIS LINE ENDS IN EXCLAMATION POINT! THIS LINE
ENDS IN QUESTION MARK? THIS LINE ENDS IN COLON: THIS LINE ENDS IN
SEMICOLON; AND THIS LINE ENDS IN A COMMA,
.RESET.PROGRAM;%TEST 6
.RESET.output width 55.spacing 2; one
two three
.break; four five six
seven eight nine ten
.break; eleven twelve thirteen fourteen
fifteen sixteen seventeen eighteen nineteen
.RESET.PROGRAM;%TEST 7
.RESET.INSERT FIRST
.INSERT SECOND
.INSERT THIRD
.INSERT FOURTH
.INSERT FIFTH
.INSERT SIXTH
.INSERT SEVENTH
.INSERT EIGHT
.INSERT NINETH
.INSERT/TENTH /
.INSERT ELEVENTH
.INSERT TWELVTH
$$111$$222$$333$444$$555$$666$$777$$888$$999$$
.INSERT THIRTEENTH
.INSERT FOURTEENTH
$$AA$$BB$$CC$$DD$$
0123456789ABCDEFGHIJK
abcdefghijklmnopqrstuvwxyz
0123456789
abcdefghijklmnopqrstuvwxyz
0123456789
ABCDEF
GHI
.RESET.PROGRAM;%TEST 8
.RESET.use H
.BEGIN 600
.FILL
.LEFT MARGIN 0
.RIGHT MARGIN 60
AAAAAAAAAA
BBBBBBBBBB
CCCCCCCCCC
.NOFILL
DDDDDDDDDD
EEEEEEEEEE
FFFFFFFFFF
.FILL
.LEFT MARGIN 5
.RIGHT MARGIN 55
GGGGGGGGGG
HHHHHHHHHH
IIIIIIIIII
.NOFILL
JJJJJJJJJJ
KKKKKKKKKK
LLLLLLLLLL
.FILL
.LEFT MARGIN 10
.RIGHT MARGIN 50
MMMMMMMMMM
NNNNNNNNNN
OOOOOOOOOO
.NOFILL
.SKIP
PPPPPPPPPP
QQQQQQQQQQ
RRRRRRRRRR
.FILL
.LEFT MARGIN 15
.RIGHT MARGIN 45
SSSSSSSSSS
TTTTTTTTTT
UUUUUUUUUU
.NOFILL
VVVVVVVVVV
WWWWWWWWWW
XXXXXXXXXX
.FILL
.LEFT MARGIN 20
.RIGHT MARGIN 40
YYYYYYYYYY
ZZZZZZZZZZ
.BEGIN 700
0000000000
1111111111
2222222222
3333333333
4444444444
5555555555
6666666666
7777777777
8888888888
9999999999
.RESET.PROGRAM;%TEST 9
.RESET;UNDER_? UNDER_! UNDER_. UNDER_: NONE? NONE! NONE. NONE:
_
__
___
_ _
A _A
AB A_B _AB _A_B
_ A A_ A_ B
.RESET.PROGRAM;%TEST 10
.RESET.NOFILL
.USE H
0123456789
0 1 2 3 4 5 6 7 8 9_
0 1 2 3 4 5 6 7 8 9_ _
0 1 2 3 4 5 6 7 8 9_ _ _
0 1 2 3 4 5 6 7 8 9_ _ _ _
0 1 2 3 4 5 6 7 8 9_ _ _ _ _
.BEGIN 2
.USE '
0123456789
0 1 2 3 4 5 6 7 8 9_
0 1 2 3 4 5 6 7 8 9_ _
0 1 2 3 4 5 6 7 8 9_ _ _
0 1 2 3 4 5 6 7 8 9_ _ _ _
0 1 2 3 4 5 6 7 8 9_ _ _ _ _
.RESET.PROGRAM;%TEST 11
.RESET.USE '
.PROGRAM
ONE$$TWO
THREE$$$$FOUR
.FORMAT
.PREFACE FIRST$$$SECOND
FIRST LINE
.INSER ONE
.INSER TWO
.INSER THREE
_$_$_$THIS IS A TEST_$_$$$$$_$_$AND SO IS THIS_$_$
FINAL LINE TO CAUSE SOME OVERFLOW
OF THE BUFFERS IN WHICH THE DOLLAR SIGNS ARE STORED
.NFLI
.PROGRAM
ONE$$TWO
THREE$$$$FOUR
.FORMAT
.PREFACE FIRST$$$SECOND
FIRST LINE
.INSER ONE
.INSER TWO
.INSER THREE
_$_$_$THIS IS A TEST_$_$$$$$_$_$AND SO IS THIS_$_$
FINAL LINE TO CAUSE SOME OVERFLOW
OF THE BUFFERS IN WHICH THE DOLLAR SIGNS ARE STORED
.FLI %
.PROGRAM
ONE%%TWO
THREE%%%%FOUR
.FORMAT
.PREFACE FIRST%%%SECOND
FIRST LINE
.INSER ONE
.INSER TWO
.INSER THREE
_%_%_%THIS IS A TEST_%_%%%%%_%_%AND SO IS THIS_%_%
FINAL LINE TO CAUSE SOME OVERFLOW
OF THE BUFFERS IN WHICH THE DOLLAR SIGNS ARE STORED
.RESET.PROGRAM;%TEST 12
.RESET.BEGIN 100
.PROGRAM
START OF PROGRAM AND $$$ IS DOLLAR SIGN
_#_ _A_B___
LAST OF PROGRAM
.FORMAT
START OF FORMAT
_#_ _A_B___
LAST LINE
.RESET.PROGRAM;%TEST 13
.RESET;$$AT START$$AT MIDDLE$$AT END$$
.BREAK.INSERT
$$AT START$$AT MIDDLE$$AT END$$
.RESET.PROGRAM;%TEST 14
.RESET.left margin 5
one
.indent
two
.indent 5
three
.indent
four
.indent 10
five
.indent
six
.indent -5
seven
.indent
eight
.RESET.PROGRAM;%TEST 15
.RESET.RIGHT 60;.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789012345678901234$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678901234567890123$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567890123456789012$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789012345678901$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678901234567890$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567890123456789$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789012345678$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678901234567$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567890123456$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789012345$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678901234$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567890123$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789012$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678901$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567890$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456789$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345678$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234567$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123456$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012345$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901234$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
12345678901234567890123$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
1234567890123456789012$ OF THE COMMA.
.PROGRAM
123456789012345678901234567890123456789012345678901234567890
.BEGIN
.INSERT ,A,BB,,CCC,,DD,F,
123456789012345678901$ OF THE COMMA.
.RESET.PROGRAM;%TEST 16
.RESET.output WIDTH 55
The _.BREAK command
indicates that no additional text is to be included in the
line of text currently being represented in the FORMAT statement.
The line of text is assumed to be shorter than normal, and so
is not right justified
.LENGTH 5
by the insertion of extra blank characters between the
groups of printing characters (words) on the line.
.LENGTH 10
The representation of the line of text
will be followed by the number of slashes specified by
the _.SPACING command if the _.TRAIL
command
.LENGTH 5
has been issued or if additional text is represented.
A _.BREAK command is also implied by most other
commands which change the manner in which the source
text is represented.
.RESET.PROGRAM;%TEST 17
.RESET.lm 0.rm 55
The FILL command
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 3.rm 52
indicates that each
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 6.rm 49
line of text
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 9.rm 46
represented in the
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 12.rm 43
FORMAT statements is
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 15 .rm40
to be filled
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 18.rm 37
with the next
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 15.rm 40
words which appear
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 12 .rm 43
in the source
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 9.rm 46
text until the
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 6.rm 49
following word would
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 3.rm 52
extend beyond the
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.lm 0.rm 55
current right margin.
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
.RESET.PROGRAM;%TEST 18
.RESET.CE;TWO
.CEN;THREE
.CENT;FOUR
.CENTE;FIVE
.CENTR;SIX
.CENTER;SEVEN
.CENTRE;EIGHT
.RESET.PROGRAM;%TEST 19
.RESET.left margin 5
one
.para
two
.para 5
three
.para
four
.para 10
five
.para
six
.para -5
seven
.para
eight
.RESET.PROGRAM;%TEST 20
.RESET.nofill
a
b
.skip
c
d
.spacing 2
e
f
.skip
g
h
.spacing 3
i
j
.skip 2
k
l
.spacing 1
a
b
.blank
c
d
.spacing 2
e
f
.blank
g
h
.spacing 3
i
j
.blank 2
k
l
.RESET.PROGRAM;%TEST 21
.RESET.NOFILL
ABC^D^E^FGHI\J\K\LMNO_P_Q_R^ S\ T
abc^d^e^fghi\j\k\lmno_p_q_r^ s\ t
^^ABC^D^E^FGHI\J\K\LMNO_P_Q_R^ S\ T
^^abc^d^e^fghi\j\k\lmno_p_q_r^ s\ t
\\ABC^D^E^FGHI\J\K\LMNO_P_Q_R^ S\ T
\\abc^d^e^fghi\j\k\lmno_p_q_r^ s\ t
.NOFILL
^^WWW^W^W^WWWW\Y\Y\YWWW_W_W_W
zzz^x^x^xzzz\z\z\zzzz_z_z_z
^^WWW^W^W^WWWW\Y\Y\YWWW_W_W_W
^^zzz^x^x^xzzz\z\z\zzzz_z_z_z
\\YYY^W^W^WYYY\Y\Y\YYYY_W_W_W
\\zzz^x^x^xzzz\z\z\zzzz_z_z_z
.UPPER CASE.LOWER CASE.UPPER CASE.LOWER CASE
.upper case.lower case.upper case.lower case
.RESET.PROGRAM;%TEST 22
.RESET;ONE
.SKIP
TWO
.SKIP 2
THREE
.SKIP
FOUR
.SKIP 1
FIVE
.PARA
SIX
.SKIP 2
SEVEN
.PARA
EIGHT
.SKIP
NINE
.PARA,1
TEN
.SKIP
ELEVEN
.PARA,2
TWELVE
.SKIP 1
THIRTEEN
.PARA
FOURTEEN
.RESET.PROGRAM;%TEST 23
.RESET.PRE TYPE $
.CENTER
CENTER
.CENTER +5
CENTER +5
.CENTER -5
CENTER -5
.CENTER -5
CENTER -5
.LEFT MARGIN 5
LEFT MARGIN 5
.PARA
PARA
.PARA-2
PARA-2
.PARA+2
PARA+2
.LEFT MARGIN -2
LEFT MARGIN -2
.LEFT MARGIN +2
LEFT MARGIN +2
.LEFT MARGIN -2
LEFT MARGIN -2
.LEFT MARGIN -2
LEFT MARGIN -2
.LEFT MARGIN -2
LEFT MARGIN -2
.LEFT MARGIN -2
LEFT MARGIN -2
.LEFT MARGIN +2
LEFT MARGIN +2
.LEFT MARGIN +2
LEFT MARGIN +2
.LEFT MARGIN +2
LEFT MARGIN +2
.LEFT MARGIN 0
LEFT MARGIN 0
.OFFSET 5
OFFSET 5
.OFFSET+2
OFFSET+2
.OFFSET-2
OFFSET-2
.OFFSET-10
OFFSET-10
.OFFSET+7
OFFSET+7
.BEGIN.NO PREFACE
BEGIN
.BEGIN+1
BEGIN+1
.BEGIN+2
BEGIN+2
.BEGIN+5
BEGIN+5
.BEGIN+5
BEGIN+5
.BEGIN 35
BEGIN 35
.PRO; END
.RESET.PROGRAM;%TEST 24
.RESET.nofill;.flag capitalize
1 lower UPPER <flagged*lower lower UPPER
2 lower UPPER <FLAGGED*UPPER lower UPPER
3 \\lower UPPER <flagged*lower lower UPPER
4 lower UPPER <FLAGGED*UPPER lower UPPER
5 ^^lower UPPER <flagged*lower lower UPPER
6 lower UPPER <FLAGGED*UPPER lower UPPER
7 \\lower UPPER <flag^g^e^d*lower lower UPPER
8 lower UPPER <FLAG^G^E^D*UPPER lower UPPER
9 ^^lower UPPER <flag^g^e^d*lower lower UPPER
10 lower UPPER <FLAG^G^E^D*UPPER lower UPPER
11 \\lower UPPER <flag\g\e\d*lower lower UPPER
12 lower UPPER <FLAG\G\E\D*UPPER lower UPPER
13 ^^lower UPPER <flag\g\e\d*lower lower UPPER
14 lower UPPER <FLAG\G\E\D*UPPER lower UPPER
15 \\lower UPPER <flagged*<lower lower UPPER
16 lower UPPER <FLAGGED*<UPPER lower UPPER
17 ^^lower UPPER <flagged*<lower lower UPPER
18 lower UPPER <FLAGGED*<UPPER lower UPPER
19 \\lower UPPER <flagged*^^lower lower UPPER
20 lower UPPER <FLAGGED*^^UPPER lower UPPER
21 ^^lower UPPER <flagged*^^lower lower UPPER
22 lower UPPER <FLAGGED*^^UPPER lower UPPER
23 \\lower UPPER <flagged*\\lower lower UPPER
24 lower UPPER <FLAGGED*\\UPPER lower UPPER
25 ^^lower UPPER <flagged*\\lower lower UPPER
26 lower UPPER <FLAGGED*\\UPPER lower UPPER
<><><>
.NO FLAG;<><><>
.RESET.PROGRAM;%TEST 25
.RESET.nofill.no flags.FLAGS CAPITALIZE
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.flags
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.flags space _+
ab_de+fg_gh+ij
.RESET.PROGRAM;%TEST 26
.RESET.OFFSET 10
.PRE WRITE(1,$)
.CENTER 27
C
.CENTER 27
CE
.CENTER 27
CEN
.CENTER 27
CENT
.CENTER 27
CENTE
.CENTER 27
CENTER
.CENTER 28
C
.CENTER 28
CE
.CENTER 28
CEN
.CENTER 28
CENT
.CENTER 28
CENTE
.CENTER 28
CENTER
.CENTER 29
C
.CENTER 29
CE
.CENTER 29
CEN
.CENTER 29
CENT
.CENTER 29
CENTE
.CENTER 29
CENTER
.CENTER 30
C
.CENTER 30
CE
.CENTER 30
CEN
.CENTER 30
CENT
.CENTER 30
CENTE
.CENTER 30
CENTER
.CENTER; A B C
.CENTER
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
.center
a
.center
ab
.center
abc
.center
abcd
.center
abcde
.center
abcdef
.center 0
GHIJKL
.LEFT MARGIN 5
.CENTER
abcdef
.CENTER 0
GHIJKL
.right margin 65
.center
abcdef
.center 0
GHIJKL
.right margin 70
.center
abcdef
.center 0
GHIJKL
.left margin 0
.center
abcdef
.center 0
GHIJKL
.LEFT MARGIN 10;.RIGHT MARGIN 50
.center
abcdef
.center 0
GHIJKL
.LEFT MARGIN 20;.RIGHT MARGIN 60
.center
abcdef
.center 0
GHIJKL
.LEFT MARGIN 10;.RIGHT MARGIN 50
.center
abcdef
.center 0
GHIJKL
.PRO; END
.RESET.PROGRAM;%TEST 27
.RESET.RM 72.output WID 60.LENGTH 5;.USE'
.PRE TYPE $
.OFFSET 1
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
The following transformations of the text are specified by commands
which are embedded in the original text and which are identical to commands
accepted
by the DECsystem-10 text processing program RUNOFF.
.OFFSET 6
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
The following transformations of the text are specified by commands
which are embedded in the original text and which are identical to commands
accepted
by the DECsystem-10 text processing program RUNOFF.
.OFFSET 11
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
The following transformations of the text are specified by commands
which are embedded in the original text and which are identical to commands
accepted
by the DECsystem-10 text processing program RUNOFF.
.OFFSET 16
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
The following transformations of the text are specified by commands
which are embedded in the original text and which are identical to commands
accepted
by the DECsystem-10 text processing program RUNOFF.
.OFFSET 21
The FORMAT program converts text
into
FORTRAN FORMAT statements which regenerate the text when
these FORMAT statements are used.
The following transformations of the text are specified by commands
which are embedded in the original text and which are identical to commands
accepted
by the DECsystem-10 text processing program RUNOFF.
.PROGRAM; END
.RESET.PROGRAM;%TEST 28
.RESET.PROGRAM;A
AB
ABC
.OFFSET 0.output WIDTH 18.LENGTH 2.PRE TYPE $
.FORMAT
1
.FORMAT
2
.FORMAT,+2
3
.FORMAT
5
.FORMAT+5
10
.FORMAT
12
.FORMAT
.FORMAT
16
.FORMAT+5
.FORMAT
23
.FORMAT
.FORMAT+5
.FORMAT
32
.FORMAT+5
.FORMAT
.FORMAT+5
44ABCDEFGHI
.BREAK
46ABCDEFGHI
.BREAK
48ABCDEFGHI
.FORMAT
50
.BEGIN 10,1.NO PREFACE
10ABCDEFGHI
.BREAK
11ABCDEFGHI
.PROGRAM
TWELVE $
.FORMAT
12ABCDEFGHI
.FORMAT
13ABCDEFGHI
.FORMAT 15,5
15ABCDEFGHI
.PROGRAM+10
TWENTY FIVE $
.FORMAT
25ABCDEFGHI
.FORMAT ,10
30ABCDEFGHI
.PROGRAM,5
FORTY $
FORTY $
.FORMAT
40ABCDEFGHI
.BREAK
45ABCDEFGHI
.RESET.PROGRAM;%TEST 29
.RESET.BEGIN10,5
.SPACING 2
.PRE TYPE $
ONE
.PROGRAM
TWO $
.FORMAT+5
THREE
.FORMAT
FOUR
.PROGRAM
FIVE $
SIX $
.PROGRAM +10
SEVEN $
EIGHT $
.FORMAT,2
NINE
TEN
.FORMAT
.FORMAT
ELEVEN
TWELVE
.FORMAT 50
.FORMAT
THIRTEEN
FOURTEEN
.PROGRAM,2
FIFTEEN $
SIXTEEN $
.PROGRAM
SEVENTEEN $
EIGHTEEN $
.FORMAT
NINETEEN
TWENTY
.TRAIL
.BEGIN10,5
.SPACING 2
.PRE TYPE $
ONE
.PROGRAM
TWO $
.FORMAT+5
THREE
.FORMAT
FOUR
.PROGRAM
FIVE $
SIX $
.PROGRAM +10
SEVEN $
EIGHT $
.FORMAT,2
NINE
TEN
.FORMAT
.FORMAT
ELEVEN
TWELVE
.FORMAT 50
.FORMAT
THIRTEEN
FOURTEEN
.PROGRAM,2
FIFTEEN $
SIXTEEN $
.PROGRAM
SEVENTEEN $
EIGHTEEN $
.FORMAT
NINETEEN
TWENTY
.TRAIL
.RESET.PROGRAM;%TEST 30
.RESET.SPACING 2.BEGIN 10,10
ONE
TWO
.BREAK
THREE
FOUR
.SKIP
.BEGIN
FIVE
SIX
.BREAK
SEVEN
EIGHT
.SKIP
.BEGIN
.TRAIL
NINE
TEN
.BREAK
ELEVEN
TWELVE
.SKIP
.BEGIN
THIRTEEN
FOURTEEN
.BREAK
FIFTEEN
SIXTEEN
.SKIP
.BEGIN 100.OUTPUT WIDTH25.LENGTH 1
AB
.SKIP 3
.BEGIN 200.OUTPUT WIDTH 60
FIRST FORMAT LINE
.PROGRAM
FIRST PROGRAM LINE
.SKIP
SECOND PROGRAM LINE
.BEGIN 300
SECOND FORMAT LINE
.PROGRAM
THIRD PROGRAM LINE
.SKIP
FOURTH PROGRAM LINE
.RESET;.PROGRAM;%TEST 31
.RESET.OFFSET 0;.OUTWIDTH 55;.PREFACE WRITE(1,$)
1234567890123456789012345678901234567890123456789012345
.LEFT MARGIN 10;.RIGHT MARGIN 55;.CENTER -2;9
.CENTER;9 12
.CENTER +6;9 12 567
.CENTER 72;9 12 567 1234
.CENTER 0;1 34 789 3456 12345
The quick red fox jumps over the lazy brown dog
.LEFT MARGIN 5;.RIGHT MARGIN 50;.CENTER 0
0 23 678 2345 01234 012345
The quick red fox jumps over the lazy brown dog
.PROGRAM; END
.RESET.PROGRAM;%TEST 32
.RESET.LEADING
.SKIP 3
.EJECT
.CARRIAGE * , @
ONE
.BREAK
AGAIN
.SKIP 3
.EJECT
.CARRIAGE %/
TWO
.SKIP 3
.EJECT
.CARRIAGE ,$
THREE
.BREAK
MORE
.SKIP 3
.EJECT
.CARRIAGE +,
FOURTH
.BREAK
FINAL
.SKIP 3
.EJECT
.RESET.PROGRAM;%TEST 33
.RESET.PREFACE WRITE(1,$)
.CAR *
.SPACING 2.COPY 30 3
.INSERT 5HFIRST
.INSERT 6HSECOND
.INSERT 5HTHIRD
.INSERT 6HFOURTH
.INSERT 5HFIFTH
.INSERT 5HSIXTH
.INSERT 7HSEVENTH
.INSERT 6HEIGHTH
.INSERT 6HNINETH
.INSERT 5HTENTH
.OFFSET 5.NOFILL
ONE$
TWO$THREE$
FOUR$FIVE$SIX$
SEVEN$EIGHT$NINE$TEN$ELEVEN$TWELVE$
.BEGIN
.PREFACE WRITE(1,$)
.INSERT 5HBEGIN
.INSERT 6HMIDDLE
.INSERT 3HEND
.COPY 20 3
$$$$$1234567890$$$$$
.BREAK
.COPY 21 3
********************
.BREAK
.MASK @ @
.LEFT MARGIN 5
.RIGHT MARGIN 15
.FILL
.SKIP
THIS IS ALL A TEST OF THE MASK COMMAND
.SKIP
.BREAK
.INDENT -5
********************
.BREAK
.PROGRAM; END
.RESET.PROGRAM;%TEST 34
.RESET.MASK * *
.COPY 5 2
ONE
.BREAK
TWO
.RESET.PROGRAM;%TEST 35
.RESET.copy30,1.left margin 2.right margin 13.preface WRITE(1,$)
.carriage 1.offset 5.mask * *ABCDEFGHIJKL
.indent -1.output width 55;=============
.insert 5H.MASK
.insert 5H.COPY
.skip;This shows how $$$$$and $$$$$Commands work.
.skip.indent -1;=============
.break.no mask.no copy.skip;Not in range of either.
.program; END
.RESET.PROGRAM;%TEST 36
.RESET.SKIP 5
ONE
.SKIP 5
.BEGIN
.LEADING
.SKIP 5
TWO
.SKIP 5
.BEGIN
.TRAILING
.SKIP 5
THREE
.SKIP 5
.BEGIN
.SKIP
.BEGIN
.SKIP 5
FOUR
.NOLEAD
.SKIP 5
.BEGIN
.SKIP 5
FIVE
.SKIP 5
.RESET.PROGRAM;%TEST 37
.RESET.SKIP
ONE
.RESET
.BLANK
TWO
.RESET
.PARAGRAPH
THREE
.RESET
.SKIP 2
FOUR
.RESET
.BLANK 2
FIVE
.RESET
.PARAGRAPH,2
SIX
.RESET
.TRAIL
.SPACING 2
.SKIP 2
SEVEN
.RESET
.TRAIL
.SPACING 2
.BLANK 2
EIGHT
.RESET
.TRAIL
.SPACING 2
.PARAGRAPH,2
NINE
.RESET.PROGRAM;%TEST 38
.RESET.PREFACE WRITE(1,$)
.COPY 20 1
THIS IS A TEST
.BREAK
.NOCOPY
.MASK * *
.INDENT 5
THE MASK
.BREAK
.NO MASK
NO MASK
.PROGRAM.FORMAT.NO PREFACE;SOME MORE
.INSERT ONE
.INSERT TWO
.NO INSERT
.INSERT 5HTHREE
A$B
.PROGRAM; END
.reset.program;%test 39
.reset.PREFACE WRITE(1,$)
.nofill
.nofill
nofill
.flag capitalize
flag capitalize
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.no flags capitalize
no flags capitalize
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.no flags lowercase
no flags lowercase
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.no flags uppercase
no flags uppercase
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.flags all
flags all
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
.flags capitalize %
flags capitalize %
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
\\^a^bcd^A^Bcd%THIS%THAT_a_B
^^^a^bcd^A^Bcd%THIS%THAT_a_B
.no flags
no flags
.flags capitalize
flags capitalize
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
\\^a^bcd^A^Bcd%THIS%THAT_a_B
^^^a^bcd^A^Bcd%THIS%THAT_a_B
.flags all
flags all
\\^a^bcd^A^Bcd<THIS<THAT_a_B
^^^a^bcd^A^Bcd<THIS<THAT_a_B
\\^a^bcd^A^Bcd%THIS%THAT_a_B
^^^a^bcd^A^Bcd%THIS%THAT_a_B
.flags quote *
flags quote *
*^*&*#**
.flag quote (
flag quote (
(ABC(DEF
.flags space )
flags space )
abc)def
.flag control @
flag control @
@indent 5
this is a test of indent
.INDENT 5
THIS IS A TEST OF INDENT
@CENTER
CENTER
@INDENT 5
@CENTER
INDENT 5
@program; END
@RESET
.reset.program;%test 40
.reset.carr _,
.nofill
one
two
.car ,_,
three
four
.car ,
five
six
.car *_,
seven
eight
.car _,*
nine
ten
.car _,,
eleven
twelve
.reset.program;%TEST 41
.RESET.offset 0.preface WRITE(1,$)
.lm 10.rm 50
this is a test of the left and right margin commands as
is all of this
.lm.rm
and this follows these same commands issued without any
arguments at all.
.rm 70
now we set the right margin to 70 and test that it si
really gone to the amount.
.rm 50
and here we set it back to 50 and test that it has really gone
back that far
.rm
and this is a test of the right margin command again
issued without any argument at all
.program; END
.reset.program;%TEST 42
.RESET.lm 10
.indent 3
this
.indent 0
that
.indent -3
then
.indent
those
.RESET.PROGRAM;%TEST 43
.RESET.OUTPUT WIDTH 50
THIS TEXT IS ACCUMULATED IN FILL MODE.
AS IT THIS.
AND THIS.
.LEFT MARGIN 5;
THIS LINE FOLLOWS AN EMPTY LINE AFTER A COMMAND.
.RIGHT MARGIN 50;
THIS LINE FOLLOWS ANOTHER EMPTY LINE AFTER A COMMAND.
THIS LINE FOLLOWS AN EMPTY LINE.
.;
THIS LINE FOLLOWS AN EMPTY COMMAND.
.RESET.PROGRAM;%TEST 44
.RESET.SPACING 2.OUTPUT WIDTH 50
THIS TEXT IS ACCUMULATED IN FILL MODE.
AS IT THIS.
AND THIS.
.LEFT MARGIN 5;
THIS LINE FOLLOWS AN EMPTY LINE AFTER A COMMAND.
.RIGHT MARGIN 50;
THIS LINE FOLLOWS ANOTHER EMPTY LINE AFTER A COMMAND.
THIS LINE FOLLOWS AN EMPTY LINE.
.;
THIS LINE FOLLOWS AN EMPTY COMMAND.
.RESET.PROGRAM;%TEST 45
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE NOFILL COMMAND
.SPACING 1.NOFILL;
A FIRST LINE
A 3RD LINE
A 5TH LINE
7TH LINE
NINTH LINE
ELEVENTH LINE
THIRTEENTH LINE
.CENTER;
FIFTEENTH LINE
.INDENT;
SEVENTEENTH LINE
.RESET
.RESET.PROGRAM;%TEST 46
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE NOFILL COMMAND
.SPACING 2.NOFILL;
FIRST LINE
THIRD LINE
A 5TH LINE
AND THE 7TH LINE
AND A NINTH LINE
ELEVENTH LINE
THIRTEENTH LINE
.CENTER;
FIFTEENTH LINE
.INDENT;
SEVENTEENTH LINE
.RESET
.RESET.PROGRAM;%TEST 47
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE NOFILL COMMAND
.SPACING 3.NOFILL;
1ST LINE
3RD LINE
FIFTH LINE
OR SEVENTH LINE
A NINTH LINE
ELEVENTH LINE
THIRTEENTH LINE
.CENTER;
FIFTEENTH LINE
.INDENT;
SEVENTEENTH LINE
.RESET
.RESET.PROGRAM;%TEST 48
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE PROGRAM COMMAND
.SKIP.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 49
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE PROGRAM COMMAND
.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 50
.RESET.OUTPUT WIDTH 50
INITIAL LINE BEFORE THE PROGRAM COMMAND
.NOFILL.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 51
.RESET.OUTPUT WIDTH 50.SPACING 2
INITIAL LINE BEFORE THE PROGRAM COMMAND
.NOFILL.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 52
.RESET.OUTPUT WIDTH 50.SPACING 2
INITIAL LINE BEFORE THE PROGRAM COMMAND
.NOFILL.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;LINE TO RIGHT OF FORMAT
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 53
.RESET.OUTPUT WIDTH 50.SPACING 2
INITIAL LINE BEFORE THE PROGRAM COMMAND
.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;LINE TO RIGHT OF FORMAT
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 54
.RESET.OUTPUT WIDTH 50.SPACING 2
INITIAL LINE BEFORE THE PROGRAM COMMAND
.SKIP.PROGRAM;
LINE AFTER NULL LINE AFTER PROGRAM COMMAND
LINE AFTER EMPTY LINE IN PROGRAM SECTION
.SKIP
LINE AFTER SKIP COMMAND IN PROGRAM SECTION
.SKIP
LINE AFTER BLANK LINE AND SKIP COMMAND
.SKIP
LINE AFTER SKIP COMMAND AND BLANK LINE
.FORMAT;
LINE AFTER NULL LINE AFTER FORMAT COMMAND
.RESET.PROGRAM;%TEST 55
.RESET.OUTPUT WIDTH 50.SPACING 2
.NOFILL;
FIRST LINE
SECOND LINE
THIRD LINE
FOURTH LINE
FIFTH LINE
SIXTH LINE
SEVENTH LINE
.RESET
.RESET.PROGRAM;%TEST 56
.RESET.OUTPUT WIDTH 50.SPACING 2
.NOFILL;
.RESET
.RESET.PROGRAM;%TEST 57
.RESET.OUTPUT WIDTH 50.SPACING 2
.TRAIL.NOFILL;
.RESET
.RESET.PROGRAM;%TEST 58
.RESET
.SPACING 2
ONE
.PROGRAM
TWO
THREE
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 59
.RESET
ONE
.PROGRAM
TWO
THREE
.SKIP
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 60
.RESET
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.SKIP
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 61
.RESET
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 62
.RESET
ONE
.PROGRAM
TWO
THREE
.SKIP.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 63
.RESET
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.SKIP.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 64
.RESET.NOFILL
.SPACING 2
ONE
.PROGRAM
TWO
THREE
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 65
.RESET.NOFILL
ONE
.PROGRAM
TWO
THREE
.SKIP
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 66
.RESET.NOFILL
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.SKIP
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 67
.RESET.NOFILL
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 68
.RESET.NOFILL
ONE
.PROGRAM
TWO
THREE
.SKIP.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 69
.RESET.NOFILL
.SPACING 2
ONE
.PROGRAM
TWO
THREE
.SKIP.TRAIL
FOUR
FIVE
.FORMAT
SIX
SEVEN
.RESET.PROGRAM;%TEST 70
.RESET.TRAILING
.OUTPUT LENGTH 1.OUTPUT WIDTH 72.PAGE LENGTH 10.PAGING.TRAILING
.BOTTOM ***THIS IS AN BOTTOM LINE***
.PREFACE ---THIS IS A PREFACE LINE---
.PROGRAM
+++THIS IS A PROGRAM LINE+++
.CONTINUE.SPACING 1.NOFILL
1
2
.SKIP 10
3
4
.PAGE
5
6
.SKIP 10
.PAGE
7
8
.PAGE
.PAGE
9
10
11
.PROGRAM
+++THIS IS A PROGRAM LINE+++
.CONTINUE
12
13
14
15
16
17
18
19
20
.PAGE
.RESET.PROGRAM;%TEST 71
.RESET.TRAILING
.OUTPUT LENGTH 1.OUTPUT WIDTH 72.PAGE LENGTH 10.PAGING.TRAILING
.BOTTOM ***THIS IS AN BOTTOM LINE***
.PREFACE ---THIS IS A PREFACE LINE---
.PROGRAM
+++THIS IS A PROGRAM LINE+++
.CONTINUE.SPACING 1.NOFILL
1
2
3
.TEST PAGE 5
4
.TEST PAGE 5
5
.TEST PAGE 5
6
.TEST PAGE 5
1
2
3
.TEST SPACING 5
4
.TEST SPACING 5
5
.TEST SPACING 5
6
.TEST SPACING 5
1
.RESET.PROGRAM;%TEST 72
.RESET.TRAILING
.OUTPUT LENGTH 1.OUTPUT WIDTH 72.PAGE LENGTH 10.PAGING.TRAILING
.BOTTOM ***THIS IS AN BOTTOM LINE***
.PREFACE ---THIS IS A PREFACE LINE---
.PROGRAM
+++THIS IS A PROGRAM LINE+++
.CONTINUE.SPACING 2.NOFILL
.PAGE LENGTH 9
1
3
.TEST PAGE 5
5
.TEST PAGE 5
1
3
.TEST SPACING 3
5
.TEST SPACING 3
1
.PAGE LENGTH 10
3
.TEST PAGE 5
5
.TEST PAGE 5
1
3
.TEST SPACING 3
5
.TEST SPACING 3
1
.PAGE LENGTH 11
3
.TEST PAGE 5
5
.TEST PAGE 5
7
.TEST PAGE 5
1
3
.TEST SPACING 3
5
.TEST SPACING 3
7
.TEST SPACING 3
1
.RESET.PROGRAM;%TEST 73
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4
.bottom ***This is the bottom of the page***
.paging.NOFILL
1
2
3
4
5
.page carriage 1,*.text
1
2
3
4
5
.text
1
2
3
4
5
.page carriage 2.text
1
2
3
4
5
.text
1
2
3
4
5
.RESET.PROGRAM;%TEST 74
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4
.CARRIAGE +=
.bottom ***This is the bottom of the page***
.NOFILL
1
2
3
4
.PAGE
5
FIRST
.page carriage 1,*.text
1
2
3
4
.PAGE
5
SECOND
.text
1
2
3
4
.TEST PAGE 10
5
THIRD
.page carriage 2.text
1
2
3
4
.TEST SPACING 10
5
FOURTH
.text
1
2
3
4
.PAGE
5
FIFTH
.RESET.PROGRAM;%TEST 75
.RESET.TRAILING
.BOTTOM ***BOTTOM OF PAGE***
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4.NOFILL
.CARRIAGE 12
.PAGE CARRIAGE 34
1
2
3
4
5
6
.PAGING
7
8
9
10
11
12
.NO PAGING
13
14
15
16
.PAGE
17
18
.PAGE CARRIAGE 56
19
20
21
.CARRIAGE 78
22
23
24
.NO PAGING
25
26
27
.PAGE
28
29
30
.RESET.PROGRAM;%TEST 76
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4
.preface ---This is a new format statement---
.bottom ***This is the bottom of the page***
.paging
This is just some text which will serve to test if
the carriage control insertion works properly in the
new paging commands. This is a second line in this
test of the carriage control.
.text
.page carriage 1,*
.preface ---This is a new format statement---
This is just some text which will serve to test if
the carriage control insertion works properly in the
new paging commands. This is a second line in this
test of the carriage control.
.text
.preface ---This is a new format statement---
This is in the third paragraph in the test case.
It checks if the carriage return has been kept.
.text
.page carriage 2
.preface ---This is a new format statement---
This should have the page carriage set to 2 but
there should not be any on the second line
.text
.preface ---This is a new format statement---
Again, this is after a begin statement. It should
also have the carriage set to 2 but none on the
following lines.
.RESET.PROGRAM;%TEST 77
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4
.PREFACE ---PREFACE BEFORE STATEMENT $
.BOTTOM ---BOTTOM CONTAINS STATEMENT $
.CONTINUE 100,10
This is after the format 100,10 command
.CONTINUE
This is after the second format command
.program
This is some program text before statement $
.CONTINUE
This is after the third format command
.nofill
1
2
3
4
.PAGE
5
6
7
8
.PAGING
9
10
11
12
13
14
.PAGE
.RESET.PROGRAM;%TEST 78
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4.PAGING.NOFILL
.PREFACE PREFACE A$B$$$$C$-12_3D$+34_5E$$$$-56F$$$$+78G$_-90H$$$$_+12I
.BOTTOM BOTTOM I$H$$$$G$-12_3F$+34_5E$$$$-56D$$$$+78C$_-90B$$$$_+12A
.PROGRAM 100,10
PROGRAM A$B$$$$C$-12_3D$+34_5E$$$$-56F$$$$+78G$_-90H$$$$_+12I
PROGRAM I$H$$$$G$-12_3F$+34_5E$$$$-56D$$$$+78C$_-90B$$$$_+12A
.CONTINUE
1
2
3
4
5
6
7
8
.RESET.PROGRAM;%TEST 79
.RESET.TRAILING
.RIGHT MARGIN 50.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4.PAGING.NOFILL
.CONTINUE 100,10
.FILL
START OF FIRST LINE
.DEFINE PREFACE
FIRST LINE OF PREFACE BEFORE STATEMENT $$$$.
SECOND LINE OF PREFACE BEFORE STATEMENT $.
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR _$.
.END DEFINITION
END OF FIRST LINE
.NOFILL
2
3
4
5
6
7
8
9
.NO PREFACE
10
11
12
13
14
15
16
.FILL
START OF 17TH LINE
.DEFINE BOTTOM
FIRST LINE OF BOTTOM BEFORE STATEMENT $$$$.
SECOND LINE OF BOTTOM BEFORE STATEMENT $.
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR _$.
.END DEFINITION
END OF 17TH LINE
.NOFILL
18
19
20
21
22
23
24
25
.NO BOTTOM
26
27
28
29
.RESET.PROGRAM;%TEST 80
.RESET.TRAILING
1
2
.COMMENT THIS IS A COMMENT AND SHOULD BE IGNORED
3
4
.COMMENT.NOFILL
5
6
.COMMENT;THIS IS A COMMENT AND SHOULD BE IGNORED
7
8
.COMMENT!THIS IS A COMMENT AND SHOULD BE IGNORED
9
10
.COMMENT!;THIS IS A COMMENT AND SHOULD BE IGNORED
11
12
.COMMENT.THIS IS .A COMMENT;.AND SHOULD.BE IGNORED
13
14
.RESET.PROGRAM;%TEST 81
.RESET.TRAILING
.OUTPUT WIDTH 30.RIGHT MARGIN 24
.page carriage 1+.DEFINE BOTTOM
IF(ITEST.NE.0)GO TO $
CALL CRTWIP(ITTY)
$$$$$ CONTINUE
.TEXT
.PREFACE WRITE(ITTY,$)
This follows a BEGIN and a PREFACE command. Paging has
not been turned on.
.PAGE
This follows a PAGE command which is somewhat after the
BEGIN command.
.TEXT
.PREFACE WRITE(ITTY,$)
.PAGE
This follows a BEGIN, PREFACE and PAGE command. We want
to make sure that the carriage controls are set properly.
Paging again has not been turned on.
.paging.TEXT
.PREFACE WRITE(ITTY,$)
This follows a BEGIN and a PREFACE command. Paging has
been turned on.
.PAGE
This follows a PAGE command which is somewhat after the
BEGIN command.
.TEXT
.PREFACE WRITE(ITTY,$)
.PAGE
This follows a BEGIN, PREFACE and PAGE command. We want
to make sure that the carriage controls are set properly.
Paging again has been turned on.
.RESET.PROGRAM;%TEST 82
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.PAGING.NOFILL
.PROGRAM 100,10
PROGRAM A*B*=123C*D*=+10E*F*=-20G*H
SHOULD BE A100BC123DE133FG113H
PROGRAM A$B$=123C$D$=+10E$F$=-20G$H
PROGRAM A*=200B*C*=D*E*=F*G*=+H*I*=-J*
SHOULD BE AB200CD210EF220GH230IJ220
PROGRAM A$=200B$C$=D$E$=F$G$=+H$I$=-J$
NEXT STATEMENT SHOULD BE NUMBER 220
.CONTINUE
This should be in format 220
2
3
4
5
.PROGRAM 400,10
THIS IS SOME TEXT BEFORE STATEMENT 400
.TEXT,30
THIS IS SOME TEXT IN STATEMENT 400
.CONTINUE
THIS IS SOME TEXT IN STATEMENT 430
.PROGRAM
THIS SETS $=+40THE STATEMENT NUMBER TO $
THE STATEMENT NUMBER ABOVE SHOULD BE 500 WHICH IS
THE NEXT STATEMENT NUMBER OF 460+40
.CONTINUE+95,5
THIS SHOULD BE IN STATEMENT 595
IT IS BASED ON THE CURRENT STATEMENT OF 500+95
.CONTINUE
THIS SHOULD BE IN STATEMENT 605
.PREFACE THIS IS BEFORE STATEMENT 700 $=700
.CONTINUE
THIS IS STATEMENT 700
.CONTINUE
THIS IS STATEMENT 700
.CONTINUE +20
.DEFINE PREFACE
IF(ITEST.EQ.0)GO TO $
CALL CRTWIP(ITTY)
$$$$$ WRITE(ITTY,$=+10$)
.END DEFINITION
THIS IS STATEMENT 730
.CONTINUE
THIS IS ANOTHER STATEMENT
.CONTINUE
THIS IS A SECOND STATEMENT IN RANGE OF 3 LINE PREFACE
.NOPREFACE
.CONTINUE
THIS IS A NEW STATEMENT
.CONTINUE+20
THIS IS AFTER A FORMAT+20 COMMAND
.RESET.PROGRAM;%TEST 83
.RESET.TRAILING
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.NOFILL
.PROGRAM 10
THIS IS PROGRAM STATEMENT $
.CONTINUE
THIS IS IN STATEMENT 10
.PROGRAM 20
THIS IS PROGRAM STATEMENT $
.CONTINUE+5
THIS IS IN STATEMENT 25
.PROGRAM 40,5
THIS IS PROGRAM STATEMENT $
.CONTINUE+5
THIS IS IN STATEMENT 45
.PROGRAM+10
THIS IS PROGRAM 55
.CONTINUE
THIS IS IN STATEMENT 55
.BOTTOM FORCE STATEMENT $=700$
.PAGE
THIS SHOULD BE STATEMENT 700
.PAGE
.CONTINUE
THIS SHOULD BE STATEMENT 700
.PAGE
.CONTINUE+30
THIS SHOULD BE STATEMENT 730
.PAGE
.CONTINUE-50
THIS SHOULD BE STATEMENT 650
.PAGE
.CONTINUE 67
THIS SHOULD BE STATEMENT 67
.PROGRAM 300,10
THE NUMBER 300 SHOULD APPEAR TO RIGHT $
.CONTINUE
THIS SHOULD BE STATEMENT 300
.CONTINUE
THIS SHOULD BE STATEMENT 310
.PROGRAM +100,5
THE NUMBER 410 SHOULD APPEAR TO RIGHT $
.CONTINUE
THIS SHOULD BE STATEMENT 410
.CONTINUE
THIS SHOULD BE STATEMENT 415
.PROGRAM 900,25
THE NUMBER 900 SHOULD APPEAR TO RIGHT $
.CONTINUE+10
THIS SHOULD BE STATEMENT 910
.CONTINUE
THIS SHOULD BE STATEMENT 935
.PROGRAM 1200
THE NUMBER 1200 SHOULD APPEAR TO RIGHT $
.CONTINUE 300
THIS SHOULD BE STATEMENT 300
.RESET.PROGRAM;%TEST 84
.RESET.TRAILING
.RIGHT MARGIN 50.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.PAGING.NOFILL
.CONTINUE 100,10
.FILL
START OF FIRST LINE
.DEFINE PREFACE
FIRST LINE OF PREFACE BEFORE STATEMENT $$$$
SECOND LINE OF PREFACE BEFORE STATEMENT $
FOURTH LINE OF PREFACE AFTER A BLANK LINE AND WITH DOLLAR _$
.END DEFINITION
END OF FIRST LINE
.NOFILL
2
3
4
5
.DEFINE TOP
*********
*THIS IS A TOP SECTION OF 3 LINES BEFORE STATEMENT $
*********
.END DEFINITION
6
7
8
9
.NO PREFACE
10
11
.TOP ***THIS IS A SINGLE LINE TOP BEFORE STATEMENT $
12
13
14
15
16
.FILL
START OF 17TH LINE
.DEFINE BOTTOM
FIRST LINE OF BOTTOM BEFORE STATEMENT $$$$.
SECOND LINE OF BOTTOM BEFORE STATEMENT $.
FOURTH LINE OF BOTTOM AFTER A BLANK LINE AND WITH DOLLAR _$.
.END DEFINITION
END OF 17TH LINE
.NOFILL
18
19
20
21
.NO TOP
22
23
24
25
.NO BOTTOM
26
27
28
29
.RESET.PROGRAM;%TEST 85
.RESET.TRAILING
.RIGHT MARGIN 50.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.NOFILL.OUTPUT LENGTH 2
.preface ***PREFACE LINE BEFORE $
.TOP ***TOP LINE BEFORE $
.BOTTOM ***BOTTOM LINE BEFORE $
.PAGE CARRIAGE 1,+
1
2
3
.TEST PAGE 4
1AFTER TEST PAGE 4
2
3
.PAGE
1AFTER PAGE
2
.PAGING
3AFTER PAGING
4
1
2
3
.NO PAGING
4AFTER NO PAGING
5
.PAGE
1AFTER PAGE
2
3
.TEXT
1AFTER BEGIN
2
3
4
5
.RESET.PROGRAM;%TEST 86
.RESET.TRAILING
.text+5
This should be statement 5
.reset.TRAILING.program+10
This appears after reset and program+10
.text
This should be statement 10
.reset.TRAILING.program+20
This appears after reset and program+20
.text+5
This should be statement 25
.reset.TRAILING.CONTINUE+5
This should be statement 5
.RESET.PROGRAM;%TEST 87
.RESET.TRAILING
.COMMENT DEFINE WITHIN RANGE OF PROGRAM COMMAND
.page length 4.PROGRAM.PAGING
THIS IS THE FIRST PROGRAM LINE BEFORE STATEMENT $
THIS IS THE SECOND PROGRAM LINE BEFORE STATEMENT $
.DEFINE PREFACE
THIS IS THE FIRST PREFACE LINE BEFORE STATEMENT $
THIS IS THE SECOND PREFACE LINE BEFORE STATEMENT $
.END DEFINITION
THIS IS THE PROGRAM LINE AFTER THE PREFACE DEFINITION
.DEFINE BOTTOM
THIS IS THE FIRST BOTTOM LINE BEFORE STATEMENT $
THIS IS THE SECOND BOTTOM LINE BEFORE STATEMENT $
.END DEFINITION
THIS IS THE PROGRAM LINE AFTER THE BOTTOM DEFINITION
.TEXT
This is some text which is to be in a FORMAT statement
.nofill
2
3
4
1
2
.define bottom
This is the first line in second bottom definition
This is the second line in second bottom definition
.top This is the top line before statement $
3
4
1
2
.RESET.PROGRAM;%TEST 88
.RESET.TRAILING
.COMMENT TEST GROUP COMMAND
.page length 4.PAGING.NOFILL
.GROUP GROUP BEFORE $
.PREFACE PREFACE BEFORE $
.TOP TOP BEFORE $
.BOTTOM BOTTOM BEFORE $
1
2
3
4
1
2
.PAGE
1AFTER PAGE
2
3
.CONTINUE
4AFTER FORMAT
1
2
3
.TEXT
1AFTER BEGIN
2
3
4
1
.CONTINUE
2AFTER FORMAT
3
4
1
2
.TEXT
1AFTER BEGIN
2
3
4
1
.RESET.PROGRAM;%TEST 89
.RESET.TRAILING
.PROGRAM
TEST GARBAGE COLLECTION OF BOTTOM COMMAND
.TEXT
.DEFINE BOTTOM
************
* BOTTOM 1 *
************
.DEFINE TOP
---------
- TOP 1 -
---------
.DEFINE GROUP
+++++++++++
+ GROUP 1 +
+++++++++++
.DEFINE PREFACE
=============
= PREFACE 1 =
=============
.END DEFINITION
.BOTTOM THIS IS THE NEW BOTTOM LINE 1A
.PAGING.PAGE LENGTH 4.NOFILL
1TEST OF BOTTOM
2
3
4
1
2
3
4
.TEXT
1
.PROGRAM
TEST GARBAGE COLLECTION OF TOP COMMAND
.TEXT
.DEFINE TOP
---------
- TOP 2 -
---------
.DEFINE BOTTOM
************
* BOTTOM 2 *
************
.DEFINE GROUP
+++++++++++
+ GROUP 2 +
+++++++++++
.DEFINE PREFACE
=============
= PREFACE 2 =
=============
.END DEFINITION
.TOP THIS IS THE NEW TOP LINE 2A
.PAGING.PAGE LENGTH 4.NOFILL
1TEST OF TOP
2
3
4
1
2
3
4
.TEXT
1
.PROGRAM
TEST GARBAGE COLLECTION OF GROUP COMMAND
.TEXT
.DEFINE GROUP
+++++++++++
+ GROUP 3 +
+++++++++++
.DEFINE BOTTOM
************
* BOTTOM 3 *
************
.DEFINE TOP
---------
- TOP 3 -
---------
.DEFINE PREFACE
=============
= PREFACE 3 =
=============
.END DEFINITION
.GROUP THIS IS THE NEW GROUP LINE 3A
.PAGING.PAGE LENGTH 4.NOFILL
1TEST OF GROUP
2
3
4
1
2
3
4
.TEXT
1
.PROGRAM
TEST GARBAGE COLLECTION OF PREFACE COMMAND
.TEXT
.DEFINE PREFACE
=============
= PREFACE 4 =
=============
.DEFINE BOTTOM
************
* BOTTOM 4 *
************
.DEFINE TOP
---------
- TOP 4 -
---------
.DEFINE GROUP
+++++++++++
+ GROUP 4 +
+++++++++++
.END DEFINITION
.PREFACE THIS IS THE NEW PREFACE LINE 4A
.PAGING.PAGE LENGTH 4.NOFILL
1
2
3
4
1
2
3
4
.TEXT
1
.RESET.PROGRAM;%TEST 90
.RESET.TRAILING
.PROGRAM
TEST THE PAGE POSITION COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
1
2
3
.PAGE POSITION 6
7
8
9
10
1
2
3
.PAGE POSITION +5
.PAGE
.RESET.PROGRAM;%TEST 91
.RESET.TRAILING
.PROGRAM
TEST SKIP COMMAND WITH NEGATIVE ARGUMENT
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
1 FIRST
2
3
.SKIP-4
7
8
9
10
1 SECOND
2
3
.BLANK-3
8
9
10
.TEXT.SPACING 2
1 THIRD
3
.BLANK -3
8
10
1 FOURTH
3
.SKIP -2
8
10
1 FIFTH
3
.BLANK -5
6
8
10
1 SIXTH
3
.SKIP -3
6
8
10
.TEXT.SPACING 1
.SKIP -3
8 SEVENTH
9
10
.TEXT
.BLANK -3
8 EIGHTH
9
10
.TEXT.SPACING 2
.SKIP -3
6 NINETH
8
10
.TEXT
.BLANK -5
6 TENTH
8
10
.RESET.PROGRAM;%TEST 92
.RESET.TRAILING
.GROUP ***GROUP***
.PREFACE ***PREFACE***
.BOTTOM ***BOTTOM***
.TOP ***TOP***
.PROGRAM
TEST PAGE POSITION COMMAND AT START OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 FIRST TEST
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET.TRAILING
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 SECOND TEST, NO PREFACES ETC.
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET.TRAILING
.BEGIN.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 THIRD TEST, PAGING OFF
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET.PROGRAM;%TEST 93
.RESET.TRAILING
.GROUP ***GROUP***
.PREFACE ***PREFACE***
.BOTTOM ***BOTTOM***
.TOP ***TOP***
.PROGRAM
TEST PAGE POSITION COMMAND WITH SKIP COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 FIRST TEST
7
8
9
10
.PAGE POSITION 7
.SKIP 8
1 SECOND
2
3
.PAGE POSITION +2
.SKIP 2
.PAGE POSITION +2
10
1 THIRD
.RESET.TRAILING
.PAGE POSITION 20
1 FOURTH
.RESET.PROGRAM;%TEST 94
.RESET.TRAILING
.BOTTOM ***BOTTOM***
.PROGRAM
TEST PARAGRAPH COMMAND WITH THIRD ARGUMENT
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
1 SPACING 1 PAGE LENGTH 10
2
3
4
5
6
7
8
9
10
1 WOULD BE 11
2
.PARAGRAPH
4
5
.PARAGRAPH
7
8
.PARAGRAPH
1 WOULD BE 10
2
3
.PARAGRAPH
5
6
7
.PARAGRAPH
1 WOULD BE 9
2
.PARAGRAPH
4
5
6
.PARAGRAPH
8
9
10
.SPACING 2.PAGE LENGTH 15
1 SPACING 2 PAGE LENGTH 15
3
5
7
9
11
13
15
1 WOULD BE 17
3
5
.PARAGRAPH!6 AND 7
8
10
12
.PARAGRAPH!13 AND 14
1 WOULD BE 15
3
.PARAGRAPH!4 AND 5
6
8
10
.PARAGRAPH!11 AND 12
1 WOULD BE 13
3
5
7
.PARAGRAPH!8 AND 9
10
12
14
.SPACING 2.PAGE LENGTH 14
1 SPACING 2 PAGE LENGTH 14
3
5
7
9
11
13
1 WOULD BE 15
3
5
.PARAGRAPH!6 AND 7
8
10
12
.PARAGRAPH!13 AND 14
1 WOULD BE 15
3
.PARAGRAPH!4 AND 5
6
8
10
.PARAGRAPH!11 AND 12
1 WOULD BE 13
3
5
7
.PARAGRAPH!8 AND 9
10
12
14
.SPACING 2.PAGE LENGTH 15
1 SPACING 2 PAGE LENGTH 15
3
.PARAGRAPH,,-5!4 AND 5
6
8
.PARAGRAPH!9 AND 10
11
13
15
1 WOULD BE 17
3
.PARAGRAPH,,-6!4 AND 5
6
8
.PARAGRAPH!9 AND 10
1 WOULD BE 11
3
.PARAGRAPH ,,3!4 AND 5
6
8
.PARAGRAPH!9 AND 10
11
13
15
.SPACING 2.PAGE LENGTH 14
1 WOULD BE 17
3
.PARAGRAPH!4 AND 5
6
8
.PARAGRAPH!9 AND 10
1 WOULD BE 11
.RESET.PROGRAM;%TEST 95
.RESET.TRAILING
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP COMMAND WITH TEST SPACING COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
This is some stuff at the top of the page.
This stuff is meant to just get us a little way down
from the top of the page.
There should be 3 lines left on this page
when this is processed.
.skip-4.test page 4
This should appear at the top of the
second page since the test page follows the
skip command. The test page will be ignored
since we are already below the indicated
position.
.test page 4.skip-4
This should appear at the bottom of the
third page since the skip follows the
test page command.
.RESET.PROGRAM;%TEST 96
.RESET.TRAILING
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
1
2
3
.PAGE
1
2
3
.SKIP 10
.PAGE
1
2
3
.RESET.TRAILING
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.BOTTOM ***BOTTOM***
.NOFILL
1
2
3
.PAGE
.RESET.PROGRAM;%TEST 97
.RESET.TRAILING
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
1
2
3
.page.text
1
2
3
.text
1
2
3
.SKIP 10
.text
1
2
3
.RESET.PROGRAM;%TEST 98
.RESET.TRAILING
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
1
2
3
.page position 20.text
1
2
3
.page position +10.text
1
2
3
.page position 20
.RESET.PROGRAM;%TEST 99
.RESET.TRAILING
.BOTTOM ***FIRST BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL.LEADING
.skip 10
.reset.TRAILING
.PROGRAM
SECOND TEST
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.page position 20
BETWEEN LARGE POSITIONS
.page position 20
.RESET.TRAILING
.BOTTOM ****THIRD BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL.LEADING
.skip 10
AFTER LARGE SKIP
.RESET.TRAILING
.BOTTOM ****FOURTH BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
BEFORE LARGE SKIP
.skip 20
.RESET.PROGRAM;%TEST 100
.RESET.TRAILING
.TOP ***FIRST TOP***
.BOTTOM ***FIRST BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
.RESET.TRAILING
.TOP ***SECOND TOP***
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
.RESET.TRAILING
.TOP ***THIRD TOP***
.BOTTOM ***THIRD BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
.RESET.TRAILING
.TOP ***FOURTH TOP***
.BOTTOM ***FOURTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
FOURTH TEST
.RESET.TRAILING
.TOP ***FIFTH TOP***
.BOTTOM ***FIFTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
FIFTH TEST
.RESET.TRAILING
.TOP ***SIXTH TOP***
.BOTTOM ***SIXTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
SIXTH TEST
.RESET.TRAILING
.TOP ***SEVENTH TOP***
.BOTTOM ***SEVENTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
SEVENTH TEST
.PAGE POSITION 9
SEVENTH TEST
.RESET.TRAILING
.TOP ***EIGHTH TOP***
.BOTTOM ***EIGHTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
EIGHTH TEST
.PAGE POSITION 10
EIGHTH TEST
.RESET.TRAILING
.TOP ***NINETH TOP***
.BOTTOM ***NINETH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
NINETH TEST
.PAGE POSITION 11
NINETH TEST
.RESET.PROGRAM;%TEST 101
NOTE THAT IN FIRST EXAMPLE, 1 BLANK LINE GIVEN BY (1X)
MUST BE GENERATED BEFORE THE BOTTOM LINE IS COPIED
.RESET.TRAILING
.GROUP ***FIRST GROUP***
.PREFACE ***FIRST PREFACE***
.TOP ***FIRST TOP***
.BOTTOM ***FIRST BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
.PAGE
.RESET.TRAILING
.GROUP ***SECOND GROUP***
.PREFACE ***SECOND PREFACE***
.TOP ***SECOND TOP***
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
.PAGE
.RESET.TRAILING
.GROUP ***THIRD GROUP***
.PREFACE ***THIRD PREFACE***
.TOP ***THIRD TOP***
.BOTTOM ***THIRD BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
.PAGE
.RESET.TRAILING
.GROUP ***FOURTH GROUP***
.PREFACE ***FOURTH PREFACE***
.TOP ****FOURTH TOP****
.BOTTOM ****FOURTH BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
THIS IS A LINE BEFORE PROGRAM COMMAND
.PROGRAM
THIS IS A PROGRAM LINE
.PAGE.CONTINUE
THIS IS AFTER THE PAGE AND CONTINUE COMMANDS
.RESET.PROGRAM;%TEST 102
.RESET.TRAILING
.preface first preface
.top first top
.bottom first bottom
.group first group
.paging.page length 10
this is the first page
.page
this is the second page
.RESET.TRAILING
.preface second preface
.top second top
.bottom second bottom
.group second group
.paging.page length 10
.page position 5
this is after a page position command
.reset.TRAILING
.preface third preface
.top third top
.bottom third bottom
.group third group
.paging.page length 10
This is before a big skip command
.skip 20
.RESET.PROGRAM;%TEST 103
.RESET.TRAILING
.preface first preface
.top first top
.bottom first bottom
.group first group
.paging.page length 10
this is the first page
.page position 9
this is after a page position 9 command
.reset.TRAILING
.preface second preface
.top second top
.bottom second bottom
.group second group
.paging.page length 10
This is the first page
.page position 10
This is after a page position 10 command
.reset.TRAILING
.preface third preface
.top third top
.bottom third bottom
.group third group
.paging.page length 10
This is the first page
.page position 11
This is after a page position 11 command
.reset.program;%TEST 104
trailing skips while paging with output length 20
.reset.TRAILING
.paging.page length 10.LEADING
.top first top
.bottom first bottom
.skip 10
.reset.TRAILING
.paging.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.paging.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.paging.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.paging.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.paging.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 105
trailing while paging with output length 1
.reset.TRAILING
.paging.output length 1.page length 10.LEADING
.top first top
.bottom first bottom
.skip 10
.reset.TRAILING
.paging.output length 1.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.paging.output length 1.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.paging.output length 1.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.paging.output length 1.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.paging.output length 1.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.paging.output length 1.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 106
trailing skips with output length 20
.reset.TRAILING
.trailing.page length 10
.top first top
.bottom first bottom
.skip 20
.reset.TRAILING
.trailing.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.trailing.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.trailing.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.trailing.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.trailing.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.trailing.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 107
trailing skips with output length 1
.reset.TRAILING
.trailing.output length 1.page length 10
.top first top
.bottom first bottom
.skip 20
.reset.TRAILING
.trailing.output length 1.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.trailing.output length 1.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.trailing.output length 1.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.trailing.output length 1.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.trailing.output length 1.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.trailing.output length 1.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.RESET.PROGRAM;%TEST 108
.RESET
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.OUTPUT LENGTH 4
.PREFACE ---PREFACE BEFORE STATEMENT $
.BOTTOM ---BOTTOM CONTAINS STATEMENT $
.CONTINUE 100,10
This is after the format 100,10 command
.CONTINUE
This is after the second format command
.program
This is some program text before statement $
.CONTINUE
This is after the third format command
.nofill
1
2
3
4
.PAGE
5
6
7
8
.PAGING
9
10
11
12
13
14
.PAGE
.RESET.PROGRAM;%TEST 109
.RESET
.OUTPUT WIDTH 30.RIGHT MARGIN 24
.page carriage 1+.DEFINE BOTTOM
IF(ITEST.NE.0)GO TO $
CALL CRTWIP(ITTY)
$$$$$ CONTINUE
.TEXT
.PREFACE WRITE(ITTY,$)
This follows a BEGIN and a PREFACE command. Paging has
not been turned on.
.PAGE
This follows a PAGE command which is somewhat after the
BEGIN command.
.TEXT
.PREFACE WRITE(ITTY,$)
.PAGE
This follows a BEGIN, PREFACE and PAGE command. We want
to make sure that the carriage controls are set properly.
Paging again has not been turned on.
.paging.TEXT
.PREFACE WRITE(ITTY,$)
This follows a BEGIN and a PREFACE command. Paging has
been turned on.
.PAGE
This follows a PAGE command which is somewhat after the
BEGIN command.
.TEXT
.PREFACE WRITE(ITTY,$)
.PAGE
This follows a BEGIN, PREFACE and PAGE command. We want
to make sure that the carriage controls are set properly.
Paging again has been turned on.
.RESET.PROGRAM;%TEST 110
.RESET
.RIGHT MARGIN 20.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.NOFILL
.PROGRAM 10
THIS IS PROGRAM STATEMENT $
.CONTINUE
THIS IS IN STATEMENT 10
.PROGRAM 20
THIS IS PROGRAM STATEMENT $
.CONTINUE+5
THIS IS IN STATEMENT 25
.PROGRAM 40,5
THIS IS PROGRAM STATEMENT $
.CONTINUE+5
THIS IS IN STATEMENT 45
.PROGRAM+10
THIS IS PROGRAM 55
.CONTINUE
THIS IS IN STATEMENT 55
.BOTTOM FORCE STATEMENT $=700$
.PAGE
THIS SHOULD BE STATEMENT 700
.PAGE
.CONTINUE
THIS SHOULD BE STATEMENT 700
.PAGE
.CONTINUE+30
THIS SHOULD BE STATEMENT 730
.PAGE
.CONTINUE-50
THIS SHOULD BE STATEMENT 650
.PAGE
.CONTINUE 67
THIS SHOULD BE STATEMENT 67
.PROGRAM 300,10
THE NUMBER 300 SHOULD APPEAR TO RIGHT $
.CONTINUE
THIS SHOULD BE STATEMENT 300
.CONTINUE
THIS SHOULD BE STATEMENT 310
.PROGRAM +100,5
THE NUMBER 410 SHOULD APPEAR TO RIGHT $
.CONTINUE
THIS SHOULD BE STATEMENT 410
.CONTINUE
THIS SHOULD BE STATEMENT 415
.PROGRAM 900,25
THE NUMBER 900 SHOULD APPEAR TO RIGHT $
.CONTINUE+10
THIS SHOULD BE STATEMENT 910
.CONTINUE
THIS SHOULD BE STATEMENT 935
.PROGRAM 1200
THE NUMBER 1200 SHOULD APPEAR TO RIGHT $
.CONTINUE 300
THIS SHOULD BE STATEMENT 300
.RESET.PROGRAM;%TEST 111
.RESET
.RIGHT MARGIN 50.OUTPUT WIDTH 30.FILL.PAGE LENGTH 4
.LENGTH 4.NOFILL.OUTPUT LENGTH 2
.preface ***PREFACE LINE BEFORE $
.TOP ***TOP LINE BEFORE $
.BOTTOM ***BOTTOM LINE BEFORE $
.PAGE CARRIAGE 1,+
1
2
3
.TEST PAGE 4
1AFTER TEST PAGE 4
2
3
.PAGE
1AFTER PAGE
2
.PAGING
3AFTER PAGING
4
1
2
3
.NO PAGING
4AFTER NO PAGING
5
.PAGE
1AFTER PAGE
2
3
.TEXT
1AFTER BEGIN
2
3
4
5
.RESET.PROGRAM;%TEST 112
.RESET
.COMMENT TEST GROUP COMMAND
.page length 4.PAGING.NOFILL
.GROUP GROUP BEFORE $
.PREFACE PREFACE BEFORE $
.TOP TOP BEFORE $
.BOTTOM BOTTOM BEFORE $
1
2
3
4
1
2
.PAGE
1AFTER PAGE
2
3
.CONTINUE
4AFTER FORMAT
1
2
3
.TEXT
1AFTER BEGIN
2
3
4
1
.CONTINUE
2AFTER FORMAT
3
4
1
2
.TEXT
1AFTER BEGIN
2
3
4
1
.RESET.PROGRAM;%TEST 113
.RESET
.PROGRAM
TEST THE PAGE POSITION COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
1
2
3
.PAGE POSITION 6
7
8
9
10
1
2
3
.PAGE POSITION +5
.PAGE
.RESET.PROGRAM;%TEST 114
.RESET
.GROUP ***GROUP***
.PREFACE ***PREFACE***
.BOTTOM ***BOTTOM***
.TOP ***TOP***
.PROGRAM
TEST PAGE POSITION COMMAND AT START OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 FIRST TEST
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 SECOND TEST, NO PREFACES ETC.
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET
.BEGIN.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 THIRD TEST, PAGING OFF
7
8
9
10
.PAGE POSITION 7
8
9
10
1 SECOND
2
3
.PAGE POSITION 15
1 THIRD
2
3
.PAGE
.RESET.PROGRAM;%TEST 115
.RESET
.GROUP ***GROUP***
.PREFACE ***PREFACE***
.BOTTOM ***BOTTOM***
.TOP ***TOP***
.PROGRAM
TEST PAGE POSITION COMMAND WITH SKIP COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
.PAGE POSITION 5
6 FIRST TEST
7
8
9
10
.PAGE POSITION 7
.SKIP 8
1 SECOND
2
3
.PAGE POSITION +2
.SKIP 2
.PAGE POSITION +2
10
1 THIRD
.RESET
.PAGE POSITION 20
1 FOURTH
.RESET.PROGRAM;%TEST 116
.RESET
.BOTTOM ***BOTTOM***
.PROGRAM
TEST PARAGRAPH COMMAND WITH THIRD ARGUMENT
.BEGIN.PAGING.PAGE LENGTH 10.NOFILL
1 SPACING 1 PAGE LENGTH 10
2
3
4
5
6
7
8
9
10
1 WOULD BE 11
2
.PARAGRAPH
4
5
.PARAGRAPH
7
8
.PARAGRAPH
1 WOULD BE 10
2
3
.PARAGRAPH
5
6
7
.PARAGRAPH
1 WOULD BE 9
2
.PARAGRAPH
4
5
6
.PARAGRAPH
8
9
10
.SPACING 2.PAGE LENGTH 15
1 SPACING 2 PAGE LENGTH 15
3
5
7
9
11
13
15
1 WOULD BE 17
3
5
.PARAGRAPH!6 AND 7
8
10
12
.PARAGRAPH!13 AND 14
1 WOULD BE 15
3
.PARAGRAPH!4 AND 5
6
8
10
.PARAGRAPH!11 AND 12
1 WOULD BE 13
3
5
7
.PARAGRAPH!8 AND 9
10
12
14
.SPACING 2.PAGE LENGTH 14
1 SPACING 2 PAGE LENGTH 14
3
5
7
9
11
13
1 WOULD BE 15
3
5
.PARAGRAPH!6 AND 7
8
10
12
.PARAGRAPH!13 AND 14
1 WOULD BE 15
3
.PARAGRAPH!4 AND 5
6
8
10
.PARAGRAPH!11 AND 12
1 WOULD BE 13
3
5
7
.PARAGRAPH!8 AND 9
10
12
14
.SPACING 2.PAGE LENGTH 15
1 SPACING 2 PAGE LENGTH 15
3
.PARAGRAPH,,-5!4 AND 5
6
8
.PARAGRAPH!9 AND 10
11
13
15
1 WOULD BE 17
3
.PARAGRAPH,,-6!4 AND 5
6
8
.PARAGRAPH!9 AND 10
1 WOULD BE 11
3
.PARAGRAPH ,,3!4 AND 5
6
8
.PARAGRAPH!9 AND 10
11
13
15
.SPACING 2.PAGE LENGTH 14
1 WOULD BE 17
3
.PARAGRAPH!4 AND 5
6
8
.PARAGRAPH!9 AND 10
1 WOULD BE 11
.RESET.PROGRAM;%TEST 117
.RESET
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP COMMAND WITH TEST SPACING COMMAND
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
This is some stuff at the top of the page.
This stuff is meant to just get us a little way down
from the top of the page.
There should be 3 lines left on this page
when this is processed.
.skip-4.test page 4
This should appear at the top of the
second page since the test page follows the
skip command. The test page will be ignored
since we are already below the indicated
position.
.test page 4.skip-4
This should appear at the bottom of the
third page since the skip follows the
test page command.
.RESET.PROGRAM;%TEST 118
.RESET
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
1
2
3
.PAGE
1
2
3
.SKIP 10
.PAGE
1
2
3
.RESET
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.BOTTOM ***BOTTOM***
.NOFILL
1
2
3
.PAGE
.RESET.PROGRAM;%TEST 119
.RESET
.BOTTOM ***BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
1
2
3
.page.text
1
2
3
.text
1
2
3
.SKIP 10
.text
1
2
3
.RESET.PROGRAM;%TEST 120
.RESET
.BOTTOM ***FIRST BOTTOM***
.PROGRAM
TEST SKIP AT BOTTOM OF PAGE
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL.LEADING
.skip 10
.reset
.PROGRAM
SECOND TEST
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.page position 20
BETWEEN LARGE POSITIONS
.page position 20
.RESET
.BOTTOM ****THIRD BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL.LEADING
.skip 10
AFTER LARGE SKIP
.RESET
.BOTTOM ****FOURTH BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
BEFORE LARGE SKIP
.skip 20
.RESET.PROGRAM;%TEST 121
.RESET
.TOP ***FIRST TOP***
.BOTTOM ***FIRST BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
.RESET
.TOP ***SECOND TOP***
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
.RESET
.TOP ***THIRD TOP***
.BOTTOM ***THIRD BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
.RESET
.TOP ***FOURTH TOP***
.BOTTOM ***FOURTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
FOURTH TEST
.RESET
.TOP ***FIFTH TOP***
.BOTTOM ***FIFTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
FIFTH TEST
.RESET
.TOP ***SIXTH TOP***
.BOTTOM ***SIXTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
SIXTH TEST
.RESET
.TOP ***SEVENTH TOP***
.BOTTOM ***SEVENTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
SEVENTH TEST
.PAGE POSITION 9
SEVENTH TEST
.RESET
.TOP ***EIGHTH TOP***
.BOTTOM ***EIGHTH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
EIGHTH TEST
.PAGE POSITION 10
EIGHTH TEST
.RESET
.TOP ***NINETH TOP***
.BOTTOM ***NINETH BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
NINETH TEST
.PAGE POSITION 11
NINETH TEST
.RESET.PROGRAM;%TEST 122
NOTE THAT IN FIRST EXAMPLE, 1 BLANK LINE GIVEN BY (1X)
MUST BE GENERATED BEFORE THE BOTTOM LINE IS COPIED
.RESET
.GROUP ***FIRST GROUP***
.PREFACE ***FIRST PREFACE***
.TOP ***FIRST TOP***
.BOTTOM ***FIRST BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 9
.PAGE
.RESET
.GROUP ***SECOND GROUP***
.PREFACE ***SECOND PREFACE***
.TOP ***SECOND TOP***
.BOTTOM ***SECOND BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 10
.PAGE
.RESET
.GROUP ***THIRD GROUP***
.PREFACE ***THIRD PREFACE***
.TOP ***THIRD TOP***
.BOTTOM ***THIRD BOTTOM***
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
.PAGE POSITION 11
.PAGE
.RESET
.GROUP ***FOURTH GROUP***
.PREFACE ***FOURTH PREFACE***
.TOP ****FOURTH TOP****
.BOTTOM ****FOURTH BOTTOM****
.BEGIN.PAGING.PAGE LENGTH 10.RIGHT MARGIN 30
.NOFILL
THIS IS A LINE BEFORE PROGRAM COMMAND
.PROGRAM
THIS IS A PROGRAM LINE
.PAGE.CONTINUE
THIS IS AFTER THE PAGE AND CONTINUE COMMANDS
.RESET.PROGRAM;%TEST 123
.RESET
.preface first preface
.top first top
.bottom first bottom
.group first group
.paging.page length 10
this is the first page
.page
this is the second page
.RESET
.preface second preface
.top second top
.bottom second bottom
.group second group
.paging.page length 10
.page position 5
this is after a page position command
.reset
.preface third preface
.top third top
.bottom third bottom
.group third group
.paging.page length 10
This is before a big skip command
.skip 20
.reset.program;%TEST 124
trailing skips while paging with output length 20
.reset
.paging.page length 10.LEADING
.top first top
.bottom first bottom
.skip 10
.reset
.paging.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset
.paging.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset
.paging.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset
.paging.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset
.paging.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 125
trailing while paging with output length 1
.reset
.paging.output length 1.page length 10.LEADING
.top first top
.bottom first bottom
.skip 10
.reset
.paging.output length 1.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset
.paging.output length 1.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset
.paging.output length 1.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset
.paging.output length 1.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset
.paging.output length 1.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset
.paging.output length 1.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 126
trailing skips after page with output length 20
.reset
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.reset
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 127
trailing skips after page with output length 1
.reset
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.reset
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.reset
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 128
trailing skips after page with output length 20
and terminal page commands
.reset
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.page
.reset
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.page
.reset
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.page
.reset
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.page
.reset
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.page
.reset
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.page
.reset
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.page
.reset.program;%TEST 129
trailing skips after page with output length 1
and terminal page commands
.reset
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.page
.reset
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.page
.reset
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.page
.reset
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.page
.reset
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.page
.reset
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.page
.reset
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.page
.reset.program;%TEST 130
trailing skips after page with output length 20
and terminal test page commands
.reset
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.test page 1
.reset
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.test page 1
.reset
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.test page 1
.reset
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.test page 1
.reset
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.test page 1
.reset
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.test page 1
.reset
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.test page 1
.reset.program;%TEST 131
trailing skips after page with output length 1
and terminal test page commands
.reset
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.test page 1
.reset
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.test page 1
.reset
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.test page 1
.reset
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.test page 1
.reset
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.test page 1
.reset
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.test page 1
.reset
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.test page 1
.reset.program;%TEST 132
paragraph command with paging
.reset
.paging.page length 5
.top first top
.bottom first bottom
.p,,1
This is in the first paragraph - line 1
.p
This is in the second paragraph - line 3
.p
This is in the third paragraph - line 5
.p
This is in the fourth paragraph - line 1 on page 2
.p
This is in the fifth paragraph - line 3 on page 2
.reset
.paging.page length 5.leading
.top second top
.bottom second bottom
.p,,1
This is in the first paragraph - line 1
.p
This is in the second paragraph - line 3
.p
This is in the third paragraph - line 5
.p
This is in the fourth paragraph - line 2 on page 2
.p
This is in the fifth paragraph - line 4 on page 2
.reset.program;%TEST 133
skip that overlaps page boundaries
.reset
.paging.page length 5.leading.page carriage 1,*
.top first top
.bottom first bottom
This is in the first line on first page
.skip 3
This is in the bottom line on first page
.skip 3
This is in 4th line on second page
.skip 3
This is in 3rd line on third page
.skip 3
.text.skip 3
This is in 4th line on page after a text command
.skip 3
This is in 3rd line on second page after text command
.reset
.leading.paging.page carriage 1,*.page length 5
.top second top
.bottom second bottom
.skip 3
This is in 4th line on first page
.reset.program;%TEST 134
test paging with multiple spacing
.reset
.page.page length 10.output width 60.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset
.page.page length 10.output width 60.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.page
.reset
.page.page length 10.output width 60.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset
.page.page length 10.output width 60.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.page
.reset.program;%TEST 135
test paging with multiple spacing
.reset
.page.page length 10.output width 65.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset
.page.page length 10.output width 65.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.page
.reset
.page.page length 10.output width 65.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset
.page.page length 10.output width 65.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.page
.reset.program;%TEST 136
test paging with multiple spacing, paging enabled
.reset
.paging.page length 10.output width 60.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset
.paging.page length 10.output width 60.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.reset
.paging.page length 10.output width 60.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset
.paging.page length 10.output width 60.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.reset.program;%TEST 137
test paging with multiple spacing, paging enabled, leading enabled
.reset
.paging.page length 10.output width 60.spacing 3
.leading.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset
.paging.page length 10.output width 60.spacing 3
.leading.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.reset
.paging.page length 10.output width 60.spacing 3.output length 1
.leading.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset
.paging.page length 10.output width 60.spacing 3.output length 1
.leading.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.reset.program;%TEST 138
trailing skips after page with output length 20
.reset.TRAILING
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.reset.TRAILING
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 139
trailing skips after page with output length 1
.reset.TRAILING
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.reset.TRAILING
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.reset.TRAILING
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.reset.TRAILING
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.reset.program;%TEST 140
trailing skips after page with output length 20
and terminal page commands
.reset.TRAILING
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.page
.reset.TRAILING
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.page
.reset.TRAILING
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.page
.reset.TRAILING
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.page
.reset.TRAILING
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.page
.reset.TRAILING
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.page
.reset.TRAILING
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.page
.reset.program;%TEST 141
trailing skips after page with output length 1
and terminal page commands
.reset.TRAILING
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.page
.reset.TRAILING
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.page
.reset.TRAILING
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.page
.reset.TRAILING
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.page
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.page
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.page
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.page
.reset.program;%TEST 142
trailing skips after page with output length 20
and terminal test page commands
.reset.TRAILING
.page.page length 10
.top first top
.bottom first bottom
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.top second top
.bottom second bottom
.page position 2
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.test page 1
.reset.program;%TEST 143
trailing skips after page with output length 1
and terminal test page commands
.reset.TRAILING
.page.page length 10
.output length 1.top first top
.bottom first bottom
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.output length 1.top second top
.bottom second bottom
.page position 2
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.output length 1.top third top
.bottom third bottom
This is the first line in third section
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10
.output length 1.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.program
This is some program text
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 20
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 20
.program
this is some program text
.test page 1
.reset.TRAILING
.page.page length 10.output width 60
.output length 1.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 8
This is after a skip 8 command
.test page 1
.reset.program;%TEST 144
paragraph command with paging
.reset.TRAILING
.paging.page length 5
.top first top
.bottom first bottom
.p,,1
This is in the first paragraph - line 1
.p
This is in the second paragraph - line 3
.p
This is in the third paragraph - line 5
.p
This is in the fourth paragraph - line 1 on page 2
.p
This is in the fifth paragraph - line 3 on page 2
.reset.TRAILING
.paging.page length 5.leading
.top second top
.bottom second bottom
.p,,1
This is in the first paragraph - line 1
.p
This is in the second paragraph - line 3
.p
This is in the third paragraph - line 5
.p
This is in the fourth paragraph - line 2 on page 2
.p
This is in the fifth paragraph - line 4 on page 2
.reset.program;%TEST 145
skip that overlaps page boundaries
.reset.TRAILING
.paging.page length 5.leading.page carriage 1,*
.top first top
.bottom first bottom
This is in the first line on first page
.skip 3
This is in the bottom line on first page
.skip 3
This is in 4th line on second page
.skip 3
This is in 3rd line on third page
.skip 3
.text.skip 3
This is in 4th line on page after a text command
.skip 3
This is in 3rd line on second page after text command
.reset.TRAILING
.leading.paging.page carriage 1,*.page length 5
.top second top
.bottom second bottom
.skip 3
This is in 4th line on first page
.reset.program;%TEST 146
test paging with multiple spacing
.reset.TRAILING
.page.page length 10.output width 60.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset.TRAILING
.page.page length 10.output width 60.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.page
.reset.TRAILING
.page.page length 10.output width 60.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset.TRAILING
.page.page length 10.output width 60.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.page
.reset.program;%TEST 147
test paging with multiple spacing
.reset.TRAILING
.page.page length 10.output width 65.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset.TRAILING
.page.page length 10.output width 65.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.page
.reset.TRAILING
.page.page length 10.output width 65.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.page
.reset.TRAILING
.page.page length 10.output width 65.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.page
.reset.program;%TEST 148
test paging with multiple spacing, paging enabled
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3
.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3
.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3.output length 1
.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3.output length 1
.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.reset.program;%TEST 149
test paging with multiple spacing, paging enabled, leading enabled
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3
.leading.top first top
.bottom first bottom
This is in the first line on first page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3
.leading.top second top
.bottom second bottom
This is in the first line on second page
.break
4th line, before blank 10 at triple spacing
.blank 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3.output length 1
.leading.top third top
.bottom third bottom
This is in the first line on third page
.break
4th line, before skip 10 at triple spacing
.skip 10
.reset.TRAILING
.paging.page length 10.output width 60.spacing 3.output length 1
.leading.top fourth top
.bottom fourth bottom
This is in the first line on fourth page
.break
4th line, before blank10 at triple spacing
.blank 10
.reset.program;%TEST 150
Neither leading nor trailing
.reset
.PAGE LENGTH 5.PAGING
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program;%TEST 151
Neither leading nor trailing
.reset
.PAGE LENGTH 5.PAGING
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program;%TEST 152
Neither leading nor trailing
.reset
.PAGE LENGTH 5.PAGING
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program;%TEST 153
Neither leading nor trailing
.reset
.PAGE LENGTH 5.PAGING
.SKIP 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program;%TEST 154
Neither leading nor trailing
.reset
.PAGE LENGTH 5.PAGING
.SKIP 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program;%TEST 155
Neither leading nor trailing
.reset.PAGE LENGTH 5.PAGING
.TOP FIRST TOP
.BOTTOM FIRST BOTTOM
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.TOP SECOND TOP
.BOTTOM SECOND BOTTOM
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.TOP THIRD TOP
.BOTTOM THIRD BOTTOM
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.TOP FOURTH TOP
.BOTTOM FOURTH BOTTOM
.SKIP 5
This is after a skip 5 and before a skip 8
.skip 8
This is after a skip 8 and before a skip 5
.skip 5
.reset.program;%TEST 156
Neither leading nor trailing
.reset.PAGE LENGTH 5.PAGING
.TOP FIRST TOP
.BOTTOM FIRST BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.TOP SECOND TOP
.BOTTOM SECOND BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.TOP THIRD TOP
.BOTTOM THIRD BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.TOP FOURTH TOP
.BOTTOM FOURTH BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 7
.skip 7
.reset.program;%TEST 157
Neither leading nor trailing
.reset.PAGE LENGTH 5.PAGING
.TOP FIRST TOP
.BOTTOM FIRST BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.TOP SECOND TOP
.BOTTOM SECOND BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.TOP THIRD TOP
.BOTTOM THIRD BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.TOP FOURTH TOP
.BOTTOM FOURTH BOTTOM
.SKIP 7
This is after a skip 7 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 7
.skip 7
.reset.program;%TEST 158
Neither leading nor trailing
.reset.PAGE LENGTH 5.PAGING
.TOP FIRST TOP
.BOTTOM FIRST BOTTOM
.SKIP 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.TOP SECOND TOP
.BOTTOM SECOND BOTTOM
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.TOP THIRD TOP
.BOTTOM THIRD BOTTOM
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.TOP FOURTH TOP
.BOTTOM FOURTH BOTTOM
.skip 4
This is after a skip 4 and before a skip 6
.skip 6
This is after a skip 6 and before a skip 4
.skip 4
.reset.program;%TEST 159
Neither leading nor trailing
.reset.PAGE LENGTH 5.PAGING
.TOP FIRST TOP
.BOTTOM FIRST BOTTOM
.SKIP 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
leading but not trailing
.reset.PAGE LENGTH 5.PAGING.LEADING
.TOP SECOND TOP
.BOTTOM SECOND BOTTOM
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
trailing but not leading
.reset.PAGE LENGTH 5.PAGING.TRAILING
.TOP THIRD TOP
.BOTTOM THIRD BOTTOM
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.reset.program
Both leading and trailing
.reset.PAGE LENGTH 5.PAGING.LEADING.TRAILING
.TOP FOURTH TOP
.BOTTOM FOURTH BOTTOM
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
This is after a skip 4 and before a skip 4
.skip 4
.RESET.PROGRAM;%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.
.RESET.PROGRAM;***** SKIP 8 *****
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 8
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 9 *****
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 9
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 10 *****
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 10
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 11 *****
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 11
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;%TEST 161
TRYING VARIOUS SKIP SIZES IN RANGE OF PAGING WO LEADING AND TRAILING
.RESET.PROGRAM;***** SKIP 8 *****
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 8
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 9 *****
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 9
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 10 *****
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 10
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 11 *****
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 11
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;%TEST 162
TRYING VARIOUS SKIP SIZES IN RANGE OF TRAILING AND PAGING AND LEADING
.RESET.PROGRAM;***** SKIP 8 *****
.reset.LEADING.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 8
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 9 *****
.reset.LEADING.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 9
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 10 *****
.reset.LEADING.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 10
.CONTINUE
This follows the CONTINUE command.
.RESET.PROGRAM;***** SKIP 11 *****
.reset.LEADING.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the line before CONTINUE command
.skip 11
.CONTINUE
This follows the CONTINUE command.
.reset.program;%TEST 163
THIS TESTS THE COPY AND MASK FEATURES WHILE PAGING
.RESET.left margin 2.right margin 13.preface WRITE(1,$)
.paging.page length 15.
.top WRITE(1,201)
.bottom WRITE(1,202)
.carriage 1.offset 5.copy 17,2.mask * *
.indent -1.output width 55;=============
.insert 3Hhow
.insert 5H.MASK
.insert 3Hand
.insert 5H.COPY
.skip;This shows $$$ $$$$$ $$$ $$$$$ commands work.
.skip.indent -1;=============
.page
This is on the second page
.PAGE
.RESET.left margin 2.right margin 13.preface WRITE(1,$)
.paging.page length 15.TRAILING.text 101
.top WRITE(1,201)
.bottom WRITE(1,202)
.carriage 1.offset 5.copy 17,2.mask * *
.indent -1.output width 55;=============
.insert 3Hhow
.insert 5H.MASK
.insert 3Hand
.insert 5H.COPY
.skip;This shows $$$ $$$$$ $$$ $$$$$ commands work.
.skip.indent -1;=============
.page
This is on the second page
.PAGE
.program
201 FORMAT('TOP OF PAGE')
202 FORMAT('BOTTOM OF PAGE')
END
.reset.program;%TEST 164
.reset
.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.page carriage 1
.top C****** top *******
.bottom C******* bottom *******
.trailing
.page position 3
.text
This is the start of a new page.
.text
This is after the text command.
.page
.page position 3
.page
.PROGRAM;TEST PAGE 2
.text
.page position 3
.test page 2
.reset;.program;TEST PAGE 3
.reset
.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.page carriage 1
.top C****** top *******
.bottom C******* bottom *******
.trailing
.page position 3
.test page 3
.reset;.program;TEST PAGE 4
.reset
.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.page carriage 1
.top C****** top *******
.bottom C******* bottom *******
.trailing
.page position 3
.test page 4
.reset.program;%TEST 165
.reset
.PROGRAM;TEST PAGE 1
.RESET.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.top C****** top *******
.bottom C******* bottom *******
.trailing.LEADING
.skip 1
.page position +2
.test page 1
.reset
.PROGRAM;TEST PAGE 2
.RESET.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.page carriage 1,*
.top C****** top *******
.bottom C******* bottom *******
.trailing.LEADING
.skip 1
.page position +2
.test page 2
.reset;.program;TEST PAGE 3
.reset
.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.page carriage 1,*
.top C****** top *******
.bottom C******* bottom *******
.trailing.leading
.skip
.page position +2
.test page 3
.reset
.PROGRAM;TEST PAGE 4
.RESET.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.top C****** top *******
.bottom C******* bottom *******
.trailing.LEADING
.skip 1
.page position +2
.test page 4
.reset
.reset.program;%TEST 166
.reset
.PROGRAM;RESET AFTER PAGE POSITION
.RESET.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.top C****** first top *******
.bottom C******* first bottom *******
.trailing.LEADING
.page position 6
.top C****** second top *******
.bottom C******* second bottom *******
.reset
.PROGRAM;TEXT COMMAND AFTER PAGE POSITION
.RESET.page length 5.right margin 14.output width 55
.no justify .paging
.preface WRITE(1,$)
.top C****** first top *******
.bottom C******* first bottom *******
.trailing.LEADING
.page position 6
.top C****** second top *******
.bottom C******* second bottom *******
.text
.top C****** third top *******
.bottom C******* third bottom *******
This is after the text command
.page
.reset.program;%TEST 167
SKIP commands at various locations after PAGE command
*** test one ***
.reset
.page.page length 10.output width 60
.top first top
.bottom first bottom
SKIP COMMAND BEFORE THE PROGRAM COMMAND
.skip 8
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test two ***
.reset
.page.page length 10.output width 60
.top second top
.bottom second bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND
.program
.skip 8
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test three ***
.reset
.page.page length 10.output width 60
.top third top
.bottom third bottom
SKIP COMMAND AFTER THE CONTINUE COMMAND
.program
this is some program text
.CONTINUE
.skip 8
.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test FOUR ***
.reset
.page.page length 10.output width 60
.top fourth top
.bottom fourth bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND, THEN EJECT
.program
.skip 8
this is some program text
.CONTINUE.EJECT
THIS IS AFTER THE CONTINUE COMMAND
.reset
.reset.program;%TEST 168
SKIP commands at various locations after PAGING command
*** test one ***
.reset
.paging.page length 10.output width 60
.top first top
.bottom first bottom
SKIP COMMAND BEFORE THE PROGRAM COMMAND
.skip 8
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test two ***
.reset
.paging.page length 10.output width 60
.top second top
.bottom second bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND
.program
.skip 8
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test three ***
.reset
.paging.page length 10.output width 60
.top third top
.bottom third bottom
SKIP COMMAND AFTER THE CONTINUE COMMAND
.program
this is some program text
.CONTINUE
.skip 8
.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test FOUR ***
.reset
.paging.page length 10.output width 60
.top fourth top
.bottom fourth bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND, THEN EJECT
.program
.skip 8
this is some program text
.CONTINUE.EJECT
THIS IS AFTER THE CONTINUE COMMAND
.reset
.reset.program;%TEST 169
SKIP commands at various locations while not paging
*** test one ***
.reset
.page length 10.output width 60
.top first top
.bottom first bottom
SKIP COMMAND BEFORE THE PROGRAM COMMAND
.skip 8
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test two ***
.reset
.page length 10.output width 60
.top second top
.bottom second bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND
.program
.skip 8
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test three ***
.reset
.page length 10.output width 60
.top third top
.bottom third bottom
SKIP COMMAND AFTER THE CONTINUE COMMAND
.program
this is some program text
.CONTINUE
.skip 8
.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test FOUR ***
.reset
.page length 10.output width 60
.top fourth top
.bottom fourth bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND, THEN EJECT
.program
.skip 8
this is some program text
.CONTINUE.EJECT
THIS IS AFTER THE CONTINUE COMMAND
.reset
.reset.program;%TEST 170
SKIP commands at various locations after PAGE command
*** test one ***
.reset
.page.trailing.page length 10.output width 60
.top first top
.bottom first bottom
SKIP COMMAND BEFORE THE PROGRAM COMMAND
.skip 10
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test two ***
.reset
.page.trailing.page length 10.output width 60
.top second top
.bottom second bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND
.program
.skip 10
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test three ***
.reset
.page.trailing.page length 10.output width 60
.top third top
.bottom third bottom
SKIP COMMAND AFTER THE CONTINUE COMMAND
.program
this is some program text
.CONTINUE
.skip 10
.test page 1
THIS IS AFTER THE CONTINUE COMMAND
.reset.program
*** test FOUR ***
.reset
.page.trailing.page length 10.output width 60
.top fourth top
.bottom fourth bottom
SKIP COMMAND AFTER THE PROGRAM COMMAND, THEN EJECT
.program
.skip 10
this is some program text
.CONTINUE.EJECT
THIS IS AFTER THE CONTINUE COMMAND
.reset.program;%TEST 171
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
.reset.program;**** first test ****
.reset
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 172
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
.reset.program;**** first test ****
.reset.page carriage 1,*.page
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.page carriage 1,*.page
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing.page carriage 1,*.page
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing.page carriage 1,*.page
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 173
TEST SKIP COMMAND INTERRUPTED BY PROGRAM
.reset.program;**** first test ****
.reset.page carriage 1,*.paging
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing.page carriage 1,*.paging
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing.page carriage 1,*.paging
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 174
TEST SKIP AT TOP OF PAGE AFTER TRAILING IF USING CARRIAGE CONTROL
.reset.program;**** first test ****
.reset.page carriage 1,*.paging
.top first top
.bottom first bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging
.top second top
.bottom second bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing.page carriage 1,*.paging
.top third top
.bottom third bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing.page carriage 1,*.paging
.top fourht top
.bottom fourth bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 175
TEST SKIP AT TOP OF PAGE AFTER TRAILING IF NOT USING CARRIAGE CONTROL
.reset.program;**** first test ****
.reset.paging
.top first top
.bottom first bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.paging
.top second top
.bottom second bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing.paging
.top third top
.bottom third bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing.paging
.top fourht top
.bottom fourth bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 176
TEST SKIP AT TOP OF PAGE AFTER LEADING IF USING CARRIAGE CONTROL
.reset.program;**** first test ****
.reset.page carriage 1,*.paging.leading
.top first top
.bottom first bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging.leading
.top second top
.bottom second bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.trailing.page carriage 1,*.paging.leading
.top third top
.bottom third bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.trailing.page carriage 1,*.paging.leading
.top fourht top
.bottom fourth bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 177
TEST SKIP AT TOP OF PAGE AFTER LEADING IF USING CARRIAGE CONTROL
.reset.program;**** first test ****
.reset.page carriage 1,*.paging
.top first top
.bottom first bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging
.top second top
.bottom second bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;**** third test ****
.reset.leading.page carriage 1,*.paging
.top third top
.bottom third bottom
.page length 6
This is before the skip command.
.skip 4
.program
.continue
.skip 4
This is after the skip command.
.reset.program;**** fourth test ****
.reset.leading.page carriage 1,*.paging
.top fourht top
.bottom fourth bottom
.page length 6
This is before the skip command.
.skip 4
.program
This is some program text
.continue
.skip 4
This is after the skip command.
.reset.program;%TEST 178
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
.reset.program;**** first test ****
.reset.page carriage 1,*.paging.nofill
.top first top
.bottom first bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging.nofill
.top second top
.bottom second bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;**** third test ****
.reset.paging.nofill
.top third top
.bottom third bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** fourth test ****
.reset.paging.nofill
.top fourth top
.bottom fourth bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;%TEST 179
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
.reset.program;**** first test ****
.reset.page carriage 1,*.paging.trailing.nofill
.top first top
.bottom first bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging.trailing.nofill
.top second top
.bottom second bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;**** third test ****
.reset.paging.trailing.nofill
.top third top
.bottom third bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** fourth test ****
.reset.paging.trailing.nofill
.top fourth top
.bottom fourth bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;%TEST 180
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
.reset.program;**** first test ****
.reset.page carriage 1,*.page.nofill
.top first top
.bottom first bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** second test ****
.reset.page carriage 1,*.page.nofill
.top second top
.bottom second bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;**** third test ****
.reset.page.nofill
.top third top
.bottom third bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** fourth test ****
.reset.page.nofill
.top fourth top
.bottom fourth bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;%TEST 181
TEST OF NOFILL BLANK LINES AT TOP OF PAGE
.reset.program;**** first test ****
.reset.page carriage 1,*.paging.nofill
.mask * * * * * *
.top first top
.bottom first bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** second test ****
.reset.page carriage 1,*.paging.nofill
.mask * * * * * *
.top second top
.bottom second bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.reset.program;**** third test ****
.reset.paging.nofill
.mask * * * * * *
.top third top
.bottom third bottom
.page length 6
This is before the blank lines.
.program
.continue
This is after the blank lines.
.reset.program;**** fourth test ****
.reset.paging.nofill
.mask * * * * * *
.top fourth top
.bottom fourth bottom
.page length 6
This is before the blank lines.
.program
This is some program text
.continue
This is after the blank lines.
.RESET.PROGRAM;%TEST 182
12345678901234567890123456789012345678901234567890
.RESET.OUTPUT WIDTH 50.OUTPUT LENGTH 1
INITIAL LINE BEFORE NOFILL
.SPACING 1.NOFILL;
THE 1ST LINE
THE 3RD LINE
THE 5TH LINE
THE 7TH LINE
THE 9TH LINE
THE 11TH LINE
THE 13TH LINE
.CENTER;
THE 15TH LINE
.INDENT;
THE 17TH LINE
THE 19TH LINE
.RESET
.RESET.PROGRAM;%TEST 183
1234567890123456789012345678901234567890123456789012
.RESET.OUTPUT WIDTH 52.OUTPUT LENGTH 1
INITIAL LINE BEFORE NOFILL
.SPACING 2.NOFILL;
THE 1ST LINE
THE 3RD LINE
THE 5TH LINE
THE 7TH LINE
THE 9TH LINE
THE 11TH LINE
THE 13TH LINE
.CENTER;
THE 15TH LINE
.INDENT;
THE 17TH LINE
THE 19TH LINE
.RESET
.RESET.PROGRAM;%TEST 184
12345678901234567890123456789012345678901234567890123456
.RESET.OUTPUT WIDTH 56.OUTPUT LENGTH 1
INITIAL LINE BEFORE NOFILL
.SPACING 3.NOFILL;
THE 1ST LINE
THE 3RD LINE
THE 5TH LINE
THE 7TH LINE
THE 9TH LINE
THE 11TH LINE
THE 13TH LINE
.CENTER;
THE 15TH LINE
.INDENT;
THE 17TH LINE
THE 19TH LINE
.RESET
.RESET.PROGRAM;%TEST 185
123456789012345678901234567890123456789012345678
.RESET.OUTPUT WIDTH 48.OUTPUT LENGTH 1.CARRIAGE *,*
INITIAL LINE BEFORE NOFILL
.SPACING 1.NOFILL;
1ST LINE
3RD LINE
5TH LINE
7TH LINE
9TH LINE
11TH LINE
13TH LINE
.CENTER;
15TH LINE
.INDENT;
17TH LINE
19TH LINE
.RESET
.RESET.PROGRAM;%TEST 186
123456789012345678901234567890123456789012345678901234567890
.RESET.OUTPUT WIDTH 60.OUTPUT LENGTH 1.CARRIAGE *,*
INITIAL LINE BEFORE NOFILL
.SPACING 2.NOFILL;
1ST LINE
3RD LINE
5TH LINE
7TH LINE
9TH LINE
11TH LINE
13TH LINE
.CENTER;
15TH LINE
.INDENT;
17TH LINE
19TH LINE
.RESET
.RESET.PROGRAM;%TEST 187
123456789012345678901234567890123456789012345678901234567890
.RESET.OUTPUT WIDTH 60.OUTPUT LENGTH 1.CARRIAGE *,*
INITIAL LINE BEFORE NOFILL
.SPACING 3.NOFILL;
1ST LINE
3RD LINE
THE 5TH LINE
7TH LINE
9TH LINE
11TH LINE
13TH LINE
.CENTER;
AND THE 15TH LINE
.INDENT;
AND AT A VERY LONG LAST 17TH LINE
19TH LINE
.RESET
.reset.program;%TEST 188
.RESET
.carriage 1,2.page carriage 3,4.page length 4
.nofill
one
two
three
four
five
.paging
six
seven
eight
nine
ten
eleven
.page carriage ,5
twelve
thirteen
fourteen
fifteen
.page carriage 6
sixteen
seventeen
eighteen
nineteen
twenty
twenty-one
twenty-two
twenty-three
.page carriage 7,8
twenty-four
twenty-five
twenty-six
twenty-seven
.page carriage 9,
twenty-eight
twenty-nine
thirty
thirty-one
thirty-two
thirty-three
thirty-four
.no paging
thirty-five
thirty-six
.reset
.carriage 1,2
.nofill
A
B
C
D
.PAGE
E
F
G
H
.paging.page length 4.page carriage 1,2
I
J
K
L
M
.PAGE CARRIAGE
N
O
P
Q
R
.RESET.PROGRAM;%TEST 189
.RESET.NOFILL
.PAGE LENGTH 4.PAGING
.PAGE CARRIAGE +-
1
2
.SKIP
4
5
6
.NO PAGE CARRIAGE
.SKIP
8
9
10
.PAGE CARRIAGE A,B
.SKIP
12
13
14
.NO PAGING
.SKIP
16
.NO PAGE CARRIAGE
17
18
.PAGING
19
20
.SKIP
22
23
.reset.program;%TEST 190
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
.reset
.paging.page length 4
.top ** first top of page
.bottom ** first bottom of page
.reset
.paging.page length 4
.top ** second top of page
.bottom ** second bottom of page
.page position 1
.reset
.paging.page length 4
.top ** third top of page
.bottom ** third bottom of page
.page position 2
.reset
.paging.page length 4
.top ** fourth top of page
.bottom ** fourth bottom of page
.page position 3
.reset
.paging.page length 4
.top ** fifth top of page
.bottom ** fifth bottom of page
.page position 4
.reset
.paging.page length 4
.top ** sixth top of page
.bottom ** sixth bottom of page
.page position 5
.reset
.paging.page length 4
.top ** seventh top of page
.bottom ** seventh bottom of page
.page position 6
.reset
.paging.page length 4
.top ** eigth top of page
.bottom ** eigth bottom of page
.page position 2
.page position +1
.reset
.paging.page length 4
.top ** ninth top of page
.bottom ** ninth bottom of page
.page position 2
.page position +2
.reset
.paging.page length 4
.top ** tenth top of page
.bottom ** tenth bottom of page
.page position 2
.page position +3
.reset
.reset.program;%TEST 191
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
.reset
.page.page length 4
.top ** first top of page
.bottom ** first bottom of page
.reset
.page.page length 4
.top ** second top of page
.bottom ** second bottom of page
.page position 1
.reset
.page.page length 4
.top ** third top of page
.bottom ** third bottom of page
.page position 2
.reset
.page.page length 4
.top ** fourth top of page
.bottom ** fourth bottom of page
.page position 3
.reset
.page.page length 4
.top ** fifth top of page
.bottom ** fifth bottom of page
.page position 4
.reset
.page.page length 4
.top ** sixth top of page
.bottom ** sixth bottom of page
.page position 5
.reset
.page.page length 4
.top ** seventh top of page
.bottom ** seventh bottom of page
.page position 6
.reset
.page.page length 4
.top ** eigth top of page
.bottom ** eigth bottom of page
.page position 2
.page position +1
.reset
.page.page length 4
.top ** ninth top of page
.bottom ** ninth bottom of page
.page position 2
.page position +2
.reset
.page.page length 4
.top ** tenth top of page
.bottom ** tenth bottom of page
.page position 2
.page position +3
.reset
.reset.program;%TEST 192
TEST PAGES JUST CONSISTING OF PAGE POSITION COMMANDS
.reset
.page length 4
.top ** first top of page
.bottom ** first bottom of page
.reset
.page length 4
.top ** second top of page
.bottom ** second bottom of page
.page position 1
.reset
.page length 4
.top ** third top of page
.bottom ** third bottom of page
.page position 2
.reset
.page length 4
.top ** fourth top of page
.bottom ** fourth bottom of page
.page position 3
.reset
.page length 4
.top ** fifth top of page
.bottom ** fifth bottom of page
.page position 4
.reset
.page length 4
.top ** sixth top of page
.bottom ** sixth bottom of page
.page position 5
.reset
.page length 4
.top ** seventh top of page
.bottom ** seventh bottom of page
.page position 6
.reset
.page length 4
.top ** eigth top of page
.bottom ** eigth bottom of page
.page position 2
.page position +1
.reset
.page length 4
.top ** ninth top of page
.bottom ** ninth bottom of page
.page position 2
.page position +2
.reset
.page length 4
.top ** tenth top of page
.bottom ** tenth bottom of page
.page position 2
.page position +3
.reset
.RESET.PROGRAM;%TEST 193
TEST COMBINATION OF TEST PAGE AND PAGE POSITION
.RESET.PAGING.PAGE LENGTH 5.NOFILL.PAGE CARRIAGE 1+
.top ** first top
.bottom ** first bottom
1
2
.test page 2.page position +2
5
6
7
8
9
10
11
.RESET.PAGING.PAGE LENGTH 5.NOFILL.PAGE CARRIAGE 1+
.top ** second top
.bottom ** second bottom
1
2
3
.test page 2.page position +2
6
7
8
9
10
11
.RESET.PAGING.PAGE LENGTH 5.NOFILL.PAGE CARRIAGE 1+
.top ** third top
.bottom ** third bottom
1
2
3
4
.test page 2.page position +2
8
9
10
11
.RESET.PAGING.PAGE LENGTH 5.NOFILL.PAGE CARRIAGE 1+
.top ** fouth top
.bottom ** fourth bottom
1
2
3
4
5
.test page 2.page position +2
8
9
10
11
.RESET.PROGRAM;%TEST 194
.RESET
.right margin 20.paging.page length 5
.trailing.leading.page carriage 1,*
.skip 1.page position 3
This is some text meant to test if the skip
is done at correct time.
.page
.page position 3.skip
This is in the second test of skips and page positions.
.RESET.PROGRAM;%TEST 195
.COMMENT 01234567890
.RESET.leading
.page length 7.paging.right margin 20.spacing 2.page carriage 1+
.top first top
.bottom first bottom
1This will be double
3spaced in result
.page position 6
7on bottom line and
1top line of page
.page position 4
5this is below the
7page position 4
.COMMENT 01234567890
.page.blank 3.PAGE POSITION 6
7bottom of 3rd page
1and on 4th page
.reset.program;%TEST 196
.RESET
.right margin 20.spacing 3
.comment901234567890
This is some text
which will be triple
spaced in the result
.eject.program
***This is some program text after an eject command
.continue
and this comes after
the program command
.program
***This is some program text not after an eject command
.continue
and this comes after
2nd program command
.reset.program;%TEST 197
.reset
.paging.page length 5
.top first top
.bottom first bottom
.page position 6
.program
this is some program text
.continue
.page position 6.continue
this is after a continue command
.page position 6.text
this is after a text command
.page position 6.reset
.reset.program;%TEST 198
TEST WHICH PAGING COMMANDS GIVE BREAKS
.RESET
BLANK
.BLANK -1
BLANK
.break
BOTTOM
.BOTTOM **bottom text**
BOTTOM
.break
DEFINE BOTTOM
.DEFINE BOTTOM
**bottom text
.END DEFINITION
DEFINE BOTTOM
.break
DEFINE TOP
.DEFINE TOP
**top text**
.END DEFINITION
DEFINE TOP
.break
LEADING
.LEADING
LEADING
.break
NO BOTTOM
.NO BOTTOM
NO BOTTOM
.break
NO LEADING
.NO LEADING
NO LEADING
.break
NO PAGE CARRIAGE
.NO PAGE CARRIAGE
NO PAGE CARRIAGE
.break
NO PAGING
.NO PAGING
NO PAGING
.break
NO TOP
.NO TOP
NO TOP
.break
NO TRAILING
.NO TRAILING
NO TRAILING
.break
PAGE
.PAGE
PAGE
.break
PAGE CARRIAGE
.PAGE CARRIAGE 1,+
PAGE CARRIAGE
.break
PAGE LENGTH
.PAGE LENGTH 10
PAGE LENGTH
.break
PAGE POSITION
.PAGE POSITION +2
PAGE POSITION
.break
PAGING
.PAGING
PAGING
.break
PARAGRAPH
.PARAGRAPH ,,-3
PARAGRAPH
.break
RESUME BOTTOM
.RESUME BOTTOM
RESUME BOTTOM
.break
RESUME TOP
.RESUME TOP
RESUME TOP
.break
SKIP
.SKIP -1
SKIP
.break
TEST PAGE
.TEST PAGE 1
TEST PAGE
.break
TEST SPACING
.TEST SPACING 1
TEST SPACING
.break
TOP
.TOP **top text**
TOP
.break
TRAILING
.TRAILING
TRAILING
.reset.program;%TEST 199
CHECK THAT PAGING COMMAND GIVES NEW PAGE IF ISSUED
WHEN THE CURRENT PAGE IS EXACTLY FULL.
.RESET.NO JUSTIFY
.PAGE LENGTH 5.RIGHT MARGIN 20
.top **first top**
.bottom **first bottom
.page carriage 1+
.COMMENT901234567890
This is going to be
some text which will
exactly fill one
page so we can test
the page command
.paging
This is on the
second page. Again
we will exactly fill
the page but will
then turn off paging
.no paging
This comes after
paging has been
turned off. We will
end this page with a
break command.
.break.paging
This comes after the
combination of a
break and a paging
command. It will
be ended by page
.page
This will be a page
which will be
terminated by a
break and a no
paging command.
.break.no paging
This comes after
the break and the
no paging commands.
.program
THE NEXT WILL BE SAME IN NOFILL MODE
.RESET.NOFILL
.PAGE LENGTH 5.RIGHT MARGIN 20
.top **first top**
.bottom **first bottom
.page carriage 1+
.COMMENT901234567890
This is going to be
some text which will
exactly fill one
page so we can test
the page command
.paging
This is on the
second page. Again
we will exactly fill
the page but will
then turn off paging
.no paging
This comes after
paging has been
turned off. We will
end this page with a
break command.
.break.paging
This comes after the
combination of a
break and a paging
command. It will
be ended by page
.page
This will be a page
which will be
terminated by a
break and a no
paging command.
.break.no paging
This comes after
the break and the
no paging commands.
.reset.program;%test 200
Test insertion of bottom text by page command when no paging given
.reset
.page carriage 1+
.page length 5
.top top of page
.bottom bottom of page
one
.page
two
.reset
.top top of page
.bottom bottom of page
.page carriage 1+
three
.program
this is program text
.continue
.page
four
.reset.program;%TEST 201
CHECK COMBINATION OF TRAILING AND TEXT COMMANDS
.reset
.page length 5.right margin 15.no justify
.top ** first top
.bottom ** first bottom
.comment9012345
No TRAILING
is active here.
.skip 2
.text
.comment9012345
.trailing
TRAILING is
active now
.skip 2
.text.no trailing.spacing 2
.comment9012345
Double spacing
w/o trailing
.text
.comment9012345
.trailing
Double spacing
with trailing
.text
the end
.reset
.page length 5.right margin 15.no justify.page carriage 1,*
.top ** first top
.bottom ** first bottom
.comment9012345
No TRAILING
is active here.
.skip 2
.text
.comment9012345
.trailing
TRAILING is
active now
.skip 2
.text.no trailing.spacing 2
.comment9012345
Double spacing
w/o trailing
.text
.comment9012345
.trailing
Double spacing
with trailing
.text
the end
.reset.program;%TEST 202
CHECK COMBINATION OF TRAILING AND TEXT COMMANDS
.reset.paging
.page length 5.right margin 15.no justify
.top ** first top
.bottom ** first bottom
.comment9012345
No TRAILING
is active here.
.skip 2
.text
.comment9012345
.trailing
TRAILING is
active now
.skip 2
.text.no trailing.spacing 2
.comment9012345
Double spacing
w/o trailing
.text
.comment9012345
.trailing
Double spacing
with trailing
.text
the end
.reset.paging
.page length 5.right margin 15.no justify.page carriage 1,*
.top ** first top
.bottom ** first bottom
.comment9012345
No TRAILING
is active here.
.skip 2
.text
.comment9012345
.trailing
TRAILING is
active now
.skip 2
.text.no trailing.spacing 2
.comment9012345
Double spacing
w/o trailing
.text
.comment9012345
.trailing
Double spacing
with trailing
.text
the end
.reset.program;%TEST 203
TEST VARIOUS COMMANDS TO SEE IF CAUSE BREAKS
.reset
BLANK
.BLANK
BLANK
.break
BREAK
.BREAK
BREAK
.break
CARRIAGE *
.CARRIAGE
CARRIAGE
.break
CENTER
.CENTER
CENTER
.break
COMMENT
.COMMENT
COMMENT
.break
CONTINUE
.CONTINUE
CONTINUE
.break
COPY
.COPY
COPY
.break
DEFINE GROUP
.DEFINE GROUP
.end definition
DEFINE GROUP
.break
DEFINE PREFACE
.DEFINE PREFACE
.end definition
DEFINE PREFACE
.break
EJECT
.EJECT
EJECT
.break
END DEFINITION
.END DEFINITION
END DEFINITION
.break
FILL
.FILL
FILL
.break
FLAGS ALL
.FLAGS ALL
FLAGS ALL
.break
FLAGS CAPITALIZE
.FLAGS CAPITALIZE
FLAGS CAPITALIZE
.break
FLAGS CONTROL
.FLAGS CONTROL
FLAGS CONTROL
.break
FLAGS FENCE
.FLAGS FENCE
FLAGS FENCE
.break
FLAGS INSERT
.FLAGS INSERT
FLAGS INSERT
.break
FLAGS LOWER CASE
.FLAGS LOWER CASE
FLAGS LOWER CASE
.break
FLAGS QUOTE
.FLAGS QUOTE
FLAGS QUOTE
.break
FLAGS REMARK
.FLAGS REMARK
FLAGS REMARK
.break
FLAGS SPACE
.FLAGS SPACE
FLAGS SPACE
.break
FLAGS UPPER CASE
.FLAGS UPPER CASE
FLAGS UPPER CASE
.break
GROUP
.GROUP
GROUP
.break
INDENT
.INDENT 5
INDENT
.break
INPUT WIDTH
.INPUT WIDTH 80
INPUT WIDTH
.break
INSERT
.INSERT
INSERT
.break
JUSTIFY
.JUSTIFY
JUSTIFY
.break
LEADING
.LEADING
LEADING
.break
LEFT MARGIN
.LEFT MARGIN 0
LEFT MARGIN
.break
LOWER CASE
.LOWER CASE
LOWER CASE
.break
MASK
.MASK
MASK
.break
NO CARRIAGE
.NO CARRIAGE
NO CARRIAGE
.break
NO COPY
.NO COPY
NO COPY
.break
NO FILL
.NO FILL
NO FILL
.fill
.break
NO FLAGS ALL
.NO FLAGS ALL
NO FLAGS ALL
.break
NO FLAGS CAPITALIZE
.NO FLAGS CAPITALIZE
NO FLAGS CAPITALIZE
.break
NO FLAGS FENCE
.NO FLAGS FENCE
NO FLAGS FENCE
.break
NO FLAGS INSERT
.NO FLAGS INSERT
NO FLAGS INSERT
.break
NO FLAGS LOWER CASE
.NO FLAGS LOWER CASE
NO FLAGS LOWER CASE
.break
NO FLAGS QUOTE
.NO FLAGS QUOTE
NO FLAGS QUOTE
.break
NO FLAGS REMARK
.NO FLAGS REMARK
NO FLAGS REMARK
.break
NO FLAGS SPACE
.NO FLAGS SPACE
NO FLAGS SPACE
.break
NO FLAGS UPPER CASE
.NO FLAGS UPPER CASE
NO FLAGS UPPER CASE
.break
NO INSERT
.NO INSERT
NO INSERT
.break
NO JUSTIFY
.NO JUSTIFY
NO JUSTIFY
.break
NO LEADING
.NO LEADING
NO LEADING
.break
NO MASK
.NO MASK
NO MASK
.break
NO OFFSET
.NO OFFSET
NO OFFSET
.offset 1
.break
NO GROUP
.NO GROUP
NO GROUP
.break
NO PREFACE
.NO PREFACE
NO PREFACE
.break
NO TRAILING
.NO TRAILING
NO TRAILING
.break
OFFSET
.OFFSET
OFFSET
.break
OUTPUT LENGTH
.OUTPUT LENGTH 10
OUTPUT LENGTH
.break
OUTPUT WIDTH
.OUTPUT WIDTH 72
OUTPUT WIDTH
.break
PARAGRAPH
.PARAGRAPH
PARAGRAPH
.break
PREFACE
.PREFACE
PREFACE
.break
PROGRAM
.PROGRAM
.continue
PROGRAM
.break
RESET
.RESET
RESET
.break
RESUME GROUP
.RESUME GROUP
RESUME GROUP
.break
RESUME PREFACE
.RESUME PREFACE
RESUME PREFACE
.break
RIGHT MARGIN
.RIGHT MARGIN 60
RIGHT MARGIN
.break
SKIP
.SKIP
SKIP
.break
SPACING
.SPACING 1
SPACING
.break
TEXT
.TEXT
TEXT
.break
TRAILING
.TRAILING
TRAILING
.break
UPPER CASE
.UPPER CASE
UPPER CASE
.break
USE
.USE'
USE
.reset.program;%TEST 204
CHECK USE OF SIGN WITH PAGE LENGTH COMMAND
.RESET
.NOFILL.PAGING.PREFACE WRITE(ITTY,$)
.PAGE LENGTH 5
1
2
3
4
5
6 NEW PAGE
.PAGE LENGTH +2
7
8
9
10
11
12
13 NEW PAGE
.PAGE LENGTH -4
14
15
16 NEW PAGE
.reset.program;%TEST 205
CHECK THAT NO PAGING COMMAND PROPERLY CLOSES PAGE
JUST EXACTLY FILLED
.reset
.top ** first top **
.bottom ** first bottom **
.page length 5.right margin 15.no justify
.comment9012345
.paging
This text will
appear on page
which is just
partly full.
.no paging
.program
THIS COMES AFTER A PAGE NOT QUITE FULL
.reset
.top ** second top **
.bottom ** second bottom **
.page length 5.right margin 15.no justify
.comment9012345
.paging
This is some
text which will
appear on a
page which is
exactly full.
.program
THIS COMES AFTER A PAGE WHICH IS JUST EXACTLY FULL
.reset
.top ** third top **
.bottom ** third bottom **
.page length 5.right margin 15.no justify
.comment9012345
.paging
This is some
text which will
appear on a
page which will
run over onto
a second page.
.no paging
.program
THIS COMES AFTER A PAGE WHICH SPILLS ONTO THE NEXT PAGE
.reset.program;%TEST 206
CHECK THAT 3RD ARGUMENT OF PARAGRAPH COMMAND IS ACTIVE
ONLY WHEN AUTO PAGING
.reset
.top ** top **
.bottom ** bottom **
.page length 5.right margin 15.no justify
.comment9012345
This appears in first paragraph
.paragraph
This appears in second paragraph when not paging
.paragraph
This appears in third paragraph when not paging
.page
.comment9012345
This appears after .page
.paragraph
This appears in second paragraph after .page
.paragraph
This appears in third paragraph after .page
.paging
This appears after .paging
.paragraph
This appears in second paragraph after .paging
.paragraph
This appears in third paragraph after .paging
has been issued.
.paragraph
There is enough room on page for this paragraph
.reset.program;%TEST 207
.reset
.page length 5.right margin 14.output width 55
.no justify
.preface WRITE(1,$)
.page carriage 1
.bottom C*******bottom*******
.trailing
This page will be terminated early.
.page
This sentence is long enough that it will
have to be continued onto a second page.
.reset.program;%TEST 208
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
.reset
.page.page length 10.output width 60
.top first top
.bottom first bottom
PAGE COMMAND WITHOUT PAGING
.skip 20
.program
this is some program text
.page
.reset
.page.page length 10.output width 60
.top second top
.bottom second bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER PROGRAM
.program
this is some program text
.skip 20
.test page 1
.reset
.page.page length 10.output width 60
.top third top
.bottom third bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.test page 1
.reset
.page.page length 10.output width 60.nofill
.top fourth top
.bottom fourth bottom
TEST PAGE IN NOFILL WITOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.test page 1
.reset.program;%TEST 209
.reset
.page.page length 10.output width 60.paging
.top top of page
.bottom bottom of page
TEST PAGE WHILE PAGING
.skip 20
.program
this is some program text
.test page 1
.reset
This is some ordinary text
.program
This is program text before a skip 2
.skip 2
This is program text after a skip 2
.continue
This is a second line of ordinary text
.skip 2
.program
This is program text after a skip 2
.continue
This is a sthird line of ordinary text
.reset.program;%TEST 210
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
.reset
.page.page length 10.output width 60
.top first top
.bottom first bottom
PAGE COMMAND WITHOUT PAGING
.skip 20
.program
this is some program text
.CONTINUE.page
THIS IS AFTER THE START OF THE NEW PAGE
.reset
.page.page length 10.output width 60
.top second top
.bottom second bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER PROGRAM
.program
this is some program text
.skip 20
.CONTINUE.test page 1
THIS IS AFTER THE START OF THE NEW PAGE
.reset
.page.page length 10.output width 60
.top third top
.bottom third bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE START OF THE NEW PAGE
.reset
.page.page length 10.output width 60.nofill
.top fourth top
.bottom fourth bottom
TEST PAGE IN NOFILL WITOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE START OF THE NEW PAGE
.reset
.page.page length 10.output width 60.paging
.top fifth top
.bottom fifth bottom
TEST PAGE WHILE PAGING
.skip 20
.program
this is some program text
.CONTINUE.test page 1
THIS IS AFTER THE START OF THE NEW PAGE
.reset.program;%TEST 211
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
PAGE COMMAND WITHOUT PAGING
.skip 20
.program
this is some program text
.page
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER PROGRAM
.program
this is some program text
.skip 20
.test page 1
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.test page 1
.reset.trailing
.page.page length 10.output width 60.nofill
.top sixth top
.bottom sixth bottom
TEST PAGE IN NOFILL WITOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.program
this is some program text
.test page 1
.reset.trailing
.page.page length 10.output width 60.paging
.top sixth top
.bottom sixth bottom
TEST PAGE WHILE PAGING
.skip 20
.program
this is some program text
.test page 1
.reset.trailing
This is some ordinary text
.program
This is program text before a skip 2
.skip 2
This is program text after a skip 2
.continue
This is a second line of ordinary text
.skip 2
.program
This is program text after a skip 2
.continue
This is a sthird line of ordinary text
.reset.program;%TEST 212
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
1his is the first line in sixth section
.skip 20
.TEXT
2his is in the next format statement
.reset
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
3his is the first line in sixth section
.skip 8
.program
4his is in program statements
.continue
5his is in the next format statement
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
6his is the first line in sixth section
.skip 20
.program
7his is some program text
.reset.TRAILING
.page length 10.output width 60
.top sixth top
.bottom sixth bottom
8his is the first line in sixth section
.skip 20
.CONTINUE
9his is some program text
.reset.TRAILING
.page length 10.output width 60
.top sixth top
.bottom sixth bottom
10is is the first line in sixth section
.skip 20
.CONTINUE
11is is some program text
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
12is is the first line in sixth section
.skip 2
.CONTINUE
13is is some program text
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
14is is the first line in sixth section
.skip 20
.CONTINUE
15is is some program text
.reset.program;%TEST 213
PROGRAM COMMAND WAS WIPING OUT SKIP COMMAND GIVEN BEFORE IT
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
PAGE COMMAND WITHOUT PAGING
.skip 20
.continue
this comes after the continue
.page
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN AFTER PROGRAM
.continue
this comes after the continue
.skip 20
.test page 1
.reset.trailing
.page.page length 10.output width 60
.top sixth top
.bottom sixth bottom
TEST PAGE WITHOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.continue
this comes after the continue
.test page 1
.reset.trailing
.page.page length 10.output width 60.nofill
.top sixth top
.bottom sixth bottom
TEST PAGE IN NOFILL WITOUT PAGING, SKIP GIVEN BEFORE PROGRAM
.skip 20
.continue
this is comes after the continue
.test page 1
.reset.trailing
.page.page length 10.output width 60.paging
.top sixth top
.bottom sixth bottom
TEST PAGE WHILE PAGING
.skip 20
.continue
this is comes after the continue
.test page 1
.reset.trailing
This is some ordinary text
.continue
This is text before a skip 2
.skip 2
This is text after a skip 2
.continue
This is a second line of ordinary text
.skip 2
.continue
This is text after a skip 2
.continue
This is a sthird line of ordinary text
.RESET.PROGRAM;%TEST 214
.RESET.TRAILING
.OUTPUT LENGTH 1.OUTPUT WIDTH 72.PAGE LENGTH 10.PAGING.TRAILING
.BOTTOM ***THIS IS AN BOTTOM LINE***
.PREFACE ---THIS IS A PREFACE LINE---
.CONTINUE
+++THIS IS A AFTER A CONTINUE LINE+++
.CONTINUE.SPACING 1.NOFILL
1
2
.SKIP 10
3
4
.PAGE
5
6
.SKIP 10
.PAGE
7
8
.PAGE
.PAGE
9
10
11
.CONTINUE
+++THIS IS AFTER A CONTINUE LINE+++
.CONTINUE
12
13
14
15
16
17
18
19
20
.PAGE
.reset.program;%TEST 215
TEST SMALL SKIPS WHILE TRAILING AND PAGING
.reset.TRAILING
.paging.page length 10.output width 60
.top first top
.bottom first bottom
This is the first line in first section
.skip 2
.CONTINUE
This is after a continue command
.reset.TRAILING
.paging.page length 10.output width 60
.top second top
.bottom second bottom
This is the first line in second section
.skip 2
.TEXT
This is after a text command
.reset.TRAILING
.paging.page length 10.output width 60
.top third top
.bottom third bottom
This is the first line in third section
.skip 2
.program
This is after a program command
.reset.TRAILING
.paging.page length 10.output width 60
.top fourth top
.bottom fourth bottom
This is the first line in fourth section
.skip 2
.program
This is after a program command
.continue
This is after a continue command
.reset.TRAILING
.paging.page length 10.output width 60
.top fifth top
.bottom fifth bottom
This is the first line in fifth section
.skip 2
.program
This is after a program command
.text
This is after a text command
.reset.TRAILING
.paging.page length 10.output width 60
.top sixth top
.bottom sixth bottom
This is the first line in sixth section
.skip 2
.eject.CONTINUE
This is after a eject and continue command
.reset.TRAILING
.paging.page length 10.output width 60
.top seventh top
.bottom seventh bottom
This is the first line in seventh section
.skip 2
.CONTINUE.eject
This is after a continue and eject command
.reset.TRAILING
.paging.page length 10.output width 60
.top eighth top
.bottom eighth bottom
This is the first line in eighth section
.skip 2
.page position+2.continue
This is after a page position and continue command
.reset.program;%TEST 216
.reset
.top *** first top
.bottom *** first bottom
.right margin 15
No trailing command has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset
.top *** second top
.bottom *** second bottom
.right margin 15.trailing
The trailing command has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset
.top *** third top
.bottom *** third bottom
.right margin 15.paging
No trailing command has been issued, paging has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset
.top *** fourth top
.bottom *** fourth bottom
.right margin 15.trailing.paging
The trailing command has been issued, paging has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset
.top *** fifth top
.bottom *** fifth bottom
.right margin 15.page
No trailing command has been issued, page has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset
.top *** sixth top
.bottom *** sixth bottom
.right margin 15.trailing.page
The trailing command has been issued, page has been issued.
.skip 2
.program
This is some program text after a skip 2
.continue
This is after the continue command.
.reset.program;%TEST 217
.reset
.top *** first top
.bottom *** first bottom
.right margin 20.page length 10
.comment901234567890
1This text comes
2before the page
3position command.
.trailing.skip 2.program.no trailing
This is some program text
.continue.page position +2
.comment901234567890
.skip 2
10This comes after
1the continue
2command
.reset
.top *** second top
.bottom *** second bottom
.right margin 20.page length 10.paging
.comment901234567890
1This text comes
2before the page
3position command.
.trailing.skip 2.program.no trailing
This is some program text
.continue.page position +2
.comment901234567890
.skip 2
10This comes after
1the continue
2command
.reset
.top *** third top
.bottom *** third bottom
.right margin 20.page length 10.paging
.comment901234567890
1This text comes
2before the page
3position command.
.trailing.skip 2.no trailing.program
This is some program text
.continue.page position +2
.comment901234567890
.skip 2
10This comes after
1the continue
2command
.reset
.top *** fouth top
.bottom *** fourth bottom
.right margin 20.page length 13.spacing 2.paging
.comment901234567890
1This text comes
3before the page
5position command.
.trailing.blank 2.program.no trailing
This is some program text
.continue.page position +2
.comment901234567890
.blank 2
13This comes after
1the continue
3command
.reset
.top *** fifth top
.bottom *** fifth bottom
.right margin 20.page length 10.spacing 2.paging
.comment901234567890
1This text comes
3before the page
5position command.
.trailing.program.no trailing
This is some program text
.continue.page position +2
.comment901234567890
9This comes after
1the continue
3command
.reset
.top *** sixth top
.bottom *** sixth bottom
.right margin 20.page length 10.paging
.comment901234567890
1This text comes
2before the page
3position command.
.skip 2.trailing.program.no trailing
This is some program text
.continue.page position +2
.comment901234567890
.skip 2
10This comes after
1the continue
2command
.RESET.PROGRAM;%TEST 218
TEST THE PAGE POSITION COMMAND WITHOUT ARGUMENT
.reset
.PREFACE ** first PREFACE
.GROUP ** first GROUP
.top *** first top
.bottom *** first bottom
.right margin 20.page length 10.paging
.page carriage 1,*
.comment901234567890
1This text comes
2before the page
3position command.
4We want this page
5to just be full
6when we try to
7insert some extra
8lines onto the
9page with fortran
10code.
.test page 2.page position.trailing.program.no trailing
This is some program text
.page position +2.continue
.comment901234567890
.nofill
3
4
5
6
7
8
9
10
1
2
.reset
.PREFACE ** SECOND PREFACE
.GROUP ** SECOND GROUP
.top *** second top
.bottom *** second bottom
.right margin 20.page length 10.paging
.page carriage 1,*
.comment901234567890
1This text comes
2before the page
3position command.
4We want this page
5to just be full
6when we try to
7insert some extra
8lines onto the
9page with code.
.test page 2.page position.trailing.program.no trailing
This is some program text
.page position +2.continue
.comment901234567890
.nofill
3
4
5
6
7
8
9
10
1
2
.reset
.PREFACE *** THIRD PREFACE ***
.GROUP *** THIRD GROUP ***
.top *** third top
.bottom *** third bottom
.right margin 20.page length 10.paging
.page carriage 1,*
.comment901234567890
1This text comes
2before the page
3position command.
4We want this page
5to just be full
6when we try to
7insert some extra
8lines onto page.
.test page 2.page position.trailing.program.no trailing
This is some program text
.page position +2.continue
.comment901234567890
.nofill
1
2
3
4
5
6
7
8
9
10
1
2
.reset.program;%TEST 219
TEST PAGE POSITION WITHOUT ARGUMENTS ON EMPTY PAGE
.reset
.PREFACE ** first PREFACE
.GROUP ** first GROUP
.top ** first top
.bottom ** first bottom
.paging.page length 5
.page position
.reset
.PREFACE ** second PREFACE
.GROUP ** second GROUP
.top ** second top
.bottom ** second bottom
.page.page length 5
.page position
.reset
.PREFACE ** third PREFACE
.GROUP ** third GROUP
.top ** third top
.bottom ** third bottom
.page.page length 5
.page position
.program
This is some program text
.reset
.PREFACE ** fourth PREFACE
.GROUP ** fourth GROUP
.top ** fourth top
.bottom ** fourth bottom
.paging.page length 5
.page position
This is some real text
.reset
.PREFACE ** fifth PREFACE
.GROUP ** fifth GROUP
.top ** fifth top
.bottom ** fifth bottom
.page.page length 5
.page position
This is some real text
.reset
.reset.program;%TEST 220
PAGE POSITION WITHOUT NUMBER BUT NO PAGE POSITION WITH NUMBER
.reset
.page carriage 1,*
.PREFACE ** first PREFACE
.GROUP ** first GROUP
.top ** first top
.bottom ** first bottom
.paging.page length 5
.page position
.program
This is some program text
.continue
This is after the continue
.reset
.page carriage 1,*
.PREFACE ** second PREFACE
.GROUP ** second GROUP
.top ** second top
.bottom ** second bottom
.page.page length 5
.page position
.program
This is some program text
.continue
This is after the continue
.reset
.page carriage 1,*
.PREFACE ** third PREFACE
.GROUP ** third GROUP
.top ** third top
.bottom ** third bottom
.paging.page length 5
.page position
.program
This is some program text
.text
This is after the text command
.reset
.RESET.PROGRAM;%TEST 221
.RESET
.paging.page length 10
.top ** first top
.bottom ** first bottom
.preface ** first preface
.group ** first group
.page position
.page position
.page position
.continue
This is after 3 page positions and a continue
.reset
.page.page length 10
.top ** second top
.bottom ** second bottom
.preface ** second preface
.group ** second group
.page position
.page position
.page position
.continue
This is after 3 page positions and a continue
.reset
.RESET.PROGRAM;%TEST 222
.RESET
.top ** first top
.bottom ** first bottom
.preface ** first preface
.group ** first group
.PAGING.PAGE LENGTH 5.NOFILL
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
THIS COMES AFTER THE PAGE POSITION+6
.RESET
.top ** second top
.bottom ** second bottom
.preface ** second preface
.group ** second group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
1
2
3
4
5
6
.RESET
.top ** third top
.bottom ** third bottom
.preface ** third preface
.group ** third group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
.skip 6
.RESET
.top ** fourth top
.bottom ** fourth bottom
.preface ** fourth preface
.group ** fourth group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
.test page 3
.page position
.program
this is some program text after the test page 3
.continue.page position+3
4
5
6
.RESET.PROGRAM;%TEST 223
.RESET
.top ** first top
.preface ** first preface
.group ** first group
.PAGING.PAGE LENGTH 5.NOFILL
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
THIS COMES AFTER THE PAGE POSITION+6
.RESET
.top ** second top
.preface ** second preface
.group ** second group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
1
2
3
4
5
6
.RESET
.top ** third top
.preface ** third preface
.group ** third group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
.skip 6
.RESET
.top ** fourth top
.preface ** fourth preface
.group ** fourth group
.PAGING.PAGE LENGTH 5.NOFILL.trailing.leading.page carriage 1,*
1
2
3
4
.SKIP.TEST PAGE 6
.PAGE POSITION
.PROGRAM
THIS IS SOME PROGRAM TEXT
.CONTINUE.PAGE POSITION+6
.test page 3
.page position
.program
this is some program text after the test page 3
.continue.page position+3
4
5
6