' +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-(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`ȮӠ©ӍčΠĠӠ͠ōҠŠĠϠōӠź©΍荩ĠƠԠ΍ŠӠӠĠōĮ̠©΍č ΍ΠԠӠōԠӠź͠©͍荩Ӡ̠٠ӠΠӮӠ©čŠӠŠǠŠԠΠҍҧӠȠҠɠ©ٍč٠Π̠ӍŠŠĠΠ̠ӮŠ©ōčΠӬӠΠӬōӠϠǠƠĠΠōԮŠ©ŠčŠΠƠŠ̍ҠΠƠΠ΍ȠοŠ©ȍčŠԠԠƠŠ̍ŠΠȠ΍ӠӠź͠©͍čӠŠŠȍӠŠΠƠϠΠŠȮƠĿΠˠ©ΠčӠŠؠӠΠӺӠ©ōčŠԠƠŠٍӠȠӠ΍ӠӠźĠ©̍čàĠӠàĠӍӠȠˠ΍̠ŠàӮŠ©ō荩ŠӍȠ٠Ԡ΍ΠŠ̠ŠźӠ©ɍčȠΠӠ̠ҠŠ̠ǠĠӠԍӠӠԠſӠ©Ӎčč̠ȠΠŠͭĠ٠ΠҠ٠έǠŬĬĠԠ©ҍčӠΠӍӠРԠƠŠÍ̠ƠԠͮΠ©΍čȠӠŠĺӠ©ӍčӠӠΠŠƍȠŠƠŠ©ōčŠΠƠ̍ӠӠƠǍŠӮӠ©ӍΩӠ©ӍčԠӠŠŠƠō͠ԠӠ΍οŮɠ©čϠΠŭǍŠӍĺӠ©ӍčԠΠĠ͍ĠŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōč Π̠ӍҍŠŠԠҍӠРƠӍƠŠŠӠȠŠŠŠԮ٠©΍čĠӠŠōΠҠԮ   "ŠŠƠǠӍҍŠŠԠҍߠӠǠΠҠÍͮӠ©΍č٠ǠߠŬŠӠƠӠčŠĮ   ٠ӠƍӬӠӠٍנӮǠ©̍čӬԠӠٍנӮǠ©̍čӠҠ͠ӍΠԠӠȠōϺŠ©ōčōčӠԠŠנĠſҠ©ōč ӠŠӠƍΠӠȠ׍ϠԮӠ©Ӎč ŠӠŠԠƠōԠſ֠Š©ӭōčӠŠ͠ŠĠ͠ŠΠŠӠƺΠ©ӠčĠĠŠĠӠōĠΠŠƠōӠĠͮĠנ©Šč ԠŠƠԠɩŠ©ŠčӠĠӠҠӠĠӠč͠ŠͮŠŠ©ōč ȠŠӠōҬӠĠοؠ©΍čŠ̠ȠŠ̍ŮŠ©ŠčԠҠӮӠ©čȠӠ΍ӠҠΠοӠ©Ӎ荩ŠӍŠƠĠĠӮԠ©΍čΠ̠ččǠԍĠԠΠō̠ӠĺӠ©ӍčΠΠӬŠӍĠΠԠ©ԍčǠάŠ٠ԠӠĠύӍčӠΠ̠Ӡ͠ŠĠΠƠҮӠ©Ӡ荩ΠƠŠԠŠ̠ŠӠĺӠ©ӍűӠӍҍŠŠԠҍŠŠǠŠàĠ̠ӠӠź͠©ÍčӠȠҠǍȠˠĠ٠ŠӮ ٠ӍҍŠŠԠҍΠȠĠŠӠōԬ٠ŠĠؠӮŠ©ō荩ŠŠΠέ͠ӠӠĠӺŠ©ԍčԠŠ   űčŲčųčŴčŵčŶčŷčŸčŹčűčӠ©٠ҍčҠǠŬӠٍΠŠŠˠύӠԮΠ©΍čŠРŠΠōРƠŠ̠ΠŠ٠ĠӠź©Ǡȍč̠ӠؠӠϠ΍Ȯؠ©čŠħӠ٠͍ӠҠϠӠōŠԠӠҠӮŠ©ōčϠӠҠԠŠŠŠƠ٠ō٠ĠϺōč̠͠ŠčӠŠŠƠӍĠӠƮ̠©ččӠԠ٬ŠčΠŠĠ٠ϠŠŠϠԠԮР©ččŠӠϠĠǠӠŠŠӠӠӠōŠΠӮ©ŭӍč٠ǠōӠӠź͠©΍čӠˠέǍҠĠ٠ŠӮΠ©ŠؠӠ΍Ӡ٠ӠŠ©ԍ荩РĠĠōӠƠŠŠԍƺ©ӍčŠ͠Ӡč٠ͮŠ©ō荩ӠŠ΍čĠŠƠ̠٠ӠźŠ©΍čΠӠϠōΠƠŠӍԠŠĮҠ©ҍčΠ̠ԠӠōĠǿǠ©΍čԍčߠӠŠŠƍӠӠϠǭŠǠӮΠ©έ΍čΧӠŠӠŠԠƠΠԠŮŠ©ōčȠӠŠōƠŠϭӠŬӠӺǠҠ©ŠōčŠȠŠϠĠ΍ŠĠ٠͠ōϠҮŠ©ōčŠҠӍӠŠΠΠ΍άԠӍحĠ©ōčΠӬ٠ӠԠҠŮƠҍӠŠŠԠӠӺǨǩǨǩ©ǨǩبǩǩčԨԩӠϠŠߠƍΠͮŠ©ōčΠԠƠōӠӠȠӱӠҠŠŠԠҍŠӠŠԍ̠ĠԠӠӠϠӮؠ©čŠҠԠӍŠϠŠӠƠĠӠĺ̠©̱٠ӍҍŠŠԠҍΠͬԠƠōŬӠӠٍ͠ŠήŠ©ōč̠ŠӠԠōҠΠΠ͠ōĠúΠ© γÍδÍεÍζÍηÍθÍӮÍĮÍȮÍӮÍӮÍӮÍǮÍ̮Í̱Í̲Í̳Í̴ÍӮÍɮÍӮÍĮÍƮÍԮÍͮÍȮÍٱÍٲÍٳÍٴÍٵÍӮÍӮÍαÍβÍ  ٠ĠӠҍŠŠԠҍؠΠӠύŠŠΠΠٍРƠӮŠ©ō荩̠΍Ġ٠Ӡ؍ΠӠŠ©ō 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?LPENMT ** 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%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 **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);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 ** 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";:"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                                        ԍ荩ōȠӠԠŭǍӠĠϠźŠ©ōčӠȠӍϠӠ٠Һ̠Ӡ©ӍčĠӍР͠Š͍ӮŠӠź©ŠǠӠ΍ĮŠ©ōčԠŠŠǠӠƠŠĿӠ©Ӎ荩ӠҠΠ΍ŠŠŠϠӺӠ©ŠŠ©ō荩٠ԍӠ͠Ƞ͍ҿ͠©͍čӠ٠Š٠٠ǍӠҠٺӠ©ҠӍčӠĠӠŠŠύΠٿӠ©ՍčΠŠƠ΍Ӻ©ҍčĠǮŠ©ōčȠӠΠŠƍ̠οǠ©ӍčӠӠӍȠŠߠҠƍӮĠ©ččԠӠΠŠĠύԠàӠΠ΍ǠӍĠӠ©ōčΠȠŠƠӍϠӠō͠ȠҿŠ©ōčΠàŠӠĠΩŠ©΍č̠ӠЍ͠ŠڱӍҍŠŠԠҍӠĠ̠΍ĠŠƠźàǠ©ԍčŠàӠ΍ŠŠŠŠˠìάΠĠӠ©č    ٠ĠŠōҍŠŠԠҍӠŠ٠ƠŠΠƠǠӠύҠԮŠ©ٍčŬŬҍĠԠŠӠԠԠǠ  Π̍Ҡ̍ԠΠԠҍ ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč Π̍Ҡ̍Ԡ΍ԠҍΠ©ǍččҠҍӠȠΠ©ǍčӠŠӠȠРԠԠӮŠ©ōčǠ̭ǍӠӠ̠ЍԠĠήǠ̠©ǍčҠĠōĠӠϠԠΠӠԠ΍ȠΠӮŠ©ōčӠ٠ō͠Ơ̠ӮǠ©΍čǠϠŠ̠΍ŠӠԠӍŠΠ͠Š̮Ҡ©ԍ芩ōčǠӠĠ΍ΠΠŠӠӍĠРΠ©΍čΠŠƠōŠΠҠԠӺ̠©ҠčŠΠ΍Šč͠ŠӠϠŠϭ͠ٺǠ©ͩčŠԠƠέӠӠŠԠƍήŠ©ōčȠӠŠƠŠӠΠſŠ©ōčϨ©àččӠƠȠȠӿΠ©΍čΠ̠Ӭ٠ӠĠΠŠРŮŠ©ō荩ŠӠӠԠ٠΍ŠӠƠΠӿŠ©̍čԠӠȠύӠΠŠ͠čӠ͠Ϡӿ©ԩčǠŠàŠƍάŠӠ΍ΠϺӠĠӠҍŠŠԠčˠӠӍ͠ΠĠȠȍ٠ӠĠźӠ©̠ō荩٬ˠĠٍŠ٠ήŠ©ō ԠȠ΍ҍŠŠԠҍԠǠӠӠĠŠԠӠΠŠƠ͠©ōčԠӠנԍΠȠӿǠàǠà " ""čōɠŬũٍ٠ǠϠōŠΠŠЮčԍɧ͠ԠŠ٠ˠӍŠԬԩՠĠԮčȍ̠ՠȬΩōנϠ٠ŠϿč̬̩Үčč̠ՠŠάĩŠŠٿč̍ŠŬ̩Ӡ̭Ġ٠̠ōӮčٍɠĠ٬٩Ƞ٠ŠčӠĠԠŠЮűōԠčźԍɠ̠ԬԩҠҮčԍŠԬԩϠӠԠŠŮčōɠˠӠŬũĠĠРҠōǠӮč̍٠ŠԠΠǠȍҠǠ٠ŠźӠ©ӍčŠӠŠٍĠǠŠϮΠ©ˠÍč̠ӠҬӠĠҠҠҍƠΠٺΠ©ōčŠϠӠƠŠ͍ŠӠĠӠ©ӍčΠŠŬŠŠƍ̠ӠĠ٠ŠŮŠ©ōčӠԠ̠ΠӍàƠӍĠӮŠ©ōčŠĠӠĠŠȠӠŠϠōΧӠή̠©̍荩Ҡ̠ƠŠŠӠĠŠύҮΠ©΍čӠΠŠŠԠ٠ŠŠŠԠōŠŮŠ©Šč٠ĠӠŮŠ©ōčΠ©΍č͠ӠŠԍӠŠǠŠٮ̠©̠čŠ̠ĠˠŠȍӠԠϠԠŮŠ©ōčӠŠٍ̠ƠӠ͠ŠΠǠҭӠƠ٠Ġ٠Ŀ٠©̍č̠ӠŠҠ٠ŮǠ©ԍčĠƠҠٍӠĺӠōκӠ©ӍčԠӠŠàǍˠƠΠӿŠ©ϠӍčӠŠӠԠԍӠӠĠŠԠƠŠԠĮŠ©ōčԠӍŠĿŠ©čč̠ȨϠӠ̨ӠӠΠŠƍΠ©΍čߠӠŠōŠ٠ΠӮŠ©΍čӬӠĠ͠ӠӬӠӠàӠ©àҍčϠҠŠӠƠΠŭԠȠԠàӠŠĺӠ©ӍčԠӠŠΠȍҠűӠĠӍҍŠŠԠҍ̠ӠŠӍĠΠήϠ©ύ荩ȠƠΠ̠ȍΠΠΠ٠ҍٺӠ©ǍčŠĠŠ ӠƠҠӍҍŠŠԠҍҠӠԍҠ٠ΠōƠŮ͠©ӍčƠŠˠӠԠ̍ĠŬԠ̍Š͠ҠӠ©΍č ! !!˩čӍԠԩčٍΠĩٍčōӠǠԍΠŠĩčҍŠϠөčŠǠӠҠȍӠȬӠĠήŠ©ōčҠȍӠȬǠĠήŠ©ō芩ō芊ӠŠĠĠΠŠǠԠӍӠĠԠΠΠĮǠ©Í芊͠ƠōǠӠǠŠčŠ̮٠©ٍčӿ̠Ҡ©̠ŠčέĠìŠӠŠȠϠԍԠ٠ҠȮŠ©ҠҍčŠӠŠϭĠԠŠӠŠŭĠԮԠӠŠŠҍƠŠӠΠӠĿ͠©č芊ԠΠΠӮӠ©ӍčԠŠӠčĠӠ͠Ǡō̠ԠӺĠ©ččŠҠƠŠΧӍ٠Ƞ٠ӍӠĠΠ©ō荩Р΍ŠĠˠӍΠŠƺ͠©͍čԬӬ助ččӠǠŠčӠӠΠŠƠΩŠ©ōčĠɠŠŧӠӮŠ©ōčӠ٠ӠĠ͍Šà̠ύٍčΩӠРƠͭҠӠΠàٮΠ©͍čΠӠϠٍӠӠŠϠκΠ©͍čŠԠӠƍà٠ŠǠӍӠĺӠ©ӍččӠӍčӠ©ٍ荩ȠîԬ߬ԠĠŠ٠ƍӠήɠ©ɍčȠƠŠǠӍԠȿ̠©Ӎ荩ǠƠÍӠ٠ҠΠĠŠĺӠ©ӠčԠӠŠŠōҠΠΠԍĿ̠©̍č Š٠ƠΠ͍ϠĠϠӍŠƠӠĺĠ©΍čŠӠ٠ȠӠӠҠōϠŠӠĺΠ©΍čߠӠŠōǠԠŠΠٍŠ͠ŮӠ©ӍčӠȠŠűӠĠӠҍŠŠԠҍŠ̠ŠƠŠˠӠĠŠōčŠ̠ӠƠ͠ŠĠ΍Š̠ЮŠ©ō荩 ӠƠҠӍҍŠŠԠҍˠӠΠŠӠƍנ̠ŠƠҺӠӠ©ӍčӬӬӍĠӠŠ̠ԍӮŠ©  !Ġͬά΍ĺōō̍̍ҍҍЍЍōōōōčč̍̍ǍǍōōōčϠԠӠĺӠ©ӍčӍčӠĺӠ©Ӎč٠ŠԠ٠ŠϠǍӠĠԠӮӠ©ӍčӠŠ̠РŠƠŠӍ٠ŠĠϠŮŠ©ōčŠӠƠӠԠӠϠȠ͠Ǎ©čŠƠŠԠӍĠΠŠӠƠ΍Ԯ͠©͍čΠΠŠҍӠȠŠҠӠҺŠ©ӍčŠӠԍӠŠ̠΍ƠӠӠĺΠ©΍č٠ӠŠčӠԠԺԠ©ԍ芊٠ȠӍȠŠŠӠȠӠŮӍΠӠӮҠ©ĠӍčȠŠƠӠōҠӠΠҿӠ©ӍčΠ͠Ǎ̠ӠȠΠϠͺΠ©čō芊ĠčĠ٠ӠӠčŠŮ̠©ÍčΩӠŠ΍ҠĠŠӮàŠ©ٍčŠĠЍŠŠӠƠčŠӠ٠čĠ٠Ů©ԍčӠĠŠōΠΠƠŠӠ©ōčŠӠŠӍŠŠӬӠĠӠŠĮŠ©ɠӍ鍵鍳 ΠĠԍҍŠŠԠҍӠӠ͍ŠӠĠŠӠĠ̠ӮΠ©ӍčΠŠŬנŠ͠ϠŠ΍Ӯ """ŠƬŠĠ΍ҍŠŠԠҍԠӠŠΠ΍ƠŠӠΠŠƿԠ©΍čǠάϨčȨϠӠԠƠŠƍȺ©Š ͍čЮŠ©ōčǠŠ͠ύӠٮŠ©ō荩ŠƠ΍ΠŠȠӺǠ©΍čԠӠӠϠ٠ύŠȠٍǠ͠ЮŠ©ōčȠٍǠ͠Š©ō荩ȠĠĠҍŠҠŠٍŠȺӠ©̠荩ŠԠƠŠҭҠ͠΍ŠȮӠ©ŠԠčȠΠԠ͠ԠӠŠ͠Š̍Ơˮ̠©ōčӠŠŠӠӠƠΠ͠ȍҠŭź©؍čӬӬӠĠӠŠ̠ōӮԠ©ƍ荩ӠƠҠ͠ŠӠĠĠϠŠԭŠӠĺΠ©ΠčӠϠ͠ӮΠ©΍čӠΠҠΠ͠àӮŠ©ōčΠŠΠŬέǠĭŠӠΠŠӮàŠӍĠΠŠέ΍ŠŠΠĺΠ©ӍčΠӠ͠΍٠ԠǠ͍̠ȠҠӮӠ©΍čӠŠΠƍӮà©ÍčԠϠŠ̠Š΍ҠŠŠӠΠȿŠ©ōčĠΠӠϠōҠƠ٠͠ōǠǠϠҮŠ©ō荩ŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōč ŠΠ٠Š͍ҍŠŠԠҍӠƠ٠ӠōĠ٠ōӠĺӠ©ӍčŠĠӠŠԠΠƠŠΠŠ !!!!ĠӍҍŠŠԠҍӠҠŠԬ ҠĠٺŠĠ©ō荩ҠӠƍҠӠōŠƠ͠ĺӠ©͍荩ŠŠӠ z#! ŸĠ" ŹĠ űĠ Ҡ̠Рʺ٠ űĠŲĠ ųĠ ŴĠ ŵĠ ŶĠ ŷĠ θà Ӯà Įà Ȯà ӮàӮà Ӯà αà βà γà δà! εà" ζà ηà ٱàٲà ٳà ٴà ٵàӮà Ӯà !ɮà"ӮàĮàƮàԮà ͮà Ȯà Ǯà ̮à̱à̲à̳à̴à Ӯà Р Šű+ Ԡ Ա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 ՀՀՀЊժłԪԪԂЂԀժժժՂԂԂԠՀժՀЪԂՀՀՀԀԊԪժժՂЪժՂЂԪԠժժՀՀՀԀԊԪՂЪժժՀЪժՂЂԪԠժժԂՂԂՀԂЪժՂԂԂԀժժՀժժРՀՀՀԀԪՂԊЊЊЪЊԂՂԂՀԂЪժχÇÇχχχχχχχχχÇÇჀჀχ烀χ烀χχ@   ժՀЪѪъԀՀՀՀՀЊժłժՊԪԪԂЂԀժՊժՂԂԂԠՀժՊՊԂժՀЪѪъԀՀ  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:0"D"""""""""DD"""""""D""D""""""D""""DDDD""D"""""""""DD"""D"""D"""""""""DD"""D"""""""""""""DDDD"""D"""D""""""""""D"""D"""""""""""""D"DD"""D"""DDDDDDDD"""DDDDD"""D"""DDDDDDD"DD"""D""""""""""""""""""D"""D"""""""""""DD"""D""""""""""""""""""""""D"""""""""""DD"""""D""D""D""DDDDD""""DDDDD""DD"""D"""D"""""D""D""D""D"""DD"""D""""""DD"""""""D"""""D""D""D""D"""D""DDD""""""DD"""""""DDDD""D""D""D""D"""D"DD""""DDDDDD"""DDDDD""D"""""D""D""D"""D""""D""""""DD"""D""""""D"""""D"""""D"""DDDDDDD"""""DD""""""""""DDDDDDDD""""D""""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""DDDD""""""""""D"""""D""""""""""""""DD"""""DD""""""""""D"""""D"""""""""DDDDDD""""""DDDDDD"""D""D""DDDDDDDDDDD"""""""DDD""DDDD"""D"""D""D""""""""D"""""""""""D""""""DD"""D"""D""D""D"""""D""""""D""""D""""""DD"""D"""D""D G'&&`  G'&i(i`LU**Uժ   &e&Jj),-P-&Iei Є`HH)&JJ&&h' &' &' f&')'h`' DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""DDDD""""""""""""""""""""""""""""""""""""""DD""""D"""""""DDDDDD""D""""D""""D"""""""DD""""D"""""""D""""D""D""""D""""""""""""DD""""D"""""""D""""D""D"""DD""""D"""""""DD""""DDDD""""D""""D""D""D"D""""D"""""""DD""""D"""""" DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:""""D""""""DD"""""""D"""""""D"""D"""D""""D"""D"""""DD""""""D""""D""D"""D"""""D""""D"""D""""DD"""""D"""""""D"""D"""""""D""""D"""D"""DD""""D"""""""D"""D"""""""""D""""D"""D""DD"""D"""""""D"""D"""""""""""D""""D"""""DD""""""""""""""D""""""""""""""""""D""""DD""""""D"D""""D""""""""D""""D""DD""""D""""D"""D"""D""""D"""D"""D"""""D"DD""DDD""""D""D"""""D""""D"""D""DDDD""""DD""D""""""""D"""""""D""""D"""D""""D""""DD""D"""""""D"""D"""D""""""D"""D"""D""""DD""DDDDDD"D"""""""D"""D""""D"""D""DDDD"DD""""""""D"""""""D"""D"D""""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""DDDD"""""""""""D""""""""""""""""""""""""""DD"""""""""D""D""""""""D"""""""""D""""""DD""D"D""""D"""D""""D"""D""DDD""""D"""""DD"DD"D""""D"""""""""D"""D"""D"""""D""""DD""D"D""""D"""""D""""D"""D""DDDD"""D"""DD""""D""""D"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:"""""""""""DD""D"DDD"DDD"D"DDDDD"DDDDD"DDDDD"""DDD"DD""D"""D"D"""D"""""D"D"""D"D"""D"D"""D"DD""D"""D"D"""D"D"""D"D"""""D"""D"D"""D"DD""DDDDD"DDDDD"DDDDD"DDDDD"DD"DD"DDDDD"DD""""""""""""""""""""""""""""""""""""""DD""""""""""""""""""""""""""""""""""""""DD""""D""""""""""""""DDDDDDDDD""DD"D""""""D"""D"DDDD""DDDDD"""""""""""""DD"D""""D"D"""D"D"""""""""D"DDDDD"DDDDD"DD"D""""D"D"""D"D"""""""""D"D"""D"D"""D"DD"DDDDDD"D"""D"D"""""""""D"D"""D"""""D"DD""""""""DDDDD"DDDDDDDDDDD"D"DDD"DDDDD"DD"""""""""""""""""""""""""""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""DDDD""""""""""""""""""""""""""""""""""""""DD"DDDDDD""DDDD"DDDDDDDD""D""DD""""DDD""DD"D""""""""""D"D"""""""""D""D"""""""D""DD"DDDDDD"D"""D"D"""""""""D""D"""""""D""DD""""""""D"""D"DDDDDDDDDDD""D"""""""D""DD"DDDDD""D""  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:"D""""""D""DD"""D""D""D""""D"""""D""""""""""""""D""DD"""D""D""D""""DD"""D"""""""""""DDDDD""DD"""D""D""DDDDDD"D"D"""""DDDDDDD""""D""DD"""D""D""""""""""D"D"""""""""""D"""D""DD"""D""D""""""""""""DDDDD"""""""DD""D""DD""""""D"""""""""""""""""""""""""D"""""DD"""""D"""D"""D"""D"DDDD"D"""""DD"""D"D""""""D"""D"D"""D""D""""""DDD"""DD"""D"D"""DDD"""D"""""D"""D"""DDD""""""DD"""D"DDDDD""""D"""""D"""DDDDDD""""""""DD"""D"""""D"""""D"""D"""D""""D""""DDDDDDD"""D"""""D""D"""D"D"""D"""""D"""""""""DD"""D""D""D"""D"""D"""D"""""DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD""DDDD""""""""""""D""""""""""D"""D""D"""""""DD""""""""""""D""""D"""""D"""D""D"D"""""DD"""DDDDDD"""D"""D"D""""D"""D""D"D""D""DD"""D"""""DDDD""""""D"""D"D"D""""D""D""DD"""D""""""""""D"""""D""D"D"D""""D"""""DD"""D"DDDD"";:CO$;:"RETURN";:CN$;:" ";BHKY$:KY$""NM$"":TP$"":870cRKY(KY$):KY1KYNFNH820\NM$(FI$(KY),(FI$(KY))4):TP$(FI$(KY),3)fTP$"ERA"ıkCO$;" THIS LESSON HAS BEEN ERASED";CN$:LP13000:LPp22:38);" "u820LP;")"; FLFL FLĺ LP29F2Ģ22:"PRESS ";:CO$;:"RETURN";:CN$;:" FOR MORE LESSON NAMES";:KY$:HM$:70:F21 LP 23:1 *"(I WILL ";:CO$;:"PLAY";:CN$;:" THE LESSON YOU SELECT)" 421>"CHOOSE A LESSON NUMBER & "0:(DC$,LP,1);:LP m" HM$0 EX0:1306 B RF660R 30000:RF1[ HM$c 70q FL0:F20 LP1NFNH FLĖ20 TP$(FI$(LP),3) NM$(FI$(LP),(FI$(LP))4) " ";NM$;("........",9(NM$));".("; LP10ĺ"0"; ":CO6:100:2:21:DC$;", ";NA$;" !"7 B" "R DX(0):DC$"GOOD"330 F21:" ";:1:" PRESS RETURN"; HKY$:(KY$)13328 J: T7:DC$HW$:A(20)2:DC$: ^LP1(DC$) cCO((1)6)1:CO4355 h102:L2L2100:269,160L2278,160L2:L2:5:L21NW:269,160L2WP278,160L2WP:L2u #3:269,160PC278,160PC: '1:L21WCWP:268,160L2278,160L2:L2: 1EX4:130:3:13:":"; 6KY$:KY$ ;. @21:" ":" DC$,L2,1)" "ĺ" ";:170" "_";, L2:b A(CL)XX:L21(DC$):(DC$,L2)" "ĺ" ";:205t (DC$,L2,1);~ L2: EX4:130:CO2:100:6:21:(SS$,(SS$)2):6:(SS$,(SS$)2): L21:WCĒ1:L21WCWP:268,160L2278,160L2:L2U )+** MMHOME (10/18/83 2:30 PM KSA) ** Y :(4)"BRUN CHAR.GEN":(4)"BLOAD INPUT"d32768u(63000:4000F"LESSON NAMES ON THIS DISK:"::KA(CL):DC$:d0,CO:CC$;:0,HZ(EX):1,VT(EX):CE$;: A(CL)XX:L21(DC$):(           31 103,01:104,64:16384,0:(4)"RUN MMHOME1" TER+ <(4)"BLOAD SUBJ:VOCABULARY,A$7000"I F(4)"BRUN FLASH SUBJECT"Z PI11000:Ib Z:x d(4)"RUN MMHOME"Oy.::(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,8: # OF PASSES  27,0:8,32: SET DELAY COUN  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:D""DDD"""""DD"""DDDDD""DDDD"""D"""""""""D""D"""""""DD"""D"""D""D""""""D"""""""""D""DDD"""""DD"""D"""D""D""""""D""""""""""""""""""""DD"""DDDDD""DDDDD""DDDDD""""""""""""""""DD""""""""""""""""""""""""""""""""""""""DD""""""""""""""""""""""""""""""""""""""DD""""D""""D""D"D""D""""D"""""""DD""""D"""""""D""""D""DD"""D""""D"""""""DD""""DDDDDD""D""""D""D""""D""""D"""""""DD""""""""""""""""""""""""""""""""""""""DD"""D"""D""DDDDD""DDDDD"""""D""DDD"""""DD"""D"""D""D""""""D"""""""""D""""D"""""DD"""D"""D""D""""""D"""""""""14:18512206279>@CO1:100:305:(KY$)274030HE4800VJFL4160`O4870mTFL4195yVGUGU1c220eEX2:130:4900f4950mOW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4250rGU04160u340wDC$"SORRY"C$:40884HW$C2$(LP):SW$C1$(LP):HC$SC$:VC$FC$]OW$(" ",(HW$))kEX1:130CL40:DC$HC$:11:75DC$VC$:18:75CO1:100 EX2:130:CL40:XX18:DC$"____________________":15015:DC$SW$:150 "NA$""6000#SC0:WT0:GL06WO0:LO0:650GNM$""4000jTP0:TP$"DIC"TP$"HOD"TP1wTP450030140WRNWWC0WP(100NW)LP1:WI0GUMP:4840SS$SR$HC1HW$C1$(LP):SW$C2$(LP):HC$FC$:VC$SQ$;" TO CONTINUE";#vLP(0):KY$E{WT0:SC0:GL0:WO0:LO0:DR1KV30370dEX1:130nHM$;DC$"MATCHMAKER HONOR ROLL":CL40:75C124LP110:C:HR$(LP);("...........",11(HR$(LP)));" ";SC(LP):LP5000SC r1900FL0:LP110;HR$(LP)A$FLLP:LP10CLPVF20:FL1750SC(FL)SCF21:1750:** OLD H.R. SCORE HIGHER **LPFL9:HR$(LP)HR$(LP1):SC(LP)SC(LP1):LPl20000q2010s21:"PRESS ";Q$;"RETURN";CD$"BLOAD INPUT")CD$"BRUN CHAR.GEN"=SCSC(10)1900CNA$NA$X,1700e1F21900k4t5FL06LP1011;SC(LP)SCFLLP:LP1@LPJLP9FL11THR$(LP1)HR$(LP):SC(LP1)SC(LP)^LPhHR$(FL1)A$:SC(FL1)264:Y2,Y21X&I (X,Y&*,,@.PX(0):PY(1)r0P(8(PXPL))(4(PYPH))(2(PXPH))(PYPL)2A$JA$(P)468(16384)127A$((16384)128):16368,0:<>0,P:2,0:3,DR:5,0@ST%Bx::AC16AC:1,BC16BC:CM%%/A$""MZTOTMZ(J):J1334,1324jOTZT(A$):OTZTMZ(J)ZT:OTTT1:1270:T1300OTOTOZ(J) I1TD:I"Y118:X138$CX,Y2):I12:CDC(I)SCSC20:P255:1340:1:21:159);:1(40)(41)256(36),327=_:22:3:"SCORE: ";SC;" ":ek:23:3:"TIME : ";T;" "::22:21:"GOAL: ";G:0,BC16BC1,AC16ACCM% P255:1340 0,I(:23:21:"FINISH BONUS : 500":<SCSC500:1264KI1TD:Ik23:8::"BONUS : ";30T:SCSC30T:12641310I1TD:ISCG1400SISI10:MDMD10:MTMT2MT2MT216368,01134X39X39Y0Y0+Y19Y19:DCX,Y2)eDCWCXOX:YOY:1282:SCSC100:1264I12:DCDC(I)SCSCSII:P25I:1340:1264IY191224T118223:3::"TIME RAN OUT":13101242I1TD:1(16287)127J10OJ2(16384)127J1>J11166H1256R1264\1270f1276tOXX:OYYCC:Y2,Y21X1296BC:Y2,Y21XA$"A"YY1A$"Z"YY1A$(8)XX1A$(21)XX1X0X02,Y21X1256COJ1Ģ22:10::"PRESS A KEY TO START.":tOJ2Ģ22:8::"PRESS BUTTON 0 TO START.":OJ0Ģ22:4::"TO USE THE KEYBOARD PRESS A KEY.":3:"TO USE A JOYSTICK PRESS BUTTON 0.":OJ1(16287)128J0J2OJϗ:.n(4)"BLOAD MAZE:";((1)5)2;",A";ADPp0,AD(AD256)256:1,AD256YrDM%etI1MDvX(38(1)1):Y(18(1)1)xX,Y2)BC1142zDC(2(1)1):Y2,Y21X|I~TMTGLGL1:GG(GL)OJJ:J0 X2:Y0:CC:YOAD CHANGE MAZE,A$320"*TWN%642:ST%707QV(4)"BLOAD SOUND GENERATOR,A$282"ZXDR5sZBC2:WC4:CC13:AC1\DC(1)11:DC(2)15^MD30:SI25`MT20bTD1000dMZ(1)135:MZ(2)72fOZ(1)MZ(1)20:OZ(2)MZ(2)20hPL80:PH175l: 200021h"PRESS ";Q$;"RETURN";Q$;" TO PLAY REWARD":"OR ";Q$;"ESC";Q$;" TO EXIT....>";KY$:KY(KY$):KY13KY271030 :KY2719150:0:1002LAD32768NDM%768:CM%800P(4)"BLOAD DRAW MAZE,A$300"R(4)"BL:CO$(15):CN$(14)=.1SR$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,."F.?DR1e.@LP14:HZ(LP),VT(LP):LPr.J 0,0.O 0,128.T 128, 0.Y 128,128.`RE$(6,5).aLP16:L215:RE$(LP,L2):L2,LP/c "excellent!!","perfection!","top notch!D"30340-zvL2L21:30310:$-vLPA-vCD$"CLOSE ";NM$;".";TP$G-vw-vCD$"OPEN HONOR ROLL":CD$"READ HONOR ROLL"-vLP110:HR$(LP),SC(LP):LP-vCD$"CLOSE HONOR ROLL"-v-IN$"X"."CD$(4):Q$(34):HM$(12):CG$(7):CC$(3):CE$(5)$"CLOSE ";NM$;".";TP$, vW,*vCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$e,4vNW,MP,PC,>v768:HL$(IN$,1):768:WT$(IN$,1):768:TT$(IN$,1),HvLP1NW,Rv768:HW$(LP)(IN$,1),\vL21,fv768:WD$(LP,L2)(IN$,1)-pvWD$(LP,L2)"EN68:FI$(NFLP)(IN$,1)+uLP8+uCD$"CLOSE AEC.FILES">+uz+uCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$+uNW,MP,PC,HC+u768:FC$(IN$,1):768:SC$(IN$,1)+uLP1NW+u768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1)+uLP,vCD(A$):NF030010+*7uST2:FI$(1)A$:NF359*:uLPSTNFS*Du768:FI$(LP)(IN$,1)[*NuLPu*XuCD$"CLOSE AEC.FILES"*luCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"*qu768:A$(IN$,1):NH(A$):NH030070*ruST2:FI$(1NF)A$:NH10*vuLPSTNH+u7A$)105170)(5110)2!)<8)p:CD$"RUN MMEDIT"i) NCD$"OPEN HONOR ROLL":CD$"WRITE HONOR ROLL")*NLP110:HR$(LP):SC(LP):LP)4NCD$"CLOSE HONOR ROLL")>N)0uCD$"OPEN AEC.FILES,D";DR:CD$"READ AEC.FILES")1uST1*5u768:A$(IN$,1):NF"TYPE YOUR NAME"6(CO6:100:15:10:"(10 CHR MAX)"b(CO1:100::22:"* {THEN RETURN} *";m(NA$""y(12:11(LP111:"_";:LP(CO5:100:12:10:" ";(A$:KY(A$)(KY85070(KY135170( NA$NA$(KY)(A$; )#(N49393'F(OW$)L20OW$(OW$,(OW$)1)KY$:4939G'GW1$(OW$,L21)`'HW2$(OW$,(OW$)L2)t'IOW$W1$KY$W2$z'K'VEX4:130:CO5:100:3:35:":";GU'['HM$'EX4:130'DC$"**** MATCHMAKER ****"'350'CO2:100(7:8:0& L21(HW$)7&(HW$,L2,1)KY$FL1:L2(HW$)?&L2E&L&$7X&)DC$HW$i&.HTA(CL)XXz&3L21(HW$)&5HT&8(HW$,L2,1)KY$ĺKY$;:4932&=HTHTXX&BL2&C&D(OW$)1OW$KY$:4939'EL210OW$KY$(OW$,(OW$)1):(SS$,(SS$)1)" ":4825B%S1$(SS$,L21):S2$(SS$,(SR$)L2)V%SS$S1$" "S2$\%f%HM$;t%EX3:130%CO1:100%"WORDS REMAINING";:35:":";WR1%EX4:130%CO5:100:3%"CHOICE:";:19:"GUESSES";:35:":";GU%&FLLOLO1$WRWR1,$WR0LPLP1:45266$4265D$WI4500N$4030W$FL0h$L21(SR$)$KY$(SR$,L2,1)FL1:4812:L2(SR$)$L2$$(SS$,L2,1)" "FL0:4825$L210SS$" "(SS$,(SS$)1):4825%(SR$)L20SS$_______":150#CO2:100$#279G#CO2:100:305:(KY$)274030Q#4800_#FL4564i#4870v#FL4576#GUGU1#4900#4950#OW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4590#GU04564#340:#DC$"SORRY":320$$))"EX1:1301"CL40:DC$WT$:11:CO$;:75;":13O":TT$;":":CN$]"EX1:130c"o"L214"WD$(LP,L2)"END"L24:4550"" ";WD$(LP,L2)"L2"23"CO$;"HINT:";CN$;" ";HL$"EX4:130:CL20:XX2 #8:DC$"________!'!CO1:100::" PRESS RETURN";A!KY$:(KY$)134345G!a!WT2SCSC100:1000o!WO0:LO0u!!30250!WRNW!WC0!WP(100NW)!LP1:WI0!GUMP:SS$SR$:4840!HW$HW$(LP)"OW$(" ",(HWLOWOME6:4300- SCSCWOLO:WIWTWT17 HM$;f CO5:100:"WINS:";WT;" SCORE:";SC100: CO2:100:" ";WO;" CORRECT OF ";NW :CO6:100:" ";(100(WO(NW))0.05);"%":  EL((1)51):DC$RE$(ME,EL):A(20)2:350::320LOLO1WRWR15WR0LPLP1:4078?4265MWI4060W4030`WI0{LO0ME1:WI1:4300:WO(WOLO)0.01PC100WI1WO2LOME2:4300WOLOME3:4300WO0ME4:4300LO2WOME5:4300 ĠӠҠō̠ӻŠŠĠӮӠ©ӍčӠĠŠōĠӮӠ©Ӎ芩ōččō芩ōčΠӠĠŠƺ͠©͍čΠΠάӠŠɬŠĺ©ӍčӠŠӠɍӠϠӠϺ٠©čԠӠŠΠƠōӠΠŠ©΍čȠӠϭӬԠ٠ŠĠ΍Š͠ٿ͠©ӍčΠŠ͍ȠĠĠĮŠ©ōčȠȠōӠĠҠͿ̠Š©̠ō荩Š٠ӠϠ΍ǠӠӠŠŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōčӠĠӍҍŠŠԠҍŠӠ̠ΠϠŠנŠƠӠĠ©čΠӬ͠Ӎ̠͠ŠҠҠƍή   Š̠ӠƠōҍŠŠԠҍΠҠӠ͍ŠŠϠҬԍŠӺ̠©̍čΩӠŠԍԠƠΠԮ͠©Ӎč Ơ 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"  |FI$(71),DU$(71),HW$(50),WD$(50,5),C1$(50),C2$(50),HR$(10),SC(10)1JA$(15):JA$(1)"A":JA$(2)(21):JA$(4)"Z":JA$(8)(8)1A(X)(X(DC$))21try harder!","once more??","practice!!","stick to it","can improve"0h "almost!!","better!!","try again!!","go for it!!","once more??"0lG(13)0mLP113:G(LP):LP0r 2000,4000,7000,11000,15000,19000,23000,26000,29000,32000,36000,41000,61000C1","superior!!","tremendous!"f/d "very good!!","a natural!!","good job!!","too easy!!","a learner!"/e "try again??","learning!!","not bad!","getting it!","once more?"/f "try again!!","practice!!","needs work!","too hard!!","get help!"C0g ""!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 **ER'A<(4)"BLOAD SUBJ:BIOLOGY,A$7000"EAF(4)"BRUN FLASH SUBJECT"VAPI11000:I^AZ:A_3:10:"AMERICAN EDUCATIONAL COMPUTER, INC.":1:20:"COPYRIGHT 1984 PALO ALTO, CA"Ad(4)"RUN MMHOME"L.@::(4)"BLOAD PIC:MATCHMAKER-H,A$2000"X@230,32:16304,0:16302,0:16297,0@ 0,0:1,112: SET ADDR OF FLASH SUBJECT@2,0:3,40: SET LEFT,WIDTH@4,112:5,191: SET TOP,BOTTOM@(6,16: # OF PASSESA27,0:8,32: SET DELAY COUNTōԠ٠ŠٍӠ©ӍčӍčĠϠōԠ٠ŠٍӠ©Ӎč٠©čŠӠƠӠŠȍҠĠӠҍΠӮŠ©ō荩̠ΠƍŠӠƠŠԍӠ助ōčĠĠ͠ōӠӠĠĠϠΠōӠԠԿȠ©ҍčӠΠӍ٠ĠǠҠĠӮǠ©Ǎ荩Π٠ǠĠĠϠō٠Ӡź΍Š©ōčӠŠ͠Ơ̠ōӠǠΠ̮Ӡ©͍čΠΠŠǬӠ٠Ҡ͍ΠŠήŠ©ōčԠӠϠŠٍȍŠӬȠӺΠŠ©čŠҧӠŠҠөŠҍŠԠŠōԠҠŠԠΠōč ӠӍҍŠŠԠҍӠ͠Ġ͍ҬȠӠύԬĠź͠©͍čӠŠӠ©Ӎ ӠĠٍ̠ҍŠŠԠҍΠӬ΍ŠĠҠŠύźŠ©ōčӠӍԠ٠Ϡ̍ĠٮŠ©ōč @   ĠȠǮӠ©Ӎč̠ӠԠԍӠРŠ٠ƍ٠ӮŠ©ōčŬĠ΍̠ӠȠźӠ©ŠŠƠΠĠΠŠӠΠźӠ©ӠčŠӠ΍ĠӠĠӮŠ©ŠčĠŠΠӠӠ©ύčԠԠӠ΍ΠȠӠ̠ύſ͠©΍芊ΠĠĠŠĠӠӠōŠƠΠçӮɠ©ӠčԠҍĠΠŠͮĠ©΍čӠŠ٠ǺӠ©Ӡč΍ӿ©͍芊ΠƠΠӠĠӠ©ӍčȠӠŠōΠϠӿӠ©Ӎ荩ΠƠŠŠӠϠΠέӮŠ©ōčΠӬŠ̍Ġ͠ӠĠŠ©ččŠӠŠ̍Š٠ƠήӠ©ǍčΠǠӠĠΠȍؠΠƠŠŠҧӠŠҠөŠҍŠԠŠōԠҠŠԠΠōč Π٬ŠĠōҍŠŠԠҍԠϠՠŠΠ̠ϠŠӠſέ©έčƭŠӠŠŠԍӠŠŠϠȠӠŠͮ ̠ȠĠ΍ҍŠŠԠҍӠŠŠƠ؍ӍŠ©ōčǠ߬ŠÍŠӠĠ͠ԍϠҠӮӠ©Ӎ荩Ġ ӍčΠΠΠΠӠȠΠԍӠĠϠźĠ©ččččӠȠΠԍӠĠϠźĠ©čč͍čȠŠΠŠύӠέĠӠԍŠȿ©čŠͬ͠ӍŠƠǠӮŠ©ōčōč٠ȠҠҠӠԠȠōƠӠĺΠ©΍čΠǠԬōĠӠĠΠźԠ©ҍ芊ǠƠ٠ӠӠĺˠ©͍ŠӠӠźĠ©ččȠŠΠŠРƍ͠ӠΠӠĠȿ͠©ˍčȠҠΠŠ͍ӠŠҠƍŠͿ̠©͍荩ӱŠҧӠŠҠөŠԠōŠԠŠōԠҍŠԠΠōč ΠΠĠΠҍŠŠԠҍ ȠàĠӠԠĠ̠ԠӍŠͿΠ©ԍčӠΠŠɭΠƠԮŠ©ōč à̠ĠٍҍŠŠԠҍΠ̠ԠӠŠӠԨԩԠӠĠŠ̠©ččƠȠӠŠŠōҠԬŠ͠ӍӠҠŠԮŠ© ή٠©؍č٠©؍čŠ΍͠Ӡ΍ĠԠο©ӍčŠנ̠ĠԠĠŠĠٮŠ©ōčǬǬĠǠŠӠƠŠΠĿӠ©ӍčĠӠōĠ٠ŠϠź©͍čĠŠĠƠŠ̠ŠōĮΠ©ǍčȠԠƠŠŠƠǠŠ̠ŠӠ΍ӠƠ͠ӮŠ©ōčӠΠӠΠŬ˭ӠȍϠŠ̠ŮŠ©ōčԠŠŠӠȍҠӠƠƿӠ©čŠҠӠŠˍŠԠŠŠƠŠƍŮ ©΍č̠Ӡ͠ŠЍĠ͠ӠƠŠƮŠ©ōčԠӠŠĠ΍ŠŠĠ٠ӍĠĠ̍ҠӠԠΠӿΠ©ӍčȠŠӍŠǠƠŠΠŠƿĠ̠©ōč͠Ġҍ͠ŠҠŠƠӮŠ©ōččΠ̬ӠȠӠέ̬ŠĠˠ̠ΠŠƮΠ©ΠčŠӠάٍ͠ǠŠӍƠŠƮŠ©̍čԠӠŠӠ٠ȲŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōčč ΠΠĠΠҍŠŠԠҍȠŠӠč͠ǠŠӠǠǿӠ©čǠάōӠƠŠ͍ԠĠҮ Š̭ŠĠ΍ҍŠŠԠҍƠŠΠŠō̠Ӡìҍ̠ŠŠ̮ԠƠ©ύčԠӠŭĠέӠРҠſӠ© ש̠ōӠΠԠԮč׍ŠŬשР̠ōӠҠŠҮččĬĩՠŠύϠǠӠοčҍŧӠΠԠӠύȠԠҠҬҩčҍҠԠĠҬҩΠŠƠŠŮŠ©ōčӠŠԠǠƠŠÍҠƠŠŮ̠©čӠΠŠŠӠҠҮӠ©čԠӠŠӍĠӠΠŠƠŠŮŠ©ōčĠӠō̠̮©ЍčŠҠӠōŠҠŠ©ǠčӠΠŠŠӠƠŠōĠ٠ŠŮӠ©ٍ荩Í荩Ӡō٠̠͠ōŠҮŠ©͍čӠĠŠӍ٠ҠҍŠƠŠŮΠ©ٍčŠӠŠŠΠŠҠԠӠԍȬΩ͍ӠϠԠŠԮҠ©ˍčΠ٠ĠȠٍנӠǠҠӮР©ӠčάŠӍ͠ŠԠԠŠ٠ӮŠ©؍čΠӠΠƠԠԬŠΠō͠ŮŠ©ōčŠŬͬҠ͠Ġ͠ōӠƠΠŠԮҠҠ©؍čΠҠӠƠҠōčΠȠΠƠōԠӠנȠҿ͠©΍čȠӠƠŠԠ ҠčӿԠӠ©ԠЍ荩ԠӠŠӺҠҬӍĺŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōč ŠΠ٠͠ҍŠŠԠҍŠŠӠč٠ĠŠĠĠōӠĺ©ӍčŠӠӠč٠͠ŠҠϠŠٿ ĠӠōҍŠŠԠҍŠΠƠ̠̠٠ϭӠӠĺӠ©΍荩ĠϠӠíŠӠŠ٠ύź  """ ӍŠŠҠōĠՠԍĠŠԍ̠ƠӍŠƠӍŠ©ōčήŠ©Ӎ蟊©΍čӠӠŠԠƍϠήȠ©ōčΠŠΠĠōӠӠŠӠϠŠήŠ©Ӎč芊ӍϠŠ©Ӎ芊ȠӍŠǠȠǠҠҠԠӺŠ©΍čȠΠƠŠ̍ĠӠ̠Ϡſؠ©čŠӠƠӍŠŠΠٮĠ©Ӎč͠ӠΠŠĠĠӍŮŠ©ōčΠͬŠōƠΠӠϺԠ©׍čˠƠΠǍ٠Ӡκ͠ΠĠΠРҠϠŠРͮŠ©ōčΠӠРĠԠ٠ŠԠҍΠ©ҍčӠ̠ŠƍĬԠĠٮŠ©ōčӠŠčϠӠ٠ȠӿӠ©ŠԍčӠŠԠƍҬӠĠčΠԮΠ©΍荩ŠŠȠӍӠĠϠ̠ĠӠӠĺǠ©ǍčȠΠΠ͍ӠĠ٠Š©̍čΠΠӠ٠Ġ͠Ġ ©΍čͱŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠōč! ŠΠӠ͠ҍŠŠԠҍΠάŠҠǠӠϠŠ̠٠ӠźΠ©ō荩Š٠ӠԠٍŠŠΠήŠ©ō! ŠĠɍҍŠŠԠҍŠӠƠƍӠҠ٠ŠέΠƺ©ӠčΠŠӍԬŠŠͺӠ©Ӎ! ӠΠō̩ҠŠήčӍŠũĠӠōŠԠΠŠĮč΍ΧԠԠŠӠũՠΠήčԍŠӠ̠ōŠ٠ĩččנũԠōҠֱӠŠŠŠǮ͍ĠŠ͠ƠŠĺōŠ٩ٍӠԠΠŠŮčҍŠӠ٠ԩϠŠԠԮččŠǩȠčΠϠԠŮčٍ""ήŠ©ōčο͠©͍čҠάŠōӠŠӠ͍ĠӺΠ©ōčŠΠӠӠ΍àĮŠ©ōčč͍ŠŠ©ӍčŠΠŠٍӠԠҠΠҠȮŠ©ō芊ӠȠΠĠŠϠŠŮŠ©ōčȠӠҠΠōΠŠ©΍čȠ٠ōӠŠ΍ƠŠͿȠ©ȍčӠŠΠĠŠƠŠ͠čŠŮΠ©čΠӠ΍ǠĠ͠ŠӠԠŠΠĠŮŠ©ōčŠΠŠƠō̠ΠӠӍź٠©͠ӍčԠӠŠҠƍΠ͠ΠҠύĿǠ©΍čԍčϠӠǍԠȠŠ΍ĠήŠ©ōčŠƠŠԠٍĠӠƠǍ٠ӠӺǠ©Ǎč̠ӠƠԠ΍ΩҠƠͩǠàǠÍčԠĠӠΠŠԿǠ©ԍ芊ƠԍŠȠΠĠЍ͠ȮӠ©Ӎč͠ӠŠŠƠԠϺ٠©ŠҧӠŠҠөŠҍŠԠŠōԠҍŠԠΠũč" ŠΠ٠ŠӠҍŠŠԠҍȬάԠĠĠŠŠӠƠĠΠӮŠ©ōčȠŠӠŠΠƠ̿٠©"    ӠĠӍҍŠŠԠҍ̠ΠӍΠӬӠĺ©ԍčȠԠӠĠōƠΠƠӿ٠©΍čŠΠӠƠ٠Ӡ٠"