' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_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̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` 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`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  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- ( 0 Ϡ@跻~!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-` ܫ XI볩쳢8 DH 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뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d Ů̮ЮЮz# u`٠ ō؍ŠˍŠРԠ Í ԍˠ Ԡ  ԍà˧נ ōנĠ ōŬؠ Ӎ¬؍؍̠ٳΠ ύΫ Ӎ٠Щ٠ ȍѠŠ ؍ˠٍЩ ԍ؍̠׍Ӎ٠Щ٠ ōҫŠҍР § ύҠ čЫҫҠҠЍؠٳԍӠ٠ ӍбٍѠ͠ ٍР ԍŠ̍͠ҠàҽҫؠנҬ؍РŬؠ ̍ŠҠ Ϡ ٍҠ̠ ҍРՍ ӍҠؠ РҠ ҍҠРؠ ؍̠Рנ ҍ Ŭ Ӡ ӍҠà ҍ̠ Ӡˠ ύѠҠҬ ҍˠР ӍҠ͠ ү ōЍѠōŠٲÍ ȍ٠Щ٠ ȍàÍàЍҠ ٍЫàҫ ōՠҠҠ àŬ؍Ьؠ ōڬ؍Щ٠ ͍Ьؠ ԍڬؠ ̍؍̠Աٍٲ­ٍЩ٠ č٠ ōЫЩٍؠ ō٠ Ԡ ΍Ա٠Ҭ؍Щ٠ ōٍٍάؠ ΍ЩٍٍٍЫЍà ҍōЫàū ōٍōҠΠ ΍٠ЍЩ٠ ō٠ ˍ؍ٰ̠؍ ƴ ٍÍàƴ ˍҠƍ ȍҠàҽҫƍÍàЍР ٍЫàҫŠԠӍ٠РΠ ҍٲҠ ҍҫؠٰĬ؍Ьؠ ˍ̠ҍ̠ҫ ͬ؍ ō Ԡ ΍ԠàҍԠؠ ؍ҠԠ ҍѠٲ Ӎؠ ѠΠ ύؠԠ ѠΠ ٍؠҠԠ ҍѠ٠ ӯ̍Р ōŠ؍Р ѠҍРŠōàҫ ŠŠ ϠԍѠ٠ ӍŠԠӍΠР ٍŠԠ Ҡàҫ ōŠҠԍѠ٠ ҍР Š ˍР˭ٍŠԍ٠׭˫ŠЍÍàб б ˍбàԍàб  Ԡؠ ؠҍ ̠̍ԠӍ͠Ҡ͠ ԠŠ ˍūҠԠ ōР ѠűˠΧ ̯ ȍРūѠű ҍҠԍÍѠҠ Ӎؠ̠ ̠͠ ԍРԠ ȍŠ٠ ԍҠԠ ҍҠ̠ ҠΠ ΍٠ÍҩٍàҍҍٍҩٍàҫҫҠՠ ٍРŠ ō ҍàҠР б Щٍ ōЫЍӍҠ٠ ЍÍҩٍàЍӠ ōٍҩٍàЫӫٍӍ ٍҠҠҠ ǍРōҠ٠ ōŷҩٍЩٍٍ٠ŠŷŠ٠ͫ үٍЩٍٍ͍΍̍ŠҠ ōÍЍàԍЫàԫ ōōŠҠ ǍūҠ̠ ԯ̍РŠӍ ү ō̠͠ ŠҠ ύÍ ˍàЍ؍àЫٍҠΠ ̍̍̍ŠŠ ٍҠӠ ӍÍӍŠà ōӍ ҍ̠àÍàҍҍààҫҍЫҫӠ̠ ̍ҠԍҠ ̠ ύŠٍҠԠ ҍ٠ҠԠ ٍҩٍٍҫ ōҩٍٍ̱͠ ōҩٍٍͫҩٍÍӍӠà̠ ǍР  Ӎū ōРנ ԍҠàӠ ӍҠԠ ōҠנ čŠ٠ ٍҍԧ ٍ̠ čŠҍҠԠ ҍЫ ˍ ҤҠ̠ ΍Ы ƍҠӠ Р Ѡ ύРԠ ŠӠ ԍ̠ čѠӍӠРΠ ҍ̍ŠӠ ӍҠԍҠ ȍѠҠ ÍРÍŠҍҠҠūѠčҠؠ ҍРҍ ٍҠҠԠ ҍѠŠ ōбӍ ˠؠРЬ؍Ŭ؍؍̠ЍĠӍ РРĴÍР³ čҠŠ РР ōŠҠ ҍīРЫŠҠ ҍӍ б ҍРؠ ӍбҬ؍٠б؍б؍٠Ҭ؍؍̠ ӍҠ̠ Ѝ٠ Ԡ ΍Բ٠ӠР ЍЩ٠ ҍҬ؍РٍٍӠ̠ ЍЩٍάؠ ōàӠ ӍҠנ ҍ٠ ōٶҩٍũٍٍ٠ŠٶѠԠӍ ٬ ˍ٠ؠӠӍٍҩٍàūӫÍҠΧ ōàҍàčàҫĠҠՠ ˍԠҠ̠ ҍРԠōҠҠҠ ҍÍàҍҠ ōٍҩٍàҫҫҩٍРũٍѠҍҠؠРҠ ٍҠ٠ÍҩٍàōӍŬٍٍ̠ٵӍŠҠ Ӎ̠ ̍ҠҠ ٍ ̍̍٠ҩ٠ ӍРũٍŠҠҍРб ŠٍҫРбѠ٠ ύ٠٠ҩ٠ ҍͫ ٍ͍ҩٍٍ͍ٵҩ٠ ٍЫàҫ٠Щ٠ ȍҠà ҍ٠Щ٠ ӍӍĠ ˍЍīЫԠˍؠčӠˍӠР  ҍˠ٠٠̠ Ǎà ԍб٠ ЍЍàà ύҠ ҍٍ ΍РԠ ѠӠ ԍ͍à؍бб ԍ« ōàбРī ƍàӠ ٍŠ؍̠ٷҠˠ ӍҠҠԍРҠ ҍԠЍѠӠҬ ٍҠҠ ƍԫ ˍҠҠ ƍѠԠ ԍР ͍Š٠ ԍЍѠҠ ٍؠٷū؍ڬؠ ͍Ĭ؍¬ؠ ōĠ؍ҠԠ ̠̍ؠͫӍ ҍȠؠ̠ ЍūРĴ ڮƮ ٍЍҠԠ Ҡà ӍӠЍǠР ŠǠ ԍƍŠ ǍŠĠӍǠР Š̠ ԍū͍͠ ҍˠؠōؠūҠԠ ҍàԠ ԍҠà Ԭ ҍàǠ ҍԠؠ ؍РҠԍàР Ӎ ōҠРР б ҍ ԍԠؠҠԠ ҍؠ̠ Ǎ͍Ҡà ҍӠˍ٠РΠˍҠРӠ ҍűˠРŠ ǯ ȍŠҠ ȍ̠ Ѡ٠ ԍ٠Ҡ̱ ō٠àūŠ ԍҠˠ ٍҠ ӍРԠ Í ͍ ȍѠԠΧ ÍàٍˠЩ٠ ˍٍ٠ŠˍԠ  РūŠ ԍ«Р ύٍٍ̠Щٍڬؠ ͍Ь؍Ĭؠ č؍̠ԲٍٸЩ٠ ­ٍٍŠٸؠƸ ҍӍ٠Щ٠z#?    ̵ΠҠ̶Ԡ Ϡ̮ӠC̠̱ؠΠ̲íؠ̳ӠƠɠ̴ҠƠӠɠ12 3  -... .. 4     5 . 1984 6 7dd(4)"CATALOG"Ҡנ ύ ˍҠР б ҍ٠٠̍٠Ӡ ٠ҫ٠ҫ ҍ٠Рٍб٠ ؍؍Šбؠōؠū ˧ ԠҠԠ ҍҠԠ ؍ҫбҠ ˍб б ҍ ҍҠҠҠ ūРĴ ŠԠ ԍؠ Ӎб­ؠ Ŭ؍ڭ؍ū ѠҠ ύؠ ΍РԠ ѠȠ ύؠ ЍРԠ ѠȠ ύРΠ ԍȠРȠ ΍Π΍ڠ ύР ̍΍ګЫԠ ҍЫԍЫӍ ͍ԠРԠ ҍ ӍРƵ ҍԠ ΍Ԡ ΍Ԡ ΍Ԡ ΍Ԡ ΍Ԡ Χ ΍Ԡà ΍ ҍҠű ٍ͠Š Ĺ ҍҠ  Ǎ̠ ԯ̠̍ķ  ΍Ӡ¸ ӍҠҍҠij ōԠķIJ ÍΠijų ΍נĹū ҍԠà ؍Ԡų ҍҠŰƠ Ҡ¸ҍŠŠ үٍŠ ōҠà РŠ ҍ ӍԠ± ҍԠ· ҍӠ ōҠ ˍڠ͍Π ҍ͠ үٍҠ  үٍĠƠ ͍ ԍҠŠ ٍРŠ č͠ ύ  ōĠĠ ōРƠ ̍Ԡ ԍ̠ Ӎ̠ ٍӠ Ӎ̠ ǍŠ Ǭ ̠ Ӎб č ̍ Ӯ Ӎ ΍ ҍǠ ӍŠ ԍ̠ A ٍ Ӻ ԍ κ ȩ                      i ȱi m>n?{ N@ ieȱexLԠe΅ȱeυi L O ƑΈf , usm㈱h i H i j LӠeȱe LԒ ӑ 6 ? F ޥHH Vh@Lvh N8Lӑ  }Lކ  } }$ % ` 0д(si Ll(& eɰ8ijŰ䯰Ly٠%L {, ELޥH I( H {h ީ@LƑ Ƒȥȥȥ8`@ I( ߩ 8``e`QeHeH ӥii cLԒ {LԒhh`eHȱeH Ӡ>ȥ? , >u>s>os㈹h>h >i e>?i !   ( LI*LL0L:  > ӑihuhvhh >h>LׯLINKm>Иn?В``쑕`L&PHIH e>?eii     Y,Z I1N:J1O SUM0+ K1MF SUMSUMX(I,K)Y(K,J)M K] Z(I,J)SUMf J,Im  A(I,J)(10(1)) J,I% I  SUBROUTINE TO PRINT A MATRIX e LINK,N,M,A$A:TB40M :"MATRIX ";A$;" :": I1N:J1M A(I,J);:JMĺJTB); J::I  SUBROUTINE TO MULTIPLY TWO MATRICES  LINK,N,M,OX,0,(L),(M),("B")(B). n NOW MULTIPLY A AND BO x3000,(K),(L),(M)(A),(B),Cb PRINT RESULT :"THE RESULT OF A * B IS" 2000,(K),(M),("C")(C)  SUBROUTINE TO FILL MATRIX WITH RANDOM INTEGERS LINK,N,MA I1N:J1Mn MATRIX MULTIPLICATION 90: INITIALIZE STACKWK2:L3:M4: DIMENSIONSqA(K,L),B(L,M),C(K,M)# FILL MATRICES WITH RANDOM INTEGERS(1000,(K),(L)A21000,(L),(M)BF PRINT MATRICESP2000,(K),(L),("A")(A) Z200   9D$(55H)- .H$H$D$:NUMNUMHR:RR163 B: LQ  INIT PARAMETERS m HEX$"":ER$"":ER%0: ERROR HANDLER LINK,E%,E$ (7); ER%99ĺ"FATAL ERROR": :E$: E FI,HEX$ PI Z1  DEC-HEX CONVERTER J LINK,NUM,H$,E$,ER%g ER%0: INIT ERROR FLAG NUM216E$"VALUE TO LARGE":ER%1:1100 NUM0E$"VALUE LESS THAN ZERO":ER%1:1100 R4096:H$"" I14:H(NUMR) $D$(H):H! PRINT LIST OF HEX VALUES <0: INITIALIZE STACKV PRINT DEC-HEX TABLEq::2000: INIT PARMS#"DECIMAL HEX"' NOTE : ERROR IN LOOP BELOW (I100100010021000,(I),HEX$,ER$,ER%<ER%į3000,(ER%),(ER$):80  6SOURCEDEST4 nN1į100,(N1),(SOURCE),(SPARE)f x"MOVE DISK FROM ROD ";SOURCE;" TO ROD ";DEST N1į100,(N1),(SPARE),(DEST)  TOWERS OF HANOI 30: INITIALIZE STACKS"ENTER NUMBER OF DISKS ";N"ENTER SOURCE AND DESTINATION ROD ";SOURCE,DEST(:"STRATEGY:":2100,(N),(SOURCE),(DEST)<Z THE MOVE SUBROUTINE dLINK,N,SOURCE,DEST iSPARE  xNį100,(N1),NO:NO2NO1& C'* CALCULATE NUMBER OF MOVES (HANOI) G0: INITITIALIZE STACKg"ENTER NUMBER OF DISKS ";NNO0: NO MUST BE INITIALIZED100,(N),NO(:NO;" MOVES ARE NEEDED"2c MOVE COUNTER dLINK,N,NOnNO0: RETURN 0 IF N=0 I1N:PER(I);" ";:: x. IFIRSTNa TEMPPER(FIRST):PER(FIRST)PER(I):PER(I)TEMP 100,(FIRST1),(N)(PER)  PRINT N PERMUTATIONS 80: INITIALIZE STACK]"ENTER NUMBER OF ELEMENTS ";N:qPER(N):FIRST1#I1N:PER(I)I:: FILL ARRAY(100,(FIRST),(N)(PER)2c THE PERMUTATION GENERATOR dLINK,FIRST,NPER:FIRSTN130 n ,(P1),(LAST)A DASTA1 nP1FIRST:P2LAST:MIDA((FIRSTLAST)2)M xA(P1)MIDP1P11:120i A(P2)MIDP2P21:130 P1P2170: PASS COMPLETED TEMPA(P1):A(P1)A(P2):A(P2)TEMP P1P11:P2P21:120 FIRSTP2į100,(FIRST),(P2)A P1LASTį100! SORT ARRAY OF N ELEMENTS <0: INITIALIZE STACKh"NUMBER OF ELEMENTS TO BE SORTED ? ";Nv:NUM(N)(I1N:NUM(I)(1):2100,(1),(N)NUM: SORT NUM<I1N:I,NUM(I):Fc THE QUICKSORT SUBROUTINE  dLINK,FIRST,L