Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
bldscr.exe
There are 2 other files named bldscr.exe in the archive. Click here to see a list.
?p ` ?x E2&8yKb*! |u` & INX Q F: ys~ "?{r E@B0 "c
t + +*> ` : R +R 98+
KeyBoard Display /NOS [No source generated] File name: . .scr .for [End of BldScr] (A) (1X,' ') H 8 H 9 H ; H ? H A H B H C H 0 H 1 H 5 + -< $ C< |, QC< |, dC< , @ 4C<
, @ 2C< , 6D 3+ ]C< , (5 ]C<
, *r7D 3+ bC< |, $C< , fC< $ 5& m D 4 4/(
4/
J 6h O H 6C< , (4 n 4 D 2: 48& f D 4 $ 3$ 2 D 2 2/$ D 6 $ d O D 6C< , '* 2/$ D 6 $ d O D 6C< , '*C< }, C< , &j, &rC< , *rC< |, &u p @ P@ Qh @ Q@ 6@ Nh @ P@ 6@ Mp @ 6@ Lx @ Ox @ Kp @ O@ Jh @ O@ 7@ 3x @ Ix @ Hx @ <p @$ 4@N Fp @: O p @$ 2@N Gx @ D [BldScr - version ]
H H H H H H H : ION; \ C< :, 'C< 9, 'C< 8, pC< 7, " @ 5@ * $ D C< 6, f /$ D $ d D C< 5, fC< 4, fC< 3, f ,~ x @ x @ x @ x @ x @ x @ p @ "@ p @ !@ IGAAAA
IRCLDM
" Display . DTA sequential sequential sequential .aux . [Old version screen file! - Rebuild with Fpaint] ,: NORMAL REVERSE INTENSE BLINK ,: Text ,: INTEGER REAL CHARACTER LABEL DATE MENU NONE LEFT RIGHT CENTER ,: SUPPRESS SUPPRESS NOT ,: NORMAL REVERSE INTENSE BLINK Help Help sequential Package sequential Clear TextDsp DataDsp , Validate , Edit , delete ' (/,/,'c---',/,'c variable declarations',/,/,8X,'Integer Row, Col, CurField, TermKeys(30)',/,8X,'Integer NumberOfFields, LastKey, FieldNumber',/,8X,'Logical Next, Previous, Exit, Refresh, ValidField',/) (A) (I2,1X,I2,/) (A,/) (I3) (1X,' ') (1X,'Processing text field ',I3) (/,A) (1X,'Unknown text display attribute encountered') (A) (/,' data (TextTable(I,',I3,'),I=1,5) /',I5,',',I2,',',I2,',',I2,',',I1,'/') (/,I3) (1X,' ') (1X,'Processing data field ',I3) (/,A) (1X,'Unknown field type encountered') (A) (8X,'integer',T25,A) (8X,'real',T25,A) (8X,'character*',I2,T25,A) (A) (A) (A) (1X,'Unknown field display attribute encountered')
(/,' data (FldTable(I,',I5,'),I=1,7) / ',I1,',',I5,',',I1,',',I2,',',I2,',',I2,',',I1,' /') (' data (IntArray(I,',I5,'),I=2,5) / ',/,' 1 ',I12,',',I12,',',I1,',',I12,' /')
(','c---data'(RealArray(I,',I5,'),I=2,5)k/',/,'cAimm1dia',G14.6,',',G14.6,',',F3.1,',',G14.6,'r/') ('1,'1,1data,(CharTable(I,',I5,'),I=1,2)//'',I5,',',I1,'r/') (A) ('s') data,(HelpTable(I,',I5,'),I=1,4) / ',I5,',',I5,',',I5,',',I5,'s/') ('n') data,Formats(',I5,')l/a',A1,A7,A1,'/') (/,'c---',/,'c DisplaylthesTextefields') (/,8X,'call ',A,'TextDsp(lRow,dCol,)') (/,'c---',/,'c Display)the Data/fields') (/,8X,'callw',A,'DataDsp((Row, Col') (5X,'1w)',/) (/,'c---',/,'c)Editthe Data fields') (/,8X,'call ',A,'Edit(1Row,TCol,(CurField,)TermKeys') (5X,'1, Next,rPrevious,TExit,2Refresh,)LastKey))',/,/) (/,'c---',/,'caValidateIthe)Data fields') (/,8X,'call3',A,'Validate(') (5X,'1,AValidField,NFieldNumber )',/) (5X,'1LValidField, FieldNumberc)',/) ('[EndCof,File]') (' FldTasubroutine ',A,//) ('y, NR,parametery( NF=',I3,',NI=',I3,',NR=',I3,',NC=',I3,',NT=',I3,'t)') (',' parameter)( NdimT=',I5,',NdimC=',I5,',NdimH=',I5,' )',/) (',A) integer Row,,Col,iStartField,','uTermKeys(30),LastKey',/,'lidFielogicallNext,ePrevious, Exit, Refresh',/,' Intcharacter*80aScrHelpLine',/,' ',A4)integer FieldNumber',/,'ay(1,Flogical(ValidField',/) (' (' integerl',A4) (',I3,')Real ',A4) ('FldTabcharacter*',I5,' ',A4) (/,'all ANcharacter*1'Text(NdimT)') ('able(1character*1'Char(NdimC)') ('ll Vldcharacter*1(Help(NdimH)') (/,'1 NIcharacter*7 Formats(NF)') (/,'rTableintegeriTextTable(5,NT), FldTable(7,NF),',' IntArray(5,NI)',/,'mber )integer CharTable(2,NC),uHelpTable(4,NF)',/,' entrrealARealArray(5,NR)t',/) ,',' TermKeys,') (' 1 ',A) (' 1 Next, Previous, Exit, Refresh, LastKey )') (' ') (' IntArray(1,FldTable(2,',I3,')) = ',A4) (' RealArray(1,FldTable(2,',I3,')) = ',A4) (' IEle = FldTable(2,',I3,')') (' L = FldTable(4,',I3,')') (' call ANtoA1( ',A4,', NdimC, Char, CharTable(1,IEle), L )') (/,' call EditScrn( ',A1,A,A1,', Row, Col, StartField, ScrHelpLine,',/,' 1 TermKeys, NF, FldTable,',/,' 1 NI, IntArray, NR, RealArray, NC, CharTable,',' NdimC, Char,',/,' 1 Formats, HelpTable, NdimH, Help, ','Next, Previous, Exit,',/,' 1 Refresh, LastKey )') (' ') (' ',A4,' = IntArray(1,FldTable(2,',I3,'))') (' ',A4,' = RealArray(1,FldTable(2,',I3,'))') (' IEle = FldTable(2,',I3,')') (' L = FldTable(4,',I3,')') (' call A1toAN( NdimC, Char, CharTable(1,IEle), L, ',A4,' )') (/,' return',/,' end') H E H G H H H I H J H K H M H N H O H V H W H X H Y H [ H \ H ] H ^ H H ` H a H c H d H e H f H g H h H i H j H k H l H m H o H p H q H s H t H u H v H x H y H z H { H | H ~ H H H H H H H H H H
H H
H H n H p H r H t H v )H
H H (H O H H H (H ) (H 3 H 5 H < H H H H H B Ov8y \ @ p @ u p @ <C< >, 'C< =, @
C< 8, C< 7, ' /$ / F Ad < D AC< 5, 'C< 4, " @ 5@ % $ D C< 3, 'C< 2, C< 0, 'C< /, dC< @, &fC< B, &fC< -, '9C< D, &fC< F, &j, &rC< G, &iC< I, &qC< +, (#/ @ 94` 9 9/$ 9/ F Ad D A /$ D 2+ 9@d 2 20$ + <C< J, *rC< K, &iC< M, &qC< O, &iC< P, &qC< *, "0 (+ MC< ), ". @ 9 9/& ( 9 F 5& L D 9/$ 9/ F Ad D AC< (, ': 9; + G D 9@d D sC< R, &iC< S, &qC< U, &j, &r" > $ F 5&
D 9C< V, &jC< X, &qC< ', RC< Y, &iC< [, &qC< ", /$ / F Ad
D AC< , /$ / F Ad
D AC< , @d ( $ F 5&
D 7( ~/(
~/
J Ah
H AC< , (4
7( ~/(
~/
J Ah
+H AC< , (5 t:
7( ~/(
~/
J Ah
+H AC< , (5 | $ .D
7( ~/(
~/
J Ah
H AC< , (5
$ .D
C< , \C< \, &j, &rC< , s\$ .d 7; + h D 7C< ^, &iC< ;, &qC< , C< , 'D /$ D / DF Ad DD AC< , '
D ?C< f, &iC< h, &qC<
, \C< i, &j, &r" N $ F 5& G D 9C< k, &jC< l, &qC< , RC< n, &iC< o, &qC< , C< , /$ / F Ad
D AC< , (5
6 $ D q.d ; D :+
_ /$ / F Ad
D AC< , (5
= $ D q:
D :+
_ /$ / F Ad
D AC< , (5
E $ D q: ? D :+
_ /$ / F Ad
D AC< }, (5
L $ D q: ? D :+
_ /$ / F Ad
D AC< |, (5
T $ D q: ? D :+
_ /$ / F Ad
D AC< z, (5
[ $ D q: ? D :+
_C< y, \C< q, &j, &rC< x, \ 9 q FC< r, &i( /$ d D A D AC< t, &qC< u, &iC< w, &qC< w, " @ 60 +
k $ D 6 6/$ D A $ d
D AC< v, LD D ? 9 D;C< t, 'C< s, ' q0D +
zC< x, &j+ 9( /$ d D A D AC< z, &q+ , &iC< , &qC< r, C< m, /$ / F Ad
D AC< k, (5/ F Ad
D AC< j, (5/ F Ad
D AC< h, (5/ F Ad
$D AC< g, (5, &iC< , &qC< f, C< a, q0D +
D AC< _, /$ / F Ad
CD AC< ^, 0D +
BD AC< \, (5/ F Ad
fD AC< [, $ D =+
D AC< Y, L /$ / F Ad
]D AC< X, L 0D +
\D AC< V, (5/ F Ad
fD AC< U, L!$ D 7+
eD AC< S, (5, &iC< , &qC< R, C< M, /$ / F Ad
D AC< L, /$ / F Ad
D AC< J, @d 6 & / 7 .& ( $ F 5& D 7( ~/(
~/
J Ah
H AC< I, (4 7( ~/(
~/
J Ah
H AC< G, (5 : 6+ 7( ~/(
~/
J Ah
H AC< F, (5
$ .D 6+ 7( ~/(
~/
J Ah
xH AC< D, (5 $ .D 6+ C< C, \C< , &j, &rC< B, \ $ .d 7; +
, &jC< , &q q0D + C< , &jC< , &q q0D + "C< , &jC< , &q q0D 1D + &0D 1D + &+ + $ . D /$ . ? D C< , &jC< , &qC< !, &iC< ", &qC< A, " @ 4` 3 $ . % D /$ . D o D %+ 4@d D oC< $, &iC< %, &qC< @, " @ N4` < $ . % D :/$ . N D % D %+ =@d : D %C< ', &jC< (, &q7d + AC< =, 7d :+ CC< 9, C< ,, &jC< -, &q: 9; +
' D 9C< 8, \C< 0, &j, &rC< 2, &j, &rC< 3, &jC< 5, &qC< 6, &j, &rC< 8, &j /$ D A $ d D AC< 9, &qC< ;, &j, &rC< <, &j /$ D A $ d D AC< >, &qC< ?, &j, &rC< A, &j /$ D A $ d D AC< B, &q7d N+ cC< 6, C< D, &j, &rC< E, &j, &rC< G, &j /$ D A $ d D AC< H, &q7d N+ mC< 3, C< J, &j, &rC< K, &j, &rC< M, &j /$ D A $ d D AC< N, &q7d N+ yC< 1, C< P, &j, &r+ zC< Q, &j, &rC< S, &j, &rC< T, &gC< U, &gC< V, &gC< W, &f $ . / D A d D AC< /, 'C< Y, &j $ . /$ D A $ d D AC< [, &q N D 85D
& F 8 & 2F ;+ ( H ;2F
+ ( H
2F ?+ ( H ?2F >+ ( H > ( 2h s H s ( 2h H ( 2h % H %C< \, &jC< ^, &qC< a, &jC< c, &qC< e, &j, &r" N $ H 5( 2 D /& f F A F AC< -, m 0D + *C< g, &jC< h, &q+ 1 0D + .C< j, &jC< k, &q+ 1C< m, &j C< n, &q: ; + ! D C< p, &j, &rC< r, &j, &rC< s, &j, &rC< u, &j, &rC< v, &j, &rC< x, &jC< y, &qC< }, &fC< , &iC< , &qC< ,, "4` GC< , &jC< +, "/ @ A $ d
D AC< , &q+ =C< , &j, &r+ = $ . / D A d D AC< *, 'C< , &j $ . /$ D A $ d D AC< , &qC<
, &jC<
, &q $ . / D A d D AC< (, 'C< , &j $ . /$ D A $ d D AC< , &qC< , &j, &rC< , &j, &r $ . / D A d D AC< ', ' $ 2$ N+ nC< , &j & . /& F A & f F AC< , &q+ sC< , &j $ . /$ D A $ d D AC< , &q"& / N&& $ F 5& ! D C< %, ' $ D ;"$ . . ;3d N+ ~ $ . N/ / ;.$ D ;@d &" ; $ F 5& D s & . & F .& F &. /( h H A H A"$ . . s D B /$ /& / F Cd
D BC< #, m"$ . . s3D N+ "$ . & &/ F Ad
D AC< ", ': s; + D sC< !, " @ 65@ $ D 6C< , &j 6/$ D A $ d
D AC< , &q $ .d ; + w D C< , &j, &r" N $ F 55& ; D 9C< , &j, &r /& f F A F AC< , m 9 0D + /C< , &jC< !, &q+ : 9 0D + 4C< #, &jC< %, &q+ :C< ', &jC< (, &qC< *, &jC< +, &qC< -, &jC< ., &q: 9; 5+ % D 9C< 0, &j, &rC< 1, &j, &r $ . / D A d D AC< , 'C< 3, &j $ . /$ D A $ d D AC< 4, &q"& / N&& $ F 45& v D C< , ' $ D ;"$ . . ;3d N+ T $ . N/ / ;.$ D ;@d &" ; $ F 35& l D s & . & F .& F &. /( h H A H A"$ . . s D B /$ /& / F Cd
D BC< , m"$ . . s3D N+ j"$ . & &/ F Ad
D AC< , ': s; 3+ W D sC< , " @ 65@ o $ D 6C< 6, &j 6/$ D A $ d
D AC< 7, &q $ .d ; 4+ L D 7d N+ zC< 9, &j, &r+ {C< :, &j, &r" N $ F 15& D 9C< <, &j, &r /& f F A F AC< , m 9 0D + C< =, &jC< ?, &q+ 9 0D +
C< A, &jC< B, &q+ C< D, &jC< F, &qC< G, &jC< I, &qC< J, &jC< L, &q: 9; 1+ ~ D 9C< M, &jC< O, &qC< Q, &j, &r $ . / D A d D AC< , 'C< S, &j $ . /$ D A $ d D AC< T, &q"& / N&& $ F 15& M D C< , ' $ D ;"$ . . ;3d N+ - $ . N/ / ;.$ D ;@d &" ; $ F (5& B D s & . & F .& F &. /( h H A H A"$ . . s D B /$ /& / F Cd
D BC< , m"$ . & &/ F Ad
D AC< , ': s; (+ 0 D sC< , " @ 65@ F $ D 6C< V, &j 6/$ D A $ d
D AC< W, &q $ .d ; 1+ % D C< Y, &j, &r" N $ F (5& g D 9C< Z, &j, &r /& f F A F AC<
, m 9 0D + [C< \, &jC< ], &q+ f 9 0D + `C< _, &jC< a, &q+ fC< c, &jC< d, &qC< f, &jC< g, &qC< i, &jC< j, &q: 9; (+ Q D 9C< l, &jC< m, &q" N $ F '5& D 9C< p, &j, &r /& f F A F AC<
, m 9 0D + vC< q, &jC< s, &q+ 9 0D + {C< u, &jC< v, &q+ 9 1D + C< x, &jC< z, &qC< {, &jC< }, &qC< ~, &jC< , &q: 9; '+ l D 9C< , &j, &rC< , &gC< , &g @,~ h @ A@ 9@ h @ A@ 9@ x @
p @ A@
}h @ A@ B@ Bp @
@
|p @ A@
{h @ A@ 9@ x @
p @ A@
zh @ A@ B@ Bp @
@
yp @ A@
xh @ A@ 9@ x @
p @ A@
wh @ A@ B@ Bp @
@
vp @ A@
up @ A@
tp @ A@
sx @
x @
h @ A@ @ p @ A@
q` @ @ N@ @ D` @ @ N@ @ C` @ @ N@ @ Cx @ DP @ @
o@ @ N@ :@ %P @ @
n@
@ @ @ ox @ x @
x @ Dx @ Dp @ A@
mp @ A@
lp @ A@
kp @ A@
jp @ A@ 8p @ A@ o8 @
@
@ @
i@ @ @ @
p @ A@
hp @ A@ p @ A@
gp @ A@ p @ A@ &p @ A@ p @ A@
fp @ A@ 4p @ A@ r8 @
@
@ @
e@ @ @ @
p @ A@
dp @ A@
cp @ A@
bp @ A@
a8 @
@
@ @
`@ @ @ @
p @ @
p @ @
_p @ A@ x @
x @ Dx @ Dp @ A@
^p @ A@
]p @ A@
\p @ A@
[p @ A@
Zp @ A@
Y8 @
@
@ @
X@ @ @ @
x @ Dx @ DP @ @
W@
@ @ @ sp @
@ Ap @
@
V8 @ @
@ @
U@ @ @ @ Dx @ Dp @ A@
Tp @ A@
Sp @ A@
Rp @ A@
Qp @ A@ p @ A@ 8 @
@
@ @
P@ @ @ @ Dp @ A@
Ox @ x @ p @ @
Nh @ @
Mp @
I@ p @ p @ @ x @ p @ @ Ap @ @
H8 @ <@
@ @
G@ @ @ @
Fp @ @
h GD tAZ u@Z
Jh GD AZ @Z
Kh GD AZ @Z
Lp @$ @N p @$ t@N %p @: x @ Pp @$ t@N &h @$ q@$ @ p @$ t@N (p @: p @$ t@N )p @$ > p @$
@N *p @$
@N ,p @$ 9 p @$ t@N 0p @:
p @$
@N 1p @$ t@N 6p @: p @$ @N 7H @$ @$ @$ @$ @$ @$
@N Bp @$
@N Cp @$ 9 p @$ t@N Gp @:
p @$
@N Hp @$ t@N %p @: A p @$ t@N Mp @:
p @$ @N Np @: A p @$ @N Pp @: A p @$ @N Sh @$ ?@: A p @$ t@N Vp @:
p @$ t@N Wp @:
p @$ t@N Xp @:
p @$
@N Yp @$ @N _8 @$ 9@$ q@$ :@$ >@$ ?@$ o@$ 8@$ 6 p @$ @N iP @$ :@$ r@$ 4@$ =@$ p @$ @N sP @$ :@( &@( @( 7@( p @$ @N }` @$ :@$ @$ 2 p @$ t@N p @:
p @$ t@N p @: p @$ @N P @$ 9@$ @$ @$ :@$ N p @$ @N @N )p @$ @N -p @: A p @$ @N 2p @$ @N 6p @: A p @$ @N ;p @$ @N ?p @: A p @$ @N Dp @$ @N Fp @$ @N Jp @: A p @$ @N Pp @$ @N Vp @$ @N [p @: A p @$ @N p @$ @N cp @$ @N hx GD x GD tx GD h GD 'AZ <@Z
pp @$ '@N jp @: A p @$ '@N nP @$ 8@$ ;@$
@$ ?@$ > p @$ '@N v` @$ s@$ @$ % p @$ '@N }p @$ '@N p @: p @$ '@N p @: p @$ '@N h @$;@: p @$ '@N p @$ '@N p @$ '@N #p @$ '@N 'p @$ '@N +p @$ '@N ;H @: @: @: @: @: @: h GD AZ @Z
rh @$ A I@N Ip @:
p @$ '@N Ip @: A p @$ '@N Jp @$ '@N Kp @: A p @$ '@N Oh @$ q@$ @ p @$ '@N Wp @: A p @$ '@N \p @$ '@N dp @$ '@N gp @: A p @$ '@N kp @: A p @$ '@N op @: A p @$ '@N qp @$ '@N sp @$ '@N th @$ 9@: p @$ '@N yh @$ 9@: p @$ '@N p @$ 9 p @$ '@N p @$ 9 p @$ '@N p @: p @$ '@N p @$ '@N p @$ '@N !p @: A p @$ '@N %p @: A p @$ '@N 'p @$ '@N +p @$ '@N 0p @$ '@N 1h @$ 9@: p @$ '@N 6h @$ 9@: p @$ '@N <p @$ 9 p @$ '@N @p @$ 9 p @$ '@N Dp @: p @$ '@N K` @: @: @: p @$ '@N ]p @$ '@N `p @: A p @$ '@N fp @: A p @$ '@N hp @$ '@N np @$ '@N oh @$ 9@: p @$ '@N uh @$ 9@: p @$ '@N zp @$ 9 p @$ '@N ~p @$ 9 p @$ '@N
p @: p @$ '@N
` @: @: @: p @$ '@N
'p @$ '@N
(h @: @$ 9 p @$ '@N
.h @: @$ 9 p @$ '@N
3p @$ 9 p @$ '@N
7p @$ 9 p @$ '@N
;p @: p @$ '@N
Cx GD 'p GD Fz
~ ' (' data (',A,'(I),I=',I5,',',I5,') /') (' 1 ',15(3A1,',')) (' 1 ',3A1,' /') H H gSH: \ p @ p
p p @ p @ p @ C< S, 'C< U, &jC< V, &q 1D + L/$ &$ D & F
" $ 5& <C< Y, &j"* .
5* 9 H "( .
/
J h H C< Z, &q: ; + 3 H , &r ( .H
.$ 8& .&D /$ .d
3$ LC< ], &j"& .
5& K D "$ . / F d D C< ^, &q: ; + E D , &rC< a, &j"$ . / F d D C< b, &q ,~ p @ @ p @$ @N ` @:
@$ @$ p @$ @N ` @: @: @: p @$ @N ` @: @: @: p @$ @N ` @: @: @: (I3) H g H g EVMI \ h p @ e p @ f p @ fC< , &C< , &qC< , [ $ /$ D i $ d f D hC< ~, ' $ /$ D i $ d f D hC< }, ' h,~ p @ h@ kp @ h@ ex @ jp @: j@N jp @$ f 1 1 (A) H H H $oK&9 \ p @ p @
p C@ C< :, )C< 9, ',$ CD ,$ 2D + &+$ 2D + &Od + &@d $ . d
+ "C< A, &jC< B, &q ,~ p @ @ ` @ @ @ @ p @ @ P @ @ @
p @$ @N p @: p @$ @N p @: $ , H I H J E2&9 \ H p @ F p @ E p @ D p @ DC< k, " @ GC< j, " @ G G.$ . G1d $+ YOd D+ c@d D6 F+ _ G/$ D I $ d D D HC< h, '&+ c G/$ D I $ d D D HC< e, '& H D Ap ,~ ` @ D@ H@ L@ E` @ D@ H@ K@ Ex @ Dx @ E 3.01 H n O&i9 \ m p @ lC< t, ' m,~ p @ l@ o DISPLAY KEYBOARD PRINTER ERROR ELG append Error - system logical name [ ] is undefined! [Abort] H H H H
H H
H H y gg M7 \ } Z ~ X ~ V T R P N L J H F D p xC< Y, 'C< X, C< W, (5 * $ D v+ CC< U, (5 - $ D v+ CC< T, (5 0 $ 1 D v+ CC< R, (5 7 $ D v6 w+ C@d wC< Q, dC< [, &f+ CC< L, QC< L, dC< P, fC< O, " @ x5@ = $ D x x/$ D $ d x D C< N, fC< M, fC< ], *r v D v }
~ ~ v,~ x @ x @ x @ xx @ p @ @ wp @ @ p @ @ p @ @ p @ @ x @ p @ @ xh GD AH w@Z x @ H ^ H ^ GRn P \ a p @ ` p @ _C< n, 'C< m, $C< k, ' a,~ p @ _@ bp @ ^@ ^p @ c@ ` a9 \ ~p yp tp }p p p @ sC!p @ rC!p @ r p @ x p @ yC< , ({C< , ({@d y & F s D xC< , " @ p0@ 3D s+ + Of t+ @d t7$ t+ Y6D t+ ; u" $ 5& $ D |"( . s
s/
J h y H |/(
|/
J h t H C< , (5 # $ D t+ X: |8& D | ~" $ 5& 2 D q"( . s
s/
J h y H q/(
q/
J h } H C< , (5 1 $ D t+ X: q8& ' D q"$ . s s/ F d y D C< , L5 9 $ D t+ X $ D t+ X t0D + @C< , C< ~, - $ D t+ X t0D + E: s3d p+ DOf t+ X@d t+ X t0D + IC< |, $ D t+ X t0D + O: s3d p+ M & F t+ X $ D t+ X t0D + T"$ . s D C< y, -Od t+ X t0D + y u" $ 5& c D |"( . s
s/
J h y H |/(
|/
J h t H C< w, (5 b $ D t+ X: |8& X D | ~" $ 5& q D q"( . s
s/
J h y H q/(
q/
J h } H C< v, (5 p $ D t+ X: q8& f D q"$ . s s/ F d y D C< t, L5 x $ D t+ X $ D t+ X t0D + "$ . s D C< q, - $ D t+ X t0D + "$ . s D C< n, - x3$ s+ Od t+ X $ D t+ X t0D +
x3$ s+ Od t+ X $ D t+ X t0D + C< l, C< i, - $ D t+ X t0D + : y: s2d p+ & F t+ XOd t+ X t0D + ( ~" $ 5& & D q"( . s
s/
J h y H q/(
q/
J h } H C< g, (5 % $ D t+ X: q8& D q $ D t+ X t0D + ,"$ .D y $ D t+ X t0D + 0C< e, $ D t+ X t0D + 6: s2d p+ 5 & F t+ XOd t+ X t0D + G ~" $ 5& E D q"( . s
s/
J h y H q/(
q/
J h } H C< c, (5 D $ D t+ X: q8& : D q $ D t+ X t0D + M"$ .D y. s D C< `, - $ D t+ X t0D + U"$ . s D C< ], - x3$ s+ T $ D t+ X $ D t+ X t0D + X $ D yOd t+ ~ s Ap x Ap y Ap ,~ X @ @ x@ s@ r@ rX @ @ x@ s@ r@ rp @ @ ` @ s@ x@ s@ rp @ @ X @ s@ x@ s@ r@ r` @ s@ x@ s@ rX @ @ x@ s@ r@ rX @ @ x@ s@ r@ rp @ @ pp @ @ p @ @ X @ @ x@ s@ r@ r` @ s@ x@ s@ rX @ s@ x@ s@ r@ r` @ s@ x@ s@ rp @ @ pp @ @ p @ @ x @ y@ @ @ }@ r@ |@ @ @ {@ sP @ @ {@ r@ z@ @ s g%i< \ p @ p @ p @ C!p @ C< !, ({: $ . F Ap ,~ @ @ @ @ @ @ @ @ @ g"+R \ + p @ ' p @ ( p @ 'C!p @ &C!p @ &C< A, ({C< =, ({ ($ ). * ' F ($ ). * (. ( .( / H +,~ @ @ ,@ *@ &@ *@ +@ ,@ )@ 'P @ +@ )@ &@ (@ +@ ' ]>v98 \ H F I D I p @ Gp EC< `, "" $ F F5& Z D H/$ H/ F Jd E D JC< ^, (5 Y@d F+ [: H; F+ S D HOd F H I I F,~ p @ G@ Jx @ E _W&= \ cp a b" $ F a5& q D b/$ b/ F dd a D d d F cC< s, #i: b; a+ j D b c,~ x @ cO@
6 @@ ,~ NAM old delete (A) H z H { H | H x O$j6 \ y p @ v p @ w p @ xC< , dC< , &fC< , &iC< , &qC< , &g@d x+
Fz p @$ w@N ~p @: v p GD wC: H Yt} \ J H F D p D " 5& 1 D /(
/
J h H C< 6, (5 0 D D + 2> 8& ) D @d D
,~ p @ @ ! E e . . (G) H ? H @ H A H B H C H 8 O&)0 \ =p : p @ ;C< , " @ ;0 + R $ D ; ;1d + T $ D ;C< , ' ;/$ D > $ d J D = ;/$ D ? $ d : D >C< }, ' ;/$ D > $ d J D =C< |, (# @ < ;/$ D > $ d J D =C< z, (# @ 9 <1D 0@ + q ;/$ D > $ d J D =C< y, (# @ <5@ q $ . ;/ ; D > ;d J D =C< w, 'C< v, 6C< , &~C< , &q = ; Ap ,~ x @ Jp @ =@ Ip @ =@ Hp @ =@ Gp @ =@ Fp @ =@ >p @ J@ Ex @ :h @: JA. t@N Ep @( ; (I6) H
H O%Z \ p p @ C< ), " @ 0 + $ D 1d + $ D C< ', ' /$ D $ d
$ d @D C< &, 'C< %, 6C< *, &~C< ,, &q Ap ,~ x @
x @ h @:
p @$ H 3 e FJZ \ 0p .C< Q, " @ / // / D -4d L" / /F .5& L,D 0"& . -. 0. -/ D 1f . F 1/ 0/$ 0/ F 2d . D 2C< O, '"$ . 0. 0/ /F 1d ./D 1C< N, '> 0; .+ = D 0 0,~ p @ 1@ 4p @ 1@ 2x @ . H X Y6JZ \ Up SC< y, @ RC< x, " @ T7d R+ t.$ D T" T/& . T T F R5& s D U/$ / R U/ R/ F Vd S D V U/$ U/ F Wd S D WC< w, '"$ . U U/ F Vd S D VC< u, ': U; R+ e D U U,~ p @ V@ Yp @ V@ Wx @ Sx @ S H YMiq \ } F } D ~p { {" $ F z5& D |/$ |/ F d { D ~C< , (5
H C< 2, ': ;" + ! D ,~ p @ @ x @ % % & 9 & ( * + - @ p @ 5+ p @ 5 Ap ,~ C< ", #iC< ", #iC< ", #MC< ", #i+ A+ zS; :C" x B A \ @ p @ 5+ z @ 5 Ap ,~ C< "
, #iC< " , #iC< "
, #i" 5 $ F :5& D >C< " , #i: >; :+ D >C< ", #iC< ", #iC< ", #iC< ", #i+ A+
S; [rC" B A \ @+
@,~ C< ", #iC< ", #iC< ", #iC< ", #i+ A+ _[>-C" B A \ @+ @,~ C< " , #iC< !, #iC< !~, #iC< !}, #i+ A+ IeJ7C" B A \ @ p @ 5+ @ 5 Ap ,~ C< !|, #iC< !{, #iC< !z, #MC< !y, #i+ A+ *S; J7C" ( B A \ @ p @ 5+ * @ 5 Ap ,~ C< !x, #iC< !w, #iC< !v, #MC< !u, #i+ A+ 3gf3C" 2 B A \ @ p @ =+ 3 @,~ C< !t, #iC< !s, #i =0D + 8C< !r, #i+ 9C< !q, #i+ A+ @g%|TC" ? B A \ @ p @ : p @ ;+ @ @,~ "$ . : D ?"$ . ; D @+ A+ Ked<yC" H B A \ @ p @ < p @ >+ K @ < Ap > Ap ,~ <. ? D < >. @ D ?C< !p, #iC< !o, #iC< !n, #MC< !m, #iC< !l, #MC< !k, #i+ A+ ]GO yC" Z B A \ @ p @ < p @ >+ ] @ < Ap > Ap ,~ C< !j, #iC< !i, #iC< !h, #MC< !g, #iC< !f, #MC< !e, #i+ A+ gG38yC" f B A \ @+ g @,~ C< !d, #iC< !c, #iC< !b, #iC< !a, #iC< !`, #iC< !_, #iC< !^, #i+ A+ sG3J7C" r B A \ @+ s @,~ C< !], #iC< !\, #iC< ![, #iC< !Z, #i+ A+ {G3+vC" z B A \ @+ { @,~ C< !Y, #iC< !X, #iC< !W, #iC< !V, #i+ A+ G3[vC" B A \ @+ @,~ C< !U, #iC< !T, #iC< !S, #iC< !R, #i+ A+
G3KxC" B A \ @+
@,~ C< !Q, #iC< !P, #iC< !O, #iC< !N, #i+ A+ G3[xC" B A \ @+ @,~ C< !M, #iC< !L, #iC< !K, #iC< !J, #i+ A+ g4X:C" B A \ @+ @,~ = D 8+ A+ #eO$ C" " B A \ @+ # @,~ 8 D =C< !I, "!+ A+ +O$ C" ) B A \ @ p @ 6+ + @ 6 Ap ,~ = D 6+ A+ 3IO C" 1 B A \ @ p @ 7+ 3 @ 7 Ap ,~ 73D =+ A D =C< !H, "!+ A+ :E. C" 9 B A \ @+ : @,~ C< !G, #i+ A+ BGOI3C" @ B A \ @ p @ 5+ B @ 5 Ap ,~ C< !F, #iC< !E, #iC< !D, #MC< !C, #i+ A+ LGO*3C" J B A \ @ p @ 5+ L @ 5 Ap ,~ C< !B, #iC< !A, #iC< !@, #MC< !?, #i+ A+ WGO\ C" U B A \ @ p @ 5+ W @ 5 Ap ,~ C< !>, #iC< !=, #iC< !<, #MC< !;, #i+ A+ aGOK{C" _ B A \ @ p @ 5+ a @ 5 Ap ,~ C< !:, #iC< !9, #iC< !8, #MC< !7, #i+ A+ jGO8;C" i B A \ @+ j @,~ C< !6, #iC< !5, #i = D 9+ A+ qGO)9C" p B A \ @+ q @,~ C< !4, #iC< !3, #i 9 D =+ A+ }gLRC" z B A \ @ p @ 5 p @ 6+ } @ 5 Ap 6 Ap ,~ C< !2, #iC< !1, #iC< !0, #MC< !/, #iC< !., #MC< !-, #i+ A+ ! ]FHtC" ! B A \ @ p @ ;+ ! @ ; Ap ,~ 6 8+ !
+ 7OD ;+ !C< !,, t5 !C< !+, "H5 ;CD 7Od 8+ !Od ;+ A+ !O$:C" !CB A,\ @+p +@ ;+ ! @ ;@Ap ,~ 6 8+ !@ 7D ;@d 8+ !C< !*, "H@ ;0D @ 6x @ Jx @ 5x @ Ix @ Lx @ Jx @ Lx @ Ix @ Lx @ Mx @ 5x @ Ix @ Lx @ Lx @ 5x @ Ix @ Lx @ Mx @ 5x @ Ix @ Lx @ Nx @ 5x @ Ix @ Lx @ Ex @ 7x @ =x @ Ax @ Fx @ Ix @ Lx @ Ax @ Gx @ Ix @ Lx @ Bx @ Fx @ Ix @ Lx @ Bx @ Gx @ Ix @ Lx @ Bx @ Hx @ Ix @ Lx @ Ax @ Hx @ Ix @ Lx @ Px @ Ix @ Lx @ Px @ >x @ Jx @ <x @ Ix @ Lx @ Px @ ?x @ Jx @ <x @ Ix @ Lx @ Gx @ Fx @ Ix @ Lx @ Cx @ 5x @ Ix @ Lx @ Dx @ 5x @ Ix @ Lx @ Ox @ Hx @ Ix @ Lx @ Nx @ Hx @ Ix @ Lx @ Ox @ Hx @ Ix @ Lx @ Ox @ Nx @ Hx @ Ix @ Lx @ Ex @ 5x @ Ix @ Lx @ Kx @ Lx @ Kx @ Lx @ Px @ Fx @ Ix @ L -
"C0D + #
$ J D "E "C0D + # "C0D + # $ J D "E "C0D + # "C0D + # $ K D "E "C0D + # "C0D + # $ K D "E "C0D + # "C0D + # $ L D "E "C0D + # "C0D + # $ L D "E "C0D + #" "C0D + #" $ M D "E "C0D + #& "C0D + #& $ M D "E "C0D + #< "C0D + #< $ N D "E+ #< "C0D '+ #<C< #?, #h "C D "E0D (+ #0 & F F "E0D (+ #2 & G F "E0D )+ #4 & G F "E0D )+ #< & H F "E+ #<d "C2D "G+ #9C< #>, #h "C0D
+ #< $ B D "E "E "E Ap ,~ x @ "Dx @ "Cx @ "Dx @ "Cx @ "Cx @ "Cx @ "Fx @ "Fx @ "Fx @ "Cx @ "Fx @ "Gx @ "F S;%}: \ #L p @ #K4@ #W #K&$ 4d #T #K&$ .$ D #LC< #Z, #i #K&$ .$ D #LC< #Y, #i #L,~ x @ #Lx @ #L KE{w \ #[7 #Z+ #_C< #a, #tOd #Z #[,~ KE{s \ #bC< #f, #m@d #Z #b,~
%p OAp ,~
!p ,~
;p ,~ p Q" $ b + #l,~
#x+ #~ $ b &+ # B #| B #} " B #| B #~ $ d '+ #,~
#z+ #~ " B #| B #~ $ d '+ #,~ `iSH iSH
& $ `
& $ ` @ #{
?TTYSET OPEN FAILED
?TRMNO. OR TRMOP. UUO FAILED ,> ,> `
& & . (@ ." G (@ .$ G p [ /&A`7@ )@ (@ A $G $p ,^ ,^ ,~ .TMPO@ $P+ $+ $7@ $P+ $@@ $PC# /" B $O+ p 7@ $K+ $$+ $ 6@ $Q+ $"C" $ `b+ $$ $K, $;+ $J B $P, $=O@ $Q@ S $PX$ $$+
Q $PC> $Qa~Q>~ ,> $L,> C# /" B $O, (v, ' , ' , $;, &TC< $,5 &dX @ ' @ +I@ $L@ $M@ $ODo you want to close all files? (Y or N): Can't map up section 0
7B * " $IZ 1D $A,~ Q"X B &Q " $AXB *,~ + $6 " : x ,~ $Pl" B &T " B &S $M b 2+ $J,~
& $/
(
2 0B ,1B <+ $F+@ &Q b + $EC> $Qa~Q>~ ,> $LC< $O, &h+@ &Q `
& $3 ` ` $QgR~ P&S $N 6B ' ,~ ^ ' \" b @ aB g $ " &` b + ' ' b + &_[ d l /" &d B ' ,~
& ' ` gg M?t( S:NC@, 'M?\G, '_B-c@, 'G2~9', 'KbND', 'S8p , '_W!` , 'eR` , 'oR` , 'K:` , 'I` , ']2I` , ']2y` , 'S>f=, 'M&q` , '[R~@, 'M&tC@, 'KbNC@, 'C2 |G, 'I |G, 'C2 G, 'I G, 'iJ
9', 'MVt=, 'S;S@, 'M?|, 'SI` , 'Sy` , '[RD\G, 'C
~-, 'S;
c@, '* x . ' * x ,~ p ?Cannot find base address of FOROTS
,~ @@ ' 'Y, '?4@ '5 ' G kG p *
p * d '+ ,~ @ G kg \ '#C< '#, (: '# p *
, (C L '$p * d '%+ '$ p *
d '%+ C< '#, (B '#,~ x @
'$ @ G: '6@ '), 'Y, '?4@ '*5 ', G: G p *
5 'zG: g \ '6C< '6, (: '6 p *
, (C L '7, 'z '7 p *
d '8+ C< '6, (B '6,~ x @
'7 @ G>t9G, (/ p *
, 's, 'z5 (1 } ~ ~ # C: '?d$: C6p Rw p 4& 'P%& /'<. H + 'KX D 4" 'U%" /'<. 2$ + 'J. 2d + 'L. .6 *x 'Eg O ,~ )Fq(H}$( .( g+ 'D9`f + 'M. 'P+ 'B)Bq(D}$$ .$g+ 'H`b + 'R. 'P+ 'F } ~ ~ # C: 'Yd$: C6p Rwp H 4& 'l%& /'W. .
+ 'fX D 4" 'q%" /'W. . 3f + 'f2$ + 'f+ 'g.6 *x '`,~ " 6@ 's, ) ,~ )Fq(H}$( .( g+ '_9`f + 'i. 'l+ '])Bq(D}$$ .$g+ 'c`b + 'n. 'l+ 'a ." &" ` [ 0$P e6p Q6 $ BDX 8 =b 'x,~ C6p Rw*x '|X *
2*
/ d (+ 4r (.6 *x '|@@
d (+ ,~ @ Y ` -" ( @ Y:)` -" (@ Y3!` -" ( Y2)` -" ( ` Y !` -" (` Y )` -" ( ( (
( p * p *
4d ( 4j ( ad~ `j~ + ( d g O ( (
( ,~ + (! , )?+ 'S:$^, (/p p < @ 28 + (-8 2R = (&4X (1
b (.= (&5 (1@ 5 (1 @ Z (9 (3*: (9,~ ! (3*: ,~ (4 (4 G"n*g,> ,> 6@ (y+ (? * C" 6@ * , (V (y Cp ,^ ,^ ,~ G#-mg,?p ,^ (y,~ 7@ (y+ (o,> .* &*
.
(y2l (y, (a
(y`lm, Q,A`.J (y,^ ,~ ,> ,> (tab+ (R (t/" F (u (t@@ C& b (p (u+ (U@@ Q$ X$ . (t*$,^ ,^ ,~ 6@ (y,~ ,> " B (s B (t \ (uC< (l, &{ (u6@ (s+ (p (t B (y B (z. (t B (y, (K,^ ,~ . (y3` (y,~ ,> .* @ J (t
(y J (t * J (s \ (uC< (l, &{ (u6@ (s+ (q, (K
(t.J (y,^ ,~ X @ (s@ (r@ (s@ (t@ (t, )B+ ' , )t+ ', )x+ 'FRS 7@ (y,~ @@ (y@@ (z@@ (y,~ CR@,> ,> p p Ep <b ) $Ep $ E . .& + (~" C%p . Ap 2D )$Ep ,^ ,^ ,~ ?CT4',> ,> p Ep Ep p <b ) $Ep $ E . .& + )
"Ap , 2D )$Ep ,^ ,^ ,~ ?, &e G0 !H ) *, &e G !H * *, &e G@ !H * * , &e Gx #H * *, &e S>( 1 H *
4H * , &e k:x
4H * , &e ]>0
5H * , &e G_(
5H * , &e G2(
6H *" , &e S(
6H *& , &e ]
7H ** , &e CG
8H */ , &e gN( 8H *4 , &e gJ( 9H *9 , &e i6
9H *@ , &e G
:H *C , &e [b H *G , &e o:
H *K , &e ]`
H *O , &e GK
:H *S , &e GC
<H *X , &e SBp
=H *] , &e g:@ H *_ , &e G
=H *b , &e K
>H *g , &e C3P
>H *l $I Intrinsic routine $N invoked incompatibly $I FORTRAN-10 supplied routine $N invoked $I Overlap of character assignments $J ERRSET: error number out of range - ignored DIVERT: illegal to divert to unit $D DIVERT: unit $D is not open DIVERT: unit $D is not open for FORMATTED I/O DIVERT: Can't write to unit $D Concatenation result larger than expected Illegal length character expression No character stack allocated - compiler error First argument to SORT must be a quoted string Substring range error $S($D:$D)
on line $D Subscript range error - subscript $D of array $S = $D
on line $D Too many arguments in call to SORT Can't get pages 600:677 for SORT Missing EXTERNAL declaration in CALL to $N Wrong number of arguments in call to $N Argument to SECNDS not floating point Can't return pages 600:677 after call to SORT Can't preallocate pages 600:677 for SORT Illegal page number $O Internal FOROTS error Not enough memory for creating character stack Not enough memory for expanding character stack $N: Argument less than or equal to zero a.3@O@ +3+ *rgR~@@@ +3,> ,> ,>
8 + @ 6 w+ + " +30B + +7@ +3+ *{,> C< +5, &j,^ + *},> C< +8, &j,^ p l" B +0,> !" B +0!" B +1C< +0, &q,^ + + p 7@ +3+ +,> C< +:, &j,^ + + ,> C< +<, &j,^ ,> C< +>+ +7@ +3+ +,> C< +@, &j,^ ,> C< +B, &r,^ 7@ +3+ +,> C< +C, &j,^ ,> C< +B, &r,^ ,> C< +F, &i,^ ,> C< +>, &q,^ (Bqd 0B ,+ + ,> C< +B, &u,^ 1B #+ +!0B *+ +,> C< +H, &z,^ + +,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To Trace.'/2H *,$) (A1) (' PAUSE',/(1X,A)) (1X,A) (' PAUSE ',O6) (1X,O6) (' PAUSE') .p h @$ +4@D +)@d +4 h @$ +4@D ++@d +7 h @$ +4@D +,@d +9h @$ +4@D +.@d +7p @$ h @$ +4@D +/@d +7 h @$ +4@D +#@d +B~ h @$ +D@D +)@d +Ex @ P @ +L@ +L@ +M@ +M@ +N@ +P