Directory of image this file is from
This file as a plain text file
5 &'H89/$#! 7 9!132 7 9$132 7 1'20 7 1)12 7 9+030 7 1.22 7 1010 7 )28 7 )36 9 A7^[ 10 SWITCH1#C 9 1#J^] 9 1#L^] 9 9#P^ 9 1#S^] 9 Y#[^P 9 )$*^^ 9 9$,^ 9 1$/^] 9 9$1^ 9 9$4^ 9 9$7^ 9 9$:^ 9 9$=^ 9 1$A^] 9 9$C^ 9 1$F^] 9 9$H^ 9 9$K^ 9 9$N^ 9 9$Q^ 9 9$T^ 9 9$W^ 9 9$Z^ 9 1$]^] 9 A%^[ 9 Q%#^Y 9 &A%)^# 9 !A&/^K 9 9'W^ 9 1)^^] 9 9*!^ 9 1*$^] 9 9*&^ 9 9*)^ 9 9*,^ 9 1*/^] 7 )*6 9 Q*7^Y 8 TODAY Q*7 7 9*=JAN 7 9*@FEB 7 9*CMAR 7 9*FAPR 7 9*IMAY 7 9*LJUN 7 9*OJUL 7 9*RAUG 7 9*USEP 7 9*XOCT 7 9*[NOV 7 9*^DEC 7 !I+#INSTANT DIBOL V3.0328 7 )+D- 7 )+H- 9 1+I^] 7 I+UPAGE 9 1;A^] 9 9=I^ 9 9?S^ 9 1@^] 9 9DT^ 9 1DW^] 9 )DY^^ 7 "QSOSYNTAX ERROR 7 "QT-IMPROPER NUMERIC LITERAL 7 "QTKPICTURE TOO LONG 7 "QU)LITERAL TOO LONG 7 "QUGIMPROPER LITERAL 7 "QV%NEED FILE NAME 7 "QVCINTEGER FROM 1-15 REQUIRED 7 "QW!ALPHA LITERAL REQUIRED 7 "QW?HEADER IS TOO LONG 7 "QW]NO ENDING QUOTE 7 "QX;INTEGER REQUIRED 7 "QY7MUST BE S 7 "QYUINTEGER FROM 1-132 REQUIRED 7 "QZ3NOT DEFINED 7 "QZQTOO MANY LIST ITEMS 7 "Q[/TOO MANY DATA ITEMS 7 "Q[MIMPROPER DEFINITION 7 "Q +MUST BE IDENT 7 "Q IUNKNOWN DIRECTIVE 7 "Q]'NO INPUT DIRECTIVE 7 "Q]ENO PRINT DIRECTIVE 7 "Q^#MUST BE NUMERIC ITEM 7 "Q^ANO INPUT ITEMS 7 "RNO PRINT ITEMS 7 "R=TOO MANY COLUMNS IN REPORT 7 "R[TOO MANY RIGHT PARENTHESES 7 "R 9NOT ENOUGH RIGHT PARENTHESES 7 "R WTOO MANY LEFT PARENTHESES 7 "R!5IMPROPER USE OF DECIMAL PLACES 7 "R!SALREADY DEFINED 7 "R"1TOO MANY COMPUTE STATEMENTS 9 "R"Q^A 7 2"Q01 7 2"S02 7 2"U03 7 2"W05 7 2"Y06 7 2"[07 7 2"]09 7 2#10 7 2#!11 7 2##13 7 2#%14 7 2#'15 7 2#)17 7 2#+18 7 2#-19 7 !:#/XXX,XXX,XXX,XXX,XXX 9 :#H^ 9 B#K^[ 9 2#O^] 9 :#S^ 9 :#V^ 9 :#Y^ 7 *$, A 7 :$>FORMS (2,1) 7 R$I$RPG 7 2&W05 7 B&YXXPAGE, D4 7 B'%XXDATE, D6,D 7 B'1XXLINE, D2 7 B'=XXLEVL, D2 7 B'IXXLEVX, D2 7 Z'WXMIT (2,XXRHDR) 7 Z(&XMIT (2,XXHDR1) 7 Z(5XMIT (2,XXHDR2) 7 Z(DXMIT (2,XXHD00) 7 Z(SXMIT (2,XXPLIN) 7 :)%CALL XXTOTX 7 :)0CALL XXTOTY 7 :);CALL XXRESX 7 :)FCALL XXTOF2 7 :)QGOTO XXCOMP 7 :) GOTO XXRES 7 :*'GOTO XXREAD 7 :*2CALL XXTOTZ 7 :*=CALL XXSUM 7 "Z*KRECORD XXRHDR ;PAGE HEADING 7 "Z+*RECORD XXINPR ;INPUT 7 "Z+IRECORD XXPLIN ;LISTING 7 "Z,(RECORD XXHDR1 ;HEADER #1 7 "Z,GRECORD XXHDR2 ;HEADER #2 7 "Z-&RECORD ;WORK REGISTERS 7 "Z-ERECORD ;PICTURES 7 "Z.$RECORD ;TOTAL TITLES 0 7,^-(% 7 *.C& 0 ).3^U()?^U'2(^U(# 7 2.D10 0 )/6^U 7 *.F1 0 )0)071 7 *.GL 0 )1%/I2^U'4 7 *.HX 0 )337 Z(+ 7 *.I3 0 )4 7 *.J4 0 )58'4^U(,)0 7 *.K2 0 )68'0(3^U(- 7 *.L5 0 )7 7 *.M6 0 )88'6^UA9^UA:^U'5(&%/A;^U'3(&%I<^U)6 7 *.N0 0 )=2^U)617"4'S)=%0,^U)0@7#&A>^U'< 7 R.OIDENT 0 )?%I@^U'H 7 2.U19 0 )A6^UAB^U'4(&%+7#XAD^U':)4%0IC^U'0 7 :.WEND 0 )E%/IC^U+7$JAF7$TA>^U'R)=%0IG^U'< 7 R.ZHEAD1 0 )H%II^U'< 7 R/ HEAD2 0 )J%IK^U'< 7 R/&INPUT 0 )L%IM^U'H 7 2/,21 0 )N6^U'I)06^UAO^U'< 7 R/.COMPUT 0 )P%IQ^U'< 7 R/4PRINT 0 )R%IS^U'< 7 B/:END 0 )T%IU^U'H 7 2/>20 0 )V6^UAB^UIG7'*AW^UIG7'>AX^UIG7' AY^U'Q)=%0IQ^U'H 7 2/@24 0 )Z6^U'I)06^UAO7(N'< 7 R/BCOMPUT 0 )[%A ^U'< 7 R/HPRINT 0 )]%IS^U'H 7 2/N22 0 )^6^U'I)06^UIO7)JB7)T'P)=%0J ^U'H 7 2/P25 0 *!6^U'I)06^UAO7*<( '!%@+^U'H 7 2/R26 0 *"6^U'I)06^UIO7+B'G(&%/B#^UB$^U(;'<3^U'G 7 */T, 0 *%%J&^U'G 7 */U/ 0 *'%J(^U'8(&%J#^UJ)7,RB*^U)0'@7= 7 2/V15 0 *+%PJ,^U)0'@7=)0$PJ-7-0'H 7 */X8 0 *.6^UAB^U(=)^UJ/7-X(=)0'@7=67."'G*%%J&^U'8(&%B#^UJ)7.JB0^U'8(&%/J)^U'D'C67/('8(&%/J2^UB3^UJ17/F'E'C'D9^U'E)Z%@J4^U'E)Z670$(<'D'D'E!)0#70370.+70V'G(&%/B#^UB5^U'H*.6^U'>)5%0IB^U'@(?!'!%@J6^U'@'!(?9^U'H 7 */Y9 0 *76^UAB72&'@)=%@+^U(?)0!(?'@!8>'D'D'@!)0#703^U(?(?'@8^U+73,'G(&%/B#^UB5^U'H*.6^U'>)5%0IB^U'@(A!'!%@J8^U'@'!(A9^U'H*76^UAB74<'@)=%@+^U(A)0!(A'@!8@'D'D'@!)0#703^U(A(A'@8^U+75B(B(^U(C)^U(D(^U'8(&%/J9^U'G*%%J:^U'G(&%/J;^UB$^U(B 0 '<3^U'8(&%/J9^U'G*%%J<^U'G*'%/J;770B*^U'@)6%PJ=^U'@)0$@J=^U(C)0'@7=6^U(C*+%@J>78"'H 7 2/Z12 0 *?6^UAB^U(C)78@'8(&%/J9^U'G*%%/J;78TB5^U'>)0%0J@^U'@)0%0J@^U)0)07< 7 */ S 0 *A%/J@^U(D*A3^U'8(&%/J979PB#^UJ97:$'H 7 2/]13 0 *B6^UBC7:VAD^UB0^U'G*%%JD^U'C'C)09^UB5^U'>)0%0JE^U'G*%%/JF^UBG^U'9(&%JH^U'H 7 2031 0 *I6^UAB7<D(E(^U(G'<37<XB0^U(H'G3^U'G 7 *0!A 0 *J%JK^U'G 7 *0"D 0 *L%/JE7=@B5^U'>)4%0JE^U'K'@'A9^U'K)=%@JE^U(I)0'K7=6^U'A)=%@JM^U(J'K)0!'@7=67>F(I)=%@JN^U(J(I%PJN^U(H*J%JO^U(I 7 :0#015 0 *P%PJN^UJQ7?8(I 7 :0&510 0 *R%PJN^U'B)=%0JN7?L'8(&%/JS^U'G*%%/JE^UB0^U'G)1%/JE^UB3^U'G 7 *0)1 0 *T$?JE^U'G 7 *0*9 0 *U%OJE^U(K'G5^U(K/V'G3^UB0^U'G 7 *0+P 0 *V%/JW^U(#(K%@JX^U(#(K67ANB07AX'8(&%/JS7B"B#^UJ97B6'H 7 20,18 0 *Y6^UAB^UJ97BT'Q'"$PJZ^U'Q?^U'Q0F(E3^UJ97C<'Q'"%0J9^U'I)06^U'H 7 20.17 0 *[6^UAO^UJ97DL'G(&%/JE^U'< 7 R00PRINT 0 * %+^U'< 7 R06COMPUT 0 *]%+^U'< 7 R0<END 0 *^%+^UJE7 )'P)^U'8(&%B#7 =(/(7 GAD^UB0^U'G*%%K!^U'C'C)09^UB5^U'>)0%0K"^U'8(&%K#^U'@ 7 :0B003 0 +$%0K#^U)0)47<)E%+7"!BG^U'9(&%K%^U'G*%%/K"^U(1'K6^UB5^U'>)5%0K"^U'@'$%@K&^U'H)56^UAB^U'@'$67#E'@)=%@K'^U(2'D'D'@!)0#703^U(9'@6^UC(^U(9("%@K'^U("(967$A'8(&%/K)^U'G*%%/K"^UB0^U'G*J%/K*^U(1)=% K+^U(E(10F3^U(H*L%K,^U'H 7 20E23 0 +-6^UAB^UK+7&%'J'J)08^U(3'J6^U'J)0%0K+^U(!( (887&MB0^U'8(&%/K)^U'G*%%/K"^UK.7'5'C'C)097'?C/^U(4'D'D'@!)0#703^U(6'@6^U'8(&%K"^U(4)"%K)^UK07(;B#^UK07(O'H*+6^UAB^UK07)-(H*L%/K0^U'L(I6^U(3)=% K1^U'L'L)687)UC27*'P?^U'P'#%@K3^U'P'#%P 0 K^U'I)06^U'H 7 20G16 0 +46^UAO^UK7+%'P)0% K5^U(8)=%PK5^U(8)667+C(:)06^U(6)=%0K6^U(6(I67,!( ( (8!(68^U'P00(/3^UK7,]B0^U'G*J%K7^U'H*Y6^UBC7-EB*^U'@)6%@K8^U'H*Y6^UAB^UK 7.7'M)0'@7=6^U(8(8'M8^UK 7 *'K)^U'9(7 >'K?^U'K'Q%P+^U(E'K0F3^U(G'<%/K9^U'9)33^U+ 0 7!XAD^UB5^U'R)=%0I>^U'>)0% +^U'H)V6^UAB^UI>7#<'5(^U'R)=%0K:^U'4(&%+7#Z'*)0)07/& 7 20I64 0 +; )6)67/&8^U'+'03^U'6)=%@C<^U)6)0': 7 *0K7 0 +=!7).G^U'6'6)09^U'R)=%0C>^U+7%>'3(&%/K?^U)6- $^U'3)337% )6)=2^U'7?^U(.'74^U)6(*.G^U)6)02^U'6 7 20L58 0 +@6^U+7'@'R)=% +^U')(^U'M)56^U'K)^U'C)7(2'L'M'M)6!7U6^U'L'L7+ 7 *0N^ 0 +B3^U'L'C%@KC^U'C'L67(Z'M'M)88^U'K?^U'K'R$@KA^U)6)0'C+=!7).G^U'6'6)09^U'+(^U', 7 B0O**** 0 +D3^U'M)06^U'K)7*4'6)=%@C<^U'L'M'M)6!7U6^U)0)47+'M)4!'M)7!7U4^U+= 7 20S36 0 +F7+'L0T3^U)5)57+ 7 *0U- 0 +G3^U)6)0 7 20V43 0 +H7).G^U'6'6)09^U'M'M)48^U'K?^U'K'R$@KE^U)6)02^U'6'6)09^U'R)^U+7,^B5^U'>)4%0KI^U'B)=% +7-<'H 7 20X11 0 +J6^U)0)07=)06^U'@)06^UIB7.LB5^U'>)0% +^U'>)4% KK7/*'<(^U'H)06^UIB7/H'B)=%0KL^U'@)8%@KM^U'@)8670&)0'@7<)0'@7=4^U+70X'5(&%/A;^U'R)71,)0'..KO^U': 7 B0Z4096 0 +P)4)47-&+; )5)57-&!#)6 )69^7($(^U'Z(^U'M)06^U'L)0672F'L'L70& 7 20^61 0 +R%0KS^U'M'M+=!*.%*. )08^UKT73$'M'M7Z'L'L703^U'M?^U'L'L70(&%KT^U($)3373L'L?^U'L':%@KQ^U'0'Z3^U':'M6^U'5)33^U($(&%/KU^UID74R)01^USV^U)0-.^^UAKN75:'0)E3^U':)4675N'C)^U'8(^U+76J'>)^U'?(^U'B)^UB0^U'G(&%+^U'D'C6^U'G(%%KW77Z 0 'G 7 *1 0 0 +Y$?KZ^U'G*U%?K[^U'G*J$?K ^U'G 7 *1!Z 0 +]%OK ^U'?)33^UK[794'G 7 *1". 0 +^%/K ^U'B)=%0L^U'B'C6^UK[79 'H)66^UBC7:0B3^UKX7;"'E'C6^U'@'E'D9^U'?(&%L ^U'>)06^U'<(^U'@)8%@L!^U'@)867<('<'D'D'@!)0#703^U'H)46^U'B)=%0AB^UL"7=.'@)=% +^U'>)46^U'B)=% L#^U'@'@)097=V'H)76^U'@)=%@L$^K'H)56^U'@*P%PL$^U'B)=% L%^U'L)0 0 6^U'K'B'D9^U'K)=% L&^U'L'K7='D'B)0#705^U'L'L'K87?D'L'@%PL"^U'L'@7='B)0!'E)0#705^U'A'E'B#)09^UL"7@,)0'@7='D'E)0#705^U'A)^UL"7@TAB^U'@)06^U'B)^U'A)^U)0)07=)06^UL"7B.'>)56^U'K)06^U'H)/67BL'C':$PL(^UB3^U'G(%%/L'^U'D?^U'@'C'D9^UB0 0 ^U'H)56^U'@' %PL(^U'@)=%P+^U'H)767D0AB^U'@)06^UL"7E,'G(&%B0^U'G+Y$?L)^U'G*U%?L*^U'G*J$?+^U'G+]%O+^UL*7F('G 7 *1#; 0 ,+%L,^U'G+^%L*^U'G(%%/+7FF'C'C)09^UL-7FZ'8)337G$'G(&3^U+7GVB0^U'D'C6^UL.7H4B37H>'G(&%/L/^U'@'C'D9^U'@'%%@L0^U'H)46^UAB^U'@'%67I:'8)33^U+7J,B3^U'G(&%/+^U'8(&%J0^U+7K2'8(&%/L1^U'C?^U'C':%PL2^U'G'C'C703^U+7L$'8)337L.'G(&3^U 0 +7M 'L*+%@L3^U'L*+67M4'M)06^U'L'L(J9^U'L)=%@L4^U'L'L0U6^U)0'L84)V'L#)A8V3^U'M'L)087N0(J)=% L5^U'L(J6^U'M'M84+^3^U'M?7NX'M'M84)33^U'M?^U'L'L)09^U'L)=%PL67O@'M'M84+G3^U(6'M6^U+7P<(7)06^U(5)^U'L)06^U'M)067Q$'L'L82 7 *1$* 0 ,8%/L9^U(7?^U'M'L'M9^U'M(5%@L:^U(5'M67QV'M'L)087R 'L?^U'L'@%@L7^U(7';%@+^U';(76^U+7S&'H)06^UJC7S:'I'D6^UIO7SN'I'C67SX'R?^U'S?^U'R'&%P+^U)0)47T'H6^U)5)87T'I6^U'R/U'T6^U+7U<T;^U)0-.^^UA)01^UT;^U)0-.^^UA+7VB*. 7 !21%''?NO SOURCE FILES 0 ,<.G^U,7 5'8(&%B#7 ?'N)^UAD^UB5^U'Y'D6^K'>)0%0L>^U'G 7 *17= 0 ,?%/L@^U(R(^U'['<3^U'](^UDA^K'R)=%0L=^U(M'[3^U'<'[3^UBG^U'9(&%LB^K(J(P% LC^U'H 7 21830 0 ,D67#G'I'Y6^UAO^UL=7$/'Q'"%PL=^U'Q?^U'Q'"%@LF^U'H*[6^ULE7%!(Q)33^U(N']3^U(O*+%@LG^U(O*+67%I'H,D6^U(P(O%PLE^U(P)=$@LE^U'Q0F(R37&1'O''%PL=^U'O?^U'O''%@LH^U'H 7 21:32 0 ,I6^ULE7'-'L)06^U'K'O 7 :1<118 0 ,J 7 :1?117 0 ,K97'A'G'L'L703^U'G(&%LM^U'G+^%LM^U'G,+%L=^U'K'K8S'G3^U'K?7(='L?^U'L':%@LL^UL=7)%'G(&%/L>^U'< 7 R1BPRINT 0 ,N%+^U'<)T%+7)CB#^UL=7*?'N'($@LO^U'H 7 21H29 0 ,P6^UIB7*]'N?^U(R(^UB0^U'G(&%J#^U'C'C)09^U'G(%%/LQ^UB5^U'R)=%0+^U'8(&%J#^U'](&%/J#^U']*J3^U(O'@6^ULR7-)DS^U'R)=%0+^U']*L3^U(O'@6^U(P'A67.%'8(&%/LU^U'G 7 *1J) 0 ,V%LW^U'G 7 *1K+ 0 ,X%LY^U'G+G%LY^U'G,8%LZ^U'G*'%L[^UJ#7/I'F'C6^UDS^U'R)=%0+70''G,8%L]^U'G*'%/L^70;'^'@6^U('A6^UDS^U'R)=%0+^U'@'@'^8^U'A'A(8^UL 71A'A(P% M^U'H,D6^U'I'F6^UAO^ULT723(O'@$PLT^U(O'@6^ULT73/DS^U'R)=%0+^U(O(O'@8^U(P(P'A8^ULT74?DS^U'R 0 )=%0+^U(P(P'A9^ULT75E'H 7 21L27 0 - 6^U'N)0%@JC^UB0^ULR76K'N)0% LR^U'H 7 21N28 0 -!6^UJC773'N'N)09^U+78/B0^U'G,X%LS^U'G+G%LS^U'C'C)09^UB5^U'R)=%0+^U'G 7 *1P( 0 -"%/M#^U'@)=%0J#^U'N/X(R3^UDA^U'R)=%0+^UE$^U'@(O' 9^U'A(P' 9^U(R'N/X3^U+7:Y'>)0% M%^U'>)4% +^U'H+-6^UIB7;KBG^U'9(&%/M&^U'H*+6^UIB7<=E$^U'@(I' 9^U'A(J' 9^U+7=/' )^U'G 7 *1Q# 0 -'%/+^UB5^U'R)=%0+^U'>)4%0M(^U'B)=%0M(^U)0'@7=*+%PM(^U)0'@7=)=%@M(^U' )0'@7=6^U+7>S'H+=6^UIB^U, 3 %)!/ 26 !9$1'1)9+1.10)2)3/I5A7.Q<A71!=/1!?1!A.Q!C1#CTI#E)#G)#H)#I1#J1#L)#N)#O9#P1#SQ#U Y#[)$*)$+9$,1$/9$19$49$79$:9$=)$@1$A9$C1$F9$H9$K9$N9$Q9$T9$W9$Z1$]A%Q%#Q%))&%1&/ Q&C9'W.Q'ZQ)X1)^)* 9*!1*$9*&9*)9*,1*/)*1)*5)*6Q*79*=)*5&9+!1+B9+E1+I1+Z(1,(1-)9,"Q,"1,@!Q,B9 X9,[1,^9- 9-#9-&Q;#"!;)1;A/A;E9=I/A=O9?SQ?Y1@)@! Q@% Q@3Q@%)@+9@,1@/)@1)@2QDM)DS9DT1DW)DZ QDM-QD]"QSO2"Q!:#/"*#C:#E:#HB#K2#O*#Q*#R:#S:#V:#Y *$!R$( :$>R$IR$O/"$U.R$W-R%2&W B&Y Z'W :)%"Z*K*.C2.D*.F*.G(HT*.H*.I*.J*.K*.L*.M)02(IF(]B(I=*.N(]+R.O(J(2.U)/G(IY)"W .W(L7(J+R.Z(K#R/ (K(R/&(K-2/,)/SR/.(K?R/4(KTB/:(KW2/>(N8(O8(P82/@R/B)0NR/H2/N(VK(L'2/P2/R)/@)"&*/T(ME*/U(LT(N5)!H2/V(M%(M1*/X(M8),+(MQ(M[),:(N*)%/(N[*/Y(O[(R<(Q&(R0(QS(Q>(QH2/Z(R5*/ 2/])/N(S,(UD(V4( K(S$20*0!(S=*0"(T"(UI(T9:0#(TD:0&(UR*0)*0**0+(U>(U;20,(V 20.R00R06R0<(VT(VX( (Z4(W?:0B(Z9(X&(XE).=(ZB(YQ(YB(Y.20E(YW)+>(ZY(ZV), ([320G([B([P( -( =( R(]P20I(^<*0K)%(^J20L)8*0N)PB0O) :20S*0U20V)!U20X)"=)"3)"L)# )$PB0Z)#G20^)#])$4)%&)$]))?)%I*1 )&$)&<)&A*1!*1")&5)'6)' )*>)'J))*)(Z)(?))L)*5)*Z)+**1#)+2)+7)+J)+G),$) U),P)-&)-I).0)- ).M*1$)/,)/&)0F!21%)0T)40*17)4 )45)1 )2V218)1S)20)2B)3*21::1<:1?)36)3UR1B)4A21H)54)87)8?)5H)8+*1J)7]*1K)6))7:)7N)65)6@)6 )7.21L21N*1P)9A):/)9R): *1Q); 2221 FMAXLINMAXDATMAXLSTMAXTITMAXPICMAXERRMAXEXPMAXXIMAX ERRECDERRLNMERRLINERRFLGXLINE INPUTLINLNUMINLINESWITCHWORKA LPTOPNLPTSW LPTLINLINES PAGES EOL FINDSWINLSIZNUMHDRWORD NUMLITATMTYPLETSW ATOMSZATOMDPDPCOL ICOL ACOL1 ACOL2 SCOL ICHAR ERRCODERRCOL CNUM I J K XI COMPI LISTI NAMEI FATALIFATALCFATALMFATALELEVELSLEVELNXTABLEHLDCOLHOLDIRHOLDNMHOLDDPEXPRMDXASIZ XADP PWIDTHFIRSTABIGHS TOPFLGBLANKXSQUOTESPACE TODAY MONTABSQUOTXSHDR SHDAY SHMON SHYEARSHPAGELISTE LISTERLISTIDLISTITLISTACLIST CLISTHWLISTISLISTNHLISTFSLISTHSLISTWNPROGIDAUTHORPROGU HEAD1THEAD1SHEAD2THEAD2SFILNAMFILUNTSUMARYDATANEDATANTDATANMDATAM DATAS DATADPDATALVDATAWKXNAME XMOD XSIZ XDP XWK XENTRYCOMPT ERRMESPICMSPPICMSKWORKB DESCRPPLSIZ TEMP4 TOPLEVHIBRK LOBRK HOLDHSOC L HCOL PREC01SPACPCFORM21PROGF SPACE6PRGRECPRGLINPRGSTMWRKSC WRKSV XMIT2 CALLERGENREC.. Note: Lines longer than 256 characters were wrapped