' +JJJJ ?\>m0M='+l> /L   d]@ŵLҦ]]LF L}BBL] X +lĭ       鷎귭෍ᷩ췩緈JJJJx LD L hN g;;ԭɍL)?GG ` aLAL巬 췌`x (`(8`rm`sma`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"H @H Jhh Lꢬ:L L$ !"#$%&'()*+,-./0123456789:;<=>? `$MLµ)LЦ գ  ʄ˩ǾaLq 0lJ ma / O˵ ̵!8NLLꢬLҦ ):;N:NNH뷌Ȍ췩ᷩ L. G Xr:ȿe)rsrs`iżͼ `ȌL LҦ갲HIHHHHhHH݌hHhHh݌H6 LҶʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `FFL` f`L . tQLѤ LҦLL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^>cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`LծHIDOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFٯTLOATLISDUMDISAApppp p p p p`" t""#x"p0p@p@@@p@!y q q p@p y@@y@y@p@  LANGUAGE UNAVAILABLRANGE ERWRITE PROTECTEDATA ENFILE NOT FOUNVOL MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERROOUT OF BUFFILE TYPE MISMATCPROG TOO BIINDIRECT CMUSE D-DOS DIS˭ɟLLҦ /7EQZcnzϠ@跻~!Wo*9 ~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / ED B  / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` # u 'ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩Jm赍mjnnn浈ꭿm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  dƭ֍z# u`  m!"i#,V6 LLͼ%iZbh,,,ͼ {Lƭȭ֍XZdflpVVxTM]߷iȿ#OAC@B@BOAC`@A @i@@AAAi ϢN @!A@ /@ɝ3]@i@@8/e@@eAAN#˥@"Ċi( HPӅF@ʥF @ȽЮɷ@萘ȩЕɵЋ@ɤѰ Pވ&& B h翈J"(]TUTSVЌWa@=p>㌚Ќf@fA@8BACBlLBʽ@Ƚ@:ʩ ݍ⍳L䍲6ؠ`Aޠ_ / X—˗ԗ񗙆% "ͼmOwʎo hLĭΠĠ      ԠĠLLLL``LhhHHL9DLQLLྐLFINDATbݕݻN7x žb8$а@W׾%7.߾@JX ocu!*3G FGȄFɍɠ`hhG NO ׾NNOO  !NO OOLȠÅ9 à {ȹ { L⯸ŠŠ̠ΠŠĮƠנΧԠĠŠǠҬōŠ͠ǠҠϠĠƠԠ̠ŠĮƠҠҍΠŠĬŠŠŠ̠ŠĮϠϠŠҮōҠĠΠ̠ŮōŠҠԠӠΠĠŮ׬ԠϠϢĠ¬ϬƍՠΧԠԠŠӠϠҠΠŠŮάĠčŢנ̠ˠՠϠŠΠŠǠĠǠӮŠčԠƠȠîԠŠǠĠĠƠŠȮŠȠΠōŠΠŠԮŠӠԠŠŠԠҬ٩ӍΠŠŠϠŠĠ٠ŠͮźύҠ̭ԠȠӠŠӍŠŠϠӠԠՠϠԠՠԠϠȠĠӭčԠƠŠϠٮ٠ՠŠΠǠȠՠԠϠōӠŠǠȠƠҠҮՠ٠ŠӠŮǮάϮΧԠԠϠĠŠؠעϠŠŠΠǠ׍ӠȠӠήҠŠΠٺƠٮŠĠҠ͍ҠŠōºƠŠȠӬĠĠשӠ̠ŠƢŮĠҠͺ̠ՠҠԠӮŠנҠӠΠӮӠĺӠՠŠӠĠȠӠǬŬōˬĠՠ٠ŠōҠƠŠŠՠԮӠٺӠ̠àנӠΠˠ̠ӠȠōؠעǠȠҠȠΠӠĠŮĠԩӠ̠ŠբԠŠԠҠŠŠϠŠϮƠԠӠŠՍ٠ĬԠ̠ˠՠƠՠԠϠŠŠŠΠˮĠĠźԠɠĠŠ͠ˮՠ̠Š΍Ġ٠ƠȠӠǠΠɠàנɠ͠պӠՠϠŠ͠ծŠӺҠՠ׭ӠϠŠ¬àŮŠĠźӠɠĠŮƠՠŠǠҠōԠŬՠ̠ŠĠŮŠӠԠƠōŠӺŠˠԠӠՠԠŠԠԠҠˠŠҍĠӠΠ®ŠˠŠӠՠԠŠҠҠîŠˠŠԠŠҭŠҠ͍ŠҠ͠ӠҠעϠŠˠŮ̠˭čӠԠŠŠԢŠĠԠŠύծӮҠ̠Ӡƭ٭ϠӠŠǠĠĠƠōӠϠՠΠϠҠŠ̭Ġ̭ӠϠϠϠŠǠčĠƠŠǮŠ̠ӠƠŠōȠŠנŠԠǮƠՠŠ΢Ԡ̠ˠՠƠՍԠϠŠԠȠŠԠӠϠΠŠƠŠŮҍĠҠŠŠԠĠΠӯҠɮŮՠĠ٢̠ԠנϠˠՠҠŠŠՠčŠϠŠŠŭĠŠȮҠǠԬՠ̠ōĠƠՠԠϠŠ̮ƠՠŠ٢ΠՠŠŠӯҍȠ̭άԠ̠ϠȠĠōĠҠŠՠԠϠȠҮάԠ̠ˠՠƠՠԠύŠԮƠՠŠ΢ΠՠŠŠȠ̭Π΍ҩԠ̠٠ĠŠĠĠΠŠҠԠӠԍҮǠӠՠˠΠŠҮŠӺƠէŠǠנӠϠԬӠՠύŠ¢ҠâҠŠŠӮȠĠźΠՠԠӠάՠ̠ŠĠϠŠΠŠҬԠŠԠӠӮº٭ĠĺӠŠ٠ˠƠՠԠԠԮúԠЭנϠźΠӢΠЭנԭΩ̠ōĠϠŠ٠ŠŠߩԠϠҠҠՠ٠̭٢źƠՠŠŠ˧ӠˠƠנɬŠ٠ĠĢčԠЭנϠŢӠŠϠҠŬĠҠӍŠĠٮŠӠźȠůŠźɧ̠͠өӠϠ͠ծŠ٩Ԡ ԠҠήκ̠өԠ ԠҠήŠҠӢ͍Ġ͠ҠΠ̬ҬìŬРҠӠ̠ΠՠϠԍŮٺӠҠӢ͠ĠשŠ٩ӠҠ͠Ϡ͠ծк̠өӠϠ͠ծԾŠӠϠōԠӠĬĠ٠٠ŠԠ͠Ԡ΍ƠŠԠĮӯРӠŠǠŠϠŠԠŠԠǍǮǠǠŠĠϠԯӠĠŮЯˠӠŠŠŠԠӠΠŠάԠƠŠōŠӠΠŠӬЯˠӠ͠ϠŠōٮΠŠӠŠĬЯˠӠӠӠĠϠĠŠŠԠϠŠӠٮҠΠĬҬԠҠҠנɠˠŠōǠȠҠӮŬͯנĠō٠ˠĠŠŠŠϠŠԠήүԠ̠ϠŠŠӠŠҠŠԠŮïԠ̠ΠŠΠŠԠҠƠŠήůĠӠȠŠҺӠӠΠ΍̯ԠүԠïԠůĠЯˠӯЍŠŠŠӠՠŠҠŠŠԠŠǠčŠӠҮ̯Ԡ̠Š̠ӠϠŠԠƠŠԠԠΠōŠ̠źӠӠԠƠŠ̭ǠčҠ̭ǠӠΠĠӠȠŠҠΠӢʺӠʩΠŮΠΠӠŠŠ̠ҠԍŠ͠ƠŠκҠӠήΠ̠ԠԠӠŠϠŠŠӍΠԠŬŠҠ̠ŠϠŠԠŮӬӍӠԍƍō̭Ǡč̩ӠŠȠ͠ŠҍΠĠӠϠŠĠƠŠԮǺ٠ŠԠ٠ĠΠŠŠҮӍԬŠŧӠȠҠȠάϠŠŠԠōҠ̠ҠΧԠӠ̾ŠǍҮ̠ӠҠΠŠŠΠŠήκŠȠĠŠĠԠԠŠĠΠōҠӢ̠ͮҍӠŠƾĠΧԠԠĠЮ̠ӍֺӠԠ͠ŠŠϠŠҠӠάŠҠҍȠΠƠ̭־ºҠҠԍΠŠŠήԺӠ̠Ԡ͠ҠΠϠԠƠΠčӠ̠ĠԠϠŠԠŮƠŠӠԠΠōԠŬԠ̠ŠĠϠŠԠŠήŠŠҠ͍Ƞ٠ŠĮҠӠŠΠҾĬŠҠ̠ԠǍ͠ŠРƠŠˠήɺӠˠŠԠҠΠĠӠŠŠԠ˺ŠŠŠȠŠҠӠάǠԠΠ٬č̠ΠŠŠȠŠŨө׮ȠŠӠԠΠˢĠРϠӠ٠ŠĮҺӠӠĠ٠ŠˢĠΠŠ̠ԠϠԠƍҠŠԮƺŠ̠ԠϠԠƠҠŠϠԠҠΠƍӮӠԠРĮ̺Š̠Ԡ͠ҠΠϠĠƠŮźŠϠǠƠԠԠŠƠԩúŠϠĠƠԠԠŠƠԩкŠϠǠƠŠΠҠΩί΍̭ĺŠҠȠҠӠΠĠЍںŠŠ΍ŠΠԠԠǠǩŠΠԍŠϠӠ ΍ӺŠϠԠ ΍׺ŠӠЍغŠӠ΍ŠϠŠŠ٠̠ǍӠĠΠŠҮǠӠԠƠŠӠĠҍӮҠԍ̭ѺŠٮՠΠŠΠԠ׬ԠŠՠĠΠҮŧӠΠˢĠȠŠՠӠ١ŠҠӠàĠЬύԧӠ̠ϠӠΠԠŠĠƠŮΠէŠĠǬԧԠ͠ŠԠŠƠŠŬԠŠήŠ͠Š̠٠٠٠ŠǺŠҠƠӍŢӠӠԠˠŠһĬԠӠՠנٍӠȠƠˠŠŠ̠ŠΠōԮƠՠĠĠŠ͠ˬӠŠ̠ΠōŠՠĠϠŠԮТӠҠŠҬ̢ӠŠōԠ͠ŠРƠŠŠԠŠРƠŠԩĠâӍҠŠΠήŠРŠ̠٠ĺϠũР̠àŠΠӠԠŠӠŠŠԠǠĠĮōΠӠŠԠήŠϠũŠӠҠŠŠƠԭӠӠŠ̠ԠҮΠՠҠԬҠ̠ҠӍ̠ӠĠŮӠĠŠӠŠŠ٠ӠčΠŠԠͮŠӠϠӠŠԠŠРĠ͠ƍŠӠƠŠӠΠȠͮҠ͍ӠӠŠ٠ύĠԠƠŠϠ٬Ġ٠ӠȠŠԠΠŠԮŠĠҠ͢ΠҠӮǠӠҮ٠٠ϠŠĠ٠׮ϠŠōĠΠҠРȠ׬ĠŠؠעϠŠŠŠϠ׍̠ŠԮŠŢΠΠŠҠӠԠŠȍĠӮĠŠƠǠĠĬȠӠҠϠŠŧӠȮŬΠĠŠӠĠάԠҠԠ̠ŠĠϠō׮ĠӠŠĠԠӠȠ٠ŠĠΠٍŭǠĠϭŠŠϠӠƠӠԠנ̠ˠȺĠčĮĠӠŠĠ٠נĠ٠Š٠׮٠ō٠©ӠĠΠŠԠȠŠԠӠԠϠΠԍӠŠٯΠǠǠҠΠ٢̠ΠՠϠŠ͠ծנɠ̍ŠՠӠĠŢΠ٠ŠŠǠŠĠčŠԠŠŠΠٮĠӮĠӍҍΠǬȠӠ٠٠ƠŠӠΠŠ͠ӠϠҍƠŠΠՠŠǮƠՠΧԠĠҠŠčԠӠάנɠ̠РĠٺǺŠԠġՠϠŠנɠϠҠҠͺӠ΍ȠҠĠ̮ӠŬҠҠԠՠĠҍͬîԠϠÍΠՠŠŬՠΠԠӠΠϠԮԠӠϠàΠӠήԠ͍ӠӠŠŠǠƠŠŠעӠŮՠΠԍӬԠȬŠȠȬîŠ͍Ӡ͠Ӡ΍٬ҠŠĠҠͬĠŠӠӮԠ͍ŠՠԠԠӬĠԠӠϠŠҠҠ͠ōԠΠ٠ҠˠŠԠȠӠϠĠӠΠŠΠծҠ͍ӠӠŠ̠ҢŠՠŠĠԠҠԮҠ͍ӠӠŠՠĬŠŠӬŠӬҠŠŨӠӠύ̠өՠٺӠŠԯԠנӠϠŠŠŠҠϠŠΠƠҍŠĠӠξҍŠŠҠƠҠŠĠӠξǠӠƠΠƠŠؠŠ͠ՍΠՠŠŠȠŠҠբŠԠՠȠӠ̠ōŠ͠ծӠӠŠՠȠӠ̠ҠӠčӢΠŠͮϠԠϠŠΠՠŠįҠҠӠŠλ΍ԠӠԧӠҠԠˮƠէŠԠǠҠҠҠŠ̮Ҭ٠ӠþĠէ̠ϠԠϠŠͮƠէōĠΠ̮ĬǠþ̠ϠΠԠΠ̠ԠĠŠΠϠҮƠՠŠ̮Ԡ̮ŠԠՠԠӠР̠̠ՠϠŠōҠĠԠŠҠˬҠӠþƠϠӮӠٍӠϠԠŠˠΠȠҠϠǠРŠ͍ΠՠԠŠˠĠŠңŠԠՠԠӠРӠōŠҠǠŠϠԠԠՠ̠ŮƠՠŠөŠĠȍŠԠΠŮŠ͠Ӡ٠խάĠΠŠԍҭŠΠĠŠϠŠԮũǠӠΠנƠŠ͠ĠŠӠŮΠΠĮӍŠӠŠŠˠƠ٠ҠŠҠĠɭӠάȮנɠӠ٠ŠϠҠ͠Ġ̠ԠҠԍӠӠ̠ӠӠΠĢӠŠŠŠԠӠ֠ԠĠӠΠŠԮŠƠӍԠӠӠӠ٠Ϡ٠ΠŠΠ٠Ԡ̠ōĠΠŠҮԠϠӠԭΠάҠŠǍϠҠ͠ҠŠƠՠϠϠԠŠàנɠΪٺŠԠҠàנɠӠŠƠ                    !! ! ԧӠ̠ӮԠϠԠРҠŠĠڡ٠ǮŠŠϠԠŠΠΠҠġŠĠōĠ٠ŠԠҩҠˮԠ٬ՠŠŠӠԠĠŠŠΠ٠ŠǍͬɭӠŠŠĠҠ٠ӮԠӠԠٍŠϠŠίĠΠӠՠŠĠˮ٠ƠӠΠŠӠɍҠˮȠŠՠŠӠΠŠ٠ՠԠРӠΠŠǍͮϠŠŠԠŠҠŠΠˬԠӠĠԠՠ٠ōӠӠɠӢӠɠҢĠ̠ŠԠӠ٠̠îՠĠŠŠĠōҠŠΠŮӠŠŠˠƠˠšŠŠӠɠҢӠ٠ǠȠŠàǠӠύŠȠŠͮŠŠ̠ԠӍϬӠӬנҠϬî٠ԠҠĠϮҬŠŠǧԠ٠ԠũĠΠŠ͠ՠҠӠŠΠӮŠŠӠ٠ŠԠԠԠŮԠӠϠōӠŬҠӬӠάԬîԠՠ̠ϠӠŠӠčӠҠŠҠΡƠɠĠ٬ɧĠŠԠϠΠӍàŠԠȠ̮Ϭՠ̠٠ԠϠŠŠǠӺձǠӭ̠ŠϠҠŠ͠ϠԠҠӮŠŠǠԠō͠ҩӠΠԬĠƠՠΠԠĠƠŠˠԠӍȠӬ̠ӠĠҠӠΠŠǠŠĬӠŠōȠĠҠōŠΠԠΠՠΧԠǠŠ٠ΠϠӠŠˍϮԠӠԠŠҠϠӠΠŠĠΠŠԠ̠΍ŠР͠ҩӠĮ̠ΠҠĠԠΠΠˍŠՠŠŠ٠̠ƠҠՠŠǠȮҍŬƠՠŠǠĠΠˠŠՠŠĠԠάԠҠ̠Š٠ŮŠ̠ǾϠϠ͠ՠӠՠϠРө̠ŠԠōŠԠŠԠźΠՠԠΠӠՠΠϠŠΠԠ٠ΠΠȠҮƠՠŠŠҠΠ͠ϠŠŠӠˠΠҍͮΠΠŠΠͮǠ̠ӺĠŠ͠ŠϠӍǾŠ̍ѾԠ͍ΠĠӺŠŠĠՍƠӠ΍٠ŠĠōΠՠԠԠӬŠŠǠ   ԧӠ̠Ӯ٠ϠĢӠ̠ѬϠԠՠԠҠΠլĠΠҠϠԠǮԠ̠Π٠Ӡ٠ϠŢϠϠϮՠŠ̠šՠŠ̠šϠĠԠӠ͠ӠũӠϠĠөĠΠҠŠӠƠŠӠՠȍϠԬȠŠŠ٠ŠΠĮΠՠŠŠӠþӠӬĠĠ̠٠þӠլҠĬĠԠҠ̠ŮΠӠҬĠč̠٠٠ϠŢӠ̠ѬϠԠՠԠҠΠլĠΠӠϠԠǮԠ̠Π٠Ӡ٠ϠŢύϠϮĠĠӠϠӠũӠ̠ѮӠ̠ԠՠԠҠΠծӠϠĠөĠΠҠŠӠƠŠӠՠȍϠĬȠŠˠ٠ŠΠΠҠŮΠՠŠŬӍԠ͠ŠŬΠ̍ˠϠԠƠ͠ŠĠŮϠˠԠԠźԠ̠ԠŠծҠŠŠƠŠԠŠՠԠϠˠԮĠ̠΍ǠԠԠϠծԠþϠԠԮϠϭϠˠԠҠźӠԬĠĠ̠٠ŠҠŠǠΠԍŠՠŠΠŠՠԠԮƠՠԠϠԠŠΠŠčϠΠŠՠ̠ŠϠԠԠՠΠ̠ĠŠԮŠؠ٠ŠΠ 􍭭ԧӠ̠ӮɯӠ堢젭栳Ԡ宠쬠嬠 堨嬠栶ﬠ쬠àɠ宮䮠󮍍䠳򠵠宍蠢䢍ɠᠵ嬠ɠɠﬠɍ䮠򍠠ލ婍    ̠宍堧Ԯ卍İǠӠ򍍠àөì宠鱰˨˽Ԡ٠Π̠ǩ˽˭ƠˠΠϠ̠Í庍ǠǠçήƠ嬠獤ƠРϩà٠좍﩮٠򽰮٠栰򳰺堳堶ð嬠̠ˠٺ٠Š蠨ϩ堢󢬠宠ð卍̠򾍍堧󺍍ĠððٍİĠŠàРîᮠ򮠠嬠ᠼ򍠠̠堧ᮠ纍ĠðİĠà򠳰ŠŠǠŠҍ嬠ﬠ宠亍纍򍠠򍠠򮍍򮍍󮠠묠宠䬠򮠠쮍򮍍ԠӠĠϠԠč嬠ŮÍ󮠠嬠󮠠笠笠笠宍îà堨à򮠠à忍䬠䬠宠嬠䮍٠͠ΠŠŠì󠨢󢩠宍䠧姠嬠Ӡ󮠠򮠠庠ɠ堨箠̠獧宠: ":H21H11ZZ1/H21H11ZZ1@M1M2ĺ"-";bP1P2DPH1(P11)H2(P21)rIZ211IDPĺ".";D%(I);20(A$)2:A$:I1200::::P((C$,1)):C((C$,1))/ $M%(MC)P:MCMC16 .AG 8M%(MC)C:C0M B` LSC1:ZBMCB VQM%(SC)D%(Z)C:SCSC1:C0 `Q; jC$(Q):(C$)1D%(Z)Q:1150 tQ((C$,1)):C((C$,1)):D%(Z)Q ~Z "Z=";Z B"THE ANSWER IS1:I1H1" M%(I)A%(X):XX1:I= "I1H1:A%(I)M%(I):IN ,XH2:I1H2g 6M%(I)B%(X):XX1:I @I1H1:B%(I)M%(I):I  * * * MULT !!! * * * B1H2 MC1:C0 A1H1 PB%(B)A%(A)C:C0 P101060 C$(P)1(A$)91900 A$;:B%(H2)(A$):H2H21:160K A$(13)Č868::260r A$(8)ĭH21H2H21:(8);:160 A$"0"180 A$"-"M2M21:A$;:160 A$"-"M2250 A$"."P2P2H2:A$;:160 64484:160 H1H11:H2H21 XHA$"0"60) dA$"-"M1M11:A$;:40< nA$"-"M1140[ xA$"."P1P1H1:A$;:40n A$"."P1250 A$"^"H2H1:I1H1:B%(I)A%(I)::M2M1:P2P1:260 64484:40 ::"ENTER SECOND OPERAND:": A$ H211000250 (A$)"500 CHARACTERS! DECIMAL POINTS AND MINUS (-) SIGNS ARE ALLOWED."f ::"ENTER FIRST OPERAND:":n (A$ -H111000140 2(A$)1(A$)970 <A$;:A%(H1)(A$):H1H11:40 FA$(13)Č868::150 PA$(8)ĭH11H1H11:(8);:40 Z* A%(1000),B%(1000),M%(1000),D%(2000)8H11:H21d::A$"D.K. ARENDT PRESENTS...":63999A$"THE ALL NEW":63999A$"* * * * LMULT!!!! * * * *":63999:"THIS PROGRAM WILL ALLOW YOU TO MULTIPLY ANY TWO NUMBERS OF LENGTH UP TO"D  נŠРϠԠŠϠϠˮΠĠҠŠҍϮ ξԠ̠ˠƠՠԠϠŠŠǠŬčȠ٠ΠŠŠӠŠآĠՠŠŮŠՠŠĠҠӬ٠ϠŠҮנŠŠүРξōŠҠՠԠϠŠϠ̠РŠϮŠҠŠŠƠŠӠԠŠϠӮРŠŠՠŠŠϠΠРŮŠŠŠΠӠԠٮΠŠӠǠŠϬŠؠϠԠϠůԠŮŠՠŠˠϠŠĠŬŠ٠ξϠҠŠōҮΠŠǠϮ ξϠĠҠԠŠҠԠŠРҠ٠͠ĠԠξŠŠ̠ōĠ٠ŠӠΠӠŠŠȠŠŠŠȠŠؠâźԠӠĠƠՠԠϠҠŠӠŠǠōĠĠҠӠϠӠƠҠŠҠŠՍĠҠŠǺݪرڧξנӠȠҠξϠԠϠŠΠϠՠĠҠנϠŠŠϠϠˮŠ̠ˠՠҠŠŬՠĠҠӠϬŠӠϠŠŠԠҠŠĠԍ͠ŠԬĠԠҠĬΠԠҠŠŠҠԠčĠŠԠҠӠƠҠŠҮϠƠҠĠΠӍĠӠرڠĠŠԠҠN$(F); ::AN$(100) DI,DV/A$(DV):D(A$)DB$(DI):E(B$)P#Z1:J1f(K(C$(B$,Z,D))r2I110|<HDIFHK90PIZAN$(J)(I1):JJ1dI10DD1:40iZZD:ZER(C$):120nC$(KH):D1:40xF1J A  B * PAUL IRWIN *4C * (613) 728-6728 *OD ********************gE DOWNLOADED FROMF WALT MARCINKO'SG "APPLE CITY"H SOURCE #: TCD912I ********************BASIC"yX(0)-y20:16:"WHICH? ";:A$@yA$"S"31160Ry21000:31010eyA$"P"31180wy22000:31010yA$(13)31130}::12:9 }"CALENDAR IS OFF THE AIR"}23@ ***** CALENDAR *****A * WRITTEN 1980 BY *6(0y"FROM THE OTTAWA 6502 USER GROUP"J2y:9:"WRITTEN BY PAUL IRWIN"W6yT12:10@y5:"A PERPETUAL CALENDAR PROGRAM FOR"Jy"YOUR CHOICE OF SCREEN OR PRINTER:"Ty:T:"S ... SCREEN"^y:T:"P ... PRINTER"hy:T4:" ... RETURN TO ** "RvNINESv" **** "*Tv"** **"8Uv"** **"FVv" **** "TWv" ** "bXv" ** "pYv"** "~\vY$(7,10)fvI110pvJ17:Y$(J,I):zvy y y **** MAINLINE MENU ****"y:::255,y3:16:"CALENDAR".y:9v"** **":v"** **"*;v" **** "5>vSEVENC?v"******"Q@v"* **"_Av" ** "mBv" ** "{Cv" ** "Dv"** "Ev"** "HvEIGHTIv" **** "Jv"** **"Kv"** **"Lv" **** "Mv"** **"Nv"** **"Ov" ** "v" *** "#v" * ** ")$v"******"7%v" ** "E&v" ** "S'v" ** "]*vFIVEk+v"******"y,v"** "-v"** ".v"***** "/v" **"0v"** **"1v" **** "4vSIX5v" **** "6v"** **"7v"** "8v"***** "" v" **** " vTWO& v" **** "4v"** **"Bv"** **"Pv" ** "^v" ** "lv"** "zv"******"vTHREEv" **** "v"** **"v" **"v" ** "v" **"v"** **"v" **** " vFOUR!v" ** "MO$(I):uLINE$(7)8uT(3):T(1)1:T(2)28:T(3)55BuZEROPu" **** "^u"** **"lu"** **"zu"** **"u"** **"u"** **"u" **** "vONEv" ** "v" *** "v" ** "v" ** "v" ** "v" ** HIS WORKS WHEN<fu FEBRUARY IS THE LAST MONTH OF THE YEAR!tuF0(12):0,31,61,92,122,153,184,214,245,275,306,337uI112:F0(I):uMO$(12):MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBERuOCTOBER,NOVEMBER,DECEMBER uJANUARY,FEBRUARY:I112:R! >>>"LW"OTTAWA 6502 USER GROUP -- POB 6283 STN J -- OTTAWA -- K2A 1T3"`WI18:(32):hWCNoW0uY0u **** CONSTANTS ****:uD03: PHASE DAY OF WEEKbu START THE YEAR ON MARCH FIRST AND TABLE THEdu FIRST DAY OF EACH MONTH. T1);" ";Y$(L,Y31);" ";Y$(L,Y41),V>V(32):(32)IV(32)TVA03^V6010lVLINE$(7)VA$"S M T W T F S"V" ";A$;" ";A$;" ";A$VI16:LINE$(I):WI13:(32):WAW"<<< HAVE A GREAT YEANC%1NC%20220622V:=6V"START UP THE PRINTER, THEN"X@V"PRESS A KEY ";:A$wJV::15:"... STANDBY ..."TV::VSLOTV(9);"80N"VCN1NC%V(32)V(32)VL17VI120:(32);:&VY$(L,Y11);" ";Y$(L,Y2T4ĺ(7);"PARDON?":22020"V:A"V"WHICH YEAR?(YYYY): ";Y0$V$V(Y0$)422050&VY1((Y0$,1)):Y2((Y0$,2,1)):Y3((Y0$,3,1))'VY4((Y0$,1))(VY(Y0$),VY1582Y2999ĺ(7);"PARDON?":22050.V0V"HOW MANY COPIES?(1-20): ";NC%:: CHOICE%R5000: DISPLAY MONTH0R21150DRA$(13)21900XR21150: IGNORE^U{U **** PRINTER MENU ****U"OTTAWA 6502 USER GROUP -- POB 6283 STN J -- OTTAWA -- K1P 5R3"U:U6V"PRINTER SLOT? (1-4) ";SLOTVSLOT1SLOPACE> ... ANOTHER CHOICE">RT:" ... RETURN TO MENU"MR23:1:A$aRA$(8)21180wRMM1:M121174RM12:YY1R5000:21150RA$(21)21190RMM1:M1321186RM1:YY1R5000:21150RA$(32)21210 R3000**** R:*R:1:1:I139:(32);:R&RI118:I:1:(32);:39:(32);:o0R18:1:I139:(32);:u:RDR3000: CHOICENR5000: DISPLAY MONTHXR:20:T8bRT:" ... LAST MONTH"lRT:" ... NEXT MONTH"vRT:"A$HRA$"N"1170\ ---------f EDIT DATA---------------*HEADER$"FORMAT DATA "42000XFOOTER$"NUMBER TO CHANGE OR N"b2170j10"1) LEFT MARGIN = "LMARGIN"2) RIGHT MARGIN = "RMARGIN"3) LINES PER PAGE = "LPAGE"4) BOTTOM MARGIN = "BMARGIN(AUTH$,I1,1)" "J64J91JJ325 I$I$(J)< II &AUTH$I$[ 0 ENTER DATEc :14m D868 N"DATE (9 CHARS):";IN$ X(IN$)9570 bIN$:"OK? ";Y$:Y$"Y"570 lDT$IN$ v ----------------  DATA FORMAT MENU -(NF$"2")1:Z$:Z$:300# 216,0E NAME$""NF$"A"NF$"Z"350`  ENTER AUTHOR'S NAMEh 12 "AUTHOR = ";AUTH$ AUTH$""440  CONVERT TO LOWER CASE I$(AUTH$,1) (AUTH$)2560 I2(AUTH$) J((AUTH$,I,1))&  ----------------- / ,HEADER$"PROGRAM DATA"9 62000H @FOOTER$""R J2170l T ENTER PROGRAM NAMEt ^10 h"PROGRAM NAME (1 OR 2 FOR CATALOG)" r11:868:": ";NAME$ |NF$(NAME$,1) EF4:2460 NF$"1"NF$"2"ė:D$"CATALOGD";M NAME$,AUTH$,DT$,SELECT,COMMENTS,LMARGIN,RMARGIN,LPAGE,BMARGIN,D1,D2,SLOT\ D$"CLOSE"g 216,0} LPAGE0LPAGE66 RMARGIN0RMARGIN79 D10D11 D20D22 SLOT0SLOT1  -----------------  PROGRAM DATA MENU " D dBLANK$" ": 39 SPACESQ nQ$(34)] xD$(4){ ---------------------- READ FORMAT PARAMETERS ---------------------- EF1:2460 D$"OPEN NAVIGATOR.TXT" D$"READ NAVIGATOR.TXT"! ************************A * NAVIGATOR.1 *a * BY LEE SWOBODA *( * COPYRIGHT (C) 1985 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F ************************P NIBBLE,V6/N7,P15. Z        Ҡ٠ԩŠԠҍ堭٠̠ՠӠҠӡӍӠҠ٠ԠǠՠԠӠĠӠŠŠϠ١ԠǮŧŠǠϠōӠέŮҍŠԠҠ :A$(A$" ",6). DB$(B$,(B$)B1)U N(B$,1)" "B$(B$,(B$)1):590b XB$A$B$w b ------------- l FORMAT STRING v ------------- J1: STRING SUBSCRIPT L0: SUBSTRING LENGTH K(B$)(B$,7,3)"REM"(B$, D$"READ EXX"%  ------------ 9  BUILD STRINGM  ------------W B$""_ A$q A$(13)530 B$B$A$:(B$)248B$"<<< LISTED LINE TOO LONG FOR NAVIGATOR >>>":1650:610 490 B(B$) B0490 &A$(B) 0B(A$) 6I1LNLGTH(AUTH$)98 @HEADER$(2)HEADER$(2)" "? JI] THEADER$(2)HEADER$(2)DT$m ^I1LNLGTH hHEADER$(3)HEADER$(3)"-" rI |LPAGELPAGEBMARGIN A$(40) D$SLOT$:(9)"80N" 1470 EF2:1210 D$"OPEN EXX,D"D1 --------------, SLOT$"PR#"(SLOT)F PAGE0: PAGE NUMBERs LNLGTHRMARGINLMARGIN: LINE LENGTH HEADER$(1)NAME$ I1LNLGTH(NAME$)9 HEADER$(1)HEADER$(1)" " I "HEADER$(1)HEADER$(1)"PAGE " ,HEADER$(2)AUTH$* Z  d  nD$(4)! x1 EF1:1210M D$"OPEN NAVIGATOR.TXT"i D$"READ NAVIGATOR.TXT" NAME$,AUTH$,DT$,SELECT,COMMENTS,LMARGIN,RMARGIN,LPAGE,BMARGIN,D1,D2,SLOT D$"CLOSE" 216,0 -------------- DEFAULT VALUES c! ************************A * NAVIGATOR.2 *a * LISTING FORMATTER *( * BY LEE SWOBODA *2 * COPYRIGHT (C) 1985 *< * BY MICROSPARC, INC *F * CONCORD, MA. 01742 * P ***********************     EF(EF3):(D1D2)12530,2540E :12:"ERROR #";E" IN LINE "EL"." :"PRESS ANY KEY TO CONTINUE";:Z$::EF160,1400,1850,300,2360 :"YOUR PROGRAM AND NAVIGATOR MUST BE":"ON THE SAME DISK!":DC EX1,D"D1 9 E(222):EL(218)256(219):216,0q EF1E5ĺD$"CLOSE":D$"DELETE NAVIGATOR.TXT":220 EF3E10Ĵ(D1D2)12320,1710 EF3EF32(D1D2) E4ė:12:"DISK WRITE PROTECTED":2530 E6ė:12:"FILE NOT FOUND":EFTENCE OF PROGRAM&B D$"OPEN EX1,D"D19L D$"WRITE EX1"JV "LOAD"NAME$s` F$"RUN NAVIGATOR."(NR)",D"(D1)j "0HOME:D$=CHR$(4):?D$"Q$"OPENEXX,D"(D1)Q$":?D$"Q$"WRITEEXX"Q$":LIST1-:?D$"Q$"CLOSE"Q$":?D$"Q$F$Q$t "RUN"~ D$"CLOSE"  D$"EXE21" "FOOTER$" "'23Q4)"COPYRIGHT 1985 MICROSPARC, INC."Wh ---------y ONE-DRIVE ---------  12:16368,0$ "BE SURE PRINTER IS ON LINE,"::"AND PRESS ANY KEY";. A$:8 1630: VERIFY EXIS12)"THE NAVIGATOR"" B9)"BASIC LISTING UTILITY"e 8)"AND FLOW CHART FORMATTER"k*q4}>BLANK$H7R" "HEADER$\f10pz ----------- MENU FOOTER -----------21BLANK$PENEXX,D"(D1)Q$":?D$"Q$"WRITEEXX"Q$":LIST1-:?D$"Q$"CLOSE"Q$":?D$"Q$F$Q$R"RUN"aD$"CLOSE"wD$"EXEC EXE,D"D1} =========== SUBROUTINES ===========  -----------  MENU HEADER -----------E,"::"AND PRESS ANY KEY";%756+712:13L"THE NAVIGATOR"X&D$(4)e0Q$(34)o:1630DD$"OPEN EXE,D"D1ND$"WRITE EXE"X"NEW"b"LOAD "NAME$",D"D2lF$"RUN NAVIGATOR."(NR)",D"(D1)Gv"0 D$=CHR$(4):?D$"Q$"OD1D22290" --------------8 FORM TEXT FILEN --------------Tf10:16368,0"PLACE NAVIGATOR DISK IN DRIVE #"D1"PLACE THE DISK CONTAINING""'"NAME$"'""IN DRIVE #"D2",":"BE SURE PRINTER IS ON LINDT$SELECTCOMMENTS,LMARGIN9RMARGINDLPAGEQBMARGINY"D1a,D2k6SLOT@D$"CLOSE":D$"OPEN EXX":D$"CLOSE EXX":D$"DELETE EXX"J216,0T^EF3:2460hD$"RENAME"NAME$","NAME$",D"D2r216,0| ıIJԍԠĤŢ͠͠ԠӍ͠͠¤äԠ͠ŠԍŠ͠ŠҍȠΠκ͠Šȍ͠͠͠ĤҤŠƠҠϠԠĤΠҮԢԠĤĠҮԢԠŤȤԤԬӬάάŬάˮŠԠӡ͠͠Ү͠נԠҠ͠٠Š͠Ԡé͠٠ìà͠Ĭ                      (T$,L):A$(I1)" "(T$,L1):JJ1<^II1:IJ1550Bh\rAA$:AA$(13)1650b|D(T$)SI1630+"(T$,6)" "1590y,SISI5((T$,7,3)"FOR")5((T$,7,4)"NEXT"):SILNLGTH10SILNLGTH106KJ:LSI1@AL$(A$(I),L,1):AL$" "AL$"$"AL$","AL$(126)LL1:1600JA$(K1)A$(K):KK1:KI1610'TA$(I) ============ # PRINT HEADER7 ============UP1LPAGEBMARGINLCOUNT[bPrPAGEPAGE1LMARGIN)HEADER$(1)PAGELMARGIN)HEADER$(2)LMARGIN)HEADER$(3)LCOUNT4SILNLGTH10:I1T$A$(I)1390"I1LPAGEBMARGINLCOUNT(/(IV2SELECT3ĺD$"RUN NAVIGATOR.3,D"D1d<D$"PR#0"sFD$"CLOSE"PD$"DELETE EXX"ZD$"OPEN EXE":D$"CLOSE EXE":D$"DELETE EXE"dD$"OPEN EX1":D$"CLOSE EX1":D$"DELETE EX1"n216,0xAG 480 ===! END, ===UE(222):EL(218)256(219):216,0hEF2E51300:12:"ERROR #"E" IN LINE "EL".":"PRESS TO QUIT,":"OR ANY OTHER KEY TO TRY AGAIN."Z$::Z$(27)ĺD$"CLOSE": EF130,420,),7,4)"NEXT"1170djINDENT4LNLGTHLNLGTH5:INDENTINDENT5: UNINDENT FOR...NEXT LOOPptZ780~(A$(I),Z,1)","ĭINDENT4LNLGTHLNLGTH5:INDENTINDENT5ZIRFLAG0: CANCEL "REM" FLAGTFLAG0: CANCEL "THEN" FLGTH5: INDENT FOR NEXT LOOPS4 PRINT THE LINEH(1)LMARGIN);d$(A$(I),5,1)":"1090x.TFLAGĺ" ";8INDENT)A$(I):1120B(A$(I),6);L(A$(I),7,3)"REM"(A$(I),7,4)"DATA"ĺINDENT);V(A$(I),7,(A$(I)))`(A$(I)"REM"1170: SKIP REMARKS?j(B$,7,3)"REM"R10ĺ:R11:LCOUNTLCOUNT1: SKIP LINE BEFORE REMARK (B$,7,3)"REM"R11ĺ:R10:LCOUNTLCOUNT1: SKIP LINE AFTER REMARK(S)LCOUNTLCOUNT1(A$(I),7,3)"FOR"INDENTINDENT5:LNLGTHLNL0!zA$" "(B$,I1,1)"("9205A$","A$", "HA$(J)A$(J)A$OIc ----------- v PRINT LINES -----------1540:LCOUNTJ(LPAGE)İ1410: NEW PAGE?I1J(A$(I),9,4)"THEN"TFLAG1COMMENTS0(A$(I),7,3830[4(B$,7,2)"IF"(A$(J),5,1)":"(B$,I,4)"THEN"JJ1:A$(J)" ":L9:830l>A$":"860H(B$,I3,4)"MEM:"860RJJ1:A$(J)" : ":A$"":L6: NEWLINE\I7910fA$" "(A$(J),1)" "920pA$" "(A$(J),1)"("92TO TILDE QFLAGRFLAG910e(A$(J),7,2)"IF"(B$,I,4)"GOTO"JJ1:A$(J)" ":L9:860 (A$(J),7,2)"IF"(B$,I,4)"THEN"JJ1:A$(J)" ":L9:860*(B$,7,2)"IF"(A$(J),5,1)":"(B$,I,4)"GOTO"JJ1:A$(J)" ":L9:7,4)"DATA"RFLAG1 A$(1)"".B$B$" "B FORMAT LINESNQFLAG0YI1KcLL1tA$(B$,I,1)A$" "A$"^"((A$)224): CONTROL CHARACTERSA$(34)QFLAGQFLAG: STRINGSQFLAGA$" "A$(126): CHANGE SPACE ǠӠϠƠĤ¤ɬĢΠŠǠϠƠĤ¤ɬ΢ΠŠǠϠƠĤ¤ɬԢΠŠǠϠƠĤ¤ɬϠƠĤ¤ɬŢĠԠΠԠŠǠӠϠƠĤ¤ɬŢΠԠŠǠӠϠƠĤ¤ɬĢΠԠŠǠӠϠƠĤ¤ɬâΠŠǠϠƠĤ¤ɬŢΠŠǠϠƠĤ¤ɬŢĠԠΠԠŠǠӠƠĤ¤ɬԤΠԠŠǠϠƠĤ¤ɬ΢ΠŠǠϠƠĤ¤ɬ٢ΠŠǠϠƠĤ¤ɬĢΠŠҠɠϠʍ¤äɩ͠͠ΠҠӠΠ̍͠ƠӠϠ̱Π¤ҠɠϠ̱ƠĤ¤ɬңΠԠŠǠϠϠƠΠƠĤ¤ͬԠĤҠĤ¤ͬԠҤΠӠƠΠäʩäʩԠ͍͠͠Ӎ͠ĤäʩƢΠʠʠäʩ͠נōƠ͠ϠƠĠԤäʩϠƠĠԤäʩϠƠĠĤ¤ɠǺ͠ӍƠǠĠΠҤ͠ŠŠϠōƠǠϠ͠ϠԠԠӍƠϠƠĤ¤͠ͺϠƠĤ¤ƢĠƠҤΠӠƠĤʩԠĤҠĤʩԠҤΠӠƠΠޢҤà̠͠ӍƠҤΠǠԠ͢ҠĤ¤Ϡ͠͠ԠӍ͠ʠ͠ǠԍƠӠΠӠˠΠ¤äҠ͠ϠˍĤ¤ͬƠ ϠҤ© ΠԤ¤Ԥ¤Π¤ ƠԤ¤Π¤Ԥ¤Π¤Ϡ¤¤ƠĤ¤ҤԠƠҤΠǠϠ¤¤ƠΠ¤Π¤ĠŠϠǠҠҾ ˠƠϠϠƠԠҤ ̠¤Ԡ֤ԠԤˤ֤ԤΤ֤ԠˤפƠҠϠԠĤΠجĢıԠĤĠآ͠͠ĠǍ͠ ͠ԍ͠ƠԠΠԠĤԤԠҤ΢ ͠ԠҍԠԤˤԤΤԠԤˤ֤Ԥˤ֤ԠԤˤҤ̠͠ōҠɠϠˤˤҤԠɍҠɠϠΤΤդԠɍפ֤ˠ͠­Šԍ¤ˤפ͠ŠŠ΍Р͠РǍԠ͠ԠǠϠΠԠ͠ԠǠčԤңҤԩդҤ͠ōӤҤ͠ȍ֤ԤΤ֤̠ԠʠƠĤ¤ϢΠ¤̩¤̩Ĥ¤Π¤פƠĤ¤¢Π¤̩¤̩Ĥ¤Π¤ƠĤΠ¤פ֤¤Ԥˤ֤ͤԤˤˤ֤ҠɠϠʍ¤ɠԤˤ֤ɩ֤Ԡɍ¤ʠԤˤ֤ΠŠϠ͠͠Š͠¤ԤˤԤΤ֢ԤΤƠפΠ¤Ԥ¤դĤ¤ʠҠɠϠ̱Р̲ʩĤ¤ɬ̲ʩԤʩˤ̲ʠʠԠɍʠʠƠ̱̲ΠԤԤˤ̲̱ˤ̲Ĥ¤̲̱¤Ԥ¤̲͠͠͠͠ԍ̲͠ƠŠΠ̲ƠŠΠ̲ͤԤ¤̱Π¤ɠϠ̱ƠĤ¤ɬ΢Πנ̲ɺƠĤ¤ɠ¢ΠנפƠĤ¤ɬϢΠנ̲ɍƠנΠɠ̱Ԡɍפפ¤̲̱ԠԠϠ͠͠ŠӍ͠ƠĤ¤ƢϠ̱Π¤פנȠϠԠԤ¤˩Ԥ¤Ĥ¤˩Ĥ¤̲̱ԠԠ¤Ĥ¤̱Π¤ƠΠ¤ȠϠԠԤ¤˩ĤϠƠӠĠĤ¤͢Ϡ¤¤̲̱ȠƠԠũΠ ƠĤ¤̱ĠĤ¤̱Π̱̱Ơ̱Ĥ¤ԢĠԠΠǠ͠͠ŠӠĠӍ͠ƠĤ¤͢ĠĤ¤ǠƠĤ¤ԢҠĤ¤ԢĠԠΠǠƠĤ¤ԢĠԠΠǠƠĤ¤ԢĠԠΠǠƠĤ¤ԢҠ¤ԢΠŠƠĤ¤ƢΠŠ͠͠ŠǍ͠ƠŠϠǠƠĤ¤ԢĠԠΠΠŠǠϠԠɍ͠͠Šō͠ŠƠĤ¤ԢΠŠƠĤ¤ԢΠŠƠĤϠƠĤ¤ɬ΢ΠŠǠϠƠĤ¤ɬŢΠŠǠϠƠĤ¤ɬŢΠŠǠϠƠĤ¤ɬˢȠƠĤ¤ɬŢΠŠǠϠƠĤ¤ɬˢΠŠǠϠƠĤ¤ɬآΠŠǠϠƠĤ¤ɬŢΠŠǠǢΠŠǠϠƠĤ¤ɬ΢ΠŠǠϠƠĤ¤ɬŢΠŠǠϠƠĤ¤ɬȢΠŠǠϠ֢ԤΤƠפΠ¤Ԥ¤դĤ¤Π¤פ֤¤Ԥˤ̱ͤԤˤӤƠ̠Π¤Ԥˤ̱ӤԤΤΠ͠͠Š̠͠ԠʠƠʠ̠ΠʠʠʩԤˤ̲̱¤Ԥˤ̱ԤΤӤ¤ˠ¤ˠ֤ˠ֤¤˩¤˩פ֤ӤԤΤ֤¤ˠ¤ˠ֤Ԥˤ֤¤ˠ¤ˠΠ͠͠ˍ͠פƠǠΠפˠԠʠ¤ˠ¤ˠԤΤ¤ˠ¤ˠԤˤ֤Ҡ֤¤˩¤˩֤Ԥˤ֤¤ˠ¤ˠ֤ԤΤ֤¤ˠ¤ˠ֤ԤΤŢΠ͠͠ҍ͠ˠԠʠ¤ˠ¤ˠԤΤ¤ˠ¤ˠ֤Ԥˤ֤¤ˠ¤ˠӍ¤ˠ¤ˠ͠Ӎ¤˩¤˩Ġ¤ˠ¤ˠ͠Ӎ¤ˠ¤ˠԤΤӤԤΤΠ͠͠č͠ˠԠʠ¤ˠ¤ˠԤΤ¤ˠ¤ˠ͠Ӥ͠Ӎ¤ˠ¤ˠ֤͠Ӎ¤˩¤˩Ϡ֤¤ˠ¤ˠӤԤˤ֤¤ˠ¤ˠԤˤ¤ʠˤפˠʠϠ͠͠΍͠ˠԠʠ¤ˠ¤ˠԤΤ¤ˠ¤ˠ¤Ԥˤ̱±ԤΤ̲±֢ԤΤ̲±ƠפΠ¤Ԥ¤դĤ¤Π¤פ֤ΠǠ ҠˠʠϠР¤ˠԤˤ̱±Ӥ±Ĥ˩±±±±±Ԡˍ¤Ԥˤ̱±ͤӤԤˤˤ̲±ҠɠϠʍĤɩɩԠɍƠʠϠʠʠĤʩԤˤ̲Ϡ̱¤ʠԤˤ̱ӤԤΤ±±Ϡ¤̩¤̩Ԥ¤̩ȠΩƠĤ¤΢ҠĤ¤ĢΠפ¤ʠˤפˠʠϠ͠͠Š͠ƠΠ¤ƠĤ¤¢ϠԠ¤̩¤̩Ĥ¤Π¤פ֢ƠΠ¤̩ȠΩΠ¤̠¤̠Ĥ¤̩ȠάΨ¤΢ϠҠϠΠ¤ƠĤ¤ϢϠԠƠΠ¤Ϡ¤̩¤̩Ĥ¤Π¤פϠҠƠפ֤ΠԠ֠ĠΠŠŠԠԠƠפ֤ΠԠĠΠŠŠԠԠ ԠˤפĠ͠ŠŠԠԠĤΠرԠĤŠرԠĤŠرԠĤΠجĢıԠĤŠآԠĤŠآנ͠͠Ԡҍ͠ԠԤ¤˩ԠԤˤ֤ԤΤ֤ŠҠɠϠŠΠԍԠԠɍԠĤңԠĤŢԠĤΠŢԠĤŠŢԠĤŠŢ֤ΠԠԤˤԤΤ֢ԤΤƠפΠԠԤˤԤΤԠԤˤ֤Ԥˤ֤ԠԤˤ֤Ġ֤ҠɠϠˍԠ¤ɩԠɍ¤˩Ԥ¤˩ԠɍϠ͠͠č͠ƠˠϠƠԠŠΠ ƠפϠˍ¤ɩԤ¤ɩРĤ¤ɩРƠРΠ¤ɩԤˤĤ¤ɩԠɍ͠͠ԍ͠ԠԠˍРР¤̩Ԥ¤̩ЩԤЩĤ¤̩͠ӠҠ΍ҠɠϠƠĤ¤ɬΠРРԠɍҠɠ̠ԠӍРРҠɠ̠Ϡˍ¤ɩԤ¤ɩЩԤЩĤ¤ɩԠɍϠ͠͠ĠЍ̠͠ҢϠϠ͠͠ԠЍ͠ƠĤ¤ҢϠ¤̩Ԥ¤̩ЩԤЩĤ¤̩͍ƠРϠҠɠϠˍƠɠϠ¤ɩԤ¤ɩЩԤЩĤ¤ɩԠɍƠĤ¤ԢϠƠĤ¤ƠˠʠΠˠʠϠ͠͠ԠӍ͠͠͠͠ˠӍ͠͠ƠԠˠũΠ ̲̲Ơ̲ΠϠפĤ¤˩̲Π¤˩¤˩Ԥ¤˩̲ˠˠƠˠʠΠ¤˩ԤԤ¤ˠˤ̱¤˩¤˩פϠ¤˩¤˩פ̲΍ƠΠ¤˩̲ϠƠĤ¤˩̲ĠĤ¤˩̲ĠĤ¤˩̲ĠĤ¤˩̲ҤĠĤ¤˩̲έӤԤΤ¤ʠˤפ͠ĠӠȠӍ̱Π¤̠Ҡɠ̠Ϡʠ¤ɩԤ¤ɩˤ̱Ԡɍ͠Ġԍˠ̠±˩±±±Ҡˠ̠ϠР¤ˠ̠Ԥˤ̱±Ӥ±̠ˠ±±±±±Ԡˍ¤ʠԤˤ̱Ϡ±±ҠˠϠ̍¤ˠԤˤ̱±±˩±Ӥ±±±±Ԡˍ¤̠Ԥˤ̱±J)C$(JJ)A$MM ---* DOS5 ---BII1JJPB$C$(II)W z$ SCAN FOR CHANGES IN CONTROL. 8DOS01380BL1(B$)LI15L1V(B$,I,4)"PR#0"PRNT0:SHAPE2:FLAG1:1860`(B$,I,4)SLOT$PRNT1:SHAPEC$(JJ)" ":A$"": NEW LINE/MM7980OA$" "(C$(JJ),1)" "990oA$" "(C$(JJ),1)"("990A$" "(B$,II1,1)"("990A$","A$", "(B$,MM,8)"PRINT D$"(B$,MM,15)"PRINT CHR$ (4)"DOS1A$";"A$"; " C$(J$)224): CONTROL CHARACTERSCRA$(34)QFLAGQFLAG: STRINGSx\QFLAGA$" "A$(126): CHANGE SPACE TO TILDEfQFLAG980: DO NOT FORMAT STRINGSpA$":"910z(B$,MM3,4)"MEM:"910!(B$,7,2)"IF"(C$(JJ),7,2)"IF"JJJJ1:-- FORMAT LINES* ------------GJJ1: STRING SUBSCRIPTXDOS1DOS0e KK(B$)rC$(1)"" MM1KK*A$(B$,MM,1)4A$(4)DOS1>(A$(JJ),7,8)"PRINT D$"(A$(JJ),7,14)"PRINT CHR$(4)"DOS1HA$" "A$"^"((A:4470:K1:EF2:3570l590.vEF0:(1);:B(B$)GB0590SA$(B)_B(A$)xA$(A$" ",6)B$(B$,(B$)B1)(B$,1)" "B$(B$,(B$)1):700B$A$B$(B$,7,3)"REM"(B$,7,4)"DATA"1600 ----------7)V$ BLANK$FLOW$% EF2:3980; D$"OPEN EXX,D"D1M D$"READ EXX"a & ------------u 0 BUILD STRING : ------------ DB$"" NA$ XA$(13)QFLAG0:630bB$B$A$:(B$)249B$(1)"<<>>"B$(1)BLANK$FLOW$  -----,  START9  -----[ SELECT2ĺD$SLOT$:(9)"80N"u 4340: PRINT HEADER (BLANK$,22)(UNDERLN$,17) (BLANK$,21)V$(BLANK$,17)V$ (BLANK$,21)V$" START "V$ (BLANK$,21)V$(UNDERLN$,1D "SLOT$"PR#"(SLOT)4 ,U$(95): UNDERSCOREN 6S$(92): BACKSLASHy @V$"!": VERTI CAL LINE JI130 TBLANK$BLANK$(32) ^I hI142 rUNDERLN$UNDERLN$U$ |I FLOW$V$ K1: SUB-LINE SUBSCRIPT --------" A$(40),B$(40),C$(40)= LCOUNT9: LINE COUNTW PAGE0: PAGE NUMBER LNLGTHRMARGINLMARGIN: LINE LENGTH LPAGELPAGEBMARGIN LOOP0: LOOP FLAG PRNT0: OUTPUT FLAG -> VIDEO SCREEN  INPT0: INPUT FLAG <- KEYBOAR* Z  d  nD$(4)! x1 EF1:4430M D$"OPEN NAVIGATOR.TXT"i D$"READ NAVIGATOR.TXT" NAME$,AUTH$,DT$,SELECT,COMMENTS,LMARGIN,RMARGIN,LPAGE,BMARGIN,D1,D2,SLOT D$"CLOSE" -------------- DEFAULT VALUES ------0! ************************A * NAVIGATOR.3 *a * FLOW CHART PRINTER *( * BY LEE SWOBODA *2 * COPYRIGHT (C) 1985 *< * BY MICROSPARC, INC *F * CONCORD, MA. 01742 * P ***********************                ҤϠΠ:O$" to (=End) #":7000:CR1:8100:ZA:I$""ZX1PF1FZZXO$EL$"Illegal line #"EL$:7000PO$EL$:7000:X2ıPAFZ:A$""A$("0"(A),2)">"PO$A$D$(A)EL$:7000:A:*QX1O$EL$"Are ԠҠŢΠŠ̢ԠԠӠþϠԬԠҠ٠Ҡ٠Ϡ٠ήԠڤƠڤҤΠΠƠϠԠĤңԠĤŢĠԠƠԠèΩȤèȠΠȤԤԠèΩҠؠϠȍԠԠ؍ԠԠΠŠˠ̠ˠˠŠŲΠ͠͠Ԡԍ͠ҠؠϠŠΠԍԠԠ؍ŠŠԠèΩŤèȠΠŤŠō" SHAPE 2" ------- *"$ I1J:". D$(I)A$(I)A"8 IO"B J22410Y"L JJ1p"V D$(J)(BLANK$,L2)z"` 2370"j L119"t B$(J3)(BLANK$,L11)S$(UNDERLN$,23)"/""~ B1$" "" B12" KJ11 # B$(K2)(BLANK$,L1B1)S$B1$D$(K"(B$,AA5,(B$)):FLOW$"V"!(B$(L))LNLGTH(LMARGIN)B$(L1)B$(L1)" "(B$(L),LNLGTHLMARGIN,(B$(L))):B$(L)(B$(L),LNLGTHLMARGIN)!(B$,7,6)"RETURN"(B$,7,3)"END"FLOW$" "!B$(J4)BLANK$FLOW$!KJ4!3490" -------(L)"--->"(B$,12,(B$))3 p(B$,7,2)"ON"2270D zAA10(B$)` (B$,AA,4)"GOTO"2210h AA| AA(B$)2220 B$(L)B$(L)"--->"(B$,AA4,(B$)):FLOW$" ":2260 AA10(B$) (B$,AA,5)"GOSUB"2250 AA!B$(L)B$(L)"--->NUM$" "V$(BLANK$BLANK$,31)V$-*I1JZ4B$(I2)(BLANK$,14)V$" "A$(I)" "V$a>IHB$(J3)(BLANK$,14)V$(UNDERLN$,31)V$RL(J2)3\(B$,7,4)"GOTO"B$(L)B$(L)"--->"(B$,11,(B$)):FLOW$" " f(B$,7,5)"GOSUB"B$(L)B$L2L16)2)A$(1)BLANK$,L2)6SHAPE2030,2310,3030G ------- V SHAPE 1e ------- B$(1)(BLANK$,14)" "(UNDERLN$,15)"V"(UNDERLN$,15)" "FLOW$" "B$(1)(B$(1),30)U$(B$(1),32,(B$(1))):FLOW$V$" B$(2)(BLANK$,8)L---------N FORM TEXT+X ---------5bL229HlSHAPE2L223[vSHAPE3L227mLNUM$(B$,5)zL1(B$)J1I7L1L2A$(J)(B$,I,L21)A$(J)(A$(J)BLANK$,L2)JJ1IJJ1L1L25A$(1)((BLANK$,((B$)ARROW$"--->"#FLOW00I10L1|(B$,I,4)"THEN"FLOW1:L2I:(B$,I5,5)"GOSUB"FLOW3:ARROW$"--->"(B$,I,4)"GOTO"FLOW2:L2IFLOW0IL11I&ARROW$ARROW$(B$,L21,L1)0B$(B$,L22): #11000 D L25,L15):LCOUNTLCOUNT1;B$" "(B$,L11,(B$))U(B$)LNLGTH251620(B$(K),31)(B$,L25,L15):LCOUNTLCOUNT1580 ------------------- HANDLE CONDITIONALS -------------------(B$,7,2)"IF"1860L16(B$,7,3)"REM"(B$,7,4)"DATA"1710O@COMMENTS0(B$,7,3)"REM"580]JB$B$" "fTL21w^L1LNLGTH25hLCOUNT3(LPAGE)İ4180r(B$,L1,1)" "(B$,L1,1)","L1L11:L1LNLGTH351650|(B$(K),8)(B$,6)(B$(K),15,31)" "(B$,(B$,7,5)"PRINT"PRNT1FLAG3H(B$,7,5)"PRINT"PRNT6FLAG4((B$,7,5)"INPUT"(B$,7,3)"GET")INPT6FLAG5 ---------------------------------- " HANDLE REMARKS AND DATA STATEMENTS, ----------------------------------+"SHAPE2&(B$,7,3)"GET"SHAPE2B(B$,7,2)"IF"SHAPE3X --------------n DETERMINE FLAG --------------SHAPE21560FLAG1(B$,7,5)"PRINT"PRNT0FLAG1((B$,7,5)"INPUT"(B$,7,3)"GET")INPT0FLAG2#SAVE"SHAPE2:FLAG4:1860FF(B$,I,5)"STORE"SHAPE2:FLAG4:1860sP(B$,I,6)"UNLOCK"SHAPE2:FLAG4:1860zZId ---------------n DETERMINE SHAPEx ---------------SHAPE1(B$,7,5)"PRINT"SHAPE2 (B$,7,5)"INPUT"SHAPE2:FLAG4:1860@ (B$,I,3)"FRE"SHAPE2:FLAG4:1860k(B$,I,4)"LOCK"SHAPE2:FLAG4:1860(B$,I,6)"PREFIX"SHAPE2:FLAG4:1860((B$,I,6)"RENAME"SHAPE2:FLAG4:18602(B$,I,3)"RUN"SHAPE2:FLAG4:1860<(B$,I,4)"2:FLAG4:18609(B$,I,4)"BRUN"SHAPE2:FLAG4:1860c(B$,I,3)"CAT"SHAPE2:FLAG4:1860(B$,I,7)"CATALOG"SHAPE2:FLAG4:1860(B$,I,5)"CHAIN"SHAPE2:FLAG4:1860(B$,I,6)"CREATE"SHAPE2:FLAG4:1860(B$,I,5)"FLUSH"CLOSE"INPT6INPT0:SHAPE2:FLAG4:DOS1:1860q(B$,I,5)"CLOSE"PRNT6PRNT0:SHAPE2:FLAG4:DOS1:1860(B$,I,5)"WRITE"PRNT6:SHAPE2:FLAG4:DOS2:1860(B$,I,4)"READ"INPT6:SHAPE2:FLAG5:DOS2:1860(B$,I,5)"BLOAD"SHAPE2:FLAG3:18609j(B$,I,4)"OPEN"SHAPE2:FLAG4:1860ft(B$,I,6)"VERIFY"SHAPE2:FLAG4:1860~(B$,I,6)"APPEND"SHAPE2:FLAG4:DOS2:1860(B$,I,4)"EXEC"SHAPE2:FLAG5:1860(B$,I,6)"DELETE"SHAPE2:FLAG4:18601(B$,I,5)IL1KI2 B$(I)(B$(I),122(LOOP1))" "(B$(I),142(LOOP1),79)t2LOOP0B$(I)(BLANK$,12)(B$(I),13){2I2( ----- 22 PRINT2< -----2FLCOUNTLCOUNTK2PI1K2ZB$(I)2dI2nB$(K)(B$(K),31)2xII25803,2LOOP)(B$(I),13,79)1I(1388081 --------H1 END LOOPX1 --------h1LOOPLOOP11B$(L)(B$(L),102LOOP)(":.............",42LOOP)(B$(L),15,79): 13 PERIODS AFTER COLON1I7801(B$,I,1)","LOOPLOOP11I 20 0B38800L ----------/0V START LOOPA0` ----------\0j(B$,7,3)"FOR"38800tB$(L)(B$(L),102LOOP)("..............",42LOOP)(B$(L),15,79): 14 PERIODS0~LOOPLOOP10IL1K1B$(I)(B$(I),122LOOP)(": : : : : : : " ----------/ MARK LOOPS1/ ----------8/ T/ LCOUNTK(LPAGE)İ4180e/ LOOP03660p/I1K~/I23620/B$(I)(B$(I),122LOOP)(": : : : : : : ",2LOOP)(B$(I),13,79)/$I/.(B$,7,4)"NEXT"376008(B$,7,3)"FOR"366RMARGIN1034002.R ARROW$(B$(K),L21,(B$(K)))H.\ B$(K)(B$(K),L2)R.f KK1~.p KJ4B$(K)((B$(K1),31)BLANK$,L1).z B$(K)B$(K)ARROW$. 3380. KJ4KJ4. 3490. ===========. PRINT LINES. =========== . / ))5- IL4J40- B$(I)(B$(I)BLANK$,L1)7- IG- ADD TEXTQ- KL3h-* B$(K)B$(K)ARROW$w-4 L2RMARGIN-> (B$(K))L23470.H (B$(K),L2,1)":"(B$(K),L2,1)" "(B$(K),L2,1)","(B$(K),L2,1)(126)(B$(K),L2,1)";"L2L21:L2K)B1$")", B1$" ", B11-, KL11f, B$(KL3)(BLANK$,L1B11)S$B1$A$(LK1)B1$"/"r, B1B11, B1$B1$" ", K, B$(J3)(BLANK$,L11)S$(UNDERLN$,27)"/", B$(J4)BLANK$FLOW$, PAD LINES WITH BLANKS- L1(B$(L3$(2)(BLANK$,L19)LNUM$" /"(BLANK$,27)S$d+0 L0B$(3)(BLANK$,L12)"( "A$(1)" )":3280p+: B1$" "y+D B12+N K1L+X B$(K2)(BLANK$,L1B1)"/"B1$A$(K)B1$S$+b B1$B1$" "+l B1B11+v K , B$(L3)(BLANK$,L1B1)"("B1$A$(UNDERLN$,14)"/"* %* -------4* SHAPE 3D* ------- Q* L(J2)u* J2LJJ1:A$(J)(BLANK$,L2)* L117* B$(1)(BLANK$,L1)(UNDERLN$,13)"V"(UNDERLN$,13)* FLOW$" "B$(1)(B$(1),30)U$(B$(1),32,(B$(1))):FLOW$V$0+& BB$(K3)" "(UNDERLN$,14)G) B$(K2)B$(K2)" /"(BLANK$,14)S$z) B$(K1)B$(K1)" "V$" DISK "V$) B$(K)B$(K)ARROW$V$S$(UNDERLN$,14)"/"V$) B$(K1)B$(K1)" "V$(BLANK$,16)V$* B$(K2)B$(K2)" "S$((K)"--->"V$(BLANK$,13)V$X(6 B$(K1)B$(K1)" "V$" "(UNDERLN$,6)V$(@ B$(K2)B$(K2)" "V$(UNDERLN$,6)"/"(J (T ----(^ DISK(h ----(r ARROW$"--->"(| FLAG5ARROW$"<---"( K((J3)2)1) B$(K3)$(K2)B$(K2)" /"(UNDERLN$,12)"/"/' >' -------M' PRINTER\' -------o' K((J3)2)1' B$(K3)B$(K3)" "(UNDERLN$,13)' B$(K2)B$(K2)" "V$(BLANK$,13)V$'" B$(K1)B$(K1)" "V$" PRINTER "V$(, B$(K)B$*& B$(K3)B$(K3)" "(UNDERLN$,13)c& B$(K2)B$(K2)" / /": 4/12/ SPACES& B$(K1)B$(K1)" / /": 4/12/ SPACES& B$(K)B$(K)"<---/ KEYBOARD /"& B$(K1)B$(K1)" / /": 4/12/ SPACES)' B1)" / "V$: 4/12 SPACESQ%P B$(K)B$(K)"--->( VIDEO "V$%Z B$(K1)B$(K1)" "S$(BLANK$,12)V$%d B$(K2)B$(K2)(BLANK$,8)S$(UNDERLN$,10)"/"%n %x --------% KEYBOARD% --------& K((J3)2)1#$ FLAG2570,2680,2790,2900,2900<$ B$(J4)BLANK$FLOW$F$ KJ4P$ 3490^$ ------l$ SCREENz$ ------$( K((J3)2)1$2 B$(K3)B$(K3)" "(UNDERLN$,10)$< B$(K2)B$(K2)" / "S$: 4/10 SPACES)%F B$(K1)B$(K)B1$"/"# B1$B1$" "%# B1B11,# Kt# B$(2)(BLANK$,L16B1)LNUM$" "S$(BLANK$BLANK$,L22B12)"/"# B$(1)(BLANK$,L1B1)(UNDERLN$,L22B1)"V"(UNDERLN$,L22B1)" "$ FLOW$" "B$(1)(B$(1),30)U$(B$(1),32,(B$(1))):FLOW$V$ɭ:ɥQLE$ , F "H F, F:LD FLH,J FLD FLHЫ F: F F"LF  }8` F F Fu Fv` F湠`: ` \ȱH \ Gh0$JJ :۠ \ GJAJJ : LC ɫɰ aG A$0 JJ :ۥvu $ FLC08LD: FLD D F Fȥ Fu Fv F B aGfLyE DLGLdD:` F,J I,J aGեѩ: FLHJ F CLBLC B,ȥьȥ CLCLC "GA=J[JJ FL Cei`LD B" F$ aGJ B FɴqɥmɫɱɀɿɦGɭ^ɬ  $0Ш F:eŊ勐UJJ :LuH |F |F%$ (   BŁȥьȥь` CLOB8 Bȥȥȑȑȑ``Յ`,JP X,J67KK67JJ :۩" B#ȱ "GJJJ : F F湥Іѥ᭖JJJ FLB F?ɫiɰeɬ ɲɃ SLRA FLRA LzA" F LzA",J } Bȱ둌ꑌLzA ڥƹƸPQuv aG A, LALOAuȥv@^8s^tN @ ? /) ɾȱ @_ ȩN  e ȱ e 8e/ Ţ@^N@@ өL@@ů@尰-@ :LuHĠҠà͠L@L^N[N\N]NL JI8gh JJ :LuH     3 "HELLO"I1500:I&50,(22I$(13)44708;7X1LNLGTH7&"-";"70X*7::07DY7NE(222):EL(218)256(219):216,07X:12:"ERROR #"E"IN LINE "EL"."::"PRESS TO QUIT,":"OR ANY OTHER KEY TO TRY AGAIN."7bZ$:Z$(27)ĴEF130,44607lD$"PR#0":D$"CLOSE": 8vA$:AROM PAGE "PAGE16LCOUNT5#656 ----------G6 PRINT TEXTZ6 ---------- x6X1LPAGEBMARGINLCOUNT~66X6PAGEPAGE16LMARGIN)NAME$LNLGTH(NAME$)9)"PAGE "PAGE6LMARGIN)AUTH$LNLGTH(AUTH$)9)DT$7LMARGIN)TE EXX" 5J!5T ============55^ PRINT HEADERI5h ============[5r(B$(K),30);5|FLOW$V$ĺ"V CONTINUED ON PAGE "PAGE1:LCOUNTLCOUNT15FLOW$V$ĺ" CONTINUED ON PAGE "PAGE1:LCOUNTLCOUNT1542806BLANK$FLOW$" CONTINUED F(BLANK$,21)V$(UNDERLN$,17)V$(4216,0F4I5LPAGEBMARGINLCOUNTL4S4Ia4D$"PR#0"p4"D$"CLOSE"4,D$"OPEN EXE":D$"CLOSE EXE":D$"DELETE EXE"46D$"OPEN EX1":D$"CLOSE EX1":D$"DELETE EX1"5@D$"OPEN EXX,D"D1:D$"CLOSE EXX":D$"DELE ---3 END3 ---03(222)54430J3LCOUNTLPAGE5İ41803FLOW$V$ĺ(BLANK$,22)(UNDERLN$,8)"V"(UNDERLN$,8)3FLOW$" "ĺ(BLANK$,22)(UNDERLN$,17)3(BLANK$,21)V$(BLANK$,17)V$3(BLANK$,21)V$" END "V$4 :LQE LQE(G)G $'%d  JLJ C, C'4G4GMN1߬3G MNLF C CMNGG :LQE CGG :LQE xCްLHLHLHLIL%KLxML%JLxLL%ILxKLRKLMLHLGLHLhGLdGL\GL`GL?E` GG :۬GG :ۮ9G:G FGG :ۦ F G G :ۮ;GG F0Υ DΥ0Υ DάGG : EL@FF :L )ɠ H h  :LE`HGG :hGG*G G"G#G%G&Gv W ,LDFF :۩LC ,褐` D,L1D DS DLE D800LG ZC CLbBFF :ۦ F;GMMFFMM  <=GvMM XFF :۩RKMFFpKqKFFrKsKFFtKuKFFMMFF     þԊѾԊԺӠϠŠŠŠԠĠƍͿٯΩ¨ٯΩٯΩң„ңңLĺנȠĠȠŠӠŠӠΠŠӠŠӠԠԠƠ͠ŠŠϠҠξҠĠƠͺŠϠŭҠԍǠϠԠ͠Π١٠׮͠ϠŮӠĺŠǠӠΠӠԠ̠ҠŠԍԠéΠčŠӬîĠנӍҠǠŠҠҍξҠǠƠͺҠǠŠҠҍJLIJIJLIJIJJJLIJJJIJJIJLuH ɠ H h` LJ)  :L^J``0 JJ :` JJ :LL@LILLmLLLLKLKL^KLLL"ML)NLMLMLLLKL8LL&MLHMLkMLMLMLMLML#NLNuivƹƸLdDLyEuv!uvJJJK` XJJ :۬JJ :ۭJ zJJJ :ۭJ zJJJ :ۭJ zJJJ :ۭJ zJJJ :ۭJ zJJJ :ۭJ zJJJ : ɱ#ɲ/ɳ6ɴ?ɵ\ɶd h :LI`JIJ [L[IJIBCưƯJJ :8gh HJJ :8igjh HJJ :8寪 H K JJJ KK67JJ :LPQPQ'%PQPdQ P Q JPQL$: ȱɲ,J0BH h 40"i$ȱL$ G \ۊL\ۢ)(`0 $```) $G ` ,Ն J쥝ɑ 률`L:्uȱveLiG`8` F F` F Fȥ F FⅯㅰ8ЅA;JJ : ^J-Цх<=>?BC ,Tb@@ U*U*A (~ x U*~~ c@A?8pU*U*U*U*UxU*Ux pp `U l! ex@? `? T"U*Q*@? D$DD?``@xAx? ~*Q"(yp x@*U("*U*U*u} p @?~N@?~ DH |O*U*U"Qx0$DDDD @(UbU*U*U*  x*U* A*U(U| ~|*U*E*U*p >|Dx||?``|@xAx?p T*`P wp*@*|C**Ux  xo)}( |p*A (U*U | | @@@U U*? ( | U*pHx F| 9p U*U*U*E` U*| x             ŠȠŠȠҠŠōԠéΠčŠӬîҡŠŠϠӠŠϠŭҠōؠŠԠˠɯϠŠӠŠӠGLNGLlGLGLGLGLHL|GLQHLGLGL_HLwHLHLHLHLMLNŠŠȠŠĺӺӍϠҠſٯΩӠŠԠŠŠӠȠԠŠӿٯΩ٠٠P*!U*y`*U@*U*U ~(T*|? @ ~ DPx#U*y?p(UT(E?*Ux x xT X{@  e?| yTT(TU"x ?~`O@A?~ D (A*U*p @ @?@*pH U*E*p  @T*(U* Q*@$DDDD *?(U*U*U*@ DD?~@O?@?~p 'A{ (U@*Ej{ x`(U*U"U*| DDDD?``@xAx?~  1 ~?*'q@p@bU*U*x  @U p `U*|C*U*U*|?  * U*|`C P" U*T*|*|? @@ x cS|+ 9p UD*U x ~ xT \{* e~ p@T*E*U p ?p`~@|A|?pcyx *E*U*@ `(U*U(Q U*e?  @Q**U* Q(&DDd@ *~)U U*U*@ D(D?~O?@??~ ~'EA\#(U*Ub x@?(U*U*U*x ><88?``@xAx?~@@ P 'upB?T*U*x `? o)( |?` U*pO*U*U*|? x U*~`G P U*U*x*~? `?@ `? acG| 9pQ*U*U*~ U*Ux | pQ\{.( e~ @?`E U*U*` ?``|@xAx? ~?*U*~?` p(U*U U*U*E  S*U*U Q ~%|8|?~N@?~ ~'eP X#*U*Ur |*U*U*U*x ?``@xAx?~ P*QJ.ep@P*U*x x ~o)9*P`(E*`*U*U*|?  U `P U*U*q*~? p E @~ acGpI8pU*U*UU*U|U*Ux ` pUn) e `?@U*U*U*`? >D88?``|@xAx?r ~? U*(U* |` x(U*U"U*@"U*U*| pyp a<?~L@?~pc y ~G*U*U Q |P$DD @TxU*U*U*  |'%(U*#A*U*Ux |~ U*U*U*p ?``|@xAx?p T*EH`?pp@ ~Q*A*x | |o)9*@`*E @?*U*U*|? p  $ȱb38Єτ >B0 \ >B0 \ \۩ LA`枱`BB :`BB :`LPAbɭć bɭ`LBLBLBLBLCL,CLSCLBLBźҺҠŠҺŠӠԠԠҠǠŠŠb/ȱbc1/Jȱb1:L\A PBLxByB :LA{B|B :LA~BB :LAb:BB :LA ]BBB : A bedcieiijȄ ӥmnijdȩdȑdȥdȥd A PBLԭBB : APQdibeic PQ $) \ۥ$@8s镅tC @ ? /) Ɉȱ @ ȩC  e ȱ e 8e/ @C@@ өL@@ FBL@L@LC!8 uBvB : ,թ  [Y ֐WbcPiQibȱbȱŁȱł58b   !|@*U*U qap |P*U U*D*U*| xqx 8?~O?@??~ D( @OU*U*~  ~U*)| ?xU*U*U*A"U(| ~?pO*U*U*U*` DDD?p`~@|A|?b `'`%UP b`? p~ U*U*U* DD@?``@xAx?~pp pw(\)}@p*A ~!U*U x @ x*U*U"Q|D>D88 @@*UB?T(U*U*~  Tp)9` U U*U*UB(U*|? | x U*p?T*npA**xG*(Ux `? |P*U*U EHx ~?TT"Q"U(U| 2 ?~@O?@?~`Cx @@T*U*|  P*pP*|  pU*U*U* U x ~?`O*U*U*U*` D|d?~`O@A?~ @'@{$ U@ j?` p| U*U*U*~ <)yxp(@ |#U*Ux p p?(U* Q~ `@*U T*U*U*~? ~ T*@) y`(UT*U*U ?(U |? ~@ @ Ux'U*\pA*P*a*Ux p xP*T px ~T@*U*E"| pQqpqhxx?~`O@A?~ D  P*U*Ux@ @@*)"T~  `?T**U* U*p?D>8x8 (E*U*U*U*@ <H11:H21j::A$"D.K. ARENDT PRESENTS...":63999A$"THE ALL NEW":63999A$"* * * * LMULT!!!! * * * *":63999 :"THIS PROGRAM WILL ALLOW YOU TO MULTIPLY ANY TWO NUMBERS OF LENGTH UP "" " " " " ""