' +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` 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                       "GOOD":320:4590 &GU04564*&340:?&DC$"SORRY":320K&LOLO1W&WRWR1o&WR0LPLP1:4526y&4265&WI4500&4030&FL0&L21(SR$)&KY$(SR$,L2,1)FL1:4812:L2(SR$)&L2&'(SS$,L2,1)" "FL0:4$;"HINT:";CN$;" ";HL$.%EX4:130:CL20:XX2P%8:DC$"_______________":150^%CO2:100g%279%CO2:100:305:(KY$)274030%4800%FL4564%4870%FL4576%GUGU1%4900%4950&OW$HW$WOWO1:WCWC1:295:DC$SS$SR$:4840$HW$HW$(LP)F$OW$(" ",(HW$))T$EX1:130t$CL40:DC$WT$:11:CO$;:75~$:13$:TT$;":":CN$$EX1:130$$L214$WD$(LP,L2)"END"L24:4550$" ";WD$(LP,L2)$L2$23%CO5);"%":#A#EL((1)51):DC$RE$(ME,EL):A(20)2:350:G#j#CO1:100::" PRESS RETURN";#KY$:(KY$)134345##WT2SCSC100:1000#WO0:LO0##30250#WRNW#WC0#WP(100NW)#LP1:WI0 $GUMP:WTWT1"HM$;A"CO5:100:"WINS:";WT;" SCORE:";SC100:i"CO2:100:" ";WO;" CORRECT OF ";NW"PTQ1(54):Q2(55):1:WO;" CORRECT OF ";NW:" ";(100(WO(NW))0.05);"%":::54,Q1:55,Q2#:CO6:100:" ";(100(WO(NW))0.00LPLP1:4078!4265(!WI40602!4030;!WI0V!LO0ME1:WI1:4300:w!WO(WOLO)0.01PC100WI1!WO2LOME2:4300!WOLOME3:4300!WO0ME4:4300!LO2WOME5:4300!LOWOME6:4300"SCSCWOLO:WI100:305:(KY$)274030# E48001 JFL4160; O4870H TFL4195T VGUGU1] c220q eEX2:130:4900{ f4950 mOW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4250 rGU04160 u340 wDC$"SORRY":320 LOLO1 WRWR1!WRHC$SC$:VC$FC$8OW$(" ",(HW$))FEX1:130`CL40:DC$HC$:11:75tDC$VC$:18:75CO1:100 EX2:130:CL40:XX18:DC$"____________________":15015:DC$SW$:150"14:18512206279 @CO1:...ATTEMPT"54,Q1:55,Q2EHM$:TP0:TP$"DIC"TP$"HOD"TP1RTP4500]30140gWRNWpWC0WP(100NW)LP1:WI0GUMP:4840SS$SR$HC1HW$C1$(LP):SW$C2$(LP):HC$FC$:VC$SC$:4088HW$C2$(LP):SW$C1$(LP):Y/N)";KY$:KY$"Y"4040k6:5:"MAKE SURE PRINTER IS IN SLOT#1":6:7:"AND THAT PRINTER IS ON."8:20:"PRESS RETURN WHEN READY"PT1:KY$Q1(54):Q2(55):1 "****MATCHMAKER****":"NAME: ";NA$:"LESSON: ";NM$:"WORD......... ROLL":CL40:75C12 4gLP110:C:HR$(LP);("...........",11(HR$(LP)));" ";SC(LP):LPmw5000NA$""6000SC0:WT0:GL0WO0:LO0:650:PT0NM$""4000HM$:4:2:"DO YOU WANT A LESSON PRINTOUT?":17:3:"(ER ** >LPFL9:HR$(LP)HR$(LP1):SC(LP)SC(LP1):LPDOl20000Yq2010s21:"PRESS ";Q$;"RETURN";Q$;" TO CONTINUE";vLP(0):KY${WT0:SC0:GL0:WO0:LO0:DR130370EX1:130HM$;DC$"MATCHMAKER HONORSC(LP)SCFLLP:LP1@LP0JLP9FL11VTHR$(LP1)HR$(LP):SC(LP1)SC(LP)^^LP{hHR$(FL1)A$:SC(FL1)SCr1900FL0:LP110HR$(LP)A$FLLP:LP10LPF20:FL1750SC(FL)SCF21:1750:** OLD H.R. SCORE HIGH658(16384)127A$((16384)128):16368,0;:A<Z>0,P:2,0:3,DR:5,0c@ST%iBsx::CD$"BLOAD INPUT"CD$"BRUN CHAR.GEN"SCSC(10)1900A$NA$,17001F2190045FL06LP1011;300OTOTOZ(J). I1TD:IB"Y118:X138$CX,Y2):I12:CDC(I)SCSC20:P255:1340:1264:Y2,Y21X&I(X,Y*,.PX(0):PY(1)0P(8(PXPL))(4(PYPH))(2(PXPH))(PYPL)2A$JA$(P)4": +:22:21:"GOAL: ";G:17G0,BC16BCW1,AC16AC`CM%p P255:1340 0,AC16AC:1,BC16BC:CM%A$""ZTOTMZ(J):J1334,1324OTZT(A$):OTZTMZ(J)ZT:OTTT1:1270:T1 ",(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$(" (15):JA$(1)"A":JA$(2)(21):JA$(4)"Z":JA$(8)(8)>4Q(12)V4A(X)(X(DC$))2\4lmost!!","better!!","try again!!","go for it!!","once more??"H3lG(13)`3mLP113:G(LP):LP3r 2000,4000,7000,11000,15000,19000,23000,26000,29000,32000,36000,41000,610003|FI$(71),DU$(71),HW$(50),WD$(50,5),C1$(50),C2$(50),HR$(10),SC(10)34JA$,"too easy!!","a learner!"b2e "try again??","learning!!","not bad!","getting it!","once more?"2f "try again!!","practice!!","needs work!","too hard!!","get help!"2g "try harder!","once more??","practice!!","stick to it","can improve"=3h "aLP14:HZ(LP),VT(LP):LP&1J 0,031O 0,128A1T 128, 0P1Y 128,128^1`RE$(6,5)1aLP16:L215:RE$(LP,L2):L2,LP1c "excellent!!","perfection!","top notch!","superior!!","tremendous!"2d "very good!!","a natural!!","good job!!"CD$"OPEN HONOR ROLL":CD$"READ HONOR ROLL"K0vLP110:HR$(LP),SC(LP):LPf0vCD$"CLOSE HONOR ROLL"l0vx0IN$"X"0"CD$(4):Q$(34):HM$(12):CG$(7):CC$(3):CE$(5):CO$(15):CN$(14)01SR$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,.-"0?DR11@I:I1NW:/IvLP((1)NW1):I20:I11NW:Q(I1)LPI21T/JvI1:I21I20:30281`/KvQ(I)LPz/Rv768:HW$(LP)(IN$,1)/\vL21/fv768:WD$(LP,L2)(IN$,1)/pvWD$(LP,L2)"END"30340/zvL2L21:30310:/vI/vCD$"CLOSE ";NM$;".";TP$/v*0vNW3.u768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1);.uLPX.vCD$"CLOSE ";NM$;".";TP$^. v.*vCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$.4vNW,MP,PC.>v768:HL$(IN$,1):768:WT$(IN$,1):768:TT$(IN$,1).GvI20 /HvI1NW:Q(I)0:(A$):NH030070.-ruST2:FI$(1NF)A$:NH10<-vuLPSTNHY-u768:FI$(NFLP)(IN$,1)a-uLP{-uCD$"CLOSE AEC.FILES"-u-uCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$-uNW,MP,PC,HC-u768:FC$(IN$,1):768:SC$(IN$,1).uLP1C.FILES,D";DR:CD$"READ AEC.FILES"+,1uST1U,5u768:A$(IN$,1):NF(A$):NF030010n,7uST2:FI$(1)A$:NF35|,:uLPSTNF,Du768:FI$(LP)(IN$,1),NuLP,XuCD$"CLOSE AEC.FILES",luCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"-qu768:A$(IN$,1):NH+KY85070+KY1351701+ NA$NA$(KY):+A$;N+#(NA$)105170X+(5110^+2d+<{+p:CD$"RUN MMEDIT"+ NCD$"OPEN HONOR ROLL":CD$"WRITE HONOR ROLL"+*NLP110:HR$(LP):SC(LP):LP+4NCD$"CLOSE HONOR ROLL"+>N",0uCD$"OPEN AE0 *DC$"**** MATCHMAKER ****")*3507*CO2:100S*7:8:"TYPE YOUR NAME"y*CO6:100:15:10:"(10 CHR MAX)"*CO1:100::22:"* {THEN RETURN} *";*NA$""*12:11*LP111:"_";:LP*CO5:100:12:10:" ";+A$:KY(A$))D(OW$)1OW$KY$:4939G)EL210OW$KY$(OW$,(OW$)1):4939v)F(OW$)L20OW$(OW$,(OW$)1)KY$:4939)GW1$(OW$,L21))HW2$(OW$,(OW$)L2))IOW$W1$KY$W2$)K)VEX4:130:CO5:100:3:35:":";GU)[)HM$*EX4:135:100:36("CHOICE:";:19:"GUESSES";:35:":";GU<(E(FL0V( L21(HW$)z((HW$,L2,1)KY$FL1:L2(HW$)(L2(($7()DC$HW$(.HTA(CL)XX(3L21(HW$)(5HT(8(HW$,L2,1)KY$ĺKY$;:4932(=HTHTXX(BL2)C825-'L210SS$" "(SS$,(SS$)1):4825\'(SR$)L20SS$(SS$,(SS$)1)" ":4825'S1$(SS$,L21):S2$(SS$,(SR$)L2)'SS$S1$" "S2$''HM$;'EX3:130'CO1:100'"WORDS REMAINING";:35:":";WR1'EX4:130 (COA$"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$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD    DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY 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$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD   DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY 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` ΍ ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč ŠҧӠŠҠӮŠƠҍŠŠƠΠōԠҍŠԠΠŮč Π̍Ҡ̍Ԡ΍Ԡҍ Π̍Ҡ̍Ԡ΍Ԡҍ Π̍Ҡ̍ԠΠԠҍ Π̍Ҡ̍Ԡ΍Ԡҍ ӍōԠԠӠōԍōĠčРƠ΍ЍҠǠӍҍŠҠǍōĠԠӍōҠȠӍҍƠҠŠӍƍԠȠȍԍŠԠӍōŠ  ΍čĮčԮԍήȍŮōҮҍǮǍĮčԮԍͮǍЮͮǍ ΍čήٍӮٍĮٍӮٍɮٍԮٍήٍήٍ®ٍԮҍ ōנϠˠȿčōɧ͠ŠԠŬөӍΠΠؠӮčččύŠӠŠΠϬͩĠՠԮč͍ɠԠҠҠӠōŠϬͩ٠ŮčύɠΧԠŠϬͩĠՠԮčӍԠӬҩҍϠ̠ҠԮčȍ̠ՠȬΩҍŠŠԠĮǍǬũҠԍĠˠϠŠ׮čٍά٩ɠōҠӿčōԬũҠǍǠԠŮčύӠӠŠ΍ϬȩӠǍϠĠŠҮ ĠɬũŠҍӠ̠٠ٮčč٧ũǠύŠנήčӍӬӠũ̍Ӡ٠ԠĮčԍԬԠũٍԠΠҮč٠ύɠ̠٠Ϭ٠ĩϠŮčōΠՠϠϠŠȍȠĠĠɬũčɍŠҍŠŠԠĮӠƍԠӠŬӠƩԠӠǠϠήčōԠӠŬӠƩήčҍҬŬ٧ũǍԠŠҮčōŠĠҬũԮč٧ōŬ  ӠŠ̍άȩՠήč΍ɠ͠ϠӠϠȍΩנϠŮččĠҬҩήčҍŠŠҬөӠΠҠ̮čӍŠҬөҍΠŠŮčԧӍԧӬөԠǠ٠ŮčӍŠΠӠǍȠԧӬө̮čȍɠŠҍŠŠԠčΧԍŠΧԬΧԩӠŠϠӮčΧԍ٠ΧԬΧԩōϠӠ٠ήčҍנȠҬҩϠŠԠοčҍŠŠŠҠԬŠ   ōҠ׮čԍԬũҍŠŠήč͍ϠϬͩōՠǿčύŠ٠ȬϩɠנĠĠҮčٍŬ٩ҠӍΠŠŮčٍŠΧԠō٬ϩٮččԠҍŠŠԠčōŠŬǩԍȠՠΠՠϮčǍΠՠŠϠ٠ŬŬǩŠ̮čٍ٬ΩɠРտč΍٬ΩՠΠԿčōԬũ͠  ŠΠՍŠΠŠӮčɍ٠ՠĠŠנԍӠŠŠخčǍŠԠӠǍΠŠ׮č΍ŠՠנҍҠǠſčԬҠٍҬĠŠӍϠРǮč׍ŠԠΠҠ΍ŠŠƠŠŮč΍ӠŠΠϠōŠϠΠԿčύ͠ӠǠϠҠٿčōŠӠ٠ӠύĠɱĠĠԠŠŮԠčĠǠĠĠԠԍΧԍŠΧԠנҠύĠҠΠΠōӠҠԠŠŮč׍ӠΠӠ٠ΠōŠӠԬŠōΠϠŮčӍ  ƠŠήčŠΠŠ٩ȠŠӮč΍էĩ̠ҍǠҠԮččǠî荩Ġ΍Π٩Ӯč΍ɠĠŠӠũŠŮč΍ɠΧԠԠϠР΍٠ũōӠŠϠĮčōŠΠŠԩűҍŠŠԠƠȺ΍ŠǠĠũō̠Š٠Ůč΍ˠԠŠٍΩ̠Įč΍ՠԠŠԍէ̩ǠԠˮčōŠ̩͍ ΍ōȍȬԠԡٍ٬էŠٮ׍׬ԧӠԡōŬԧӠԡ̬̍ɧ̠ŮȍȬנɠԠԮԧӠ١ȍȬԧӠōȍȬɠŠԮ׍׬Ԡԡ ٠ԠčƍɠĠ̠ĠōĠƠɠĠԮčԍŠŠӠϠ٠ԍɠĠ٠ԠԮččōΠΠŠ̠ǮčȍŠĠ̬ȠōĠԠĠŠŮčԍŠӠҬԠōΧԠ٠ŮčԍҠ ӠΠǠŬԠԠӠӮčōŠ٠Ӡ٠ōŠɱӠӠҍ΍ĠŠήԍɠԠנŬԠɍΧԠŠȠٮččɠŠ٠ĠɍĠԠϠŠӮčҍɠĠϠ٠Ŭҍɠ̠̠ŠԮč΍ŠŠΠŠŠĠàōŠŮčՠנŠҍŠԠҿčōɠԠ٠Ƞ؍ŠŠҮčōŠŠӠ芊Įč΍ŠŠŠ͍ΠҠŠŮčȍɠĠ٠ҍȠ٠Įčō٠ȱӠˠӠҍ΍ĠŠκčŠĠĠŠˮčǍ٠Š̠ǠŠӮč΍ɠ͠ŠɠԠō٠ΠŠҮčύŠŠϠ٠ōנԮčҍĠĠ٠ҠӠŠƠ̮čҍŠŠӠ٬ԍŠ̠ӠΠčԍ٠ȠԠӠĬԍ٠ȠԠӠŠƍ̮čҍӠҠӠԬԍԠŠӠčččŠӠŠ̬ԠŠӠŠčԍɧ͠ĠҬԠՠŠҠΠɬĠŠӍŠΠŠӮčҍŠ٠Ӡ٬ԍҠԠӠčԍ٠ҠӠ٠ō٬ԠɠŠΠӬαӠŠӮҍ٠Šĺō٧ӠҠӠĬԍ٧ӠӠčҍŠӠŠǠŬԠŠӠΠčҍΠΠΠԬԠȠӠŠҮčԍ̠   Šٮč΍ŠΠӠǠήčōŠŠŠōϠŠ̠ٮčӠ٠č٠ŠŠΠŠҮčٍŠĠ٠ϠōԠƠŠӮčٍŠӠĠٍҠŠԠϠήčٍŠ٠ԠĠٍǠŠŮčٍɠ٠űΠ Ӡ®ԠӠŠ¿ٍŠРԠٍϠŠҮčٍŠŠĠٍҠŠŮčٍŠĠ٠ϠŠٍҠΠŠҠҮčٍŠ č٠ŮčٍŠŠ٠ӍΠήčǍŠ٠ĠϠύΠǠήčԍŠԠĠԠŠȍĠҠԮčԍɠĠŠԠ΍Π٠ӮččŠĠŠĠōƠŠήΠŠӠήōԠӠŠſˍˠӠӍΠԠ̠ήč΍ΠӠĠŠ®ččĠӠĠ٠Ůčō٠ӠŠǮččŠĠҠӍΠŠĠάΩϠ٬ŠӠԮčōϠŠӠŠàˍԠˠĠɬũčӍŠҠȠ̠ҍΠŬө٠ĠŠԮčĠȠ٠čŬҩϠϠϠŠٮč΍Šՠ׬ΩōנŠԿčӍŠŠƠŠȍӠŬөȍǠŠҠήč΍ŠӠԬΩϠˠŠҮč΍芊Ԡĺ͍ŠӠ̠ϬͩɠŠ٠ȮčΧԍŠΧԬΧԩ׍ҠϠϠϠŠōҠȠԠΠήčōɧ͠ǠϠ٬ũ΍ҠРŠҮčҍ٠Ӎ̠ҠŠŮččŠӠΠҍӠĠĠǮčǍŠǠҠŠōӠŠΠҮčŠŧӠήččɠΧԠĠ٠̠ӮɠԠɧĠ͠΍ŠҮčǍҠРŠӮΧԠŠ͠Įč芊ǠōϠ٠ٮčٍŠΧԠҠұ٠ԠҠŬԠҠٮҍŠ٬ŬĬҠǿōϠՠԠҠǍΠŠčōɠĠŠϠ΍ĠԮčٍՠ٠ҠԍΠŠĮčǍ٠ҠΧԠŠϠōŠ   ΩӠΠŠĮč΍ϠŠӠ׬ΩŠȠԠ̮čĠ٠Ҡͮč׍ŠάשōΠŠҮč΍ҠӠōάΩϠͮč͍٠ͬͩϠŠҮčˍԠˬΩ͍٠נӮč΍נȠŠĬӠΠ٠ŮҍŠԠ ō΍ŠˠӠō׬ΩٮčōҠӠŬũϠŠȮčԍŠŬԩЍϠŠҧӠŮč΍ŠӠάũ ԠōԠō׍΍ύōō΍ԍ΍ԍ΍ō΍׍΍ō΍ō΍ˍ΍č΍ŠӠάשՍҠ٠Ӯčԍ٠Π̠ӠĬԩŠŠӮč΍ɠŠ׬Ωՠ̍Ơ٠٠ӮčРӠˬ˩ϠŠ͠ƠŠč΍ŠԠӠάשŠԠ̍ƠŠήč΍ԠԠӠά٩ŠԠĠŠĮč΍̠ƠŠӠōŬΩҠӠҮӠΠ٠ŮҍŠŠԠ Ů΍ŠӠˬΩҍŮč΍ɠŠάũōӠҠ٠ͮč͍٠ŠͬͩčŠ̠ŠӮčˍŠԠōԠōˍˍˍōǍǍ͍͍ǍǍōˍҍō׍׍ōōҍōԠōԠōԍԍٍ׍ԍԍōōύԍٍčōԍٍčōˍōō ԠōԠō΍΍ōԍ׍׍ˍōǍԍȍԍōōōōōōōō ӠΩōԠˠΠҮčōŠӠ˩ύҠӠԍǠŠӮčԠƠҠĮčōŠӠũŠӍԠƠˮčԍӠǩǍӠĠ٠ӠύŠӮčōɠũנӠҮčō٠ũӠ΍ϠŠȮč΍ŠɱӠΠ٠ŮԠōԠӠŠԠŠƠč׍ŠӠ٩͍ҠԮč׍٠שŠ̠ЍΠŠҮčˍŠӠ˩ҍ͠ŠԮčōŠӠٍ̩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 ՀՀՀЊժłԪԪԂЂԀժժժՂԂԂԠՀժՀЪԂՀՀՀԀԊԪժժՂЪժՂЂԪԠժժՀՀՀԀԊԪՂЪժժՀЪժՂЂԪԠժժԂՂԂՀԂЪժՂԂԂԀժժՀժժРՀՀՀԀԪՂԊЊЊЪЊԂՂԂՀԂЪժ烀󁀞烀󁀞烀烀烀烞烞烀烀烀烀烀烞烞烞烞翀翀χχ@   ժՀЪѪъԀՀՀՀՀЊժłժՊԪԪԂЂԀժՊժՂԂԂԠՀժՊՊԂժՀЪѪъԀՀ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: 22LU**Uժ   &e&Jj),-P-&Iei Є`HH)&JJ&&h' &' &' f&')'h`' ROLL"'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 ;: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 & "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 D31 103,01:104,64:16384,0:(4)"RUN MMHOME1" TER( <(4)"BLOAD SUBJ:GRAMMAR,A$7000"F F(4)"BRUN FLASH SUBJECT"W PI11000:I_ Z:u d(4)"RUN MMHOME"MRv.::(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  NW,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):NH10I1TD:I&SCG1400DSISI10:MDMD10:MTMT2SMT2MT2a16368,0k1134qw:21:159);:(40)(41)256(36),32:22:3:"SCORE: ";SC;" "::23:3:"TIME : ";T;" 25I:1340:1264I&Y1912242T1182Q23:3::"TIME RAN OUT":[1310e1242kzI1TD:I:23:21:"FINISH BONUS : 500":SCSC500:1264I1TD:I23:8::"BONUS : ";30T:SCSC30T:126413X 1296!BC:Y2,Y21X3A$"A"YY1EA$"Z"YY1XA$(8)XX1lA$(21)XX1yX0X0X39X39Y0Y0Y19Y19DCX,Y2)DCWCXOX:YOY:1282:SCSC15:1264I12:DCDC(I)SCSCSII:P:"TO USE THE KEYBOARD PRESS A KEY.":3:"TO USE A JOYSTICK PRESS BUTTON 0.":oOJ1(16287)128J0J2OJ1(16287)127J1OJ2(16384)127J1J111661256126412701276OXX:OYYCC:Y2,Y21xX,Y2)BC11425zDC(2(1)1):Y2,Y21X<|IE~TMTYGLGL1:GG(GL)fOJJ:J0X2:Y0:CC:Y2,Y21X1256OJ1Ģ22:10::"PRESS A KEY TO START.":OJ2Ģ22:8::"PRESS BUTTON 0 TO START.":NOJ0Ģ22:4:15^MD30:SI25`MT20(bTD1000?dMZ(1)135:MZ(2)72afOZ(1)MZ(1)20:OZ(2)MZ(2)20rhPL80:PH175|l::n(4)"BLOAD MAZE:";((1)5)2;",A";ADp0,AD(AD256)256:1,AD256rDM%tI1MDvX(38(1)1):Y(18(1)1)271030 :KY271915*0:0:10027LAD32768KNDM%768:CM%800lP(4)"BLOAD DRAW MAZE,A$300"R(4)"BLOAD CHANGE MAZE,A$320"TWN%642:ST%707V(4)"BLOAD SOUND GENERATOR,A$282"XDR5ZBC0:WC4:CC13:AC1\DC(1)11:DC(2)(FI$(KY),3)fTP$"ERA"ı[kCO$;" THIS LESSON HAS BEEN ERASED";CN$:LP13000:LPmp22:38);" "vu820|200021"PRESS ";Q$;"RETURN";Q$;" TO PLAY REWARD":"OR ";Q$;"ESC";Q$;" TO EXIT....>";KY$:KY(KY$):KY13KYLP 23:1P*"(I WILL ";:CO$;:"PLAY";:CN$;:" THE LESSON YOU SELECT)"X421>"CHOOSE A LESSON NUMBER & ";:CO$;:"RETURN";:CN$;:" ";HKY$:KY$""NM$"":TP$"":870RKY(KY$):KY1KYNFNH820 \NM$(FI$(KY),(FI$(KY))4):TP$FLĖ20 TP$(FI$(LP),3); NM$(FI$(LP),(FI$(LP))4)e " ";NM$;("........",9(NM$));".(";v LP10ĺ"0"; LP;")"; FLFL FLĺ LP29F2Ģ22:"PRESS ";:CO$;:"RETURN";:CN$;:" FOR MORE LESSON NAMES";:KY$:HM$:70:F21..........";OW$:54,Q1:55,Q2# KC T7:DC$HW$:A(20)2:DC$:T ^LP1(DC$)q cCO((1)6)1:CO4355 h100:(DC$,LP,1);:LP m HM$ EX0:130  RF660 30000:RF1 HM$ 70 FL0:F20 LP1NFNH $:KY$ ;f @21:" ":" ":CO6:100:2:21:DC$;", ";NA$;" !"o B" " DX(0):DC$"GOOD"330 F21:" ";:1:" PRESS RETURN"; HKY$:(KY$)13328 J:PTQ1(54):Q2(55):1:HW$;"L21:WCĒ1:L21WCWP:268,160L2278,160L2:L2 2:L2L2100:269,160L2278,160L2:L2:5:L21NW:269,160L2WP278,160L2WP:L2 #3:269,160PC278,160PC: '1:L21WCWP:268,160L2278,160L2:L2: 1EX4:130:3:13:":"; 6KYHZ(EX):1,VT(EX):CE$;:P A(CL)XX:L21(DC$):(DC$,L2,1)" "ĺ" ";:170Z "_";d L2: A(CL)XX:L21(DC$):(DC$,L2)" "ĺ" ";:205 (DC$,L2,1); L2: EX4:130:CO2:100:6:21:(SS$,(SS$)2):6:(SS$,(SS$)2):3 ],+** MMHOME (10/18/83 2:30 PM KSA) ** c ** REVISED WITH PRINTOUT (1/17/85 2:00 PM JWC) ** :(4)"BRUN CHAR.GEN":(4)"BLOAD INPUT"32768(63000:4000F"LESSON NAMES ON THIS DISK:"::KA(CL):DC$:d0,CO:CC$;: 0,               :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 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                         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 **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$;" ?"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 THON 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 $"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$;".";TP̠Πͮ٠ԍ٠ԠӠٮԠӠٮԍĠŠʮӍӠ Ӯ؍ؠӠˮҍҠӮŠ׍ŠנӮŠǍŠǠӠήҠӍҠӠӠ̍٠č٠ĠӠǮϠōϠŠӠŮҠ̍  űЍŲЍųЍŴЍŵčŶčŷčŸčŹčűč ЮÍʮÍήҍвÍԮÍӱÍӲÍӳÍгÍԱҍԲҍĮҍԮҍĮҍԮҍӱÍӲҍӳҍαÍβÍͮÍӱÍӲÍűÍŲҍųҍŴҍŵÍŶҍŷÍŮÍбÍʮÍ֮ÍŮÍ  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čōŠĠŠҮčՍϠՠŠנſč͍ŠŠӠӠͮčԍԠӠŠԠٍϠҠĮčӠŠŠŠƠӍ΍ōɍɠĠΠŠŮčōŠӠϠ٠נҮčōŠԠ٠ԠŠӮčӍŠӠ̠ΠӮčҍŠΠŠҠРٮčōŠĠŠҮ!!̠͍Ҡ͍Ӎ̍ӍȍӍٍӍōӍٍӍٍӍٍӍύӍȍӍٍ!̠͍Ҡ͍Ӎ؍ōōӍƍ΍؍΍čӍƍӍ٠ӍƍӍȍӍӍ!ԧӠϠϠŠˮčˍŠˠӠԮčӍŠӠŠŮč̍Š̠ӠήčҍŠҠӠ٠ĮčΠӠάŬǍ΍ĠŠΠΠŠōōɠנŠŮčōŠŠĠٮčҍҠҠŠٮčҍҠҠӠٮčԍӠԠӠԮč!!ΠˍԠŠӠԍΠˍЍŠŠԍōΠˍӠӠҠǍΠˍōčԧӠŠҠčΠˍԧӠÍΠˍĠՠ΍ΠˍŠӠҠԍΠˍЍčŠĠō! ! Ӡ̍ΠӠ̮ӠҠٍŠӠҠٮӠЍŠΠӠЮōĠŠĮ٠ȍӠ٠ȮŠǍӠŠǮӠčŠҠӠčӠٍΠӠٮŠҠԍɠŠҠԮӠŠōŠӠŠŮԠŠ΍ɠԠŠή!!  ũȮčōȠƠ٠ӠӬũԠƠήčӍŠϬөϠŠǍˠ٠ٮčōŠӬũՍٿčӍŠΠŠҠԍӬũԠٮč٠ƠŠӍ¬өԠΠ٠ҮčӍŠ٠ŬөϠӮčōŠӠΠŠ΍Ӭұ ӠȠӠԮĠŠӍҠƠŠӍԬөŠĠҮčӍŠҍȬөӠӍȠŠӮčōԠƠ٠ӠŬө͠Šٮč"""Ůč׍נŠŠϠŮčЍӠР٠ȮčӍ٠ӠΠŠˮčЍРŠӠƠōˍčӠΠ΍ĠŠ®ӍŠҠӠŮčӍҠˠӠ٠ĮčӍŠĠӠŠӮč̠̍ŠԠƮčӍŠԧӠҠӠͮčӍ٠ŠҠ""Ϡ®͍čŠӠŠŠĠҠǠŮϠ®͍čԠӠ٠ҠϠՠŮϠ®͍čɠΧԠŠĠՠԮϠ®͍čϠ®͍čȠĠՍϠǿϠ®͍荩ՠǍϠԿϠ®͍čΠŠҠſϠ®͍čŠՠǠԿōϠҠ͍ŠŠԠҍ ӠӠŠҠ͍ɠĠîϠ®͍čӠӠŠȠԠŠΠŠͮϠ®͍č ϠŠՠǍԠſ" " "ΠĠɬũύϠŠԠ˿čō٠ŬөӠύϠŠٿčŠԮčōԠӠŬҩϠĠŠ®čҍŠҠčҬũԠŠĠŠŠήčӍŠ̠Š͠čŬөҠӮčōŠĠĠŠǍҠĠɬũčɍ٠ʱˠŠԠĮ΍ōōԠӠŬͩύĠŠŮčōˠՠҠǠЍĠɬũϠҮčōԧӠРŠԠԍΠՠĠɬũčٍԠӠ٬ͩύĠ"" "