@3@d: AUTHENTICALC BY ROBERT WOODALL JULY 1988g@eœ:ù5,"*":ù7,"/":Þ1:Þ5:™Ç(27)"M":—2594,0:þ%:BG²1¦@fC²0:W²8192¤8377:‡B:C²CªB:—W,B:‚:‹C³±24072§™"DATA ERROR":€Ë@g™"“":X1²9:Y1²07:X2²30:Y2²19:166Þ@hþ10,7,30,19,0ý@i™"— Ÿ" Aj™"— OFF — CLR — ">Ak™"— ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ "]Al™" ’ "|Am™"— ················ Ÿ"¥An™"— Ÿ 7 — Ÿ 8 — Ÿ 9 — + — "ÄAo™"— Ÿ"íAp™"— Ÿ 4 — Ÿ 5 — Ÿ 6 — - — "Bq™"— Ÿ"5Br™"— Ÿ 1 — Ÿ 2 — Ÿ 3 — * — "TBs™"— Ÿ"}Bt™"— Ÿ 0 — Ÿ . — = — / — "œBu™"— Ÿ"ªBv‹K$³±""§ŽÎBwþ 14,10,27,10,1:X²12:™£X)"ž0ž"×Bx¡ùK$"Cy‹K$²"O"§þX1«1,Y1«1,X2ª1,Y2ª1:ž8195:ù5,"DSAVE"ªÇ(34):ù7,"LIST":™"":€CCz‹K$²Ç(20)¯Ã(A$)²1§A$²"":‰119wC{‹K$²""§A$²"":C$²"":TL²0:K²0:BG²1:M²0:104:‰119›C|‹Æ(K$)²13°Æ(K$)²61°Æ(K$)²20§126¶C}‹Æ(K$)³42°Æ(K$)±58§120ÏC~þ10,12,30,19,0:110ûC‹K$²"1"§þ11,16,14,16,0:™"ž 1 ’ž":‰147&D€‹K$²"2"§þ16,16,19,16,0:™"ž 2 ’":‰147QD‹K$²"3"§þ21,16,23,16,0:™"ž 3 ’":‰147|D‚‹K$²"4"§þ11,14,14,14,0:™"ž 4 ’":‰147§Dƒ‹K$²"5"§þ16,14,19,14,0:™"ž 5 ’":‰147ÒD„‹K$²"6"§þ21,14,23,14,0:™"ž 6 ’":‰147ýD…‹K$²"7"§þ11,12,14,12,0:™"ž 7 ’":‰147(E†‹K$²"8"§þ16,12,19,12,0:™"ž 8 ’":‰147SE‡‹K$²"9"§þ21,12,23,12,0:™"ž 9 ’":‰147~Eˆ‹K$²"0"§þ11,18,14,18,0:™"ž 0 ’":‰147©E‰‹K$²"."§þ16,18,19,18,0:™"ž . ’":‰147øEŠ‹K$²"="¯S$²""°K$²Ç(13)¯S$²""§C$²A$:þ14,10,27,10,0:™"ž"£(13)«Ã(A$))C$:‰120?F‹‹K$²"="¯S$²"+"°K$²Ç(13)¯S$²"+"§þ21,18,23,18,0:™"ž = ’":154:‰120†FŒ‹K$²"="¯S$²"-"°K$²Ç(13)¯S$²"-"§þ21,18,23,18,0:™"ž = ’":156:‰120ÍF‹K$²"="¯S$²"*"°K$²Ç(13)¯S$²"*"§þ21,18,23,18,0:™"ž = ’":159:‰120GŽ‹K$²"="¯S$²"/"°K$²Ç(13)¯S$²"/"§þ21,18,23,18,0:™"ž = ’":162:‰120KG‹K$²"/"§S$²"/":þ26,18,29,18,0:™"ž / ’":162:‰120‚G‹K$²"*"§S$²"*":þ26,16,29,16,0:™"ž * ’":159:‰120¹G‘‹K$²"-"§S$²"-":þ26,14,29,14,0:™"ž - ’":155:‰120ðG’‹K$²"+"§S$²"+":þ26,12,29,12,0:™"ž + ’":154:‰120H“‹Ã(A$)³1§X²13:‰150 H”‹Ã(A$)±12§A$²"":‰119QH•‹K$²Ç(20)§D²Ã(A$)«1:A$²È((A$),D):X²13«D:‰152„H–A$²A$ªK$: IFLEFT$(A$,1)="."THENA$=LEFT$(A$,5)ÀH—þ14,10,27,10,1:™£X«1);:™A$ªÇ(15)"¤ž"Ç(143):X²X«1:‰153øH˜þ14,10,27,10,1:™"ž"£X);:™A$ªÇ(15)"¤ž"Ç(143):X²X«1I™‰120KIšBG²0:K²Å(A$):TL²TLªK:þ14,10,27,10,1:A$²Ä(TL):™£(13)«Ã(A$))A$:A$²"":ŽI›‹TL²0¯BG²1§TL²Å(A$):þ14,10,27,10,1:™£(13)«Ã(A$))A$:A$²"":BG²0:Ž¥IœBG²0:TL²TL«Å(A$)'J:IFTL>-1ANDTL<1THENBG=0:TL%=TL*10000+.005:TL=TL%/10000:WINDOW14,10,27,10,1:A$=STR$(TL):PRINTTAB((13)-LEN(A$))A$:A$="":RETURNaJžBG²0:þ14,10,27,10,1:A$²Ä(TL):™£(13)«Ã(A$))A$:A$²"":Ž JŸ‹BG²1§M²Å(A$):þ14,10,27,10,1:™£(13)«Ã(A$))A$:A$²"":BG²0:ŽåJ ‹A$²""¯M²0§A$²Ä(TL):þ14,10,27,10,1:™£(13)«Ã(A$))A$:M²TL:A$²"":Ž-K¡K²Å(A$):TL²M¬K:A$²Ä(TL):þ14,10,27,10,1:™£(13)«Ã(A$))A$:A$²"":M²0:ŽlK¢‹BG²1§M²Å(A$):þ14,10,27,10,1:™£(13)«Ã(A$))A$:A$²"":BG²0:Ž±K£‹A$²""¯M²0§A$²Ä(TL):þ14,10,27,10,1:™£(13)«Ã(A$))A$:M²TL:A$²"":ŽÂK¤‹Å(A$)²0§119 L¥K²Å(A$):TL²MK:A$²Ä(TL):þ14,10,27,10,1:™£(13)«Ã(A$))A$:A$²"":M²0:Ž*L¦þX1«1,Y1«1,X2ª1,Y2ª1:ž8192>L§X²Î (0):Y²Î (1)gL¨™"ŸÍ’";:I²1¤(Y«1):™"¹";:‚:™"Î’";‡L©I²1¤X«1:™" ’";£Y);" ’":‚®Lª™"Î’";:I²1¤(Y«1):™"¸";:‚:™"Í’"ÄL«þX1,Y1,X2,Y2,1:ŽøL¬ƒ169,0,44,169,1,133,143,32,118,32,169,0,133,2503Mƒ169,48,133,251,165,231,56,229,230,133,158,230,158,165oM®ƒ228,56,229,229,133,159,230,159,165,158,133,254,165,142¤M¯ƒ162,18,32,162,32,165,141,162,19,32,162,32,160,0ÙM°ƒ162,31,165,143,208,8,32,174,32,145,250,76,75,32N±ƒ177,250,32,162,32,200,198,254,208,232,165,250,24,101LN²ƒ158,133,250,165,251,105,0,133,251,32,148,32,198,159†N³ƒ208,192,165,142,201,9,176,11,165,139,133,141,165,140½N´ƒ133,142,76,18,32,96,165,230,133,141,169,0,133,142öNµƒ166,229,240,6,32,148,32,202,208,250,165,141,133,139-O¶ƒ165,142,24,105,8,133,140,96,165,141,24,105,80,133bO·ƒ141,165,142,105,0,133,142,96,142,0,214,44,0,214¢O¸ƒ16,251,141,1,214,96,142,0,214,44,0,214,16,251,173,1,214,96