Directory of image this file is from
This file as a plain text file
5 &'O#>/$#!
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 707 6'4(^U
7 *.C2
0 )/)/71
7 *.DL
0 )0%/I1^U'4
7 *.EX
0 )23^U)/- $^UA37!((W(^U'*)^U)'(^U
7 2.F10
0 )4/V
7 *.HA
0 )53^UA6^U)4/W([6^U
7 *.I4
0 )7)$(=;-?^U)'
7 *.JSTART ;
0 )83^UA9^UA:^UA;^UA<^UA=^UA>^UA?^UA@^UAA^UAB^UAC^K'4(&%/AD^UAE^UAF^UAG^UAH^UAI^UAJ^UAK^UAL^KAM^U)'
7 :.SEND
0 )N3^U(Y
7 *.V3
0 )O6^UAP^U)71^U'4(&%,^U)/
7 *.W0
0 )Q2^U)/1^U,7'LAM^U)'
7 *.X1
0 )R1-3^U(Y
7 2.Y29
0 )S6^UAP^U)')!3^U)4
7 2.[11
0 )T9'
7 2.]6,
0 )U3^U
7 2/12
0 )V)V9'(%3^U
7 2/!13
0 )W
7 2/#18
0 )X9'(;3^U
7 2/%19
0 )Y)Y9'(%3^U(Y)Y6^UAP^UAZ^U)'
7 2/'XXHDAT, A8
0 )[3^U(Y)46^UAP^UAZ^U)')!3^U)4
7 2/117
0 ) 9'
7 Z/35, PAGE
0 )]3^U)V)V9'(%3^U)X)X9'(%3^U(Y)X6^UAP^U)'
7 2/:XXHPAG, A4
0 )^3^U(Y)46^UIP7+P'L(
7 2/D23
0 *#)/%6^U'L)O$PJ ^U'L)O6^UJ 7,VAM^U)')/1-3^U(Y)S6^UAP^K'K)R67-R(E'K0F3^U(L(&%/+^UB"^U'K?^U'K'Q%@J!^U+7/,AM^U)')O1-3^U(Y
7 2/F31
0 *#6^UAP^U'J)Q% J$^U("
7 */H6
0 *%$PJ&^U("*%6702("("
7 */I7
0 *'8^U'L(!("9^U'L)Q$PJ(^U( 'L#'!%PJ$^U(/)R003^U(8(8'L9^U)R00(/3^U( ( 'L9^U(!("6^UJ(71V(")72*'K)R6724(/'K003^U(8)Q% J*^U'L(86^UB 72 )'
7 */JXXPF00, A
0 *+3^UB,^U
7 */S5
0 *-*%9'(X3^U'L(66^UB.^U)4)V9'(X3^UAP^U'K?^U'K'P%@J)^U(")Q%@+^U)(
7 "/TRECORD,X
0 */3^U(Y
7 2/ 16
0 *06^UAP^U'L(!("9^U'L)Q%@J1^U)')!3^UB.^U)4)V9'(X3^U(Y)V6^UAP76$)'
7 */^XXTOTM, A
0 *23^U'L("6^UB.^U)4)V9'(X3^U(Y)V6^UIP77>(Z(?)/ )R9^U(Z( %PJ3^U'K(?677 (Z(Z8>'K'K8>3^U(Z(Z)R9^U(Z(Z8>(^U(Z(Z)R9^U'K'K)R9^U'K)R%PJ4^U(?(?)/ )R979,(?)Q%0J5^U(A)Q% +79@AM^U)')71-3^UB6^U)'*-1-3^U(>(@3^U'M(?6^U(?(A6^UB6^U(?'M6^U+7;.
0 (?)Q% +^U(Y
7 20'26
0 *76^UAP^U'L( (?#)/%6^U'L)Q%PB 7< 'K)R67<*)')!3^U(?
7 20)60
0 *:%@J;^U)4)V9'
7 :0+60,
0 *<3^U)W)W9'(%3^U
7 20.14
0 *=
7 20073
0 *>9''K'K
7 20259
0 *?!8>3^U
7 20474
0 *@*@9'(%3^U(Y*@6^UAP^U(?(?*:9^U'K'K*:8^UJ97=X(?
7 *069
0 *A%PJB^U)4)49')O)O8?4^U)T)T9'
7 *07,
0 *C3^UJD7>@)4)T9')/)O8?4^U)V)V9'*C37>T)W)W9'(%3^U*=(?)W!9''K'K(?!)R#8>3^U(Y(?*=8^U(Y(Y9'(%3^UIP7@$AM^U)'*%1-3^U(Y*#6^UAP^U'K)R67@V)''K1*3^U(Y)V6^UAP^U'K?^U'K))%@JE^U)'
7 208XXFILE, A6
0 *F3^U(Y)46^U(B)%%JG^U)T)T9'*C3^U)V)V9'(%3^U)Y)Y9'(%3^U)W)X9'(B3^U(Y)Y67BXAP^U)'
7 20BXXUNIT, D2
0 *H3^U(Y)46^U(C)Q% JI^U)T)T9'*C3^U'K(C6^UB,^U)V)W9'(X3^U(Y)W67D2AP^U'O)Q%@+^U'K)R67DP(E'K0F3^U(L(&%/B"^U'K?^U'K'Q%@JJ^U+7F 'J)Q%@+^U'K)R67F4(/'K003^U(3)Q% JL^U)'
7 :0LXXAC00, D
0 *M3^U*A)49'([4^UBN^U*-*%9'(X3^U(E(10F3^U'L(I)/8^U'L
7 20W15
0 *O%@JP^U'L*O67GXB.^U)V)W9'(X3^U(Y)W6^UAP7H@'K?^U'K'P%@JK^U+7I<'K)R67IF(E'K0F3^U(K)Q% JR^U)'
7 Z0YXX0000,
0 *S3^U)O)O9'(K4^U(X'K4^UBT^U)7*%9'(X3^U*A*A9'(H3^U'L(I6^UB.^U)4)V9'(X3^U(Y)V6^UAP7KH'K?^U'K'Q%@JQ^U+7 #)'
7 *1 PROC 1 ;
0 *U3^UA9^UAM^U)(
7 !Z1)XXHDAT=XXDATE, XX/XX/XX
0 *V3^U*O*O9((%3^U
7 21@24
0 *W*W9((%3^U(Y
7 21B32
0 *X6^UAP^U(B)%%/JY^U)(
7 ":1DDISPLAY (0,0, FILE NAME: )
0 *Z3^U*=*=9((%3^U*7*79((%3^U(Y
7 2235
0 *[6^UAP^U)(
7 !R2!ACCEPT (XXLEVX,XXFILE)
0 * 3^U(Y
7 22730
0 *]6^UAP7"M)(
7 "*29INIT (1,IN,XXFILE,XXUNIT)
0 *^3^U(Y
7 22R33
0 +6^UAP^U)(
7 !J2TXMIT (1,XXINPR,XXNOD)
0 + 3^U(Y)S6^UAP^U)(
7 B3)INIT (2,LPT)
0 +!3^U(Y
7 23520
0 +"6^UAP^U)(*%1,3^U)Y)Y9'
7 *37T
0 +#3^U'J)Q%0K$^U([)R%PK%^U)(*-1,3^UK$7%#)Y)Y9'( 37%-(Y)Y6^UAP^UAM^U)'
7 "J38XXREAD, XMIT (1,XXINPR,XXEOF)
0 +&3^U(Y)S6^UIP7&3)4*O9'(;3^U) ) 9'
7 *3U-
0 +'3^U)Y
7 23V42
0 +(9'(<3^U(Y+(6^UIP7'C([)R%@K)^UAM^U'J)Q% K*^U)(
7 Z3XXXLEVX=
0 ++3^U*0*09'([)R#4^U(Y*06^UAP7(S'K*A67(]'K/V(&%K-^U'K/V( %K.^U'J)Q% K.^U*A*9'
7 Z4XXLEVX=XXLEVX-1
0 +/3^U(Y*6^UAP7)Y'L)R67*#(E'L0F3^U(K'K%0K1^U)(
7 #*4.IF (XXXXXX.NE.XX0000) GOTO XXBRKP
0 +23^U)W)X9'(G3^U
7 24O25
0 +3+39')O)O7K4^U(X'L4^UBT^U*7
7 24Q28
0 +49'(X3^U(Y
7 24S41
0 +56^UAP7+G'L?^U'L'Q%@K07+['K'K)R9^U'K)Q%PK,7,/)(*-1,3^U(Y)Y6^UIP7-+AM^U)'
7 Z4UXXCOMP,
0 +63^U'O)Q%@K7^U'K)R67-S)('K0S3^U(Y
7 :4 126
0 +967.'(Y(Y9'(&%/K;^U(Y(Y)R9^U(Y
7 *58
0 +<%PK:^UK=7.OAP7.Y'K?^U'K'O%@K87/7'J)Q%@K>^U'L)R67/K(/'L003^U(3)Q% K@^U)(
7 !B5 XXAC00(1)=XXAC00(1)+
0 +A3^UBN^U)W*=9'(X3^U**W9'(X3^U(E(10F3^U)S
7 25434
0 +B9'(G3^U(Y+B6^UAP71/'L?^U'L'P%@K?71M(D(&%/KC^U'K)R672!(/'K003^U(E(10F3^U(K)Q% CE^U'K?^U'K'P%@KD^KCF^U)(+<1,3^U(Y)Y6^UAP73E)(*'1,3^U(Y)Y6^UIP7 $AM^U)'
7 !*56XXEOF, XXLEVX=10
0 +G3^U(Y) 6^UAP^UAM^U)'
7 Z5GXXBRKP,
0 +H3^U'J)Q%0KI^UCF^UCJ^U([)R%@KK^U)(
7 "B5NIF (XXLEVX.NE.10) GOTO XXRES
0 +L3^U
7 26*37
0 +M+M9'( 3^U(Y+M6^UAP^UKK7":)(
7 "6,XXLEVL=1
0 +N3^U(Y*06^UAP^K'K)R67#,'K/V(&%KP^U'K/W)R%0KQ^U(D(&%/KR^UKS7#T'K/W)/%0KT^U(D(&%KT7$(CJ7$2'K)4% KU^U)()R1,3^U(Y)Y6^UAP7$Z)(
7 ":64IF (XXLEVX.EQ. ) GOTO XXRES
0 +W3^U
7 26O36
0 +X+X9''K/V3^U**9''K/W4^U(Y+X6^UAP^U)(
7 :6QINCR XXLEVL
0 +Y3^U(Y)Y6^UAP7&*'K?^U'K)4%@KO7&H)()/1,3^U(Y)Y6^UAP^UAM7'0)(
7 :6 FORMS (2,0)
0 +Z3^U(Y)Y6^UAP^U)(
7 "7'FINI (2)
0 +[3^U(Y*06^UAP^U)'
7 !"7/XXNOD, FINI (1)
0 + 3^UAP^U)(
7 B7?STOP
0 +]3^U(Y)V6^UIP7)('L)R6^UCF7)<(/'L003^U(3)Q%@L^U)(
7 !Z7CXXPF00=XXAC00(1),XXMF00
0 , 3^U)R)/8X)/)O7L4^UBT^U)W*=9'(X3^U*]*#9'(X3^UBN^U+"
7 27Z21
0 ,!9'(X3^U(Y*#6^UAP7+*'L?^U'L'P%@K^^U([)R%@L"^U)(*A1,3^U(Y)X6^UAP7,&)(+<1,3^U(Y)Y6^UAP^U'K)4% KK^UKV7-6AM^U'K)467-J'K/V(&%L$^U)'
7 Z7 XXRES ,
0 ,%3^U*%*%9''K/V3^U'L)R6^U'K)4%0L&^U*%*%9'+#3^UL'7.P(E'L0F3^U(K'K%0L(^U)(
7 Z8#XXL000=
0 ,)3^U)T)T9''K/V3^U(X'L4^UBT^U)V*=9'(X3^U*0,!9'(G3^U(Y,!6^UAP704'L?^U'L'Q%@L&70R'J)Q% L$^U)(
7 Z8*XXLEVL=
0 ,*3^U*0) 9''K/W4^U(Y) 6^UAP^U)()O1,3^U(Y)Y6^UAP72"'K'K)R9^U'K)Q%PL#72@([)R%@L,^U)()71,3^U(Y)Y6^UAP73((#([% L-^U(#)R% L.^U)(
7 "B81IF (XXLEVX.LT. ) GOTO XXRESA
0 ,/3^U**9'(#4^U(Y+X6^UAP74$)(
7 Z8MXXLINE=
0 ,03^U(Y*O6^UAP^U(#)R% +^U)(*-1,3^U(Y)Y6^UAP^U)'
7 Z8TXXRESA,
0 ,13754([)R%@KJ^U(D(&%KJ^U)(
7 "B8[IF (XXLEVX.EQ.1) GOTO XXCOMP
0 ,23^U(Y+X6^UAP^UKJ76N(")Q%@+^UAM^U)'+<1-3^U(Y)S6^UAP^U'M)R6^U([)R% L377T'K)R677^(/'K003^U(E(10F3^U(K'M%0L678<)'*C3^U'L("6^UD7^U(Y*%#(Y)/#9'
7 J97TOTAL
0 ,83^U'M)4% L9^U'L(Y(9#*'9^U'L(Y+<#9'(2379B'L'L9'
7 *9<*
0 ,;%/L<^U'L'L9'(79V'L?^U'L(Y*'#$@L:^UAP^UL=7:>'K?^U'K'P%@L57:R'M?^U'M)4$@L4^UL37;0(Y)W#(Y+<#9'
7 R9=REPORT
0 ,>3^UAP^U)(
7 "9CRECORD,X
0 ,?3^U(Y*06^UAP^U)'
7 :9KXXTITL, A
0 ,@3^U*A)49'([4^U'L("6^UB.^U)V*=9'(X3^U(Y*=6^UIP7 %AM^U'L)R6^U)'
7 !:9VXXTOF, FORMS (2,0)
0 ,A3^U(Y)Y6^UAP^U)(
7 ::)INCR XXPAGE
0 ,B3^UAP^U)(
7 J:4XXHPAG=XXPAGE
0 ,C3^U(Y,!6^UAP^U)()R1+3^U(Y*6^UAP^U(?)Q%0LD^U(A)Q% LE^ULF7"E)()/1+3^U(Y*6^UAP^U'L?^U(A)Q% LG7#7)()O1+3^U(Y*6^UAP^U'L?7$)()#3^U(Y)Y6^UAP^U'L?7$G';)Q% LH^U'L'L)R!';8^U'K)R67%%)()71+3^UB,^U,!
7 2:A22
0 ,J9'(X3^U(Y*6^UAP^U'K?^U'K';%@LI^U)()#3^U(Y)Y6^UAP7&S'L*:'L9^U)(
7 Z:CXXLINE=
0 ,K3^UB.^U+<)49((X3^U(Y)X6^UAP^U([)R%@LL^U)'
7 Z:JXXTOF2,
0 ,M3^U'K)R67(-(/'K003^U(E(10F3^U(K)Q% LO^U)(
7 *:QXXPF00=XX
0 ,P3^U)X)X9'(K4^U(X(14^UBT^U)Y,!9'(X3^UDQ7)G'K?^U'K'P%@LN^ULL7*C'J)Q%@LR^UAM^U([)R%@LS^U)'
7 R:ZXXSUM,
0 ,T3^U(D(&%/LU^U)'
7 Z; XXTOTX,
0 ,V37+I'K)R67+S(/'K003^U(3)Q%@LX^U)(
7 %";'XXAC00(XXLEVL+1)=XXAC00(XXLEVL+1)+XXAC00(XXLEVL)
0 ,Y3^UBN^U)W*=9'(X3^U*]*#9'(X3^U
7 2;W47
0 ,Z
7 2;Y48
0 ,[9'(X3^U(Y
7 2;[56
0 , 6^UAP7--'K?^U'K'P%@LW^K(D(&%LS^UDL^UAM^U)'
7 !2;]XXTOTX, CALL XXSUM
0 ,]3^U(Y)X6^UAP7.Q)'
7 Z</XXTOTY,
0 ,^3^UCF^U)(
7 Z<6XXPLIN=
0 -3^U(Y*O6^UAP^K'K)R67/W(/'K003^U(3)Q%@M!^U)(
7 "B<=XXPF00=XXAC00(XXLEVL),XXMF00
0 -"3^UBN^U+",!9'(X3^UB,^U)W*=9'(X3^U*[+X9'(X3^U(Y+X6^UAP71;'K?^U'K'P%@M ^K(")Q%@LR^U)(
7 !J<YXXTOTM=XXTITL(XXLEVL)
0 -#3^U(Y)S6^UAP72A)'
7 Z=.XXTOTZ,
0 -$3^U)(*-1+3^U(Y*6^UAP^UE%^U)(
7 Z=5XXPLIN=
0 -&3^U(Y*O6^UAP^ULL749'J)Q%@+^UAM^U)'
7 Z=<XXRESX,
0 -'3^U'K)R675!(/'K003^U(3)Q%@M)^U)(
7 Z=CXXAC00(XXLEVL)=
0 -*3^UBN^U)W*=9'(X3^U(Y*6^UAP76''K?^U'K'P%@M(^ULL77#'K)R6^U'9(777(/'K003^U(E(10F3^U(H
7 *=RD
0 -,%/M-77U'9(&%/M/^U'9)23^UAM^U)'*'1-3^U(Y+36^UAP78Q)'
7 Z=SXXMF00,
0 -03^UB,^U*-*%9'(X3^U'L(66^UD7^U(Y(6#(Y)R#9'(43^U(Y(Y9'(%3^UAP7:5'K?^U'K'P%@M+^U+7;1';)Q% +^UAM^U'K)R67;O)'
7 B=ZRECORD XXHD
0 -23^UB,^U)W*=9'(X3^U(Y*=6^UAP^U))^U) )^U'M)R67=(/'M003^U))(88^U(:(9$PM4^U'L(:6^UM57=Q'L?7=['L(9%PM7^U'L'L82,;%/M67>/(^'L(:9^U(^)Q% M8^U'L(66^U(E(10F3^U(H-,%/M9^U(6(684+'%/M:^U'L'L)R97?5'L?7??'L'L)/%(^)/%#)!) 9^U'L)Q%@M;^U
0 ) ) 'L8^UB 7@')'*C3^U'L(^6^UD7^U(Y(^#(Y)R#9'(:(:(^!)R#823^UAP^U) ) (^87A#(:(:(^!)R87A-))(68^U'M00(/3^U'M?^U'M'P%@M3^K'K?^U'K';%@M1^U+7B['K)R6^U'L)R67C/'K/V(&%M=^U( 'K/V3^U'K/W'L6^U'L?^U'L)/%0M=^U(]'K/V37D+'K?^U'K*A%@M<^U
0 (['L6^U)4/V)53^U)4/W([6^U(#(#/W6^U+7EO(Y)R6^U)'
7 *>&;
0 ->37FA)7)R(Y)/!9&.G^U'4(&%M?^U'+)'3^U'6)Q%@AD^U'*'**-8^U)/)R(Y*'!7).G^U'6'6)R97GG)'(^U+7H9(X(^U'L*A%@M@^U'L
7 2>'99
0 -A%@MB^U(X'L4^U+7I+)R)/8X)/)O7L4^U+7I?)R)R8X)O)O7L4^U+7J1)R)/8X(34^U(3)4$P+^U)R)R8X
7 *>)0
0 -C3^U+7K7)R)/8X)/)O7K47L)R)R8X(&%/+^U)R)R8X-C3^U)/)/8X(&%/+^U)/)/8X-C3^U)O)O8X(&%/+^U)O)O8X-C3^U+7MCB.^U(Y)V6^U'L-A%PMD^U'L*A%PME^U(Y?7N5(Y?7N?)()53^U)4(Y)/#9')R(Y)T#8X3^U(Y)R#(Y)R#9'*C3^U(Y(Y9'(%3^U(Y(Y'L!)R8^U(Y(Y9'(%3^U
0 +7P#)(
7 Z>*XXPF00=
0 -F3^U*0,!9'(G37P7B,^U)W*=9'(X3^U(Y,!67PU(Y(Y9'(&%/MH^U(Y(Y)R9^UMG7Q3(H-,%/MI^U(Y)R!(Y*-!9'
7 J>1,XXMF
0 -J3^U(Y*%!(Y*'!9')W*=9'3^U(Y(Y*'87Q[IP7RC)'(G3^U'L*%67RW'L'L9'(&%/ML^U'L'L)R9^U'L)Q%PMK7S5'L?^U'L'L9'*C3^U*A*A9'(H3^U'L(I6^UB.^U)4)V9'(X3^U(Y)V6^UIP7U#)(
7 ":>6IF (XXLINE.LE.0) CALL XXTOF
0 -M3^U(Y*[6^UIP7V'J)Q% +^U)()#3^U(Y)Y6^UAP7W%)(
7 Z>QXXLINE=XXLINE-1
0 -N3^U(Y*6^UIP7X!)(
7 R? RETURN
0 -O3^U(Y*=6^UIP7X])')!3^UB.^U)4)V9'(X3^U(Y)V6^UIP7Z-'3(&%/MP7ZU)/)Q27['7?^U(.'74^U)/(*.G^U)/)R2^U'6
7 2?&58
0 -Q6^U+^U,
3 %R!/
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(O&*.C*.D(O;*.E)H62.F*.H)@2*.I *.J)""(SE(R (Q$(VQ)<X)02);9(ZV(],(^@)H
)I)";)'G),B)$Q)7'):A)3/)A7:.S*.V)A@*.W*.X2.Y2.[2.]2/2/!2/#2/%(RH 2/'2/1Z/3 2/:2/D)H#(S.)F52/F(TR*/H(T!*/I(TV(T[(U, */J)C/*/S)B1 "/T2/ (V: */^(WK(W"(WV(X920'(XR(XW20)(YO:0+20.200202204*06(Z%*07(Z4([( 208( % 20B( K( W(]6(^5 :0L)B[20W(^&(^E)>Z0Y)C8 *1 !Z1)21
21B) M":1D22!R2!227"*2922R!J2T B3)235*37)!O)!H"J38*3U23V)$E)"ZZ3X)#)$:)#= Z4)#B)$1#*4.24O24Q24SZ4U)%K)%!:4 )%+)%?*5)%B)&L)%U)&C!B5 254)';)&V)E*)G2!*56Z5G)(:)G=)*7"B5N26* "6,)(I)* )(])* ))))),)*)))=":6426O :6Q :6 "7'!"7/B7?)+#)+V!Z7C27Z),/),I).EZ7 )-,).#)
ZZ8#Z8*).P)/!)/[)/<"B81Z8MZ8T"B8[)1#)0N)0S)2()D"J97)2<)1L*9<)1Y)21R9= "9C :9K!:9V ::) J:4)4')4X)4;)4J)5O)5)2:AZ:C)GXZ:J)64)6 *:Q)E5):#)8KR:Z)7AZ; )7F)8/%";'2;W2;Y2;[!2;]Z</Z<6)9 )9K"B<=!J<YZ=.)GMZ=5Z=<):Q);. Z=C);A*=R)<M);Q)<(Z=S)=$ B=Z)=A)?U)=[)=W)>()?M
>Q)>M)?+)@;)@Y*>&)B+)BP2>')BE*>))D:)D6Z>*)EB)EQ)F2J>1)F>)FP":>6 Z>QR? )HA2?&
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 CALLERGENRECGE
Note: Lines longer than 256 characters were wrapped