File COBOL.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

||A@P.   	- 	.  	
          . ()( )     77. FILE-CONTROL. SELECT PAYROL.MF ASSIGN TO SYS ACCESS MODE IS RANDOM ACTUAL KEY IS REC-KEY. SELECT REPORT.RX ASSIGN TO SYS. SELECT REPORT.LP ASSIGN TO LPT. SELECT FINPUT.DA / / /TEXT FOR COBOL COMPILER. / FIELD 2 *6000 / / /FIRST PART OF TEXT BUFFER ALSO USED FOR /FILE NAMES AT END OF COMPILING:- TEXBUF, FCONTR, TEXT /FILE-CONTR 0D@@?p~p ()~bn}b|bc{b7f8zkky /xk9Wwv/* C Ou> ,|tI,"eCjd&C" GD&sr'q  GBn'ptfV)T^L\)+oktI~)78b(Yz b 8GeB(`ze8&ezk b8zkn~m]9Ylkq-qS;YC fgW/!,X&kra~7(/
. ,7|}(?}#7}g27d|9V {"(z{Z8d3>Y9zV{(/z:e[&\)/[Y&\)-Z@Bb =z]<y2 7G8'Bax(Jz]Jw!&!Cl!d!6!Ll(/q ,l<(_zGLv)6`^RubM lM<(t{!lbHt{MMDe ,s4_rXdp@dMbMi~})|}){@>cb@9bHf 9C:FTz+@<fy@:@/..H1z 9CN+z@x{7@/x7:@o7 ,9<@ox<4@=fw@d =f@<bvi)= />u;<w dZ =f`<b z{ti)= />u;Tbc@.<s"@z{rZ9eyI@<bti)u?@b;aikT5kO#@f jl,L '? C~@(}{R /} <| l{gP@.& {Izr}@>?@fcbjy?TI,JT-!*xA&{?"i<cw@ l9<v(Au t{A /t<4@=fTaZs)ST)e`JTgdd)3 .=Ab<i)= />r;@AbquAGjTgdy+Tjhy+Ap"<i)onk+#fk4L,P@ #@?f@cibj?4T#
*~?"i<cAbj<4@=fTa2})*T)e7JTg;T)FJd =fA<"iO= />|;A{ zA&T)g;JT9j?JA2y<"iOx| <b {Aw"Avi/@ui@O{uts(/O;`~rh?Z >o&r!>q&oCpqcoprq|Z0b~O?eW8kRK#f@,Ababj~Tp }+c<V|H/ mfbj~<4=Ti@JTa0{)(Z)eTIg5Jd} =fA<"iE= />z;Ay xA&T)j9J}A2w<"iEvzAu"AWh/;C@OLt"ts }{AH/Em2(E{}?r 9<qq(~{Wp2am(}{omGmFz0]?@xkRK#f@,qk1m&~@>A}babjkTmT)pJ|{2A<fcbjk<@N=TiIJTa5z)-T)e:JTg>d)| >=Ab<i)N= >{yA2xwA!j g>v+TjB|+Au"<i)Nt sA2A&r|;<qp(Zzp(/`|+@eh{ |N;@eh@|{N?@l;<e\93okR-A?pW1kRjd#1f@,@H=<fcTJ~9  ,<}a|{9(zy@~x'?wbmci?bIZTr&)*m.mTitPJTuHT)vLJTwjT){HJTLT)PZTXT) \ZT`v+Vmbmfjmu"mfjmt"mZicZIhJms"mcjmu"mcjmt"mrbaqZbqaqX<TS, Dsp,#A)}IbWj&@mbiTlKTn~?2}`/|`>?@.nC|{0Vzym&cx! w <Cbmd CDFTb0:*Vx5 w CDFn&Dv)aTe_ZThut9Kd)N .zmriVAmbibT|{sa)cmCbraqm2pi)oeq?@mbCbrae0'bBf%]W@!.lT,x3@mbi)_~+C/F/a)T#}+bTpJ|@>{a)b@za)@/baTe%Z}y9x@wa). />v;Vcu@~{db lt2caIZHZTMT) MZsi)vZ9$rRiqv?Dp"@^zo"HS{]'nm3l@(k (j i7g$/MDW #@eD@,jm`Vc_+CEFEa)~F& FC(O!>EF$(zFJ FCaI}D&T&)T)*'Z7|"{rDD&Z-^z"a)Z2Z5AT) ;ZAZ)$DRDfyDix@wa)Vv 9CHOux;ct=mfT1sT95rkqpdc =fpb9tVZpO0VVALUES/fifjfC#, @mf@b@/~2}m"i@= />|;{zrmm&yZ9p@nxa)|Y9~+VwTg,T)j.jTn~ v/*{/*zu"9=f:9i= >{|0cyKt):d9WzTgZT)j]jTn`s)@omr"& Ca9= .=:k9i),9"i.9i)*@.q9&1\)Ap[\ip\9Mp[-@~Wzf0@V5 #@,pZy8TY&CJT)HT)+JJT0LT)5NJT9PT);RJT?TT)AVJTDXT)GZJTJ\T)M^JTP`T)SbJTWdT)_fJTdhT)ghJT[T9^~K}2>|gK{D*zD*yD*xD*wD*vD*uD*tD*sD rD*qD*pD*oD*nD*mD*lD*kD*,aSRuGcV e0VdD3"q X\wrd~b}|rN{bSzbo ly xU wKv(&c9uTT"JTOt{s/rA&Te1T)Y5JT[7T)L9JtZ9LqB:p":o":n"AA&b@A.JzTpm{bAilTOGzZpAbAFj#, U3a%pZT'd6@~66,|6rSbc({6,|t T`f( & G #JKO@6c 2z6')K6S7S.JmO2aVWP&SQ'RTQtDC OUV;Wa)V@5-C; /A#Z[ LDv^[+7Rp- NO SUBSCRIPT/ TEXSUS, TEXT /ERROR - SUBSCRIPT CN3LSE4T0SINACESOS EUDN LPCM0CL YO TNm!TRCG`ET@O.#CD1R`Q INC4ON@!O@@ T
C@N@! SIcL3DN@XMN@@LET$S@!NR0 S@ `N@HNQ1  @4CU0@ ES@ D@ TR@@1T$FE" HA Q R1I SM0O5DU TU3P#  QORC@F2TP0XTDRTR@PNLS@CE PC@A`
0A@$NQNI`RNBP5@sE 4@RACS@QA4I EPA1 U@d@FSANTNN% 1E@&@FD@SN@! 3 @4NQ@m5S@mUS1 HVLE HVLE@PDC@PC@S@@:@*ET@O#TN STN@!YCXRC 8O 8 @1 ET8U3CESD`RDIS4N`!E@&NTONSD!ES0 TSG# S ;RLBA1 3E0NQ.R E3- hE8 EUL4`a C #E0A `RAD  T@R@QL#A HRL2A1 O3PR `K8BCT DR D`U4RP% URP%GC`C`S3HR ON RQ DN( EU`4TM!`1RICSNB` DC MT8MRQC 8Lm!O CET@O#`SA3 S 8 R1U4RNS`BR1 U@RPPN2@NEU5TPm@#CO.VTTU08RI2S;TEC N;`SA3LS`SA3  Q S@`A38T`TM!@E`A38R E3@JMi1
Ni!CDN`! 5 C 5TNT DR `KNQ  CLP YO`1 UCTUL@RN`1 ;F8 TTMNHRC TON RQDS A~3(}{|b{vzy'xw0(zvC F@.ui!. ut < s`rq"uxw0 /zpu)ou)uInC Nmluku)jC Nmihu)xCw Lg"ufu!.Pek
D(tH@+P@p@@(g)$mtTOVeDt@n~i &~iOVT~@}C Oe|+@{bmiz~kz@zc~p)n&,6&&IP2 n6BKfmJ6mmCmyBInb-@/k,&GI"nx`~wwsKK&nw#nve<n"czc~p_,u?mmtg<t07WVx7"iPDTDR@@iy b;`.:"0/D D6e+Q5]!*8J,Xk1<qLXjK0@  ?~O@x&6MUy~}'+&|(&{1&Bzbyb {b! l!!t J L~ xI% ,w< xI+"vKvL lu<(Mzt Lf xI P>"!b( ~K ls<x L lr<q ~&lb\)Mp[\+on]Tm]9p[okTlb:kj{o2 (x#unUi`Bf&~&}&}6&|&{&TezVWz2 GD&yx'w@ .vb`u{(+zd& " GBb|B}&t"`b Gg gsB``&r"NdO]) qkxVyYT p{Z@ogn&mx'wl\kA>&$fOjk'  b|;yC (@~@ b@/b ,| _ @b~& ,|&VIY}Te)[}ZZTZT) +J\"~&{ ,7VIY9T$<])
ZZ,|BXi@ bGBFGB|& ,|{EVY}e9\)zZ\/z?@yix(?rw+x!>( ,|(x'e 6O>a ry|qv{GGD4ok(~'T9*4" }{T*|T9,{KD(/}+4zgy &r$n&`n$`/x `wgv& C(Ou2t& C(O@& C Gz".jDsVyWryq@Ojpy2& Cz&<6oinYbT)CmK[b^l "b k{j4h4_cT'bW!bb (@~eAo#^s?hZZ2(z~(/\)[Y}@> 6C6'D|?6 l6<x77{ +z7(/-0(6 l6<0808w 6t 6C0K\{?z"@Jzy"@Jz(@.xbH;{]{? &b M{4 /Mb2 \z bbMk ofb&cw @+b nGn6Bn|ncK /v]9Tvks '[b"p:` nV9^~A#f&$&"&&J&b} /4"(4z&f'(/'&"!*bH'z'(b!)b('z|@({'%(/7%&&!.$@/4<*]'z&2!$bH4z@fTj_)oU,< Rz+,|`ycyjz\AjW)x2GD&X GB+b|wIv@> +Cv@ u{t~9\0;2pr)?~N3!b@$b!&bHy(~'}|T{{;:_z+' /y >'(b)lu2 l<((b~&r ;j^xZ"#&t ,++7U+b#b|O /;&"OTiswKT&T)vKT vT9uKTts9&,t+'Dr"q?IIbp(/aI"Y4o"@n{m2 azlK WO[AXatJ%vD!\`UkQMb?d@~EbyG&GCF!.GH/<G!>`/G"yG& JGCS&b!GcHO~<GGCbu& Cb!l(E& C@oD}"&<|E(&E &GC{IGGBSb!&b(Tz bGlGG6 GC Nzi@?yE>+&( ,|J /x >%xb +Cb+|w78ZvlRl` 4?ZvT~;`JfVc!}b(=z|(/={" zC!}b(=z|(/=z+y&x &w9!c(z{ D$$ Z 0,$CDB+-*.9RB@!>v /Iu" +C+|BH`i[@.H!>t(/ds"(^zr(/^H$K\)\q[@pb +C+|@,f-.fH&/okr/3EG9@SYu/t!Pm p!]f`@Hc!~b(;z}(/#|"(+z{(/ z"(zu(/+y+@ l+<x y`>/Hd@.x.&/ /,-D!@.w.&)@./ /5 .~,,&v.&!H$@bIHb^iy`>""&.!.x(/Ru"(Zz|(/ey+@/b(ez",",ej@/b az"!."r,,&i@.-""-.ft2 y{BHj|hWpPX9[(B@-b +b+,.n~
++7+D( ,+|y+"+-b~#((&}@>-1b|1t13&.0f@bH`i{@>z&y &!>(?9$ 0JY@..6x- N.w"(Hzv(/U&*hu /t3.xi-Ds{th9r2K@.q2 p{^Ip`>"!."c.b(p{o{ $[XO>fy!.o=r?/F#g`R, -"D".v~2 }{|K@b +C+-r+rb|0 /1{KVYz<\ly`># /!+" l<W-b!Xf,Y&(x'TwT9w[TwT9Sv[TVvT9Gu[TMuT9<t[TAtf9s(/rq2p0]HyT9dJT !z`Jfo ,++7VIn2Q{ ^o_gf^Zfg ;#&[TW{ z~"!}g|hf}#(z{)gzZf} zy]9sxkw `b,f/cffv 0z@uct(W .c2js3*fr(Tzqp)Wb&bg)@n/ /,zE2c"(Mz bbbog @nn!>, /y+`/f2])%xkml'wkvl'|kYjiw2_X '0pY_o
.@R-p@WSey;sXFl]"g)e~+T ~KT}+ +C{@(~{| ,++7~K@zb++&[{@&fz (-z(!.)(/-N(-y"xb wb c G D3v"ub tb cG D?s#!rcq(/p]9epkHS)"( n* /i4"(_zo(?i6"cn# ]zm6 CHON]9Nkago#dxDN!pwcq_ow B!;X6H0L @N0P l0<00L rt n7K`#b 2zn(/3+"& N|b++&~>@ l+<x }{+|K@ l+<x {,2z@/y,2!-bx@/y{; 6rz]&( ,]|T06a&b0E!&wg)(|!vb l!<!!t kJU| u[ty;sUd`|0$&l~bmk}?|b{b>@hz"(3zy"(x{w(/+v"(zu?4>Jt@>s'srq{r2?t>Ot?2} 3*tx@lb(Szo_.llm<QQbZ"llm<PPbmp@|&@l6P . o`Qbnn`[*pm >_mchhf_w/'n>y(/2~}+Vyk fBH!h(/H#Hw@!b(zK` @ bl<-z n w` b t(~ !k@~|2h?z{H/B\)/6[66K@~z!. &~2 Tz ^J]syEx(/Rw"(Nzv(/ND+JJ /du;Vt(/me$e >qyie? |Rqayeo@j|`xVy g~'}.@c| /#(z3 B{@/' $ D# )z>n~g D#w3&z(?38?,|d3?@Cb5hz5&;0@~D!> DdD!6DL!!t dN,D?@Uc! fUUC! d!G!N _JUKVy|2 ftf3y(/xw;\Ts28VzORDz_ (Vy@c!drH@n>!CO . nw((&Hw0!b *zHC(%z!t . z`V?Vh~2 =zC!}b(;z| /,V)+4,/@{b[ lMZ6MMCo!n\ lZ<[Zt[\DM['zI?K@yc{{ x{]?@yc{ xe;B /w]9<vk\M[Nd{WWf\R xVy@cdrFl<(5zdC!N d@co/.|< n w`(7zKFcFw@!Kb(7z'CD#$@>F~'}D@Fc|(/F D*@ dL(F&0`~K&KCNtL?@Wc`Wd{u&h_ W@Nzu&hW @~u &u&u&u0&uP&h0]9y?; LRDz_ (Vy@ f"@n2({_&D ~2Hz}@/)(@c~"""d . k@ /!!4!?@}b6"b7"f7"""6d0)+@~H_&D@ 88K@Hb8k@~_!>r(/D|2(D{{(/\z"(D{y(/\x"(\zDDK@_dF ov``4ppc!pf@obqzpiJ`0\ wkmv 8{!pmvPW@~4?@1b@/~02nw0z 1C1|01d>n 1G N0kTAT)AZTAT)SCZTVCT)GEZTMET)<GZTAGT)pLJ}|2H{"Hz"Hy"99baxwH*@~v2hN{uH/NNKVyN^ tXsX@~`;4 /r]9|qk@~j 2@gtg?` eO@pw|Gyvwsry8(@~+u"I(b IG,F-i~(/}" z|{"!f`J/qI&TZ _fI ,+|Z[hH`i?f)z(/<y"xww^^g)(-/ /,&J /f&_"(Iz (b(^bvg (- +b9+ba+u+,.n~
++7+D+K{ ,+|htIf)sg(--r"@q{dv*iF|=RL_,q .@R"p{^`{@~2( z~"H{}v|"H
{{@/ 2 Kwp<c:d@:c;f</5,;c~<;|:@^(z"{\y>n*Jxw(Dz==K=Kwp==bv(/O="F\9bF[v C F Bx(cz ,7h ,6 'RKHu{'t?\o0'ha{`?@vOPxs_yj<<99ba 9<~(>Vf} /@|#GbH{b9bIbfbbVT]+Zbz"@7z I"9 l9<~@ n!bb yyx&G|'H&o\p[N\{B ||@N.wH/J]9 vk@~ 9Cx@ X{XXK(fb @~,t'Df?;GqKzsi}DzXX?" Wy GD&~'}  GBbgGD\9/[@~S'SD? %{*% @~,t'D*?`Rf|5s=5d{zy)xy)wy)vy)ut5`~# /nb^^bs@/r@>^. l++7JK(/e\)bqR_kp ?o]9+nklyq(s|/BD^ -':A;iC @~6F@l<~( > n'@l<w(8' @/%~"}2?Al1,|@{(/zK2 9z!4JA&,?1-9.A6-n'0@~yP&P'8PP4x /Fw"'B @QcV]iQ!.v@/bj&}'(j^J@ub't'w'Q @sbarkT9S^! `s(~} ``\yl[vP&@bnb}p~Pd +@Lb({A /" .Ak@(/*>"D< ?@.Bf ~CBbCn}/|~)D{@~DD4!Pfr~)PdJD+@Ob(Q{&!.O@/av" +C+|QO6Qz2]ysy[&xKvq ~w nlkP'BL'|_6"'b({)!.(@/)2(kl@ l+<v(#"!&bh%{`#b(${&#&$0$4syx2(.z'!,+&,@'b2w(K!.by vV9Zi-!.b]/ut/DA$;"l(srf!.(/q >& b~btpto qVZntffml{oe??J  g+cphlr\!m6 Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search