1LINEINP DQC&LINEINP IQC'0-24FEB86DWN+vdLINEINP.DOC   !"$#%&'(*),+-./1032546o798:<;=>?@BADCEFGIHKJL NMr OP QSRUTVXWYZ[\Q^]S_a`bcedfghijk:lmon pqtrusvwz{yx|-+1~}IV306u<,E>G$27D;JKX硫DB:*Ct =py?v!Ka[ly?v!h=#NvGQ:ЦR\E5E6'Ѩ+FO>pt/'5vp<(x 6G{mlqyЖe(.i眇P`w\m7*ضޥGw^O[QyzuiڟԻbOkEta/|GA9 ^unaP C,OFǧtu#?3pb[R^&69 Ui#*mY*߱6-^uU7Ƚ-n'ؽtǧͲ =Q*o=۳K^G֊6eֻbtJnA6f@rt#xTr[l{4[MT&luF<#NW]J?\(9K%[saA_{qW[lغO}+>z.ˤ0%yQ&`{m.tD>|s|Eמ1\-U]J/5w lq[lrM=銬U_J?c|K%n\J[Ik7O_5WdREQy]\KͼR ܚ9¼8U˙@R{u.e5 )P'hK%[p#:b{d.I~w$Der疅Ԕό-DlјJn%LNbOxFj~pVyǃ-~nQVVlxbKT5Eeu%x>YůBGVjprdlxEZF-M]WRWnq &+>JuD5a3\efrfp(ʮ.y-=SɭIrBf8ٍ>&LzTrllaK.5s-;=NE^fǪ^H8+Ĺ0F,W E u+>$ "/?\(9ܢ_ԛԛH8+sɥfN=*t8tl=o_~!W(8IrBeaf03x85eg<,BPnq ipª&u'rX[l VHR\liјJn%.tDħ3.5s9K3qN`Hr{򬟣q/t~]k#II&PnqnYX5Z}xe37 .tDu= $)[-- Wl}桺 9ۿbKM8Gc*Wڤ>+Zg} tY}Yoﳲ#->zO=v*>t[lϛ8l#s+mRY˲ug⊑/%oF.y-CSl F䟇;WG/Zk9-A?:\wb{^J|.h#KsD\ȑՉy Mqzz'Ճ\3bNlϫ7]~qz'Ҁό-o#z˵RY{9:2rdAÚ]l3jjs#GU'{B]嫦-}/5s-#GU'XyRzGZȉq FEg͸ѨȜKu.5s<`ޤ.u|WMӽp<ؑYT_jeȺq].~^w~苽,zˍ{-9RS:t'>pt/MJ|.(xdy(e_QՋ=AA{͈8{ 66&e.f_׍.UMT9:Z?hc&]JOi))( Ro9zmg|^;R3_MjzKB=_!ةWeȑUA_.؞7Y+Ilei #-|`>W ,Ž,(K2rd]EpeWEZ.xm9JX&؞02hLu{П= f9y.tDf9<6YuD5]l=oO29훞7-doqY:"p%̵U`WHA./ 8դssMV614' Q?6Nz:WޣѸ =_lKGGc]\׍.Å0xX<,;lW؋.}l#Gfk"^u^j{N{&Nqt4ŋG.c{.tD>vL\Y?5؞У1sL  ;/?C^=]jGq-#GV[lϛ8'^鋋;xJn-+'NI5S֮{T|t?t6)bݩ?HeTїU󉚿F^t{)FwR.-W$[7Zƥ#x]j#-W'~Xs>E1K˲CȤD xcKb{\ IvL?prȎ' :ByhS^y0;G ysydbL '92Ȅ>MuTLCȄ1&+G&ti:l0?2'0̧}΀>;MN]7=ys FNVnqLyuLyhvO*UO}I1 ÿdb )Ȅ>;M$0y@i|b )?0G }'0;09C!t u24;W '092 then if int(Year/4)=Year/4 then Julian:=Julian-1 else Julian:=Julian-2; JDate:=Julian; end; {---- This function returns a Gregorian (mm/dd/yy) date from a givin Julian date } function GDate(Julian:real):Str8; var Month,Day,Year : real; LeapDay,r : integer; T1,T2,T3 : String[2]; begin Year:=int(Julian/365.26)+1; Day:=Julian+int(395.25-365.25*Year); If int(Year/4)*4=Year then LeapDay:=1 else LeapDay:=2; If Day>(91-LeapDay) then Day:=Day+LeapDay; Month:=int(Day/30.57); Day:=Day-int(30.57*Month); If Month>12 then begin Month:=1; Year:=Year+1; end; Year:=Year-1900; Str(Month:2:0,T1); If T1[1]=' ' then T1[1]:='0'; Str(Day:2:0,T2); If T2[1]=' ' then T2[1]:='0'; Str(Year:2:0,T3); GDate:=T1+'/'+T2+'/'+T3; end; {---- This function takes a begining date, adds Delta days to it and then returns a string mm/dd/yy representing the new date.} function DateCalc(BDate:Str8; Delta:integer):Str8; var Month,Day,Year, Julian : real; LeapDay,r : integer; T1,T2,T3 : String[2]; begin Julian:=JDate(BDate)+Delta; DateCalc:=GDate(Julian); end; { ---- This function validates a date. Returns TRUE if date ok } function GoodDate(BDate:Str8):boolean; begin GoodDate:=(GDate(JDate(BDate))=BDate); end; {----------------------------------------------------------------------------} function MakeStr(l:integer; c:char):AnyStr; var tmp : AnyStr; begin tmp:=''; while Length(Tmp)L then S:=Copy(S,1,L); GotoXY(X,Y); Write(S,MakeStr(L-Length(S),FillChar)); Ptr:=0; If L<0 then begin Echo:=False; L:=Abs(L); end else Echo:=True; If T<0 then begin MakeUpper:=True; T:=Abs(T); end else MakeUpper:=False; TypeOver:=True; repeat GotoXY(X+Ptr,Y); Read(Kbd,Ch); If MakeUpper then Ch:=UpCase(Ch); case Ch of ^A : Ptr:=0; ^D,^L : if Ptr0 then begin Delete(S,Ptr,1); If Echo then Write(^H,Copy(S,Ptr,L),FillChar); Ptr:=Ptr-1; end else write(chr(7)); ^S,^H : if Ptr>0 then Ptr:=Ptr-1 else Ch:=^E; ^Y : begin If Echo then Write(MakeStr(Length(S)-Ptr,FillChar)); Delete(S,Ptr+1,L); end; #32..#126 : if (T=1) or (Ch in ['.','0'..'9']) or ((Ch='-') and (Ptr=0)) then if PtrLength(S) then S[0]:=chr(Ptr); end else write(chr(7)) else write(chr(7)); ^V : TypeOver:=not TypeOver; else if not (Ch in [^[,^E,^I,^J,^K,^M,^X,^Z]) then write(chr(7)); end; until Ch in [^[,^E,^I,^J,^K,^M,^X,^Z]; Ptr:=Length(S); GotoXY(X+Ptr,Y); Write('':L-Ptr); EscK:=ord(Ch); { format the types here } { Strip trailing spaces} while (Ptr>0) and (S[Ptr]=' ') do Ptr:=Ptr-1; If Ptr=0 then S:='' else S:=Copy(S,1,Ptr); Case T of 1,2 : ; 3 : Begin j:=Length(S); i:=Pos('.',S); If (i>0) and (i+2<=j) then S:=Copy(S,1,i+2); If ((j-i)=1) and (j>1) then S:=S+'0' else if (i=0) or (i=j) then S:=S+'.00'; Val(S,Tmp,i); Gotoxy(x,y); Write(Tmp:L:2); end; 4 : begin if length(S)<>6 then S:='00/00/00' else S:=Copy(S,1,2)+'/'+Copy(S,3,2)+'/'+Copy(S,5,2); Gotoxy(x,y); if GoodDate(S) then Write(S); end; end; end;