' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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`  ȟ QlX֭L  ȟ QlV eօ3L夭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL-(v p Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d£àĠz# u`>AEOUS$^FIRST WORD IN SENTENCE & ^I,^PROPER PERSONAL NAMES,^DAYS OF WEEK AND MONTHS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAMES,^TITLES,^MISCELLANEOUS1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$@#ZZZ$ZZ$Q$P#Z:ZT$ZZ$:#l1 - FIRST WORD IN SENTENCE AND I,2 - PROPER PERSONAL NAMES#v3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES$7 - MISCELLAN A LN."&J1(Z$):Q$(Z$,J,1):Q$"^"99207"&Q$;A"&::h"U232,0:233,96:(15616)16622006"U1013,76:1014,0:1015,61:D$"BLOADGR":D$"BLOADSMCHR""UZH15:ZW7"U3:1:0:"EVCLR"GV0"JVZZTZB:ZL,ZZR,Z:Z:3:1#ZZZ$"":TTNTENCES"t!+%:6:"4 - PRINT SENTENCES ON PRINTER"::6:"5 - RUN PRACTICE PROGRAM"::6:"6 - SEE STUDENT RECORDS"!X%::6:"WHICH? ";Y$:Y9(Y$):Y91Y969500!v%Y93000,2000,1000,4000,9596,9597!|%D$"RUNCAP-PRAC"!}%D$"RUNSTU PLAN""&PRNT$:D$"OPENTEST.FILE,L1200":D$"WRITETEST.FILE,R"MD:NS:T1NS:(34)A$(T)::D$"CLOSE"] 6$g %MENU !%16368,0:D$:D$"CLOSE"!&%::4:"DO YOU WANT TO:":::6:"1 - ADD SENTENCES"::6:"2 - DISPLAY/DELETE SENTENCES"::6:"3 - DISPLAY/MODIFY SE"Y$;:9020/U#Z$(Z$,(Z$)1):Y$" "Y$;:9020>Z#Y329020X[#(Z$)LMĺ"";:9020pd#Z$Z$Y$:Y$;:9020x#(Z$)0F81:##RD#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:T1NS:A$(T)::D$"CLOSE"$"$WRTW ,$D16384,128:16368,0:C"D91,191,"^PRESS <^R^E^T^U^R^N>.":8920:K(#GTU)#Z$""c2#F90:F80~<#Y$:Y(Y$):Y139080=#Y219020>#Y$";"Y$","Y$":"Y$"/":Y47?#Y27ġ:9500P#Y89050R#(Z$)F91: S#(Z$)1Z$"":Y$" ; B:: UNDRLN TITLE( Z4ı< Z1Z4:SS4(Z)a S(S),ZY7S(S)(7S1(S))2,ZY7g& rb Z40:"D91,190,"^PRESS <^R^E^T^U^R^N>.":"ZX84(7(N$)):ZX1ZX1"ZT$"^PRESS <^R^E^T^U^R^N>, "N$".":DZX,190,ZT$"16368,0:E:"Y$:::T1NS:Z$A$(T):(" "(T),2)"> ";:4900:D::RD$"PR#0"\9500o$DO LWRCASE LN.K1(Z$):Q((Z$,K,1)):Q64Q95/Q9449150KK11(Z$,K,1);:49303Q92Q344Q65Q91ĺ(Q);:49308(Q32)1800::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRINTERS WILL PRINT":"LOWER CASE LETTERS.)"::"CHECK YOUR MANUAL."16:1:868:"IN WHICH SLOT IS YOUR PRINTER? ";Y$:SL(Y$):SL0SL74025D$"PR#"SL :T1MD1:Y$::"MOD::22:"PRESS ";Y$:9500 0:ZT$(NS):D113,60,ZT$:E3,0,39:E4,0,39:3:ZT$"^ADDING SENTENCE "(NS1):D1,60,ZT$:1100:A$"END"A$"^END"3090 NSNS1:A$(NS)A$ NS253020 ::8:"YOU HAVE "NS" SENTENCES.":1091PRNTRE YOU WANT TO DELETE THESE? Y";:(36):16368,0:"";Y$:Y$"N"9500T/9250:9500T D1,190,"^PRESS <^R^E^T^U^R^N>.":"";Y$:Y0: ADD SENT 1800" NS25ĉ::12:"YOU ALREADY HAVE 25 SENTENCES IN"::"THIS FILE. YOU MAY NOT ADD ANY MORE."NDND1:S(ND)(Z$)O 8:1:958:NDĺ"DELETING:";:T1ND:S(T)",";::2050_ND252050mND9500:12:12:"THINKING...":T1ND:A$(S(T))"*": T1NS:A$(T)"*"Ă:2090%NSNS1:TNSāKTNS:A$(K)A$(K1)::2080D*12:"SURBERS OF THE SENTENCES":"YOU WISH TO DELETE, FOLLOWED BY":" AFTER EACH NUMBER.":"TYPE 'END' WHEN YOU ARE FINISHED."12:1:868:"DELETE:";:LM3:9000:F82050F9NDNDND1:2060Z$"END"2070(Z$)1(Z$)NS2050E ONES"::"YOU WOULD LIKE TO DELETE FROM THE FILE."\22:16368,0:"PRESS ";Y$f1800:Y0:K1NS:ZT$"<"(K)">":YY20:D1,Y,ZT$:ZT$A$(K):239,0:D1,Y9,ZT$:239,0Y160KNSİ2900::2900XND0:::"ENTER THE NUM5:3544,15+40,25279,25:0,150279,150T5D1,190,"^TYPE 'END' WHEN FINISHED."::T16MD:ZT$::ZT$"<"ZT$">":D30,45,ZT$bX,YX3,Y4X6,Y:DLT4::8:"ALL SENTENCES WILL BE DISPLAYED."::"PLEASE NOTE THE NUMBERS OF THT22:4:Y$:::4:"8 - RETURN TO MENU"c21:4:868:"WHICH? ";Y$:MD(Y$)1:MD2MD91820rMD99500&9200:Y91NS25ı'Y92Y94ı0:D1,15,"^TYPE ' ' TO CAPITALIZE.":X42:Y6:1990 2D1,28,"^TYPE ' ' TO UNDERLINE.":3543,1ED.)":198deZT130:ZB145:ZL0:ZR140:22087:D1,150,"^O^K? (^Y/^N)":ZX70:ZY150:UP2:120:UP0fZA$"N"ZA$"Y"1125tZA$"N"1100~ZT130:ZB145:ZL0:ZR140:22087GET MODE:"WHICH DO YOU WANT TO DO?"):T17:Y$:G9500LENTER SENT*U0:E4,0,39:3tVLM39:ZT130:ZB145:ZL0:ZR120:22087:D1,150,"^ENTER NEW SENTENCE."`ZX1:ZY112:120:89:(ZA$)1120aA$ZA$:A$"END"A$"^END"1160 cT1(A$):(A$,T,1)"^"Ă:D1,130,"(^NO LETTERS CAPITALIZP0F9KK1(K1):10505FSF8ZA$"N"1080H ZA$"Y"1053r$1100:A$"END"A$"^END"KK1:1090%A$(K)A$8KNSKK1:1050B:C12:"DO YOU WANT TO SAVE NEW SENTENCES? Y";:(36):16368,0:"";Y$:Y$"N"1095D9250"^TYPE '^Y' TO CHANGE SENTENCE."(K1nZT134:ZB144:ZL98:ZR105:22085:0:E2,0,3:E3,0,39:E4,0,39:3ZT$"<"(K)">":D1,60,ZT$:239,0:D1,85,A$(K):239,0:500:8200D1,150,"^CHANGE? (^Y/^N) ^N":ZA$"N"LM1:ZX99:ZY150:UP2:100:UXHCHC:3HC:990:F9960(910XZ0KY128:Z$(Z0):0:ZX7,ZY4ZX12,ZY4m3:ZXZZ%:F90:ZX7,ZY4ZX12,ZY4:Z9120:KY(16384):KY127F91::MODIFY1800 D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,(Z$,T1,1)"^"ZZ1:560-ZZ7:Z1Z11o&Q$(Z$,T1,2):(Z$,T1,1)" "Q$".^"Q$".M"Q$".W"560+QQ1:S(Q)Z:S1(Q1)Z11:S2(Q)T11:Z100T1:S1(Q)Z1:(Z$,1)"?"(Z$,1)(91)S1(Q)S1(Q)1: CRS16368,0:F90:ZZ%Z39,(239):90:255' WLWL1F1:1400 "#"B (ZA$)2420_ (ZA$,(ZA$)1)"^"140 ZA$ZA$"#":239,(239):90:140  SNT CORD Z$ZT$ Z40:Z10:Z1:Q1:S(Q)Z:S2(Q)1:T11(Z$)1 (Z$,T1,1)"@"Z4Z41:S4(Z4)Q:560"^"ZQ$"#"ZTZYZH1:ZBZY2:ZLZX:ZRZXZW:ZXZXZW:22087 ZA$(ZA$,1,(ZA$)1):ZA$"#"ZA$"":239,(239):90:251 F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ2"^"Z$:ZU0 DZX,ZY,Z$:1401 (ZA$)F81G (ZA$,1)"^"140T 239,0:^ WRTm UP1ZU1 ZUZT$(91)ZT$"@"ZT$"^"ZT$ UP2İ23230 DZX,ZY,ZT$: ZA$ZA$(Z0):ZA$(8)ZA$"":F91:? ZQ$(ZA$,(ZA$)1,1):ZQ$83,Z0:16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,158,140,158j (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$ gZ021150 hZ032101@ i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z021140T 163 T-MENU26026+ D$(4):22000G S3(10,20),A$(25),S(25)Z239,0::9500eY239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZWe16368,0:900:16368,0:Z013F81:fZ08F91:           ӠǠҮŠӠԬŬĠ΍ŠĠΠĠȠӮخŠӠŠšӠξϠ٠ōƠōӠͬĬĠŠĠ΍٠ŠĠӠӮخӠĠŠŠԿӠȠӠͬĬĠŠԠĠ΍ԠĠӠӮخ٠ȠŮخŠנҮȠčҠΠٮΠӠȠӠҬҬҠҠŠĠԠŬ٠ŠԠĮخɠԠϠŠҮӠȠ٠ӠŠĮخŠӠҠҠ̠ٮ̠ӠȠӠҬҬĠҠŠčΠĠҧӣԣŧӠҠŮɠŠϠȠԣ٧ӣģΠήӠξϠ٠ŠƮՠĠŠԍӠΠŠӠƠӬӬӬ΍ӬîخϠՠĠŠàήˠԠӮŠӠΠĠӍϠ٠٠̮ӠξϠՠ΍٠ōҠӠƠӠčŠĠŠĮźŠԠϠӠԠˍҠŠϠōͮĠЮͮӠҍ̠͠ˠԠǍƠՠϠԠϠϮƠՠӠξՠ̠ŠŠϠˠΠӍȠӠҠͮĠЮͮԠŠǮΠŠŠԠŬͮĠЮͮĠŠĮԠŠŠͮĠЮͮԠԠĠԠŠǍƠՠŠԠϠŠͮŠԠҠŠ٠ӍӠĮϠō̠ŠҠӮźՠ΍٠ŠӠȠӍƠŠˠĠӍԠٮŠŠӠƠŠҍŠӠĮź٠ŠȠӠٮŠӠƠӍŠϠĮخ٠٠ӠΠήӠξĠ̠ΠӠƠŠˍŠӠĮź٠ӠӠ٠ŠӍԧӠ٠ŠӍĮź٠ΠˍӠŠӠĮź٠ˍźͮîӮҮӬĠӮŠӠĮźҮ̮͠ōԧΧӠԬŠčԠӠŠӠӠĮӠӠΠ٠ōϠҮŠĠܠӠӍĮŠҍŠŠŠӍҠՠϠٍĠȠӮخŠӠŠšӠΠϠ٠ōƠōŠԠĠΠŠӠŮ٠ԮӠĠŠŠԿӠȠӠͬĬĠŠԠĠ΍ԠĠӠӮخ٠͠ӠǠҮŠӠԬŬĠ΍ŠĠΠՠŠŠ̠ҍĠŠԠȠ̠Ү٠ԮΠՠӠξŠՠ̍ŠŠԠŮŠԍŠՠӠξՠ̠Ϡ΍ϠŠԠŠŠŠҬՠŠĠϠˠή٠ǠŠŠҮΠՠӠŠà٬ŠĠՠŠ΍̠ŠĮϠĠĠ٠ԮΠՠӠŠŠ٬Πՠ     Ҡ٠ŠҿŠҠſ٠ΠԠӠŮԠĠĠ٠Ҡ٠ҿҮĠĠΠ׮ȮŠӠҠ̠ӬîɠĠϠ͠Ԡ̧ӠȠ®ɠŠ٠ŠӠԠٮΠĠҮ٠ŠΠӠΠŮĠŠҠРҠǿԧӠ̠РϠӠΠήĠԿɠΧԠˠҮӠӠŮɠŠҠή٠ӠӠ٠ԮήŮӠҮŠϠԠ٠ͮ٠ҠӠŠ٠̠Ӯ٠ԠĠӠҮŠҠŠנӠҠ̮̠ԠΠŠΠο̠̠ŠϠήӠĮɠԠԠԠϠŠŠŠנŠŠȠҠԮŠӠΠŠԮӮ׮Ӡ̧Ӡ̠˿ͧӠŠŠҮΠŠȠţԣףҠΠŠŠŠӮ̠ɠŠŠ׬ӣŠŠɣӠ٠ĮƠŠˠӠϣţŠΠɠŠŠŠɣԠӠĠϠˠƠ٠ӮŠĠŧӣ£ϠŮϠՠȠţԣĠ٠ŠԠ˿ŠţӣӠǣǣŠϣţӠĠٮĠՠŠΣŠӠŠңԣҮΠՠŠˠŠҠſԧӠϠŠŠԠנΠήΠĠՠĠңΣŠŠţ٧ӣף˿ŠŠӠĠңӣϠŠͣңɠנţţӣˣŮŠţӠΠĬĠˮɠŠˠĠ٣ţɠΧԠŠŠŠɠĠŠףˣӣӠӠԮŠՠҠΠŠΠοŠɠҠӠȠΠԮŠĠҠήӠŠΠŠŠŮɠĠԠŠ٠ĠϠҠˠΠŠŮĠȠӠΠ٠Ӡ̠ԮŠՠΠϠӬſӠŠӠ̠ŮӠŠ̠ƠծӠӬӠǠٮԠӠΠĿŠĠŠ٠ӠΠŮӠҠ͠ΠٿŠŠ٠ӠȠϮŠӠ٠͠ϠŮĠ٠ӠŠΠſŠŠϠ͠ΠŠήԧӠ̠ՠ٠ϠԬοŠӠΠŠӠҠǮŠàΠӠЮŠՠΠϠάӿŠ٠ӠŠ̡Ġ͠ϠϠ٠ͮͮŮɠԠŠȠԠŠͮŠȠƠ٠ӠԠ١ŠŠҠԠԠΠͮ͠ӠΠŠ̠ԠήŠԠϠРԠԮ٠ҠӠӮ̠ĠɠĠŠԠŠЮĠǠ٠ȠӮ̠ΧӠ٠ŠΠٿԠŠԠҠЮͮŠǠנӠǠŠήɠŠŠΠŧӠٮŠĠԠɠĠϠȠͮԠӠŠЮͮΠɠԠͮĠՠӠРҠοŠŠӠЮͮŠנӠΠҠ٠ԠЮ̠ͮՠŠנҧӠſؠͮŠϠΠҠŮ̠ӠĠΠԮ˧ӠٮԠӠؠͮŠΠՠŠϠ٠ŠҠҿŠŠŠԠЮͮŠŠΠΠ̠ٮԠӠ٠ˠԠԮԮΠٮŠŠŠΠٮŠӠΠĠΠҮŠԠϠϠΠٮԠŠŠҠҮ̠ŠŠԠٿɠנΠȮŠԠŠԠˮŠĠĠԠ٠ΠŠŠ͠ӮӠԠ͠Π̠ŠՠſħӠҠӠנΠٮŠԠԠϠԠΠٮŠ٠̠ΠҮנӠ٬ɠˮ٠٠ӠΠԮԧӠϠŠԠӠƠΠΠٮ٠٠Ӡ٬٠ȮŠȠƠ٠ӠԮɧ̠ŠՠŠԠ٠Π̮ӠҮŠΠҠȿŠΠҠ٠Ӡɮ٠Š٠Ӡٮ٠ΠՠϠŠΠٿɠŠҮŠŠĠҮ̠ϠǠȠ¿Š̠ԠϠŠԮɠŠӮҠӠŮΠҮŠŠҿŠŠƠӠӠԠԮŠŠŮٮŠŠĠΠŠϠ̠̿ΠŠŠ׿͠ŠӮˠŠŮ٠ҠӠҮ̮ɠŠҮˠҠΠҮخŠŠӠϠ٠ٮŠՠԠӠŠԿӠӠ٠Ԯ̠ΠӠŠŠſŠ̠ĠӮ٠ΠҠծ٠ĠĠƠ٬Ӯӿ͠Ԡ٠٠ԮŠנŠΠӠԠŠˮ٠ĠӠӮΠӠɠנҮӠҮΠٮ̠ͬĠ٠ΠԮԠĠɠԠϠŠӮȮҮĠӮΠŠŠٮŠӠϠŠĠӮӮΠӠŠȠϠϿӮɠŠĠɠԠŠſ٠ǠĠɠΠΠԮϠӠϠӠҮ٠ɠ̠տɧ̠̠ٮӠĮ٠ĠĠɠԠҠŮɠŠŠͮԠӠĮՠԠϠϠˮ٠̠ϠϮĠɠŠՠԠŠſƠɠΧԠŠլɠ̠ϠŮĠɠҠŠ̿ŠĠɠԠϠ̮̠Ġޢ٠͠Ġɠ̠ˮ̠Š͠ٿ̠ɠ͠ϿҠǠӠӠǠӠɠͮΠɠРտɠ͠٠ǮǠǠΠΠԮ̠ɠŠՠ׿ɠΧԠϠȠծɠԠ٠ŮϠɠ̠ſϠӠΠſŠĠɠ̠Ϡ׮ŠĠԠɠ٠Ϯ٠ɠŠԠ˿ĠɠŠԿɠ̠̠ٮԠӠٮ          ̠ҍ̠ҍ̠ҍΠ΍Π΍Π΍Π΍ԍԍԍԍàԍàԍàԍōȍȍȍȍȍȍōōōōōōō٠ȍ٠ȍ٠ȍ󍳍ӍӍčōōōōōΠӠ      ! "                               666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-=$:6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$ 666` ^憥ŅhhhhLF= ^![#i `A0i@8@ ` 8` '>  = > = > = > =` > A? V?` g RP g RP g RP(:2,#?iƹƸ RLD EL>L? hhꅾ o> "4 " >Ʌ ƹƸL = >憥ŅLF= ߥȱȱƹƸ` ``i` ``H쨥몥i 8 :hI -%$$$$$?.6666>?6N 1-$$<',E 6?M9?I9?66v6?66.%6-----$II666666.>?'-$$$\6666??,-$$$$$$ۓ2?.----$V---?????I --------566???????OIM6NI?$$- $d66?III $$$$$<W66v ? -?%<,1N-<J666dgܾ?$$$$,<766666-mIII-----,6??????;?????'7.------MIZ 芙`ժ b0_6)6F1-$' -<$$???OI??266>.>6.%@M-6???????Ga$ -- 3$2$<>mIII)$?.2667-$$$L66>.%$$$???$?.)-90 ߠʎȱȱ^L9#L9i.ȱ^MWEs oȱ#ʊʝi. ʼ,. 8L09A  &Q$"\"Q$(34)B&(Q$)94GG1:Q$(Z$,G,1):Z1$Q$:9930f&(Q$)65(Q$)90Z1$Q$:9930z&Z1$((Q$)32)&Z1$;:ZZ1:G&::CK NOS:QQ1 :D$"OPEN"P$",L500":NE0:T150:D$"READ"P$",R"T:Z$:Z$"*"NENE1:12:24:NE%Y$"N"97905&::5:"=== CLEARING FILE ===":D$x&D$"OPEN"P$",L500":T150:D$"WRITE"P$",R"T:"*"::D$"CLOSE" &:8:"FILE IS NOW EMPTY."::39022>&&PREP 1 LN&Z0:(Z$)ı&Z1$"":G1(Z$):Q$(Z$,G,1)&Q$"@"Q$(95)ENTS"d0%:6:"6 - GO BACK TO MENU":::6:"WHICH? ";Y$:YZ(Y$):YZ1YZ6(NEYZ6YZ4)9500v%YZ9,9,3000,4,5000,39020%CLR FL%16368,0%12:"WANT TO DELETE ALL STUDENTS"::"AND CLEAR THE FILE? (Y/N) ";Y$:Y$"Y"Y$"N"9710 "YOU HAVE "NE" STUDENTS IN FILE."::"THERE IS ROOM FOR "50NE" MORE.":::"DO YOU WANT TO:"::6:"1 - SEE ALL STUDENTS"::6:"2 - SEE SOME STUDENTS"+%:6:"3 - PRINT STUDENT SUMMARY"::6:"4 - DELETE ALL STUDENTS"::6:"5 - DELETE INDIVIDUAL STUDPLACE NAMES": "L$"TITLES":9"L$"MISCELLANEOUS":?#I#PRı{#23:1:"PRESS RETURN ":16384,128:16368,0#7:1:958:#D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD1:NS:T1NS:I$(T)::%MNU!%::D$:D$"CLOSE"&%1)<o"T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)Dt":q"MD8911,8912,8913,8914,8915,8916,8917:"L$"FIRST WORD AND I":"L$"PROPER PERSONAL NAMES":"L$"DAYS OF WEEK & MONTHS":"L$"HOLIDAYS, A.M. & P.M.":"L$"PROPER ,128:KY(16384):KY15595000-!KY1418492\/!0:T36:ET,0,39::3:V7211(J0):0!16304,0:16299,0:16297,0:0:T16:ET,0,39::3:D1,15,"^STUDENT:":D1,26,"^MODE :":D1,32,LL$:D1,75,LL$:`"RMVCAPSj"(Z$,1)"^"Z$(Z$,(Z$)J,0):Z$I$(S3(J,NC1)):8800:NC8440T X1:S3(J,1)1Z$"^"Z$:XX1:XNC8440 JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1)): D1,V,Z$!J !8492:*!VV11:V182ı,!D87,191,"^PRESS <^R^E^T^U^R^N>.":16368,0:16384" CORRECT.":D1,58,Z$S Z$"":C50Z$"^LESSON ENDED AFTER 10 IN-A-ROW CORRECT." CC0Z$"<^E^S^CAPE> KEY WAS PRESSED." Q1CACCZ$"^ALL CORRECT!" D1,68,Z$ Q18480 D109,130,"":9200& J0:8495:J1Q1:8490:NCS3()100CA)B 8900:Z$L$:23230:Z$Z$" <"(Z)"%>":D57,26,Z$ Z$"^THERE ARE "(CA)" PROBLEMS IN THE LESSON.":D1,38,Z$ Z$"ALL":CA(CC)Z$"ONLY" Z$"^STUDENT ATTEMPTED "Z$" "((CC))".":D1,48,Z$ Z$"^STUDENT HAD "((C5)):XNC8230K! JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1)):]& " >";:99000 (16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0":JQ11::95: J? LL$:D$"PR#0"b  SHO1  8496:Z$N$:23230:D57,15,Z$:Z0:(CA)Z((C5:"LESSON TERMINATED BECAUSE STUDENT DID":"TEN CONSECUTIVE PROBLEMS CORRECTLY."z CC0ĺ:" KEY WAS PRESSED." Q18250 :"ERRORS WERE:":9200 J1Q1:NCS3(J,0):Z$I$(S3(J,NC1)):8800:NC8230  X1:S3(J,1)1Z$"^"Z$:XX1"STUDENT:"N$:Z0:(CA)Z((C5)100CA)U 8900:"MODE :"L$" <"Z"%>":LL$ "THERE ARE "CA" PROBLEMS IN THE LESSON." Z$"ALL":CA(CC)Z$"ONLY" :"STUDENT ATTEMPTED "Z$" "((CC))"." "STUDENT HAD "(C5)" CORRECT."Q C5024:1:"(TYPE 'END' TO QUIT ENTERING STUDENTS)";Ij23:27:NX" TO "Z2$ym22:1:868:":";Z$:Z(Z$):Z$"END"8060nZ1ZNE8045q22:1:I$(Z)" Y";:(36):"";Y$:Y$"N"8042rNXNX1:S%(NX)AF(Z):NX508042| PRNT1) ::1: LEFT OF"::"THE STUDENT(S) YOU WISH TO "Z2$:YZ2ĺ:"OR DISPLAY."`U23:"PRESS RETURN ";Y$Y::"ENTER STUDENT NUMBERS":ZX1:ZY3^K1NE:ZY:ZX:I$(K);:ZYZY1:ZY21ZY3:ZX20cK38Ģ23:1:"PRESS RETURN ";Y$::ZX1:ZY30hK:NX0:? PRĢ22:1:"+ = 10 IN-A-ROW CORRECT. E = ":3:IDLT1|NXNE:K1NX:S%(K)AF(K)::Z2$"DELETE":8000NX9500:12:14:"DELETING..."D$"OPEN"P$",L500":T1NX:D$"WRITE"P$",R"S%(T):"*"::D$"CLOSE" 12:14:"CHE95 :D$"CLOSE":PRĺ::"E = KEY WAS PRESSED.":"+ = LESSON TERMINATED. STUDENT HAD 10 IN-A-ROW CORRECT."::D$"PR#0" PRİ3096 9500 (37)20PRı 23:14:"PRESS RETURN ":16368,0:16384,128:16368,0:3:1:958:3098:D"P$",R"AF(T):N$,MD,CA,C5,CCF Z$"0 ":(CA)Z$(((C5)100CA)) (N$S$,20)" #"MD" "(Z$" ",3)"%";:Z$" ":C50Z$" + " CC0Z$" E " Z$;:PRİ8900:Z$"("(" "((C5)),2)"/"(" "(CA),2)") "" "L$:Z$; :30PRĺD$"PR#"PR:"STUDENT SUMMARY":l :"STUDENT NAME LESSON SCORE ";:PRĺ" MODE"; :"-------------------- ------ --------";:PRĺ" -------------------"; :PRİ3098 D$:D$"OPEN"P$",L500":T1NE:D$"REA::::D$"PR#0"6 `::12:"THAT'S ALL!":14:9700@ a9500J SMRY PR0::12:"STUDENT SUMMARY":12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"3010 Y$"Y"3025 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR73015# RS%(K) ,D$"READSTU.FL,R"R5 -N$,MD,CA,C5,CC,Q1k .Q1āT1Q1:CP:S3(T,0)CP:G1CP1:S3(T,G):: 5LL$"-----------------------------------------":S2$" " 6PRĺD$:D$"PR#"PR:::8200:94 78400 ^K:D$"CLOSE" _:PRĺD$"PR#"PR:B NXNE:K1NX:S%(K)AF(K)::YZ2Z2$"PRINT":8000:NX9500 PR0::12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"10 Y$"Y"30 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR715 ::D$"OPENSTU.FL,L500" (K1NX:ST PLN 26026aI$(50),C$(50),S%(50),AF(50),I(50),I2(50),IN$(30),R$(30),S3(25,16)D$(4):S$" ":P$"STU.FL"::12:"STUDENT PLANNING":34,1:12:9700:12:13:"CHECKING...0":15000 9500           (>HS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAMES,^TITLES,^MISCELLANEOUS1 - FIRST WORD IN SENTENCE AND I,2 - PROPER PERSONAL NAMES#v3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES#7 - MISCELLANEOUSJ$^FIRST WORD IN SENTENCE & ^I,^PROPER PERSONAL NAMES,^DAYS OF WEEK AND MONT:(15616)16622006O"U1013,76:1014,0:1015,61:D$"BLOADGR":D$"BLOADSMCHR"^"UZH15:ZW7m"U3:1:0:v"EVCLR}"GV0"JVZZTZB:ZL,ZZR,Z:Z:3:"ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$"ZZZ$ZZ$Q$"Z:ZT$ZZ$:<#l::6:"6 - SEE STUDENT RECORDS"R!X%::6:"WHICH? ";Y$:Y9(Y$):Y91Y969500x!v%Y93000,2000,1000,4000,9596,9597!|%D$"RUNCAP-PRAC"!}%D$"RUNSTU PLAN"!&PRNT A LN!&J1(Z$):Q$(Z$,J,1):Q$"^"9920!&Q$;!&::"U232,0:233,969020d#Z$Z$Y$:Y$;:90200x#(Z$)0F81:6#>#RD#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:T1NS:A$(T)::D$"CLOSE"$"$WRT ,$D$:D$"OPENTEST.FILE,L1200":D$"WRITETEST.FILE,R"MD:NS:T1NS:(34)A$(T)::D$"CLO"2#F90:F80*<#Y$:Y(Y$):Y1390809=#Y219020_>#Y$";"Y$","Y$":"Y$"/":Y47q?#Y27ġ:9500P#Y89050R#(Z$)F91:S#(Z$)1Z$"":Y$" "Y$;:9020U#Z$(Z$,(Z$)1):Y$" "Y$;:9020Z#Y329020[#(Z$)LMĺ"";:S1(S))2,ZY7& b Z40:F"D91,190,"^PRESS <^R^E^T^U^R^N>.":e"ZX84(7(N$)):ZX1ZX1"ZT$"^PRESS <^R^E^T^U^R^N>, "N$".":DZX,190,ZT$"16368,0:16384,128:16368,0:"D91,191,"^PRESS <^R^E^T^U^R^N>.":8920:(#GT)#Z$" D$"PR#0"9500*$DO LWRCASE LNS.K1(Z$):Q((Z$,K,1)):Q644930c/Q944915m0KK11(Z$,K,1);:49303Q65Q91ĺ(Q);:49308(Q32);B:: UNDRLN TITLE Z4ı Z1Z4:SS4(Z)  S(S),ZY7S(S)(7TERS WILL PRINT":"LOWER CASE LETTERS.)"::"CHECK YOUR MANUAL."16:1:868:"IN WHICH SLOT IS YOUR PRINTER? ";Y$:SL(Y$):SL0SL74025D$"PR#"SL:T1MD1:Y$::"MODE:"Y$::T1NS:Z$A$(T):(" "(T),2)"> ";:4900:::"END"A$"^END"3090+ NSNS1:A$(NS)A$p ZL0:ZR279:ZT40:ZB80:22087:ZL98:ZR110:ZT130:ZB145:22087 NS253020 ::8:"YOU HAVE "NS" SENTENCES.":1091PRNTR1800@::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRIN1,190,"^PRESS <^R^E^T^U^R^N>.":"";Y$:Y0:9 ADD SENTC 1800 NS25ĉ::12:"YOU ALREADY HAVE 25 SENTENCES IN"::"THIS FILE. YOU MAY NOT ADD ANY MORE."::22:"PRESS ";Y$:9500 ZT$"^ADDING SENTENCE "(NS1):D1,60,ZT$:1100:A$2050ND9500F:12:12:"THINKING...":T1ND:A$(S(T))"*":f T1NS:A$(T)"*"Ă:2090%NSNS1:TNSāKTNS:A$(K)A$(K1)::2080*12:"SURE YOU WANT TO DELETE THESE? Y";:(36):16368,0:"";Y$:Y$"N"9500/9250:9500+T D:"TYPE 'END' WHEN YOU ARE FINISHED."Y12:1:868:"DELETE:";:LM3:9000:F82050rF9NDNDND1:2060Z$"END"2070(Z$)1(Z$)NS2050NDND1:S(ND)(Z$) 8:1:958:NDĺ"DELETING:";:T1ND:S(T)",";::2050ND25$ 1800c:Y0:K1NS:ZT$"<"(K)">":YY20:D1,Y,ZT$:ZT$A$(K):239,0:D1,Y9,ZT$:239,0|Y160KNSİ2900::2900ND0:::"ENTER THE NUMBERS OF THE SENTENCES":"YOU WISH TO DELETE, FOLLOWED BY":" AFTER EACH NUMBER."(T16MD:ZT$::ZT$"<"ZT$">":D30,45,ZT$2bKX,YX3,Y4X6,Y:TDLT::8:"ALL SENTENCES WILL BE DISPLAYED."::"PLEASE NOTE THE NUMBERS OF THE ONES"::"YOU WOULD LIKE TO DELETE FROM THE FILE."22:16368,0:"PRESS ";Y(Y$)1:MD2MD81820/&9200:Y91NS25ı@'Y92Y94ıw0:D1,15,"^TYPE ' ' TO CAPITALIZE.":X42:Y6:19902D1,28,"^TYPE ' ' TO UNDERLINE.":3543,15:3544,1540,25279,25:0,150279,1505D1,190,"^TYPE 'END' WHEN FINISHED.",::D1,150,"^O^K? (^Y/^N)":ZX70:ZY150:ZU1:120:ZU0OfZA$"N"ZA$"Y"1125atZA$"N"1100~ZT130:ZB145:ZL0:ZR140:22087GET MODE:"WHICH DO YOU WANT TO DO?":T17:Y$:T22:4:Y$:21:4:868:"WHICH? ";Y$:MDVLM39:ZT130:ZB145:ZL0:ZR120:22087:D1,150,"^ENTER NEW SENTENCE."j`ZX1:ZY110:120:(ZA$)1120aA$ZA$:A$"END"A$"^END"1160cT1(A$):(A$,T,1)"^"Ă:D1,130,"(^NO LETTERS CAPITALIZED.)":1983eZT130:ZB145:ZL0:ZR140:22087:ZA$"N"1080 ZA$"Y"1053R$1100:A$(K)A$:A$"END"A$"^END"KK1:1090h8KNSKK1:1050pB:C12:"DO YOU WANT TO SAVE NEW SENTENCES? Y";:(36):16368,0:"";Y$:Y$"N"1095D9250G9500LENTER SENTU0:E4,0,39:3GCHC:3HC:990:F9960!910QZ0KY128:Z$(Z0):0:ZX7,ZY4ZX13,ZY4f3:ZXZZ%:F90:ZX7,ZY4ZX13,ZY4:Z9120:KY(16384):KY127F91::MODIFY1800D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,"^TYPE T1,1)"^"ZZ1:560&ZZ7:Z1Z11h&Q$(Z$,T1,2):(Z$,T1,1)" "Q$".^"Q$".M"Q$".W"560+QQ1:S(Q)Z:S1(Q1)Z11:S2(Q)T11:Z100T1:S1(Q)Z1:(Z$,1)"?"(Z$,1)(91)S1(Q)S1(Q)1: CRS16368,0:F90:ZZ%ZXH39):90:255 WLWL1F1:140) "#"; (ZA$)2420X (ZA$,(ZA$)1)"^"140~ ZA$ZA$"#":239,(239):90:140  SNT CORD Z$ZT$ Z40:Z10:Z1:Q1:S(Q)Z:S2(Q)1:T11(Z$)1 (Z$,T1,1)"@"Z4Z41:S4(Z4)Q:560(Z$,$"#"ZTZYZH1:ZBZY2:ZLZX:ZRZXZW:ZXZXZW:22087x ZA$(ZA$,1,(ZA$)1):ZA$"#"ZA$"":239,(239):90:251 F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ239,(2ZU0 DZX,ZY,Z$:140* (ZA$)F81@ (ZA$,1)"^"140M 239,0:W WRTf UP1ZU1 ZUZT$(91)ZT$"@"ZT$"^"ZT$ UP2İ23230 DZX,ZY,ZT$: ZA$ZA$(Z0):ZA$(8)ZA$"":F91:8 ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,140,158,158c (ZA$,1)"^"140x ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:21150 hZ0321019 i0:UP2ZT$ZA$:23230:ZA$ZT$x k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z021140M 16383,Z0:K T-MENU26026+ D$(4):22000G S3(10,20),A$(25),S(25)S:9500^Y239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZWe16368,0:900:16368,0:Z013F81:fZ08F91: gZ0          5,1 - ^FIRST WORD IN SENTENCE AND ^I,10,70,2 - ^PROPER PERSONAL NAMES6v10,85,3 - ^DAYS OF WEEK & MONTHS,10,100,"4 - ^HOLIDAYS, ^A.^M. & ^P.^M.",10,115,5 - ^PROPER PLACE NAMES,10,130,6 - ^TITLES5710,145,7 - ^MISCELLANEOUS,10,160,8 - ^START OVER WITH(T,K)::55˃YOU'RE DOING GREAT!,^NICE JOB,^PERFECT!,^YES! ^YES! ^YES!,^WAY TO GO!,^COULDN'T BE BETTER!,^W^O^W!,^THE ^F^O^R^C^E IS WITH YOU!,^I'M GOING TO TELL YOUR TEACHER WHAT5˃^FANTASTIC!,^WONDERFUL! E6l10,40,0 - ^INSTRUCTIONS,10,519,70:17,617,72:40090:19,70105,70:17,72107,72:400904i105,70105,8:107,72107,6:40090:105,819,8:107,617,6:400904r:G1200:44G1100:: 5D$"WRITESTU.FL,R"T:(34)NM$:MD1:NS:NC:J:Q8:Q8āT1Q8:K0S3(T,0)1:S3,131,240,3,76,124,217,165,155,164,156,56,233,1,32,80,216,76,166,217,96P3@RWRD\3E:2500s3JZT$"== "N$" =="3TX025025:Y160(X1.875):ZXX:ZYY:DZX,ZY,ZT$:3^ZT$"^GREAT JOB!":Y307020:ZYY:ZX29:DZX,ZY,ZT$:3cHC17:HC<4h19,8 2EVCLR2GV012JVZZTZB:ZL,ZZR,Z:Z:3:q2ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$2ZZZ$ZZ$Q$2Z:ZT$ZZ$:2Hq&RESTORE2Rq:K768806:A:K,A::F3\q32,177,0,32,103,221,32,82,231,32,26,214,144,8,160,4,177,155,201(Z$,T1):(N$)11N$(N$,11)$1&.1:FND1{1:F10:D$"OPENSTU.FL,L500":T150:D$"READSTU.FL,R"T:Z$:Z$"*"Ă:F111:1U232,0:233,96:(15616)166220061UD$"BLOADGR":D$"BLOADSMCHR"1U1013,76:1014,0:1015,61:ZH15:ZW72U3:1:0:z #     ԮŠ!Ҡ̠ϠЭà0ԭՠՠΠ Ҡ Ҡ ծ̠?: J? LL$:D$"PR#0"b ) SHO1n 239,0:8496:Z$N$:23230:D57,15,Z$:Z0:(CA)Z((C5)100CA) 8900:Z$L$:23230:Z$Z$" <"(Z)"%>":D57,26,Z$ Z$"^THERE ARE "(CA)" PROBLEMS IN THE LESSON.":D1,38,Z$  Z$"ALL":CA(CC)00; J1Q1:NCS3(J,0):Z$I$(S3(J,NC1)):8800:NC8230i X1:S3(J,1)1Z$"^"Z$:XX1:XNC8230! JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1)):& " -";:99000 (16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0":JQ11::95LY"/ :"STUDENT ATTEMPTED "Z$" "((CC))"."S "STUDENT HAD "(C5)" CORRECT." C50ĺ:"LESSON TERMINATED BECAUSE STUDENT DID":"TEN CONSECUTIVE PROBLEMS CORRECTLY." CC0ĺ:" KEY WAS PRESSED." Q18250 :"ERRORS WERE:":92;:(36):"";Y$:Y$"N"8042ArNXNX1:S%(NX)AF(Z):NX508042G|R PRNT1 ::1:"STUDENT:"N$:Z0:(CA)Z((C5)100CA) 8900:"MODE :"L$" <"Z"%>":LL$ "THERE ARE "CA" PROBLEMS IN THE LESSON." Z$"ALL":CA(CC)Z$"ON$(K);:ZYZY1:ZY21ZY3:ZX20PcK38Ģ23:1:"PRESS RETURN ";Y$::ZX1:ZY3hK:NX0:24:1:"(TYPE 'END' TO QUIT ENTERING STUDENTS)";j23:27:NX" TO "Z2$m22:1:868:":";Z$:Z(Z$):Z$"END"8060nZ1ZNE8045q22:1:I$(Z)" Y""> "X$:I$(K)(I$(K),18);O14:19:NEK" "::D$"CLOSE"T:12:"NOTE THE NUMBER TO THE LEFT OF"::"THE STUDENT(S) YOU WISH TO "Z2$:YZ2ĺ:"OR DISPLAY."U23:"PRESS RETURN ";Y$Y::"ENTER STUDENT NUMBERS":ZX1:ZY3^K1NE:ZY:ZX:IG..."LD$"OPEN"P$",L500":T1NX:D$"WRITE"P$",R"S%(T):"*"::D$"CLOSE"g12:14:"CHECKING..."x15000:9500@SM STUJ:12:13:"CHECKING NAMES":D$"OPENSTU.FL,L500":K1NE:D$"READSTU.FL,R"AF(K)KX$,Z$:I$(K)(" "(K),2)"-<"Z$(37)20PRı^ 23:14:"PRESS RETURN ":16368,0:16384,128:16368,0:3:1:958:3098: PRĢ22:1:"+ = 10 IN-A-ROW CORRECT. E = ":3:DLT1NXNE:K1NX:S%(K)AF(K)::Z2$"DELETE":8000NX9500:12:14:"DELETIN "T Z$;:PRİ8900:Z$"("(" "((C5)),2)"/"(" "(CA),2)") "" "L$:Z$;` :3095 :D$"CLOSE":PRĺ::"E = KEY WAS PRESSED.":"+ = LESSON TERMINATED. STUDENT HAD 10 IN-A-ROW CORRECT."::D$"PR#0" PRİ3096 9500  ĺ" -------------------";3 :PRİ3098{ D$:D$"OPEN"P$",L500":T1NE:D$"READ"P$",R"AF(T):N$,MD,CA,C5,CC Z$"0 ":(CA)Z$(((C5)100CA)) (N$S$,20)" #"MD" "(Z$" ",3)"%";:Z$" ":C50Z$" + " CC0Z$" E"N"3010 Y$"Y"3025Y 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR73015 PRĺD$"PR#"PR:"STUDENT SUMMARY": :"STUDENT NAME LESSON SCORE ";:PRĺ" MODE";" :"-------------------- ------ --------";:PR$" ", 6PRĺD$:D$"PR#"PR:::8200:946 78400H ^K:D$"CLOSE"o _:PRĺD$"PR#"PR:::::D$"PR#0" `::12:"THAT'S ALL!":14:9700 a9500 SMRY PR0::12:"STUDENT SUMMARY":12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$6:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR715Q ::D$"OPENSTU.FL,L500"e (K1NX:RS%(K)| ,D$"READSTU.FL,R"R -N$,MD,CA,C5,CC,Q1 .Q1āT1Q1:CP:S3(T,0)CP:G1CP1:S3(T,G):: 5LL$"-----------------------------------------":S22:"THERE ARE NO STUDENTS IN THE FILE."::"RETURNING TO MAIN MENU...":39023^ 239,0:9500 NXNE:K1NX:S%(K)AF(K)::YZ2Z2$"PRINT":8000:NX9500 PR0::12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"10 Y$"Y"304 1PST PLN 26026aI$(50),C$(50),S%(50),AF(50),I(50),I2(50),IN$(30),R$(30),S3(25,16)D$(4):S$" ":P$"STU.FL"::12:"STUDENT PLANNING":34,1:12:9700M :12:13:"CHECKING...0":15000:NEė:1          2598::M 2595:X14:0:3ZX,ZY:2ZX,ZY:3:4ZX,ZY:5ZX,ZY:2598:0 4ZX,ZY:5ZX,ZY:3:3ZX,ZY:2ZX,ZY:2598:: 2590:O0 CH:X15:16:72562O,156:48:72452O,179:72412O,179:16D 72592O,156:0:72592O,156:4:F 2595:2598:0:2ZX,ZY:X14:3:8ZX,ZY:2598:0:8ZX,ZY:3~ 9ZX,ZY:2598:0:9ZX,ZY::3:5ZX,ZY:6ZX,ZY: 2590:2598:X13:0:11ZX,ZY:5ZX,ZY2:3:12ZX,ZY:2ZX,ZY2:2598:0  12ZX,ZY:2ZX,ZY2:3:11ZX,ZY:5ZX,ZY2:155,"SCORE. ^SEE YOUR TEACHER.":2290042000QD$"CLOSE":8900:8920:9500\ RNFCR E8(232):E9(233):232,32:233,58 CH((8)6)1:CH42512 ZX250:ZY170 Z((8)7)1:Z2530,2535,2540,2545,2550,2555,2560 232,E8:233,E9J:JJ1NCJ2200I:ZT$N$", YOU ARE FINISHED.":D20,80,ZT$ZT$"^YOU HAD "(NC)" CORRECT OUT":D20,100,ZT$:ZT$"OF "((J))" PROBLEMS ATTEMPTED.":D20,120,ZT$END%15000:F1įD1,140,"^FILE IS FULL. ^UNABLE TO SAVE YOUR":D1,H FOR HELP.":ZY80 WT1:7003\Z$A$(J)2150=]9195^A$Z$:ZT$A$(J):Z$ZT$:500:D1,110,ZT$:QQ0:Q10:ZY110:610_Q8Q81:Z$A$:8800:S3(Q8,QQ1)A6(J):CC0:800b2180f9100:CC10NCNC:22008900:8920:J3NCJ.412190 Z$Q$::!l:;!n:12:" LOADING TEACHER MENU..."N!oD$"RUNT-MENU" MZ1:G &: :CK NOS$ :QQ1 :D$"OPEN"P$",L500":NE0:T150:D$"READ"P$",R"T:Z$:Z$"*"NENE1:12:24:NE:AF(NE)T :QQQQ:1458,16011(QQ0) ::D$"CLOSE": ZZ1$Z$:Z$"":G1(Z1$):Q$(Z1$,G,1):Q$"@"Q$"["Q$"^"Q$ !ZZ$LE IS NOW EMPTY."::39022 >&/&PREP 1 LNA&Z0:(Z$)ıd&Z1$"":G1(Z$):Q$(Z$,G,1)y&Q$"@"Q$(95)&Q$"\"Q$(34)&(Q$)94GG1:Q$(Z$,G,1):Z1$Q$:9930&(Q$)65(Q$)90Z1$Q$:9930&Z1$((Q$)32) &Z1$;:Z%CLR FL%16368,0v%12:"WANT TO DELETE ALL STUDENTS"::"AND CLEAR THE FILE? (Y/N) ";Y$:Y$"Y"Y$"N"9710%Y$"N"9790&::5:"=== CLEARING FILE ===":D$&D$"OPEN"P$",L500":T150:D$"WRITE"P$",R"T:"*"::D$"CLOSE" &:8:"FISEE SOME STUDENTS"+%:6:"3 - PRINT STUDENT SUMMARY"::6:"4 - DELETE ALL STUDENTS"::6:"5 - DELETE INDIVIDUAL STUDENTS"0%:6:"6 - GO BACK TO MENU":::6:"WHICH? ";Y$:YZ(Y$):YZ1YZ6(NEYZ6YZ4)9500v%YZ9,9,3000,4,5000,39020M#D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD1:NS:T1NS:I$(T)::V%MNUt!%239,0:::D$:D$"CLOSE"&%"YOU HAVE "NE" STUDENTS IN FILE."::"THERE IS ROOM FOR "50NE" MORE.":::"DO YOU WANT TO:"::6:"1 - SEE ALL STUDENTS"::6:"2 - !"L$"PROPER PERSONAL NAMES":B"L$"DAYS OF WEEK & MONTHS":c"L$"HOLIDAYS, A.M. & P.M.":"L$"PROPER PLACE NAMES":"L$"TITLES":"L$"MISCELLANEOUS":##PRı#23:1:"PRESS RETURN ":16384,128:16368,0#7:1:958:0,39::3:D1,15,"^STUDENT:":D1,26,"^MODE :":D1,32,LL$:D1,75,LL$:T`"RMVCAPSvj"(Z$,1)"^"Z$(Z$,(Z$)1)o"T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)t":"MD8911,8912,8913,8914,8915,8916,8917:"L$"FIRST WORD AND I":39,0:D1,V,Z$!J  !8492:4*!VV11:V182ı,!239,0:D87,191,"^PRESS <^R^E^T^U^R^N>.":16368,0:16384,128:KY(16384):KY1559500-!KY1418492/!0:T36:ET,0,39::3:V7211(J0):G0!16304,0:16299,0:16297,0:0:T16:ET,RECT!" D1,68,Z$" Q18480B D109,130,"":9200 J0:8495:J1Q1:8490:NCS3(J,0):Z$I$(S3(J,NC1)):8800:NC8440 X1:S3(J,1)1Z$"^"Z$:XX1:XNC8440 JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1)):  2Z$"ONLY"D Z$"^STUDENT ATTEMPTED "Z$" "((CC))".":D1,48,Z$z Z$"^STUDENT HAD "((C5))" CORRECT.":D1,58,Z$ Z$"":C50Z$"^LESSON ENDED AFTER 10 IN-A-ROW CORRECT." CC0Z$"<^E^S^CAPE> KEY WAS PRESSED." Q1CACCZ$"^ALL COR9:ZT170:ZB190:22085:95409/N%:D110,90,"^W ^A ^I ^T"Q/X%MDY:Y1Y9İ9200`/Y%Y1İ9250/v%Y1000,2000,3000,4000,5000,6000,7000,8000,9598/~%/&N1$/&Z$NM$/&(Z$)2N$"^"Z$:/&(Z$,1)","(Z$,1)" "Z$(Z$,(Z$)1):995500&R59500A.5%ZT$"^WHICH WOULD YOU LIKE TO DO, "N$"?":D1,20,ZT$f.:%T110:ZX,ZY,ZT$:DZX,ZY,ZT$:.D%LM4:ZX230:ZY185:120.E%ZA$"M"ZA$"MENU"ZA$"MNU"ZA$(20)ĺD$"RUNT-MENU".F%ZA$"0"ZA$"8"ZA$"-1"/I%Y(ZA$)1:Y1Y9ZL230:ZR27Z2((8)NS1):Z1NSZ2NS9240G-$ZZA6(Z1):A6(Z1)A6(Z2):A6(Z2)ZZp-$Z$A$(Z1):A$(Z1)A$(Z2):A$(Z2)Z$:T-"$D$:D$"OPENINSTR,L1000":D$"READINSTR,R"MD:X:T1X:ZX(T),ZY(T),ZT$(T)::D$"CLOSE":-%MNU-&%:960,0:J0:NC0:NS0:NC0:Q80.0%0:8920::40000+,#CC9((8).40)İ25001,#:,#CLRb,#ZL18:ZR270:ZT130:ZB145:22085:m,#RD FL,#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:NS9230,$T1NS:A$(T):A6(T)T:,$D$"CLOSE",$T1NS!-$Z1((8)NS1):ZT$N$", "ZT$.+#ZC2ZT$ZT$", "N$"!"_+#CC10ZT$"^YOU DID 10 IN A ROW CORRECTLY!"v+#9195:D20,150,ZT$+#ZX20:ZY170:ZT$"A GOOD JOB YOU'RE DOING, "N$".":CC99150+#DZX,ZY,ZT$,#CC10ZT$"^GREAT JOB, "N$"!":DZX,ZY,ZT$:890,ZT$:(16384)1418930>*"G1250::(16384)155ġ:2190f*"0:DX0,Y0,ZT$:(16384)1418925y*"3:16368,0:*#RT*#R52150*#CCCC1:NCNC1:CC9ZC9:9115*#ZC((8)101):ZC10ZCZ0ZC99114*#Z0ZC:T1ZC:ZT$:+#ZC1Q8,0)QQ:?)"ZY191:D84,ZY,"^PRESS <^R^E^T^U^R^N>.":ZX133:)"ZT$"^PRESS <^R^E^T^U^R^N>, "N$".":D35,191,ZT$:ZX84:ZY191)"X0ZX:Y0ZY:ZT$"^R^E^T^U^R^N")"16368,0:T1800:(16384)1418930)"(16384)155ġ:2190)"*"3:DX0,Y05:DZX,ZY,ZT$::8910B(h:J13:1995:DZX,ZY,ZT$::8900:8920n(m:J12:1995:J2ZT$ZT$", "N$"."(nDZX,ZY,ZT$::ZX50:ZYZY(X2):8920(|2100(`"FNDCAPS(b"QQ0(e"530(j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K) )":S3(4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:['@MISCe'J:X1'TJ12:1995:DZX,ZY,ZT$::8900:8920'Y:J15:1995:DZX,ZY,ZT$::8910'^K12::J14:1995:DZX,ZY,ZT$::8900:8920:K(c:J14:199S ^E TO ERASE A CAPITAL."&D1,156," ^PRESS ^S^P^A^C^E ^B^A^R TO MOVE THE LINE.":D1,168," ^PRESS <^R^E^T^U^R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT."&D45,191,"^PRESS <^R^E^T^U^R^N> TO GO ON.":ZX94:ZY191:8920Q'0:E1%lJ15:19950%mDZX,ZY,ZT$::8900:8920`%:J14:1995:J2500:DZX,ZY,ZT$::8910j%2100t%HELP~%FFı%0:E4,0,39:E5,0,39:E6,0,39:3:0,110260,110260,1730,1730,110&D1,132," ^PRESS ^C TO CAPITALIZE.":D1,144," ^PRESDZX,ZY,ZT$::8900:8920$$21001$pPLC NMS;$z:X1f$J15:1995:DZX,ZY,ZT$::8900:8920$:J13:1995:DZX,ZY,ZT$::8910$:J12:1995:J2ZT$ZT$", "N$"."$DZX,ZY,ZT$::ZX50:ZYZY(X2):8920$2100$XTITLS%b:X3ZT$ZT$", "N$"."4#DZX,ZY,ZT$::8900:8920>#2100M#HOL/AM/PMW#:X1|#J14:1995:DZX,ZY,ZT$::8910#:J15:1995:DZX,ZY,ZT$::8900:8920#:J14:1995:DZX,ZY,ZT$::8910#:J13:1995:J1ZT$ZT$", "N$","$$:JJ3JJJJ1:3040S" 8900:8920:1995::ZT$ZT$", "N$".":DZX,ZY,ZT$:8910]" 2100g"DAYSq":X1"J13:1995:DZX,ZY,ZT$::8910":J13:1995:DZX,ZY,ZT$::8900:8920":J13:1995:DZX,ZY,ZT$::8910#:T13:1995:T10ZX,ZY:11ZX,ZY:5ZX,ZY2:I! 2ZX,ZYX:5ZX,ZY9X:1ZX,ZYX:a!# G13:GZX,ZY::r!& G1300::! PERS NMS! X1:KK1! :JJ1! 1995:DZX,ZY,ZT$:JJ3JJJJ1:3025! 8910:KK2KKKK1:3020! :JJ1" 1995:DZX,ZY,ZT GOOD WITH COMPUTERS.",1,99#"**AXHCHC:3HC:990:F9960(910XZ0KY128:Z$(Z0):0:ZX7,ZY4ZX13,ZY4m3:ZXZZ%:F90:ZX7,ZY4ZX13,ZY4:Z9120:KY(16384):KY127F91::MODIFY1800 D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,(Z$,T1,1)"^"ZZ1:560-ZZ7:Z1Z11o&Q$(Z$,T1,2):(Z$,T1,1)" "Q$".^"Q$".M"Q$".W"560+QQ1:S(Q)Z:S1(Q1)Z11:S2(Q)T11:Z100T1:S1(Q)Z1:(Z$,1)"?"(Z$,1)(91)S1(Q)S1(Q)1: CRS16368,0:F90:ZZ%Z39,(239):90:255' WLWL1F1:1400 "#"B (ZA$)2420_ (ZA$,(ZA$)1)"^"140 ZA$ZA$"#":239,(239):90:140  SNT CORD Z$ZT$ Z40:Z10:Z1:Q1:S(Q)Z:S2(Q)1:T11(Z$)1 (Z$,T1,1)"@"Z4Z41:S4(Z4)Q:560"#"ZTZYZH1:ZBZY2:ZLZX:ZRZXZW:ZXZXZW:22087:WLWL1 ZA$(ZA$,1,(ZA$)1):ZA$"#"ZA$"":239,(239):90:251 F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ2ZU0 DZX,ZY,Z$:140* (ZA$)F81@ (ZA$,1)"^"140M 239,0:W WRTf UP1ZU1 ZUZT$(91)ZT$"@"ZT$"^"ZT$ UP2İ23230 DZX,ZY,ZT$: ZA$ZA$(Z0):ZA$(8)ZA$"":F91:? ZQ$(ZA$,(ZA$)1,1)ZQ$"^"ZQ$16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,140,158,158c (ZA$,1)"^"140x ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:21150 hZ0321019 i0:UP2ZT$ZA$:23230:ZA$ZT$x k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z021140M 16383,Z0:? T-MENU26026+ D$(4):22000G S3(10,20),A$(25),S(25)S:9500^Y239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZWe16368,0:900:16368,0:Z013F81:fZ08F91: gZ0          10,115,5 - ^PROPER PLACE NAMES,10,130,6 - ^TITLES610,145,7 - ^MISCELLANEOUS,10,160,8 - ^START OVER WITH A NEW STUDENT,1,185,^TYPE A NUMBER AND PRESS RETURN.6(222)255Ħ6"::12:"ERR #"(222)" IN LN "(218)(219)256:198198*,^I'M GOING TO TELL YOUR TEACHER WHATJ5˃^FANTASTIC!,^WONDERFUL! 5l10,40,0 - ^INSTRUCTIONS,10,55,1 - ^FIRST WORD IN SENTENCE AND ^I,10,70,2 - ^PROPER PERSONAL NAMES16v10,85,3 - ^DAYS OF WEEK & MONTHS,10,100,"4 - ^HOLIDAYS, ^A.^M. & ^P.^M.",44G1100::u4D$"WRITESTU.FL,R"T:(34)NM$:MD1:NS:NC:J:Q8:Q8āT1Q8:K0S3(T,0)1:S3(T,K)::{4%5˃YOU'RE DOING GREAT!,^NICE JOB,^PERFECT!,^YES! ^YES! ^YES!,^WAY TO GO!,^COULDN'T BE BETTER!,^W^O^W!,^THE ^F^O^R^C^E IS WITH YOU!ZXX:ZYY:DZX,ZY,ZT$:R3^ZT$"^GREAT JOB!":Y307020:ZYY:ZX29:DZX,ZY,ZT$:b3cHC17:HC3h19,819,70:17,617,72:40090:19,70105,70:17,72107,72:400903i105,70105,8:107,72107,6:40090:105,819,8:107,617,6:400903r:G1200:q&RESTORE'2Rq:K768806:A:K,A::2\q32,177,0,32,103,221,32,82,231,32,26,214,144,8,160,4,177,155,201,131,240,3,76,124,217,165,155,164,156,56,233,1,32,80,216,76,166,217,962@RWRD2E:25002JZT$"== "N$" =="3TX025025:Y160(X1.875)::(15616)1662200651UD$"BLOADGR":D$"BLOADSMCHR"^1U1013,76:1014,0:1015,61:ZH15:ZW7m1U3:1:0:v1EVCLR}1GV01JVZZTZB:ZL,ZZR,Z:Z:3:1ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$1ZZZ$ZZ$Q$1Z:ZT$ZZ$: 2H A NEW STUDENT,1,185,^TYPE A NUMBER AND PRESS RETURN.G7(222)255Ħ7"::12:"ERR #"(222)" IN LN "(218)(219)256:1985Z$Y$:Y$;:9020$x#(Z$)0F81:*#2#RD#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:T1NS:A$(T)::D$"CLOSE"$"$WRT,$D$:D$"OPENTEST.FILE,L1200":D$"WRITETEST.FILE,R"MD:NS:T1NS:(34)A$(T)::D$"CLOSE"6$ 80<#Y$:Y(Y$):Y139080-=#Y219020S>#Y$";"Y$","Y$":"Y$"/":Y47e?#Y27ġ:9500tP#Y89050R#(Z$)F91:S#(Z$)1Z$"":Y$" "Y$;:9020U#Z$(Z$,(Z$)1):Y$" "Y$;:9020Z#Y329020[#(Z$)LMĺ"";:9020d#Z$7& b Z40::"D91,190,"^PRESS <^R^E^T^U^R^N>.":Y"ZX84(7(N$)):ZX1ZX1"ZT$"^PRESS <^R^E^T^U^R^N>, "N$".":DZX,190,ZT$"16368,0:16384,128:16368,0:"D91,191,"^PRESS <^R^E^T^U^R^N>.":8920:(#GT)#Z$""2#F90:F" 9500$DO LWRCASE LNG.K1(Z$):Q((Z$,K,1)):Q644930W/Q944915a0KK1w1(Z$,K,1);:49303Q65Q91ĺ(Q);:49308(Q32);B:: UNDRLN TITLE Z4ı Z1Z4:SS4(Z) S(S),ZY7S(S)(7S1(S))2,ZYINT":"LOWER CASE LETTERS.)"::"CHECK YOUR MANUAL."16:1:868:"IN WHICH SLOT IS YOUR PRINTER? ";Y$:SL(Y$):SL0SL74025D$"PR#"SL:T1MD1:Y$::"MODE:"Y$::T1NS:Z$A$(T):(" "(T),2)"> ";:4900:::D$"PR#0END"3090 NSNS1:A$(NS)A$d ZL0:ZR279:ZT40:ZB80:22087:ZL98:ZR110:ZT130:ZB145:22087t NS253020 ::8:"YOU HAVE "NS" SENTENCES.":1091PRNTR18004::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRINTERS WILL PRS <^R^E^T^U^R^N>.":"";Y$:Y0:- ADD SENT7 1800 NS25ĉ::12:"YOU ALREADY HAVE 25 SENTENCES IN"::"THIS FILE. YOU MAY NOT ADD ANY MORE."::22:"PRESS ";Y$:9500  ZT$"^ADDING SENTENCE "(NS1):D1,60,ZT$:1100:A$"END"A$"^D9500::12:12:"THINKING...":T1ND:A$(S(T))"*":Z T1NS:A$(T)"*"Ă:2090%NSNS1:TNSāKTNS:A$(K)A$(K1)::2080*12:"SURE YOU WANT TO DELETE THESE? Y";:(36):16368,0:"";Y$:Y$"N"9500/9250:9500T D1,190,"^PRES GOOD WITH COMPUTERS.",1,99#"**A.",1,16,21,99< H!"MY COMPUTER BROKE ON CHRISTMAS.",1,22,99h R!"ARE THE TIGERS PLAYING TODAY?",1,9,99 W! "JAN WENT TO CENTRAL HIGH SCHOOL.",1,13,21,26,99 \!"WHAT IS THE CAPITAL OF MICHIGAN?",1,24,99 f!"SHE SPEAKS ARABIC.",1,12,99""KELLY ISZ$"^"Z$Z$(ZA$,Q1,1):QQ1( %9007 *XXI:Q:P T0W:DXT,Y,Z$:TV  @D$"BLOADGR":D$;"BLOADSMCHR,A$6000":1013,76:1014,0:1015,61:232,0:233,96 T 4!"DID DR. SMITH COME FROM IOWA?",1,5,9,25,99 >!"BETTY LIVES ON BERT STREETD$"RUNCAP-PRAC"= (49152)148ĺD$:15616,0:D$"RUNT-MENU"Q W114:0:900e 7:XX170:XXp 900: 0:900:Z$"^"Z$:7:900 AA1:A(A)99175 130 QQ1900: 0:E3,0,39 7:110  Q1(ZA$):Z$(ZA$,Q,1):^S# #^L^O^C^K# KEY IS PRESSED #^D^O^W^N#!"0 d= i49168,0R nA$:A$"**"100p oX17:A(X):A(X)99120v s x2:0,750,92278,92278,750,75:3:ZA$A$:X7:Y95:800 }A1 :X(A(A)1)87:Z$(A$,A(A),1) (49152)141ĺD$:15616,0:3:ZA$"(C) 1985 ^HARTLEY ^COURSEWARE, ^INC."D PX0:Y150:I8:W0K U1T Z800d _X84:Y160: `ZA$"(517) 646-6458":800:ZA$"^VERSION "V$:X75:Y175:800 aZA$"^PRESS <^R^E^T^U^R^N>.":X84:Y190:800* c(64435)6įD1,124,"^BE SURE #^C^A^P% 0260267214,255:40286,252:40287,164C D$(4)U V$"11.18.85"f239,0:8000o21{:0:2(5:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^P^R^A^C^T^I^C^E"<X75:Y35A800. F     ? PRĢ22:1:"+ = 10 IN-A-ROW CORRECT. E = ":3:IDLT1|NXNE:K1NX:S%(K)AF(K)::Z2$"DELETE":8000NX9500:12:14:"DELETING..."D$"OPEN"P$",L500":T1NX:D$"WRITE"P$",R"S%(T):"*"::D$"CLOSE" 12:14:"CHE95 :D$"CLOSE":PRĺ::"E = KEY WAS PRESSED.":"+ = LESSON TERMINATED. STUDENT HAD 10 IN-A-ROW CORRECT."::D$"PR#0" PRİ3096 9500 (37)20PRı 23:14:"PRESS RETURN ":16368,0:16384,128:16368,0:3:1:958:3098:D"P$",R"AF(T):N$,MD,CA,C5,CCF Z$"0 ":(CA)Z$(((C5)100CA)) (N$S$,20)" #"MD" "(Z$" ",3)"%";:Z$" ":C50Z$" + " CC0Z$" E " Z$;:PRİ8900:Z$"("(" "((C5)),2)"/"(" "(CA),2)") "" "L$:Z$; :30PRĺD$"PR#"PR:"STUDENT SUMMARY":l :"STUDENT NAME LESSON SCORE ";:PRĺ" MODE"; :"-------------------- ------ --------";:PRĺ" -------------------"; :PRİ3098 D$:D$"OPEN"P$",L500":T1NE:D$"REA::::D$"PR#0"6 `::12:"THAT'S ALL!":14:9700@ a9500J SMRY PR0::12:"STUDENT SUMMARY":12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"3010 Y$"Y"3025 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR73015# RS%(K) ,D$"READSTU.FL,R"R5 -N$,MD,CA,C5,CC,Q1k .Q1āT1Q1:CP:S3(T,0)CP:G1CP1:S3(T,G):: 5LL$"-----------------------------------------":S2$" " 6PRĺD$:D$"PR#"PR:::8200:94 78400 ^K:D$"CLOSE" _:PRĺD$"PR#"PR:B NXNE:K1NX:S%(K)AF(K)::YZ2Z2$"PRINT":8000:NX9500 PR0::12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"10 Y$"Y"30 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR715 ::D$"OPENSTU.FL,L500" (K1NX:ST PLN 26026aI$(50),C$(50),S%(50),AF(50),I(50),I2(50),IN$(30),R$(30),S3(25,16)D$(4):S$" ":P$"STU.FL"::12:"STUDENT PLANNING":34,1:12:9700:12:13:"CHECKING...0":15000 9500 GOOD WITH COMPUTERS.",1,99#"**A.",1,16,21,99< H!"MY COMPUTER BROKE ON CHRISTMAS.",1,22,99h R!"ARE THE TIGERS PLAYING TODAY?",1,9,99 W! "JAN WENT TO CENTRAL HIGH SCHOOL.",1,13,21,26,99 \!"WHAT IS THE CAPITAL OF MICHIGAN?",1,24,99 f!"SHE SPEAKS ARABIC.",1,12,99""KELLY ISZ$"^"Z$Z$(ZA$,Q1,1):QQ1( %9007 *XXI:Q:P T0W:DXT,Y,Z$:TV  @D$"BLOADGR":D$;"BLOADSMCHR,A$6000":1013,76:1014,0:1015,61:232,0:233,96 T 4!"DID DR. SMITH COME FROM IOWA?",1,5,9,25,99 >!"BETTY LIVES ON BERT STREETD$"RUNCAP-PRAC"= (49152)148ĺD$:15616,0:D$"RUNT-MENU"Q W114:0:900e 7:XX170:XXp 900: 0:900:Z$"^"Z$:7:900 AA1:A(A)99175 130 QQ1900: 0:E3,0,39 7:110  Q1(ZA$):Z$(ZA$,Q,1):^S# #^L^O^C^K# KEY IS PRESSED #^D^O^W^N#!"0 d= i49168,0R nA$:A$"**"100p oX17:A(X):A(X)99120v s x2:0,750,92278,92278,750,75:3:ZA$A$:X7:Y95:800 }A1 :X(A(A)1)87:Z$(A$,A(A),1) (49152)141ĺD$:15616,0:3:ZA$"(C) 1985 ^HARTLEY ^COURSEWARE, ^INC."D PX0:Y150:I8:W0K U1T Z800d _X84:Y160: `ZA$"(517) 646-6458":800:ZA$"^VERSION "V$:X75:Y175:800 aZA$"^PRESS <^R^E^T^U^R^N>.":X84:Y190:800* c(64435)6įD1,124,"^BE SURE #^C^A^P% 0260267214,255:40286,252:40287,164C D$(4)U V$"11.18.85"f239,0:8000o21{:0:2(5:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^P^R^A^C^T^I^C^E"<X75:Y35A800. F     $"^MY HOUSE IS RED.":800:D1,150,ZT$U500:T1:ZY145:B11:B2195:B30:705:B10|$:1980:J14:1995:DZX,ZY,ZT$:)ZT$"^MY ^HOUSE ^IS ^RED.":Z$ZT$:D1,150,Z$.500:T1:F11:ZY145:B11:B2197:B30:705:B108:1980:J14:1995:DZX,F91::3ZT$"<"(J)">":D245,20,ZT$:=INSTG:X1vF11:FF1:1980:J13:1995:DZX,ZY,ZT$:ZT$"^MY HOUSE IS RED.":800:D1,150,ZT$500:T1:ZY145:B11:B2160:B30:705:B10:1980:J14:1995:DZX,ZY,ZT$:&ZT(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)74:ZT$Z$:B CRS\16368,0:F90:ZZ%ZXzHCHC:3HC:990:F9960910Z0KY128:Z$(Z0):0:ZX7,ZY4ZX13,ZY43:ZXZZ%:F90:ZX7,ZY4ZX13,ZY4:Z9120:KY(16384):KY127T1ZXS(T1):ZNS1(T1)7ZX2(ZX1):0:790;TQT1^ZXS(T):ZNS1(T)7ZX2(ZX1)g790qTT1B1B31B32:1990:ZY145710ZX,ZYZN,ZY:3: RMV CAPS%Z$ZT$*(Z$,1)"^"Z$(Z$,(Z$)1):810(/T1(Z$):ZX:TZT:7900:ZXTX:TTZ:ZY75:724?KY195TZT:300:TTZZKY197TZT:400:TTZ(KY141B1B3)(KY141B1)Ē0:790:KY155B1ġ:J(J1):2190(KY160KY195KY197KY141KY155)(KY141B1B31)710F1ZY145.ZT$:500bK1Q5g(Z$,S2(K),1)"^"İ690:650\l(Z$,S2(K),2)(34)"^"QQ7:690d:S(K)QQQ1,ZY5S(K)4QQQ1,ZY5:GT ANSRZY7573016368,0:16384,128:KY(16384):16368,0KYB2B3B31$KY200TX110:S2(T)(GT):S1(T)(GT16):S(T)(GT32)::Z1(G47):Z(G46):Q(G45)T1Q:(Z$,S2(T),1)"\"S2(T)S2(T)1:S(T)S(T)7:S1(T)S1(T)1:(Z$,S2(T),1)"#"S2(T)S2(T)1!(Z$)35S2(1)2&XUNDRLN CAPSZQQ0:Q10 ]Z$Z$(Z$,Z1)"^"(Z$,(Z$)1Z))270/:DECAPHZS2(T1)`(Z$,Z,1)"^"495sZ9Z:260:ZZ9Z1Z$(Z$,(Z$)1):480Z$(Z$,Z1)(Z$,(Z$)Z)285ZY75:SNT CORDZ$ZT$14592Z$QG720:T1)ZT$"^"Q$:530:DZX,ZY,ZT$:ZY75:PQ$(Z$,Z9,1):Q$"#"Z9Z91:285jZXS(T1):ZY8070F1"ZT$Q$:530:DZX,ZY,ZT$:ZY75:,CAPTLZ6ZS2(T1);Q$(Z$,Z,1)>Q$"A"Q$"Z"395@Z9Z:260:ZZ9EZ1Z$"^"Z$:390 J1,(ZA$)1), F1(ZA$,1)"^"(ZA$,1)"#"K (ZA$)2ZA$"":WL0:140w ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 WLWL1F1:140 0:Y$(Z$,Z,1(KY197)):DZX,8070F1,Y$:3: Q$(Z$,Z91,1):Q$"#"Z9Z91:270ZXS(T1):ZY8070FZ$"@"Z$"^"Z$:ZU0* DZX,ZY,Z$:140< (ZA$)F81R (ZA$,1)"^"140_ 239,0:h WRT ZA$ZA$(Z0):ZA$(8)ZA$"":F91: ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY7:ZLZX:ZRZXZW:ZXZXZW:22087 ZA$(ZA$,40_ 16383,Z0:16240:Z0(16383):WT(16382):WT140,215,140,251,150,158,140,140,140,140,158u (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)08F91: gZ021150( hZ032101L i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 xINPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z0211OUR NAME AND PRESS <^R^E^T^U^R^N>.":75,140205,140:D119,160,"(NAME)" (LM15:ZX84:ZY145:UP2:120:UP0:(ZA$,4)"MENU"(ZA$,3)"MNU"(ZA$,4)" MEN"9541 )F8FSF940 -NM$ZA$:9950 29500 e16368,0:900:16368,0:Z013F81: fZk.CAP-PRAC6/3/86&26026263000W D$(4):29000:22000:U239:U,0 A$(25),S3(16,10),ZX(25),ZY(25),ZT$(25),A6(25):5:75,1075,60205,60205,1075,10:3:D91,40,"^CAPITALIZATION":D112,60,"^PRACTICE"F #D8,120,"^HI! ^TYPE Y               R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT."&D45,191,"^PRESS <^R^E^T^U^R^N> TO GO ON.":ZX94:ZY191:8920&0:E4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:&@MISC&J:X1'TJ12:19 %FFıR%0:E4,0,39:E5,0,39:E6,0,39:3:0,110260,110260,1730,1730,110%D1,132," ^PRESS ^C TO CAPITALIZE.":D1,144," ^PRESS ^E TO ERASE A CAPITAL."@&D1,156," ^PRESS ^S^P^A^C^E ^B^A^R TO MOVE THE LINE.":D1,168," ^PRESS <^R^E^T^U^1995:DZX,ZY,ZT$::8910E$:J12:1995:J2ZT$ZT$", "N$"."n$DZX,ZY,ZT$::ZX50:ZYZY(X2):8920x$2100$XTITLS$b:X1$lJ15:1995$mDZX,ZY,ZT$::8900:8920$:J14:1995:J2500:DZX,ZY,ZT$::8910$2100%HELP::89105#:J15:1995:DZX,ZY,ZT$::8900:8920\#:J14:1995:DZX,ZY,ZT$::8910#:J13:1995:J1ZT$ZT$", "N$","#DZX,ZY,ZT$::8900:8920#2100#pPLC NMS#z:X1#J15:1995:DZX,ZY,ZT$::8900:8920$:J13:J13:1995:DZX,ZY,ZT$::8910O":J13:1995:DZX,ZY,ZT$::8900:8920v":J13:1995:DZX,ZY,ZT$::8910":T13:1995:T3ZT$ZT$", "N$".""DZX,ZY,ZT$::8900:8920"2100"HOL/AM/PM":X1#J14:1995:DZX,ZY,ZT$! PERS NMS! X1:KK1$! :JJ1N! 1995:DZX,ZY,ZT$:JJ3JJJJ1:3025l! 8910:KK2KKKK1:3020w! :JJ1! 1995:DZX,ZY,ZT$:JJ3JJJJ1:3040! 8900:8920:1995::ZT$ZT$", "N$".":DZX,ZY,ZT$:8910! 2100!DAYS!:X1""2592* 0:2592:X:3:2592:6ZX,ZY8:> 2595:O1:2548 ZX240:2595:R0648:3:R:2595:0:2595:ZXZX2:R:3:0:2595:  10ZX,ZY:11ZX,ZY:5ZX,ZY2: 2ZX,ZYX:5ZX,ZY9X:1ZX,ZYX: # G13:GZX,ZY:: & G1300:: X,ZY:2598:: 2590:O0d CH:X15:16:72562O,156:48:72452O,179:72412O,179:16 72592O,156:0:72592O,156:48:72412O,179:CH::16:72562O,156:48:72452O,179:3:0: ZYZY10:2595:2598:0:2595:X182:3:6ZX,ZY:Z 2590:2598:X13:0:11ZX,ZY:5ZX,ZY2:3:12ZX,ZY:2ZX,ZY2:2598:0 12ZX,ZY:2ZX,ZY2:3:11ZX,ZY:5ZX,ZY2:2598:: 2595:X14:0:3ZX,ZY:2ZX,ZY:3:4ZX,ZY:5ZX,ZY:2598:0 4ZX,ZY:5ZX,ZY:3:3ZX,ZY:2Z:232,32:233,58. CH((8)6)1:CH42512@ ZX250:ZY170x Z((8)7)1:Z2530,2535,2540,2545,2550,2555,2560 232,E8:233,E9: 2595:2598:0:2ZX,ZY:X14:3:8ZX,ZY:2598:0:8ZX,ZY:3  9ZX,ZY:2598:0:9ZX,ZY::3:5ZX,ZY:D20,100,ZT$:ZT$"OF "((J))" PROBLEMS ATTEMPTED.":D20,120,ZT$JEND15000:F1įD1,140,"^FILE IS FULL. ^UNABLE TO SAVE YOUR":D1,155,"SCORE. ^SEE YOUR TEACHER.":229042000D$"CLOSE":8900:8920:9500 RNFCR E8(232):E9(233)0:610:_Q8Q81:Z$A$:8800:S3(Q8,QQ1)A6(J):CC0:800Db2180bf9100:CC10NCNC:22008900:8920:J3NCJ.412190J:JJ1NCJ2200U,0::ZT$N$", YOU ARE FINISHED.":D20,80,ZT$AZT$"^YOU HAD "(NC)" CORRECT OUT":,ZY,ZT$:89104PRAC*CNC0:CC0:F106HJ1NSeR:995:ZT$A$(J):800:D1,80,ZT$:U,0:500TJ4įD20,150,"^PRESS ^H FOR HELP.":ZY80WT1:700\Z$A$(J)2150]9195^A$Z$:ZT$A$(J):Z$ZT$:500:D1,110,ZT$:U,0:QQ0:Q10:ZY11^N> TO GO ON.":9ZXZX(X):ZYZY(X):ZT$ZT$(X):XX1:F1ST WRDP:X1oJ14:1995:DZX,ZY,ZT$:y8910:1995:DZX,ZY,ZT$:1995:DZX,ZY,ZT$:ZT$"THIS, "N$".":D1,100,ZT$:8910 :1995:DZX,ZY,ZT$:1995:ZT$ZT$", "N$".":DZX1115B`:D1,80,"^THIS WOULD BE THE NEXT SENTENCE.":8900:892016368,0::D1,80,"^NOW WE WILL GO BACK TO THE":D1,100,"BEGINNING SO YOU CAN CHOOSE.":8910FF0:9500D90,30,"^INSTRUCTIONS":90,25173,25:D52,190,"^PRESS <^R^E^T^U^RZY,ZT$:P=ZT$"MY HOUSE IS RED.":D1,150,ZT$:Z$ZT$:500:T1:F11:ZY145:705}GZT$"^MY HOUSE IS RED.":D1,170,ZT$:600LT11240:(16384)1411120V:D31,190,"^PRESS <^R^E^T^U^R^N> AGAIN TO GO ON."[16368,0:16384,128:(16384)141PE A NUMBER AND PRESS RETURN./6(222)255Ħj6"::12:"ERR #"(222)" IN LN "(218)(219)256:198ZX(25),ZY(25),ZT$(25),A6(25):5:75,1075,60205,60205,1075,10:3:D91,40,"^CAPITALIZATION":D112,60,"^PRACTICE"F #D8,120,"^HI! ^TYPE YTENCE AND ^I,10,70,2 - ^PROPER PERSONAL NAMES5v10,85,3 - ^DAYS OF WEEK & MONTHS,10,100,"4 - ^HOLIDAYS, ^A.^M. & ^P.^M.",10,115,5 - ^PROPER PLACE NAMES,10,130,6 - ^TITLES610,145,7 - ^MISCELLANEOUS,10,160,8 - ^START OVER WITH A NEW STUDENT,1,185,^TY'RE DOING GREAT!,^NICE JOB,^PERFECT!,^YES! ^YES! ^YES!,^WAY TO GO!,^COULDN'T BE BETTER!,^W^O^W!,^THE ^F^O^R^C^E IS WITH YOU!,^I'M GOING TO TELL YOUR TEACHER WHAT4˃^FANTASTIC!,^WONDERFUL! -5l10,40,0 - ^INSTRUCTIONS,10,55,1 - ^FIRST WORD IN SEN0:19,70105,70:17,72107,72:40090j3i105,70105,8:107,72107,6:40090:105,819,8:107,617,6:40090{3r:G1200:33G1100::3D$"WRITESTU.FL,R"T:(34)NM$:MD1:NS:NC:J:Q8:Q8āT1Q8:K0S3(T,0)1:S3(T,K)::34˃YOU5,155,164,156,56,233,1,32,80,216,76,166,217,9682@RWRDD2E:2500[2JZT$"== "N$" =="2TX025025:Y160(X1.875):ZXX:ZYY:DZX,ZY,ZT$:2^ZT$"^GREAT JOB!":Y307020:ZYY:ZX29:DZX,ZY,ZT$:2cHC17:HC$3h19,819,70:17,617,72:4009ZTZB:ZL,ZZR,Z:Z:3:Y1ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$h1ZZZ$ZZ$Q$x1Z:ZT$ZZ$:1Hq&RESTORE1Rq:K768806:A:K,A::.2\q32,177,0,32,103,221,32,82,231,32,26,214,144,8,160,4,177,155,201,131,240,3,76,124,217,16N$,11) 0&0:FND1c0:F10:D$"OPENSTU.FL,L500":T150:D$"READSTU.FL,R"T:Z$:Z$"*"Ă:F11i0:0U232,0:233,96:(15616)166220060UD$"BLOADGR":D$"BLOADSMCHR"0U1013,76:1014,0:1015,61:ZH15:ZW70U3:1:0:0EVCLR0GV01JVZ0,5000,6000,7000,8000,9598 /~%)/&N1$4/&Z$NM$M/&(Z$)2N$"^"Z$:{/&(Z$,1)","(Z$,1)" "Z$(Z$,2):9955/&T1(Z$):(Z$,T,1)","Z$(Z$,T1):9955/&/&T1(Z$):(Z$,T,1)" "9975/&0&N$"^"(Z$,T1):(N$)11N$(185:120C.E%ZA$"M"ZA$"MENU"ZA$"MNU"ZA$(20)ĺD$"RUNT-MENU"a.F%ZA$"0"ZA$"8"ZA$"-1".I%Y(ZA$)1:Y1Y9ZL230:ZR279:ZT170:ZB190:22085:9540.N%:D110,90,"^W ^A ^I ^T".X%MDY:Y1Y9İ9200.Y%Y1İ9250/v%Y1000,2000,3000,400D$"OPENINSTR,L1000":D$"READINSTR,R"MD:X:T1X:ZX(T),ZY(T),ZT$(T)::D$"CLOSE":\-%MNU-&%:960,0:J0:NC0:NS0:NC0:Q80-0%R59500-5%ZT$"^WHICH WOULD YOU LIKE TO DO, "N$"?":D1,20,ZT$-:%T110:ZX,ZY,ZT$:DZX,ZY,ZT$:.D%LM4:ZX230:ZYOPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:NS9230V,$T1NS:A$(T):A6(T)T:e,$D$"CLOSE"q,$T1NS,$Z1((8)NS1):Z2((8)NS1):Z1NSZ2NS9240,$ZZA6(Z1):A6(Z1)A6(Z2):A6(Z2)ZZ,$Z$A$(Z1):A$(Z1)A$(Z2):A$(Z2)Z$:TS-"$D$:#ZX20:ZY170:ZT$"A GOOD JOB YOU'RE DOING, "N$".":CC99150P+#DZX,ZY,ZT$+#CC10ZT$"^GREAT JOB, "N$"!":DZX,ZY,ZT$:8900:8920::40000+#CC9((8).40)İ2500+#+#CLR+#ZL18:ZR270:ZT130:ZB145:22085:+#RD FL9,#D$:D$"*#RT*#R521508*#CCCC1:NCNC1:CC9ZC9:9115c*#ZC((8)101):ZC10ZCZ0ZC99114|*#Z0ZC:T1ZC:ZT$:*#ZC1ZT$N$", "ZT$*#ZC2ZT$ZT$", "N$"!"*#CC10ZT$"^YOU DID 10 IN A ROW CORRECTLY!"*#9195:D20,150,ZT$@+)"X0ZX:Y0ZY:ZT$"^R^E^T^U^R^N"L)"16368,0:T1800:(16384)1418930l)"(16384)155ġ:JJ:2190r)")"3:DX0,Y0,ZT$:(16384)1418930)"G1250::(16384)155ġ:JJ:2190)"0:DX0,Y0,ZT$:(16384)1418925)"3:16368,0:DZX,ZY,ZT$::ZX50:ZYZY(X2):8920-(|2100:(`"FNDCAPSC(b"QQ0L(e"530(j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K)(":S3(Q8,0)QQ:("ZY191:D84,ZY,"^PRESS <^R^E^T^U^R^N>.":ZX133:("ZY191:D84,ZY,"^PRESS <^R^E^T^U^R^N>.":ZX133!95:DZX,ZY,ZT$::8900:8920C'Y:J15:1995:DZX,ZY,ZT$::8910z'^K12::J14:1995:DZX,ZY,ZT$::8900:8920:K'c:J14:1995:DZX,ZY,ZT$::8910'h:J13:1995:DZX,ZY,ZT$::8900:8920'm:J12:1995:J2ZT$ZT$", "N$"."#(n";Y$1800f:Y0:K1NS:ZT$"<"(K)">":YY20:D1,Y,ZT$:ZT$A$(K):239,0:D1,Y9,ZT$:239,0Y160KNSİ2900::2900ND0:::"ENTER THE NUMBERS OF THE SENTENCES":"YOU WISH TO DELETE, FOLLOWED BY":" AFTER EACH NUMBER.":T16MD:ZT$::ZT$"<"ZT$">":D30,45,ZT$5bNX,YX3,Y4X6,Y:WDLT::8:"ALL SENTENCES WILL BE DISPLAYED."::"PLEASE NOTE THE NUMBERS OF THE ONES"::"YOU WOULD LIKE TO DELETE FROM THE FILE."22:16368,0:"PRESS 2MD91820MD995002&9200:Y91NS25ıC'Y92Y94ız0:D1,15,"^TYPE ' ' TO CAPITALIZE.":X42:Y6:19902D1,28,"^TYPE ' ' TO UNDERLINE.":3543,15:3544,1540,25279,25:0,150279,1505D1,190,"^TYPE 'END' WHEN FINISHED."/:2:120:UP0(fZA$"N"ZA$"Y"1125:tZA$"N"1100_~ZT130:ZB145:ZL0:ZR140:22087esGET MODE:"WHICH DO YOU WANT TO DO?":T17:Y$:T22:4:Y$:::4:"8 - RETURN TO MENU" 21:4:868:"WHICH? ";Y$:MD(Y$)1:MD1,150,"^ENTER NEW SENTENCE."C`ZX1:ZY112:120:89:(ZA$)1120gaA$ZA$:A$"END"A$"^END"1160cT1(A$):(A$,T,1)"^"Ă:D1,130,"(^NO LETTERS CAPITALIZED.)":198 eZT130:ZB145:ZL0:ZR140:22087:D1,150,"^O^K? (^Y/^N)":ZX70:ZY150:UPEND"A$"^END"KK1:1090'%A$(K)A$=8KNSKK1:1050EB:C12:"DO YOU WANT TO SAVE NEW SENTENCES? Y";:(36):16368,0:"";Y$:Y$"N"1095D9250G9500LENTER SENTU0:E4,0,39:3VLM39:ZT130:ZB145:ZL0:ZR120:22087:D3:E3,0,39:E4,0,39:3\ZT$"<"(K)">":D1,60,ZT$:239,0:D1,85,A$(K):239,0:500:8200D1,150,"^CHANGE? (^Y/^N) ^N":ZA$"N"LM1:ZX99:ZY150:UP2:100:UP0F9KK1(K1):1050FSF8ZA$"N"1080 ZA$"Y"1053$1100:A$"3:ZXZZ%:F90:TZX7,ZY4ZX12,ZY4:Z9120:KY(16384):KY127F91:\:hMODIFYr1800D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,"^TYPE '^Y' TO CHANGE SENTENCE."K1ZT134:ZB144:ZL98:ZR105:22085:0:E2,0,"Q$".M"Q$".W"560E+QQ1:S(Q)Z:S1(Q1)Z11:S2(Q)T11:Z100T1:S1(Q)Z1:(Z$,1)"?"(Z$,1)(91)S1(Q)S1(Q)1: CRS16368,0:F90:ZZ%ZXHCHC:3HC:990:F9960910Z0KY128:Z$(Z0):0:ZX7,ZY4ZX12,ZY4"^"140- ZA$ZA$"#":239,(239):90:140<  SNT CORDG Z$ZT$z Z40:Z10:Z1:Q1:S(Q)Z:S2(Q)1:T11(Z$)1 (Z$,T1,1)"@"Z4Z41:S4(Z4)Q:560 (Z$,T1,1)"^"ZZ1:560 ZZ7:Z1Z11&Q$(Z$,T1,2):(Z$,T1,1)" "Q$".^):ZA$"#"ZA$"":239,(239):90:251H F1(ZA$,1)"^"(ZA$,1)"#"g (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ239,(239):90:255 WLWL1F1:140 "#" (ZA$)2420 (ZA$,(ZA$)1)"^"Z$:ZU0 DZX,ZY,Z$:1401 (ZA$)F81G (ZA$,1)"^"140T 239,0:^ WRT ZA$ZA$(Z0):ZA$(8)ZA$"":F91: ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY2:ZLZX:ZRZXZW:ZXZXZW:22087' ZA$(ZA$,1,(ZA$)183,Z0:16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,158,140,158j (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$ gZ021150 hZ032101@ i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z021140T 163v T-MENU26026+ D$(4):22000G S3(10,20),A$(25),S(25)Z239,0::9500eY239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZWe16368,0:900:16368,0:Z013F81:fZ08F91:           ROPER PERSONAL NAMES,^DAYS OF WEEK AND MONTHS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAMES,^TITLES,^MISCELLANEOUS$"^"Q$"ZZZ$ZZ$Q$'"Z:ZT$ZZ$:g"l1 - FIRST WORD IN SENTENCE AND I,2 - PROPER PERSONAL NAMES"v3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES"7 - MISCELLANEOUSu#^FIRST WORD IN SENTENCE & ^I,^P9920!&Q$;!&::?!U232,0:233,96:(15616)16622006z!U1013,76:1014,0:1015,61:D$"BLOADGR":D$"BLOADSMCHR"!UZH15:ZW7!U3:1:0:!EVCLR!GV0!JVZZTZB:ZL,ZZR,Z:Z:3:"ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["QN PRINTER"::6:"5 - RUN PRACTICE PROGRAM"::6:"6 - SEE STUDENT RECORDS"} X%::6:"WHICH? ";Y$:Y9(Y$):Y91Y969500 v%Y93000,2000,1000,4000,9596,9597 |%D$"RUNCAP-PRAC" }%D$"RUNSTU PLAN" &PRNT A LN!&J1(Z$):Q$(Z$,J,1):Q$"^"FILE,R"MD:NS:T1NS:(34)A$(T)::D$"CLOSE"46$>%MENU[!%16368,0:D$:D$"CLOSE"&%::4:"DO YOU WANT TO:":::6:"1 - ADD SENTENCES"::6:"2 - DISPLAY/DELETE SENTENCES"::6:"3 - DISPLAY/MODIFY SENTENCES"K +%:6:"4 - PRINT SENTENCES O:9020Z#Y329020/[#(Z$)LMĺ"";:9020Gd#Z$Z$Y$:Y$;:9020[x#(Z$)0F81:a#i#RD#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:T1NS:A$(T)::D$"CLOSE"$"$WRT.,$D$:D$"OPENTEST.FILE,L1200":D$"WRITETEST.))2,ZY7& b Z40:"(#GT,)#Z$"":2#F90:F80U<#Y$:Y(Y$):Y139080d=#Y219020>#Y$";"Y$","Y$":"Y$"/":Y47?#Y27ġ:9500P#Y89050R#(Z$)F91:S#(Z$)1Z$"":Y$" "Y$;:9020U#Z$(Z$,(Z$)1):Y$" "Y$;9500$DO LWRCASE LN@.K1(Z$):Q((Z$,K,1)):Q64Q95P/Q944915Z0KK1p1(Z$,K,1);:49303Q92Q344Q65Q91ĺ(Q);:49308(Q32);B:: UNDRLN TITLE Z4ı Z1Z4:SS4(Z)  S(S),ZY7S(S)(7S1(SLOWER CASE LETTERS.)"::"CHECK YOUR MANUAL."}16:1:868:"IN WHICH SLOT IS YOUR PRINTER? ";Y$:SL(Y$):SL0SL74025D$"PR#"SL:T1MD1:Y$::"MODE:"Y$::T1NS:Z$A$(T):(" "(T),2)"> ";:4900:::D$"PR#0"$"^ADDING SENTENCE "(NS1):D1,60,ZT$:1100:A$"END"A$"^END"3090] NSNS1:A$(NS)A$m NS253020 ::8:"YOU HAVE "NS" SENTENCES.":1091PRNTR1800-::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRINTERS WILL PRINT":" D1,190,"^PRESS <^R^E^T^U^R^N>.":"";Y$:Y0:< ADD SENTF 1800 NS25ĉ::12:"YOU ALREADY HAVE 25 SENTENCES IN"::"THIS FILE. YOU MAY NOT ADD ANY MORE."::22:"PRESS ";Y$:9500G 0:ZT$(NS):D113,60,ZT$:E3,0,39:E4,0,39:3:ZT252050ND9500I:12:12:"THINKING...":T1ND:A$(S(T))"*":i T1NS:A$(T)"*"Ă:2090%NSNS1:TNSāKTNS:A$(K)A$(K1)::2080*12:"SURE YOU WANT TO DELETE THESE? Y";:(36):16368,0:"";Y$:Y$"N"9500/9250:9500.T+:"TYPE 'END' WHEN YOU ARE FINISHED."\12:1:868:"DELETE:";:LM3:9000:F82050uF9NDNDND1:2060Z$"END"2070(Z$)1(Z$)NS2050NDND1:S(ND)(Z$) 8:1:958:NDĺ"DELETING:";:T1ND:S(T)",";::2050NDĠҮ̠ϠǠȠ¿Š̠ԠϠŠԮɠŠӮҠӠŮΠҮŠŠҿŠŠƠӠӠԠԮŠŠŮٮŠŠĠΠŠϠ̠̿ΠŠŠ׿͠ŠӮˠŠŮ٠ҠӠҮ̮ɠŠҮˠҠΠҮخŠŠӠϠ٠ٮŠՠԠӠŠԿӠӠ٠Ԯ̠ΠӠŠŠſŠ̠ĠӮ٠ΠҠծ٠ĠĠƠ٬Ӯӿ͠Ԡ٠٠ԮŠנŠΠӠԠŠˮ٠ĠӠӮΠӠɠנҮӠҮΠٮ̠ͬĠ٠ΠԮԠĠɠԠϠŠӮȮҮĠӮΠŠŠٮŠӠϠŠĠӮӮΠӠŠȠϠϿӮɠŠĠɠԠŠſ٠ǠĠɠΠΠԮϠӠϠӠҮ٠ɠ̠տɧ̠̠ٮӠĮ٠ĠĠɠԠҠŮɠŠŠͮԠӠĮՠԠϠϠˮ٠̠ϠϮĠɠŠՠԠŠſƠɠΧԠŠլɠ̠ϠŮĠɠҠŠ̿ŠĠɠԠϠ̮̠Ġޢ٠͠Ġɠ̠ˮ̠Š͠ٿ̠ɠ͠ϿҠǠӠӠǠӠɠͮΠɠРտɠ͠٠ǮǠǠΠΠԮ̠ɠŠՠ׿ɠΧԠϠȠծɠԠ٠ŮϠɠ̠ſϠӠΠſŠĠɠ̠Ϡ׮ŠĠԠɠ٠Ϯ٠ɠŠԠ˿ĠɠŠԿɠ̠̠ٮԠӠٮS GOOD WITH COMPUTERS.",1,99$"**O,252:40287,164C D$(4)U V$"01.29.87"f239,0:8000o21{:0:2(5:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^P^R^A^C^T^I^C^E"<X75:Y35A8001 FET.",1,16,21,99> H!"MY COMPUTER BROKE ON CHRISTMAS.",1,22,99j R!"ARE THE TIGERS PLAYING TODAY?",1,9,99 W!"JAN WENT TO CENTRAL HIGH SCHOOL.",1,13,21,26,99 \!"WHAT IS THE CAPITAL OF MICHIGAN?",1,24,99 f!"SHE SPEAKS ARABIC.",1,12,99""KELLY I:Z$"^"Z$Z$(ZA$,Q1,1):QQ1* %9009 *XXI:Q:R T0W:DXT,Y,Z$:TX  @D$"BLOADGR":D$;"BLOADSMCHR,A$6000":1013,76:1014,0:1015,61:232,0:233,96 T 4!"DID DR. SMITH COME FROM IOWA?",1,5,9,25,99 >!"BETTY LIVES ON BERT STRE5616,0:D$"RUNCAP-PRAC"E (49152)148ĺD$:15616,0:D$"RUNT-MENU"Y W114:0:900m 7:XX170:XXx 900: 0:900:Z$"^"Z$:7:900 AA1:A(A)99175 130 QQ1900: 0:E3,0,39 7:110! Q1(ZA$):Z$(ZA$,Q,1) #^C^A^P^S# #^L^O^C^K# KEY IS PRESSED #^D^O^W^N#!"8 dE i49168,0Z nA$:A$"**"100x oX17:A(X):A(X)99120~ s x2:0,750,92278,92278,750,75:3:ZA$A$:X7:Y95:800 }A1 :X(A(A)1)87:Z$(A$,A(A),1) (49152)141ĺD$:13:ZA$"(C) 1982,86 ^HARTLEY ^COURSEWARE, ^INC."H PX16:Y150:I7:W0O U1X Z800l _I8:X84:Y160: `ZA$"(517) 646-6458":800:ZA$"^VERSION "V$:X75:Y175:800 aZA$"^PRESS <^R^E^T^U^R^N>.":X84:Y190:8002 c(64435)6įD1,124,"^BE SURE% 0260267214,255:40286,252:40287,164C D$(4)U V$"01.29.87"f239,0:8000o21{:0:2(5:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^P^R^A^C^T^I^C^E"<X75:Y35A8001 F     Q11::955 J$: LL$:D$"PR#0"*b 4 SHO1y 239,0:8496:Z$N$:23230:D57,15,Z$:Z0:(CA)Z((C5)100CA) 8900:Z$L$:23230:Z$Z$" <"(Z)"%>":D57,26,Z$ Z$"^THERE ARE "(CA)" PROBLEMS IN THE LESSON.":D1,38,Z$ Z$"ALL": WERE:":9200F J1Q1:NCS3(J,0):Z$I$(S3(J,NC1)):8800:NC8230t X1:S3(J,1)1Z$"^"Z$:XX1:XNC8230! JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1)):& " -";:9900 0 (16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0":J(CC)Z$"ONLY": :"STUDENT ATTEMPTED "Z$" "((CC))"."^ "STUDENT HAD "(C5)" CORRECT." C50ĺ:"LESSON TERMINATED BECAUSE STUDENT DID":"TEN CONSECUTIVE PROBLEMS CORRECTLY." CC0ĺ:" KEY WAS PRESSED." Q18250  :"ERRORS$(Z)" Y";:(36):"";Y$:Y$"N"8042IrNXNX1:S%(NX)AF(Z):NX508042O|Z PRNT1 ::1:"STUDENT:"N$:Z0:(CC)Z((C5)100(CC)) 8900:"MODE :"L$" <"Z"%>":LL$ "THERE ARE "CA" PROBLEMS IN THE LESSON." Z$"ALL":CAY:ZX:I$(K);:ZYZY1:ZY21ZY3:ZX20XcK38Ģ23:1:"PRESS RETURN ";Y$::ZX1:ZY3hK:NX0:24:1:"(TYPE 'END' TO QUIT ENTERING STUDENTS)";j23:27:NX" TO "Z2$m22:1:868:":";Z$:Z(Z$):Z$"END"8060nZ1ZNE8045$q22:1:I"-<"Z$"> "X$:I$(K)(I$(K),18)CO14:19:NEK" "::D$"CLOSE"T:12:"NOTE THE NUMBER TO THE LEFT OF"::"THE STUDENT(S) YOU WISH TO "Z2$:YZ2ĺ:"OR DISPLAY."U23:"PRESS RETURN ";Y$Y::"ENTER STUDENT NUMBERS":ZX1:ZY3'^K1NE:Z"DELETING..."TD$"OPEN"P$",L500":T1NX:D$"WRITE"P$",R"S%(T):"*"::D$"CLOSE"o12:14:"CHECKING..."15000:9500@SM STUJ:12:13:"CHECKING NAMES":D$"OPENSTU.FL,L500":K1NE:D$"READSTU.FL,R"AF(K)!KX$,Z$:I$(K)(" "(K),2)00 (37)20PRıf 23:14:"PRESS RETURN ":16368,0:16384,128:16368,0:3:1:958:3098: PRĢ22:1:"+ = 10 IN-A-ROW CORRECT. E = ":3:DLT1NXNE:K1NX:S%(K)AF(K)::Z2$"DELETE":8000NX9500 :12:14:0Z$" E "\ Z$;:PRİ8900:Z$"("(" "((C5)),2)"/"(" "(CA),2)") "" "L$:Z$;h :3095 :D$"CLOSE":PRĺ::"E = KEY WAS PRESSED.":"+ = LESSON TERMINATED. STUDENT HAD 10 IN-A-ROW CORRECT."::D$"PR#0" PRİ3096 95;:PRĺ" -------------------";8 :PRİ3098 D$:D$"OPEN"P$",L500":T1NE:D$"READ"P$",R"AF(T):N$,MD,CA,C5,CC Z$"0 ":(CC)Z$(((C5)100(CC))) (N$S$,20)" #"MD" "(Z$" ",3)"%";:Z$" ":C50Z$" + "  CCY"Y$"N"3010! Y$"Y"3025^ 16:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR73015 PRĺD$"PR#"PR:"STUDENT SUMMARY": :"STUDENT NAME LESSON SCORE ";:PRĺ" MODE";' :"-------------------- ------ --------"-":S2$" "1 6PRĺD$:D$"PR#"PR:::8200:94; 78400M ^K:D$"CLOSE"t _:PRĺD$"PR#"PR:::::D$"PR#0" `::12:"THAT'S ALL!":14:9700 a9500 SMRY PR0::12:"STUDENT SUMMARY":12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"6:1:868:"WHICH SLOT? ";Y$:PR(Y$):PR0PR715Q ::D$"OPENSTU.FL,L500"e (K1NX:RS%(K)| ,D$"READSTU.FL,R"R -N$,MD,CA,C5,CC,Q1:Q10 .Q1āT1Q1:CP:S3(T,0)CP:G1CP1:S3(T,G):: 5LL$"----------------------------------------2:"THERE ARE NO STUDENTS IN THE FILE."::"RETURNING TO MAIN MENU...":39023^ 239,0:9500 NXNE:K1NX:S%(K)AF(K)::YZ2Z2$"PRINT":8000:NX9500 PR0::12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"10 Y$"Y"304 1 ST PLN 26026aI$(50),C$(50),S%(50),AF(50),I(50),I2(50),IN$(30),R$(30),S3(25,16)D$(4):S$" ":P$"STU.FL"::12:"STUDENT PLANNING":34,1:12:9700M :12:13:"CHECKING...0":15000:NEė:1          ΧӠԬŠčԠӠŠӠӠĮӠӠΠ٠ōϠҮŠĠܠӠӍĮŠҍŠŠŠӍҠՠϠٍĠȠӮخŠӠŠšӠΠϠ٠ōƠōŠԠĠΠŠӠŮ٠ԮӠĠŠŠԿӠȠӠͬĬĠŠԠĠ΍ԠĠӠӮخ٠͠ӠǠҮŠӠԬŬĠ΍ŠĠΠՠŠŠ̠ҍĠŠԠȠ̠Ү٠ԮΠՠӠξŠՠ̍ŠŠԠŮŠԍŠՠӠξՠ̠Ϡ΍ϠŠԠ"RUNT-MENU"!26026aI$(50),C$(50),S%(50),AF(50),I(50),I2(50),IN$(30),R$(30),S3(25,16)D$(4):S$" ":P$"STU.FL"::12:"STUDENT PLANNING":34,1:12:9700M :12:13:"CHECKING...0":15000:NEė:1150:D$"READ"P$",R"T:Z$:Z$"*"NENE1:12:24:NE:AF(NE)T_ :QQQQ:1458,16011(QQ0)r ::D$"CLOSE": ZZ1$Z$:Z$"":G1(Z1$):Q$(Z1$,G,1):Q$"@"Q$"["Q$"^"Q$ ZZ$Z$Q$:: l: n:12:" LOADING TEACHER MENU..." !oD$&Z1$"":G1(Z$):Q$(Z$,G,1)6&Q$"@"Q$(95)K&Q$"\"Q$(34)y&(Q$)94GG1:Q$(Z$,G,1):Z1$Q$:9930&(Q$)65(Q$)90Z1$Q$:9930&Z1$((Q$)32)&Z1$;:ZZ1:G&::CK NOS:QQ1@ :D$"OPEN"P$",L500":NE0:TND CLEAR THE FILE? (Y/N) ";Y$:Y$"Y"Y$"N"9710D%Y$"N"9790l&::5:"=== CLEARING FILE ===":D$&D$"OPEN"P$",L500":T150:D$"WRITE"P$",R"T:"*"::D$"CLOSE" &:8:"FILE IS NOW EMPTY."::39022>&&PREP 1 LN&Z0:(Z$)ı! DELETE ALL STUDENTS"::6:"5 - DELETE INDIVIDUAL STUDENTS"0%:6:"6 - GO BACK TO MENU":::6:"WHICH? ";Y$:YZ(Y$):YZ1YZ6(NEYZ6YZ4)9500v%YZ9,9,3000,4,5000,39020%CLR FL%16368,03%12:"WANT TO DELETE ALL STUDENTS"::"AI$(T)::%MNU1!%239,0:::D$:D$"CLOSE"&%"YOU HAVE "NE" STUDENTS IN FILE."::"THERE IS ROOM FOR "50NE" MORE.":::"DO YOU WANT TO:"::6:"1 - SEE ALL STUDENTS"::6:"2 - SEE SOME STUDENTS"<+%:6:"3 - PRINT STUDENT SUMMARY"::6:"4 -RD AND I":,"L$"PROPER PERSONAL NAMES":M"L$"DAYS OF WEEK & MONTHS":n"L$"HOLIDAYS, A.M. & P.M.":"L$"PROPER PLACE NAMES":"L$"TITLES":"L$"MISCELLANEOUS":# #D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD1:NS:T1NS:T16:ET,0,39::3:D1,15,"^STUDENT:":D1,26,"^MODE :":D1,32,LL$:D1,75,LL$:_`"RMVCAPSj"(Z$,1)"^"Z$(Z$,(Z$)1)o"T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)t":"MD8911,8912,8913,8914,8915,8916,8917: "L$"FIRST WO)): 239,0:D1,V,Z$!J+ !8492:?*!VV11:V182ı,!239,0:D87,191,"^PRESS <^R^E^T^U^R^N>.":16368,0:16384,128:KY(16384):KY1559500-!KY1418492/!0:T36:ET,0,39::3:V7211(J0):R0!16304,0:16299,0:16297,0:0:$"^ALL CORRECT!" D1,68,Z$- Q18480M D109,130,"":9200 J0:8495:J1Q1:8490:NCS3(J,0):Z$I$(S3(J,NC1)):8800:NC8440 X1:S3(J,1)1Z$"^"Z$:XX1:XNC8440 JJXNC:Z$(Z$,S3(J,JJ)1)"^"(Z$,(Z$)(S3(J,JJ)1CA(CC)Z$"ONLY"O Z$"^STUDENT ATTEMPTED "Z$" "((CC))".":D1,48,Z$ Z$"^STUDENT HAD "((C5))" CORRECT.":D1,58,Z$ Z$"":C50Z$"^LESSON ENDED AFTER 10 IN-A-ROW CORRECT." CC0Z$"<^E^S^CAPE> KEY WAS PRESSED." Q1CACCZ$Q$:530:DZX,ZY,ZT$:ZY75:),CAPTLZ76ZS2(T1)H;Q$(Z$,Z,1)_>Q$"A"Q$"Z"395r@Z9Z:260:ZZ9EZ1Z$"^"Z$:390JZ$(Z$,Z1)"^"(Z$,(Z$)1Z)270DECAPZS2(T1)(Z$,Z,1)"^"495Z9Z:260:Z^"255WLWL1F1:140M0:Y$(Z$,Z,1(KY197)):DZX,8070F1,Y$:3:vQ$(Z$,Z91,1):Q$"#"Z9Z91:270ZXS(T1):ZY8070F1ZT$"^"Q$:530:DZX,ZY,ZT$:ZY75:Q$(Z$,Z9,1):Q$"#"Z9Z91:285ZXS(T1):ZY8070F1"ZTZA$(Z0):ZA$(8)ZA$"":F91: ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY7:ZLZX:ZRZXZW:ZXZXZW:22087 ZA$(ZA$,1,(ZA$)1) F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140ZA$(ZA$,1,(ZA$)1):(ZA$,1)"40M ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:ZU0a DZX,ZY,Z$:140s (ZA$)F81 (ZA$,1)"^"140 239,0: WRT UP1ZU1 ZUZT$(91)ZT$"@"ZT$"^"ZT$ UP2İ23230 DZX,ZY,ZT$:! ZA$ ZU((ZA$,1)"^"):900:16368,09 (ZA$)Z021140 16383,Z0:16240:Z0(16383):WT(16382):WT140,215,140,251,150,158,140,140,140,140,158 (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))1ZXZW0 e16368,0:900:16368,0:Z013F81:A fZ08F91:P gZ021150_ hZ032101 i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 xINPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0# YOUR NAME AND PRESS <^R^E^T^U^R^N>.":75,140205,140:D119,160,"(NAME)" (LM15:ZX84:ZY145:UP2:120:UP0:(ZA$,4)"MENU"(ZA$,3)"MNU"(ZA$,4)" MEN"9541 )F8FSF940 -NM$ZA$:9950 29500 Y239,0: dZX%ZX:WL0:FS0:F90:F80:ZXЃ/CAP-PRAC11/06/85(26026463000Y D$(4):29000:22000:U239:U,0 A$(25),S3(16,10),ZX(25),ZY(25),ZT$(25),A6(25):5:75,1075,60205,60205,1075,10:3:D91,40,"^CAPITALIZATION":D112,60,"^PRACTICE"H #D8,120,"^HI! ^TYPE        !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     .",1,16,21,99< H!"MY COMPUTER BROKE ON CHRISTMAS.",1,22,99h R!"ARE THE TIGERS PLAYING TODAY?",1,9,99 W! "JAN WENT TO CENTRAL HIGH SCHOOL.",1,13,21,26,99 \!"WHAT IS THE CAPITAL OF MICHIGAN?",1,24,99 f!"SHE SPEAKS ARABIC.",1,12,99""KELLY ISZ$"^"Z$Z$(ZA$,Q1,1):QQ1( %9007 *XXI:Q:P T0W:DXT,Y,Z$:TV  @D$"BLOADGR":D$;"BLOADSMCHR,A$6000":1013,76:1014,0:1015,61:232,0:233,96 T 4!"DID DR. SMITH COME FROM IOWA?",1,5,9,25,99 >!"BETTY LIVES ON BERT STREETD$"RUNCAP-PRAC"= (49152)148ĺD$:15616,0:D$"RUNT-MENU"Q W114:0:900e 7:XX170:XXp 900: 0:900:Z$"^"Z$:7:900 AA1:A(A)99175 130 QQ1900: 0:E3,0,39 7:110  Q1(ZA$):Z$(ZA$,Q,1):^S# #^L^O^C^K# KEY IS PRESSED #^D^O^W^N#!"0 d= i49168,0R nA$:A$"**"100p oX17:A(X):A(X)99120v s x2:0,750,92278,92278,750,75:3:ZA$A$:X7:Y95:800 }A1 :X(A(A)1)87:Z$(A$,A(A),1) (49152)141ĺD$:15616,0:3:ZA$"(C) 1985 ^HARTLEY ^COURSEWARE, ^INC."D PX0:Y150:I8:W0K U1T Z800d _X84:Y160: `ZA$"(517) 646-6458":800:ZA$"^VERSION "V$:X75:Y175:800 aZA$"^PRESS <^R^E^T^U^R^N>.":X84:Y190:800* c(64435)6įD1,124,"^BE SURE #^C^A^P% 0260267214,255:40286,252:40287,164C D$(4)U V$"11.14.85"f239,0:8000o21{:0:2(5:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^P^R^A^C^T^I^C^E"<X75:Y35A800. F:9ZX,ZY::3:5ZX,ZY:6ZX,ZY:r 2590:2598:X13:0:11ZX,ZY:5ZX,ZY2:3:12ZX,ZY:2ZX,ZY2:2598:0 12ZX,ZY:2ZX,ZY2:3:11ZX,ZY:5ZX,ZY2:2598:: 2595:X14:0:3ZX,ZY:2ZX,ZY:3:4ZX,ZY:5ZX,ZY:2598:0& 4ZX,ZY:( E8(232):E9(233):232,32:233,58F CH((8)6)1:CH42512X ZX250:ZY170 Z((8)7)1:Z2530,2535,2540,2545,2550,2555,2560 232,E8:233,E9: 2595:2598:0:2ZX,ZY:X14:3:8ZX,ZY:2598:0:8ZX,ZY:3" 9ZX,ZY:2598:0"(NC)" CORRECT OUT":D20,100,ZT$:ZT$"OF "((J))" PROBLEMS ATTEMPTED.":D20,120,ZT$bEND15000:F1įD1,140,"^FILE IS FULL. ^UNABLE TO SAVE YOUR":D1,155,"SCORE. ^SEE YOUR TEACHER.":229042000D$"CLOSE":8900:8920:9500 RNFCRZT$:U,0:QQ0:Q10:ZY110:610R_Q8Q81:Z$A$:8800:S3(Q8,QQ1)A6(J):CC0:800\b2180zf9100:CC10NCNC:22008900:8920:J3NCJ.412190J:JJ1NCJ2200U,0::ZT$N$", YOU ARE FINISHED.":D20,80,ZT$YZT$"^YOU HAD ZT$ZT$", "N$".":DZX,ZY,ZT$:8910/4PRACBCNC0:CC0:F10NHJ1NS}R:995:ZT$A$(J):800:D1,80,ZT$:U,0:500TJ4įD20,150,"^PRESS ^H FOR HELP.":ZY80WT1:700\Z$A$(J)2150]9195^A$Z$:ZT$A$(J):Z$ZT$:500:D1,110,,190,"^PRESS <^R^E^T^U^R^N> TO GO ON.":QZXZX(X):ZYZY(X):ZT$ZT$(X):XX1:^1ST WRDh:X1J14:1995:DZX,ZY,ZT$:8910:1995:DZX,ZY,ZT$:1995:DZX,ZY,ZT$:ZT$"THIS, "N$".":D1,100,ZT$:8910%:1995:DZX,ZY,ZT$:1995:6384,128:(16384)1411115Z`:D1,80,"^THIS WOULD BE THE NEXT SENTENCE.":8900:892016368,0::D1,80,"^NOW WE WILL GO BACK TO THE":D1,100,"BEGINNING SO YOU CAN CHOOSE.":8910FF0:9500D90,30,"^INSTRUCTIONS":90,25173,25:(D521980:J14:1995:DZX,ZY,ZT$:h=ZT$"MY HOUSE IS RED.":D1,150,ZT$:Z$ZT$:500:T1:F11:ZY145:705GZT$"^MY HOUSE IS RED.":D1,170,ZT$:600LT11240:(16384)1411120V:D31,190,"^PRESS <^R^E^T^U^R^N> AGAIN TO GO ON."[16368,0:1995:DZX,ZY,ZT$:>ZT$"^MY HOUSE IS RED.":800:D1,150,ZT$m500:T1:ZY145:B11:B2195:B30:705:B10$:1980:J14:1995:DZX,ZY,ZT$:)ZT$"^MY ^HOUSE ^IS ^RED.":Z$ZT$:D1,150,Z$.500:T1:F11:ZY145:B11:B2197:B30:705:B10 8:(16384):KY127F91:!:EZT$"<"(J)">":D245,20,ZT$:KUINST_:X1F11:FF1:1980:J13:1995:DZX,ZY,ZT$:ZT$"^MY HOUSE IS RED.":800:D1,150,ZT$500:T1:ZY145:B11:B2160:B30:705:B10:1980:J14:10:/T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)I4:ZT$Z$:T CRSn16368,0:F90:ZZ%ZXHCHC:3HC:990:F9960910Z0KY128:Z$(Z0):0:ZX7,ZY4ZX13,ZY43:ZXZZ%:F90:ZX7,ZY4ZX13,ZY4:Z9120:KYF1ZY145@T1ZXS(T1):ZNS1(T1)7ZX2(ZX1):0:790MTQT1pZXS(T):ZNS1(T)7ZX2(ZX1)y790TT1B1B31B32:1990:ZY145710ZX,ZYZN,ZY:3: RMV CAPS%Z$ZT$*(Z$,1)"^"Z$(Z$,(Z$)1):81316KY200TXZX:TZT:7900:ZXTX:TTZ:ZY75:724QKY195TZT:300:TTZlKY197TZT:400:TTZ(KY141B1B3)(KY141B1)Ē0:790:KY155B1ġ:J(J1):2190(KY160KY195KY197KY141KY155)(KY141B1B31)710 ZQQ0:Q10]Z$ZT$:500&bK1QGg(Z$,S2(K),1)"^"İ690:650nl(Z$,S2(K),2)(34)"^"QQ7:690v:S(K)QQQ1,ZY5S(K)4QQQ1,ZY5:GT ANSRZY7573016368,0:16384,128:KY(16384):16368,0KYB2B3B92Z$cG720:T110:S2(T)(GT):S1(T)(GT16):S(T)(GT32)::Z1(G47):Z(G46):Q(G45)T1Q:(Z$,S2(T),1)"\"S2(T)S2(T)1:S(T)S(T)7:S1(T)S1(T)1:(Z$,S2(T),1)"#"S2(T)S2(T)1!(Z$)35S2(1)2&XUNDRLN CAPS M4:ZX230:ZY185:120Q/E%ZA$"M"ZA$"MENU"ZA$"MNU"ZA$(20)ĺD$"RUNT-MENU"o/F%ZA$"0"ZA$"8"ZA$"-1"/I%Y(ZA$)1:Y1Y9ZL230:ZR279:ZT170:ZB190:22085:9540/N%:D110,90,"^W ^A ^I ^T"/X%MDY:Y1Y9İ9200/Y%Y1İ9250(0v%Y1000$:Ta."$D$:D$"OPENINSTR,L1000":D$"READINSTR,R"MD:X:T1X:ZX(T),ZY(T),ZT$(T)::D$"CLOSE":j.%MNU.&%:960,0:J0:NC0:NS0:NC0:Q80.0%R59500.5%ZT$"^WHICH WOULD YOU LIKE TO DO, "N$"?":D1,20,ZT$.:%T110:ZX,ZY,ZT$:DZX,ZY,ZT$:/D%LLG-#D$:D$"OPENTEST.FILE,L1200":D$"READTEST.FILE,R"MD:NS:NS9230d-$T1NS:A$(T):A6(T)T:s-$D$"CLOSE"-$T1NS-$Z1((8)NS1):Z2((8)NS1):Z1NSZ2NS9240-$ZZA6(Z1):A6(Z1)A6(Z2):A6(Z2)ZZ.$Z$A$(Z1):A$(Z1)A$(Z2):A$(Z2)Z20,150,ZT$N,#ZX20:ZY170:ZT$"A GOOD JOB YOU'RE DOING, "N$".":CC99150^,#DZX,ZY,ZT$,#CC10ZT$"^GREAT JOB, "N$"!":DZX,ZY,ZT$:8900:8920::40000,#CC9((8).40)İ2500,#,#CLR,#ZL18:ZR270:ZT130:ZB145:22085:-#RD F3:16368,0:+#RT!+#R52150F+#CCCC1:NCNC1:CC9ZC9:9115q+#ZC((8)101):ZC10ZCZ0ZC99114+#Z0ZC:T1ZC:ZT$:+#ZC1ZT$N$", "ZT$+#ZC2ZT$ZT$", "N$"!"+#CC10ZT$"^YOU DID 10 IN A ROW CORRECTLY!" ,#9195:D^R^E^T^U^R^N>.":ZX1339*"X0ZX:Y0ZY:ZT$"^R^E^T^U^R^N"d*"16368,0:T1800:(16384)1418930*"(16384)155ġ:2190*"*"3:DX0,Y0,ZT$:(16384)1418930*"G1250::(16384)155ġ:2190*"0:DX0,Y0,ZT$:(16384)1418925 +"T$ZT$", "N$".";)nDZX,ZY,ZT$::ZX50:ZYZY(X2):8920E)|2100R)`"FNDCAPS[)b"QQ0d)e"530)j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K))":S3(Q8,0)QQ:)"ZY191:D84,ZY,"^PRESS <^R^E^T^U^R^N>.":ZX133:*"ZY191:D84,ZY,"^PRESS < (J:X14(TJ12:1995:DZX,ZY,ZT$::8900:8920[(Y:J15:1995:DZX,ZY,ZT$::8910(^K12::J14:1995:DZX,ZY,ZT$::8900:8920:K(c:J14:1995:DZX,ZY,ZT$::8910(h:J13:1995:DZX,ZY,ZT$::8900:8920)m:J12:1995:J2Z168," ^PRESS <^R^E^T^U^R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT."'D45,191,"^PRESS <^R^E^T^U^R^N> TO GO ON.":ZX94:ZY191:8920'0:E4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:'@MISC8910&2100&HELP"&FFıj&0:E4,0,39:E5,0,39:E6,0,39:3:0,110260,110260,1730,1730,110&D1,132," ^PRESS ^C TO CAPITALIZE.":D1,144," ^PRESS ^E TO ERASE A CAPITAL."X'D1,156," ^PRESS ^S^P^A^C^E ^B^A^R TO MOVE THE LINE.":D1,8900:89201%:J13:1995:DZX,ZY,ZT$::8910]%:J12:1995:J2ZT$ZT$", "N$"."%DZX,ZY,ZT$::ZX50:ZYZY(X2):8920%2100%XTITLS%b:X1%lJ15:1995%mDZX,ZY,ZT$::8900:8920&:J14:1995:J2500:DZX,ZY,ZT$::J14:1995:DZX,ZY,ZT$::8910M$:J15:1995:DZX,ZY,ZT$::8900:8920t$:J14:1995:DZX,ZY,ZT$::8910$:J13:1995:J1ZT$ZT$", "N$","$DZX,ZY,ZT$::8900:8920$2100$pPLC NMS$z:X1 %J15:1995:DZX,ZY,ZT$::0 #DAYS#:X1:#J13:1995:DZX,ZY,ZT$::8910g#:J13:1995:DZX,ZY,ZT$::8900:8920#:J13:1995:DZX,ZY,ZT$::8910#:T13:1995:T3ZT$ZT$", "N$"."#DZX,ZY,ZT$::8900:8920#2100#HOL/AM/PM#:X1 $Y::"& G1300::$" PERS NMS1" X1:KK1<" :JJ1f" 1995:DZX,ZY,ZT$:JJ3JJJJ1:3025" 8910:KK2KKKK1:3020" :JJ1" 1995:DZX,ZY,ZT$:JJ3JJJJ1:3040" 8900:8920:1995::ZT$ZT$", "N$".":DZX,ZY,ZT$:8910# 2108:0:2595:X182:3:2592B! 0:2592:X:3:2592:6ZX,ZY8:V! 2595:O1:2548! ZX240:2595:R0648:3:R:2595:0:2595:ZXZX2:R:3:0:2595:! 10ZX,ZY:11ZX,ZY:5ZX,ZY2:! 2ZX,ZYX:5ZX,ZY9X:1ZX,ZYX:"# G13:GZX,Z