' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL`렮 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./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#0EB 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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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Ӝ ( Р@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d֠ĭz#Y LESSON NAMES ROUTINE ** #pFL01qEN0898?rLPSTENKtFLĖ20cvTP$(FI$(LPOS),3)xNA$(FI$(LPOS),(FI$(LPOS))4)zLP10ĺ"0";|LP;") ";NA$;("........",9(NA$));TP$;~FLFLFLĺLP: ** CLEAR BOT23:1<*"(I WILL ";::DC$;::" THE LESSON YOU SELECT)"D421{>"CHOOSE A LESSON NUMBER & ";::"RETURN";::" ";HKY$:KY$""NM$"":870RKY(KY$):KY1KYNFNH820\NM$(FI$(KY),(FI$(KY))4):TP$(FI$(KY),3)fk ** DISPLAĖ20TP$(FI$(LP),3)9NM$(FI$(LP),(FI$(LP))4)g" ";NM$;("........",9(NM$));TP$;".(";xLP10ĺ"0";LP;")";FLFLFLĺ LP29F2Ģ22:"PRESS ";::"RETURN";::" FOR MORE LESSON NAMES";:KY$::90:F21LP  ROUTINE ** NM$""ZRF660: ** 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:F20NFNH0800LP1NFNHFLA$"N"465KY$A$#] ** DISPLAY AND SELECT A LESSON TO WORK ON (NM$) ** csNM$""658"USE THE SAME LESSON? (Y/N) "A$"Y":HT27:VT0:MX2:I%0A$,VT,HT,MX,I%A$"Y"A$"N"654:A$"Y"870: ** EXIT::"CCEPT",A$"A":I%0:HT30:VT22:MX2AA$,VT,HT,MX,I%bA$"E"A$"D"A$"A"410mKY$A$s ** ASK TO ADD MORE ** 110:23:12::"MORE TO ADD? (Y/N) ";:A$"Y":I%0:HT31:VT22:MX2A$,VT,HT,MX,I% A$"Y"0:I%0EA$,VT,HT,MX,I%>JC2$A$:19:19);" ";:19:C2$lOI%1300: ** LEFT ARROW WAS PRESSED **rT ** ASK TO EDIT, DELETE, OR EDIT AND PUT A "E", "D", OR "A" IN KY$ ** 110:23:8::"E";::"DIT, ";::"D";::"ELETE, ";::"A";$(LP,1...4) ARRAY **5L3L24: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$:19:19);" ";:19:C1$@A$C2$:VT13:HT18:MX2END":295:** EXIT ROUTINE **Z L2L21:L24WD$(LP,L2)"END":295: ** EXIT ROUTINE ** WD$(LP,L2)"END"İ275: ** CLEAR DATA ** VTVT1 225: ** GOTO NEXT DECRIPTION ** ** CLEAR ANY REMAINING DATA IN THE DESCR. AFTER THE "END" IN WDL2):I%0 A$,VT,HT,MX,I%T WD$(LP,L2)A$:140:** CLEAR LINE AND PRINT A$ ** I%1L21L2L21:VTVT1:225:** THE LEFT ARROW WAS PRESSED ** I%1200 A$""L21230: ** THERE MUST AT LEAST ONE WORD ** A$""WD$(LP,L2)"LINE AND PRINT A$ **7 ** EDIT DICTIONARY WORDS ** [ A$HW$(LP):VT7:HT0:MX15:I%0p A$,VT,HT,MX,I% HW$(LP)A$:140: ** CLEAR LINE AND PRINT A$ ** A$""200: ** THERE MUST BE AN WORD HERE ** L21:VT11:HT0:MX30 A$WD$(LP,LEAR LINE 23 OF CHARACTERS **q 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);" ";:HT1:A$:: ** A NEW ROUTINE TO CLEAR A DC$ ROUTINE ** # 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 EDITOR"::70:: n23:38);" ":: ** CcU& ** LAST UPDATED 10/18/83 KSA **,M63000: ** DIM VARIABLES **FT2:SR$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,.":MS$"WORD":M1$"DICTIONARY" "":40#30400(10000: ** MAIN MENU ** 2 ** MISC SUB-ROUTINES **  < ** CENTER                            Y"KY$"N"5210'2_PF0:KY$"Y"PF1/2d:F2p:CD$"RUN MMEDIT"w2 NCD$"OPEN HONOR ROLL":CD$"WRITE HONOR ROLL"2*NLP110:HR$(LP):SC(LP):LP24NCD$"CLOSE HONOR ROLL"2>N20uCD$"OPEN AEC.FILES,D";DR:CD$"READ AEC.FILES"21uST125uNF vCD$"OPEN HONOR ROLL,D";DR:CD$"READ HONOR ROLL"SavLP110:HR$(LP),SC(LP):LPnavCD$"CLOSE HONOR ROLL"tavav ** READ SOURCES AND FILE TYPES (1=PHR, 2=DIC, 3 = PHR/DIC) ** bvCD$"OPENMISC":CD$"READMISC":768:SR$(IN$,1):MS$,M1$,FT:CD$"C)"END":FLLP:LPNW:"ERROR!!!"::"NW=";NW::"AT WORD ";LP::"FILE NAME >";NM$".";TP$:30340`v30310: ** CONTINUE READING IN THE DESCR. (UP TO 4 LINES) **`vLP`vNWFL`vCD$"CLOSE ";NM$;".";TP$`v`v ** READ IN HONOR ROLL FILE ** 2a".";TP$_4vNW,MP,PCO_>v768:HL$(IN$,1):768:WT$(IN$,1):768:TT$(IN$,1)|_CvFLNW: ** INCASE OF AN ERROR IN READ **_HvLP1NW_Rv768:HW$(LP)(IN$,1)_\vL21_fv768:WD$(LP,L2)(IN$,1)_pvWD$(LP,L2)"END"30340a`zvL2L21:L26WD$(LP,5THE 1ST CATEGORY=^v * SC$ = DESCR. OF THE 2ND CATEGORY d^v * C1$(LP) = WORDS FOR CATEGORY 1^v * C2$(LP) = WORDS FOR CATEGORY 2^ v^%v ** READ DICTIONARY LESSON (NM$;TP$) INTO MEMORY ** _*vCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;NW2]u768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1):]uLPW]vCD$"CLOSE ";NM$;".";TP$]] vd]v ]v * NW = NUMBER OF WORDS]v * MP = MISSES PER WORD ]v * PC = PERCENTAGE CORRECT FOR REWARD]v * HC = HIDDEN CATEGORY^v * FC$ = DESCR. OF \uCD$"CLOSE AEC.FILES" \u&\u`\u ** READ PHRASEBOOK LESSON (NM$;TP$) INTO MEMORY ** \uCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"READ ";NM$;".";TP$\uNW,MP,PC,HC\u768:FC$(IN$,1):768:SC$(IN$,1)\u ** READ IN NW OF WORDS **]uLP1$"OPEN AEC.FILES,D";DR:CD$"READ AEC.FILES"4[2uST1<[5uNFJ[:uLPSTNFd[Du768:FI$(LP)(IN$,1)l[NuLP[XuCD$"CLOSE AEC.FILES"[bu[luCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"[nuST1[quNH[vuLPSTNH[u768:FI$(NFLP)(IN$,1)\uLPLL,D";DR:CD$"WRITE HONOR ROLL"AZOLP110:HR$(LP):SC(LP):LP\ZOCD$"CLOSE HONOR ROLL"bZOZ.u ** LINES 30000 TO 40000 ARE RESERVED FOR READING DISK FILE ROUTINES ** Z/u ** READ IN ALL FILE NAMES INTO FI$(ARRAY) ** Z0uZZNF0:30060+[1uCD*YBOHW$(LP)YLOL21'YVOWD$(LP,L2)CY`OWD$(LP,L2)"END"20340YjOL2L21:20310:** CONTINUE WRITING OUT THE DESCRIPTION (UP TO 4 LINES) ** YtOLPY~OCD$"CLOSE ";NM$;".";TP$YOYO ** WRITE OUT HONOR ROLL FILE ** ZOCD$"OPEN HONOR ROAMED (NM$;TP$) ** XOND0(XOLP1NWKXOHW$(LP)"((DELETED))"NDND1SXOLPX#OCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"WRITE ";NM$;".";TP$X$ONWND:MP:PCX.OHL$:WT$:TT$X8OLP1NWY=OHW$(LP)"((DELETED))"20340: ** DON'T SAVE THIS WORD *$;".";TP$ WNNWND:MP:PC:HC.WNFC$:SC$MWN ** WRITE OUT NW WORDS **ZWNLP1NWWNC1$(LP)"((DELETED))"20200:** SKIP OVER DELETED WORDS **WNC1$(LP):C2$(LP)WNLPWNCD$"CLOSE ";NM$;".";TP$WNXO ** WRITE OUT DICTIONARY FILE NSONS ** VMNLP1NH%VRNFI$(NFLP)-VWNLPHV\NCD$"CLOSE HOME.FILES"NVaNTVfNVN ** WRITE OUT PHRASEBOOK FILE NAMED (NM$;TP$) ** VNND0VNLP1NWVNC1$(LP)"((DELETED))"NDND1VNLP WNCD$"OPEN ";NM$;".";TP$;",D";DR:CD$"WRITE ";NM ** U NZZ20040FU!NCD$"OPEN AEC.FILES,D";DR:CD$"WRITE AEC.FILES"nU%NNF: ** NUMBER OF FIXED LESSONS **{U*NLP1NFU4NFI$(LP)U9NLPU>NCD$"CLOSE AEC.FILES"UCNUHNCD$"OPEN HOME.FILES":CD$"WRITE HOME.FILES"VJNNH:** NUMBER OF HOME LES1:MX2:I%0 Tg'A$,VT,HT,MX,I%>Tj'KY(A$):KY1KY910070DTo'tTt'KY6000,1000,2000,3000,4000,7000,5000,9200T~'10000TN ** LINES 20000 TO 29999 ARE RESERVED FOR WRITING DISK FILE ROUTINES ** UN ** WRITE ALL FILE NAMES TO DISK (FI$(ARRAY))S>'C::"4.";::" ERASE LESSONS":KS@'C::"5.";::" RENAME LESSONS":tSB'C::"6.";::" CLEAR HONOR ROLL":SD'C::"7.";::" PRINT WORD LIST":SF'C::"8.";::" RUN MATCHMAKER"SV'23:10S`':"YOUR CHOICE";::" "; Te'A$"":VT22:HT2C$"PLEASE WAIT...":70:2R#:CD$"RUN MMHOME":IR' ** MAIN MENU ** OR'yR'100:** PRINT TOP LINE MESSAGE ** R$'4R.'C9R8'C::"1.";::" WRITE A NEW LESSON":R:'C::"2.";::" EDIT DEFAULTS":R<'C::"3.";::" EDIT LESSONS":$#4`QF#"PLACE THE ";::"UTILITY";::" DISK IN DRIVE #1":"THEN PRESS ";::"RETURN";::" ";iQP#KY$QZ#CD$;"RUN STARTUP":Q# ** RUN MATCHMAKER PROGRAM ** Q#: ** PULL OFF GOSUB FROM STACK **Q#:R#10:DC$"RUNNING PROGRAM":70:12::D70: ** WRITE OUT HONER ROLL **%P{9PCG$;CG$;"DONE"nP"PRESS ";Q$;"RETURN";Q$;" TO CONTINUE ";:KY$:P'# ** RUN MENU ON UTILITIES DISK ** P(#:** PULL GOSUB OFF OF THE STACK FROM MAIN MENU **P-#P2#100:** PRINT TOP LINE MESSAGE ** Q