' +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`烀烀烀烀烀χ烞χ烀烀烀烀烀烞烞烞Ç烞Ç烞ΠԠԍĠԠӮčӠĠōΠӠԠϠōŠŮčԍΧӠΠɭĠĠӠĠΠŠجӠԠȠ΍ŠĠƠԮčԍΧӠ̠ŠԍĠҧӠˬčŠҠŠӠĠ΍ӮčƍԧӠϠàōӠŠŠŠĠĠǠԠĠŠӠΠԮčԍԠĠčΠ͠ȍŠӠΠԮčԍԧӠŠӠĮčԍŠԠΠԠӠĠ٠ӠύԠӠΠӮčƍŠȠԠōŠӠŠԠϠōӮčԍ٠ԧӠŠ̢ĠŠӍӠԠĠΠŠ٠ƠήčԍΠˬŠԍƠŠӬĠōΠΠ٠čƍŠӠŠĠȍŠӠƠŠōŠӠԠΠŮčŠҠȠήčԍŠΠƠӍӠŠƠŠӠҍΠ͠ήčԍŠΠƠӍӠŠƠŠӠҍΠ͠ήčƍŠנ٠ƠԠΠŠΠƠέԠΠŠΠӍàӠƠٮčԍŠΠĠӠԠԠ͠΍ӠĠ̠ƭԠӮčԍҠŠƠŠΠӠϠٍDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ǠԠҍŠԠҠŻƠҠōԍŠӧԠĠΠōԠӠӠĠٍŠΠƠӠčӮčԍŠծӮΠ٠ƠŭǠΠӠ΍ΠӠΠǠ    ΠĠԍҍŠԠҠŻƠҠōԍӠƠŠӬӬĠӠٍĠŠǠԠύŠŠӮčԍ٠ȠΠōӠŠŠԬōӬ   @ 翀翀χχǠӬӍΠӠĠ΍Ӡ©ӍéӠĩ̠ƠōčÍΠŠӠŠҠӠŠҺ̬̬Ġ٠©Ӡé̠ĩҍčĩҍčč̠ƠōčŠҠӠ΍ϠŠӭǠӠ©ӍéǠĩӠčӠӠԠčΠŠŠΠٍϠҠ©ϧٍéˠΠĩŮ٠č̠ĩ̠ƠŠčč٠ӠΠƍӠӠĠٍŠŠ©ǍéӠĩĠččŠנĠĠ͠Π͠ӠĠ٠©ʮҍé׮ҮԠĩҠ©٠éӠĩ΍čÍ٠נ̠ϭӠĠ̠ɭӠĠΠ©ٍéŠӠĩٍččӠĠϠŠ׍ŠȠӠԠŠŠ©̍éŠΠӠΠŠΠҠŠծӮٍˠ©ōéŠĩŠōčĠŠ٠ƠӠĠŠծӮԠӠ©ЭӠéǠӍĩĠÍččȠӠϠԠŠӠŠĠ٠ҭŧӠԠԠ©٠é٠ĩ͍čÍΠӠҭĠԠΠΠӠŠĠ٠٠©ΠéŠĩččˠĩ΍čÍΠȠҠӠĠĠŠŠƍΠ©Πé׍ˠ٠ĩč̠ӠԠ΍ĠΠĠȠӠϠĠŠҠΠ©éĩéčŠĩ̠ƠōččŧӠӠҠέŠĠҍΠ©٠ӍéΠĠĩ̠Ơō荩ΠҠƠŠíΠƠŠӍΠ©΍éˠԠŠנĠҍŠŠԠҍàŠàӠΠΠŠӠŠŠΠ©ӍéŠǠĩ ĠÍčӠĠҠ΍ĬĠծӮ    ΍ҍŠŠԠҍčϠƠΧӠΠӍҠΠŠ̠Π©נŠέӠéϠ٠ĩčƠӠҠčӠŠĠ٠ōӠ©ΧӠ űčŲčųčŴčŵčŶčŷčŸčŹčűčER0 <(4)"BLOAD SUBJ:AMERICAN HISTORY,A$7000"N F(4)"BRUN FLASH SUBJECT"_ PI11000:Ig Z: _3:10:"AMERICAN EDUCATIONAL COMPUTER, INC.":1:20:"COPYRIGHT 1984 PALO ALTO, CA" d(4)"RUN MMHOME""l @Z:*@d(4)"BLOAD PI.TITLE,A$2000"T@i230,32:16304,0:16302,0:16297,0j@n(4)"RUN MMHOME")ADDR OF FLASH SUBJECT2,0:3,40: SET LEFT,WIDTH4,128:5,191: SET TOP,BOTTOM(6,16: # OF PASSES 27,0:8,32: SET DELAY COUNTĠٮčΠҍŠԠĠΠƠĠϠŠԠΠĠŠΠΠĮčƍŠĠĠӠĠ΍Š٠ƠͮčƍΠӠĠ͠ʮΠҠӠӠƠĢȍčԍԠΠϠŠԠƠĠϠŠŠӠƠčƍŠԠ̠ӍӠŠ٠̠ōϠŠŠӮčٍԮčԍӠĠŠȍŠƠԠӠҠΠԠӮčԍҠ̠΍ӬŠРԠӍĮčԍŠĠӬč٠ӠƠŬĠύ̠ŮōčԍΠĠӠӍԠΠҠϠРŠ̠ҠŠӮčԍϠԠǠĠ̭ԠŬΠčŠҠԠƠčƍӠŠĠΠŠ̭ӠΠ٠Šñ̠ӠҍŠԠҠŻƠҠōƍΠĠŠծӮΠĠύȠĠŠӠŮčԍȠԠΠΠϠŠӬΠӠōĠ٠ӮčԍӠҠΠŠӠҍŠԠҠŻƠҠōƍӠΠΠŠҠŠӠҠŠ٬ĠӠҠŠήčԍΠӠҠŠȠĠŠŬŠǬĠ  ҮÍήÍӮÍӮÍҮÍɮÍήÍ̮ÍήÍɮÍҮÍӮÍĮÍӮÍĮÍĮÍٮÍҮÍήÍӮÍӮÍҮÍɮÍήÍ̮ÍήÍɮÍҮÍӮÍĮÍӮÍĮÍҮÍҮÍĮÍٮÍ     Š̠ˍҍŠŠԠҍĠϠŠ΍ΠŠŠȠ̠ŠӠǠ©éĩčÍŠɠŠӠԠ̠ΠǍ L":CL40:75C124cLP110:C:HR$(LP);("...........",11(HR$(LP)));" ";SC(LP):LPis5000NA$""4000SC0:WT0:GL0WO0:LO0:650:PT0NM$""4000HM$:4:2:"DO YOU WANT A LESSON PRINTOUT?":17:3:"(Y/N)8LPFL9:HR$(LP)HR$(LP1):SC(LP)SC(LP1):LP>Il20000Sq2010s21:"PRESS ";Q$;"RETURN";Q$;" TO CONTINUE";vLP(0):KY${WT0:SC0:GL0:WO0:LO0:DR130370EX1:130HM$; DC$"FUN LEARNING HONOR ROLP)SCFLLP:LP1@LP*JLP9FL11PTHR$(LP1)HR$(LP):SC(LP1)SC(LP)X^LPuhHR$(FL1)A$:SC(FL1)SCr1900FL0:LP110HR$(LP)A$FLLP:LP10LPF20:FL1750SC(FL)SCF21:1750:** OLD H.R. SCORE HIGHER **8(16384)127A$((16384)128):16368,05:;<T>0,P:2,0:3,DR:5,0]@ST%cBmx::CD$"BLOAD INPUT"CD$"BRUN CHAR.GEN"SCSC(10)1900A$NA$,17001F2190045FL06LP1011;SC(LOTOTOZ(J)( I1TD:I<"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)46/ %:22:21:"GOAL: ";G:+1A0,BC16BCQ1,AC16ACZCM%j P255:1340 0,AC16AC:1,BC16BC:CM%A$""ZTOTMZ(J):J1334,1324OTZT(A$):OTZTMZ(J)ZT:OTTT1:1270:T1300 I1TD:I SCG1400>SISI10:MDMD10:MTMT2MMT2MT2[16368,0e1134kq:21:159);:(40)(41)256(36),32:22:3:"SCORE: ";SC;" "::23:3:"TIME : ";T;" ":1340:1264I Y191224,T1182K23:3::"TIME RAN OUT":U1310_1242etI1TD:I:23:21:"FINISH BONUS : 500":SCSC500:1264I1TD:I23:8::"BONUS : ";30T:SCSC30T:12641310 1296BC:Y2,Y21X-A$"A"YY1?A$"Z"YY1RA$(8)XX1fA$(21)XX1sX0X0X39X39Y0Y0Y19Y19DCX,Y2)DCWCXOX:YOY:1282:SCSC15:1264 I12:DCDC(I)SCSCSII:P25I:USE THE KEYBOARD PRESS A KEY.":3:"TO USE A JOYSTICK PRESS BUTTON 0.":iOJ1(16287)128J0J2OJ1(16287)127J1OJ2(16384)127J1J111661256126412701276OXX:OYYCC:Y2,Y21XX,Y2)BC1142/zDC(2(1)1):Y2,Y21X6|I?~TMTSGLGL1:GG(GL)`OJJ:J0}X2:Y0:CC:Y2,Y21X1256OJ1Ģ22:10::"PRESS A KEY TO START.":OJ2Ģ22:8::"PRESS BUTTON 0 TO START.":HOJ0Ģ22:4::"TO 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$;" ?"ӠΠ٠Ơ٬ĠŠˠ٠ύԠРٮčƍŠΠҠōԠĠŠ٠ƍٮčԍΠŠӬӠčĠ٬Šԍ٬ϠĠӮčԍ̠ƠŠΠӮčƍӠĠϠЭӠϠŠҠĠӮčԍŠŠŠԠƍĠԠčӠΠӠǠύҠŠӮčԍӬǠנ͠ũŠȍ©ŠŠӠéĩנčč̠ӠĠҍҠ̠ӠΠǠҠ٠©΍éŠĩōčԍҠΠΠōȠĠӠ©΍ŠéҠĩӍčÍŠΠǠ͠Ơ֭ԠӠΠΠōȠ©נĠéōŠӠĩȍč٠ԠӠō͠ĠΠɮĩήî荩Ԡà̠׍ӠĠΠΠ©ӮéĩήʮčÍ٠ŠӬԠӍŠ̢Ƞ̠έ̠ƠӠ©ӍéΠéӍčΧӠΠӠĠӠéǭȠŠĩ̠Ơōč٠ӠĠŠԭ٠ΠΠӍ©ŠӠé׍ĠĩčÍӠǠӍҠӠӠčŠΠήٮ©ήʮéҮŠծӮĠŠĠҍŠŠԠҍÍǠŠӬŠħӍŠƠҠĠϠŠŠ©ΠéŠĠĠĩ̍čÍŠŠҠӠӠ͠ϠŠͭ !ΠĠӍҍŠԠҠŻƠҠōԍҠӠҠΠ΢ĠӠĠٍŠӠҠŠ΍ٮčƍҠŠϠŬӍӠĠӠàĠΠ " """̠ӠŠ΍ŠծӮ٠©čéӠĩӍčÍԠҠǠÍΠϠŠӍΠŠΠϠҍ©ҠéΠĩ΍čččΠӠΠ٠Ġ٠Ǡ̠ϠŠĠ©ĠéĠĩčččΠ̠͠Ġ٠ӠǠ©Ҡ΍éŠ̠éĠ čԠӠΠĠԠέΠĩӍč٠ŠծӮĠϠĠӠϠ̠ŭŠƠȠӠ©ŭǠӠéΠĩ̍čÍŬԠŠҭ٠ŠϠ̠Ӎ̠©̍éҠĩҍčÍΠčӠΠ٠©̠é٠ĩč荩ΠƠӍĠ٠Ԡ©Πé̠ǠĩӍčάӠĠĠάĠծӮ٠©Ӡéč荩ƮƠ̮ŠĭǠΠƠō̠Ӡ©ԍӠéӠĩӍčč©ԠҠӠéŠΠĩԍččӠĠŠǍԠӠˠӠ©ӠéӍĩ̠ƠōčΠҠӬŠέԠĠӍ©ӠéҍĩӠٍĠŠ©˭Ҡéԍĩ̠ƠōčōĠΠĠҠӍ©٠éōĩԠũĠčΠŠΠ΍ӠĠҠӠӠéӠĩĠčӠ٠ĬӍĠ͠РϠР©ΠéӠĩ ĠÍččӠĠϠԍŠ©ӍéӠĩ̠ƠōččӠƠ̠ϠԠήčƍӠŠĠō٠ƠȠύŠŠҠӍϠԠנŮčӬĠčԍ٠٠Ԡō̠ĠҠĠŠҍϠήčԍ٠ӠčŠĬנˬōӬĠέčԍŠ٠ƠӬΠŠԠƠΠōӠŠӮčԍŠԠӠΠŠŠӠŠȠčȮčԍŠŠӠŠ׍ˬנ٬ŬĠčԍӠŠ΍ӠŠĬŠ̱ԠӠҍŠԠҠŻƠҠōԍΠŠŠԠĠΠխ̠ΠŠΠ֮čƠΠƠŠˮčԍ٧ӠҠϠÍӠΠӠ̍٠Ϡ ͠ӠҍŠŠԠҍΠŠӬԠծӮӠŠĠΠōȠ©ȍéԠĩԍčĠΠӠƍŠԠԠϠōȠ©ȠéԍĩԠ ! !!!Π̠ҮčԠӠϠΠӠϠҠӠȠŠԮčԍΠŠĭӬΠōРƠŠΠč٠ΠŠŠҠ̠ԮčƍΧӠӠӍĠΠנӍԠ̠ӮčԍέӠĠύӠŠŠԍàӠΠčƍȠӠĠϠӠŠŠӠΠǠҠӠٍǠԠӮčԍӠŠĠ̠čĠŠŠԍĠϠĠΠ΍ӠĠǠӠ΍ŠĭӮčƍ̠ӠӠōԠȠԭӠĠ͠ӠΠčƍҠ٠ŠǠōӠӠĠ٠٠ӍĠà̠ԮčΠΧӠҠƍŠӠΠōԠƠčĠҠӠϮčƍŧӠˠҠԢӠΠƠǠӠΠǠčԍǠŠǠӠΠŠӠӠԠčȠҠӠĠĭŠӮčԍӠŠĠϠōŠԠ٠ŠĠ͍ŠĠԠĠ٠ĠӮčԍ͠ϠŠ׍ӠŠĠԠƠōԠΠҮčōԠӮčƍΠӠΠŠӠĠȠҧӠԠčԠĠŬȠčԍŠӠԠƠĠōŠԠƠŠӍԠĠŠέРϠӮčԍӠĠΠŠԠ©ӍéӠĩŠƠōčӠĠǠӠΠӠŠΠ©ӍéΠĩӍčҠӠ͠©čé̠͠ĩĠÍčÍŠҠԠԠРƭԠΠȍҠӠ©ӠéӠĩӍčŠӠ٠ٍŠŠԠ٠ȍƭ̠ƭέԠΠȠŠō©ӠéŠƍӠĩԍčŠȠĠΠͭӠŠĠϠōӠ٠ҍ©̠éԠĩٍčĠӠŠϠččĠŠΧӠҠ΍ŠӠ٠ǠōӢ©é٠ĩӍčΠŠԠ̍Ƞ٠ӠĠԍŠ©΍éȠĩ͍čÍȠαŠĠҠĠҠҍŠŠԠҍŠծήӠĠϠϭŠĠΠ©ĠŠéĠӍĩ͠ũĠčč٠ԠŠĠĠΠōϠĠ ĠĠǠ΍ҍŠԠҠŻƠҠōƍŠΠ͠ΠӠĠ٠Π̍ˠĠŠƮčƍĠҠҠҭΠĠϠ̠̍ӠȠӠŠč    ÍčҧӠΠϠԠōȠƠΠϠŠծӮčϠҠ©ծӮӠéϮЮŮîĩōčΧӠΠ٠ӍĠϠŠ͠©Ԡ΍éΠĩӠčӠȠĩĠčΧӠ٠ĠĠŠԠΠӠĠΠҠ©ōéĠҠĩԍččҧӠΠ٠έĠ̠Ӡ©ΠӠé ɠŠĩ ԠҠҍ©ӠéӠĩĠččӠƠŠԠέŠĠϠŠˍӠ©ĠǠéӠĩĠččŠӠƠŠ͠ҍĠԠŭҠ©ӠƠӍ͠Ϡ©ŠŠԠéĩՍčΠŠӠ׍Ӡ͠ϠԠŠ©ҠҠéŠӠĩōčŠƠƠΠάĠ٠ΠΠŠŠŠ͍٠Ԡ©čéӠĩ΍čĠԠΠΠԠĠԠōӠ©ҠӠéĠ̠ĩŠӍččŠ٭ΠŠĭĠ̠Ӡ©ǭΠéӠĩ̠ؠččԠ̠ǠԧӠ͠ĠԠҠ©٠éӠĩ̠ƠōčÍԠ͠ӠٍĠ٠̠Ӎč芊ӠǍΠōӠ©ӍéӠĩ ĠÍčÍŠĠȢԠčҠĠ̍©ΠéÍĩǠ荩ŠԠǠΠՍéŠӠĩ ĠÍččΠӠ٠̍ӠŠٍӠ©̠ӠéȍԠĩ̠Ơō荩ȠԠōŠԠϠŠϠ΍©ӠéӍĩӠĠӬĠ΍٠ĠŠӮčŠҠάŠĠĠԍԬϬĠҍϠ͠ӠΠčƍŠƠΠčӠĠ٠ŠĠĠΠŠӮčԍΠȠҠĬȍӠĠō̠ĠŠٍϠŠӠȠҍӮčԍӠӠԠŠԠΠϠȠčԍ͠ϠŠάӬϬōϬĠϠčŠӠҠήčԍҠӧŠԬĠ΍ӮčƍΧӠŠ٠ԠŠԠӠǠ׍̠ӠύŠӠϠčƍ͠ϠӬĠΠčӠӠҠ̮čƍ٠ĠұĠҠɍҍŠԠҠŻƠҠōԍӠҠΠΠӍƠŠΠŠϭĠȠȠҠĠ̠ŮčԍŠծӮĠӍӠȠΠĠԍΠӮč """"̠ȍҍŠŠԠҍΠŠծӮĠ΍Š٠Ǡ͠Π©ŠéĠĩččϠŠŠנĬΠԠˠŬĠ٠ӠĠˠ© χLJχLJχÇÇŠĠӠԠĠŠήčΠԮčԍԠ٢ӠƠĠĠϠάŬĠíΠΠ̠ŠӮčԍ̠Ԭͬ芊ҠӠ΍ŠήčԍΠΧӠҠϠȠŠĠĠȠӮčԍӠƠϠӍĠΠҠǠΠōӠĠӠϠٍԠŮčƍΧӠ̠ӠԬŠӬĠà٠ԠƠč͠ΠΠӠĠϠŠŠ͠ŮčԍŠŠΠԠƠĠŠԠύԬŬҠŠӮčƍԠ٠ĠϠŠӮčԍӠΠŠŠĠΠŠӠԠōȮčԍŠΠŠΠǠŠҠӠĠ٠ԍӠϠԠŠȠƠӮčԍŠĠϠԠԍؠΠǠōҠΠŠӮčǮčƍ̠ΧӠȠϠŠĠŠҮčƍΧӠΠϭ΢ĠϠŠȍԠΠȠčŠӮčԍˠƠ٠ĠҭάӠŠΠŬĠϠҠήčƍŠҠ͠ƠŠҠҠŠΠӠϠŠŠӮčԍΠŠΠΠԭΠӠĠŠĭ٠ΠΠӮčԍΠΠӠέĠŠԠǠčȍ ͠ҍŠŠԠčΠҠĠҠɬĠӠӠϠŧӍŠȠŠӮčӍӠӠϠĠύΠӠ٠ŠǠƠȠčӍ !!!!ŠנΠҍŠԠҠŻƠҠōԍΠӠԠР̠Ԡ͠ȠӭԠĠԠӮčԍΠӠԠРōŠӠȍ٠ŠŠԮčƍ χχχχχχχχχӠϠĠɭӠ©ӠéӍĩҍččŠҠԠƠӠĠϠԠΠҭΠ©ҠҠíӠéӠĩĠčҠōĠĠĠӠΠΠ©éŠŠԠĩ΍ččΧӠҠ̠čנŠǠ©ԍӠé΍Ӡĩ̠ƠŠčҠĠŠĠŠéΠĩ΍ččŠРӠΠȠĠΠҠ©ŠéŠĩŠԠŠȠ̍čҠŠԠԠĠΠ΍©éōĩΠčÍŠ©ōé٠ĩ ĠàččŠծӮĠ͠٠ŠΠō©̠Πé΍Ԡĩ̠ƠŠč͠ΠŠŠԍĠϠӬĠԍΠĠϠҠΠ©Šé΍ĩӠčÍŠĠĠҠ΍ΠȠŠ̠ƠԍӠ©ҠéҍĩٍčҠ©ҍ٠é͍ĩٍčΠΧӠĠĠŠȠƠŠȧӠ̠ϠȠ٠©ͭŠéԠҠĩōčΠΧӠΠԠΠ΍©čŠӭԍĠ٠©ōɠōéΠӠĩӍčŠĠԠΠԠΠϠԍ©ŠԠéӍĩŠō荩ίӠӍĠΠ©čé٠ĩŠӍččŠ٠ŠӠΠĠΠ٠ҭӠ٠Ҡέ©ΠéӠĩύčč٧ӠōĠŠάōȠ©ԍéԠĩȍDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:0DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDŠǠŠנ̍ҍŠŠԠҍčΠĠӠԢΠŠŠƍ٠©ӍéӠĩ̠ƠōčӠנĠנӭӠŠĬȠӍ    ŠΠҍŠŠԠҍŠΠŠŠέӠƠŠծӮӠԍŠĠ©ĠéԠĩĠčÍӠΠϠŠӠ΍ŠȠԠōĠ© z#À3À?À ŹĠ űĠ ӱà Ҡ̠РԠŲĠųĠŴĠ ŵĠ ŶĠ ŷĠŸĠ ήà ɮà Үà Ӯà ĮàӮà Įà ήà Ӯà Ӯà Үà! ɮà" ήà ̮à ήà ˮà Үà Үà Įàٮà Үà Үà!Աà"ԲàήàȮàĮà ̮à  Ůà ٱàٲàٳàĮà֮àήà  űĠ Šű. ԠԱ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     РѨРѠ`L@3fLfLc`LmL03f@3`L0fL3 fL3@aL3fL10@@aLѪЪѪЪРЪРѨժѪт`fL3fLc`0 |qЪժ`@@ C`@ժѪՂРѨРѠ0` 3?~ L3fFa@mx3xp3fO3@O0fL> fL>@L3fL1x3@aLЪЪРЊРѨՊՂ`<|scxyq`0 F `@@xC`@ժժՂբРѪРpG3f`LM3Lp1fG[3603fL3L~0fL0 fL0@L3fL13@aLՀՂ`0`@1FՂժժՂt8&&0jjjE 0  )(`)00 0)` P uiȩiȩiL9@ p؈88888X xph` P ՀՀՀЊժłԪԪԂЂԀժժժՂԂԂԠՀժՀЪԂՀՀՀԀԊԪժժՂЪժՂЂԪԠժժՂ@<|p3`xCc?8pժժՀՂ`^ycCaO3fCy3f|c@a 3FOԂѠРѠРѨ0`ѠРѠѠРժՊ`0fL3`Lc@1 `ժժ`L3@aL3xc C3fLc@a 3LՀՂѠРѠРѠ@G@?fL<xpa@?|p03FOcGO~cG>8FG>?x3>xaq3@pg ѠРѠѠРժժ`fL3`Lc`0 @Ԫժ`@qagGG @GOOqq;xxq`GpaGGՊՂŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčժՀЪѪъԀՀՀՀՀЊժłժՊԪԪԂЂԀժՊժՂԂԂԠՀժՊՊԂժՀЪѪъԀՀDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY MISSES PER WORD :";:35:MPD8pB" % CORRECT TO SEE REWARD :";:35:PCvCDTPĺ" CATEGORY TO BE HIDDEN :";:35:HC:::DC$"1."FC$" 2."SC$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLU**Uժ   &e&Jj),-P-&Iei Є`HH)&JJ&&h' &' &' f&')'h`' ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčSR$:4840$HW$HW$(LP)B$OW$(" ",(HW$))P$EX1:130p$CL40:DC$WT$:11:CO$;:75z$:13$:TT$;":":CN$$EX1:130$$L214$WD$(LP,L2)"END"L24:4550$" ";WD$(LP,L2)$L2$23%CO$;"H%": #=#EL((1)51):DC$RE$(ME,EL):A(20)2:350:C#f#CO1:100::" PRESS RETURN";#KY$:(KY$)134345##WT2SCSC100:1000#WO0:LO0##30250#WRNW#WC0#WP(100NW)#LP1:WI0 $GUMP:SS$WT1"HM$;="CO5:100:"WINS:";WT;" SCORE:";SC100:e"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.05);"PLP1:4078!4265$!WI4060.!40307!WI0R!LO0ME1:WI1:4300:s!WO(WOLO)0.01PC100WI1!WO2LOME2:4300!WOLOME3:4300!WO0ME4:4300!LO2WOME5:4300!LOWOME6:4300"SCSCWOLO:WIWT:305:(KY$)274030 E4800- JFL41607 O4870D TFL4195P VGUGU1Y c220m eEX2:130:4900w f4950 mOW$HW$WOWO1:WCWC1:295:DC$"GOOD":320:4250 rGU04160 u340 wDC$"SORRY":320 LOLO1 WRWR1 !WR0LSC$:VC$FC$4OW$(" ",(HW$))BEX1:130\CL40:DC$HC$:11:75pDC$VC$:18:75~CO1:100 EX2:130:CL40:XX18:DC$"____________________":15015:DC$SW$:150"14:18512206279 @CO1:100TTEMPT"54,Q1:55,Q2AHM$:TP0:TP$"DIC"TP$"HOD"TP1NTP4500Y30140cWRNWlWC0}WP(100NW)LP1:WI0GUMP:4840SS$SR$HC1HW$C1$(LP):SW$C2$(LP):HC$FC$:VC$SC$:4088 HW$C2$(LP):SW$C1$(LP):HC$";KY$:KY$"Y"4040g6: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"***FUN LEARNING***":"NAME: ";NA$:"LESSON: ";NM$:"WORD............ADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY 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$:DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDMD30:SI25`MT20"bTD10009dMZ(1)135:MZ(2)72[fOZ(1)MZ(1)20:OZ(2)MZ(2)20lhPL80:PH175vl::n(4)"BLOAD MAZE:";((1)5)2;",A";ADp0,AD(AD256)256:1,AD256rDM%tI1MDvX(38(1)1):Y(18(1)1)x30 :KY271915$0:0:10021LAD32768ENDM%768:CM%800fP(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)15 ^(KY),3)fTP$"ERA"ıUkCO$;" THIS LESSON HAS BEEN ERASED";CN$:LP13000:LPgp22:38);" "pu820v200021"PRESS ";Q$;"RETURN";Q$;" TO PLAY REWARD":"OR ";Q$;"ESC";Q$;" TO EXIT....>";KY$:KY(KY$):KY13KY2710P  23:1M*"(I WILL ";:CO$;:"PLAY";:CN$;:" THE LESSON YOU SELECT)"U421>"CHOOSE A LESSON NUMBER & ";:CO$;:"RETURN";:CN$;:" ";HKY$:KY$""NM$"":TP$"":870RKY(KY$):KY1KYNF820\NM$(FI$(KY),(FI$(KY))4):TP$(FI$20 TP$(FI$(LP),3)8 NM$(FI$(LP),(FI$(LP))4)b " ";NM$;("........",9(NM$));".(";s LP10ĺ"0"; LP;")"; FLFL FLĺ LP29F2Ģ22:"PRESS ";:CO$;:"RETURN";:CN$;:" FOR MORE LESSON NAMES";:KY$:HM$:70:F21L..........";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:F21 LP1NF FL$: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:":"; 6KY31 103,01:104,64:16384,0:(4)"RUN MMHOME1" ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč HZ(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 Y,+** 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,           :JA$(1)"A":JA$(2)(21):JA$(4)"Z":JA$(8)(8):4Q(12)R4A(X)(X(DC$))2X4Ig4t!!","better!!","try again!!","go for it!!","once more??"D3lG(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)/4JA$(15)o easy!!","a learner!"^2e "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"93h "almos4:HZ(LP),VT(LP):LP"1J 0,0/1O 0,128=1T 128, 0L1Y 128,128Z1`RE$(6,5)1aLP16:L215:RE$(LP,L2):L2,LP1c "excellent!!","perfection!","top notch!","superior!!","tremendous!"2d "very good!!","a natural!!","good job!!","toOPEN HONOR ROLL":CD$"READ HONOR ROLL"G0vLP110:HR$(LP),SC(LP):LPb0vCD$"CLOSE HONOR ROLL"h0vt0IN$"X"0"CD$(4):Q$(34):HM$(12):CG$(7):CC$(3):CE$(5):CO$(15):CN$(14)01SR$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'?,.-"0?DR11@LP11NW6/IvLP((1)NW1):I20:I11NW:Q(I1)LPI21P/JvI1:I21I20:30281\/KvQ(I)LPv/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&0vCD$"/.u768:C1$(LP)(IN$,1):768:C2$(LP)(IN$,1)7.uLPT.vCD$"CLOSE ";NM$;".";TP$Z. 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:I:I$):NH030070*-ruST2:FI$(1NF)A$:NH108-vuLPSTNHU-u768:FI$(NFLP)(IN$,1)]-uLPw-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)-uLP1NWLES,D";DR:CD$"READ AEC.FILES"',1uST1Q,5u768:A$(IN$,1):NF(A$):NF030010j,7uST2:FI$(1)A$:NF35x,:uLPSTNF,Du768:FI$(LP)(IN$,1),NuLP,XuCD$"CLOSE AEC.FILES",luCD$"OPEN HOME.FILES":CD$"READ HOME.FILES"-qu768:A$(IN$,1):NH(AKY85070+KY135170-+ NA$NA$(KY)6+A$;J+#(NA$)105170T+(5110Z+2`+<w+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 AEC.FIDC$"*** FUN LEARNING ***"%*3503*CO2:100O*7:8:"TYPE YOUR NAME"u*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$:4939C)EL210OW$KY$(OW$,(OW$)1):4939r)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:130*100:32("CHOICE:";:19:"GUESSES";:35:":";GU8(A(FL0R( L21(HW$)v((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(C))'L210SS$" "(SS$,(SS$)1):4825X'(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(CO5:D":320:4590&GU04564&&340:;&DC$"SORRY":320G&LOLO1S&WRWR1k&WR0LPLP1:4526u&4265&WI4500&4030&FL0&L21(SR$)&KY$(SR$,L2,1)FL1:4812:L2(SR$)&L2&&(SS$,L2,1)" "FL0:4825INT:";CN$;" ";HL$*%EX4:130:CL20:XX2L%8:DC$"_______________":150Z%CO2:100c%279%CO2:100:305:(KY$)274030%4800%FL4564%4870%FL4576%GUGU1%4900%4950 &OW$HW$WOWO1:WCWC1:295:DC$"GOOHT1: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                                        բѪРѪР`@<FG@xx>Lyqq@aժժժ`aqsGO3xCNq3fxCGpaGԂ@``c|pcժ pxժժРѠР`0`  @a0@ԂРТШժժՊ`sFa@3 fC0f c@a 3fLժժ @ժРѠѨР@ ``@~ ?0pԊłѪЪРЪЪШ@ժժՂ             ҠéٍĠĩɠٍč̠ӠԠϠōԠƠӠ©ӠéϠĩŠԍũ̠Ơō荩ԠŠԠӍŠΠ٠Ӯٍ©ŠӠéʮˠĩΠč͠Ӡ©Ӎé٠ҠĩĠččȠˠƠ٠ҬŠΠĠӍȠŠӠ©ȍéȠĩĠÍčĩӍčÍŠҠӠƠōΠӠˠƍ٠©ˠƠŠéˍƠҠĩˠƠččĠŠΠĠҍϠ̠Š©ōéŠӠĩ¬àčč٧ӠĠōéΠĩĠčŠӠƠ΍ĠŠծӮĠӍԠ͠Ơٍ©ĠéΠĩٍčΠΠӠŠĠ٠ŠԍŠ©ĠōéӠéΠƍӠĩӠũ ĠÍčӠԠϠ׍ӠŠ̍ƠӠ©Ӡ͍éŠȠĩōččӠŠנӍĠŠ٠©ΠƠȠ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōč̠ΠҍŠŠԠҍčŠȠƠӠӠč٠ōӠ©ŠéҠĩ̠ƠōččנӠƠ٠čΠŠԠƠ׍٠©Ӡ΍    ٠΍ҍŠŠԠҍč٠ȠӠōӠ©ӍéӠĩ̠ƠōčĠύӠƠΠĠҠԠӠč©ŠéŠĩ 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"  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 ԠĠōΠϠĠӍԠ©̍éԠĩԠč٠׬Š̠ԍĠӠĠΠӠ©ŠōéӠĩӠčӠčӠ̠ΠӍĠ٠Π©̠ĠéҍӠĩ̠Ơōč̠ӠĠȠŠΠȠƍŠӠ©ΠӠéנˠ٠ĩ͠Ӎ荩ŠϮ΍čΠӠέĠ٠ɧӠΠƍŠϠ©ȍ銊ĩōčč٠٠čȠŠŠƠí٠©̠éٍӠĩ̠ƠōčččӠƠӮčԍŠ̠ƠӠӠčϠŠΠҠԍӠĮčԍŠԢӠŠƠӠ٠ά΍Ġ٠ϠĠŠɭήčƍĠנ٠ōŠԠϠӠϠŠέ̠ΠĠŠΠƠӠύŮčƍϠŠ׬ŠխΠĠϠŠĠ٠̍ӮčԍӠĠǍ̠ԠӠčϠǠŠӠŠҠӍĠӮčƍ̠ŠĠΠӠǠŠҠϠ٠Ӡ΍ӮčԍӠϠŠέ̠ΠĠԠǠ̠ԠӍĮčԍ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčҠĠŠӍҍŠԠҠŻƠҠōԍΠŠӬΠĠӠƠҭΠĠǠӠҠŠΠҮčƍӠĠӠĠōӠҠҠ٠č  Š̠ӍҍŠԠҠŻƠҠōƍ٠נĠčƠӬԬŬĠŠĮčƍŠנĠӠŭĠΠĠϠŠҍӮčԍԠƠŠƠӠ Π΍ΠϠӠĠ٠ŠàҠήččϠŠծӮčԍŠŠŠӠčΠĠԠӍΠΠŠɭĠĠ٠ĮčԍŠԠ٠ӍĠΠŠΠîŠҠſčԍΠ٠ϠŠȠҍӠΠήčƍȠŠӠĠϠϠŠծӮɭӠȠŠΠƠŠӠԮčԍҠΠ٠čΠӠάԭƭ٠ȠӍĠԍԍΠŠծӮˠҠōӬŠӠԠŠΠƠŭŠĠΠĮčƍĠɠΠԠŠԠƠ΍ɮčƍŠΠҠ٠ŠΠӠŠŠŠ©ŠéŠŠĩӍččŠԠӠΠŠҠϠԠӠ©ϠӠéŠӍĩĠ čč٠ƍŠΠӠΠŠΠҠԠ©ӠéנĩӍčÍ̠נӠĠٍŠΠϠŠč٠ŠԠ©ōéŠԠĩōčӠϠŠ٠ōΠĠÍčč̠ӠĠ̭ӠŠԠΠӍ©Š٠éŠԠĩ̠Ơō荩ΠӠōΧӠӠϠؠԍϠ©ӠӠé̍ĩōčԠƠŠčéĠĩ٠čӠĠ٠Š̍ԠĠŠӠōĠԠ©čéĠĩ̍čϠĠԠ٠΍٠ͬӠŠϠōĠ©čéĠĩ ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠōčΠٍҍŠŠԠҍčŠΠΠŠ̍ŠŠĠΠŠ©̠͠éΠĩ̠ƠōčΠ̠ҠƠōӬϠĠǍ٠ǬӠ ŠΠŠӍҍŠŠԠҍΠŭƠƠŠϭ̠ΠĠΠŠȠ©ŠӍéנĠĩנˍččΠΠӠŭĠΠŠȠЍ© ԠӍéӠĩ͍čӠƠŠŠƍӠĠĠ©ŠծӮé٠ĩũ̠ƠōččҠōӠ©ӍéӠĩӍčΧӠӠĠčŠҠȠŠƠ٠©͍éӠĩӠ荩ĠҠɠŠҭŠĠӠȠ͠©ččŠǠĠҠɬĠϠŠ٠©ҠéàΠĩ̠ƠōččŠծӮ٠ĠΠōҠȠӠ©ӠéӠĩ̠ƠōčŠӠΠōԠŠӍũ̠ƠōččΠ٠ӍĠ٠Ƞ˭Ӡ©ΠխӠéŠȠĩĠčÍΧӠҠŢέĠ٧ӠĠŠƠխӠĠĠҍҠ©ӠéŠĩō׮čĠΠӠŠĠΠŠ̠ƠӮčԍŠȠԠӍԠӠŠΠōӠҠԠĠŭԮčԍƠŠ̠­ĠŠàӍƠΠ׮čΠ٠Ġ٧Ӡٮčԍ٧Ӡ٠Š΍ӠŠԠƠԠĠĠӠȍήčƍŠŠƠŠϭ٠͠ΠΠŠΠΠŠӠĠŠӮčƍŠΠ٠٠ΠĠǠӠĠǠ̠ˮčԍΧӠƠ̬΍ŠجĠΠō٠ήčԍӠӠȍŠĠΠŠĠ٠Š٠Ơխ9: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:ŠҧӠŠҠӍŠҍŠԠŠōԠҍŠԠΠō芊ԍҍŠԠҠŻƠҠōԍŬŬĠΠӍϠŠàӮčƍŠӢĠō׮îԮծΠĠӠĠӠΠӍĠ ӠƠōҍŠԠҠŻƠҠōԍ͠ӠŠ͠ƠŠΠĠϠ΍ӠҠҠҠӮčԍΧӠΠӠƍŠӠĠ̍ǬǬĠǮ 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:HӠϠٍŠήčӠΠΠōҍŠŠԠҍӠΠĠҍӠĠҠŠŠ©ǍҠéӠĩӍčÍ٠ŠΠӍĠ٠Ҡԍ©Ӡ  Π΍ҍŠŠԠҍŠԠĠĠŠĬӠĠ٠΍ԠΠ©čéħӠ̠ĩčččŠĠ̠έӠĠ٠©ԠΠĠ   G'&i(i`čӠĠΠŠŠƠŠҭ͠Š©׮Ю׮éРĩנˠŠččԠӠƠ΍ŠǠŠ΍ŠӠ©ӠéӠĩ ĠÍčӠčԠȠӠΠΠŠӠƍȠ٠Ӡ©ˍé٠ĩҠčÍӠǠŠΠŠӠĠ̠ŠҠˠ©ϧ٠éҠӠĩŮŠč̠ŠĠĩč荩ΠĠΠӠĠĠŠ׍ȠƠӠ©ΠéϠĩӍ荩נ̠ĠӠӍĠŠŠǠӠƠӠ©ӍéӠĩӠčĠ©ӍéӠĩ ĠÍ荩ȠԠĠӠҍΠ©ΠéӍĩΠčΠӠΠčĠĠϠӠ̍ԠӠĠ©ĠéȠӠΠӠǠӠٮčŠԮčƍΠîΠĠōƠԠƠȍĠŠƠӮčԍΠΠάŠԍàԬӍΠΠ٠Ǭ͠٠ήčԍΠĠԠ̠٠ΠΠĠŭĠŠΠŠΠŠӠŮčԍΠΠΠŠӭ٠ҠӬǠԠ̠ҠӠέ٠ĠǠŠŮčƍΧӠӠ͢ĠĮčԍȠŠàƠōˠƠŠծӮĠōĠӠΠŠٍȠӮčԍƠŞ̌ӠԍԠӠčŠӠƠŠ̠ԮčԍŠŠŠč ŠծӮĠҍҍŠԠҠŻƠҠōԍΠҠȠΠčŠծӮϠ̠ҍΠŠàĠήčԍΠǠΠŠҠҠΠ٠ĠΠŠî ΠƠōҍŠԠҠŻƠҠōԍҠӠҠ΍͠ΠΠŠĠ΍ŠŠƠŠήčƍǠŠɠӠč٠̠ΠŠήčԍŠŠ٠  " "   čӮčōԠˠĠΠ͠ΠȠӍȮččӠčŠծӮĠƍ͠ŠӠƠӮč͍ӠĠٍԠԠȠŠӠϠŠӠϠčԠĠҠҠӮčٍӠ芊ƠӠύĠϠŠΠ٠ԠάŠծӮǭĠŠčĠҠŠծӮĠ٠ϠōŠĠРȠΠ芊ŠŠƠҭӬԠԠƠȠӠӍŠ٠ƠӠϠ٠ҠҠčӍŠΠŠƍӠ̠ΠǠŠ̠Š٠ŠŭҠٮčԠ΍ΠΠԠϠŠŠΠԠӠĠӠ©ĠЍéĠӠĩ̠ƠōčӠĩĠàčԠ̠ӍΠŠȠŠĠٍӠ©ӠéӠĩӍčŠԠҠ٠ӍŠȧӠĠҠҍ©Ԡé٠ĩӍččӠĠǠӠΠӠǠ΍Ġ٠Π©ōéؠĩԍ荩ԠΠ̍РΠӠҠӠ©ӠéōӠĩӍččԠΠӠō̠Ӡ©Ӎéũ ĠččԠӠ͠ϠĠΠӠƍŠԠ©ŠԍéŠȠĩŠȍčč٠ŠԠԍРΠŠȠӍϠ©ōéҠĩ΍čÍ٠ŠҠƠ G'&&`! ĠҠɍҍŠŠԠҍÍҠϠĠҠɬōӠĠŠŠέΠΠ©ōŠéĠččҠӠƠĠҠɠŠ͠©ҍéӠĩ! ΠƠӍҍŠŠԠҍӠĠӠϠ͍ӠŠԠčǠҠ©ĠȍéӠ̠ĩččÍŠӠčҠŠӠ©!p χÇχÇ"  ԠӠԠŠŠΠŧӠàĠŠŠĠΠӮčΠƠΠčԍȠΧӠҠĠҠӠάԠӠԍ̠Š͠ӠŠĠԠ٠ĮčԍԬ̬ĠΠĠŠ΍ƠҠ٠ԠΠčƍǠҠ΍ŠĠΠǠŠҮčԍŠ̠ԠčӠϠŠíάάǬĠҮčƍĠ٠Π٬̭Ġ٠ԠΠŠÍĠΠŠҬĠϠΠ֍Ҡ̠ҬŠծӮĠҠȠάȍӠĠ٠΍ƠҠȠčԍӠĭŠ͍ĠȠŠӠĠōծӮŠĠǠŠҮčԍĠΠӠҭԠΠΠŬլάĠ΍ŠΠŠƠӍ͠ĠٮčΠŠԠĠԮčԍˠӠĠ͍άȠǍΠҠԠӬŠȠŠӮčԍŠĠĢӍΠ٠ԠԠˠԠήčԍΠŠӠǠϠŠΧӠӠΠŠӠĠӠŠԍĠ٠ԮčԍŠΠĠ٠čŠӠΠŠԍҠŠàήčԍ٠ŠӬΠčŠԠĠŠԠҮčԍ˧ӠΠҠĠΠĠӬנϬĠҠōĠϠŠծӮčƍΠŠŠΠҬӠĠΠȠĠӠԠĠΠǠŠծӮčƍDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDŠԠίנ̍ҍŠԠҠŻƠҠōƍҠàӠƠŠԠΠŠȠӬŠǬĠȠŠӮčԍҠĠŠ΍ƠŠàĠŠŠ΍" ŠΠӠ΍ҍŠԠҠŻҠҠōԍŠԠŠƠō̠ΠĠŠŠĠŠŠƠӮčԍӠΠàӍĠΠŠŭӍ"