ARGTEST PASARGLIB DQC "dARGLIB PQS+ϻPPCONST PASE$PP DQCK":PP PQSmWy PPINC1 PQS PPTYPES PQShprogram ArgTest (f, output); (* test ArgLib module, used to get file names from command line *) const maxarg = 20; var f: text; (*$I arglib.pas IMPORT argc, argv, ArgStrType *) procedure GetArguments; var nFiles,j : integer; arga: array [0..maxarg] of ArgStrType; begin nFiles := argc-1; if nFiles > maxarg then nFiles := maxarg; for j := 0 to nFiles do argv(j,arga[j]); writeln('argc=',(nFiles+1):1,' file arguments=',nFiles:1); for j:= 0 to nFiles do begin write( j:2, ' = ',arga[j]); if resetOK(f,arga[j]) then writeln(' exists') else writeln(' empty'); end; end; begin (* ArgTest *) GetArguments end. vARGLIB.DOC`  !"#$%&'()*o+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_uEpN Op®pĽ ;J&9cl"~"?r9H" r) v_ O=NSNi !00x"%nC$m%Q}tHYp(V&`] {8W;zd` `` =k)4$T$xAuc䖜v_ BαΘpwړ(l3= G+ѱ)!R%j 9Z!MGR2|Q8`="L@Y:ҜcV 1`q0Ώ &BJ9gT\;",z UסRN0!8VL sxÓ痧opy<}z} ' 症/Y%E7+7C)@%8xt*oѯ9tH3p®pOcwOο-Poؓ-'l_Y^oк`=&/# tPR5!DRݷ}uufz|:>ŏj)r:Q_ix1)wYr o+dV$xjz!PO[_QXJJÞ Z`wYMƸ5Ӿd|D}Uس"tf\ ڷL`mHqV|krQ}tkekђSNUr$w~Cqk mH6`kP:*/`\  {S (q+ t_H#0HW4`\q8!D8b N^Auy%i0rtw#]#(IіrC1X7P c(v}~u5`%pt/m%j oPN7s"ma  #ctge8cs ?^<H3=9v#Аy8`=dh)$XatO9 aP 5Xti81Rr Jlri& pB CGck`sк`}NxÓ9SN^4Asw߮lӜrB@u9y 1$]p W9F!RN9{!@0/]>'wpQN^BN@ur0/]>'־| }[}|^2焫xtyr2q]\`'.''w8wl:ȜSN^/X0y  3HG0ot?8a!+!",9'^Hxto9ݣA}\0!!Fx3&Bc* bsXZ #u:r#j`^00x"-9ݑ^:!F( t{-IHoGizH4oJ%:BƑLP|Z!u5XR`QNфq$%_I<%G'̾U8?J 䤒&ٷ&x`"HQ67bbP+W5H[A`=Ct tT1zqf'TD}\._b7ln$X (\hHl*sl-GG߆ٷ $Xx`o9amvXP: 8N#P_+i q®pt p(5 CCc0j08?@:¹ oqq=[?mӜ|J *Չ~:BCc`=ΏwƗ ps~4W))^nAG Єq Y%nx59Tik  a ~Q' G6Lѷ #`uNGakX+7xHFRBdk9n0xH7<*r ׁm^<~ }@p4 HG H_d $t_&_?n7XP:HA"*cxs ` QNc08?ށYr ۻG_IB%*2H,bD0*t rI$X1Dq%Q}t?f'TQ|l b0Z|hX)xCS 0HGH+Է. p N&8tdұoΏFF+f'T7[[s*[O`B}+-N0!8s"u?BDY(V1->wdt4Sk)Z c[ FkJ†$%&'()*o+,-./0123456789:;<=>?@ABCDEFGHIJv|:ARGLIB.PASb  !"#$%o&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aUM ؔ͛ Y|@aqeep<:?x^W>xcSg^^2 ٲT:hqFGߝ@zGZn2o8 F`7,)T1A8Aeg X]VPRiP# 뢰lβ (dN B6*6$K  @eg MNt2䠘P*FZHK]"2ws^8{ q|^L^8&(Cq!p('3k)@3˄)#VbvKÔ91_,kdu@:A\R ([c q*Q5bHK(5xD]AhqTQ8tl#oSFZȥ3|;_Y͗d1ټ=x856wެ1 ]j;Woc @< q[B`f qP81-s i tʮi2Rw)jF43͆I(0J_e2wVΉqwb qW=ƥma<{6N14#0C2xYx)LjMT QBfGv&&( SQc"*o 91:NZ(MIZN1L"a5DžQ=AIFGqHbREBV_eXՔUECKUɡ8j,cf rPL8.6z duU;+4⸫LQd)Iq4B _IȪV%!>YWWFӊt[_04qכ #WHU/b)4HjXbbqEz2_F EI"”#UwpB%f 8+ge20Y?f0}Ã#٢EL<`GlO0 >ma0 Syj;z|]rjgTS:VӉm 2#”F,CqlJ@V?P4:x5:+tDR{ SaJWCI-~nqV+5r|>LN,_^#.@:Gɑ\DVO2ltű)I J7a :HoGizH4oJ%:BƑLP|Z!u5XR`{ Grogono had following 7 CONSTs as include file "CONSTS.PAS" } NUL = 0; { ASCII null character } TAB = 9; { ASCII tab character } FF = 12; { ASCII formfeed character } CR = 13; { ASCII carriage return } ESC = 27; { ASCII escape character } blank = ' '; maxbyte = 255; { Largest value of 1 byte variable } maxsymbolsize = 80; maxstacksize = 100; maxkeylength = 9; { The longest keyword is PROCEDURE } maxlinesize = 90; { Maximum length of output line } indent = 2; { Indentation step size for structured statements } upcasekeywords=TRUE; { If all keywords are to be capitalized } extin = '.PAS'; extout = '.PPP'; casediff = 32; { ord('a') - ord('A') } v:PP.DOCX  o!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW)`{9 ht>bPUS-޶lR~הS%`=onnݼ ϩ%四l\"x>hۇSNNÀWF!u)c{9 `y ڨRڨRcQkrxbZ DNYִD6@Eht>B ;B<5ܨ*5bOy3 l@!S5Uj909K˱H41YhFz^؞N;YZ-H4 JS&Us>Qb9唱e! Xj )%}D60"qJi-zQVc@lH'@:V+IbenGŴ#D:q}Dt4`Esv뽤̆T$!) ȨhN&}dU_G>%a^+w)з&}`W,_C\)[ܨ*5]l;$0"@hn*b&52CMP ~IyЁ htQUjU ) &#d=D sʶ9唱`pGqGN릢U . SwˆRvc86ĺ@M ܉Cc+1lR`-G (1OFgR tW"U`&(1J́Mŀ:zz!F)(P?N5 4Rd=RFtpGhFDozޥ| @J>JS @_ i)@ִDW(1OF#x"ǁ*)RQbGh_QxrʷUU!0 ^PDy0GFTPE0o;7=Utj2I8|FۉJˤa|*:2I8|FۉJˤ15=C&TiN97玀G%^;xu^w/X/o/^%,-)x9pՁ|0 ! XlO8L@Ɣ)c{j9|; D;;7w+Vl֋p:_;?_SXjrF XL[*`C`Q9N{TiN9_+P?UtB XL[*8bJH޴/;7u27wwwu~8;XS|sFZbӖ pŔ¤w>Xyx:骔\jAi 1`1m@&w>X1 ɼ5сBm%* JXLka֟׀蠯y()nJeN9o曇FZ xDR2!:&ڨRC(& .elO.Q?JqQEHKa[)c{uv"pGP"XE` &ڨR&RSN 9 Gsh_Qxrʷ͹#`el(V1 z!g*XjpGX_}|^{8=q_.V<Ҵ7-wБs)f9wD -ݫuxu|swϏO%elOqE`a9 {*H֋ۋWǻW+X{`z8)c{:FqsBE'>B3,j5iڛ}IwT)ʱpy~q<>8,L59#D/LXU>K9elS~Xjr}||p SMοO9S#0|#唱 BCm>W€V*QUjQU&gp'ztr"P>rg=Ci-`bZ sBv3i1e:N@_8. 'ǚ>JQ1rJUMhMZaШbI<v`}M)e%)r'a &ڨR)01 (1OFg ThFR)I`+iMmGhEKa@ۉ#wV)#," $ћ%}hFa @ΤT ѥB )!R9T* }SN70 )_n)唱;BHa #J-#LF+U5kBʗS)c{y;4jJV Fm +z/>={r^vn$Qog=?~(-0ڨRpD6N{l h;j0"#J- x;7+PEL`U4D󔱽8ޡQoFύx;;R#8q" <唱 \bZ ;BШ*5z/xpûSzШs#x;;S~8Qog}^/h۹2ǻgG4jG6΍S30("1 qŔGAĊޥ2ÀFm ha{`ӳ4jH@k-}嫷)3pAus T-l60 RNaH9_SʗSNa% ThFhFX3x"DozSg%4ѥ&T0\{ kd&Gt ZpsEO*!e ϩe7O!k&gR\[L {_LkhC[+jxi<<@4\cx~7sʁ-~09AmTbJpsI%@N)?2 T}fFF·wnc)c{PKUR<{Rj)6 pqwau'ZQ19e[pmu3)Hopݷ_v/KKM|~?L ھ&gh>21)hni 0\`}>bJo3 Uk)@'RP[Klyx\j*@d`Eqpw_~MXUČPݰ9HTaJo8h6{= T;vP{JMJ;ν 8h @crc_3xP) 6XbEp)bۡG I)0`;Ҕ T@Sf玀sN!@S`*@çg_>C|=|zv ^UNT6`o#w3P[Kl9)SVjnb%?R<{|aBu*HT] (59 G:eׯq" |6HTZku3)N! $"Sz/>=%?-./0123456789:;<=>?@ABvPP.PAS[  !"#$%&'()*+,-./01o23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZOxƂΐjFg+<>:Z3H.- G']LLp> 5XFī(5tTqdp2N}WԖh1xg+(GDnxx!sG?}ՇOUWI-O=kx<Ņ?yO~ G'x$#2W葊aFX~GwO` JT29[2ɱ5Hըβ`W[RcAgҕBN-(:;Dn*ʂ)ޯeW[9-Ş/lβ d ^Ex ?їp<)+-d֢+=F#3?G;/zrC%j?gx ?%w XϰdbO#3%w y_v:R=2hb"%#x>ĄZ 8p}W=۟wի?ëo?«Wëo|O?]OB)En( Ʈ_OeG2,?}z<G~<~et`ZFnrd 5i-{$A+1CG>9~1Yuī(5_g'k*AǨ0B<`LŞPGg *ajӄUe#1)DC }H0$ ;AGBgbb:?\YeMrm3x3tnj>+ 81ʈy͚vz[vw Ƿ$ޖ]!^t~oQ'n0F|OD7eDk&G rpdHZc8Nq|!'* cB<|glB-Q5cY 3ԞEGc4pMsGq,9 xNΔO4->c4)?Ʋf)#4Ċ}VqnB!^twHL/:BGbi#i35 )!88^C- #řc,+cYi!8 #kE/gʅxL1vnyC_"5Ċye)?Ʋұ/:އ݄3XV†1ʨ/p|AG{Z5a0F5v{b$' pr|aޠf%i#i35 )![mj"9ņpX rC-QMN|𝱕j k&G7 3$Ǔ8 Éc"8Ʈ*cs= ^bz:Fs.Bx.XVE\INc,+%ˡ/:%ˁct989S>YCnt9pL4Xt$n>xQ$ˁc")xC՚&9ajM"ƼAJC5 IN&4!bH r5M)[mR׈M  Ql5dASDAq9;c+R^SO7 3$Ǔ8 Éc"lhnqf^$ˡ/:%1C1 VG2SmR^SO(6DxJ VCXHMqJ&$'̐z[O>|OO+c4ǫUB8^bz:Fs.Bx.XVFWl7c4VHTqrR4/j 1hINC!^ti20LYrm1^TOfHGRhG[[(N f)KN-C8Ed^1o1uJCL/'[hdc4XVIj)! 6:5褎`C-Vڔ~G8M`zQ=:F#Rhv::c4u$5+OE::c47ZMG'uou$Sh0q tT],u&9݇rlG\mJ V${m~rR4g̐.0o nv\!x*Bx~5}8·oĨc4*hhhM1h9pLtO܂'n2ۂ#E!91>}o#<|glB*9 MmM)cxC8)ej4_Wc$'^TrgzQ 󆶦캾D>ˍE%AXIz#ӋJNC5d ݇^Tr # 3t989S>Y0obwjt9pL #6%b ^Gb,զD7SBSoˍE%{m>'(r\a'8nY"ܐY 3R[ hgFSo f)KN-Ag1E8ƌ>+݇iqwH|O7bz[0oSJN-CX;zL,v7%^O܂"{ZۂyՑ4 cfqy'ۀ'tVCVEc=ۂgʒSoˀcfq}V8x j;|C𢱞wjq#VɩǍX%ޖ!xX;zL,1o =hOVEc=9;c+N)U#z2vF0J! aFiqkةw:88^C-xM=;U#h' 쪓+t$7Uc| ^SON|])y'ۀ'SF|𝱕jV3|O݄#9]HO5 #q=-?T^r.V&kO'nOp,d<|glc!}|.i> u5Fr&k> ^G{Z&՘:+I:dR5r{}N)U#Cu5Fr¼[Twjt9T#=M6 u58 'Б'㔪{m KsqLx>'>R4cVkj!Du+$<|glBMjINq,9 }>hw܈Urm3eɩe3YcFiqw:8xCE hFSo˱3Y߇ǍX%8Fs$u$F]I,1o =hht5Vqs܈Urmc4Mr#1UFX7ǍX%ޖcg1E8O܂'nPdtZs?GYФZ/P XP9;c+n! q#Vɩ3Δ%ޖ!cfq}VqnH|O;ۉz9n*9;C)}Ƥhǘ7tS4[mnR<>b!.V`M|𝱕jJ+ $̐z[O>|O݄SSgB/1ב8SU'Wؗ|])yC])ozMIN-C5d a'wDnIN-t4YC܃בSo ]$=M So ]$=M[m .Vs?#2 b% 58&tV:0H [#YTSg3t1fYi>OaPWcc[Z0cꬠYSU'Wؗ|])yө8Jm}:+x>'2So G2xɚ&PȠF!<|glBg2c4;|=-wnu5Fr)iܰv5 )irOajQWc$ˡ/:YSU'Wv[].XVڹ<'k0ox 1P,N)쪓+t1J;FjLqL!SSgSSgߢHNC!^t xBgۂ7:+NeL@rmA x>Jm5z[&xSqL|=-?Tjt9T#=M}M՘:+u5Frw1)=xkp11cg;jS"c-Vڔu^Gb0c`PWcc[r.V&k(x*B`:YƤhCnө8 E].BKqL⾧u$q'㔪PWcR4c|#9]xڐKqL⾧u$ө8 u5&E8PnB].B_!ŗ}OH SqLR|)I/QWc$ˡ/:OEL:+7| j; )z=!xѭ2zrXWcR4|]I,1o11uVO+ۍE%ˁc"8IZ#OkpczQr&W~G8~!z[t博ODx>eOu<#!_MoD+2b)_4Tb 9SRL8&Bcr~c26Yr2,h# sOUa!\!F/H/jWo\!!KwnWH+p5}o\!wû8TfWV=^#qx ĄOtcm>,o8^^ Yިqp?Tvbs`26z`7j/Cn[!!7Ǔ+t`7j/Б8x1N)])u1B1@܆O)]i:^,o8^~"n]urFqJ' qLt|]urC?#vbqq/$ X;Tjlƾ9v7|2_Wcc`|]I,1odqqLy'CvO(iUa5):^|g'kڮ3vxx7o~GuLdMM+Wiw7})Cg'kڮ3JN{<7\_}o^ϔOִ]=i`p~w!35mW-JN{ן=]ϔOִ$=->)ih$=>7\3<|q?S>Yv=-%=yoѧxxw?S>Yv:*9y~x:| Uk ~g?p?S>Yv5 IN{<7\->)i;;IN{<|1o~ ~}?S>Yv5|)i IN{/Wo:|NNGiw/?z3<||?S>YvJN{<|1os<:|$9ż7xuLdMH,9np}ɚ"$9np}՛x:|툛O/Cg'kneuEr7\û|O5MV 5L`&EU LdMEn> )ih><)i%=>7\ouLdM5{biwO>?p?S>Yv+$9np棯ɚ[ZiwO?9>)i;ǒ_}__ϔOִ]MryG_\ϔOִ[xxpx:|i O? _\ϔOִ5___ϔOִJN{<|?F5vLdMüLdMIN!1ʨ/0o'n0YRd U $s]O&툫MXC1]O&= y1툫MX7\o/Kc4;-7\,-xxpC:F :/Kc4;w1oޮC:F u1oޯC:F8xx7oC:Fq)u^RhvXjS"= |OxC!ղ[0Y|4!ȊW"DŽP<=JXp\_|[87oz? R :bp| nG_=oAZ~$8QNM.[17ςHf8EVH:,I:__xQ)OR@,bcTzfIVr##AG«(5_섷_y(_x%T''#t|mX>7oQܙ@dro[|50o nHFrB8t:;i:;i9J ~v,$7 ~v,$d }m>x۩]$ T*5<7⸧:J'NݴrPnް&k7gG!x۩Vrh䄇 {*ӱZ;HN!x۩댭r*Tv}qd fL(]t?o;uwUr_qaWbOEr:VˢQsG1i?o;uw%T$ T*5]_4YCGG}mZPv}qd fL(]YUˢrh䄇w]=i?o;uw;Pnް&k7gGG}mNsGrh䄇 {*ӱZCSgy䴿 U 8iq||.Nztg~v,Cs$'<|1oؕSղtܑ:˻ǒr*Tyî9nϔ?V'%:˻ǒrh䄇w]=X-JNGINh$Y(䴿 Uv?V'%:;C՚&9/BU>kImF!i9J  ;G}KNjdCSgyW䴿Lrag'i?o;uw5 =F#9/BUaް.Nztgqt&NJf?o;uw5 =F#9/%GF0oIrv,$9/BUyîY(]O~v,&k$ T*5<|7쪑 o4sW7 S,BC5M)! 3nu5Fr`:ݘ^Tr/So|m;u Exebbs8ޱSO+.@4Bh6/So SgyWWc$ˁcp#nDn`U#k1T.BU[[5=MCHr*T:8xBFPMG/7LO܆݄8iB*PԠ#q=-w,d/1 #nX'nCnBs,)1T.BU#1nR7!ˡ9n}Mh1T.BU#1n!x7A&8 T*u$c!J#9݇Nrmw1T.BU#1 .V1twYcR U02Iou5Fr8& %'8 T*u$bMHrP2qTk>&T'%R UĨ#nԬgß?S>Yv:*9y~x:| Uk ~g?p?S>Yv5 IN{<7\->)i;;IN{<|1o~vPPINC1.PAS:  !"#$%&'()*+,-./0123456789o^Nh+}"X&^%RSq 3B2=1#$;&E+=BB|\mb`w*!r į?cĸTBlxŸTx+->#B20Y\JċwZQ1$;ޅ!ny7(]UC2<@!n}+1A!bޕH_ODnQb1Kcgnm$S3ye-ӻ҃ɭH_ODnQb1,oEnm$S3yۼ+Ҋ0cPag|ݠɭH_OP2xNi˭H_C:7Fb]ju?u'DXGczǖ]eb@#K9J-ӻ#$ X1Q [w-$ ۉ!-tc˄XGjLԐL,Q 8C2ŋw޽X0dj!RQ1aTDG7Ն۵.9VC2M(GL1="7Mq63b}wMcHXG KcgvXw9VC2Gj#>\wk#ͻFՐL0Yp>cHH Xw1Qx.Ǫ>cH>\r݇nm!?XGBv%zGY6J0dzݭĀew1Q݇K#P,^q0u%Ż_~?o;uw:KNAPUjxx7o9~?o;uwT$ T*5<7iq||lYc:;*v.PPTYPES.PAS;  !"#$%&'()*+,-./0123456789:oW!O-cm9]u;ԯH`յ|K??.>b^Nx\=t8@*/pT߼QmT=> R7oS 1p':g8c Jǽ:ԅ|*:# fB|*&S|*15#TO!TSYXȧ")TNk&J 5dɧؑOESl,|*RN>Ux'J TL|*ޓOe#R3OegeTG>ă|*18V򩸚ɧB>B%2TޛO%O`Q| b8!^5N qJ8+3^-SWt 2&ʊRytf,3 <ZԄZt\X\]DžK @_FuZ;.%ZmѲs'JuݫEybWN Txʎ |ꜧbPѩx8A36N1'BbPT) zPc@7bPW8bU+;N0ps':[zUe@'yy\=3][l2pcj=#`" .exت6 &bn^/[l20zn A>].3 40znZ'y8!].k:^VlrMhm6Q17k:\Vx6L1(17Ks d!sˈYB@O>uS (*XlЙ3bv j ‚PDžac@7b :sbhpSFU2^j ˟WV,/:,1,5c29 f)lRp`c18KY){W l1ˈNɧ68ГO*xL`c@7b :gRk`"rI@j Z;Щ)fˈ@2`~E@O>u1S 1ܛCuK,a.5T߼N1TԌԌN16A6M1HMm lfbhW8|P 6 :bhAghnW`^S`qUb8߱ @2z)sasMuaf`fqf؀fqO3cAy-&2vTU$Օ!j 6NqGbf60pӽ-ьNO1 wv X8gnVv`յ|K?>.>+Vv:l@*oϰAu;@ǽ:vXݼ>C R0oUd fL7b=/]^r:V'%:˻i94MrûyMQGbHEHr:NHN INONGXm|~