Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0063/dial.rno
There are 2 other files named dial.rno in the archive. Click here to see a list.
.SPACING 1
.TAB STOPS 8,16,24,32,40,48,56,64,72
.LEFT MARGIN 0
.INDENT 8
^A^S^Y^N^C^H^R^O^N^O^U^S ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^S^U^B^R^O^U^T^I^N^E^S
.SKIP 1
.LEFT MARGIN 0
^T^H^E ^A^S^Y^N^C^H^R^O^N^O^U^S ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^P^A^C^K^A^G^E ^C^O^N^T^A^I^N^S ^F^I^V^E ^S^U^B^R^O^U^T^I^N^E^S
^C^A^L^L^A^B^L^E ^E^I^T^H^E^R ^F^R^O^M ^C^O^B^O^L ^P^R^O^G^R^A^M^S
^O^R ^F^R^O^M ^F^O^R^T^R^A^N ^P^R^O^G^R^A^M^S. ^T^H^E^S^E ^S^U^B^R^O^U^T^I^N^E^S ^A^L^L^O^W ^T^H^E ^U^S^E^R ^T^O
^I^N^I^T^I^A^L^I^Z^E ^A ^T^T^Y ^L^I^N^E ^F^O^R ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^W^I^T^H ^A^N^O^T^H^E^R ^C^O^M^P^U^T^E^R,
^P^L^A^C^E ^A ^C^A^L^L ^O^U^T ^O^N ^T^H^A^T ^L^I^N^E ^T^O ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R (^I^F ^D^I^A^L ^O^U^T
^H^A^R^D^W^A^R^E ^E^X^I^S^T^S ^F^O^R ^T^H^A^T ^L^I^N^E), ^I^N^I^T^I^A^T^E ^T^H^E ^C^O^U^N^T^E^R^P^A^R^T ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^J^O^B
^I^N ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R, ^T^H^E^N ^S^E^N^D ^A^N^D ^R^E^C^E^I^V^E ^D^A^T^A ^T^O ^A^N^D ^F^R^O^M ^T^H^E ^O^T^H^E^R
^C^O^M^P^U^T^E^R ^W^I^T^H ^C^O^M^P^L^E^T^E ^E^R^R^O^R ^D^E^T^E^C^T^I^O^N ^A^N^D ^E^R^R^O^R ^C^O^R^R^E^C^T^I^O^N,
^A^N^D ^F^I^N^A^L^Y ^D^I^S^C^O^N^E^C^T ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E
^A^T ^T^H^E ^T^E^R^M^I^N^A^T^I^O^N ^O^F ^T^H^E ^D^A^T^A ^T^R^A^N^S^F^E^R.
.SKIP 1
.LEFT MARGIN 0
^T^H^E ^F^O^L^L^O^W^I^N^G ^I^S ^A ^D^E^S^C^R^I^P^T^I^O^N ^O^F ^T^H^E ^F^I^V^E ^S^U^B^R^O^U^T^I^N^E^S, ^T^H^E^I^R
^C^A^L^L^I^N^G ^S^E^Q^U^E^N^C^E, ^T^H^E^I^R ^E^R^R^O^R ^C^O^D^E^S, ^A^N^D ^S^A^M^P^L^E ^P^R^O^G^R^A^M^S ^D^E^M^O^N^S^T^R^A^T^I^N^G
^T^H^E ^U^S^E ^O^F ^E^A^C^H ^O^F ^T^H^E ^S^U^B^R^O^U^T^I^N^E^S.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^I^N^I^T - ^T^H^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^S^U^B^R^O^U^T^I^N^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^F^O^R^T^R^A^N#^C^A^L^L:
^C^A^L^L ^I^N^I^T^F(^I^O^I^N^D^X, ^I^E^R^R^O^R, ^I^T^Y^P^E)
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^C^O^B^O^L#^C^A^L^L:
^E^N^T^E^R ^M^A^C^R^O ^I^N^I^T^C ^U^S^I^N^G ^I^O^I^N^D^X, ^I^E^R^R^O^R, ^I^T^Y^P^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^W^H^E^R^E#^T^H^E ^A^R^G^U^M^E^N^T^S ^A^R^E ^D^E^F^I^N^E^D ^A^S:
.break
^I^O^I^N^D^X ^F^O^R^T^R^A^N:
.LEFT MARGIN 24
.BREAK
^I^O^I^N^D^X ^M^U^S^T ^B^E ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^C^O^N^T^A^I^N^I^N^G
^T^H^E ^U^N^I^V^E^R^S^A^L ^I/^O ^I^N^D^E^X ^O^F ^T^H^E ^T^T^Y ^L^I^N^E
^T^O ^B^E ^U^S^E^D ^A^S ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E.
^T^H^I^S ^I^N^D^E^X ^I^S ^O^C^T^A^L 200000
^P^L^U^S ^T^H^E ^T^T^Y ^L^I^N^E ^N^U^M^B^E^R.
^T^H^E ^U^N^I^V^E^R^S^A^L ^I/^O ^I^N^D^E^X ^I^S ^D^E^S^C^R^I^B^E^D
^I^N ^T^H^E ^D^E^C^S^Y^S^T^E^M-10 ^M^O^N^I^T^O^R ^C^A^L^L^S
^M^A^N^U^A^L.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^O^I^N^D^X ^M^U^S^T ^B^E ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^I^T^H ^A
^D^E^C^I^M^A^L ^V^A^L^U^E ^E^Q^U^I^V^A^L^E^N^T ^T^O ^O^C^T^A^L 200000
^P^L^U^S ^T^H^E ^T^T^Y ^N^U^M^B^E^R (^E^G. ^T^H^E ^I^O^I^N^D^X ^F^O^R
^T^T^Y ^L^I^N^E 14 ^W^O^U^L^D ^B^E 65,536 + 12 ^O^R 65,548
^D^E^C^I^M^A^L). ^I^O^I^N^D^X ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^O^I^N^D^X ^P^I^C 9(10) ^C^O^M^P ^V^A^L^U^E 65548.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^E^R^R^O^R ###^F^O^R^T^R^A^N:
.BREAK
^I^E^R^R^O^R ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^E^T
^E^I^T^H^E^R ^T^R^U^E (-1) ^O^R ^F^A^L^S^E (0) ^D^E^P^E^N^D^I^N^G
^O^N ^W^H^E^T^H^E^R ^T^H^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^W^A^S ^C^O^M^P^L^E^T^E^D
^S^U^C^C^E^S^S^F^U^L^L^Y.
^I^F ^I^E^R^R^O^R ^I^S ^F^A^L^S^E, ^T^H^E^N ^I^T^Y^P^E ^C^O^N^T^A^I^N^S
^T^H^E ^T^Y^P^E ^O^F ^F^A^I^L^U^R^E ^T^H^A^T ^O^C^C^U^R^E^D.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^E^R^R^O^R ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^E^I^T^H^E^R ^T^R^U^E (-1) ^O^R ^F^A^L^S^E (0) ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^E^R^R^O^R ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^E^R^R^O^R ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^T^Y^P^E ###^F^O^R^T^R^A^N:
.BREAK
^I^T^Y^P^E ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^S^E^T ^T^O ^T^H^E ^T^Y^P^E
^O^F ^E^R^R^O^R ^E^N^C^O^U^N^T^E^R^E^D ^B^Y ^T^H^E ^S^U^B^R^O^U^T^I^N^E.
^I^F ^I^E^R^R^O^R ^I^S ^F^A^L^S^E ^T^H^E^N ^I^T^Y^P^E ^I^S
^R^E^T^U^R^N^E^D ^W^I^T^H ^T^H^E ^F^O^L^L^O^W^I^N^G ^V^A^L^U^E^S:
.BREAK
1 - ^T^T^Y ^L^I^N^E ^I^S ^N^O^T ^A^V^A^I^L^A^B^L^E
.BREAK
2 - ^T^T^Y ^N^O^T ^A^S^S^I^G^N^E^D ^T^O ^T^H^I^S ^J^O^B
.BREAK
3 - ^N^O ^C^H^A^N^N^E^L^S ^A^R^E ^A^V^A^I^L^A^B^L^E
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^T^Y^P^E ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^W^I^L^L
^C^O^N^T^A^I^N ^A^N ^E^R^R^O^R ^T^Y^P^E ^V^A^L^U^E ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^T^Y^P^E ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^T^Y^P^E ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.LEFT MARGIN 8
^T^H^E ^I^N^I^T ^S^U^B^R^O^U^T^I^N^E ^R^E^Q^U^I^R^E^S ^T^H^A^T ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E
^B^E ^A^S^S^I^G^N^E^D ^T^O ^T^H^E ^J^O^B ^I^N ^O^R^D^E^R ^T^O ^U^S^E ^T^H^A^T ^L^I^N^E ^I^N ^I^M^A^G^E ^M^O^D^E.
^T^H^E ^I^N^I^T ^S^U^B^R^O^U^T^I^N^E ^A^L^S^O ^R^E^Q^U^I^R^E^S ^T^H^A^T ^T^H^E ^C^A^L^L^I^N^G ^R^O^U^T^I^N^E ^L^E^A^V^E
^I/^O ^C^H^A^N^N^E^L^S 16 ^A^N^D 17 ^F^R^E^E ^F^O^R
^C^O^M^M^U^N^I^C^A^T^I^N^G ^W^I^T^H ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^D^I^A^L - ^T^H^E ^D^I^A^L^E^R ^S^U^B^R^O^U^T^I^N^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^F^O^R^T^R^A^N#^C^A^L^L:
^C^A^L^L ^D^I^A^L^F(^I^D^I^A^L, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E)
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^C^O^B^O^L#^C^A^L^L:
^E^N^T^E^R ^M^A^C^R^O ^D^I^A^L^C ^U^S^I^N^G ^I^D^I^A^L, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^W^H^E^R^E#^T^H^E ^A^R^G^U^M^E^N^T^S ^A^R^E ^D^E^F^I^N^E^D ^A^S:
.break
^I^D^I^A^L ^F^O^R^T^R^A^N:
.BREAK
.LEFT MARGIN 24
^I^D^I^A^L ^I^S ^A^N ^I^N^T^E^G^E^R ^A^R^R^A^Y ^C^O^N^T^A^I^N^I^N^G ^T^H^E
^D^I^G^I^T^S ^T^O ^B^E ^D^I^A^L^E^D.
^T^H^E ^D^I^G^I^T^S ^M^U^S^T ^B^E ^I^N ^T^H^E ^R^A^N^G^E ^O^F
1 ^T^O 10, ^S^T^O^R^E^D ^O^N^E ^D^I^G^I^T ^T^O ^A ^W^O^R^D.
^T^H^E ^N^U^M^B^E^R 14 ^D^E^C^I^M^A^L ^W^I^L^L ^C^A^U^S^E ^A ^F^I^V^E ^S^E^C^O^N^D
^P^A^U^S^E ^I^N ^D^I^A^L^I^N^G. ^T^H^I^S ^I^S ^U^S^E^F^U^L ^F^O^R
^G^E^T^T^I^N^G ^A^N "^O^U^T^S^I^D^E ^L^I^N^E" ^W^H^E^R^E ^A ^S^E^C^O^N^D ^D^I^A^L ^T^O^N^E
^M^U^S^T ^B^E ^W^A^I^T^E^D ^F^O^R.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^D^I^A^L ^I^S ^A ^G^R^O^U^P ^L^E^V^E^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^N
(^D^E^F^I^N^E^D ^B^E^L^O^W) ^E^L^E^M^E^N^T^A^R^Y ^I^T^E^M^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^D^I^G^I^T- ^P^I^C 9 ^C^O^M^P ^V^A^L^U^E -.
.BREAK
^N^O^T^E ^T^H^A^T ^E^A^C^H ^D^I^G^I^T ^D^I^A^L^E^D ^I^S ^P^L^A^C^E^D ^I^N ^A
^S^E^P^A^R^A^T^E ^I^T^E^M (^W^O^R^D).
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^N ###^F^O^R^T^R^A^N:
.BREAK
^N ^I^S ^T^H^E ^N^U^M^B^E^R ^O^F ^D^I^G^I^T^S ^I^N ^T^H^E ^A^R^R^A^Y ^T^O ^B^E
^D^I^A^L^E^D. (^I^N^C^L^U^D^I^N^G ^A^N^Y ^P^A^U^S^E ^R^E^Q^U^E^S^T^S)
^N ^M^U^S^T ^B^E ^L^E^S^S ^T^H^A^N ^O^R ^E^Q^U^A^L ^T^O 16 ^D^E^C^I^M^A^L.
^I^F ^N ^I^S ^Z^E^R^O, ^T^H^E^N ^N^O ^D^I^A^L ^T^A^K^E^S ^P^L^A^C^E.
^T^O ^C^O^M^M^U^N^I^C^A^T^E ^O^V^E^R ^A ^L^E^A^S^E^D ^O^R ^H^A^R^D ^W^I^R^E^D ^L^I^N^E,
^D^I^A^L ^C^A^N ^B^E ^C^A^L^L^E^D ^W^I^T^H ^N=0.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^N ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^T^H^E
^N^U^M^B^E^R ^O^F ^D^I^G^I^T^S ^T^O ^B^E ^D^I^A^L^E^D. ^N ^M^U^S^T ^B^E
^L^E^S^S ^T^H^A^N ^O^R ^E^Q^U^A^L ^T^O 16 ^D^E^C^I^M^A^L. ^N ^I^S ^D^E^F^I^N^E^D
^A^S:
.BREAK
^N ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E -.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^E^R^R^O^R ###^F^O^R^T^R^A^N:
.BREAK
^I^E^R^R^O^R ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^E^T
^T^R^U^E (-1) ^I^F ^T^H^E ^D^I^A^L ^W^A^S
^S^U^C^C^E^S^S^F^U^L ^O^R ^T^O ^F^A^L^S^E (0) ^I^F ^T^H^E ^C^A^L^L ^D^I^D
^N^O^T ^G^O ^T^H^R^O^U^G^H.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^E^R^R^O^R ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^E^I^T^H^E^R ^T^R^U^E (-1) ^O^R ^F^A^L^S^E (0) ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^E^R^R^O^R ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^E^R^R^O^R ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^T^Y^P^E ###^F^O^R^T^R^A^N:
.BREAK
^I^T^Y^P^E ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^E^T ^T^O
^T^H^E ^F^O^L^L^O^W^I^N^G ^V^A^L^U^E^S ^I^F ^I^E^R^R^O^R ^I^S ^F^A^L^S^E:
.BREAK
0 - ^U^N^D^E^F^I^N^E^D ^E^R^R^O^R
.BREAK
1 - ^T^T^Y ^L^I^N^E ^N^O^T ^A ^D^A^T^A^S^E^T ^L^I^N^E
.BREAK
2 - ^C^A^L^L ^D^I^D ^N^O^T ^G^O ^T^H^R^O^U^G^H
.BREAK
3 - ^M^O^R^E ^T^H^A^N 16 ^D^I^G^I^T^S ^W^E^R^E ^S^P^E^C^I^F^I^E^D ^I^N ^N
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^T^Y^P^E ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^W^I^L^L
^C^O^N^T^A^I^N ^A^N ^E^R^R^O^R ^T^Y^P^E ^V^A^L^U^E ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^T^Y^P^E ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^T^Y^P^E ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.LEFT MARGIN 8
^A^F^T^E^R ^C^O^M^P^L^E^T^I^N^G ^T^H^E ^C^A^L^L (^I^F ^O^N^E ^W^A^S ^S^P^E^C^I^F^I^E^D) ^T^H^E
^D^I^A^L ^S^U^B^R^O^U^T^I^N^E ^D^I^R^E^C^T^L^Y ^C^O^U^P^L^E^S ^T^H^E ^J^O^B'^S ^C^O^N^T^R^O^L^I^N^G ^T^T^Y ^W^I^T^H
^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E. ^T^H^I^S ^E^N^A^B^L^E^S ^T^H^E ^U^S^E^R ^T^O ^L^O^G
^O^N^T^O ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^A^N^D ^T^O ^S^T^A^R^T ^U^P ^T^H^E ^C^O^U^N^T^E^R^P^A^R^T
^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^P^R^O^G^R^A^M ^O^N ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^S^E^N^D - ^T^H^E ^D^A^T^A ^S^E^N^D^I^N^G ^S^U^B^R^O^U^T^I^N^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^F^O^R^T^R^A^N#^C^A^L^L:
^C^A^L^L ^S^E^N^D^F(^I^S^E^N^D, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E)
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^C^O^B^O^L#^C^A^L^L:
^E^N^T^E^R ^M^A^C^R^O ^S^E^N^D^C ^U^S^I^N^G ^I^S^E^N^D, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^W^H^E^R^E#^T^H^E ^A^R^G^U^M^E^N^T^S ^A^R^E ^D^E^F^I^N^E^D ^A^S:
.break
^I^S^E^N^D ^F^O^R^T^R^A^N:
.BREAK
.LEFT MARGIN 24
^I^S^E^N^D ^I^S ^A^N ^I^N^T^E^G^E^R ^A^R^R^A^Y ^C^O^N^T^A^I^N^I^N^G ^T^H^E ^D^A^T^A
^T^O ^B^E ^T^R^A^N^S^M^I^T^T^E^D. ^T^H^E ^D^A^T^A ^I^S
^R^E^P^R^E^S^E^N^T^E^D ^A^S 8-^B^I^T ^C^H^A^R^A^C^T^E^R^S ^P^A^C^K^E^D
^R^I^G^H^T-^A^D^J^U^S^T^E^D ^O^N^E ^P^E^R ^W^O^R^D ^I^N ^T^H^E ^A^R^R^A^Y.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^S^E^N^D ^I^S ^A ^G^R^O^U^P ^L^E^V^E^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^N
^I^T^E^M^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
02 ^C^H^A^R^X ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^X'.
.BREAK
^N^O^T^E ^T^H^A^T ^E^A^C^H ^C^H^A^R^A^C^T^E^R ^S^E^N^T ^R^E^Q^U^I^R^E^S ^A ^S^E^P^A^R^A^T^E
^I^T^E^M (^W^O^R^D) ^A^N^D ^I^S ^P^O^S^I^T^I^O^N^E^D ^I^N ^B^I^T^S 30 ^T^H^R^U 35.
^I^F "^U^S^A^G^E ^I^S ^D^I^S^P^L^A^Y-7"
^W^E^R^E ^A^D^D^E^D ^T^O ^T^H^E ^D^E^F^I^N^I^T^I^O^N, ^T^H^E ^C^H^A^R^A^C^T^E^R
^A^P^P^E^A^R^S ^I^N ^B^I^T^S 28 ^T^H^R^U 34 ^W^I^T^H ^B^I^T 35 ^E^Q^U^A^L
^T^O ^Z^E^R^O.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^N ###^F^O^R^T^R^A^N:
.BREAK
^N ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^C^O^N^T^A^I^N^I^N^G ^T^H^E
^N^U^M^B^E^R ^O^F ^D^A^T^A ^E^L^E^M^E^N^T^S ^T^O ^B^E ^S^E^N^T.
^T^H^E^R^E ^I^S ^N^O ^S^I^Z^E ^L^I^M^I^T ^F^O^R ^N. ^H^O^W^E^V^E^R, ^T^H^E
^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^P^A^C^K^A^G^E ^W^I^L^L ^T^R^A^N^S^M^I^T ^T^H^E ^A^R^R^A^Y
^A^S ^A ^S^E^R^I^E^S ^O^F ^M^E^S^S^A^G^E^S ^C^O^N^T^A^I^N^I^N^G ^U^P ^T^O 72
^D^A^T^A ^E^L^E^M^E^N^T^S ^P^E^R ^M^E^S^S^A^G^E.
^T^H^E ^S^I^Z^E ^O^F ^T^H^E ^M^E^S^S^A^G^E^S ^I^S ^N^O^R^M^A^L^L^Y
^T^R^A^N^S^P^A^R^E^N^T ^T^O ^T^H^E ^U^S^E^R, ^B^U^T ^I^F ^T^H^E ^U^S^E^R ^W^A^N^T^S
^T^O ^M^I^N^I^M^I^Z^E ^T^R^A^N^S^M^I^S^S^I^O^N ^O^V^E^R^H^E^A^D
^T^H^E^N ^D^A^T^A ^S^H^O^U^L^D ^B^E ^P^A^C^K^E^D ^I^N^T^O ^A^R^R^A^Y^S
^W^H^I^C^H ^A^R^E ^A ^M^U^L^T^I^P^L^E ^O^F 72 ^W^O^R^D^S ^L^O^N^G.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^N ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^T^H^E ^N^U^M^B^E^R
^O^F ^C^H^A^R^A^C^T^E^R^S ^T^O ^B^E ^S^E^N^T ^A^S ^D^E^S^C^R^I^B^E^D ^A^B^O^V^E ^F^O^R ^T^H^E
^F^O^R^T^R^A^N ^C^A^L^L. ^N ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^N ^P^I^C 9(10) ^V^A^L^U^E -.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^E^R^R^O^R ###^F^O^R^T^R^A^N:
.BREAK
^I^E^R^R^O^R ^I^S ^A ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E
^W^H^I^C^H ^I^S ^S^E^T ^T^R^U^E (-1) ^I^F ^T^H^E ^D^A^T^A ^W^A^S
^R^E^C^E^I^V^E^D ^S^U^C^C^E^S^S^F^U^L^L^Y ^B^Y ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R
^A^N^D ^F^A^L^S^E (0) ^I^F ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^D^I^D ^N^O^T
^G^E^T ^T^H^E ^D^A^T^A.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^E^R^R^O^R ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^E^I^T^H^E^R ^T^R^U^E (-1) ^O^R ^F^A^L^S^E (0) ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^E^R^R^O^R ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^E^R^R^O^R ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^T^Y^P^E ###^F^O^R^T^R^A^N:
.BREAK
^I^T^Y^P^E ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^T^H^E ^F^O^L^L^O^W^I^N^G ^V^A^L^U^E^S ^I^F ^I^E^R^R^O^R ^I^S ^F^A^L^S^E:
.BREAK
-1 - ^I^F ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^I^S ^T^R^Y^I^N^G ^T^O ^T^R^A^N^S^M^I^T
.INDENT 5
^D^A^T^A ^C^O^N^C^U^R^E^N^T^L^Y ^W^I^T^H ^T^H^I^S ^P^R^O^G^R^A^M.
.BREAK
^N - ^T^H^E ^N^U^M^B^E^R ^O^F ^R^E^T^R^I^E^S ^B^E^F^O^R^E ^G^I^V^I^N^G ^U^P.
.BREAK
.SKIP 1
.LEFT MARGIN 24
^I^F ^I^E^R^R^O^R ^I^S ^T^R^U^E, ^I^T^Y^P^E ^W^I^L^L ^B^E ^S^E^T ^T^O ^T^H^E
^N^U^M^B^E^R ^O^F ^T^R^I^E^S ^T^H^A^T ^W^E^R^E ^N^E^C^E^S^S^A^R^Y ^B^E^F^O^R^E ^T^H^E
^D^A^T^A ^W^A^S ^S^U^C^C^E^S^S^F^U^L^L^Y ^R^E^C^E^I^V^E^D ^B^Y ^T^H^E ^O^T^H^E^R
^C^O^M^P^U^T^E^R.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^T^Y^P^E ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^W^I^L^L
^C^O^N^T^A^I^N ^A^N ^E^R^R^O^R ^T^Y^P^E ^V^A^L^U^E ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^T^Y^P^E ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^T^Y^P^E ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^R^E^C^V - ^T^H^E ^D^A^T^A ^R^E^C^E^I^V^E^R ^S^U^B^R^O^U^T^I^N^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^F^O^R^T^R^A^N#^C^A^L^L:
^C^A^L^L ^R^E^C^V^F(^I^R^E^C^V, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E)
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^C^O^B^O^L#^C^A^L^L:
^E^N^T^E^R ^M^A^C^R^O ^R^E^C^V^C ^U^S^I^N^G ^I^R^E^C^V, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E
.SKIP 1
.LEFT MARGIN 0
^W^H^E^R^E ^T^H^E ^A^R^G^U^M^E^N^T^S ^A^R^E ^D^E^F^I^N^E^D ^A^S:
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^R^E^C^V ###^F^O^R^T^R^A^N:
.BREAK
^I^R^E^C^V ^I^S ^A^N ^I^N^T^E^G^E^R ^A^R^R^A^Y ^I^N^T^O ^W^H^I^C^H ^T^H^E ^D^A^T^A
^R^E^C^E^I^V^E^D ^F^R^O^M ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^I^S ^P^A^C^K^E^D
^R^I^G^H^T ^A^D^J^U^S^T^E^D ^O^N^E 8-^B^I^T ^C^H^A^R^A^C^T^E^R ^P^E^R ^W^O^R^D.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^R^E^C^V ^I^S ^A ^G^R^O^U^P ^L^E^V^E^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^N
^E^L^E^M^E^N^T^A^R^Y ^I^T^E^M^S ^I^N^T^O ^W^H^I^C^H ^E^A^C^H ^D^A^T^A
^C^H^A^R^A^C^T^E^R ^I^S ^R^E^C^E^I^V^E^D. ^E^A^C^H ^C^H^A^R^A^C^T^E^R ^E^X^P^E^C^T^E^D ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
02 ^C^H^A^R^X ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T.
.BREAK
^N^O^T^E ^T^H^A^T ^E^A^C^H ^C^H^A^R^A^C^T^E^R ^R^E^C^E^I^V^E^D ^R^E^Q^U^I^R^E^S
^A ^S^E^P^A^R^A^T^E ^I^T^E^M (^W^O^R^D) ^A^N^D ^I^S ^P^O^S^I^T^I^O^N^E^D ^I^N
^B^I^T^S 30 ^T^H^R^U 35. ^I^F "^U^S^A^G^E
^I^S ^D^I^S^P^L^A^Y-7" ^W^E^R^E ^A^D^D^E^D ^T^O ^T^H^E ^D^E^F^I^N^I^T^I^O^N,
^T^H^E ^C^H^A^R^A^C^T^E^R ^W^O^U^L^D ^A^P^P^E^A^R ^I^N ^B^I^T^S 28 ^T^H^R^U 34
^W^I^T^H ^B^I^T 35 ^E^Q^U^A^L ^T^O 0.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^N ###^F^O^R^T^R^A^N:
.BREAK
^N ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^C^O^N^T^A^I^N^I^N^G ^T^H^E ^N^U^M^B^E^R
^O^F ^D^A^T^A ^E^L^E^M^E^N^T^S ^T^O ^B^E ^R^E^C^I^E^V^E^D ^F^R^O^M ^T^H^E ^O^T^H^E^R
^C^O^M^P^U^T^E^R. ^N ^C^A^N ^B^E ^A^N^Y ^S^I^Z^E, ^B^U^T ^I^T ^S^H^O^U^L^D ^A^G^R^E^E
^W^I^T^H ^T^H^E ^N^U^M^B^E^R ^O^F ^D^A^T^A ^E^L^E^M^E^N^T^S ^B^E^I^N^G
^S^E^N^T ^F^R^O^M ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R. ^I^F ^N ^I^S ^S^M^A^L^L^E^R
^T^H^A^N ^T^H^E ^N^U^M^B^E^R ^O^F ^D^A^T^A ^E^L^E^M^E^N^T^S ^S^E^N^T ^F^R^O^M ^T^H^E ^O^T^H^E^R
^C^O^M^P^U^T^E^R, ^T^H^E ^F^I^R^S^T ^N ^D^A^T^A ^E^L^E^M^E^N^T^S ^W^I^L^L ^B^E
^R^E^T^U^R^N^E^D ^I^N ^I^R^E^C^V ^A^N^D ^T^H^E ^R^E^M^A^I^N^I^N^G ^E^L^E^M^E^N^T^S
^W^I^L^L ^B^E ^L^O^S^T.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^N ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^C^O^N^T^A^I^N^I^N^G ^T^H^E
^N^U^M^B^E^R ^O^F ^D^A^T^A ^C^H^A^R^A^C^T^E^R^S ^T^O ^B^E ^R^E^C^E^I^V^E^D
^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E ^I^N ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^N ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^N ^P^I^C 9(10) ^V^A^L^U^E -.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^E^R^R^O^R ###^F^O^R^T^R^A^N:
.BREAK
^I^E^R^R^O^R ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^A^I^B^L^E ^W^H^I^C^H ^I^S ^S^E^T ^T^O
^T^R^U^E (-1) ^I^F ^T^H^E ^D^A^T^A ^I^S ^R^E^C^E^I^V^E^D ^P^R^O^P^E^R^L^Y,
^A^N^D ^S^E^T ^T^O ^F^A^L^S^E (0) ^I^F 30 ^S^E^C^O^N^D^S ^P^A^S^S ^B^E^F^O^R^E
^A^N^Y ^D^A^T^A ^I^S ^R^E^C^E^I^V^E^D.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^E^R^R^O^R ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^E^I^T^H^E^R ^T^R^U^E (-1) ^O^R ^F^A^L^S^E (0) ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^E^R^R^O^R ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^E^R^R^O^R ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.break
.LEFT MARGIN 24
.INDENT -16
^I^T^Y^P^E ###^F^O^R^T^R^A^N:
.BREAK
^I^T^Y^P^E ^I^S ^A^N ^I^N^T^E^G^E^R ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^E^T
^T^O ^T^H^E ^N^U^M^B^E^R ^O^F ^D^A^T^A ^E^L^E^M^E^N^T^S ^S^U^C^C^E^S^S^F^U^L^L^Y
^R^E^C^E^I^V^E^D ^B^E^F^O^R^E ^R^E^T^U^R^N^I^N^G. ^I^F ^I^E^R^R^O^R ^I^S ^T^R^U^E,
^I^T^Y^P^E ^W^I^L^L ^E^Q^U^A^L ^N.
.INDENT -5
.BREAK
^C^O^B^O^L:
.BREAK
^I^T^Y^P^E ^I^S ^A ^C^O^M^P^U^T^A^T^I^O^N^A^L ^I^T^E^M ^W^H^I^C^H ^W^I^L^L
^C^O^N^T^A^I^N ^A^N ^E^R^R^O^R ^T^Y^P^E ^V^A^L^U^E ^A^S ^I^N^D^I^C^A^T^E^D ^A^B^O^V^E
^F^O^R ^T^H^E ^F^O^R^T^R^A^N ^C^A^L^L. ^I^T^Y^P^E ^I^S ^D^E^F^I^N^E^D ^A^S:
.BREAK
^I^T^Y^P^E ^P^I^C 9(10) ^C^O^M^P.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^H^N^G^U^P - ^T^H^E ^D^I^S^C^O^N^N^E^C^T ^S^U^B^R^O^U^T^I^N^E
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^F^R^O^T^R^A^N#^C^A^L^L:
^C^A^L^L ^H^N^G^U^P^F
.SKIP 1
.LEFT MARGIN 8
.INDENT -8
^C^O^B^O^L#^C^A^L^L:
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C
.SKIP 1
.LEFT MARGIN 8
^T^H^E^R^E ^A^R^E ^N^O ^A^R^G^U^M^E^N^T^S ^T^O ^T^H^I^S ^S^U^B^R^O^U^T^I^N^E. ^T^H^E ^H^N^G^U^P
^S^U^B^R^O^U^T^I^N^E ^R^E^S^T^O^R^E^S ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E ^T^O ^I^T^S ^N^O^R^M^A^L
^S^T^A^T^E, ^A^N^D ^T^H^E^N ^H^A^N^G^S ^U^P ^T^H^E ^M^O^D^E^M ^I^F ^T^H^E ^T^T^Y ^L^I^N^E
^I^S ^A ^D^A^T^A^S^E^T. ^I^T ^I^S ^I^M^P^O^R^T^A^N^T ^T^O ^C^A^L^L ^T^H^I^S ^S^U^B^R^O^U^T^I^N^E ^B^E^F^O^R^E
^E^X^I^T^I^N^G ^F^R^O^M ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^J^O^B ^T^O ^L^E^A^V^E ^T^H^E ^T^T^Y ^L^I^N^E
^I^N ^A ^R^E^A^S^O^N^A^B^L^E ^S^T^A^T^E ^F^O^R ^T^H^E ^N^E^X^T ^T^R^A^N^S^F^E^R. ^T^H^I^S ^I^S ^E^S^P^E^C^I^A^L^L^Y
^I^M^P^O^R^T^A^N^T ^I^F ^T^H^E ^J^O^B'^S ^C^O^N^T^R^O^L^I^N^G ^T^T^Y
^I^S ^A^L^S^O ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y.
.SKIP 1
.PAGE
.LEFT MARGIN 0
^M^E^S^S^A^G^E^S ^W^H^I^C^H ^M^I^G^H^T ^A^P^P^E^A^R ^O^N ^T^H^E ^C^O^N^T^R^O^L^L^I^N^G ^T^T^Y:
.SKIP 1
.LEFT MARGIN 0
? ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E ^N^O ^L^O^N^G^E^R ^A^S^S^I^G^N^E^D ^T^O ^J^O^B
.SKIP 1
.LEFT MARGIN 8
^T^H^I^S ^I^S ^A ^F^A^T^A^L ^E^R^R^O^R ^M^E^S^S^A^G^E ^W^H^I^C^H ^C^O^U^L^D ^A^P^P^E^A^R ^I^F ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y
^W^A^S ^S^O^M^E^H^O^W ^L^O^S^T ^B^Y ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^J^O^B.
.SKIP 1
.LEFT MARGIN 0
?^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E ^N^O ^L^O^N^G^E^R ^A^V^A^I^L^A^B^L^E
.SKIP 1
.LEFT MARGIN 8
^T^H^I^S ^I^S ^A ^F^A^T^A^L ^E^R^R^O^R ^M^E^S^S^A^G^E ^W^H^I^C^H ^O^C^C^U^R^S ^I^F ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^J^O^B ^C^A^N^N^O^T ^I^N^I^T ^T^H^E
^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^A^N^Y ^L^O^N^G^E^R. ^T^H^E ^R^E^A^S^O^N ^I^S ^T^H^E ^S^A^M^E ^A^S ^A^B^O^V^E.
.SKIP 1
.LEFT MARGIN 0
? ^D^S^K ^N^O^T ^A^V^A^I^L^A^B^L^E ^T^O ^W^R^I^T^E ^D^E^B^U^G ^F^I^L^E
.SKIP 1
.LEFT MARGIN 8
^T^H^I^S ^M^E^S^S^A^G^E ^A^N^D ^T^H^E ^N^E^X^T ^O^N^E ^C^A^N ^O^N^L^Y
^A^P^P^E^A^R ^I^F "^F^T^D^E^B^U^G" ^I^S ^T^U^R^N^E^D ^O^N ^I^N
^D^I^A^L.^M^A^C. ^T^H^E ^M^E^S^S^A^G^E ^M^E^A^N^S ^T^H^A^T ^T^H^E ^I^N^I^T ^S^U^B^R^O^U^T^I^N^E
^C^O^U^L^D ^N^O^T ^I^N^I^T ^T^H^E ^D^I^S^K.
.SKIP 1
.LEFT MARGIN 0
? ^C^A^N^N^O^T ^E^N^T^E^R ^D^E^B^U^G ^F^I^L^E
.SKIP 1
.LEFT MARGIN 8
^T^H^I^S ^M^E^S^S^A^G^E ^O^C^C^U^R^S ^I^F ^T^H^E^R^E ^W^A^S ^A^N ^E^R^R^O^R ^W^H^I^L^E ^T^R^Y^I^N^G
^T^O ^E^N^T^E^R ^T^H^E ^D^E^B^U^G ^F^I^L^E (^D^E^B^U^G.^F^I^L). ^I^T ^M^I^G^H^T ^O^C^C^U^R ^I^F ^T^H^E
^D^S^K ^W^E^R^E ^F^U^L^L, ^O^R ^D^E^B^U^G.^F^I^L ^C^A^N^N^O^T ^B^E ^S^U^P^E^R^C^E^E^D^E^D.
.SKIP 1
.LEFT MARGIN 0
^C^O^N^T^R^O^L^I^N^G ^T^T^Y ^I^S ^N^O^W ^D^I^R^E^C^T^L^Y ^C^O^N^N^E^C^T^E^D ^T^O ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E.
^T^Y^P^E _^^X ^T^O ^C^O^N^T^I^N^U^E.
.SKIP 1
.LEFT MARGIN 8
^T^H^I^S ^M^E^S^S^A^G^E ^O^R^I^G^I^N^A^T^E^S ^F^R^O^M ^T^H^E ^D^I^A^L ^S^U^B^R^O^U^T^I^N^E ^A^F^T^E^R
^S^U^C^C^E^S^S^F^U^L^L^Y ^C^A^L^L^I^N^G ^I^N^T^O ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R. ^A^T ^T^H^I^S ^P^O^I^N^T
^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^T^T^Y ^L^I^N^E ^I^S ^C^O^N^N^E^C^T^E^D ^T^O ^T^H^E ^C^O^N^T^R^O^L^L^I^N^G
^T^T^Y ^L^I^N^E ^S^U^C^H ^T^H^A^T ^A^L^L ^C^H^A^R^A^C^T^E^R^S ^T^Y^P^E^D ^O^N ^T^H^E ^C^O^N^T^R^O^L^I^N^G ^T^T^Y
^A^R^E ^S^E^N^T ^O^U^T ^O^V^E^R ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E, ^A^N^D ^A^L^L ^C^H^A^R^A^C^T^E^R^S
^R^E^C^E^I^V^E^D ^F^R^O^M ^T^H^E ^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E ^A^R^E ^T^Y^P^E^D ^O^N ^T^H^E ^C^O^N^T^R^O^L^I^N^G ^T^T^Y.
^T^H^I^S ^A^L^L^O^W^S ^T^H^E ^U^S^E^R ^T^O ^L^O^G ^O^N^T^O ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^A^N^D ^S^T^A^R^T
^U^P ^A ^P^R^O^G^R^A^M ^W^H^I^C^H ^W^I^L^L ^R^E^C^E^I^V^E ^O^R ^S^E^N^D ^T^H^E ^D^E^S^I^R^E^D ^D^A^T^A ^I^N
^T^H^E ^C^O^R^R^E^C^T ^F^O^R^M^A^T. ^C^O^N^T^R^O^L ^C^H^A^R^A^C^T^E^R^S ^C^A^N ^B^E ^S^E^N^T ^T^O ^T^H^E ^O^T^H^E^R ^C^O^M^P^U^T^E^R ^B^Y ^T^Y^P^I^N^G
^A^N ^U^P-^A^R^R^O^W (_^) ^F^O^L^L^O^W^E^D ^B^Y ^T^H^E ^D^E^S^I^R^E^D ^A^S^C^I^I ^C^H^A^R^A^C^T^E^R.
^F^O^R ^E^X^A^M^P^L^E: _^^C, _^^O, ^O^R _^^Z. ^T^O ^E^X^I^T ^F^R^O^M ^T^H^I^S ^M^O^D^E ^A^N^D ^R^E^T^U^R^N
^T^O ^T^H^E ^M^A^I^N ^P^R^O^G^R^A^M, ^T^H^E ^U^S^E^R ^M^U^S^T ^T^Y^P^E ^A
^C^O^N^T^R^O^L-^X ^O^R _^^X (^A^N ^U^P-^A^R^R^O^W ^F^O^L^L^O^W^E^D ^B^Y ^A^N ^X).
.SKIP 1
.PAGE
.NOFILL
.NOJUSTIFY
.LEFT MARGIN 0
^S^A^M^P^L^E ^P^R^O^G^R^A^M^S:
.SKIP 1
.LEFT MARGIN 0
^F^O^R^T^R^A^N ^R^E^C^E^I^V^E^R ^P^R^O^G^R^A^M
.SKIP 1
.LEFT MARGIN 8
^D^I^M^E^N^S^I^O^N ^I^R^E^C^V(100)
^C^A^L^L ^I^N^I^T^F("200043,^I^E^R^R^O^R,^I^T^Y^P^E)
^I^F (.^N^O^T.^I^E^R^R^O^R)^G^O ^T^O 1
^C^A^L^L ^R^E^C^V^F(^I^R^E^C^V,100,^I^E^R^R^O^R,^I^T^Y^P^E)
^I^F (.^N^O^T.^I^E^R^R^O^R)^G^O ^T^O 2
^T^Y^P^E 100
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.INDENT -8
1 ^T^Y^P^E 101
^I^F (^I^T^Y^P^E.^E^Q.1)^T^Y^P^E 102
^I^F (^I^T^Y^P^E.^E^Q.2)^T^Y^P^E 103
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.INDENT -8
2 ^T^Y^P^E 104,^I^T^Y^P^E
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.LEFT MARGIN 0
100 ^F^O^R^M^A^T(' ^S^U^C^C^E^S^S^F^U^L ^T^R^A^N^S^F^E^R')
.break
101 ^F^O^R^M^A^T(' ^C^O^M^M ^L^I^N^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^F^A^I^L^U^R^E')
.break
102 ^F^O^R^M^A^T(' ^T^T^Y ^N^O^T ^A^V^A^I^L^A^B^L^E')
.break
103 ^F^O^R^M^A^T(' ^T^T^Y ^N^O^T ^A^S^S^I^G^N^E^D')
.break
104 ^F^O^R^M^A^T(' ^T^I^M^E ^O^U^T ^A^F^T^E^R ^R^E^C^E^I^V^I^N^G '^I3,
.LEFT MARGIN 8
.INDENT -3
^X##' ^O^U^T ^O^F 100 ^W^O^R^D^S')
^E^N^D
.SKIP 1
.PAGE
.LEFT MARGIN 0
^F^O^R^T^R^A^N ^S^E^N^D^E^R ^P^R^O^G^R^A^M
.SKIP 1
.LEFT MARGIN 8
^D^I^M^E^N^S^I^O^N ^I^S^E^N^D(100),^I^D^I^A^L(9)
^D^A^T^A ^I^D^I^A^L/9,14,8,9,7,5,7,10,2/
^C^A^L^L ^I^N^I^T^F("200046,^I^E^R^R^O^R,^I^T^Y^P^E)
^I^F (.^N^O^T.^I^E^R^R^O^R)^G^O ^T^O 1
^C^A^L^L ^D^I^A^L^F(^I^D^I^A^L,9,^I^E^R^R^O^R,^I^T^Y^P^E)
^I^F (.^N^O^T.^I^E^R^R^O^R)^G^O ^T^O 3
^C^A^L^L ^S^E^N^D^F(^I^S^E^N^D,100,^I^E^R^R^O^R,^I^T^Y^P^E)
^I^F (.^N^O^T.^I^E^R^R^O^R)^G^O ^T^O 2
^T^Y^P^E 100
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.INDENT -8
1 ^T^Y^P^E 101
^I^F (^I^T^Y^P^E.^E^Q.1)^T^Y^P^E 102
^I^F (^I^T^Y^P^E.^E^Q.2)^T^Y^P^E 103
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.INDENT -8
2 ^T^Y^P^E 104,^I^T^Y^P^E
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.INDENT -8
3 ^T^Y^P^E 105
^I^F (^I^T^Y^P^E.^E^Q.1)^T^Y^P^E 106
^I^F (^I^T^Y^P^E.^E^Q.2)^T^Y^P^E 107
^C^A^L^L ^H^N^G^U^P^F
^C^A^L^L ^E^X^I^T
.break
.LEFT MARGIN 0
100 ^F^O^R^M^A^T(' ^S^U^C^C^E^S^S^F^U^L ^T^R^A^N^S^F^E^R')
.break
101 ^F^O^R^M^A^T(' ^C^O^M^M ^L^I^N^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^F^A^I^L^U^R^E')
.break
102 ^F^O^R^M^A^T(' ^T^T^Y ^N^O^T ^A^V^A^I^L^A^B^L^E')
.break
103 ^F^O^R^M^A^T(' ^T^T^Y ^N^O^T ^A^S^S^I^G^N^E^D')
.break
104 ^F^O^R^M^A^T(' ^T^I^M^E ^O^U^T ^A^F^T^E^R ^R^E^C^E^I^V^I^N^G '^I3,
.INDENT 5
^X ' ^O^U^T ^O^F 100 ^W^O^R^D^S')
.break
105 ^F^O^R^M^A^T(' ^E^R^R^O^R ^I^N ^D^I^A^L')
.break
106 ^F^O^R^M^A^T(' ^T^T^Y ^N^O^T ^A ^D^A^T^A^S^E^T')
.break
107 ^F^O^R^M^A^T(' ^C^A^L^L ^D^I^D ^N^O^T ^G^O ^T^H^R^O^U^G^H')
.INDENT 8
^E^N^D
.PAGE
^C^O^B^O^L ^E^X^A^M^P^L^E ^P^R^O^G^R^A^M
.SKIP 1
.LEFT MARGIN 0
^I^D^E^N^T^I^F^I^C^A^T^I^O^N ^D^I^V^I^S^I^O^N.
^P^R^O^G^R^A^M-^I^D. ^D^I^A^L .
^E^N^V^I^R^O^N^M^E^N^T ^D^I^V^I^S^I^O^N.
^D^A^T^A ^D^I^V^I^S^I^O^N.
^W^O^R^K^I^N^G-^S^T^O^R^A^G^E ^S^E^C^T^I^O^N.
77 ^I^O^I^N^D^X ^P^I^C 9(10) ^C^O^M^P ^V^A^L^U^E 65548.
77 ^I^E^R^R^O^R ^P^I^C 9(10) ^C^O^M^P.
77 ^I^T^Y^P^E ^P^I^C 9(10) ^C^O^M^P.
77 ^N ^P^I^C 999 ^C^O^M^P.
01 ^I^D^I^A^L.
.break
.LEFT MARGIN 4
02 ^I^D^I^G1 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 9.
.break
02 ^I^D^I^G2 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 14.
.break
02 ^I^D^I^G3 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 8.
.break
02 ^I^D^I^G4 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 9.
.break
02 ^I^D^I^G5 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 7.
.break
02 ^I^D^I^G6 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 5.
.break
02 ^I^D^I^G7 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 7.
.break
02 ^I^D^I^G8 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 10.
.break
02 ^I^D^I^G6 ^P^I^C 99 ^C^O^M^P ^V^A^L^U^E 2.
.INDENT -4
01##^I^S^E^N^D.
.break
02 ^C^H^A^R1 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^A'.
.break
02 ^C^H^A^R2 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^B'.
.break
02 ^C^H^A^R3 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^C'.
.break
02 ^C^H^A^R4 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^D'.
.break
02 ^C^H^A^R5 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^E'.
.break
02 ^C^H^A^R6 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^F'.
.break
02 ^C^H^A^R7 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^G'.
.break
02 ^C^H^A^R8 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^H'.
.break
02 ^C^H^A^R9 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^I'.
.break
02 ^C^H^A^R10 ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^V^A^L^U^E '^J'.
.INDENT -4
01##^I^R^E^C^V.
.break
02 ^C^H^A^R^X ^P^I^C ^X ^S^Y^N^C ^R^I^G^H^T ^O^C^C^U^R^S 10 ^T^I^M^E^S.
.LEFT MARGIN 0
^P^R^O^C^E^D^U^R^E ^D^I^V^I^S^I^O^N.
^R^E^C^E^I^V^E^R-^R^O^U^T^I^N^E.
.LEFT MARGIN 4
^E^N^T^E^R ^M^A^C^R^O ^I^N^I^T^C ^U^S^I^N^G ^I^O^I^N^D^X, ^I^E^R^R^O^R, ^I^T^Y^P^E.
^I^F ^I^E^R^R^O^R ^N^O^T ^E^Q^U^A^L ^T^O 0 ^G^O ^T^O ^O^N^E.
.INDENT 1
^M^O^V^E 10 ^T^O ^N.
^E^N^T^E^R ^M^A^C^R^O ^R^E^C^V^C ^U^S^I^N^G ^I^R^E^C^V, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E.
^I^F ^I^E^R^R^O^R ^N^O^T ^E^Q^U^A^L ^T^O 0 ^G^O ^T^O ^T^W^O.
^D^I^S^P^L^A^Y '^S^U^C^C^E^S^S^F^U^L ^T^R^A^N^S^F^E^R'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.INDENT -4
^O^N^E.
^D^I^S^P^L^A^Y '^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^F^A^I^L^U^R^E'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 1 ^D^I^S^P^L^A^Y '^T^T^Y ^N^O^T ^A^V^A^I^L^A^B^L^E'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 2 ^D^I^S^P^L^A^Y '^T^T^Y ^N^O^T ^A^S^S^I^G^N^E^D'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.INDENT -4
^T^W^O.
^D^I^S^P^L^A^Y '^T^I^M^E ^O^U^T ^A^F^T^E^R ^R^E^C^E^I^V^I^N^G ' ^I^T^Y^P^E ' ^W^O^R^D^S'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.SKIP 1
.LEFT MARGIN 4
.INDENT -4
^S^E^N^D^E^R-^S^U^B^R^O^U^T^I^N^E.
^E^N^T^E^R ^M^A^C^R^O ^I^N^I^T^C ^U^S^I^N^G ^I^O^I^N^D^X, ^I^E^R^R^O^R, ^I^T^Y^P^E.
^I^F ^I^E^R^R^O^R ^E^Q^U^A^L ^T^O 0 ^G^O ^T^O ^O^N^E^S.
^M^O^V^E 9 ^T^O ^N.
^E^N^T^E^R ^M^A^C^R^O ^D^I^A^L^C ^U^S^I^N^G ^I^D^I^A^L, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E.
^I^F ^I^E^R^R^O^R ^E^Q^U^A^L ^T^O 0 ^G^O ^T^O ^T^H^R^E^E^S.
^M^O^V^E 10 ^T^O ^N.
^E^N^T^E^R ^M^A^C^R^O ^S^E^N^D^C ^U^S^I^N^G ^I^S^E^N^D, ^N, ^I^E^R^R^O^R, ^I^T^Y^P^E.
^I^F ^I^E^R^R^O^R ^E^Q^U^A^L ^T^O 0 ^G^O ^T^O ^T^W^O^S.
^D^I^S^P^L^A^Y '^S^U^C^C^E^S^S^F^U^L ^T^R^A^N^S^F^E^R'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.INDENT -4
^O^N^E^S.
^D^I^S^P^L^A^Y '^C^O^M^M^U^N^I^C^A^T^I^O^N^S ^L^I^N^E ^I^N^I^T^I^A^L^I^Z^A^T^I^O^N ^F^A^I^L^U^R^E'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 1 ^D^I^S^P^L^A^Y '^T^T^Y ^N^O^T ^A^V^A^I^L^A^B^L^E'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 2 ^D^I^S^P^L^A^Y '^T^T^Y ^N^O^T ^A^S^S^I^G^N^E^D'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.INDENT -4
^T^W^O^S.
^D^I^S^P^L^A^Y '^T^I^M^E ^O^U^T ^A^F^T^E^R ^S^E^N^D^I^N^G ' ^I^T^Y^P^E ' ^W^O^R^D^S'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.INDENT -4
^T^H^R^E^E^S.
^D^I^S^P^L^A^Y '^E^R^R^O^R ^I^N ^D^I^A^L'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 1 ^D^I^S^P^L^A^Y '^T^T^Y ^N^O^T ^A ^D^A^T^A^S^E^T'.
^I^F ^I^T^Y^P^E ^E^Q^U^A^L ^T^O 2 ^D^I^S^P^L^A^Y '^C^A^L^L ^D^I^D ^N^O^T ^G^O ^T^H^R^O^U^G^H'.
^E^N^T^E^R ^M^A^C^R^O ^H^N^G^U^P^C.
^S^T^O^P ^R^U^N.
.LEFT MARGIN 0