Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50126/congen.sav
There are no other files named congen.sav in the archive.
h ' @7 t+ x - 8 x . 8x p 0 H 0 7@ + : U j jPUti1[ [M-7UVd 3gxz]?4I1pG>\G
` S-mM& 8J;SNM{GaJ||PZ6LC@|(1r8 CW% y ;wOp m:7\ g #I$S;e'&I7 P I$S17H8 el Uf8
WOJ'&I7 H1&:<[F (-K;5 W]6-m I'5 t68p S;] W&S2)[zh Y> 0;$7f e |Rf } C C3,PLLI7i&5pi&}`fMc7C6)` C3,PLLI7i&5pi&}`f~]]lS@ DFe kN
y SLJ9a2 D}:J,0 kN
y SLJ9a2 `p 8 $5KH S
' $N#9k4 S
6$ 'o?:7N7 KyC (
rGRM{G.\F]lP S
4J H[ p .\}::
4J z_ p .\kfe 0 S
6$"@Hw[@p aJ|92kJ( m' w .\;wiJ}C:R
6$"`H
9}\gR- ap
7aW S2)Z7 ap ziC.@S2)[zh8 KPkfe 0^T\W KP;wiJ}C:R
7J,0^~]e` e'$PkPn)1 KPkfe 0` KP;wiJ}C: R SOH<:y\RGL` @e |Rfp SOH<}m0nKzC0` @i?$ ` p i?
Z\8 p M&dS7kP x
Ap! H @*x#H 6H %-< J " > b + 8 < |-> -8 B: 5-< j7 x<7 `=+ Ggg ge}g# X@AINX 7 oX 6@ 5> O@ 5 \ 58 , L @ G>ty7, L @ ~, : *( ` ` ` 0` + O` 0 + P* j + Sh H & T 6 6 @ @ @
, L @ B " 3B + ]" 3B + ]" 2B + ]+ ^ @ + T, L @ B @@ Z(AH < (, D .0@ + e+ f @ 1+ ^ 2, L
@ 7 B 7 8 91@ + l 90@ + m+ n @ :+ g ;0@ + p* <j < =0@ + s* >j >, L
@ C B D" D, L @ H B I" I` J1 + {` J1` + | @ M+ u` N N @ S B T T @ V V0@ + \(`AH O+ !, L @ \ B ] ]@@ Z(AH < f, D l0@ + +
@ p+ p, L @ u B v v w1@ + x0@ + + @ y+
y0@ + * zj {+ * |j |, L @ B " " 2B + !` 0@ + !" 2B + !` 0@ + ! @ @ @ @ @ &, L @ ' @ , @ 2 B 2 3 40@ + (* 5j 5+ < @ < @ = B = >U( AH , L @ C B D" D` Ed E2$ + 0 @ H+ + Id I. J, L @ N B N" O` O1` + 7 @ S+ 2` Sd T. T` Ud U2$ + < @ Z+ 2, L 0 Z [d \ H e@ ] H Q@ ^ [d H 5@ H e@ ` [d a H =@ b [d c H @ c [d d H e@ e [d f H e@ f [d g H =@ [ D * h*( 2 H @ h [d i H 5@ j1@ + \ j [d k H 5@ [ D * l*( 2 H @ l [d m H =@ n [d o H =@ [ D * o*( 2 H @ p [d q H =@ ` q5@ k+ m r [d s H
H e@ [ D * *( 2 H @ H 5@
1@ + + [d H [D * *( 2 H @ [d H Q@ + [D *+ *( 2 H @ 1 \f H %@ H e@ @ 1@ + @ [d H y@ H e@ d 0@ + D+ F [d H @ & H %@ ' [d ( H Q@ )1@ + f ) H Q@ * [d + H
Ip { {{8} H@~ H % $ $0 0 cG $H $H %0 H @ H@ * BEGIN BUILD COBOL PROGRAM * (V3) HB( H@
INPUTHFILE<ISONNDSK,HSYS,HOR6MTA ?$ H 6[R $H H 6? H@ENTER INPUT FILNAM.EXT FOR CONGEN-GENERATED PROGRAM: H(H@PH H PH H ! p"H p$H p%H p' h( !p* # $x, &yP-< FILENAME MUST CONTAIN PERIOD HA`.H H[MODE IS: A = ASCII, S = SIXBIT ? H 3H@H
L L L? H@: L. < ; L L, < = LBLOCKING FACTOR: 0-999 (0 = UNBLOCKED) ? HH?@ 0 ARECORD LENGTH: (CHARACTERS) ? HxE@ H H H INVALID RECORD LENGTH HA(KH 0 PDO YOU WANT TO COPY THE ABOVE FILE? (Y-N) HXOH@H H H@U< ENTER OUTPUT FILNAM.EXT FOR CONGEN-GENERATED PROGRAM: H0WH@PH H PH H _ paH pbH pdH pe ^hg `pi a cxj ddHl< FILENAME MUST CONTAIN PERIOD HA`mH H_MODE IS : A = ASCII, S = SIXBIT ? H(qH@H
O O O? H@x O. < z O, < { OBLOCKING FACTOR: 0-999 (0 = UNBLOCKED) ? HX}@ H C. < L0 A. < OH C%CONGEN STRIPS CARRIAGE CONTROL CHARACTERS FROM UNBLOCKED ASCII FILES.HD0%THE CONGEN PROGRAM YOU HAVE JUST CREATED SHOULD NOT BE USED TO COPY HD PRINT FILES.H@x%TO COPY UNBLOCKED ASCII AND RETAIN CARRIAGE CONTROL CHARACTERS, HD (E.G., AS NEEDED TO RUN COUNT FOR COM APPLICATIONS), USE COPYIT. HD H@&RECORD COUNT IS AUTOMATIC; HOWEVER, IN ADDITION, HC'DO YOU WANT TO CONTROL ON SPECIFIC FIELD (Y-N) ? H-H@H H < \ < 4< DESCRIBE THE FIELD TO BE ACCUMULATED (IN 25 CHAR OR LESS) HCH6* H <HAHH HHLEFT POSITION OF FIELD TO BE CONTROLLED ? HP?@ H SH SH ? OUT-SIDE OF RECORD ? HA0FH SH SNUMBER OF POSITIONS IN FIELD ? HxJ@ H VH VMAXIMUM FIELD 18 POSITIONS HAPPH VH SH H H ? CONTROL FIELD GOES OFF END OF RECORD? HB8VH H@* ,H H *H HP* X .H #HH*H &H p* +H 'H * < 1H -H(* t ,H /H0* X ,H 1H h* < + E(+H 3HH* t . OH 6H`* . E(+H :H p* +H <H h* < + E(+H =H `* X +0 AH @Hx* t -H CH@* E(+H JHx* t -< H H SH QHp*H SH QHp*H THp*H SH VH H H H SH SH QHp* E(+ OH >H h* < +H CH C0 AH @Hx* t -H GHH* t . E(+H MH`* . E(+H VH@* , E(+H XHh* OH \Hh*H `H* < -H eHP* X . E(+H cH* , E(+H iH 0*T +H iHH* OH lHP* t -H nHH*< H qHx* t - E(+H tH (*p +H tH@* OH xH`* < -H zH* ,H |HH*< H H * t .H H * t , E(+H H H*H H* , OH H *H H* < -< H Hx* < 0H H p* +[R $H /H 6 H@ 1NOTE: INPUT FILE WILL BE ON MTA HB 2 H@ 6 O H@ 7NOTE: OUTPUT FILE WILL GO TO DEVOUT HB( 8 H@ =EXECUTE H @ >H H 0H@0- - - - WHEN JOB IS DONE - - - DELETE H@ AH H 0H 0.* H@ G{p I R I @ I ^ H N H+ p Z x Zp [ p 4 n`\ 6 + T< l7A l+ T. m X aX + TXV k+ TXV l.Tx ,~ ,> ,> ,> ,> < l7A l+ aZ k7@ + a( n. l
& o, c
& qZ l7@ + a
& r( n. l, c
& q,^ ,^ ,^ ,^ ,~ [ Z: Q:A@ 4X i.8 1X 8
" `zp + e=| e,~ ,~ + p ( m $ $<p *FAILING PARAGRAPH* << >>
IN SECTION x s<< + 7