' +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݌`ߪZ?葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵ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`UIRY ROUTINE uTY1-z1100:5100:2000JX$"_"TY7:4300:6040X$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3 TYW1:A$(NU,LV)A$(NU,LV)(((A$,W,1))128):5140T A$(NU,LV)A$(NU,LV)(A$,W,1)[WaO|P EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p Q(NU,LV))2)(A$(NU,LV))100.5):AG09PS(A$(NU,LV))iW1PS:(A$(NU,LV),W,1)(X$,W,1)AGAG1pWSC%(100AGPS.5):SPELL(SC%PR%) PARSE ROUTINE A$A$(NU,LV):A$(NU,LV)""2W1(A$):(A$,W,1)(19)W%(W)W:W:4840W1NEX0((1)N)1:J1W1:X0D%(J)4820XJ:D%(W)X0:W^$ PRESS RETURN ROUTINE .0:3:1:1250,170837:24:A$:A$(13)4920B1:0:1250,170:3: SPELL CHECK %PR%(((A$11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,13045 238407,32:38409,63,V(6)1H(35),V(6)1WF(3:8:"POINTS":31:8:"TIME":5:6:"0":31:6:"00:00"]*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS7))~2XLX2X1:ADRSȭLS19PRT2:10097o'PRT1#q't'D$"OPEN FILE"LS",L78":D$"READ FILE"LS",R0":N:I1N:D$"READ FILE"LS",R"I:J13:A$(I,J):J:I:D$"CLOSE FILE"LS~'H38105:VH1:TIH5:MXLNH4:THH10:TVTH1'<(3:H(2),V(6)1H(8),V(6)1:H(30),R"LS:J13:SC$(J):J:SC$(LV)(SC%):D$"WRITE RECORD,R"LS:J13:SC$(J):J:D$"CLOSE RECORD"n4900::t'#' INIT MODE j'D$"BLOAD INKEY.G"k'D$"OPENSTAT":D$"READSTAT":LS:LV:LA$:D$"CLOSE STAT"m'LS21PRT3:10097n'"REPEAT LESSON?........."RP$:5:6:"TIME ELAPSED..."T1" MIN. "T0" SEC."d|1:12:MISSED080721:9:"WORDS MISSED":1:9:(15);(15)"____________";(15);(16):W1MISSED:1:9W:A$(M%(W),LV);:W:1:`D$"OPEN RECORD,L12":D$"READ RECORD"YES"QTT9TI:T0((T9)176)10((T91)176):T1((T93)176)10((T94)176)mYSC%(PTS(5N)100.5)^1:2:NAME$":"h5:4:"ACCUMULATED POINTS....."PTS:5:6:"POSSIBLE POINTS........"N5Jr5:5:"PERCENTAGE............."SC%:5:7:(S$,I,1)"}"I1S$(S$,I1)NA$(S$,I1):7164V(S$,I,1)"}"S$NA$(S$,2)(S$,I,1)"{"I1S$(S$,I1)LA$(S$,I1):7170(S$,I,1)"{"S$LA$(S$,2):@ FINITO LACOMEDIA J(16)ORP$"NO":MISSED2RP$1,L)),V(JV5)H(H(2,L)),V(JV5):L,J53:;PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):7130(S$,1)";"S$","(S$,2)((S$,I,1))32CRLCRL1(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL4$(S$,I1):71643(S$,I,1)"}"S$NA$(S$,2)k(S$,I,1)"{"I1S$(S$,I1)LA$(S$,I1):7170(S$,I,1)"{"S$LA$(S$,2):(S$,U$(19):CP$(16):TU$(11):TL$(12) I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)L J3:`PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):7130(S$,1)";"S$","(S$,2)((S$,I,1))32CRLCRL1(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL(S$,I,1)"}"I1S$(S$,I1)NAŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠȠΠōŮŠŠԠנ٠ϠԂǠӂ٠ŠήŠŠԂΠ҂ƠŠԠłŠŠ‚͠ΠȠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠήժժՂՀժĈĆ~U(?6T ժժժժժզՂЪՂЪժժՂ ժ(E*?gU*`>l1cժժՂԪՊՀSՀ Ā`@ 9 U*qnJԪՂЪŪԪՂՠժժժŪԂՂxUwU"ԪժբՀժՂĪՠժժժՂĈՏըݠ~U(?vU"ժժժՂՊՂԪf޿ ` `A@ծňժѨ~TЊՖłwϊ (V"ժժTrծ| ժݻ씀@U(oF*?ժժwѨрԪŪժރ q ժDb բԨ󮑢`U(Oq"ժwU@n]snP*U*U*L *ՊԂ*U*U*UՊժ@`ЪՀ*}6~oUtn];wnU*U*T *B *ժԊժ*U*U*UՊժ Ъ(_v|`G];qU*U*U@D*ժŪՊժ*'(U* Ъ敨 }GwUn]Cun T***ѪժՂѪԢ*U*U*TժՊȄЪܪǏ w}aUn]Cqn*U*T **ժԪժЂ*U*U*UՊժĈ􈑂ĀЪՂ*yUv}ժժՂՊժՀժժ Āx*u`)Q@Ъ*T``T  ЂԪ L"U*U*T|ՀտЪѢ}EC?n]aunU@T"ՊժՂŢԈ e!U* xԪ~U(?vT"ժժժՂժժՂԪ߿ȿժժՂĈՏժݫĘ~U(?6T"ժըժժժԦՂЪՊpժժՂ ժ ~*?6T*~`ժժժժժ ՠՠՂժՑ Պ􈑢`U(Q"ժժ ŪԠՂՠժժժѪԂՊǃ`U( SPELL CHECK sPR%(((A$(NU,LV))2)(A$(NU,LV))100.5):AG0PS(A$(NU,LV))W1PS:(A$(NU,LV),W,1)(X$,W,1)AGAG1WSC%(100AGPS.5):SPELL(SC%PR%) PARSED1:M%(MISSED)NU:6 RANDOM ORDERING [(LS20)āW1N:D%(W)W:W:4840fW1NX0((1)N)1:J1W1:X0D%(J)4820J:D%(W)X0:W$ PRESS RETURN ROUTINE .0:3:1:1250,170837:24:BN$:BN$(1319:A$(NU,LV):4350k5:16:"THE ANSWER IS:":HH:17:A$(NU,LV):5:18:"YOU GET ZERO POINTS.":43504200:2:16:M$" YOU GET THREE POINTS.":43504900W14:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS7))2XLX2X1:ADRS11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:1303:A$(I,J):J:I'CHANDAIL,LE CHANDAIL,LES CHANDAILS,PANTOUFLE,LA PANTOUFLE,LES PANTOUFLES,GROS,GROSSE,GROS,MAIGRE,MAIGRE,MAIGRES,SAUTER,JE SAUTE,NOUS SAUTONS,PORTER,JE PORTE,NOUS PORTONS*T2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS INKEY1"@o'D$"OPENSTAT":D$"READSTAT":LS:LV:D$"CLOSE STAT"q'D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE"t'LS21PRT3:10110w'LS19PRT2:10110z'PRT1~'H38089:VH1:H2,160:H3,223:H4,20'N6:I1N:J1"(S$,1)";"S$","(S$,2);"((S$,I,1))32CRLCRL1u$"(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL."(S$,I,1)"}"I1S$(S$,I1)NA$(S$,I1):87603"(S$,I,1)"}"S$NA$(S$,2)8":' INIT MODE j'D$"BLOAD "CTCT1:6520/zCT1(X$)X$"_X":6530\}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)~(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$:T$T$(X$,I,1):(X$,I,40vX$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3TY4PTSPTS244004000:4100:dnCT2x(X$,CT,1)"V)(A$,W,1)WO4P EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p QUIRY ROUTINE uTY1z1100:5100:2000X$"_"TY7:4300:60(A$(NU,LV),W,1)(X$,W,1)AGAG1(WQSC%(100AGPS.5):SPELL(SC%PR%)Wx PARSE ROUTINE A$A$(NU,LV):A$(NU,LV)""W1(A$):(A$,W,1)(19)WW1:A$(NU,LV)A$(NU,LV)(((A$,W,1))128):5140  A$(NU,LV)A$(NU,LJ:D%(W)X0:W8$ PRESS RETURN ROUTINE P.0:3:1:1250,170p837:24:A$:A$(13)4920B1:0:1250,170:3: SPELL CHECK PR%(((A$(NU,LV))2)(A$(NU,LV))100.5):AG0PS(A$(NU,LV))!W1PS:TS.":4350?4200:1:16:M$" YOU GET THREE POINTS.":4350EO4900lW14:1:W15:(5):Wr/x0:MISSEDMISSED1:M%(MISSED)NU:(LS20)āW1N:D%(W)W:W:4840W1NX0((1)N)1:J1W1:X0D%(J)4820$" YOU GET TWO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):43504260:3:16:M$" YOU GET ZERO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):4350 5:16:"THE ANSWER IS:":HH:17:A$(NU,LV):5:18:"YOU GET ZERO POIN.5(A$(NU,LV)))<TY4320,4330,4340,4343,4346,4349,4347m4200:5:16:M$" YOU GET 5 POINTS.":43505:16:"I AM SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:M$" TRY AGAIN<":4350O4260:3:16:MŮŠŠԠנقϠԠǠӂҠλ٠ŠŮŠŠ̂ͮŠŠ̠ŠĂ̠΂ΠȠΠŠŮŠŠԠנ٠ϠԂԠנ٠ϠԠǂӂҠλ٠ŠŮĠŠłłϠŠŠƠŠŮŠŠŠĠ΂ΠȍΠŠɠŠ͍̂ƠŠ΂ΠȮŠԠӠĠǮҠλ٠ŠŮŠŠ҂͠ƠŠ΂ΠȠΠŠŮŠŠłŠĠŠ҂͠Ơō΂ΠȮŠԠӠĠǮՠ̠ŠĠϠ٠ŮŠŠ̂ŠŠ  <"< "><  """"""2,,""" **>>&20"2*&" " >> ">> """>""""""<  >>"" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"  <"< "><  """"""2,,""" **>>&20"2*&" " >> ">> """>""""""<  >>"*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS7))%2XLX2X1:ADRS11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRSS19PRT2:10110z'PRT1G~'H38089:VH1:H2,160:H3,223:H4,20l'N6:I1N:J13:A$(I,J):J:I'GOLF,IL GOLF,I GOLF,PANTOFOLA,LA PANTOFOLA,LE PANTOFOLE,GRASSO,GRASSA,GRASSI,MAGRO,MAGRA,MAGRI,SALTARE,SALTO,SALTIAMO,PORTARE,PORTO,PORTIAMO1):8760+3"(S$,I,1)"}"S$NA$(S$,2)38":N' INIT MODE dj'D$"BLOAD INKEY1"o'D$"OPENSTAT":D$"READSTAT":LS:LV:D$"CLOSE STAT"q'D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE"t'LS21PRT3:10110w'LJ !3:!X"PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):8730x"(S$,1)";"S$","(S$,2)"((S$,I,1))32CRLCRL1$"(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL ."(S$,I,1)"}"I1S$(S$,I1)NA$(S$,IT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550WI:X$T$:T$T$(X$,I,1):(X$,I,1)" "T1:6555T0X OUTDATA ROUTINE bD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSETS5:6050#TY6:4300:PTSPTS37TY4PTSPTS2A4400S4000:4100:YdbnCT2x(X$,CT,1)" "CTCT1:6520zCT1(X$)X$"_X":6530}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)(X$,CT,1)" "CTCT1:6530HX$(X$,C00":MD2:13025:38400:4900:1:5:(6):Hp QUIRY ROUTINE QuTY1gz1100:5100:2000X$"_"TY7:4300:6040X$A$İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$İ5000:TY5:TYTYSPELL:4300:4100:6040 TY1İ4300:PTSPE .D$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYUTS:J1TS:S$(J):J:D$"CLOSE"F$`(16)j8600p!J1TS:S$(S$(J),2):CT0:CRL0:S$""İ8700!1:JV5:S$:CT08630!L1CT:3:H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):L!$,(X$)(CT1)):X$"_"X$:CT(X$)D(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$:T$T$(X$,I,1):(X$,I,1)" "T1:6555T0@ OUTDATA ROUTIN4100:2000:X$A$İ5000:TY5:TYTYSPELL:4300:4100:6040\TY1İ4300:PTSPTS5:6050uTY6:4300:PTSPTS3TY4PTSPTS244004000:4100:dnCT2x(X$,CT,1)" "CTCT1:6520zCT1(X$)X$"_X":6530"}X$(XARSE ROUTINE A$""uW1(A$(NU,LV)):(A$(NU,LV),W,1)(19)WW1:A$A$(((A$(NU,LV),W,1))128):5140 A$A$(A$(NU,LV),W,1)WOp QUIRY ROUTINE zTY1:5100<1100:2000:X$A$İ5000:TY3:TYTYSPELL:4300:50,170(837:24:BN$:BN$(13)4920BB0:1250,170:3:1:` SPELL CHECK PR%(((A$)2)(A$)100.5):AG0PS(A$)W1PS:(A$,W,1)(X$,W,1)AGAG1WSC%(100AGPS.5):SPELL(SC%PR%) P((A$(NU,LV))2.5):V,20UH((H)1),V(21)2H((H)(A$(NU,LV))1),V(21)2o2:21:"LIKE THIS:"W1750:W1:(H)1:21:A$(NU,LV)2554900CP$$ PRESS RETURN ROUTINE )16368,0.0:3:1:12 CORRECT ANSWER ON":4:17:"THE SECOND TRY WILL BE WORTH":4:18:"THREE POINTS.":4350^h4900W15:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU: COMPUTER EXAMPLE 1100H,20Y SPELLED ANSWER":5:18:"WILL BE WORTH TWO POINTS.":5:19:"THE ANSWER IS "A$(NU,LV)".":43504260:5:16:M$:5:17:"AN INCORRECT ANSWER":5:18:"WILL BE WORTH ZERO POINTS.":5:19:"THE ANSWER IS "A$(NU,LV)".":4350X4200:4:16:M$" AT4200:4:16:M$" A CORRECT ANSWER WILL":4:17:"BE WORTH FIVE POINTS.":43505:16:"I'M SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:M$" TRY AGAIN<":4350a4260:5:16:M$:5:17:"AN INCORRECTLINE . W((2)4)1:W4263,4264,4265,4266M M$"YOU MISSED IT.":4270v M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270 M$"THAT'S NOT IT.":4270    OUTPUT MESSAGE TY4320,4330,4340,4343,4346,4349NE  1:21:(5):5 h RANDOM POS REIN c rW((3)5)1:W4212,4213,4214,4215,4216y tM$"BENE<":4220 uM$"CORRETTO<":4220 vM$"OTTIMO<":4220 wM$"BENISSIMO<":4220 xM$"BEN FATTO<":4220 |  NEG REIN ROUT88 L(25):L02040: I0L1:X$X$((512I)):I_ X$X$" ":6500:X$(X$,(X$)1)e  INST MODE F$"EX.I":L1225:R(PRT1)6FLAGLV 8000   UPDATE PTS   CLEAR ENTRY LI VX1X(NU):Y1Y(NU):X2X166:Y2Y159:X3105:Y355:PA2:13000k [3:95,50181,50181,11795,11795,50q `  INPUT CONTROL X$"_" H,20((A$(NU,LV))2.5):V,20 H((H)1),V(21)3H((H)(A$(NU,LV))1),V(21)3 378;(1)1* 212:11:"ONE MOMENT, PLEASE."H P10000:1000:NU(PRT2)1X Z3000:4500q dNUNU1:FLAG3:3000{ x6000 (16):D$"RUN DRIVER.I"   PICTURE MODE 1::D$"BLOAD PIC.EX,A$7C00" MD2:13025:38400  LA 10"(4)"SAVE EXAM.I":/ 27400:S D$(4):A$(12,3),M%(12),S$(30)~U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)         " "T1:6555T0:X OUTDATA ROUTINE ebD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSE"F$v7050J1TS:S$(S$(J),2):CT0:CRL0:S$""İ71001:JV5:S$:CT07080&L1CT:3:H(HCTCT1:6520,zCT1(X$)X$"_X":6530Y}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$){(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$: T$T$(X$,I,1):(X$,I,1)7:4300:6040sX$A$İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3TY4PTSPTS244004000:4100:dnCT2 x(X$,CT,1)" "A$A$(A$(NU,LV),W,1)W$O?P EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p QUIRY ROUTINE uTY1z1100:5100:2000 X$"_"TYPS(A$(NU,LV))@W1PS:(A$(NU,LV),W,1)(X$,W,1)AGAG1GWpSC%(100AGPS.5):SPELL(SC%PR%)v PARSE ROUTINE A$""W1(A$(NU,LV)):(A$(NU,LV),W,1)(19)WW1:A$A$(((A$(NU,LV),W,1))128):5140 1:J1W1:X0D%(J)4820-J:D%(W)X0:W3U$ PRESS RETURN ROUTINE m.0:3:1:1250,170837:24:BN$:BN$(13)4920B1:0:1250,170:3: SPELL CHECK PR%(((A$(NU,LV))2)(A$(NU,LV))100.5):AG02:16:M$" YOU GET THREE POINTS.":4350/94900VW14:1:W15:(5):W\/y0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU: RANDOM ORDERING (LS20)āW1N:D%(W)W:W:4840W1NX0((1)N)$238407,32:38409,63:38411,64:I238407,64:38409,95:38411,124:n238407,32:38409,63:38411,124:556555 38407,32:38409,63:38411,124: u 0L0LjLY u 0SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)7))2XLX2X1:ADRS11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,130451H(8),V(6)1:H(30),V(6)1H(35),V(6)1oF(3:8:"POINTS":31:8:"TIME":5:6:"0":31:6:"00:00"u*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS'LS21PRT3:10097,n'LS19PRT2:100976o'PRT1<q't'D$"OPEN FILE4 ,L81":D$"READ FILE4 ,R0":N:I1N:D$"READ FILE4 ,R"I:J13:A$(I,J):J:I:D$"CLOSE FILE4"~'H38105:VH1:TIH5:MXLNH4:THH10:TVTH1'/<(3:H(2),V(6)EN RECORD,L12":D$"READ RECORD,R"LS:J13:SC$(J):J:SC$(LV)(SC%):D$"WRITE RECORD,R"LS:J13:SC$(J):J:D$"CLOSE RECORD"4900::'#' INIT MODE j'D$"BLOAD INKEY.I"k'D$"OPENSTAT":D$"READSTAT":LS:LV:D$"CLOSE STAT"mNTAGE............."SC%:5:7:"REPEAT LESSON?........."RP$:5:6:"TIME ELAPSED..."T1" MIN. "T0" SEC."|1:12:MISSED080721:9:"WORDS MISSED":1:9:(15);(15)"____________";(15);(16):W1MISSED:1:9W:A$(M%(W),LV);:W:1:~D$"OP)#ORP$"NO":MISSED2RP$"YES"oTT9TI:T0((T9)176)10((T91)176):T1((T93)176)10((T94)176)YSC%(PTS(5N)100.5)^1:2:NAME$":"h5:4:"ACCUMULATED POINTS....."PTS:5:6:"POSSIBLE POINTS........"N5hr5:5:"PERCE(S$,1)";"S$","(S$,2):((S$,I,1))32CRLCRL1t(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL(S$,I,1)"}"I1S$(S$,I1)NA$(S$,I1):7170(S$,I,1)"}"S$NA$(S$,2):@ FINITO LACOMEDIA J(16"F$ v7050FJ1TS:S$(S$(J),2):CT0:CRL0:S$""İ7100b1:JV5:S$:CT07080L1CT:3:H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):LJ3:PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):7130(16)8600G!J1TS:S$(S$(J),2):CT0:CRL0:S$""İ8700c!1:JV5:S$:CT08630!L1CT:3:H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):L!J!3:!"PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):87300:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550MI:X$T$:zT$T$(X$,I,1):(X$,I,1)" "T1:6555T0@ OUTDATA ROUTINE D$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYTS:J1TS:S$(J):J:D$"CLOSE"F$TY6:4300:PTSPTS3-TY4PTSPTS274400I4000:4100:OdXnCT2zx(X$,CT,1)" "CTCT1:6520zCT1(X$)X$"_X":6530}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)(X$,CT,1)" "CTCT1:6530>X$(X$,CT):T$"":TG1 W3SC%(100AGPS.5):SPELL(SC%PR%)9Wp QUIRY ROUTINE `zTY11100:2000:X$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050RN ROUTINE )16368,02.0:3:1:1250,170R837:24:A$:A$(13)4920lB0:1250,170:3:1: SPELL CHECK PR%(((A$(NU,LV))2)(A$(NU,LV))100.5):AG0PS(A$(NU,LV))W1PS:(A$(NU,LV),W,1)(X$,W,1)AGA COMPUTER EXAMPLE "1100GH,20((A$(NU,LV))2.5):V,20H((H)1),V(21)2H((H)(A$(NU,LV))1),V(21)22:21:"LIKE THIS:"W1750:W1:(H)1:21:A$(NU,LV)2554900CP$ $ PRESS RETUA$(NU,LV)".":43504200:5:16:M$" A CORRECT ANSWER ON":5:17:"THE SECOND TRY WILL BE WORTH":5:18:"THREE POINTS.":43504900W15:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU: 4260:5:16:M$:5:17:"AN INCORRECTLY SPELLED ANSWER":5:18:"WILL BE WORTH TWO POINTS.":5:19:"THE ANSWER IS "A$(NU,LV)".":43504260:5:16:M$:5:17:"AN INCORRECT ANSWER":5:18:"WILL BE WORTH ZERO POINTS.":5:19:"THE ANSWER IS "AGE +TY4320,4330,4340,4343,4346,43494200:5:16:M$" A CORRECT ANSWER WILL":5:17:"BE WORTH FIVE POINTS.":43505:16:"I'M SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:M$" TRY AGAIN<":4350 BIEN<":4220 |1  NEG REIN ROUTINE Z W((2)4)1:W4263,4264,4265,4266y M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270 M$"THAT'S NOT IT.":4270   OUTPUT MESSNE  1:21:(5):5 h RANDOM POS REIN h rW((3)6)1:W4212,4213,4214,4216,4216,4217~ tM$"BIEN<":4220 uM$"C'EST VRAI<":4220 vM$"EXCELLENT<":4220 wM$"VOUS AVEZ RAISON<":4220 xM$"BIEN FAIT<":4220 yM$"TR#S88 L(25):L02040: I0L1:X$X$((512I)):I_ X$X$" ":6500:X$(X$,(X$)1)e  INST MODE F$"EX.F":L1225:R(PRT1)6FLAGLV 8000   UPDATE PTS   CLEAR ENTRY LI VX1X(NU):Y1Y(NU):X2X166:Y2Y159:X3105:Y355:PA2:13000k [3:95,50181,50181,11795,11795,50q `  INPUT CONTROL X$"_" H,20((A$(NU,LV))2.5):V,20 H((H)1),V(21)3H((H)(A$(NU,LV))1),V(21)3 378;(1)1* 212:11:"ONE MOMENT, PLEASE."H P10000:1000:NU(PRT2)1X Z3000:4500q dNUNU1:FLAG3:3000{ x6000 (16):D$"RUN DRIVER.F"   PICTURE MODE 1::D$"BLOAD PIC.EX,A$7C00" MD2:13025:38400  LA 10"(4)"SAVE EXAM.F":/ 27400:S D$(4):A$(12,3),M%(12),S$(30)~U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)          .T$T$(X$,I,1):(X$,I,1)" "T1:65556T0<[X OUTDATA ROUTINE bD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSE"F$v7050J1TS:S$(S$(J),2):CT0:CRL0:S$""İ7100 1:JV5:Sd nCT2.x(X$,CT,1)" "CTCT1:6520MzCT1(X$)X$"_X":6530z}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$:000 X$"_"TY7:4300:6040X$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3TY4PTSPTS244004000:4100:8):5140* A$(NU,LV)A$(NU,LV)(A$,W,1)1W7ORP EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p QUIRY ROUTINE uTY1z1100:5100:2PS(A$(NU,LV))?W1PS:(A$(NU,LV),W,1)(X$,W,1)AGAG1FWoSC%(100AGPS.5):SPELL(SC%PR%)u PARSE ROUTINE A$A$(NU,LV):A$(NU,LV)""W1(A$):(A$,W,1)(19)WW1:A$(NU,LV)A$(NU,LV)(((A$,W,1))12.QݓQtQݔ.t RIVER.F":1 27400:U D$(4):A$(12,3),M%(12),D%(12)U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)631 (19,63:38411,64:5238407,64:38409,95:38411,124:Z238407,32:38409,63:38411,124:556555 38407,32:38409,63:38411,124: u 0LjLY u 0LjLY u N WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)DRS11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,13045238407,32:3840(30),V(6)1H(35),V(6)1[F(3:8:"POINTS":31:8:"TIME":5:6:"0":31:6:"00:00"a*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS7))2XLX2X1:An'LS19PRT2:10097!o'PRT1'q't'D$"OPEN FILE"LS",L78":D$"READ FILE"LS",R0":N:I1N:D$"READ FILE"LS",R"I:J13:A$(I,J):J:I:D$"CLOSE FILE"LS~'H38123:VH1:TIH5:MXLNH4:THH10:TVTH1'<(3:H(2),V(6)1H(8),V(6)1:HCORD,R"LS:J13:SC$(J):J:SC$(LV)(SC%):D$"WRITE RECORD,R"LS:J13:SC$(J):J:D$"CLOSE RECORD"r4900::x'#' INIT MODE j'D$"BLOAD INKEY.F"k'D$"OPENSTAT":D$"READSTAT":LS:LV:LA$:D$"CLOSE STAT"m'LS21PRT3:100977:"REPEAT LESSON?........."RP$:5:6:"TIME ELAPSED..."T1" MIN. "T0" SEC."h|1:12:MISSED080721:9:"WORDS MISSED":1:9:(15);(15)"____________";(15);(16):W1MISSED:1:9W:A$(M%(W),LV);:W:1:dD$"OPEN RECORD,L12":D$"READ RERP$"YES"UTT9TI:T0((T9)176)10((T91)176):T1((T93)176)10((T94)176)qYSC%(PTS(5N)100.5)^1:2:NAME$":"h5:4:"ACCUMULATED POINTS....."PTS:5:6:"POSSIBLE POINTS........"N5Nr5:5:"PERCENTAGE............."SC%:5:8(S$,I,1)"}"I1S$(S$,I1)NA$(S$,I1):7164Z(S$,I,1)"}"S$NA$(S$,2)(S$,I,1)"{"I1S$(S$,I1)LA$(S$,I1):7170(S$,I,1)"{"S$LA$(S$,2):@ FINITO LACOMEDIA J(16) ORP$"NO":MISSED2H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):L0J93:?PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):7130(S$,1)";"S$","(S$,2)((S$,I,1))32CRLCRL1(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))ICRL1)" "T1:6555T0=X OUTDATA ROUTINE hbD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSE"F$v7050J1TS:S$(S$(J),2):CT0:CRL0:S$""İ71001:JV5:S$:CT07080)L1CT:3:(U*F*E*ЪժŊՊժ ՊժՀT~p? U*U*U ժ@ծԢUU@׊ Y"ժժծժ݋U(*Ԫժ@wĀժժժE#ժժѪ(y7~wUn]snP*U*U*@**ՠՂЊԂъ*U*U*UՊժĈЪՀ*y7~wUpn]pnT*U*U*D(G"$*ՊЪpъժ*U*U*UՊժ Ъ *?~w|?T Nn];wn]U*U*UժՀѪԢ#U*U*AGԪՂ ՃЪըŀ着 ylxoUn]avnP"(*ժՂՊԪ*U*Q*UժՂЪ y6>vUn]wn*Q*T***ѪԪժтŨŢ*U*U*UՊժĈĀЪժժժժЪՠՂՂժբ*U*U*Uܺ((U*P@|ժժĈԀ*y@#ՀТ E*QP|'Ȫ1"U @*DՀՇЪբυ|Qn]CsjU@J*ЪժĈտըЁxU(7T"ժժժՂժժՂԪѪժժՂՏժ蝻~U(_7T"ժժժՊՈՂԪՂժժՂ ժ ~U*_wQ*wժժժ0"ժժ#կ@ ՊĂĈ´`U*8P ժժwѪՂԪժժѪՂդßѪǀ`U(?7T"ԪժԢŊժՂŨըժժժժՂЪ*|UwyUwn];wn]U*U*U(U*F**ժժЂՊժ*U*U*UՊժ끀(eU ~Qp? U*U*U *Ԫ᪀Պժ@ժU*@`׀Ԫ@ ep#ծЂժ݁*Q*ţъբ*U*UժժĀЪժ(yUw~gUn]sn@*U*E*H**ըՊԂъժ*U*U*UՊժĈЪƪ*yUw|wUpn]snT*U*U*JD*ՂԪЂĊъ*U*U*UՊժ T~,Mw) U*(P ԪՊШbT U*U*x(ЪՂ~ ՇЪժß {ew_n]!wnUP**ժՂъF U* ԪՂЪᏻ }wxwUn]wn(Q T***ѪѪժтŪժժՂ ժĀ~U(_wT ժժժժժզՈՂժ*U*U*Uꁀ(E*?vT*Q?|c?ժժĈՂՀ @T*@?>&E(|*|)ՀЪТŪժՂբժժժԂĈԂѻxU(_wT"ԪժժՀЊժՂԪՂԪժժՂĈĈՏՂ݋~U(wU"ժժժՊբѨՂԪ̟ǜ?9(ծժ󐪝ܻP*T8**wԪJQ ժժ*ծ ժ󄪾ݻ`U*/~U ?ժժwժԂѪЪժ߃@ ժn( ժԪ`U*wE"ժժT*U*U*ED"*ԪԊ*U*U*UՊժ|ЪՀ*}w|OUwn];wnU*U*UU*@**ժՂՀՊǪ*U*U*UՊժ Ъ(Eg}Q`;L3#F U*U*U *ժūՊժ @ժ!0"׻ }ytwUn]sn(Q T***ҪժтԢ*U*E*TժՊЪբ(aUw}gUn]#rn@*U* **ժՊԂբ*U*U*UՊժĈĀЪ𕪱*yw}wU`n]sn@ '"(E8( ՀňЪ?U(T|(LvT~U ՊъS"U*U*@jЪՂ ՏЪԢԀ {%\p QUIRY ROUTINE ezTY11100:2000:X$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5: RETURN ROUTINE )16368,07.0:3:1:1250,170W837:24:A$:A$(13)4920qB0:1250,170:3:1: SPELL CHECK PR%(((A$(NU,LV))2)(A$(NU,LV))100.5):AG0PS(A$(NU,LV))W1PS:(A$(NU,LV),W,1)(X$,W,1) COMPUTER EXAMPLE '1100LH,20((A$(NU,LV))2.5):V,20H((H)1),V(21)2H((H)(A$(NU,LV))1),V(21)22:21:"LIKE THIS:"W1750:W1:(H)1:21:A$(NU,LV)2554900CP$$ PRESS IS "A$(NU,LV)".":43504200:5:16:M$" A CORRECT ANSWER ON":5:17:"THE SECOND TRY WILL BE WORTH":5:18:"THREE POINTS.":43504900W15:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU:43504260:5:16:M$:5:17:"AN INCORRECTLY SPELLED ANSWER":5:18:"WILL BE WORTH TWO POINTS.":5:19:"THE ANSWER IS "A$(NU,LV)".":43504260:5:16:M$:5:17:"AN INCORRECT ANSWER":5:18:"WILL BE WORTH ZERO POINTS.":5:19:"THE ANSWER MESSAGE 0TY4320,4330,4340,4343,4346,43494200:5:16:M$" A CORRECT ANSWER WILL":5:17:"BE WORTH FIVE POINTS.":43505:16:"I'M SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:M$" TRY AGAIN<":>MUY BIEN<":4220 |6  NEG REIN ROUTINE _ W((2)4)1:W4263,4264,4265,4266~ M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270 M$"THAT'S NOT IT.":4270    OUTPUTNE  1:21:(5):5 h RANDOM POS REIN h rW((3)6)1:W4212,4213,4214,4215,4216,4217 tM$">BIEN HECHO<":4220 uM$">ES VERDAD<":4220 vM$">EXCELENTE<":4220 wM$">BIEN HECHO<":4220 xM$">BIEN HECHO<":4220 yM$"88 L(25):L02040: I0L1:X$X$((512I)):I_ X$X$" ":6500:X$(X$,(X$)1)e  INST MODE F$"EX.S":L1225:R(PRT1)6FLAGLV 8000   UPDATE PTS   CLEAR ENTRY LI VX1X(NU):Y1Y(NU):X2X166:Y2Y159:X3105:Y355:PA2:13000k [3:95,52181,52181,11595,11595,52q `  INPUT CONTROL X$"_" H,20((A$(NU,LV))2.5):V,20 H((H)1),V(21)3H((H)(A$(NU,LV))1),V(21)3 378;(1)1* 212:11:"ONE MOMENT, PLEASE."H P10000:1000:NU(PRT2)1X Z3000:4500q dNUNU1:FLAG3:3000{ x6000 (16):D$"RUN DRIVER.S"   PICTURE MODE 1::D$"BLOAD PIC.EX,A$7C00" MD2:13025:38400  LA> 10"(4)"SAVE EXAM.S":/ 27400:S D$(4):A$(12,3),M%(12),S$(30)~U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)             (((X$,I,1)" ")(T1))İ6550-I:X$T$:ZT$T$(X$,I,1):(X$,I,1)" "T1:6555bT0hX OUTDATA ROUTINE bD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSE"F$v7050J1TS:S$(S$(J)Y4PTSPTS24400)4000:4100:/d8nCT2Zx(X$,CT,1)" "CTCT1:6520yzCT1(X$)X$"_X":6530}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ") QUIRY ROUTINE uTY1/z1100:5100:2000LX$"_"TY7:4300:6040X$A$(NU,LV)İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$(NU,LV)İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3 TWW1:A$(NU,LV)A$(NU,LV)(((A$,W,1))128):5140V A$(NU,LV)A$(NU,LV)(A$,W,1)]WcO~P EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p A$(NU,LV))2)(A$(NU,LV))100.5):AG0;PS(A$(NU,LV))kW1PS:(A$(NU,LV),W,1)(X$,W,1)AGAG1rWSC%(100AGPS.5):SPELL(SC%PR%) PARSE ROUTINE A$A$(NU,LV):A$(NU,LV)""4W1(A$):(A$,W,1)(19):D%(W)W:W:4840W1NGX0((1)N)1:J1W1:X0D%(J)4820ZJ:D%(W)X0:W`$ PRESS RETURN ROUTINE .0:3:1:1250,170837:24:A$:A$(13)4920B1:0:1250,170:3: SPELL CHECK 'PR%(((18:"YOU GET ZERO POINTS.":4350V4200:4:16:M$" YOU GET THREE POINTS.":4350\f4900W14:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU: RANDOM ORDERING (LS20)āW1N4260:3:16:M$" YOU GET TWO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV)".":43504260:3:16:M$" YOU GET ZERO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV)".":4350!5:16:"THE ANSWER IS:":HH:17:A$(NU,LV)".":5:.10$(4)"SAVE DRIVER.S":1 27400:U D$(4):A$(12,3),M%(12),D%(12)U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)631 (12MD13035,13040,13045>238407,32:38409,63:38411,64:c238407,64:38409,95:38411,124:238407,32:38409,63:38411,124:556555 38407,32:38409,63:38411,124:LY u 0LjLY Y U$(19):CP$(16):TU$(11):TL$(12)256):ADRS,X1(256(ADRS7))2XLX2X1:ADRS11,(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:2'I<(3:H(2),V(6)1H(8),V(6)1:H(30),V(6)1H(35),V(6)1F(3:8:"POINTS":31:8:"TIME":5:6:"0":31:6:"00:00"*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3:LA$:D$"CLOSE STAT"-m'LS21PRT3:10097En'LS19PRT2:10097Oo'PRT1Uq't'D$"OPEN FILE"LS",L78":D$"READ FILE"LS",R0":N:I1N:D$"READ FILE"LS",R"I:J13:A$(I,J):J:I:D$"CLOSE FILE"LS~'H38114:VH1:TIH5:MXLNH4:THH10:TVTH1;:W:1:D$"OPEN RECORD,L12":D$"READ RECORD,R"LS:J13:SC$(J):J:SC$(LV)(SC%):D$"WRITE RECORD,R"LS:J13:SC$(J):J:D$"CLOSE RECORD"4900::'#' INIT MODE j'D$"BLOAD INKEY.S"k'D$"OPENSTAT":D$"READSTAT":LS:LV5|r5:5:"PERCENTAGE............."SC%:5:7:"REPEAT LESSON?........."RP$:5:6:"TIME ELAPSED..."T1" MIN. "T0" SEC."|1:12:MISSED08072 1:9:"WORDS MISSED":1:9:(15);(15)"____________";(15);(16):W1MISSED:1:9W:A$(M%(W),LV): @J(16)7ORP$"NO":MISSED2RP$"YES"TT9TI:T0((T9)176)10((T91)176):T1((T93)176)10((T94)176)YSC%(PTS(5N)100.5)^1:2:NAME$":"h5:4:"ACCUMULATED POINTS....."PTS:5:6:"POSSIBLE POINTS........"Nʻ٠ŠήŠŠԂΠ҂ƠŠԠłŠŠ‚͠ΠΠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠήҠλ٠ŠήŠŠł͠ƠŠ‚ŠŠ‚͍ΠΠΠŠŮŠŠԂנ٠ϠԠǠӂҠՠ̠ŠĠϠ٠ΠήŠŠԂΠ̂ƠŠԠł΍ήŠԠӠĠǮŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠȠΠŠŮŠŠԠנ٠ϠԂǠӂ٠ŠήŠŠԂΠ҂ƠŠԠłŠŠ‚͠ΠȠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠήҠλ٠ŠήŠŠł͠ƠŠ‚ŠŠ‚͍ΠȠΠŠŮŠŠԂנ٠ϠԠǠӂҠՠ̠ŠĠϠ٠ΠήŠŠԂΠ̂ƠŠԠł΍ȮŠԠӠĠǮՠ̠ŠĠϠ٠ΠήŠŠԂΠ҂ƠŠԠłΠȮŠԠӠĠǮłΠȠΠŠŮŠŠԠנ٠ϠԂǠӂՠ̠ŠĠύ٠ΠήŠŠł͠ƠŠ‚ΠȮŠԠӠĠǮŠłōŠłΠȠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠŮŠŠł̂͠ƠŠłōŠĂł҂͠ƠŠłōŠłΠȠΠŠŮŠŠԠנ٠ϠԠǂӂҠλ٠ŠŮŠŠł҂͠ƠĠύ٠ŮŠŠł̂͠ƠŠłΠȮŠԠӠĠǮҠλ٠ŠŮŠŠՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ȮŠԠӠĠǮՠ̠ŠǠӂՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ȮŠԠӠĠǮȍCRL;."(S$,I,1)"}"I1S$(S$,I1)NA$(S$,I1):8760]3"(S$,I,1)"}"S$NA$(S$,2)e8":' INIT MODE j'D$"BLOAD INKEY1"o'D$"OPENSTAT":D$"READSTAT":LS:LV:D$"CLOSE STAT"q'D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$::H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):L3!J<!3:B!"PP2:I1(S$):(S$,I,1)";"I1S$(S$,I1)","(S$,I1):8730"(S$,1)";"S$","(S$,2)"((S$,I,1))32CRLCRL1$"(S$,I,1)(2)CTCT.5:PP3PP:H(PP,(CT.5))I1:6555T05@ OUTDATA ROUTINE `D$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYTS:J1TS:S$(J):J:D$"CLOSE"F$(16)8600!J1TS:S$(S$(J),2):CT0:CRL0:S$""İ8700!1:JV5:S$:CT08630,!L1CT:31:6520'zCT1(X$)X$"_X":6530T}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)v(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$:T$T$(X$,I,1):(X$,I,1)" "T1100:2000:X$A$İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3TY4PTSPTS244004000:4100:dnCT2x(X$,CT,1)" "CTCT(100AGPS.5):SPELL(SC%PR%)%B PARSE ROUTINE LA$""W1(A$(NU,LV)):(A$(NU,LV),W,1)(19)WW1:A$A$(((A$(NU,LV),W,1))128):5140 A$A$(A$(NU,LV),W,1)WOp QUIRY ROUTINE zTY1:5100nS RETURN ROUTINE )16368,08.0:3:1:1250,170Z837:24:BN$:BN$(13)4920tB0:1250,170:3:1: SPELL CHECK PR%(((A$)2)(A$)100.5):AG0PS(A$)W1PS:(A$,W,1)(X$,W,1)AGAG1WSC%ԧиݻ쁀Ĺ@@Q p"TB|>ՊD)U ػݻЈ"D?@ݻܻԪ"D?d@ݻ@?݃|@>@cE!w.Ԫժ? 8wnx?( ŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠΠΠōŮŠŠԠנ٠ϠԂǠӂ٠ŠήŠŠԂΠ҂ƠŠԠłŠŠ‚͠ΠΠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠήҠλ٠ŠήŠŠł͠ƠŠ‚ŠŠ‚͍ΠΠΠŠŮŠŠԂנ٠ϠԠǠӂҠՠ̠ŠĠϠ٠ΠήŠŠԂΠ̂ƠŠԠł΍ήŠԠӠčǮՠ̠ŠĠϠ٠ΠήŠŠԂΠ҂ƠŠԠłΠήŠԠӠčǮŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠΠΠŠŮŠŠԠנ٠ϠԂǠӂժߪתժժժժժժժݪժժծպժժݺժժպժժժժժժժժժժժժߪծժժժժժժժժժժժժժժժժժվկկժկժժժժժժժݾݺջպݺպuժժժժժժժժիծժժժժժժժժժժժժժժժժժߪժժժժժתժկժժժժժժժժժժժժժߪժժժժժժժժ@C @CC<000ժժժժժժժժ߯ժժߪժժժժժժժժժժժժߪתժժժժժ@C @CC00 ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժկժժժժժժժժժժժժժժתժժժժժժժժժժժժתժߪժժժժժժժժժժժժժժתժժժժժՂԊЂբՂԠŪѪЪժժժժժݺݺջպիݺպծݫժժժժժժժժիծժժժժժժժժժժժժժժժժժվߪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժծժժժժժժժժժժժժժժժժ ժժժժժժժժժժժժժժժժժߪתժժժժժ@C @CC00 ժժժժժժժժժժժժժժժժժժժժժժժժժߪתժժժժժժժݺժժծתժݺժժߪժժժժժժժժժժժժߪծժժժժժժժժժժժժժժժժժվծիժկժժժժժתժתժժժժժժժժժժժժժժתժժժժժՂԊЂբՂԠŪѪЪժժժժժժժתժժժժժժժժժժժժժժߪժժժժժժժժ@C @CC<000ժժժժժժժժժߪժժժժժժժժժժߪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժծժժժժժժժժժժժժժժժժ ժժժժժժ0ժժժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժߪժժժժժժժժݺժժծתժݺժժߪժժժժժժժժժժժժծժծժժժժժժժժժժժժժժժժժվվտժժժժժժժժݺݺջպիݺպծݫժժժժժժժժիծժժժժժժժժժժժժժժժժժվߪՀժժժժժժժժߪժժժժժժժժժժժժժժߪժժժժժժժժ ~@ ~~@0x0x?x?xժժժժժժժժתתժժժժժժժժժժժժߪתժժժժժ@C@@Ca00ժժժժժժժժժժժժժժժժժժժժժժիժտժժժժժժժժժ0ժժժժժժժժժժժժժժժժժժժժժժתժժժժժĠժժժժժժժתתժժժժժժժժժժժժժժժժժժժժժժժժժժժժպվտժժժժժժժժݺݺ׻պݺպծݫժժժժժժժժիծժժժժժժժժժժժժժժժժժުתժժժժժժժժժժժժժժժժժժժժժժծժժժժժժժժժժծժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժߪߪժתժժժժժ@C@@Ca00ժժժժժժժժժժժժժժժժժժժժժժժժժժժժתվժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժծժծժժժժժժժժժKEN,D$NNE,D$NNE,D$NNEN,SPRINGEN,ICH SPRINGE,WIR SPRINGEN,TRAGEN,ICH TRAGE,WIR TRAGENZ*2FX38545:230,64:ADRSFX3:ADRS1,Y1:ADRS3,Y2:ADRS5,Y3:ADRS7,(X1256):ADRS8,(X2256):ADRS9,(X3256):ADRS,X1(256(ADRS7)){2XLX2X1:ADRS11,D$"CLOSE NAMEFILE"+t'LS21PRT3:10110Cw'LS19PRT2:10110Mz'PRT1y~'H38089:VH1:H2,160:H3,223:H4,20'N6:I1N:J13:A$(I,J):J:IT'SWEATER,DER SWEATER,DIE SWEATER,PANTOFFEL,DER PANTOFFEL,DIE PANTOFFELN,DICKE,DICKE,DICٍ΍z#0  ٮǠ Ӡ ήӠ ٮɠ! ͮǠ" îϠҠ  ήƠخƠ ήǠ خǠ ήɠ خɠîؠ  îҮƠ ͮƠҮɠͮɠήӠٮƠ !ų"ŴŠĠԠ ҮӠ ͮӠ ٮӠҮǠűήƠήǠήɠ ŲϠΠ ؠŠٱخӠՠԀ_`ĠĂ=`]3wn;w.`ժU*U*U*U*U  ySGl]Kp'5M_Щ U*U*U*T@*T*UЂ@`Q  ?>n] l)x<ݻԪ(U*U*P* (?nnpݛR*U*U*@**@2?d ժU*U*U*UT*U  4,X3(256(ADRS9)):PA13010,13015A2ADRS6,32:3,32:13020]2ADRS6,32:3,64:13020o2FX:230,32:u22MD13035,13040,13045238407,32:38409,63:38411,64:238407,64:38409,95:38411,124:238407,32:38409,63:38411,124:ԠӮƠՠΧԍנŠһӠғœԓՓғΧϠԍЮΠՠŠӠ̠ӠŠғœԓՓғΧٮٮϠŠՠŠΠǍΠӻӻĠӠ΍ŠΠŠĠĨө٠ĠٮΠӂғœԓՓғΧϠҠҠ҂Ս̠ŠĻĠ̠ŠӍҠŠԠƠӠ͍Ӡժ@C @@C3000ժժժժժժժժߺժժժժժժժժժժժժժժߪժתժժժժժ ~@ ~~@0`x?0ժժժժժߪկժժժժժժժժժժժժժժժժժժߪժժժժժժժպտݺպ׿ժժժժժժժժժժժժժժժժժժߪժժժժժժժժժԂЊԂъԂժժժժժժժתժߪժժժժժժժժժժժժժתߪժתժժժժժ0ժժժժժժժժתժվժժժժժժժժժժժժժߪժժժժժժݺݫպuժժժժժժժժիծժժժժժժժժժժժժժժժժժߪվկժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪվժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ0ժժժժժժժժߪվժժתժժժժժ ~@ ~~@0`x?0ժժժժժժժժߪկժժժժժժժժժժժժժժժժժתժժժժժժժժݪժժծպժժݺժժպժժժժժժժժժժժժծծժժժժժժժժժժժժժժժժժվկկתվժժժժժժժݾݺջպъԂժժժժժժժתժߪժժժժժժժժժժժժժժתժժժժժ0ժժժժժժժժתժտժժժժժժժժժժժժժߪժժժժժժժժ@C @@C3000ժժժժժժժժ߾ժժժժժժժժժժժժժժߪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪվժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ0ժժժժժժժժߪվժժժժժժժժժժժժժժժժժժߪժժժժժժժժժԂЊԂ딅$ [`ɀ ( L ` ` ` `iɺ;)iɶ))iɺ)iɺ)$ [ L `L`  ,Lٔ H h,0b .L ,ɍ{ɈWɕ}ɛrLLɪ)    " L    " L `L     " Lbm 'р*P*@*U (Q@?|@ЀU*U*U*UP*UP`? ܉@pѪժ|煀ժݛ?ԪժՄ @Oχ ?@ݛ= բժՊժ*u@_ժժ>(Պ?1M@ 6@`NY;w.ТՊ@X;vl]8w.ՂpĠĂ=`]9wn;wժT*!T*TT\Gl]| Ԏ*U*U*U*T*U*U@Q x*U"t=n] T\?OGݻԪ*U*U*P*ЀFAP  ?` `p.10$(4)"SAVE DRIVER.S":1 27400:U D$(4):A$(12,3),M%(12),D%(12)U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)631 (1:3,32:13020)2ADRS6,32:3,64:13020;2FX:230,32:A2[2MD13035,13040,13045238407,32:38409,63:38411,64:238407,64:38409,95:38411,124:238407,32:38409,63:38411,124:.((X1)4)631 (1łŠŠ‚͠ΠȠΠŠŮ٠ŠήŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠȠΠŠŮŠŮ٠ŠήŠŠł͠ƠŠ‚ŠŠł͠ƠŠ‚ΠȠΠŠŮ٠ŠήŠŠԂΠ҂ƠŠԠŮŠŠł҂͠ƠŠłōŠłΠȠΠŠŮ٠ŠŮŠŠł̂͠ƠŠłōŠłΠȠΠŠ̠ŠĂ̠΂ΠȠΠŠŮ٠ŠŮŠŠł҂͠ƠŠłōŠłΠȠΠŠŮ٠ĠŠŠłϠŠōƠŠŮŠŠłŠĠŠ΂ΠȠΠŠŮ٠ŠŮŠŠ̂ͮŠԹ٠ŠŮŠŠ΂ΠȠΠŠŮ   MENU" c ' '::\ 'D$(4):D$"MAXFILES 2":D$"BLOAD ASSEMBLE":D$"BLOAD FLEX" !'D$"BLOAD SHAPES,A$300":232,0:233,3 $'D$"BLOAD GEN":31743:24579 t':J:W:(4)"CLOSE RECORD"D$"BLOAD PIC.LOGO":38400:W15000:W &(16) 'V06- (13:V0:" COPYRIGHT 1984"Z *8:V02:"NATIONAL TEXTBOOK COMPANY" ,10:V04:"4255 WEST TOUHY AVENUE" .4:V06:"LINCOLNWOOD, ILLINOIS 60646-1975" 011:V08:"ALL RIGHTS RESERVED" 2W15000:W P(4)"RUN 27396 :10000$(16)n(4)"OPEN NAMEFILE":(4)"WRITE NAMEFILE":"X":(4)"CLOSE NAMEFILE"(4)"OPEN RECORD,L12":W112:D$"WRITE RECORD,R"W:J13:"NA":J:W:(4)"CLOSE RECORD"D$"BLOAD PIC.LOGO":38400:W15000:W &  ٠ŮŠŠ҂͠ƠŠ΂ΠȮōԠӠĠǮՠ̠ŠĠύ٠ŮŠŠՠ̠ŠĠύ     D ` hL%cL%c `C` `u8`96a7 ,R,W Uc b,P`ɭӠҠΠΠ e((*)  b`+*HN OI*P,h*,H,``0ɛ`` ɍ d$h`ɐ 6+`` qdL` dL` {d" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"  <"< "><  """"""2,,""" **>>&20"2*&" " >> ">> """>""""""<  >> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,f`p% "dLp"% $`"H d*+)hi#"H d!*0+i+id`H#d` dhd``"%$$%H dhi#`$% dc`,d`*+Me`,d`PMc`*!0 +i+`%J) b`+dje *`PPPP򠥹͠`0t`L"$!e (' !!%##`f``" e$$ ",r`0s`t`(!#L"L `$b` .c a a% ` `c ```L `a`,g`Pg`A[8 & & &mh`)mi` de$*+Me`$(Mc`,d`p ,c`pP!pA* +i+Me`$`r`s`"t``,Tb`@0,U`* dL" {dLB$!$$"% %L"c``g``g``,,Ldҩc``@a``d`e`` qdLXd`e``s`$t`%L$td``e``g``f``Yd``e``L$e (' 8!$!$%",rL` !%# "dL`5 )a5`)a`W L|c JaHIaHa``Gb~aaaab#b+b@bdHbPbXbsb{bbbbbbGbbcGb+cRc$a``1 ` em`eh`i`` b`` ,r`0r`b`j`$s`%t``@b``s`$$hLdd`e``,r`Sj`b` L`L ` hL%cL%c `C` `u8`96a7 ,R,W Uc b,P`ɭӠҠΠΠ e((*)  b`+*HN OI*P,h*,H,``0ɛ`` ɍ d$h`ɐ 6+`` qdL` dL` {d     =l] 5@bݻP*U*U**T*UЂ 8P ?\ x(M*wݻԪ!U*U@* P"?n]@MݣP*U*U*@*U*рP2?d U*U*U*UU*U*?`ժՊpբ@@?ՠժx翀 ժݛժ"D ?zfݻݻ€"@?d Ԫݻ?\;͛셀x@@@|d]#w.@`?@E;wn`ЪPԀl]ĠĂ=l];wn:wRժ U*U*U*U U*U** ?ݻ~G@pŢժυ@ժݛ?Ūժ~!L0ݛ=(բժpժU*5+m Ԍ(PЪժ>(!5 ݻĸ@sP (D?Պh(M~޻Ļ9,63:38411,124:556555 T0 AT":D$"READSTL2,3),M%(12),S$(30)~U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,13015U2ADRS6,32:3,32:13020q2ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,13045238407,32:38409,63:38411,64:238407,64:38409,95:38411,124:238407,32:3840łŠŠ‚͠ΠΠΠŠŮ٠ŠήŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠΠΠŠŮŠŮ٠ŠήŠŠł͠ƠŠ‚ŠŠł͠ƠŠ‚ΠΠΠŠŮ٠ŠήŠŠԂΠ҂ƠŠԠŮŠŠł҂͠ƠŠłōŠłΠΠΠŠŮ٠ŠŮŠŠł̂͠ƠŠłōŠłΠΠΠŠ̠ŠĂ̠΂ΠΠΠŠŮ٠ŠŮŠŠł҂͠ƠŠłōŠłΠΠΠŠŮ٠ĠŠŠłϠŠōƠŠŮŠŠłŠĠŠ΂ΠΠΠŠŮ٠ŠŮŠŠ̂ͮŠԹ٠ŠŮŠŠ΂ΠΠΠŠŮ  ͟͞`ȱ&hJ,p)L◭ H)h)Lh @HL @00@x 0x00` @0fL JLɖ JL㖩 L  &H JLLŗ h&L@LCL͠LXL    ՠ̠ŠĠϠ٠ΠήŠŠԂΠ҂ƠŠԠłΠήŠԠӠĠǮłΠΠΠŠŮŠŠԠנ٠ϠԂǠӂՠ̠ŠĠύ٠ΠήŠŠł͠ƠŠ‚ΠήŠԠӠĠǮŠłōŠłΠΠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠŮŠŠł̂͠ƠŠłōŠĂł҂͠ƠŠłōŠłΠΠΠŠŮŠŠԠנ٠ϠԠǂӂҠλ٠ŠŮŠŠł҂͠ƠĠύ٠ŮŠŠł̂͠ƠŠłΠήŠԠӠĠǮҠλ٠ŠŮŠŠՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ήŠԠӠĠǮՠ̠ŠǠӂՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ήŠԠӠĠǮŮŠŠԠנقϠԠǠӂҠλ٠ŠŮŠŠ̂ͮŠŠ̠ŠĂ̠΂ΠΠΠŠŮŠŠԠנ٠ϠԂԠנ٠ϠԠǂӂҠλ٠ŠŮĠŠłłϠŠŠƠŠŮŠŠŠĠ΂Π΍ΠŠɠŠ͍̂ƠŠ΂ΠήŠԠӠĠǮҠλ٠ŠŮŠŠ҂͠ƠŠ΂ΠΠΠŠŮŠŠłŠĠŠ҂͠Ơō΂ΠήŠԠӠĠǮՠ̠ŠĠϠ٠ŮŠŠ̂ŠŠ٠ŮŠŠ҂͠ƠŠ΂ΠήōԠӠĠǮՠ̠ŠĠύ٠ŮŠŠՠ̠ŠĠύ     LL=a ?@ح  ɀLh ) iim iL}L}8  `UպԻݻĻ܁T |ͪՂr=*ՊV*.ݻ@@P"D??? 0~G.ݻӀ𿕀΃@AЪ@"D?Ѐ@ǂݻ"@(?x*U"t=n] T\?OGݻԪ*U*U*P*ЀFAP  ?` `p?  p?Wz=ݻǀЪ T*J*``P(Q@ ?L]`T*U*U*U@*UP"?U*U*U*U U*UJR ԪժqxpՀB@ըժݛ= ըժՂժUvP1H(pO ݻĀ?|l];w.畀@@@@ab]0w.Ъժר0?`:wn8wԪ@*P*Հp ĠՊĂ=l];w'(U*U*U U(U*U*pqU I=n] R?*]<ݻ*U*U*T*UЂ`@P  ?ŪժԪ.Q6oݛ=(ժՊИлݻ݀U*7êժ=*ՊS?8@8ݻ臀 4P* D?`p#GjݻŢĨΏ08Ѫ@"D ?ՂpݻݻЀ"@(?$.QݓQtQݔ.t RIVER.F":1 27400:U D$(4):A$(12,3),M%(12),D%(12)U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)631 (1ADRS6,32:3,64:13020)2FX:230,32:/2I2MD13035,13040,13045m238407,32:38409,63:38411,64:238407,64:38409,95:38411,124:238407,32:38409,63:38411,124:556555 .QݓQtQݔ.t Q4)631 (1łŠŠ‚͠ΠΠΠōŮ٠ŠήŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠΠΠōŮŠŮ٠ŠήŠŠł͠ƠŠ‚ŠŠł͠ƠŠ‚ΠΠΠŠŮ٠ŠήŠŠԂΠ҂ƠŠԠŮŠŠł҂͠ƠŠłōŠłΠΠΠŠŮ٠ŠŮŠŠł̂͠ƠŠłōŠłΠΠΠŠ̠ŠĂ̠΂ΠΠΠŠŮ٠ŠŮŠŠł҂͠ƠŠłōŠłΠΠΠŠŮ٠ĠŠŠłϠŠōƠŠŮŠŠłŠĠŠ΂ΠΠ΍ŠŮ٠ŠŮŠŠ̂ͮŠԹ٠ŠŮŠŠ΂ΠΠΠŠŮ    `  Δ,L,,ɍRɈV͔ɕtɛi˔̔ҬLd) ܔ ΔL ` Δ ܔ ΔLL  ܔ ΔLmɔ$ʔ [` ` ` `ɀ ΔL Ҡλ٠ŠήŠŠł͠ƠŠ‚ŠŠ‚͍ΠȠΠŠŮŠŠԂנ٠ϠԠǠӂҠՠ̠ŠĠϠ٠ΠήŠŠԂΠ̂ƠŠԠł΍ȮŠԠӠčǮՠ̠ŠĠϠ٠ΠήŠŠԂΠ҂ƠŠԠłΠȮŠԠӠčǮłΠȠΠŠŮŠŠԠנ٠ϠԂǠӂՠ̠ŠĠύ٠ΠήŠŠł͠ƠŠ‚ΠȮŠԠӠĠǮŠłōŠłΠȠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠŮŠŠł̂͠ƠŠłōŠĂł҂͠ƠŠłōŠłΠȠΠŠŮŠŠԠנ٠ϠԠǂӂҠλ٠ŠŮŠŠł҂͠ƠĠύ٠ŮŠŠł̂͠ƠŠłΠȮŠԠӠĠǮҠλ٠ŠŮŠŠՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ȮŠԠӠĠǮՠ̠Šˍӂՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ȮŠԠӠčǮŮŠŠԠנ٠ςԠǠӂҠλ٠ŠŮŠŠ̂ͮŠŠ̠ŠĂ̠΂ΠȠΠŠŮŠŠԠנ٠ϠԠǂԠנ٠ϠԠǂӂҠλ٠ŠŮĠŠłłϠŠŠƠŠŮŠŠŠĠ΂ΠȠ΍Š̠Š͍̂ƠŠ΂ΠȮŠԍӠĠǮҠλ٠ŠŮŠŠ҂͠ƠŠ΂ΠȠΠŠŮŠŠłŠĠŠ҂͠Ơō΂ΠȮŠԠӍĠǮՠ̠ŠĠϠ٠ŮŠŠ̂ŠŠ٠ŮŠŠ҂͠ƠŠ΂ΠȮōԠӠĠǮՠ̠ŠĠύ٠ŮŠŠՠ̠ŠĠύ      OUTDATA ROUTINE AbD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYhlTS:J1TS:S$(J):J:D$"CLOSE"F$rv7050xJ1TS:S$(S$(J),2):CT0:CRL0:S$""İ71001:JV5:S$:CT07080L1CT:3:H(H(1,L)),V(JV5)H(H(2,L)),V(JV5):MBER A B C">f5C9:"------ ----------"DkpI112:C99((I)):I;:W9C921C9(SC$(I,1)):W:".";:W:SC$(I,1);u26C9(SC$(I,2)):SC$(I,2);:30C9(SC$(I,3)):SC$(I,3):Iz(4)"PR#0":(4)"PR#6" X 100 (4)"PR #6"*44 PRINTER MODE E5(4)"PR #1"a9LN$LN$" ":NA$NA$" ">((NA$,1))65NA$(NA$,(NA$)1)C((LN$,1))65LN$(LN$,(LN$)1)R1:1:NA$:1:LN$W\5C9:"LESSON PERCENTAGE":5C9:"NU:W:".";:W:SC$(I,1);Y26C9(SC$(I,2)):SC$(I,2);:30C9(SC$(I,3)):SC$(I,3):Iq0:3:1:1250,17037:24:A$:A$(13)2072(16)3:5:"DO YOU WISH TO PRINT THE SUMMARY?";:A$:A$"Y"A$"N"2076(16)A$"Y"2 SPANISH"u5C9:C85:"LESSON":C920:C85:"PERCENTAGE":5C9:C86:"NUMBER":C920:C86:"A B C"5C9:C86:(15);(15)"______":C920:C86:"__________"(15);(16) I112:C8I7:C99((I)):I;:W9C921C9(SC$(I,1))6):C83:C93(16){D$"OPEN RECORD,L12":I112:D$"READ RECORD,R"I:J13:SC$(I,J):J:I:D$"CLOSE RECORD"D$"OPENNAMEFILE":D$"READ NAMEFILE":NA$:LN$:D$"CLOSE NAMEFILE"1:1:NA$:1:LN$ 6:2C8:"PERFORMANCE SUMMARY: (13)12401:CP$:? WANT EXAMPLES??? J(16)(5:5:"DO YOU WANT TO SEE EXAMPLES?":5:7:"(TYPE 'Y' OR 'N')";:A$:A$"Y"A$"N"1320<A$"N"ĺ(16):D$"RUN DRIVER."E$w EVALUATION MODE (11,12:X4,12:800!iX$""1125{tLN$(19)X$::D$"OPEN NAMEFILE":D$"WRITE NAMEFILE":NAME$:LN$:D$"CLOSE NAMEFILE"~ INSTRUCTION SCRN CP$:F$"DIR":L1470:R1:70001:0:3:1245,1401200,170 30:24:A$:A$ME$ Q(16)4T3:9::"TYPE YOUR FIRST NAME"XV3:10:"AND PRESS ' RETURN':"`X38089:X,26:X1,9:X2,193:X3,218:X4,9:800bX$""1110cNAME$(19)X$d3:12:"TYPE YOUR LAST NAME"e3:13:"AND PRESS ' RETURN':"gX' "; X38089:X,34:X1,10:X2,193:X3,195:X4,1:800J X$""910i (X$)127X$((X$)128) LV(X$)64:1000:  WRITE TO STAT MODE  D$"OPENSTAT":D$"WRITE STAT":LS:LV:LA$:D$"CLOSE STAT" L GET NA00:(16):D$"RUN EXAM."E$8  INKEY1 DRIVER B %X$""` *37888:LN(25):LN0830 4W0LN1:X$X$((512W)):W >  WHAT LEVEL?? (16) 3:9:"LEVELS: A,B,C" 3:11:"ENTER CHOICE AND PRESS ' RETURN5İ2000: E(X$), E233,234,235,236P E$"S":LA$"SPANISH":LS1:240s E$"F":LA$"FRENCH":LS2:240 E$"G":LA$"GERMAN":LS3:240 E$"I":LA$"ITALIAN":LS4:240 :D$"BLOAD GEN."E$",A$6803" 900:A$"X"İ1100:1200 13 CLOTHING"5 FH5:V10:"3. GERMAN: CLOTHING"` ZH5:V12:"4. ITALIAN: CLOTHING"n H5:VV1 H5:V18:"ENTER CHOICE AND" H5:V19:"PRESS ' RETURN': " X38089:X,20H:X1,V18 800:(X$)1(X$)4210 (X$) (1);0;(16)( D$"BLOAD INKEY1"^ 2:1:" BASIC VOCABULARY BUILDER: DEMO DISK" 2:1:(15);(15)"_____________________________________";(15);(16) HH6:VV1 H5:V6:"1. SPANISH: CLOTHING" 2H5:V8:"2. FRENCH:  10 (4)"SAVE MENU":- 27400:9 D$(4)F H10:V1 D$"OPEN NAMEFILE":D$"READ NAMEFILE":A$:D$"CLOSE NAMEFILE"S$(24),SC$(12,3)U$(19):CP$(16):TU$(11):TL$(12) I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)       łΠΠΠŠŮŠŠԠנ٠ϠԂǠӂՠ̠ŠĠύ٠ΠήŠŠł͠ƠŠ‚ΠήŠԠӠĠǮŠłōŠłΠΠΠŠŮŠŠԠנ٠ϠԂǠӂҠλ٠ŠŮŠŠł̂͠ƠŠłōŠĂł҂͠ƠŠłōŠłΠΠΠŠŮŠŠԠנ٠ϠԠǂӂҠλ٠ŠŮŠŠł҂͠ƠĠύ٠ŮŠŠł̂͠ƠŠłΠήŠԠӠĠǮҠλ٠ŠŮŠŠՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ήŠԠӠĠǮՠ̠Šˍӂՠ̠ŠĠύ٠ŮŠŠł҂͠ƠŠł΍ήŠԠӠčǮŮŠŠԠנ٠ςԠǠӂҠλ٠ŠŮŠŠ̂ͮŠŠ̠ŠĂ̠΂ΠΠΠŠŮŠŠԠנ٠ϠԠǂԠנ٠ϠԠǂӂҠλ٠ŠŮĠŠłłϠŠŠƠŠŮŠŠŠĠ΂ΠΠ΍Š̠Š͍̂ƠŠ΂ΠήŠԍӠĠǮҠλ٠ŠŮŠŠ҂͠ƠŠ΂ΠΠΠŠŮŠŠłŠĠŠ҂͠Ơō΂ΠήŠԠӍĠǮՠ̠ŠĠϠ٠ŮŠŠ̂ŠŠ٠ŮŠŠ҂͠ƠŠ΂ΠήōԠӠĠǮՠ̠ŠĠύ٠ŮŠŠՠ̠ŠĠύ       `ɀ  L ` ` ` `iɺ;)甭iɶ))蔭iɺ)ꔭiɺ)딭씅$ [ Lz `L`"  ,LД H h,0b %L ,ɍrɈNɕtɛiL})   L   L `L    Lbm┅$ [ "T1:6555T09X OUTDATA ROUTINE dbD$"OPEN"F$",L"L1:D$"READ"F$",R"R:TYlTS:J1TS:S$(J):J:D$"CLOSE"F$v7050J1TS:S$(S$(J),2):CT0:CRL0:S$""İ71001:JV5:S$:CT07080%L1CT:3:H(H(TCT1:6520+zCT1(X$)X$"_X":6530X}X$(X$,(X$)(CT1)):X$"_"X$:CT(X$)z(X$,CT,1)" "CTCT1:6530X$(X$,CT):T$"":T0:I1(X$):((X$,I,1)" ")(((X$,I,1)" ")(T1))İ6550I:X$T$: T$T$(X$,I,1):(X$,I,1)":4300:6040rX$A$İ5000:TY3:TYTYSPELL:4300:4100:2000:X$A$İ5000:TY5:TYTYSPELL:4300:4100:6040TY1İ4300:PTSPTS5:6050TY6:4300:PTSPTS3TY4PTSPTS244004000:4100:dnCT2 x(X$,CT,1)" "CA$A$(A$(NU,LV),W,1)W#O>P EXTRA ROUT ZX10:Y10:X2137:Y2126:X380:Y335:PA2:13000:D$"BLOAD PIC.7A,A$7C00":MD2:13025:38400:4900:1:5:(6):p QUIRY ROUTINE uTY1z1100:5100:2000 X$"_"TY70PS(A$(NU,LV))?W1PS:(A$,W,1)(X$,W,1)AGAG1FWoSC%(100AGPS.5):SPELL(SC%PR%)u PARSE ROUTINE A$""W1(A$(NU,LV)):(A$(NU,LV),W,1)(19)WW1:A$A$(((A$(NU,LV),W,1))128):5140 1N.X0((1)N)1:J1W1:X0D%(J)4820AJ:D%(W)X0:WGi$ PRESS RETURN ROUTINE .0:3:1:1250,170837:24:BN$:BN$(13)4920B1:0:1250,170:3: SPELL CHECK PR%(((A$)2)(A$)100.5):AG:":HH:17:A$(NU,LV):5:18:"YOU GET ZERO POINTS.":4350p4200:2:16:M$" YOU GET THREE POINTS.":4350v4900W14:1:W15:(5):W/0:MISSEDMISSED1:M%(MISSED)NU:(LS20)āW1N:D%(W)W:W:4840W:16:M$" TRY AGAIN<":43504260:3:16:M$" YOU GET TWO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):43504260:3:16:M$" YOU GET ZERO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):4350;5:16:"THE ANSWER ISAT'S NOT IT.":4270%BHH(20.5(A$(NU,LV)))mTY4320,4330,4340,4343,4346,4349,43474200:5:16:M$" YOU GET 5 POINTS.":43505:16:"I AM SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5RECHT<":4220* xM$"GUT GEMACHT<":4220D yM$"SEHR GUT<":4220J |h  NEG REIN ROUTINE W((2)4)1:W4263,4264,4265,4266 M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270M$"TH"IN.G":L1150:RLV(PRT1)3& 7000,  2 G 5:6:PTS" ":M ` 1:21:(5):f h rW((3)6)1:W4212,4213,4214,4215,4216,4217 tM$"GUT<":4220 uM$"DAS IST RICHTIG<":4220 vM$"AUSGEZEICHNET<":4220 wM$"DU HAST _"5 H,20((A$(NU,LV))2.5):V,20:MXLN,39(H)o H((H)1),V(21)1H((H)(A$(NU,LV))1),V(21)1z 37888 L(25):L02040 I0L1:X$X$((512I)):I X$X$" ":6500:X$(X$,(X$)1)  INST MODE  F$NU" $  PICTURE MODE E 1::D$"BLOAD PIC.1,A$7C00"\ MD2:13025:38400b h L VX1X(NU):Y1Y(NU):X2X165:Y2Y162:X3104:Y350:PA2:13000 [3:92,47178,47178,11792,11792,47 `  INPUT CONTROL  X$"7 I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)\ X(X)((X1)((X1)4)4)701w Y(X)((X1)4)631 P10000:1000:4800 U(16);(1)1 Z3000:LS7İ5200 _10300 dN01N:NUD%(N0) x6000 N0 8000 D$"RUNME 10$(4)"SAVE DRIVER.G":1 27400:U D$(4):A$(12,3),M%(12),D%(12) D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE":4:9:NAME$":":4:12:"YOUR LESSON WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)         H:17:A$(NU,LV):5:18:"YOU GET ZERO POINTS.":4350k4200:4:16:M$" YOU GET THREE POINTS.":4350q{4900W14:1:W15:(5):W/0:MISSEDMISSED1:M%(MISSED)NU: RANDOM ORDERING (LS20)āW1N:DM$" TRY AGAIN<":4350{4260:3:16:M$" YOU GET TWO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):43504260:3:16:M$" YOU GET ZERO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):435065:16:"THE ANSWER IS:":HNOT IT.":4270 =HH(20.5(A$(NU,LV)))hTY4320,4330,4340,4343,4346,4349,43474200:5:16:M$" YOU GET 5 POINTS.":43505:16:"I AM SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:":4220$ xM$">BIEN HECHO<":4220? yM$">MUY BIEN<":4220E |c  NEG REIN ROUTINE W((2)4)1:W4263,4264,4265,4266 M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270M$"THAT'S IN.S":L1150:RLV(PRT1)3% 7000+  1 F 5:6:PTS" ":L _ 1:21:(5):e h rW((3)6)1:W4212,4213,4214,4215,4216,4217 tM$">BUENO<":4220 uM$">ES VERDAD<":4220 vM$">EXCELENTE<":4220 wM$">TIENES RAZ$N<"4 H,20((A$(NU,LV))2.5):V,20:MXLN,39(H)n H((H)1),V(21)1H((H)(A$(NU,LV))1),V(21)1y 37888 L(25):L02040 I0L1:X$X$((512I)):I X$X$" ":6500:X$(X$,(X$)1)  INST MODE  F$"NU" $  PICTURE MODE D 1::D$"BLOADPIC.1,A$7C00"[ MD2:13025:38400a g L VX1X(NU):Y1Y(NU):X2X165:Y2Y162:X3104:Y350:PA2:13000 [3:95,45181,45181,11795,11795,45 `  INPUT CONTROL  X$"_7 I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)\ X(X)((X1)((X1)4)4)701w Y(X)((X1)4)631 P10000:1000:4800 U(16);(1)1 Z3000:LS7İ5200 _10300 dN01N:NUD%(N0) x6000 N0 8000 D$"RUNME 10$(4)"SAVE DRIVER.S":1 27400:U D$(4):A$(12,3),M%(12),D%(12) D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE":4:9:NAME$":":4:12:"YOUR LESSON WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)    :38411,64:1238407,64:38409,95:38411,124:V238407,32:38409,63:38411,124:556555 38407,32:38409,63:38411,124: u u 0LjLY u 0LLYOUR LESSON WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)ӠӍӠӍύ̠ύӠӍӠӍӠӍύ̠ύӠӍӍԣ΍̠ԣ΍ӠӍō̠ōӠӍύ̠ύӠӍӠӍӍӠӍӠӍύ̠ύӠ   "TR#S BIEN<":4220 |7  NEG REIN ROUTINE ` W((2)4)1:W4263,4264,4265,4266 M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270 M$"THAT'S NOT IT.":4270   HH(20  5:6:PTS" ":" 5 1:21:(5):; hn rW((3)6)1:W4212,4213,4214,4215,4216,4217 tM$"BIEN<":4220 uM$"C'EST VRAI<":4220 vM$"EXCELLENT<":4220 wM$"VOUS AVEZ RAISON<":4220 xM$"BIEN FAIT<":4220 yM$LN,39(H)D H((H)1),V(21)1H((H)(A$(NU,LV))1),V(21)1O 37888e L(25):L02040 I0L1:X$X$((512I)):I X$X$" ":6500:X$(X$,(X$)1)  INST MODE F$"IN.F":L1150:RLV(PRT1)3 7000  NU"  0 1::D$"BLOAD PIC.1,A$7C00"G MD2:13025:38400M S L VX1X(NU):Y1Y(NU):X2X165:Y2Y162:X3104:Y350:PA2:13000 [3:92,47178,47178,11792,11792,47 `  X$"_" H,20((A$(NU,LV))2.5):V,20:MX7 I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)\ X(X)((X1)((X1)4)4)701w Y(X)((X1)4)631 P10000:1000:4800 U(16);(1)1 Z3000:LS7İ5200 _10300 dN01N:NUD%(N0) x6000 N0 8000 D$"RUNME 10$(4)"SAVE DRIVER.F":1 27400:U D$(4):A$(12,3),M%(12),D%(12) D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE":4:9:NAME$":":4:12:"YOUR LESSON WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)           202ADRS6,32:3,64:1302002FX:230,32:62P2MD13035,13040,13045t238407,32:38409,63:38411,64:238407,64:38409,95:38411,124:238407,32:38409,63:38411,124:J:D$"CLOSE RECORD"4901((X1)4)632 (16) 甘L ` ` ` `ޔiޔɺ;)ޔߔiߔɶ))ߔiɺ)ᔭiɺ)┭㔅$ [ޔ Lq `L`Ո`  ,Lǔ H h,0b L ,ɍiɈEݔɕkɛ`۔ܔ)   L   L `L    Lbmٔ$ڔ [`ɀ  L">< <"<"><$ <"<"><"""  **>> "2*&" " >>  ">> "8""> """"""< >>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"">< <"<"><$ <"<"><"""  **>> "2*&" " >>  ">> "8""> """"""< >>"   17:"INCORRECT. TRY AGAIN<":4350M4260:5:16:M$" TRY AGAIN<":43504260:3:16:M$" YOU GET TWO":3:17:"POINTS. THE ANSWER IS:":HH1:19:A$(NU,LV):43504260:3:16:M$" YOU GET ZERO":3:17:"POINTS. THE ANSWER IS:":HH1:SORRY<":4270,M$"THAT'S NOT IT.":427028U OUTPUT MESSAGE rHH(20.5(A$(NU,LV)))TY4320,4330,4340,4343,4346,4349,43474200:5:16:M$" YOU GET 5 POINTS.":4350#5:16:"I AM SORRY. THE SPELLING IS":5:ORRETTO<":4220' vM$"OTTIMO<":4220B wM$"BENISSIMO<":4220] xM$"BEN FATTO<":4220c |  NEG REIN ROUTINE W((2)4)1:W4263,4264,4265,4266 M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M "IN.I":L1150:RLV(PRT1)3& 7000,  I  UPDATE PTS ^ 5:6:PTS" ":  CLEAR ENTRY LINE 1:21:(5): h RANDOM POS REIN rW((3)5)1:W4212,4213,4214,4215,4216 tM$"BENE<":4220 uM$"C_"5 H,20((A$(NU,LV))2.5):V,20:MXLN,39(H)o H((H)1),V(21)1H((H)(A$(NU,LV))1),V(21)1z 37888 L(25):L02040 I0L1:X$X$((512I)):I X$X$" ":6500:X$(X$,(X$)1)  INST MODE  F$NU" $  PICTURE MODE E 1::D$"BLOAD PIC.1,A$7C00"\ MD2:13025:38400b h L VX1X(NU):Y1Y(NU):X2X165:Y2Y162:X3104:Y350:PA2:13000 [3:92,47178,47178,11792,11792,47 `  INPUT CONTROL  X$"7 I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)\ X(X)((X1)((X1)4)4)701w Y(X)((X1)4)631 P10000:1000:4800 U(16);(1)1 Z3000:LS7İ5200 _10300 dN01N:NUD%(N0) x6000 N0 8000 D$"RUNME 10$(4)"SAVE DRIVER.I":1 27400:U D$(4):A$(12,3),M%(12),D%(12) D$"OPEN NAMEFILE":D$"READ NAMEFILE":NAME$:D$"CLOSE NAMEFILE":4:9:NAME$":":4:12:"YOUR LESSON WILL BEGIN SHORTLY." U$(19):CP$(16):TU$(11):TL$(12)      Q-*266)-*-*;????$ - *****:??46.??;? $!)&$)"####$$!? -,5= ">"" <"<""""""2,"" *, **>> "2*&" " >>  ">> "8""> """"""< >> " <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"">"" <"<""""""2,"" *, **>> "2*&" " >>  ">> "8""> """"""< >> "   KEY.S"k'D$"OPENSTAT":D,8411,64:.238407,64:38409,95:38411,124:S238407,32:38409,63:38411,124::10097;o'PRT1q'D$"O,TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)(XL256):ADRS10,XL(256(ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,130152ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,13045 238407,32:38409,63:3łŠŠ‚͠ΠȠΠōŮ٠ŠήŠŠԂΠ̂ƠŠԠłŠŠ‚͠ΠȠΠōŮŠŮ٠ŠήŠŠł͠ƠŠ‚ŠŠł͠ƠŠ‚ΠȠΠŠŮ٠ŠήŠŠԂΠ҂ƠŠԠŮŠŠł҂͠ƠŠłōŠłΠȠΠŠŮ٠ŠŮŠŠł̂͠ƠŠłōŠłΠȠΠŠ̠ŠĂ̠΂ΠȠΠŠŮ٠ŠŮŠŠł҂͠ƠŠłōŠłΠȠΠŠŮ٠ĠŠŠłϠŠōƠŠŮŠŠłŠĠŠ΂ΠȠ΍ŠŮ٠ŠŮŠŠ̂ͮŠԹ٠ŠŮŠŠ΂ΠȠΠŠŮ L "><   """< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" "><   """< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "   9,95:38411,124:6238407,32:38409,63:38411,124:556555 238407,32:38409,63:38411,64(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)631 (1ADRS11)):ADRS12,Y2Y1:ADRS2,X2(256(ADRS8)):ADRS4,X3(256(ADRS9)):PA13010,13015z2ADRS6,32:3,32:130202ADRS6,32:3,64:130202FX:230,32:22MD13035,13040,13045238407,32:38409,63:38411,64:238407,64:3840 甘L ` ` ` `ޔiޔɺ;)ޔߔiߔɶ))ߔiɺ)ᔭiɺ)┭㔅$ [ޔ Lq `L`Ո`  ,Lǔ H h,0b L ,ɍiɈEݔɕkɛ`۔ܔ)   L   L `L    Lbmٔ$ڔ [`ɀ  ōōӠӍŠӠӍՍŠՍӠ؍ōōӠӍōōӠӍōōӠӍӠӍōōӠӍԍŠԍӠӍՍŠՍӠ؍ōōӠӍ΍Š΍ӠӍō   COMPUTER EXAMPLE (1100MH,20((A$(NU,LV))2.5):V,20H((H)1),V(21)2H((H)(A$(NU,LV))1),V(21)22:21:"LIKE THIS:"W1750:W1:(H)1:21:A$(NU,LV)2554900CP$$ PRESR IS "A$(NU,LV)".":43504200:4:16:M$" A CORRECT ANSWER ON":4:17:"THE SECOND TRY WILL BE WORTH":4:18:"THREE POINTS.":43504900W15:1:W15:(5):W/0 SAVE MISTAKE :MISSEDMISSED1:M%(MISSED)NU:43504260:5:16:M$:5:17:"AN INCORRECTLY SPELLED ANSWER":5:18:"WILL BE WORTH TWO POINTS.":5:19:"THE ANSWER IS "A$(NU,LV)".":43504260:5:16:M$:5:17:"AN INCORRECT ANSWER":5:18:"WILL BE WORTH ZERO POINTS.":5:19:"THE ANSWET MESSAGE 1TY4320,4330,4340,4343,4346,43494200:4:16:M$" A CORRECT ANSWER WILL":4:17:"BE WORTH FIVE POINTS.":43505:16:"I'M SORRY. THE SPELLING IS":5:17:"INCORRECT. TRY AGAIN<":43504260:5:16:M$" TRY AGAIN<":"SEHR GUT<":4220 |7  NEG REIN ROUTINE ` W((2)4)1:W4263,4264,4265,4266 M$"YOU MISSED IT.":4270 M$"YOU DIDN'T GET IT RIGHT.":4270 M$"I'M SORRY<":4270 M$"THAT'S NOT IT.":4270    OUTPUNE  1:21:(5):5 h RANDOM POS REIN h rW((3)6)1:W4212,4214,4214,4215,4216,4217} tM$"GUT<":4220 uM$"DAS IST RICHTIG<":4220 vM$"AUSGEZEICHNET<":4220 wM$"DU HAST RECHT<":4220 xM$"GUT GEMACHT<":4220 yM$88 L(25):L02040: I0L1:X$X$((512I)):I_ X$X$" ":6500:X$(X$,(X$)1)e  INST MODE F$"EX.G":L1225:R(PRT1)6FLAGLV 8000   UPDATE PTS   CLEAR ENTRY LI VX1X(NU):Y1Y(NU):X2X166:Y2Y159:X3105:Y355:PA2:13000k [3:95,52181,52181,11795,11795,52q `  INPUT CONTROL X$"_" H,20((A$(NU,LV))2.5):V,20 H((H)1),V(21)3H((H)(A$(NU,LV))1),V(21)3 378;(1)1* 212:11:"ONE MOMENT, PLEASE."H P10000:1000:NU(PRT2)1X Z3000:4500q dNUNU1:FLAG3:3000{ x6000 (16):D$"RUN DRIVER.G"   PICTURE MODE 1::D$"BLOAD PIC.EX,A$7C00" MD2:13025:38400  LAr 10"(4)"SAVE EXAM.G":/ 27400:S D$(4):A$(12,3),M%(12),S$(30)~U$(19):CP$(16):TU$(11):TL$(12)I$(9):N$(14):H(H)(6.96H):V(V)(7.96V)X(X)((X1)((X1)4)4)701Y(X)((X1)4)632 (16)! !!!!!!!!!  ōŠōŠ΍ǍҠǍŠڤō̍Ҡ̍Š̍͢ōŠōŠ΍ˍҠˍŠңōčӠčŠҍōōҠōŠ΍ǍҠǍŠڤōԍҠԍŠȤōčӠčŠ΍ōŠōŠ΍ȍҠȍŠ!! ! ! ժժժժժժժתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪժժժժժժժժժժժժժժߪժժժժժժժ ~@ ~~@0x0x?x?xժժժժժժժժժժժժժժժުݪתժժժժժժժժժժժժժժժժժժժժժժծժժժժժժժժժժծժժժժժժժժժժժժժժժժկժժժտժժժժժժ0ժժժժժժժתߪժժժժժժժժժժժժժժתժժժժժĠժժժժժժժժժժժժժժժժժתկժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժվծժժժժժժժժժժժժժժժժժպպժժժժժժժժݺݺ׻պݺݫպծݫժժժժժժժժիծժժժժժժժժժժՂЪՈĀ ժժժժժժժժתժժժժժժժժժժժժժժߪժתժժժժժ0ժժժժժժժժߪվժժժժժժժժժժժժժժߪߪժתժժժժժ@Ca @@Ca0x0xxժժժժժժժժժժժժժժժծժժժժժժժժժժժժժժժժת߾ժկժժժժժժ0ժժժժժժժתժժժժժժժժժժժժժժժתժժժժժՂԊՂЪЪԂժժժժժժժתժժժժժժժժժժժժժժժժժժߪժժժժժժժժժժժժժժݯծժժժժժժժժժժժժժժժժժպժߪժժժժժժժպտݺպ׿ժժժժժժժժծժժժժժժժժժժժժժժժժժկߪժժժժժժժպݺվժժժժժժߪߪժתժժժժժ0ժժժժժժժժߪկժժժժժժժժժժժժժժߪߪժתժժժժժ@Ca @@Ca0x0xxժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪկժժժժժժժժժժժժժժժժժժժժպժժժժժժժժժժժժժժժתժժժժժՂԊՂЪЪԂժժժժժժժժתժժժժժժժժժժժժժժժժժժߪժժժժժժժժժՂЪՈĀ ժժժժժժժתժժժժժժժժժժժժժժժժժծժժժժժժժժժժժժժժժժժկתժժժժժժժպݺվժժժժժժժժծժժժժժժժժժժժժժժժժտծժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ@ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժתժժժժժժժժժժժժժժߪկժժժժժժժժժժժժժժժժժժߪժժժժժժժպտݺպ׿ժժ" """""""""       Šō̠ɠύ̠ύɠɍɍŠōŠōύ̠ύɠɍŠōύ̠ύɠɍύ̧ύɠɍύ̠ύɠдŠōɍɠɍɠɍ"" " "