' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]렮 鷎귭෍ᷩ췩緈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-(q Р@跻~!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 ~(` d ֠z# u`χχχχ@     ĠŠŠčϠŠŠƠҮčҍԠŠŠŠƍӠӠӮčӍŠҠӠΠŠ̍ƠŠǠҠԍĠčԠΠō̠ŠԠӍ٠ŠŠĠƠ΍ҮčӍҠŠҠŠȠҠӠčȍӠŠŠƠҠΠӠΠŠΠӠĠ͠ōȮč΍  G'&i(i`Ůč΍ӠРƠӍΠȠŠŠŠĠŠŠƠΠҠ̮čӠŠӠĠӠōŠΠƠҍŠŠήčȍŠӠű٠Ԡ٩ҍŠŠԠҍ΍ŠӠŠԠŠϠΠҬŠȠč٠ҠϠԮč̠Š٠ŠΠȍ̠ӠΠŠ٠͠ύŠĠӠĠŠ  ččŠӮčӍàӠӠōŠǠčҍԠӠŠԠƠ΍ŠàͮčŠΠĠŠӠΠŠƠȠϠǠӮΠӍĠήč̍٠ĠΠΠԠӍԠƠŠΠӍΠӠĠٮčōˠӠĠӠŠŠƍŠĠ٠ōŠȠȠŠҠŠ͠Ơ٠ԠӠԠĠӍà®íàîҠĮ̮ččҠӠĠӠŠȠȠˠӠŮčÍ٠ԠǠӠōӠԠƠҠϱ٠ҍŠŠԠҍٍԠȠӠŠύˠӠĠčĠ̠ƠŠǠōŠӠԺҠ®٠îҠ̠ĮŮčàǍŠϠԠΠΠŠ΍ŠڠΠĠčōˠӠ٠ԍˠŠҠΠӍĠΠȮŠҠſčŠҠſčĠΠȮŠҠſččŠȍΠŠΠĠŠο̠®ƠîҍĮԠήčύΠƠŠΠӍԠŠԿč٠ΠĠΠĠΠŠοč̠ҍӬנȠƠŠĠΠӠοčǍӠŠƠŠΧӠčŠӠάԠӠĠϠōčǍӠӠƠŠΧӠčŠӠάԠӠĠϠōčԠԠŠӠԱŠέԠōҍŠŠԠҍōŠŠΠōŠƠŠΠӍĠč̠΍ŠĠƠƠŠ΍ӠŠȠǠčƍΠŠԠĠĠ    ōčԍǠԠӠčӠРŠӠĠҮčč٠ύנ٠̠ӠōſčōŠҠƠӠΠōӠӠĠŠÍҠƠŠͮŠҍſčàōΠԠӠ΍ŠĠΠԠĠԠƠҍԠ̠ӠŠӍƠҠӠΩčӍŠ̠ԠƠΠ͍ӠӠĠčӍӠĠōĠŠӮčӍӠŠΠӠčҠĠӠҍŠŠԠҍÍ̠ҠӠŠРƍӠ®٠îӮčԍҠԠӠŠƠٍŠĠƠ͠ӠĠΩčōŠԠΠοčōŠҠſЍӠ٠ÍӮčٍˠҠˠӠנȍŠҠӮčԍӠՠ̢ŠҠŠčԍΠ͠ҠӠĠčŠٿӠҠϿčύƠҠӠҠΠŠΠƠΠӠԍϠҠΠοӠҠϿččԠԠƠŠҍӠŠҿčϠ΍ԠԠƠŠҠӠŠɱӍҍŠŠԠҍύӠΠ٠٠čŠϠРŠǠӿӠҍϿčӍӠΠԠŠӍҿӠҠϿčӍȠ٧ӠҠŠŠŠϠŠōΠŠ̠ΠĠӠԮčӠĠč؍ΠӠŠӠŠӠȠ̠ŠӠŠҮčӍԠΠȠŠӍŠҠӠΠҠӍĠԮčōŠҠźԠӠĠŠΠōŠſŠĠȍӠ®ӠĠӍî͠ӠĠӮčӍԠƠΠӍӠĠԮčŠĠҠĠ΍ŠàĠàӠĠčԍ٠̠ԠΠ٠٠ŠĠԮčàȠŠӠӠΠ®ӠҭԠîؠӠĮӠӮčȠ̱ӭԠōҍŠŠԠҍōŠĠȠҍàӠĠҠӠӠĠčؠԍԠԠԠٍӠ̠Ҡ٠ҍǠӠΠŠӍ   χχχχٍ٠ŠӍĠӮčԠŠЍƠϠӠĠōŠ®ԠîЮčōɠĠΠŠŠ͠ӮŠҍſččȠŠӠԠōԠƠϿͬȬĬӮčԍϠӠŠȧӍӠРĠӍȠŠȧӍԠԠӠčԠӠ͠ϠӠĠčҍŠǠ͠ϠӠ٠ٍĠӠ̠ƠӍӠŠˠԮč ŠǠŠǠȍҍŠŠԠҍōĠˠӠ΍ŠȧӠč ĠˠӠ芮îč΍ӠР͠ōŠϠŠԠčΠ͠čύƠŠύҮčŠԍΠĠϠŠō٠Ơٮč̍ΠŠӠԠϠРŠנƠӠ͠ԠήčΠŠӠčΠΠŠΠ٠ԠӠōĠҠΠΠӠӠĠčōŠƠĠԭΠӠӠΠӠŠĠƠčΠԍŠàΠƠӍΠŠӠĠŠč΍ΠĠήč̠΍àĠӠ΍ϠŠҠōčԍҠŠΠŬōծӮĠ٠ƠΠӠƠǠͮčύŠ̠ŠԠč٠ŠծӮάŠĠӺĠҍҍŠŠԠҠĠӍŠӠčϠŠ̠ӠŠϠӠҍӮčҍҠŠҬ٠ӍĠ٠ŠӠϠӠƠ    ٮčƍӠԠ΍̠ŠΠӠΠōӮčԠϠŮčƍҠ̠ĠčԠŠԠƠӠɮčƍŠȠΠčǠŠŠƠӠ֮čԍҠŠԠĠŠΠΠŠ΍ϠŠΠӠΠΠԠĠӠ͠ΠŮčԍ̠ՠӠŠƍŧӠԠŠ̍ӮčԍŠԠӠƠčĠΠŠŠԍϠŮčƍŠȠ̠ƠӠŠ̠ȠӠōұ̠ŠΠōҍŠԠҠŻƠҠōԍԠŠӠ΍ӠŠԠ̠ΠΠŮčƍΠŠӠŠӍΠǠŠҠŠ͠ŮčԍŠԠƠŬĠŠĠčȠ©éȠĩŮčƠŮčÍĠӠΠ٠ӍĠӠŠčӠ©ӍéӠĩӮčŠΠ٠ӠčǠύРӠ©ŠӍéΠӠĩŠӮčǠŠԠŠŮčÍ̠ӠŠԠō͍Ҡ©΍éҠĩή荩ԠӠčҮӠ©ӍéӠĩӮččΠŠנŠŬōĠōנ©̍é̠ĩӍéӠĩΠӮčΠŠàŠōננύŠӠ©̠ōéĠ٠ĩŠӮčŠĠΠȠŠΠϠ͠ӠĠōàŠ©ΠōéàŠéàӍҍŠŠԠҍŠ͠àӍŠŠŠŠ΍ƠǠ©ӍéӠĩӮčΠԠӍΠŠ٠ƠӠ©ΠԠ©ƍ荩ӠƠҠ͠ŠӠĠĠϠŠԭŠӠĺΠ©ΠčӠϠ͠ӮΠ©΍čӠΠҠΠ͠àӮŠ©ōčΠŠΠŬέǠĭŠӠΠŠӮàŠӍĠΠŠέ΍ŠŠΠĺΠ©ӍčΠӠ͠΍٠ԠǠ͍̠ȠҠӮӠ©΍čӠŠΠƍӮà©ÍčԠϠŠ̠Š΍ҠŠŠӠΠȿŠ©ōčĠΠӠϠōҠƠ٠͠ōǠǠϠҮŠ©ō荩٠ĠŠōҍŠŠԠҍӠŠ٠ƠŠΠƠǠӠύҠԮŠ©ٍčŬŬҍĠԠŠӠԠԠǠ     ǠӍӠĺӠ©ӍččӠӍčӠ©ٍ荩ȠîԬ߬ԠĠŠ٠ƍӠήɠ©ɍčȠƠŠǠӍԠȿ̠©Ӎ荩ǠƠÍӠ٠ҠΠĠŠĺӠ©ӠčԠӠŠŠōҠΠΠԍĿ̠©̍č Š٠ƠΠ͍ϠĠϠӍŠƠӠĺĠ©΍čŠӠ٠ȠӠӠҠōϠŠӠĺΠ©΍čߠӠŠōǠԠŠΠٍŠ͠ŮӠ©ӍčӠȠŠűŠŠƠǠӍҍŠŠԠҍߠӠǠΠҠÍͮӠ©΍č٠ǠߠŬŠӠƠӠčŠĮΠԮčŠĠٍǠӠōΠԮčƠŠӠŠĠō̠ŠƍŠԠϠҠӠǠϠӮčƠŠΠ͠ƠōӠΠӠٍ̠ΠōӠϠԠōƠȠ̠ŮčƠӠƠŬҠԠȠӬōĠҠōήčƠӠĠӠٍҠҠԠ̍ԮčƠήčƠ̠ӠƠŠ̠ƍӠנ٠ϠŠӍӠ̠ӠϠŠ̍ԮčƠŠΠӍԠٍŮčԠŠΠčǠӠɱ̠ӠҍŠԠҠŻƠҠōƠŠŠӢōӠ̠ĠōӠΠǠȠŠӠƠӮčƠŠҠӠĠύŠ̠Ԡ٠ō ĠӍéŠԠĩӮčӠ©ӭԠéƠŠĩ٠̮荩ծӮӠԠӠŠӠԠɭӠ©ŠĠӍéŠԠĩӮčӠԠӠŠӠԠɭӠ©Šĭ̠ŠӠĠ̠٠٠©̠éٍĩŮčΠƠӠĠ΍ŠҠ̠ӠŠ̠©ԠéŠĩŮč̠ӠŠĠ٠ŠÍ̠ӠנŠխŠԠŠԠР٠ōӠ©ΠéԠĩƠŮ荩ϠӠƠҠӍŠĠҠ΍©̠é̍ĩ̮č٠ΠĠƠ̠ĩήččӠƠ̠íΠŠŠ©ҭԠéԠĩԍĠŮ荩ԠȠӠŠĭ̠٠ӠĠŠҠ©ŠéԠĩŮčŠ̠ԠōҍŠŠԠҍŠӠΠԬ˭Ǡ٠Ҡ٠Š̠©̠éΠנĩٮččŭŠנĠҍӠӠō©̠é    ŠŠԠӠԠōĠƠҠ̍ӠŠǠčӠΠӠŠŮč̍Š̠ŠĠٍŠĠ̠͠Π٠ԠȠŠԠύŠŠԠ̮ĮčŠӍŠȠĠȠԧӠŠӠԠ֭ԠԠԠ٠čǠϠԠӮč̍ŠϠŠĠŠȠԠŠƍŠԠϠҠ΍ĠήčɭӠԠč΍ŠȠԠӍӠ͠ǠԠӬҠƭčٍŠԠϠ٠čà̠ĠϠ̍٠ŠĠΠŠȠ̠ӍƠčؠԠύӠ٠ԠӠӬǠΠԠŠҠŠԍӠΠĮčŠٍŠ̠΍ԠǠĠŠҍŠŠŠӠñǠŠčҍŠŠԠҍӠӍԠҠǠӍϠŠΠ٠ҍĠԠŠĠӠԠƠč̠ҍŠԠǍԠԠ      ԠӠԠŠŠΠŧӠàĠŠŠĠΠӮčΠƠΠčԍȠΧӠҠĠҠŠάԠӠԍ̠Š͠ӠŠĠԠ٠ĮčԍԬ̬ĠΠĠŠ΍ƠҠ٠ԠΠčƍǠҠ΍ŠĠΠǠŠҮčԍŠ̠ԠčӠϠŠíάάǬĠҮčƍĠ٠Π٬̭Ġ٠ԠΠŠÍĠΠŠҬĠϠΠ֍Ҡ̠ҬŠծӮĠҠȠάȍӠĠ٠΍ƠҠȠčԍӠĭŠ͍ĠȠŠӠĠōծӮŠĠǠŠҮčԍĠΠӠҭԠΠűĠҠɍҍŠԠҠŻƠҠōԍӠҠΠΠӍƠŠΠŠϭĠȠȠҠĠ̠ŮčԍŠծӮĠӍӠȠΠĠԍΠӮč ſčԍɩҮčōĠǬөήčՠҍũԮčԍŠՠΩčΩčӠĠӍҍŠŠԠҍҍϡ٠ŠӠҮčנŠӬſčԠɍɧ͠ŮĠտčӠ̍ԠĮčŠͧō٠ŠөٮčԍԩӠҠ ٩芊ӍԠӠȠȩčŠҍɠנΠŠԩčɠԠɍ٠Ġ٩ŠٍӠƮčɍ٩Ӡ٠ٮčŠɍɠ٠ӠΠөčөčŬӠĠӍҍŠŠԠҍŠōԠũӠԿč̠ԍԠөЮͮč̠ԠɮԠӠΩčŠōŠԠȠԠŠϧ˩čɠ٠ԠӠΠ  ŠŠ٩čڍԠƩԠŠԠЮčΠҭҍĠЩԮč̠ԿȠЩččč̍ҍŠŠԠҍՠŠōŠөŠԠſčՠ΍ϠϠŠҩčԠԍԠĩčӠՠŠҠŠͩčōϠŠԩčōϠŠԩčŠύ  Šȍ©ŠŠӠéĩנčč̠ӠĠҍҠ̠ӠΠǠҠ٠©΍éŠĩōčԍҠΠǠōȠĠӠ©΍ŠéҠĩӍčÍŠΠǠ͠Ơ֭ԠӠΠΠōȠ©נĠéōŠӠĩȍč٠ԠӠō͠ĠΠɮĩήî荩Ԡà̠׍ӠĠΠΠ©ӮéĩήʮčÍ٠ŠӬԠӍŠ̢Ƞ̠έ̠ƠӠ©ӍéΠéӍčΧӠΠӠĠӠéǭȠŠĩ̠Ơōč٠ӠĠŠԭ٠ΠΠӍ©ŠӠé׍ĠĩčÍӠǠӍҠӠӠčŠΠήٮ©ήʮéҮŠΠŠӍҍŠŠԠҍΠŭƠƠŠϭ̠ΠĠΠŠȠ©ŠӍéנĠĩנˍččΠΠӠŭĠΠŠȠЍ© ӠΠΠήčԍɠĠŠō̠ӠΠήčƍԠƠΧӠ̍ӠŠΠŠȍĠƠϮčϠōԠӠΠϠٮčƍŠĠӍΠ͠ȠčƍլլլĠϠŠҍŠӠΠήčԍԠƠΧӠҠ΍ӠŠӮčԍĠˠŠȍñ΍ҍŠԠҠŬƠҠōԍϠӠŠԠٍĠ̠ƠήčƍΠӠĠƠŠԍƠΠŠנčԍŠϠčԠɠӠŠԍΠΠήčԍĠ  ӍŠӠǍŠ͠ΠŠōӬөčЩčӍŧӠƠ΍ԠӠŠ٠ƍŬөčӍȠӠč͠ŠŠčӬөčȍ͠ĠŠӍҠŠìȩč͍ӠԬөčǍŠ٠ƠōӬǩӠĠٮčōϠӠ٠ٍΠŠԠƍŠӬũčЍͧӠƠԍΠŠŠҠӍͬαŠĠŠנӍҍŠŠԠčōŠӠĠŠӠŠΠ΍ŬͩčӍŠŠҠӍȠŠٍ̠ƠӬͩčӍŠ̠٠Ơ    ٠͍ŠҠӠččӍč΍ĠԠР٠ҍǠӠӍčҍŠ٠ƠŠǍ٠ҠŠȍčӍŠȠŠ̍ĠҠΠԍčԍ٠Π̍čҍŠĠàӍč΍ҍŠȠƠύčԍŠנƠҍΠŠ΍č΍ԠŠ̍čٍҠ٠č٠ŠččנԠƠŠΠ  čƍΠϠӠŠٍĠȠƠӠӮčƍĠǠȠŠ̍ӠҠΠϮčԍҠӠӠЍΠŠčԍӠȠ͠΍ϠΠčƍŠ٠Ơ΍ΠӠĠԠōȠƠŠҮčԍŠΠӠčԠƠŮčԍŠӠŠԠٍΠŠàԮàԠӍҍŠԠҠŠҠƠҠōԍŠ٠ŠӍΠϠٮčԍȠ٠Ӡ̍ĠԠנ̮čƍҠŠӠРōΠŠčԍŠנӠƠ ӠŠ٠ƠčōŠԠōΠŠ٠ӠčԍŠĠōŠĠΠōŠƠčӍŠŠӠōĠΠŠΠԍƠŠŠƠč΍ŠƠǠԠƠ׍ĠōàήččӠӠōĠȠƠōӠĮč΍ŠӠ΍נˠĠԮčŠčӠƍӠԠӍϠŠàήčנĠӍҍŠŠԠčōŠӠΠ׍ŠŠԠƠōΠӮčԍŠΠӍŠĠΠōŠƠč΍ŠԠ٠Π׍ĠӠ    נŠčάҩӠōŠƠŠȮčٍ̠ŠӠ΍Ӡ٬Ωč΍ŠҠƠṶ̆Ġάҩ٠ŠŮčƍ̠ƬƩӠŠǠŠƠԠ΍ԠĠŠÍήčōƬũӠ̠ήčՍլ٩Ӎ٠ȬԠĮčōƬũӠŠƠˠĠ̍Š٠ҮčҍŠŠͱōҍŠŠԠčō̠ŬƩӠŠΠӍנӠԮčč̬ĩŠӠԠҍŠč̍Š̬ԩŠӍΠŠ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč   čōɠŬũٍ٠ǠϠōŠΠŠЮčԍɧ͠ԠŠ٠ˠӍŠԬԩՠĠԮčȍ̠ՠȬΩōנϠ٠ŠϿč̬̩Үčč̠ՠŠάĩŠŠٿč̍ŠŬ̩Ӡ̭Ġ٠̠ōӮčٍɠĠ٬٩Ƞ٠ŠčӠĠԠŠЮűōԠčźԍɠ̠ԬԩҠҮčԍŠԬԩϠӠԠŠŮčōɠˠӠŬũĠĠРҠōǠӮč̍٠ŠԠΠ   ύ٠ҩ̠ύϠŠŠȠӮčōՠŠ٠ԩčōӠӠҍŠԩčӠשŠӠήčōɠӠũҠ̠ٮčōȍŠĠĨөŠҠӠĩčҠҠӠ٩čύŠ٩čΧԠŠŮčōŠӠ٩ōנΠŠͮčōՠөŠĠŮ  נӮčҍŠՠΠҬũנǠ̿čōŠ٠ĬũŠǠϠҍϠӮčש̠ōӠΠԠԮč׍ŠŬשР̠ōӠҠŠҮččĬĩՠŠύϠǠӠοčҍŧӠΠԠӠύȠԠҠҬҩčҍҠԠĠҬҩαĠŠԠŠԮҍŠŠԠͺō٠ɠŠŬũƠȠſčōԧӠˠҠΠԍŠˠ̬ũčōϠԬũٍŠРſč׍ɠ׬  čŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ٠ŮčٍŠŠ٠ӍΠήčǍŠ٠ĠϠύΠǠήčԍŠԠĠԠŠȍĠҠԮčԍɠĠŠԠ΍Π٠ӮččŠĠŠĠōƠŠήΠŠӠήōԠӠŠſˍˠӠӍΠԠ̠ήč΍ΠӠĠŠ®ččĠӠĠ٠Ůčō٠ӠŠǮččŠĠҠӍ Ӎ̠ҠŠŮččŠӠΠҍӠĠĠǮčǍŠǠҠŠōӠŠΠҮčŠŧӠήččɠΧԠĠ٠̠ӮɠԠɧĠ͠΍ŠҮčǍҠРŠӮΧԠŠ͠Įč芊ǠōϠ٠ٮčٍŠΧԠҠұ٠ԠҠŬԠҠٮҍŠ٬ŬĬҠǿōϠՠԠҠǍΠŠčōɠĠŠϠ΍ĠԮčٍՠ٠ҠԍΠŠĮčǍ٠ҠΧԠŠϠōŠΠĠɬũύϠŠԠ˿čō٠ŬөӠύϠŠٿčŠԮčōԠӠŬҩϠĠŠ®čҍŠҠčҬũԠŠĠŠŠήčӍŠ̠Š͠čŬөҠӮčōŠĠĠŠǍҠĠɬũčɍ٠ʱˠŠԠĮ΍ōōԠӠŬͩύĠŠŮčōˠՠҠǠЍĠɬũϠҮčōԧӠРŠԠԍΠՠĠɬũčٍԠӠ٬ͩύĠ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ĮÍԮÍǮÍٱÍԮÍųÍҮÍϮÍҮÍήÍҮÍٮÍӱÍٮÍβÍŮÍʮÍͱÍخÍαÍȱÍȲÍȳÍӲÍԱÍôÍȱÍŲÍήÍȱÍȲÍȳÍٳÍɮÍծÍ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčONG **** I": ** DUMMY VARIABLE FOR SPECIAL INPUT ROUTINE **;XZZ1ZX"CD$(4):Q$(34):CG$(7)X@FI$(71),DU$(71),HW$(50),WD$(50,5),C1$(50),C2$(50),HR$(10),SC(10)XJA(X)(X(DC$)2)XTDR1: ** SET DEFAULT DRIVE **X| Y **** BY: KEVIN ARMSTR** WvLPWvNWFL1WvCD$"CLOSE ";NM$;".";TP$7Wv\Wv ** READ IN HONOR ROLL FILE ** WvCD$"OPEN HONOR ROLL,D";DR:CD$"READ HONOR ROLL"WvLP110:HR$(LP),SC(LP):LPWvCD$"CLOSE HONOR ROLL"WvW ** DIMMENSION VARIABLES ** 2XIN$"X1) V\vL21(Vfv768:WD$(LP,L2)(IN$,1)DVpvWD$(LP,L2)"END"30340VzvL2L21:L26WD$(LP,5)"END":FLLP:LPNW:"ERROR!!!"::"NW=";NW::"AT WORD ";LP::"FILE NAME >";NM$".";TP$:30340Wv30310: ** CONTINUE READING IN THE DESCR. (UP TO 4 LINES) ICTIONARY LESSON (NM$;TP$) INTO MEMORY ** fU*vCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$tU4vNW,MP,PCU>v768:HL$(IN$,1):768:WT$(IN$,1):768:TT$(IN$,1)UCvFLNW: ** INCASE OF AN ERROR IN READ **UHvLP1NWVRv768:HW$(LP)(IN$,Tv * PC = PERCENTAGE CORRECT FOR REWARDFTv * HC = HIDDEN CATEGORYoTv * FC$ = DESCR. OF THE 1ST CATEGORYTv * SC$ = DESCR. OF THE 2ND CATEGORY Tv * C1$(LP) = WORDS FOR CATEGORY 1Tv * C2$(LP) = WORDS FOR CATEGORY 2T v*U%v ** READ DNW,MP,PC,HC4Su768:FC$(IN$,1):768:SC$(IN$,1)TSu ** READ IN NW OF WORDS **aSuLP1NWSu768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1)SuLPSvCD$"CLOSE ";NM$;".";TP$S vSv Sv * NW = NUMBER OF WORDSSv * MP = MISSES PER WORD )(A$):NH030070,RruST2:FI$(1NF)A$:NH10:RvuLPSTNHWRu768:FI$(NFLP)(IN$,1)_RuLPyRuCD$"CLOSE AEC.FILES"RuRuRu ** READ PHRASEBOOK LESSON (NM$;TP$) INTO MEMORY ** RuCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$ Su$"READ AEC.FILES"Q2uST1DQ5u768:A$(IN$,1):NF(A$):NF030010]Q7uST2:FI$(1)A$:NF35kQ:uLPSTNFQDu768:FI$(LP)(IN$,1)QNuLPQXuCD$"CLOSE AEC.FILES"QbuQluCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"QnuST1Rqu768:A$(IN$,1):NHROLL"'POLP110:HR$(LP):SC(LP):LPBPOCD$"CLOSE HONOR ROLL"HPOP.u ** LINES 30000 TO 40000 ARE RESERVED FOR READING DISK FILE ROUTINES ** P/u ** READ IN ALL FILE NAMES INTO FI$(ARRAY) ** P0uZZNF0:30060Q1uCD$"OPEN AEC.FILES,D";DR:CDVOWD$(LP,L2))O`OWD$(LP,L2)"END"20340}OjOL2L21:20310:** CONTINUE WRITING OUT THE DESCRIPTION (UP TO 4 LINES) ** OtOLPO~OCD$"CLOSE ";NM$;".";TP$OOOO ** WRITE OUT HONOR ROLL FILE ** POCD$"OPEN HONOR ROLL,D";DR:CD$"WRITE HONOR 0NOLP1NW1NOHW$(LP)"((DELETED))"NDND19NOLPvN#OCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"WRITE ";NM$;".";TP$N$ONWND:MP:PCN.OHL$:WT$:TT$N8OLP1NWN=OHW$(LP)"((DELETED))"20340: ** DON'T SAVE THIS WORD **NBOHW$(LP)NLOL21 OPC:HCMNFC$:SC$3MN ** WRITE OUT NW WORDS **@MNLP1NWMNC1$(LP)"((DELETED))"20200:** SKIP OVER DELETED WORDS **MNC1$(LP):C2$(LP)MNLPMNCD$"CLOSE ";NM$;".";TP$MNMO ** WRITE OUT DICTIONARY FILE NAMED (NM$;TP$) ** NONDбŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčFI$(NFLP)LWNLP.L\NCD$"CLOSE HOME.FILES"4LaN:LfNqLN ** WRITE OUT PHRASEBOOK FILE NAMED (NM$;TP$) ** zLNND0LNLP1NWLNC1$(LP)"((DELETED))"NDND1LNLPLNCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"WRITE ";NM$;".";TP$MNNWND:MP:$"OPEN AEC.FILES,D";DR:CD$"WRITE AEC.FILES"TK%NNF: ** NUMBER OF FIXED LESSONS **aK*NLP1NFnK4NFI$(LP)vK9NLPK>NCD$"CLOSE AEC.FILES"KCNKHNCD$"OPEN HOME.FILES":CD$"WRITE HOME.FILES"KJNNH:** NUMBER OF HOME LESSONS ** KMNLP1NH LRNCHOICE";::" ";4J4+KY$:KY(KY$):KY1KY611050ZJ>+KY1000,2000,3000,4000,7000,9200eJC+11000JN ** LINES 20000 TO 29999 ARE RESERVED FOR WRITING DISK FILE ROUTINES ** JN ** WRITE ALL FILE NAMES TO DISK (FI$(ARRAY)) ** J NZZ20040,K!NCDC::"1.";::" EDIT DEFAULTS":LI +C::"2.";::" WRITE/EDIT LESSONS":qI+C::"3.";::" ERASE LESSON":I+C::"4.";::" RENAME LESSONS":I+C::"5.";::" CLEAR HONOR ROLL":I%+C::"6.";::" RUN MATCHMAKER"I*+23:10J/+:"YOUR LEAR HONOR ROLL":1HT'C::"8.";::" RUN MENU"=HV'23:10[H`':"YOUR CHOICE";::" ";Hj'KY$:KY(KY$):KY1KY910070Ht'KY1000,2000,3000,4000,5000,6000,7000,9000H~'10000H* ** ALTERNATE MENU FOR HOME USERS ** H*:100:6H+C9!I+T DEFAULTS":8GB'C::"2.";::" WRITE/EDIT LESSONS":]GL'C::"3.";::" ERASE LESSON":GN'C::"4.";::" RENAME LESSONS":GP'C::"5.";::" RE-ARRANGE LESSON ORDER":GR'C::"6.";::" COPY LESSONS TO ANOTHER DISK":HS'C::"7.";::" CM ** -F#: ** PULL OFF GOSUB FROM STACK **5F#:xF#10:DC$"RUNNING PROGRAM":70:12::DC$"PLEASE WAIT...":70:F#:CD$"RUN MMHOME":F' ** MAIN MENU ** F'F'100:** PRINT TOP LINE MESSAGE ** F$'4F.'C9 G8'C::"1.";::" EDIPULL GOSUB OFF OF THE STACK FROM MAIN MENU **3E-#[E2#100:** PRINT TOP LINE MESSAGE ** bE<#4EF#"PLACE THE ";::"UTILITY";::" DISK IN DRIVE #1":"THEN PRESS ";::"RETURN";::" ";EP#KY$EZ#CD$;"RUN STARTUP":F# ** RUN MATCHMAKER PROGRAFILE ** DXD]40Db"CLEARING HONOR ROLL"VDlLP110:HR$(LP)" ":SC(LP)0:LP~Dv20370: ** WRITE OUT HONER ROLL **D{DCG$;CG$;"DONE"D"PRESS ";Q$;"RETURN";Q$;" TO CONTINUE ";:KY$:D'# ** RUN MENU ON UTILITIES DISK ** -E(#:** $CL3L31:L3NFNH6130,CFLİ20000RCL3110:HR$(L3)" ":SC(L3)0:L3zC20370:** WRITE OUT HONER ROLL ** CNM$"":DR1CCG$;CG$:"DONE"C"PRESS RETURN";:A$CFL10000: ** AN ERROR ACCURED **CDW ** CLEAR HONOR ROLL WRITE A PHRASEBOOK FILE ***BDR1:30140:BDR2:20140]B 6300: ** NEXT LESSON NAME **cB8sB=DR1:30250BBDR2:20250BL6300BjDR2BlCD$"OPEN ";NM$;".";TP$;",D";DRBoCD$"WRITE "NM$;".";TP$Bt"ERASED"CyCD$"CLOSE ";NM$;".";TPON NAMES ** AF0AL31RA(FI$(L3))5FL1:FI$(L3)"BLANK"(L3)".ERA"gATP$(FI$(L3),3)ANM$(FI$(L3),(FI$(L3))4)ATP$"ERA"6250ATP0:TP$"DIC"TP$"HOD"TP1:6200: ** READ AND WRITE A DICTIONARY FILE **B ** READ AND 0,@"INSERT ORIGINAL DISK IN DRIVE #1":U@"INSERT DUPLICATE DISK IN DRIVE #2"@:"PRESS ";Q$;"RETURN";Q$;" WHEN READY ";@KY$@ ** START TRANSFERING FILES **@DR1:30000:** READ IN LESSON NAMES ** ADR2:20000:** WRITE OUT LESS1?FI$(LPOS)FI$(LPOS1)&?LP9?FI$(MTOS)DM$C?5040[? ** HOME FILES ** a??o ** COPY LESSONS TO ANOTHER DISK ** ?p?zDC$"COPY LESSON TO ANOTHER DISK":70?4?"THIS PROGRAM REQUIRES THE USE OF 2 DISK DRIVES."@1EN5140>2223><"NUMBER WHERE TO MOVE TO ...";d>FKY$:KY$""5300: ** GO ONTO HOME FILES **r>HMT(KY$)>KMT(ST)MTEN5170>PDM$FI$(MFOS)>Z ** DELETE OLD POSITION **>dLPMFEN1>nFI$(LPOS)FI$(LPOS1)>xLP?LPENMTz #3pŸĠŹĠűĠαà ӮàŠàײĠ ŠàײĠР ʺȠ ŵĠŶĠ ŷĠ ŸĠ ŹĠ űĠ Ҡ̠خà αàӮà űĠ ŲĠ ųĠ ŴĠ!ŵĠŶĠŷĠٮàٮà ʺϠˠخàȲàȳà Рųà ҮàϮà ӱàҮàҮà ήà ɮà Įà Ԯà ծàǮàٱàԮà ȱà Ųà ήà ٳà ȳà Ȳà ȱà ʮà ͱà ȱà αà Ӳà Աà ôà  ԱS ŠîӠ Ԡ ŮӠ βàŮà  ŠŠźź źźź ű.ԠҮΠԠ ĠҠ úҭȠ" נŠ ȠԠ" &"""  "" ****$$$$"""""<""< &< ,""""**"""">>   *U*U*U*U*2"<""">"""8 "  ">"6*""""""&*2""""""""""""*,"" "" ">"""""""""""""**"""""">"">>> >00000>" ,""""< <"""<">$ " **>> "2*&" " >>  ">> "8""> """"""< >> "":*:<"">""""""""""">>>"&Vȹ&m_VW}_hi`(h`,  `,  , 0H, j j0 7h`, `% %%`$( $('$`$$>>< (&20 *,, L 4% K% )L 4 K$%`!~"$%` S$`H$J#px$%%$$ ׂ,I,0 hLrՂ 8nς@(jj,ς-$-%ȩ0݈`V_h`24H )% Q`-/HH Ch 2%h`) P HH`% 邍`H$ ׂ8I, I,Ȱ戈ڢh`H8 H m!~h****)(m" Sh`$%L邩$LE,`T U@WRP`,, 6789 L((((PPPP*UU*ժՂՂՂՂՂXՂD ǁāՂ́ԁՂՂՂՂՂՂՂq"Ղ6 #!" ȁ ΁L ( C QNOd`gighihhȭg`8gghhhȭg`  ;` ;``d ;`LÔɍLΔɃLQɠ e e)d``dc` `dLד`c3 eɠ&`de)d` ;dLJLד` `dLdddLd`L`LԓdudLדdt cdc`d`d ;` ] ^ c`` ߠhȱg d ԓ d$` d` `0c `i` R ba`ȥoȥpi` g RP`f`__`]%^md$8(0$%Lœ "` ; eɕJɉbɒ LԓɄLɈЅoW)JȽwxopȑX8LH J I h ?`,0`H J%H0hh ?` ߅ab`fȱHȱh ^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ D^0ȱ^0LΑȱ^ȱ^oȱ^p89hmnТ!ʥ787586XVWUxvwu֦78X^w_xWe^^__`X8oXopp78EF- ,00 *$,XǘP$,ȱ8# =ۥ % ,L;LL { lݥHH g hh  = 8ɥp8n` (stopU^_R Dij^_lk 7󅔆nmLޑ^_jOLLHѸLH iHhH`PUBELLBUZZEOLEOPRPTwAsג { lݩ ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 4ZN     ՂԂԂԀժժՀժժРՀՀՀԀԊЊЊЪЊՂԂԂЪՀժՂժՀժժՂԂԂЪՀժՂժՂժժ ՀЪ           t8&&0jjjE 0  )(`)00 0)` P uiȩiȩiL9@ p؈88888X xph` P ՀՀՀЊժłԪԪԂЂԀժժժՂԂԂԠՀժՀЪԂՀՀՀԀԊԪժժՂЪժՂЂԪԠժժՀՀՀԀԊԪՂЪժժՀЪժՂЂԪԠժժԂՂԂՀԂЪժՂԂԂԀժժՀժժРՀՀՀԀԪՂԊЊЊЪЊԂՂԂՀԂЪժDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:0DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD G'&&`ժՀЪѪъԀՀՀՀՀЊժłժՊԪԪԂЂԀժՊժՂԂԂԠՀժՊՊԂժՀЪѪъԀՀDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD   DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:A$"Z"YY1 LA$(8)XX14LA$(21)XX1ALX0X0PLX39X39]LY0Y0lLY19Y19{LDCX,Y2)LDCWCXOX:YOY:1282:SCSC15:1264LI12:DCDC(I)SCSCSII:P25I:1340:1264LILY191224LT1182MICK PRESS BUTTON 0.":7KOJ1(16287)128J0J2UKOJ1(16287)127J1qKOJ2(16384)127J1KJ11166K1256K1264K1270K1276KOXX:OYYKCC:Y2,Y21XK1296KBC:Y2,Y21XKA$"A"YY1 L|I J~TMT!JGLGL1:GG(GL).JOJJ:J0KJX2:Y0:CC:Y2,Y21XUJ1256JOJ1Ģ22:10::"PRESS A KEY TO START.":JOJ2Ģ22:8::"PRESS BUTTON 0 TO START.":KOJ0Ģ22:4::"TO USE THE KEYBOARD PRESS A KEY.":3:"TO USE A JOYSTZ(2)72)IfOZ(1)MZ(1)20:OZ(2)MZ(2)20:IhPL80:PH175DIl::oIn(4)"BLOAD MAZE:";((1)5)2;",A";ADIp0,AD(AD256)256:1,AD256IrDM%ItI1MDIvX(38(1)1):Y(18(1)1)IxX,Y2)BC1142IzDC(2(1)1):Y2,Y21XJHNDM%768:CM%8004HP(4)"BLOAD DRAW MAZE,A$300"WHR(4)"BLOAD CHANGE MAZE,A$320"kHTWN%642:ST%707HV(4)"BLOAD SOUND GENERATOR,A$282"HXDR5HZBC0:WC4:CC13:AC1H\DC(1)11:DC(2)15H^MD30:SI25H`MT20HbTD1000IdMZ(1)135:MHAS BEEN ERASED";CN$:LP13000:LP5Gp22:38);" ">Gu820DGNG2000VG21G"PRESS ";Q$;"RETURN";Q$;" TO PLAY REWARD":"OR ";Q$;"ESC";Q$;" TO EXIT....>";GKY$:KY(KY$):KY13KY271030G :KY271915G0:0:1002GLAD32768 THE LESSON YOU SELECT)" F421_F>"CHOOSE A LESSON NUMBER & ";:CO$;:"RETURN";:CN$;:" ";FHKY$:KY$""NM$"":TP$"":870FRKY(KY$):KY1KYNFNH820F\NM$(FI$(KY),(FI$(KY))4):TP$(FI$(KY),3)FfTP$"ERA"ı#GkCO$;" THIS LESSON 4)-E" ";NM$;("........",9(NM$));".(";>ELP10ĺ"0";KELP;")";VEFLFLaEFLĺE LP29F2Ģ22:"PRESS ";:CO$;:"RETURN";:CN$;:" FOR MORE LESSON NAMES";:KY$:HM$:70:F21ELPE 23:1F*"(I WILL ";:CO$;:"PLAY";:CN$;:"0)2:DC$:D^LP1(DC$)9DcCO((1)6)1:CO4355TDh100:(DC$,LP,1);:LPZDmcDHM$qDEX0:130wDDRF660D30000:RF1DHM$D70DFL0:F20DLP1NFNHDFLĖ20DTP$(FI$(LP),3)ENM$(FI$(LP),(FI$(LP)) ":CO6:100:2:21:DC$;", ";NA$;" !"7CB" "RCDX(0):DC$"GOOD"330CF21:" ";:1:" PRESS RETURN";CHKY$:(KY$)13328CJ:PTQ1(54):Q2(55):2:HW$;"..........";OW$:54,Q1:55,Q2CK DT7:DC$HW$:A(22:L2L2100:269,160L2278,160L2:L2:5:L21NW:269,160L2WP278,160L2WP:L2uB#3:269,160PC278,160PC:B'1:L21WCWP:268,160L2278,160L2:L2:B1EX4:130:3:13:":";B6KY$:KY$B;.C@21:" ":" DC$,L2,1)" "ĺ" ";:170"A"_";,AL2:bAA(CL)XX:L21(DC$):(DC$,L2)" "ĺ" ";:205tA(DC$,L2,1);~AL2:AEX4:130:CO2:100:6:21:(SS$,(SS$)2):6:(SS$,(SS$)2):AL21:WCĒ1:L21WCWP:268,160L2278,160L2:L2UB$,+@** MMHOME (10/18/83 2:30 PM KSA) ** Y@ :(4)"BRUN CHAR.GEN":(4)"BLOAD INPUT"d@32768u@(63000:4000@F"LESSON NAMES ON THIS DISK:"::@KA(CL):DC$:@d0,CO:CC$;:@0,HZ(EX):1,VT(EX):CE$;:AA(CL)XX:L21(DC$):(             DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD;SC100:1ZCO2:100:" ";WO;" CORRECT OF ";NWZPTQ1(54):Q2(55):1:WO;" CORRECT OF ";NW:" ";(100(WO(NW))0.05);"%":::54,Q1:55,Q2Z:CO6:100:" ";(100(WO(NW))0.05);"%":Z [EL((1)51):DC$RE$(ME,EL):A(20)I0YLO0ME1:WI1:4300:?YWO(WOLO)0.01PC100WI1XYWO2LOME2:4300oYWOLOME3:4300YWO0ME4:4300YLO2WOME5:4300YLOWOME6:4300YSCSCWOLO:WIWTWT1YHM$; ZCO5:100:"WINS:";WT;" SCORE:"870XTFL4195XVGUGU1%Xc2209XeEX2:130:4900CXf4950{XmOW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4250XrGU04160Xu340XwDC$"SORRY":320XLOLO1XWRWR1XWR0LPLP1:4078X4265XWI4060X4030YWWEX1:130(WCL40:DC$HC$:11:750,P:2,0:3,DR:5,0+Q@ST%1QB;Qx::QQCD$"BLOAD INPUT"iQCD$"BRUN CHAR.GEN"}QSCSC(10)1900QQA$NA$Q,1700Q1F21900Q4Q5FL0Q6LP1011Q;SC(LP)SCFLLP:LP1Q@LPQJLP9FL11RTHR$18:X138PP$CX,Y2):I12:CDC(I)SCSC20:P255:1340:1264:Y2,Y21XWP&I`P(X,YfP*lP,P.PX(0):PY(1)P0P(8(PXPL))(4(PYPH))(2(PXPH))(PYPL)P2A$JA$(P)P4P6P8(16384)127A$((16384)128):16368,0QO0,BC16BCO1,AC16AC(OCM%8O P255:1340YO 0,AC16AC:1,BC16BC:CM%_OeOoOA$""OZTOTMZ(J):J1334,1324OOTZT(A$):OTZTMZ(J)OZT:OTTT1:1270:T1300OOTOTOZ(J)OOO I1TD:I P"Y1D10:MTMT2NMT2MT2)N16368,03N11349N?NSN:21:159);:qN(40)(41)256(36),32wN}NN:22:3:"SCORE: ";SC;" ":NNN:23:3:"TIME : ";T;" ":NNN:22:21:"GOAL: ";G:NN23:3::"TIME RAN OUT":#M1310-M12423MBMI1TD:IhM:23:21:"FINISH BONUS : 500":|MSCSC500:1264MI1TD:IM23:8::"BONUS : ";30T:MSCSC30T:1264M1310MI1TD:IMMSCG1400 NSISI10:MDM!!","not bad!","getting it!","once more?"rjf "try again!!","practice!!","needs work!","too hard!!","get help!"jg "try harder!","once more??","practice!!","stick to it","can improve"kh "almost!!","better!!","try again!!","go for it!!","once mor 128, 0iY 128,128%i`RE$(6,5)LiaLP16:L215:RE$(LP,L2):L2,LPic "excellent!!","perfection!","top notch!","superior!!","tremendous!"id "very good!!","a natural!!","good job!!","too easy!!","a learner!")je "try again??","learningHR$(LP),SC(LP):LP.hvCD$"CLOSE HONOR ROLL"4hv@hIN$"X"h"CD$(4):Q$(34):HM$(12):CG$(7):CC$(3):CE$(5):CO$(15):CN$(14)h1SR$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,."h?DR1h@LP14:HZ(LP),VT(LP):LPhJ 0,0hO 0,128iT1gJvI1:I21I20:30281(gKvQ(I)LPBgRv768:HW$(LP)(IN$,1)Kg\vL21hgfv768:WD$(LP,L2)(IN$,1)gpvWD$(LP,L2)"END"30340gzvL2L21:30310:gvIgvCD$"CLOSE ";NM$;".";TP$gvgvCD$"OPEN HONOR ROLL":CD$"READ HONOR ROLL"hvLP110:LP fvCD$"CLOSE ";NM$;".";TP$&f vbf*vCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$pf4vNW,MP,PCf>v768:HL$(IN$,1):768:WT$(IN$,1):768:TT$(IN$,1)fGvI20fHvI1NW:Q(I)0:I:I1NWgIvLP((1)NW1):I20:I11NW:Q(I1)LPI2TNH!eu768:FI$(NFLP)(IN$,1))euLPCeuCD$"CLOSE AEC.FILES"IeueuCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$euNW,MP,PC,HCeu768:FC$(IN$,1):768:SC$(IN$,1)euLP1NWeu768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1)fu(IN$,1):NF(A$):NF0300106d7uST2:FI$(1)A$:NF35Dd:uLPSTNF^dDu768:FI$(LP)(IN$,1)fdNuLPdXuCD$"CLOSE AEC.FILES"dluCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"dqu768:A$(IN$,1):NH(A$):NH030070druST2:FI$(1NF)A$:NH10evuLPS$;c#(NA$)105170 c(5110&c2,c<Ccp:CD$"RUN MMEDIT"tc NCD$"OPEN HONOR ROLL":CD$"WRITE HONOR ROLL"c*NLP110:HR$(LP):SC(LP):LPc4NCD$"CLOSE HONOR ROLL"c>Nc0uCD$"OPEN AEC.FILES,D";DR:CD$"READ AEC.FILES"c1uST1d5u768:A$b7:8:"TYPE YOUR NAME"AbCO6:100:15:10:"(10 CHR MAX)"mbCO1:100::22:"* {THEN RETURN} *";xbNA$""b12:11bLP111:"_";:LPbCO5:100:12:10:" ";bA$:KY(A$)bKY85070bKY135170b NA$NA$(KY)cA(OW$)1):4939>aF(OW$)L20OW$(OW$,(OW$)1)KY$:4939RaGW1$(OW$,L21)kaHW2$(OW$,(OW$)L2)aIOW$W1$KY$W2$aKaVEX4:130:CO5:100:3:35:":";GUa[aHM$aEX4:130aDC$"**** MATCHMAKER ****"a350aCO2:100` `FL0` L21(HW$)B`(HW$,L2,1)KY$FL1:L2(HW$)J`L2P`W`$7c`)DC$HW$t`.HTA(CL)XX`3L21(HW$)`5HT`8(HW$,L2,1)KY$ĺKY$;:4932`=HTHTXX`BL2`C`D(OW$)1OW$KY$:4939aEL210OW$KY$(OW$,)L20SS$(SS$,(SS$)1)" ":4825M_S1$(SS$,L21):S2$(SS$,(SR$)L2)a_SS$S1$" "S2$g_q_HM$;_EX3:130_CO1:100_"WORDS REMAINING";:35:":";WR1_EX4:130_CO5:100:3_"CHOICE:";:19:"GUESSES";:35:":";GUY":320^LOLO1^WRWR17^WR0LPLP1:4526A^4265O^WI4500Y^4030b^FL0s^L21(SR$)^KY$(SR$,L2,1)FL1:4812:L2(SR$)^L2^^(SS$,L2,1)" "FL0:4825^L210SS$" "(SS$,(SS$)1):4825$_(SR$$"_______________":150&]CO2:100/]279R]CO2:100:305:(KY$)274030\]4800j]FL4564t]4870]FL4576]GUGU1]4900]4950]OW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4590]GU04564]340:^DC$"SORR ",(HW$))\EX1:130<\CL40:DC$WT$:11:CO$;:75F\:13Z\:TT$;":":CN$h\EX1:130n\z\L214\WD$(LP,L2)"END"L24:4550\" ";WD$(LP,L2)\L2\23\CO$;"HINT:";CN$;" ";HL$\EX4:130:CL20:XX2]8:DC2:350:[2[CO1:100::" PRESS RETURN";L[KY$:(KY$)134345R[l[WT2SCSC100:1000z[WO0:LO0[[30250[WRNW[WC0[WP(100NW)[LP1:WI0[GUMP:SS$SR$:4840[HW$HW$(LP)\OW$(" "Y"A$"N"654=:A$"Y"870: ** EXIT ROUTINE ** HNM$""RF660: ** IF READ IN ONCE, THEN DON'T READ IT AGAIN ** 30000:RF1:** READ IN ALL FIXED AND HOME FILES ON THE DISK ** "LESSON NAMES ON THIS DISK:":FL0:;'DKY$:KY(KY$):KY13KY27580-NJXKY27ĺCD$"RUN STARTUP"Pb ** DISPLAY AND SELECT A LESSON TO WORK ON (NM$) ** NM$""658"USE THE SAME LESSON? (Y/N) "A$"Y":HT27:VT0:MX2:I%0A$,VT,HT,MX,I%A$"MATCHMAKER";::" MASTER DISK":" IN DRIVE #1, THEN PRESS ";::"RETURN":W::&" OR PLACE THE ";::"UTILITY";::"IN DRIVE #1":" AND PRESS ";::"ESC";::" TO RETURN TO MENU."0:::" ";Q$;"ESC";Q$;" OR ";Q$;"RETURN";Q$;" ?"T31:VT22:MX2$A$,VT,HT,MX,I%=A$"Y"A$"N"465CNKY$A$T ** ASK TO INSERT MATCHMAKER DISK OR UTILITIES DISK ** ZZ610: ** HOME USER **:100:** PRINT TOP LINE MESSAGE ** 6M" PLACE THE ";:::"E";::"DIT, ";::"D";::"ELETE, ";::"A";::"CCEPT"]A$"A":I%0:HT30:VT22:MX2rA$,VT,HT,MX,I%A$"E"A$"D"A$"A"410KY$A$ ** ASK TO ADD MORE ** 110:23:12::"MORE TO ADD? (Y/N) ";:A$"Y":I%0:H9:19);" ";:19:C1$7@A$C2$:VT13:HT18:MX20:I%0LEA$,VT,HT,MX,I%oJC2$A$:19:19);" ";:19:C2$OI%1300: ** LEFT ARROW WAS PRESSED **T ** ASK TO EDIT, DELETE, OR EDIT AND PUT A "E", "D", OR "A" IN KY$ ** <110:23:8:EMAINING DATA IN THE DESCR. AFTER THE "END" IN WD$(LP,1...4) ARRAY **fL3L24:WD$(LP,L3)"":L3:': ** EXIT TO CALLING SUB-ROUTINE **+ ** EDIT PHRASEBOOK WORDS C1$,C2$ ** ,A$C1$:VT10:HT18:MX20:I%06A$,VT,HT,MX,I%;C1$A$:1MUST AT LEAST ONE WORD **N A$""WD$(LP,L2)"END":295:** EXIT ROUTINE ** L2L21:L24WD$(LP,L2)"END":295: ** EXIT ROUTINE ** WD$(LP,L2)"END"İ275: ** CLEAR DATA ** VTVT1 225: ** GOTO NEXT DECRIPTION **E ** CLEAR ANY R HERE **" L21:VT11:HT0:MX309 A$WD$(LP,L2):I%0N A$,VT,HT,MX,I% WD$(LP,L2)A$:140:** CLEAR LINE AND PRINT A$ ** I%1L21L2L21:VTVT1:225:** THE LEFT ARROW WAS PRESSED ** I%1200 A$""L21230: ** THERE HT1:A$:: ** A NEW ROUTINE TO CLEAR A LINE AND PRINT A$ **` ** EDIT DICTIONARY WORDS ** A$HW$(LP):VT7:HT(WT$)2::MX15:I%0 A$,VT,HT,MX,I% HW$(LP)A$:140: ** CLEAR LINE AND PRINT A$ **  A$""200: ** THERE MUST BE AN WORDTOR"::70::F n23:38);" ":: ** CLEAR LINE 23 OF CHARACTERS ** w ** PRINT THE WORD # WE ARE ON (LP) AND THE NUMBER OF WORDS REMAINING (MW) ** x6:10:"WORD #";LP;" OF ";NW;" WORD";:NW1ĺ:130 }"S" = HT1:VT1:MX1);" ";: ** MISC SUB-ROUTINES ** 9 < ** CENTER DC$ ROUTINE ** L FA(20):DC$: PDC$"MATCHMAKER UTILITY EDITOR"::70:::DC$"LESSON NAME: "NM$:A(20)::"LESSON NAME:";::" ";NM$: Z"LESSON NAMES ON THIS DISK:":: dDC$"MATCHMAKER UTILITY EDI Q) ** AEC UTILITIES (MMEDIT.UTL) ** N ** LAST UPDATED 01/23/84 KSA **Tu63000: ** DIM VARIABLES ** ZZ11000: ** GOTO HOME MENU, NOT AEC MASTER MENU **#500: ** INSERT MATCHMAKER DISK **(10000: ** MAIN MENU **  2            !! ! ! ! ! !!!!!!!!!"" " " " " """""""""          Q(12)lA(X)(X(DC$))2#lle??"klG(13)'kmLP113:G(LP):LPxkr 2000,4000,7000,11000,15000,19000,23000,26000,29000,32000,36000,41000,61000k|FI$(71),DU$(71),HW$(50),WD$(50,5),C1$(50),C2$(50),HR$(10),SC(10)kJA$(15):JA$(1)"A":JA$(2)(21):JA$(4)"Z":JA$(8)(8)lΠŠӮčԠӠŠũٿč٠ҩӠǠȠӮčҍɠԠϠͩ΍ŠŠ̠ٮč̠ύŠԩӍŠŠٮčōϠԠˠǩӮčōȍŠĠĨөŠǠӠ΍ŠȩčҍŠӠϠ˩ҠӠҮč΍ŠՠǠ̩芊ӠөčōŠŠΩӍĩǠ΍ččԠĩčōϠ̠ϠũčōԠũč̍Ϡ̩Ǡ΍čŮĠĠ؍ĠӬŬҠΠϠŠčٍԠ٩čōϠ̠ϠũǍččϠ̠ϠŠĩč׍ϠשǠ΍čōϠ̠ϠũǍččNW1MP0:PC507HL$"ERASED":WT$HL$:TT$HL$bHW$(1)HL$:WD$(1,1)HL$:WD$(1,2)"END"h ** CHOOSE TO MAKE FILE A PHRASEBOOK OR DICTIONARY ** NKY:90021:"IS THIS A PHRASEBOOK LESSON ";KY$:KY$"Y"KY$"N"966 CLEAR BOTTOM THREE LINES ** E21:38);" ":38);" ":38);" ":| ** SET UP BLANK DATA FOR A PHRASEBOOK LESSON ** NW1:MP0:PS50:HC1FC$"ERASED":SC$FC$C1$(1)FC$:C2$(1)FC$ ** SET UP BLANK DATA FOR A DICTIONARY ** 0:0:1002:::8(4)"BRUN COPYRIGHT (1983)"O(4)"BLOAD INPUT"(103,01:104,8:2048,0: ** MOVE PROGRAM TO $0800 **-366062(4)"RUN MMEDIT1"  KY),3) f6k ** DISPLAY LESSON NAMES ROUTINE ** ?pFL0MrLPSTENYtFLĖ20qvTP$(FI$(LPOS),3)xNA$(FI$(LPOS),(FI$(LPOS))4)zLP10ĺ"0";|LP;") ";NA$;("........",9(NA$));TP$;~FLFLFLĺLP:: **KY$::90:F21LP" 23:1X*"(I WILL ";::DC$;::" THE LESSON YOU SELECT)"`421>"CHOOSE A LESSON NUMBER & ";::"RETURN";::" ";HKY$:KY$""NM$"":870RKY(KY$):KY1KYNFNH820\NM$(FI$(KY),(FI$(KY))4):TP$(FI$(F20LP1NFNH FLĖ205TP$(FI$(LP),3)UNM$(FI$(LP),(FI$(LP))4)" ";NM$;("........",9(NM$));TP$;".(";LP10ĺ"0";LP;")";FLFLFLĺ LP29F2Ģ22:"PRESS ";::"RETURN";::" FOR MORE LESSON NAMES";:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:0DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD G'&&`  G'&i(i` LU**Uժ   &e&Jj),-P-&Iei Є`HH)&JJ&&h' &' &' f&')'h`' čҠӠٍũήčŠ̩ĠŠ͍ǠŠٮčύŠŠΠҠԩčŠȠ֠΍ŠǠͩčҍɠŠϠΩϠŠϮčōȍŠĠĨөύǠǠ˩ϠĮčҍɠԠϠũ٠ӮčύҠӠӍөҮč̍Š٠Ӡũč̠ύԧӠԠΠŠԩ  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDŠɠӍſɧ͠ǠҩčӠӠӍŠŠͩ׮č̠Ş̌ӍŠΧԠŠԩč̠ӠōŠӠϠөٮč̠ΧΠӍŠΧԠŠ٩čӍҍŠŠԠҍŠŠӍɠŠͩҠŮčŠɠčŠӠͩ١čӠԍŠӠŠͩԠōŮčɍŠŠөčʧ٠ӍŠ̿ɧ͠ǠԩčDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD    DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDχχχχ@   DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōččŠ̠ՍŧӠŠ̠ĩčӠŠӍɧĠŠөĠŮčԠōŠנӠΩčӍϠɠ˿ҡčōŠӠ٩čנҍŠŠԠčŞ̌ɠōɠנҩԠԮčӠӍŠŠǩ׮čӭٍϠũ٬̮č΍ŠĠӠũčӠԠ٠Ω٠̮čӠӍԠŠ˩ϠŠԮčӠŠӠϠөΠŠŬԮčōĠӠΠŠͩ芊ӍĠŠͩčŠԠŮԧӠũčŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčER) <(4)"BLOAD SUBJ:DEMO DISK,A$7000"G F(4)"BRUN FLASH SUBJECT"X PI11000:I` Z: _3:10:"AMERICAN EDUCATIONAL COMPUTER, INC.":1:20:"COPYRIGHT 1984 PALO ALTO, CA" d(4)"RUN MMHOME".::(4)"BLOAD PIC:MATCHMAKER-H,A$2000"X230,32:16304,0:16302,0:16297,0 0,0:1,112: SET ADDR OF FLASH SUBJECT2,0:3,40: SET LEFT,WIDTH4,112:5,191: SET TOP,BOTTOM(6,16: # OF PASSES 27,0:8,32: SET DELAY COUNT  50: ** EXIT ROUTINE **-t ** EDIT DATA **O~A$(MP):I%0:MX2:HT34:VT5dA$,VT,HT,MX,I%A(A$):AMPSF1: ** SET SAVE FLAG **A11150:** 0 GUESSES NOT ALLOWED ** MPA:35:MP;" " I%11210: ** THE LEFT ARROW WASTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:A(20)::"1.";::FC$;" ";::"2.";::SC$L22:5::"IS THIS CORRECT (Y/N)":VA$"Y":I%0:MX2:HT30:VT21`A$,VT,HT,MX,I%eA$"Y"A$"N"1110fjA$"Y"12TP$"HOD"TP1:30250:1020** READ IN DICTIONARY LESSON ** k30140: ** READ IN PHRASEBOOK LESSON **q80:** PRINT TOP LINES **$6." HOW MANY MISSES PER WORD :";:35:MP8B" % CORRECT TO SEE REWARD :";:35:PCCsDEDIT DEFAULTS ** =DC$"EDIT":650: ** CHOOSE A LESSON **NM$""İ500:: ** IF THIS ROUTINE IS RETURNED TO THEN WE SHOULD GOTO THE MAIN MENU **SF0: ** CLEAR SAVE FLAG **TP$"ERA"İ965: ** ERASED LESSON HANDLER **>TP0:TP$"DIC"",";NM$;".";TP$]TP0:TP$"DIC"TP$"HOD"TP1:940:20250:985:** SET UP DUMMY DATA ** 920: ** SET UP BLANK PHRASEBOOK **20140: ** WRITE DUMMY FILE DATA **FI$(N)NM$"."TP$20000: ** WRITE OUT LESSON NAMES ** ** A$"P":KY$"N"A$"D"+ZZKY$"N":976O22:"IS THIS A FIXED LESSON ";oKY$:KY$"Y"KY$"N"972A$"P"KY$"Y"TP$"PHR":980A$"P"KY$"N"TP$"HOP":980A$"D"KY$"Y"TP$"DIC":980TP$"HOD"CD$"RENAME ";FI$(N);ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčűčŲčųčŴčŵčŶčŷčŸčŹčűč E EDITING LESSON **/. ** EDIT ABOVE DATA **5. Q. ** EDIT WORD TITLE **q. A$WT$:I%0:HT0:VT7:MX15. A$,VT,HT,MX,I%. WT$A$:8:1:14);" ";:1:WT$. I%12570: ** LEFT ARROW WAS PRESSED **. ** EDIT TEXT TITLE **/ A$TT$RD TITLE":- :WT$:.- :"TEXT TITLE":;- :TT$:K- :"HINT":V- :HL$- 400: ** ASK EDIT, DELETE, ACCEPT **- KY$"D"2535: ** DELETE LESSON ** (NOT IMPLEMENTED ON ATARI VERSION) **. KY$"A"2600: ** ACCEPT ABOVE DATA, CONTINU1$(LP), C2$C2$(LP)5, 300:** EDIT WORD ** E, C1$(LP)C1$U, C2$(LP)C2$[, ,- ** DELETE A WORD FROM THE PHRASEBOOK LESSON ** ,. C1$(LP)"((DELETED))",3 C2$(LP)"((DELETED))",8 , ** EDIT DICTIONARY WORDS ** , 6 - :"WOPNW:120:** PRINT THE NUMBER OF WORDS WE ARE ON **e+C1$"":C2$"":300: ** ADD TWO NEW WORDS **u+C1$(NW)C1$+C2$(NW)C2$+SF1:2245: ** GO BACK AND ASK IF THE USER WANTS TO EDIT THE NEW WORDS **+ ** EDIT PHRASEBOOK WORD ** ,C1$CM NUMBER OF WORDS ENTERED. EXIT ROUTINE ** *11:19:19);" ":14:19:19);" ": ** CLEAR OUT OLD LINE IF THERE WAS DATA ON IT. ***460:** ASK TO ADD MORE ** *KY$"N"2950:** EXIT THIS ROUTINE ** * ** ADD ANOTHER WORD **4+NWNW1:LETE WORD **7)KY$"E"İ2300:2245:** EDIT WORD ** U) ** GO ONTO NEXT WORD **[))SF2275: ** SKIP NEXT LP (SF SET BELLOW) **)LP)** DONE WITH ALL WORDS, ASK TO IF THE USER WANTS TO ADD MORE WORDS ** ,*NW352950: ** MAXIMUTEGORY ";:19:"WORD OR PHRASE"L(11:FC$;::19:19);" ";:19:C1$(LP)z(14::SC$;::19:19);" ";:19:C2$(LP)(16::"SOURCE:";::" ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,."(400: ** ASK EDIT, DELETE, ACCEPT ** )KY$"D"İ2350:2262:** DEL: ** GO BACK TO ASK IF THE USER WANTS TO EDIT, DELETE, OR ACCEPT THIS **k' ** EDIT PHRASEBOOK WORDS **q''80: ** PRINT TOP LINES **'SF0: ** SKIP NEXT LP FLAG **'LP1NW'120: ** PRINT THE WORD NUMBER WE ARE ON ** (9::"CA%%&vFC$A$:8:1:19);" ";:1:FC$J&x ** EDIT THE SECOND CATEGORY **k&zA$SC$:I%0:HT19:VT7:MX15&A$,VT,HT,MX,I%&SC$A$:8:20:19);" ";:20:SC$&I%12160: ** LEFT ARROW WAS PRESSED, GO BACK AND EDIT FIRST CATEGORY **I'2130130: ** DELETE LESSON ** (NOT IMPLEMENTED ON ATARI VERSION) **}%fKY$"A"2200:** ACCEPT ABOVE DATA, CONTINUE EDITING **%k ** EDIT THE ABOVE DATA **%l%m ** EDIT THE FIRST CATEGORY **%pA$FC$:I%0:HT0:VT7:I%0:MX15&uA$,VT,HT,MX,ION ** $+$80: ** PRINT TOP LINES **U$ TP2500: ** EDIT DICTIONARY FILE **[$~$  ** EDIT PHRASEBOOK LESSON **$*6$4:"CATEGORY 1";:20:"CATEGORY 2":$>$HFC$;:20:SC$$R400: ** ASK EDIT, DELETE, ACCEPT **@%\KY$"D"2EN WE SHOULD GOTO THE MAIN MENU ** X#TP$"ERA"İ965:** ERASED LESSON HANDLER **#SF0: ** CLEAR SAVE FLAG ** (NOT USED YET) **#TP0:TP$"DIC"TP$"HOD"TP1:30250:2040:** READ DICTIONARY LESSON ** $30140: ** READ PHRASEBOOK LESS PHRASEBOOK LESSON BACK TO DISK **Y"20250: ** SAVE DICTIONARY LESSON BACK TO DISK **{": ** RETURN TO MAIN MENU **" ** WRITE/EDIT LESSONS ** "DC$"EDIT":650:** CHOOSE A LESSON ** '#NM$""İ500::** IF THIS ROUTINE IS RETURNED TO TH"!A$(HC):I%0:MX2:HT34:VT97!A$,VT,HT,MX,I%f!A(A$):AHCSF1: ** SET SAVE FLAG ** x!A1A21220!HCA:35:HC;" "!I%11180: ** THE LEFT ARROW WAS PRESSED ** !1100!SF1280""TPİ20140:1280: ** SAVE PRESSED ** / A$(PC):I%0:MX2:HT34:VT7D A$,VT,HT,MX,I%t A(A$):APCSF1: ** SET SAVE FLAG ** PCA:35:PC;" " I%11150: ** THE LEFT ARROW WAS PRESSED ** !TP1240: ** SKIP OVER EDITING OF HIDDEN CATEGORY **" ** DISPLAY LESSON NAMES ** W=:DC$"AEC "D2$" LESSON NAMES:":70: ** CENTER **^=3=880: ** DISPLAY LESSON NAMES **=22="NUMBER OF THE NAME TO MOVE ";=(KY$:KY$""5300: ** GO ONTO HOME FILES **=*MF(KY$)>-MF(ST)MTEAD IN ONCE THEN DON'T READ THEM IN AGAIN **V<30000:RF1: ** READ IN ALL FILES **c<ZZ5033s<D2$"FIXED"<ST1:ENNF:OS0:5040<D2$"HOME"<ST1:ENNH:OSNF:5040<20000: ** WRITE OUT LESSON NAMES **<: ** EXIT ROUTINE **=$:VT21:HT11:MX8:I%0,;^A$,VT,HT,MX,I%C;cA$""A$" "4180I;dr;eCD$"RENAME ";FI$(KY);",";A$;".";TP$;hFI$(KY)A$"."TP$;r20000:** WRITE OUT FILES NAMES TO DISK ** ;|4000; ** RE-ARRANGE LESSON ORDER ** ,<RF5020:** IF RE ** :NM$""ı6:TP0:TP$"DIC"TP$"HOD"TP1Z:900:** CLEAR BOTTOM LINES ** o:TP$"ERA"4040:22:"THIS FILE CANNOT BE RENAMED UNTIL DATA":"HAS BEEN ENTERED INTO IT.":LP13000:LP:4000:22:J"CHANGE TO >";TA$NMKY$"N"Ģ22:38);" ":3130A9 NM$(FI$(KYOS),(FI$(KYOS))4)Y9 TP$(FI$(KYOS),3)9 CD$"RENAME ";FI$(KYOS);",";NM$;".ERA"9 FI$(KYOS)NM$".ERA"9H NM$"":31009 ** RENAME A LESSON ** :DC$"RENAME":658:** CHOOSE A LESSON TO RENAM8D "LESSON NUMBER TO ERASE ";(8N KY$\8X KY$""ı: ** RETURN TO CALLING SUB-ROUTINE **~8b KY(KY$):KY(ST)KYEN31308g 22:38);" "8l 22:"ERASE ";::(FI$(KYOS),(FI$(KYOS))4);::" (Y/N) ";8v KY$:KY$"Y"KY$"N"31908 9 D2$"FIXED"'7 ST1:ENNF:OS0:310067 D2$"HOME"Q7 ST1:ENNH:OSNF:3100{7 20000:** WRITE OUT LESSON NAMES ** 7 :** EXIT ROUTINE ** 7 :DC$"AEC "D2$" LESSON NAMES:":70:** CENTER **7& 370 880:** DISPLAY LESSONS ** 7: 22 TO THE DISK **F6 20250: ** SAVE DICTIONARY LESSON BACK TO DISK **h6 : ** RETURN TO MAIN MENU **6 ** ERASE A LESSON ** 6 RF3020:** IF READ IN ONCE THEN DON'T READ THEM IN AGAIN **6 30000:RF1:** READ IN ALL FILES ** 6 ZZ3040 70:** ADD A NEW WORD AND WORD DESCRIPTION **{5 SF1:2690: ** GO BACK AND ASK IF THE USER WANTS TO EDIT THE NEW WORDS **5 ** EXIT EDITING LESSON ** 5 ** SAVE SF NOT IMPLEMENTED HERE YET **6 TPİ20140:2980: ** SAVE PHRASEBOOK LESSON BACK ANOTHER WORD ** 4 NWNW1X4 LPNW:120:** PRINT THE NUMBER OF WORDS WE ARE ON ** 4 12:L214:38);" ":L2: ** CLEAR OUT 4 LINES OF ANY OLD DESCRIPTION **4 HW$(LP)"":L214:WD$(LP,L2)"":L2: ** CLEAR OUT ANY OLD DATA IN ARRAY **,5 20SET BELLOW **3 LP_3 ** DONE WITH ALL WORDS, ASK IF THE USER WANTS TO ADD MORE WORDS ** 3 NW352950: ** MAXIMUM NUMBER OF WORDS ENTERED. EXIT ROUTINE **3 460: ** ASK TO ADD MORE **3 KY$"N"2950: ** EXIT THIS ROUTINE **4 ** ADD(LP,L2)"END"L24:2685(2x WD$(LP,L2)02} L2Z2 400: ** ASK EDIT, DELETE, ACCEPT **2 KY$"D"HW$(LP)"((DELETED))":2703:** DELETE WORD ** 2 KY$"E"İ200:2690:** EDIT WORD ** 2 ** GO ONTO NEXT WORD ** 3 SF2711: ** SKIP FLAG 1NW61F 120: ** PRINT THE WORD NUMBER WE ARE ON **=1P 8s1Z :WT$;":";::HT(WT$)3:15);" ";:HT:HW$(LP)y1d 1i :TT$;":":1n 121q L214:29);" ":L2:** CLEAR OUT ANY OLD DATA ON THE SCREEN ** 1r 121s L2142u WD$12562: ** LEFT ARROW WAS PRESSED ** z0 2535: ** GO BACK TO ASK IF THE USER WANTS TO EDIT, DELETE, ACCEPT THIS **0' ** EDIT DICTIONARY WORDS ** 0( 02 SF0: ** SKIP FLAG (TO SKIP OVER NEXT LP) ** 07 80: ** PRINT TOP LINES **1< LP:I%0:HT0:VT11:MX30+/ A$,VT,HT,MX,I%P/ TT$A$:12:1:29);" ";:1:TT$/ I%12550: ** LEFT ARROW WAS PRESSED ** / ** EDIT HINT LINE **/ A$HL$:I%0:HT0:VT15:MX32/ A$,VT,HT,MX,I%/ HL$A$:16:1:31);" ";:1:HL$*0 I%бŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč