' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Š@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL 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䵍䵐`"L ŵ8ŵH ~(` d ֠z# upINUE."::&ZA%1:AQBIL(1)(&2842&ZA%0Z&YCURSER2YROW1:XCURSER2XSTART1q&INSTRUCT$"W"287&INDXNDXSTART1:289&IND(MESSAGE$)& XNDXSTARTIND1&!INSTRUCT$"W"292&"MESSAGE$""'#I1IND:MESSAGE$MESSAGE$(32)FILE$;",R";RLC7%V$(1),V$(2),V$(3),V$(4),V$(5),V$(6)E%RLCRLC1[%D$;"CLOSE";FILE$a%l%QUIT1r%%:22:9:"CHOOSE THE RIGHT WORD.":%16368,0%ANSWER(16384):ANSWER128278% &23:3::"PRESS THE RETURN KEY TO CONT1KEYI$I$3$MCT(FS)0EOF%MCT(FS):O$D$,"OPEN";FILE$;",L51"j$D$,"READ";FILE$;",R0"$EOF%:MCT(FS)EOF%$D$;"CLOSE";FILE$$$ RLCEOF%274$ EOF%0274$ FILE$FP$"DATA"$ D$;"OPEN";FILE$;",L51"% D$;"READ";(I):A$(I)"""#JL(I)1BIGGEST?#MESSAGE$MESSAGE$BLANK$F#Jb#MESSAGE$MESSAGE$A$(I)u#A$(I)MESSAGE$|#I#MIX(1)0:MIX(2)0#I13#RN%(4)31#RN%3RN%3#RN%MIX(1)251#RN%MIX(2)251#MIX(I)RN%$RN%ЭL(1)L(2)BIGGEST1:2347"L(2)L(1)BIGGEST2:237U"L(1)L(3)BIGGEST1:238s"L(1)L(3)BIGGEST3:238"BIGGESTL(1):239"L(2)L(3)BIGGEST3"BIGGESTL(BIGGEST)"I13"MESSAGE$"""L(I)BIGGEST248 #FS3MESSAGE$A$!XND(V$(4))!I1L(1)1!IXSTART226@!IXND226S!IXSTART228i!A$(2)A$(2)V$(5)!A$(3)A$(3)V$(6)!228!A$(2)A$(2)(A$(1),I,1)!A$(3)A$(3)(A$(1),I,1)!I!L(2)(A$(2))!L(3)(A$(3))!BIGGEST0"L0L0I 194# LINE$(J)HOLD$< LLINE(J)(LINE$(J))P NLINESNLINES1` I1NLINESr J1LLINE(I) (LINE$(I),J,1)"*"213 J I SBEGINJ:SLINEI A$(1)V$(2):A$(2)"":A$(3)"" L(1)(A$(1))!XSTART(V$(3))(1),STARLOC1,I)3NLINES0:L0(HOLD$):J1>XNDL0NXND21205iXND21:NLINESNLINES1yIXND11(HOLD$,I,1)BLANK$ĂIXNDI1LINE$(J)(HOLD$,1,XND)LLINE(J)(LINE$(J))HOLD$(HOLD$,(HOLD$)I) JJ1:L0(V$(1),I,1)"*"ĂI*STARLOCI7I1184VHOLD$(V$(1),1,STARLOC1)mHOLD$HOLD$BLANK$~I1BIGGESTHOLD$HOLD$"*"ISTARLOCL0192STARLOC1L0190HOLD$HOLD$BLANK$IL0STARLOCHOLD$HOLD$(V$68,0:163991 START OF ANOTHER ROUTINE.OMESSAGE$"":I1(V$(1))vHOLD$(V$(1),I,1):(HOLD$)2173(HOLD$)1HOLD$",":173HOLD$":"MESSAGE$MESSAGE$HOLD$IV$(1)MESSAGE$HOLD$""L0(V$(1))I1MESSAGE$A$(1):DQ1%283:DQ0AS4S41:S2S21:S7S71J607d306:265:QUIT1314278:(ANSWER128)PASSWRD$ĉ:ANSWER145ĉ:40: CTRL-QANSWER191ANSWER175İ603:280:277::607:16368,0:163 ANSWER141Ĺ163LINE27I13:132I:9:J(A$(I))4:IANSWERJ4WPA1J:ME$(32):5120:PA^I775,122AN:776,16:779,122AN:780,2XS2:777,2(A$(AN))5370775,122AN:776,2XS2:779,2(YROW1):780,2XS2:777,2(A$(AN))5370Y!"::O6(ANSWER)1:O71:144MO72Ģ23:12::"THIS TIME TRY ";KEY::144k23:15::"TRY AGAIN.":S5S51:S3S31277:276:124O73O73O5$NAME$O5$O5$:5294:22:O$(ANSWER,O7);", ";O5$;"!"XSTARTSBEGIN:YROWSANSWER0ĭANSWER4138;23:13::"TRY 1, 2 OR 3.":N277:276:124zO9O91:O6(ANSWER)O6(ANSWER)1:O7O71ANSWERKEYO8O81:146MESSAGE$(120):XSTART5:YROW7ANSWER:283O6(ANSWER)1Ģ23:5::"YOU TRIED THIS ANSWER ALEADANSWER175İ603:280:277:123=ANSWER134130: CTRL-FVVTVT500:VT0VT0_132}ANSWER147134: CTRL-SVTVT500:VT4000VT4000:Z9%10((VT500)500)22:15::"SPEED = ";Z9%::280:277:123ANSWERANSWER176RR1NLINES:YROWYROW1:MESSAGE$LINE$(RR):283:RR>yYROW7zRR13:YROWYROW1:XSTART7:MESSAGE$(RR):283:XSTARTXSTART2:MESSAGE$A$(MIX(RR)):283:RR{276:277|ANSWER145ĉ:40: CTRL-Q }(ANSWER128)PASSWRD$ĉ:~ANSWER191" TO RETURN TO THE TASK MENU.96277:ANSWER141ė:359N6ANSWER155434T66ALTER1::"FUNCTION: CLEAR ONE STUDENT RECORD":34,2645634,36ANSWER99ı6PTRNSLOTNSLOTPTR6J126:SLOT(J)((LOC$,J,1)):J 7SLOT(PTR)E";FILE$#5:32:10I:"ADDED":,5429M5:32:10I:"NOT ADDED":X523:15I:FSSFS:FSMFSāI126:SLOT(I)SSLOT(I):I5PAUSE12000:PAUSE5:22:"PRESS ";::"RETURN";::" TO ADD ANOTHER STUDENT."6"PRESS ";::"ESC";::SLOT)S1:S2(NSLOT)S2:S3(NSLOT)S3:S4(NSLOT)S4:S5(NSLOT)S5:S6(NSLOT)S6:S7(NSLOT)S7:VT(NSLOT)VTo4LOC$""4J126:LOC$LOC$(SLOT(J)):J4J1264SLOT(J)04224J4NSLOTJ4D$;"WRITE";FILE$;",R0"4LOC$:NSLOT5D$;"CLOS"CLOSE";FILE$3NSLOT26428+3J126F3SLOT(J)((LOC$,J,1))M3Ju3SLOT(NSLOT)1:IMFSSSLOT(NSLOT)13D$;"OPEN";FILE$;",L50"3D$;"WRITE";FILE$;",R";NSLOT3NAME$:S1:S2:S3:S4:S5:S6:S7:VTc4MFSINAME$(NSLOT)NAME$:S1(NNG STUDENT RECORD(S) ON DISK. "H2:SFSFS:I126:SSLOT(I)SLOT(I):Iw2S10:S20:S30:S40:S50:S61:S71:VT20002I152V$(I)"0"4302FILE$XX$(I)"PROFILE"2D$;"OPEN";FILE$;",L50"2D$;"READ";FILE$;",R0"2LOC$,NSLOT 3D$;ANSWER6Ė7:18::"YES"::396:1V$(ANSWER)"1"391q1V$(ANSWER)"0":CNTCNT1:7:10ANSWER:"NO ":3871V$(ANSWER)"1"1CNTCNT117:10ANSWER1:"YES":13871CNT0ı1P1(34):34,20::34,P1222:1::"NOW CREATILS"'0{" 4 NO FINAL CONSONANTS"G0|" 5 NO FINAL BLENDS"P0}600w0~" 6 NOW PREPARE ON DISK"0BT7:BB19:5940597:5910J15:V$(J)"0":J0CNT0:ANSWER10MAXNO5:VC11:HC3:D21:SPECIAL1:589:ANSWER99ı!162/r:"NAME: "NAME$#/s6`/t" ___TURN ";::"YES";::" AS NEEDED. THEN PRESS 6___"j/u8:7/v"ADD PHONETIC SKILL STATUS"/w600/x" 1 NO INITIAL CONSONANTS"/y" 2 NO INITIAL BLENDS"0z" 3 NO MEDIAL VOWE":34,2.g9=.h" _________ ENTER STUDENT NAME _________"O.i596:22:592i.jVC12:HC13:MAXCHR14.k546:ANSWER99ı.lNAME$MESSAGE$.mANSWER(NAME$).nANSWER1ĺ"":362.oPAUSE1ANSWER:(NAME$,PAUSE,1)" "370.pPAUSE/q3:5:"3 - RESET STARTING SENTENCE"L-_:5:"4 - CLEAR ALL STUDENT RECORDS"j-`BT7:BB18:594:590:591-aMAXNO4:VC9:HC5:D2:ANSWEROF:589-bANSWER99ı-cOFANSWER-dANSWER358,437,455,467-e.f:"FUNCTION: ADD A NEW STUDENT RECORDNSWER99:,WANSWER141341<,X34,2::ALTER1:53:323k,Y:"TASK: MANIPULATE STUDENT RECORDS"x,Z6:34,1,[" __________ SELECT FUNCTION ___________",\9:5:"1 - ADD A NEW STUDENT RECORD",]:5:"2 - CLEAR ONE STUDENT RECORD""-^NT - ";S34+O:::"STATISTICS FOR LAST SESSION":X+P:"NUMBER OF SENTENCES - ";S4+Q"WRONG-RESPONSE COUNT - ";S5:32,0+RBB4:595:BT5:BB20:594+S22:"PRESS ";::"RETURN";::" TO CONTINUE THE REVIEW."+T591+U277 ,VANSWER155A*E*F"NAME: ";NAME$9*GZ9%10((VT500)500)q*H6:" STARTING SENTENCE - ";S6;:31:"SPEED - ";Z9%*I32,4:9:*J"STATISTICS TO DATE.":*K*L"NUMBER OF SESSIONS - ";S1*M"NUMBER OF SENTENCES - ";S2 +N"WRONG-RESPONSE COU;FILE$ )9C):::YROW7:XSTART1:MESSAGE$"GO GET YOUR TEACHER"U);INSTRUCT$"W"^)<283g)=277})>ANSWER145ĉ:40)?(ANSWER128)PASSWRD$317)@:)AALTER1::"TASK: REVIEW STUDENT PERFORMANCE")B44)CANSWER99ı*D34,2FP$"PROFILE"(3D$1(4D$;"OPEN";FILE$;",L50"P(5D$;"WRITE";FILE$;",R";PTR{(6NAME$:S1:S2:S3:S4:S5:S6:S7:VT(7MFSFSNAME$(PTR)NAME$:S1(PTR)S1:S2(PTR)S2:S3(PTR)S3:S4(PTR)S4:S5(PTR)S5:S6(PTR)S6:S7(PTR)S7:VT(PTR)VT)8D$;"CLOSE":I'$XCURSER&'%I1IND:YCURSER@'&TEMP$(MESSAGE$,I,1)P''ZA%1299g'(I(V$(4))AQ300{')I(V$(3))300'*TEMP$(96):300'+TEMP$"*"298',TEMP$TEMP$'-5120'.DQ0304'/PAUSE1VT1520:PAUSE'0I'1 (2FILE$D1:586*FFANSWER139ANSWEROLD1:586NFGANSWERANSWER176:ANSWER1579sFHSPECIAL1ĭANSWER6SPECIAL0:FIANSWER(MAXNO)579FJANSWER1ANSWERMAXNO:588FKANSWER(MAXNO)ANSWER1FLVCD2(OLD1):HC:OLDGMVCD2(ANSWER1):HC:KEY IGNORED. FIELD IS FULL ALREADY."EBP1(34):P2(35):P3(32):34,22:35,24:32,0:::HOLD$::PAUSE12000:PAUSE::34,P1:35,P2:32,P3:EC277:ANSWER155SPECIAL0:ANSWER99:EDANSWER141ANSWEROLD:SPECIAL0:FEANSWER138ANSWEROL%D;"ERROR CODE ENCOUNTERED IS ";ERR-D<41~D="APPLESOFT BASIC ERROR. PLEASE REPORT.":"ERROR IN LINE ";(219)256(218)D>571D?HOLD$"THIS CHARACTER HAS BEEN DISALLOWED.":578D@HOLD$"NUMBER IS OUT OF RANGE OR INVALID.":578&EAHOLD$"547C-MESSAGE$MESSAGE$HOLD$-C.MESSAGE$6C/547HC0L(MESSAGE$)UC1L0547_C2LL1yC3HOLD$(MESSAGE$,1,L)C4MESSAGE$HOLD$C5MESSAGE$;:"-"C6547C75533:ERR(222):ERR255ĦC8602::C9ERR15573C:"DOS (DISK) ERROR."HC:VCB$277:ANSWER141ı>B%ANSWER136ANSWER255560ZB&ANSWER155ANSWER99:tB'ANSWER160İ575:547B(HOLD$(ANSWER128)B)HOLD$","İ575:547B*HOLD$":"İ575:547B+(MESSAGE$)MAXCHRİ577:547C,HOLD$" "ĭ(MESSAGE$)0AA4:26:" " A80AJ1NLINESPA13:" "WAJgAL14:J13tALJ:23A" "AJARLCRLC1A RLCEOF%ıA!514A"BTVC2:BBVC2:594:MESSAGE$"":HC:VC:I1MAXCHR:"-";:IB#$(1):5294 @V$(2)V$(2):52946@ V$(5)V$(5):5294L@ V$(6)V$(6):5294_@ 215:169:193j@ 4:26s@ RLCz@8@J1NLINES:13:LINE$(J):J@L14@J13:LJ:23:A$(J):J@ALTER0ı@277:ANSWER141534AANSWER15553111:"CHOICE 3 -""?ALTER0514\?22::"RETURN";::" ADVANCES TO THE NEXT SENTENCE."e?591?D$;"OPEN";FILE$;",L51"?D$;"READ";FILE$;",R";RLC?V$(1):V$(2):V$(3):V$(4):V$(5):V$(6)?D$;"CLOSE";FILE$?AA$"N"523 @V$(1)VAXCHR((EOF%))">:VC15:HC198>546:ANSWER99ıL>RLC(MESSAGE$)g>RLC0ĭRLCEOF%1505w>576::501>34,3:35,24:ALTER4ı>:"CURRENT SENTENCE NUMBER:">15:19:" ">15:11:"CHOICE 1 -">11:"CHOICE 2 -"?44:ALTER0:ANSWER99ı8=:"SKILL: ";YY$(ANSWER)U=FILE$XX$(ANSWER)"DATA"^=259e=1="SENTENCES: ";EOF%:34,3:ALTER4ı=34,10:35,24:=12:" ____ENTER STARTING-SENTENCE NUMBER____ "=599:22:592=34,13:35,20>M93<8:"____ MUST I DISPLAY IN UPPER CASE? ____"k<12:"RESPOND EITHER ";::"Y";::" OR ";::"N":<277:ANSWER155ANSWER99:<ANSWER206489:N<ANSWER238489:n<ANSWER217488: Y <ANSWER249483:y<AA$"Y"=:"PROFILE"&;D$;"OPEN";FILE$;",L50"B;D$;"WRITE";FILE$;",R0"S;LOC$:NSLOTi;D$;"CLOSE";FILE$;22:1:"ALL DONE FOR ";YY$(I);" ";I;I1600:I:<ALTER2::"TASK: BROWSE THROUGH SENTENCES":34,1:AA$"N":(64435)648:ALTER1:53:ANSWER99ı#:457W::"FUNCTION: CLEAR ALL STUDENT RECORDS":34,2f::7::10:"ENTER PASSWORD TO CONFIRM"::277:(ANSWER128)PASSWRD$ı:LOC$"00000000000000000000000000":NSLOT1:MFS1 ;I15:1:1:FILE$XX$(I)WER99ı@9LEAVE OTHER VALUES ALONE _9S7RLC:S6RLC:306:ALTER0}934,5::"RESET TO: ";S6922:"PRESS ";::"RETURN";::" TO CONTINUE RESETTING.":5929277:ANSWER155ANSWER99:9ANSWER141463:34,4:WER155ANSWER99:(8ANSWER141452E834,3::ALTER1:53:4398ALTER1::"FUNCTION: RESET STARTING SENTENCE":34,2845:ANSWER99ı834,3::ANSWERFS:HOLD$FILE$:ALTER4:491:FILE$HOLD$:34,49:"NAME: ";NAME$:34,5:496:ANS0:LOC$""-7J126:LOC$LOC$(SLOT(J)):JI7D$;"OPEN";FILE$;",L50"e7D$;"WRITE";FILE$;",R0"v7LOC$:NSLOT7D$;"CLOSE";FILE$7:"CLEARED: ";NAME$722:1:"PRESS ";::"RETURN";::" TO CLEAR ANOTHER RECORD."75918277:ANS2500:PAUSE::34,P1:35,P2:32,P3:5"**********Y"815:ERR(222):ERR4ERR646b"214r"**********"ANSWERPA:249"174:ANSWER155ANSWER99:"ANSWER141ANSWEROLD:"ANSWER138ANSWEROLD1:246#ANSWER139ANSWEROLDEN ENTERED.":233F!HOLD$"MAXIMUM WORD LENGTH OF 14 EXCEEDED.":233w!HOLD$"KEY WORD ALONE CANNOT BE A SENTENCE."!P140(HOLD$):P21P1:HOLD$HOLD$" ":P2:P1(34):P2(35):P3(32):34,22:35,24:32,0:23:1::(7);HOLD$;(7);:%"PAUSE135 HOLD$"KEY WORD MISSING BETWEEN BRACKETS.":233n HOLD$"KEY WORD TOO SHORT OR > 9 LETTERS LONG.":233 HOLD$"MAXIMUM RECORD LENGTH OF 51 EXCEEDED.":233 HOLD$"ALTERNATIVE IS TOO SHORT TO BE VALID.":233!HOLD$"EXPECTED DATA HAS NOT BE'"ERROR IN LINE ";(219)256(218)0217eHOLD$"THIS CHARACTER HAS BEEN DISALLOWED.":233HOLD$"NUMBER IS OUT OF RANGE OR INVALID.":233HOLD$"KEY IGNORED. FIELD IS FULL ALREADY.":233 HOLD$"BRACKETS ARE MISSING OR UNPAIRED.":23********END OF GET ROUTINE*********g815:ERR(222):CALL FIXES SOME OF APPLE ERROR-HANDLER BUGSvERR255Ħ436:ERR15219"DOS (DISK) ERROR.""ERROR CODE ENCOUNTERED IS ";ERR30"APPLESOFT BASIC ERROR. PLEASE REPORT."E$)MAXCHRİ224:187:(MESSAGE$)1ĭHOLD$BLANK$187VMESSAGE$MESSAGE$HOLD$eMESSAGE$;n187L(MESSAGE$)L0187LL1HOLD$(MESSAGE$,1,L)MESSAGE$HOLD$MESSAGE$;:"-";18734,P4:35,P5:32,P6:&211ANSWER255204+ANSWER136204JANSWER155ANSWER99:211dANSWER160İ222:187|HOLD$(ANSWER128)HOLD$"*"İ222:187ALLOW0199HOLD$" "İ222:187HOLD$","İ222:187HOLD$":"İ222:187(MESSAGve 1 -""11:"Alternative 2 -"(/8PJ1NLINES:13:LINE$(J):JYL14wJ13:LJ:28:A$(J):J}MESSAGE$"":P4(34):P5(35):P6(32):34,VC1:35,VC1:32,HC1:1:VC:I1MAXCHR:"-";:I1:VC174:ANSWER141SE";FILE$+D$;"OPEN";FILE$;",L51"JD$;"WRITE";FILE$;",R";RLCxV$(1):V$(2):V$(3):V$(4):V$(5):V$(6)D$;"CLOSE";FILE$16368,0ANSWER(16384):ANSWER12817515:11:"KEY word -"11:"AlternatiSentences On File. ";EOF%:34,4:,EOF%0NERR0:D$;"OPEN";FILE$;",L51"jD$;"WRITE";FILE$;",R0"tEOF%D$;"CLOSE";FILE$D$;"OPEN";FILE$;",L51"D$;"READ";FILE$;",R";RLCV$(1),V$(2),V$(3),V$(4),V$(5),V$(6) D$;"CLOMESSAGE$A$(I):A$(I)"".JL(I)1BIGGESTKMESSAGE$MESSAGE$BLANK$RJnMESSAGE$MESSAGE$A$(I)A$(I)MESSAGE$IERR0:D$;"OPEN";FILE$;",L51"D$,"READ";FILE$;",R0"EOF%D$;"CLOSE";FILE$!34,3::"GGEST0%L(1)L(2)BIGGEST1:136CL(2)L(1)BIGGEST2:139aL(1)L(3)BIGGEST1:140L(1)L(3)BIGGEST3:140BIGGESTL(1):141L(2)L(3)BIGGEST3BIGGESTL(BIGGEST)I13MESSAGE$""L(I)BIGGEST150FS33:1:"NOW READ THE SENTENCE, THEN PRESS ";::"RETURN";::1:1::V;::"RETURN";::" AFTER LAST DIGIT.":NIX2:PAUSE239:".";:PAUSE:::IYP8(34):P9(35):34,P6:35,P7::34,P8:35,P9:IZ32,0:33,40:34,0:35,24:I[I\22:3I]:O8;" SENTENCES WERE DONE IN ";O9;" TRIES.":I^DJ_16368,0:2:40:"|":I/HSBB:2:I238:"_";:I:"_":sHT21:1:"PRESS ";::"RETURN";::" AFTER ENTERING THE NAME.":HU21:1:"KEYS 1 TO 5 POINT TO THE DESIRED SKILL."HV22:1::"RETURN";::" TURNS 'NO' TO 'YES' TO 'NO', ETC.":(IW21:1:"PRESS ":ANSWER::OLDANSWER:579]GN22:1:"PRESS ";::"RETURN";::" WHEN SELECTION IS MADE.":eGO23GP1:"PRESS ";::"ESC";::" TO RETURN TO THE TASK MENU.":GQ23:1:"PRESS ";::"ESC";::" TO TERMINATE THE PROGRAM.": HRIBTBB:I:1:"|";I,J)1:I92uPRMS(1,J)L3:PRMS(2,J)L4:PRMS(3,J)L4L31[2vIL3L0L4L0:MASK(I,J)1:Ip2wL31ĭL4L74232xFS13822yL313802zL4L74172{4162|PRMS(3,J)14192}2~FS23852PRMS(3,J)342122FS33903LL62:L7L5L631kFS536941lL8L0:L5L7L80C1mL43368M1nL4L6y1oJ1ĭL42ĭL7L5ĭL7(A$(2))L8İ3991pI1L8L4L8:MASK(I,J)1:I:L31:3731qL4L7:L3L723711rL3L71:L62L3L721sL8L7:L5L7L8L5 2tIL3L8:MASK((1)):L2(MESSAGE$):L310:L4060cA$(1)MESSAGE$418x0dI1L9:MASK(I,J)0:C1$(A$(1),I,1):C1$(MESSAGE$,I,1)3600eC1$" "MASK(I,J)1:3600fMASK(I,J)1:IL0L3L3IL00gIL0L4L4IL00hI:FS1FS43730iFS3İ448:403:3731j[:21:1:"Write this sentence to disk now?"y/\"Press ";::"ESC";::" to cancel. ";::"RETURN";::" to proceed."/]174/^ANSWER155256/_/`*************NO MORE****************/aL5 AND L7 SET BY EXPANSION ROUTINE0bERR0:L1(A$))(V$(2))(V$(5))(V$(6))81.PMAXLN52338?.Q228:256].RMESSAGE$"":I1(V$(1))t.SHOLD$(V$(1),I,1).THOLD$","345.UHOLD$":"346.VMESSAGE$MESSAGE$HOLD$.WI.XV$(1)MESSAGE$:347.YHOLD$(1):342.ZHOLD$(2):342./ONSTANT";:HC:MASK$4-G"Substitution 1";:HC:B1$T-H"Substitution 2";:HC:B2$g-IFS1FS4334-JJ1:410:ERR0298-KL1(V$(5)):(V$(6))L1L1(V$(6))-LFS2FS5ĭL13İ421:298-MFS3ĭL12İ420:298-N34,19:.OMAXLN(V$(19L,@MASK(I,1)1MASK$MASK$(A$(1),I,1):B1$B1$" ":B2$B2$" ":I:325,AC5$(A$(2),I,1):C6$(A$(3),I,1):MASK$MASK$" ":B1$B1$C5$:B2$B2$C6$,BC5$" "V$(5)V$(5)C5$,CC6$" "V$(6)V$(6)C6$,DI,EHCL0:I1L7:I;::-F"C0310+:J2:354:ERR03104+;VCVC1:34,VC:`+<L3PRMS(1,1):PRMS(1,2)L3L3PRMS(1,2)+=V$(3)(L3):L4PRMS(2,1):PRMS(2,2)L4L4PRMS(2,2)+>V$(4)(L4):I1L9:MASK(I,2)1MASK(I,1)1,?I:V$(5)"":V$(6)"":MASK$"":B1$"":B2$"":I1LOW0:186:ANSWER99ı:*3437:A$(2)MESSAGE$:ERR0304S*4J1:354:ERR0304f*534,VC:VCVC1*6:"Alternative 2.."*720:1:"Enter the second incorrect alternative.":431*8MAXCHRL9:ALLOW0:186:ANSWER99ı+9437:A$(3)MESSAGE$:ERR$(1)A$(1)MESSAGE$:L00))*34,9:35,24D)+L(V$(2)):L9(A$(1))T),X%17:HCX%c)-:VC9:VC)."KEY word ......";:X%:A$(1):)/34,VC:VCVC1)0:"Alternative 1..")120:1:"Enter the first incorrect alternative.":431*2MAXCHRL9:ALLI,1)" "288(I( IRI)(!IIRLI("V$(1)V$(1)(MESSAGE$,I,1)P(#Io($VC7:(V$(1))2İ232:256(%:VC:P1$:A$(1)V$(2):MESSAGE$"":L00(&FS1FS3FS4298('(A$(1))9MESSAGE$" ":L01((FS2A$(1)MESSAGE$A$(1)))FS5A5ĭ(HOLD$)3İ227:2562'(HOLD$)9İ227:256?'V$(1)""M'IL1283^'IIL111|'(MESSAGE$,I,1)" "279'I'ILI'I1IL'V$(1)V$(1)(MESSAGE$,I,1)'I'V$(1)V$(1)"*"'IRL292'IIR1L ((MESSAGE$,:267&P21P0P01:267I& P1$P1$HOLD$:P0P114ĭP21İ231:256Y& LAST$HOLD$w& I:P31P41İ225:256& MESSAGE$P1$:L(P1$)& (IRIL)2İ226:256&V$(2)(P1$,IL1,IRIL1):HOLD$V$(2)&(HOLD$)2İ227:256'FS2FS3FS:P00:P10:P21:P30:P40:P1$"":LAST$"":L(MESSAGE$):L1İ230:256o%I1L:HOLD$(MESSAGE$,I,1):P0P01%HOLD$"("P3P31:ILP0:P20:P1P0:265%HOLD$")"P4P41:IRP0:P21:P1P0:265%HOLD$" "265&P1P0:LAST$" "P0P01:P1P0:181:22:1:"Cancel replacing this sentence?"z$"Press ";::"ESC";::" to cancel, ";::"RETURN";::" to proceed!"$174$ANSWER155ANSWER99:$34,5:35,24::20:429:35,20$VC8:HC1:MAXCHR40:ALLOW2:186:ANSWER99ıF%ALLOW01:246+#ANSWERANSWER176:ANSWER1240C#ANSWER(MAXNO)240c#ANSWER1ANSWERMAXNO:248#ANSWER(MAXNO)ANSWER1#VCOLD1:HC:OLD#VCANSWER1:HC::ANSWER::OLDANSWER:240#63:ANSWER99ı#164:62:117:71:95/$177䍱뮍᪮⍱危䪮危󍱍宍􍱍䮍􍱍􍱍󪮍ɪ宍危󪮍獱檮䍱덱媮썱ɠ퍱썍獱危誮䍱󪮍危ɠ危234,3,104,96,104,168,104,166,223,154,72,152,72,96,255C1$"e"C1$"i"C1$"o"C1$"u"L3L31:453a<C1$"A"C1$"E"C1$"I"C1$"O"C1$"U"L3L31g<5=201,131,240,16,201,160,144,2,37,50,132,53,72,32,253,251,104,164,53,96,44,16,192,96,72,169,0,133,54,169,3,208,7,72,169,240,133,54,169,253,133,55,32,443;L23443#;L7L214449;ERR3:444:229:H;L2L9447u;L2L21:FS5MESSAGE$MESSAGE$" ":444;MESSAGE$" "MESSAGE$:444;VC:HC:MESSAGE$:;L33L3L4ı;J1ĭL3PRMS(1,1)ı;C1$(MESSAGE$,L31,1),<C1$"a" to return to the SKILL MENU.":G:IVC117:I:1:"|";:40:"|":Ik:I1:2:I238:"_";:I:"_"::32,0:33,40:34,0:35,24:::ERR0:L2(MESSAGE$):L5L2:L7(V$(2)):FS2FS5440:L2L9ı:L21ERR1:230:;FS1FS3FS4e new sentence and remember to"L9"put brackets ( ) around the KEY word!"9"Press ";::"RETURN";::" when done or ";::"ESC";::" to exit.":922:1:"Press ";::"RETURN";::" when selection is made.": :23:1:"Press ";::"ESC";::"P1:HOLD$HOLD$" ":P2:P1(34):P2(35):P3(32):34,22:35,24:32,0:22:1::(7);HOLD$;(7)823:1:" PRESS THE RETURN KEY TO CONTINUE. ";:81748ERR1:34,P1:35,P2:32,P3:8****************************************9"Enter th.":424A7HOLD$"THREE OR MORE LETTERS BEING SUBSTITUTED.":424z7HOLD$"FOUR OR MORE LETTERS BEING SUBSTITUTED.":4247HOLD$"NOT A SINGLE, CONTIGUOUS SUBSTITUTION.":4247HOLD$"ALL LETTERS ARE BEING SUBSTITUTED.":424_8P140(HOLD$):P21 LONG.":424>6HOLD$"THIS IS AN INITIAL SUBSTITUTION.":424n6HOLD$"THIS IS A MEDIAL SUBSTITUTION.":4246HOLD$"THIS IS A FINAL SUBSTITUTION.":4246HOLD$"NO SUBSTITUTION IS TAKING PLACE.":4247HOLD$"TWO OR MORE LETTERS BEING SUBSTITUTED1$"o"C1$"u"L4L41:409P5C1$"A"C1$"E"C1$"I"C1$"O"C1$"U"L4L41V5t5I1L9:MASK(I,J)0ĂI:5KIL9:MASK(K,J)1PRMS(3,J)PRMS(3,J)1:K:5IKL9:MASK(I,J)0ĂI:5ERR1:422: 6HOLD$"A BLEND IS AT LEAST 2 LETTERSC1$"u"ı94C1$"A"C1$"E"C1$"I"C1$"O"C1$"U"ıG4L4L41:]4L41L7L4L3ıv4J1ĭL4PRMS(1,1)ı4C1$(MESSAGE$,L41,1):C1$"w"C1$"r"C1$"y"L4L41:4094C1$"W"C1$"R"C1$"Y"L4L41:4095C1$"a"C1$"e"C1$"i"C314153L4L7417+3PRMS(3,J)242013@3FS4396O3L4L7394]3L31415f3416v3L3L4419|33L4L739233833***SUBROUTINE3MASK(L4L81,J)1ı 4C1$(MESSAGE$,L4L81,1):C1$"a"C1$"e"C1$"i"C1$"o"獳媮􍳍宍即媮獴宍即䪮덳即䮍덴퍳뮍덳ɠ덳덳荳᪮䮍덳썲宍䍲卲䍳ɠ덳卲卲󪮍卲􍲍䮍䮍덲獲썲몮卲덲宍獲덲讍荱󪮍危쮍獱ɠ媮퍱􍱍䮍䪮⍱窮덱󪮍卍危󍱍􍱍􍱍媮危类썱쪮퍱宍窮危媿危􍱍危ʍ󪮍᪮荱䮍􍱍᪮덱媮獱쮍썱퍱䮍窮썲宍퍳󪮍ɠ宍䍲ɠ썲󪮍򍲍򪮍􍲍媮덲᪮썲ɠ򍲍忍􍲍媮䍲殍덲媮媮썲뮍􍲍ፍ󪮍䍲썲򪮍򍲍󪮍􍲍䍲ɠ쮍썲᪮퍲ɠ򍲍᪮􍲍媮ɠ䍲썲ɠ䮍䪮媮򍲍即媮箍ɠ몮򍲍􍲍􍳍󪮍獳宍䍲ɠ덲썲䪮퍲퍳媮獳뮍ɠ宍即덳ᮍ덳捳即쪮썳쮍z"#    Š!Š"Š $  ŠŠŠӮŠӠDŠ7ӠҠŠԠ21,126 110,94,63,123,58,95,111,127G 13239,65,3,15,62,60,120,54,95,31,126x 14263,125,91,111,126,59,123,46,95,127,125 15287,125,59,111,111,55,127,46,95,119,123 16311,125,59,109,75,59,111,30,95,103,125 8287,120,113,4,40,28,32,60,15,,31,126,56,126,99,99,97,99,103a  13196,2,112,15,120,65,127,7,126,31,126,24,124,65,65,115,1,96 9143,64,1,7,56,20,32,30,2,28,122 10167,61,123,110,91,51,111,60,91,109,121 11191,61,123,110,111,55,127,58,95,119,123 12215,61,123,99,126K 9100,126,67,113,71,99,127,15,127,71,29,118,1,120,99,121,99,12710124,126,67,113,71,99,127,15,127,15,60,112,124,113,99,121,99,127 11148,124,67,99,99,99,127,15,127,15,62,120,126,113,99,89,99,111 12172,120,97,103,115,99,127,15,127,7,120,113,71,99,127,15,127,113,71,95,23,126,99,99,99,127}14092,31,112,113,71,99,126,15,127,99,3,79,51,124,99,115,99,12615116,63,96,113,71,3,126,15,127,99,3,111,59,124,3,120,3,126 16140,127,65,113,71,99,126,15,127,71,25,102,121,120,99,125,6,0,48,112,65,31,94,127,1,120,1,96 k 9996,96,127,103,115,99,103,12,115,120,99,63,15,127,99,115,99,103  11020,1,127,99,99,99,111,14,119,120,99,63,15,127,99,99,99,111 12044,3,126,113,71,99,127,15,127,113,71,31,7,126,99,99,99,127 9130686,15,103,115,31,62,124`v 12809,96,96,97,7,62,0,24,0,12,0,6,0,31,112,15,124,31,112,64,15,24,0t{ 10783,125,127| 11807,124,127} 12831,124,12712940,3,80 13964,97,71 14988,112,79 16012,112,95#8972,112,95,15,120,1,915,64,63,124dX 9737,113,113,117,15,127,120,63,124,31,126,15,127,99,95,31,126,71,95,103,15,63,124b 10761,113,113,115,15,127,120,59,124,29,126,14,63,103,95,31,126,71,95,119,15,63,124l 11785,113,113,115,15,127,120,57,124,28,62,14,31,79,111,31,12124Z : 14729,113,49,118,15,127,64,63,124,31,126,15,120,99,127,31,126,71,95,95,99,63,124 D 15753,113,113,118,15,127,88,63,124,31,126,15,127,99,127,31,126,71,95,79,71,63,124 N 8713,113,113,116,15,127,120,63,124,31,126,15,127,99,127,31,126,71,95, 12681,113,17,119,15,127, 120,63,124,31 ,126,15,127, 99,95 ,31,126,71,95,63,113,63, 124  0 13705,113,49,119,15,127,88,63,124,31,126,15,123,99,127,31,126,71,95,31,99,63,13,97,119,12,115,120,57,124,31,126,15,31,79,87,25,102,71,95,127,120,63,124  10633,113,65,119,14,119,120,59,124,31,126,15,63,103,79,29,110,71,95,127,120,63,124  11657,113,81,119,15,127,120,63,124,31,126,15,127,99,95,31,126,71,95,63,112,63,124 &LOCH,BYTE:H V& T11000:TB :(4);"RUN CMS.TITLE"H ,r LOC8192LOC16384ĺ"BAD LOC:";LOC:x   12553,96,13577,113,14601,113,15625,113  8585,113,96,99,0,48,0,24,120,15,124,7,0,31,88,1,96,3,15,127,125,31,120J  9609,1:BYTE:LOCH,BYTE:H V( V0128 ::LOC:400[ ::H016:BYTE:LOCH,BYTE:Hb V} 6:Q0279:Q,0Q,7: Q0191:270,Q279,Q: Q27901:Q,184Q,191: Q19101:0,Q8,Q: V08 LOC:400 ::H09:BYTE:  :49234,0:3:0,0:3082<2:Q7583:0,Q279,Q:Z6:Q92100:0,Q279,Q:eV03u::LOC:400(::BYTE:LOC,BYTE2V<V012F::LOC:400P::H021:BYTE:LOCH,BYTE:HZVdV06n::LOC:400 x::H01     :16368,0:214,0:979E*214,128::900,208:(17);(21):6[32,0:33,40:34,0:35,24:(4);"NOMONC,I,O"r(4);"BLOADHIRES":23:"COPYRIGHT (C) 1983 CUSTOM MICRO SYSTEMS":35072:$8900(222)2551 ::10:"**ABNORMAL TERMINATION CODE ";(222) AGE$A$(MIX(RR)3).nYROW1:XSTART7CQ:283mo775,0:776,142(CQ1):777,2BQ:779,16:780,142(CQ1)wp5370qPAUSE1VT:PAUSErME$"":PA1BQ:ME$ME$(96)::START7CQ:YROW9:283sRRtDQ0uvwYROW2:XSTART13x13e"READ THE WORDS.",f215:169:193>gINSTRUCT$"W"fhYROW9:XSTART8:MESSAGE$A$(1):281iCQ(V$(3)):FQ(V$(4))(V$(3))1AQjA$(4)(A$(1),CQ,FQ):A$(5)(A$(2),CQ,FQ):A$(6)(A$(3),CQ,FQ)kBQ(A$(4)):DQ1lRR311mMESS;::"RETURN";::" TO START THE LESSON."B[277:ANSWER14191b\S40:S50:S1S11:O80:O90]16368,0:FOR TIMER ADJUST^FILE$FP$"DATA"_QUIT0`:aRLCS7b259::265:QUIT1314c::O6(1)0:O6(2)0:O6(3)0:O70d23:UP622:P724:601:22:""VNAME$NAME$(PTR):S1S1(PTR):S2S2(PTR):S3S3(PTR):S4S4(PTR):S5S5(PTR):S6S6(PTR):S7S7(PTR):VTVT(PTR)WALTER0ıXMESSAGE$"H"(105)", "NAME$"!":INSTRUCT$"W":YROW6:XSTART1Y::283)Z23:1:"PRESS "280:277:ANSWER99:5JZ1%(K1)2:BBBTZ1%1:594>K591_L277:ANSWER155ANSWER99:uMANSWERANSWER192NANSWER176OANSWERK81PANSWERANSWER32:78QPTR0:J126:SLOT(J)083RPTRPTR1:PTRANSWER84SJTPTRJ(K64);" - ";NAME$(J)-DJ:MFSFSĺ"":715E""SFD$;"CLOSE ";FILE$:MFSFS_GK074H20:1::"NO ACTIVATED CUMULATIVE RECORDS FOUND.  ":21:"SEE 'ADD A NEW STUDENT RECORD' FUNCTION ":22:"UNDER 'MANIPULATE STUDENT RECORDS' TASK."INSLOT+;J126:SLOT(J)((LOC$,J,1)):JI<K0:J126:SLOT(J)068X=MFSFS64t>D$;"READ";FILE$;",R";J?NAME$(J),S1(J),S2(J),S3(J),S4(J),S5(J),S6(J),S7(J),VT(J)@KK1:Z1%K2:3AK2Z1%067B22:PAUSE(37):PAUSE:"";C1FSANSWER:ALTER2ıB2FP$XX$(ANSWER):FILE$FP$"PROFILE"H3m4"SKILL: ";YY$(ANSWER):34,2t566" _______SELECT STUDENT BY LETTER_______"7:BT(37):MFSFS608D$;"OPEN ",FILE$;",L50"9D$;"READ";FILE$;",R0":LOC$, TEACH SUBSTITUTION LESSON"&,34,1w-6:12:"---SKILL MENU---":9:" ______ SELECT SKILL BY NUMBER ________":12.PAUSE15:10:PAUSE;" - ";YY$(PAUSE):PAUSE/590:591:BT10:BB18:594:MAXNO5:VC12:HC10:D21:ANSWERFS:5890ANSWER99ER %ANSWER42,321,345,480% &28} ':13:"PRESS ";::"ESC";::" AGAIN TO TERMINATE PROGRAM.":277:ANSWER15528 (: NEXT LINE USED BY ERROR TERMINATOR )"PROGRAM TERMINATED":16368,0:5519:104,8:214,0: *ALTER0+:"TASK: "1 - TEACH SUBSTITUTION LESSONI :6:"2 - REVIEW STUDENT PERFORMANCEt :6:"3 - MANIPULATE STUDENT RECORDS" !:6:"4 - BROWSE THROUGH SENTENCES" "590:593:BT8:BB19:594:MAXNO4:VC11:HC6:D22:ANSWEROT:589 #ANSWER9939 $OTANSWREQUIRED TO PROCEED"C :5:"PLEASE ENTER THE ";::"PASSWORD":N WRNG0W 277g WRNGWRNG1 (ANSWER128)PASSWRD$28 WRNG240 23 602::3:13:"---TASK MENU---" 7:" _______ SELECT TASK BY NUMBER ________" 11:6: FIRST TIME"$ O$(2,1)"EXCELLENT"H O$(3,1)"KEEP UP THE GOOD WORK"a O$(1,2)"NICE GOING"} O$(2,2)"THAT'S BETTER" O$(3,2)"GOOD. YOU GOT IT" O$(1,3)"ALL RIGHT" O$(2,3)"THAT'S IT" O$(3,3)"YOU GOT IT" 8:"AUTHORIZATION IS (2)"IB":XX$(3)"MV":XX$(4)"FC":XX$(5)"FB"Z OT1:FS1:OF1:MFS1:I15:MCT(I)1:Iz YY$(1)"INITIAL CONSONANTS" YY$(2)"INITIAL BLENDS" YY$(3)"MEDIAL VOWELS" YY$(4)"FINAL CONSONANTS" YY$(5)"FINAL BLENDS" O$(1,1)"RIGHT THEEBb214,128:(27);(21):602:::5510:567:COPYRIGHT (C) 1983 CUSTOM MICRO SYSTEMS /280585/uPASSWRD$(26)BLANK$" ":D$(4):SLOT(26):SSLOT(26):NAME$(26):S1(26):S2(26):S3(26):S4(26):S5(26):S6(26):S7(26):VT(26), XX$(1)"IC":XX$                      ART(V$(3))xXND(V$(4))+yI1L(1)=zIXSTART128L{IXND128_|IXSTART130u}A$(2)A$(2)V$(5)~A$(3)A$(3)V$(6)130A$(2)A$(2)(A$(1),I,1)A$(3)A$(3)(A$(1),I,1)IL(2)(A$(2))L(3)(A$(3))BII)iJJ1:L0L0Ij96/kLINE$(J)HOLD$HlLLINE(J)(LINE$(J))\mNLINESNLINES1lnI1NLINES~oJ1LLINE(I)p(LINE$(I),J,1)"*"115qJrIsSBEGINJ:SLINEItuA$(1)V$(2):A$(2)"":A$(3)""vL(1)(A$(1)) wXSTD$HOLD$(V$(1),STARLOC1,I)#^@_NLINES0:L0(HOLD$):J1K`XNDL0[aXND21107vbXND21:NLINESNLINES1cIXND11d(HOLD$,I,1)BLANK$ĂIeXNDI1fLINE$(J)(HOLD$,1,XND)gLLINE(J)(LINE$(J))hHOLD$(HOLD$,(HOLD$)V$(1))PI1L0,Q(V$(1),I,1)"*"ĂI:RSTARLOCIFSI186eTHOLD$(V$(1),1,STARLOC1)|UHOLD$HOLD$BLANK$VI1BIGGESTWHOLD$HOLD$"*"XIYSTARLOCL094ZSTARLOC1L092[HOLD$HOLD$BLANK$\IL0STARLOC]HOLANSWER99ı6ERLC(MESSAGE$):RLC0ĭRLCEOF%1ıCF223:63aGMESSAGE$"":I1(V$(1))HHOLD$(V$(1),I,1):(HOLD$)275I(HOLD$)1HOLD$",":75JHOLD$":"KMESSAGE$MESSAGE$HOLD$LIMV$(1)MESSAGE$NHOLD$""OL0(9934<169:56D=NEVER DROP THROUGH HERE. SUBROUTINES FOLLOW.g>:"Current Sentence # ";RLC:?21:"Enter sentence number to be replaced."@431AMAXCHR1:PAEOF%BPA9MAXCHRMAXCHR1:PAPA10:66CVC13:HC19:ALLOW0:186: DE$;::" does not exist.":PAUSE13000:PAUSE:US1:34S4ERR6EOF%0:159:54\5152k6OPN1:1577 *****REGULAR UPDATE LOOP 834,4::FUNCT2599RLCEOF%1:62:256:ANSWER9934:169:EOF%EOF%1:159:157:56;250:ANSWERSET TO NORMAL ERROR HANDLER*/ERR451j0436:13:1:"Disk is PROTECTED with write-protect tab"13:"First REMOVE the write-protect tab,"2:4:"then enter RUN and press RETURN.":::11:3083FUNCT2ĭERR6ė:15:6:"File ";::FILof update FUNCTION?":432:433@(MAXNO2:VC13:HC9:PAUS:239R)ANSWER9921*FUNCTANSWER:USANSWER: SAVE FOR LATER +:"Update function... ";FUNCT$(ANSWER):34,3,236:SPECIAL OPEN ERROR HANDLER-(4);"UNLOCK";FILE$.213: REile Name......... ";FILE$Z "34,2:35,24::6:7:"---Update FUNCTION MENU---":10:ERR0 #" ___Select Update FUNCTION By Number___" $VC10:434:VC13 %VC:9:"1 - Add New Sentences" &9:"2 - Replace Sentences"'21:"Perform which type the program."/ MAXNO5:VC10:HC9:PAFS:239B ANSWER9931K 436 "PROGRAM TERMINATED":16368,0:801:: PERMIT CTRL-KEYS AGAIN ANSWEROLD:FILE$XX$(ANSWER)"DATA":FSANSWER: ***SAVE IT! :"SKILL............. ";YY$(ANSWER) !"FCK";FILE$:OPN0d 436:6:3:12:"---SKILL MENU---":7:" ________Select SKILL By Number________"r VC7:434 10:I15:9:I;" - ";YY$(I):I 21:"Update which phonetic SKILL's sentences?":432 23:"Press ";::"ESC";::" to terminate  YY$(1)"Initial Consonants"; YY$(2)"Initial Blends"V YY$(3)"Medial Vowels"t YY$(4)"Final Consonants" YY$(5)"Final Blends FUNCT$(1)"Adding Sentences" FUNCT$(2)"Replacing Sentences" MASK(9,2):PRMS(3,2) OPN0ĺD$;"LOEX:5H HASH6613ė:"DATA statement is no longer correct!":h 792: DISALLOW CTRL-KEYS r 213 BLANK$" ":D$(4):FS1:US1 ML(1)1:ML(2)3:ML(3)2:ML(4)1:ML(5)3 XX$(1)"IC":XX$(2)"IB":XX$(3)"MV":XX$(4)"FC":XX$(5)"FB"65%(27);(21):MESSAGE$"":C1$""^436::12:"*****Update Program Now Executing*****"22::"COPYRIGHT (C) 1985 CUSTOM MICRO SYSTEMS"::/280585/ HASH0:INDEX0:ERR0:OPN0HEX:HEX2557 768INDEX,HEX:INDEXINDEX1:HASHHASHH                   X,Q L`@`[\[_\[]^\[] ^\WORKING WITHWORDSSYNONYMSANTONYMSŠˠ   `P\L+ ׋m i ο L  g e`        `    `H h L΋L΋ ׋ ``i`o`x` `ȑ  L 芑`8`@ig@jh _Șeiiejȑijii刱iijijij`ȱi` u0`8Hh`  ,W,P gJ ֊M ֊Q ֊V  % $ ` `H hȊ` ZH[HZ[   ݊ މ   ? ݊ މ &  ? ݊ މ (  h[hZ,lX``, ` l6 ȱ ` 쉰`%   LJj0`  &mii`,``  `  . i  \ EL (&' `   (& `  `)   E *)`  `   E`0X 8(` JJJ G') ' ) e''` (&' `XLM  M i(`  `    E Li  (X&' `m   ( & m      g      R` LC LC LC qLCɃɠ%25H h5`,`Hn6H67 h`hhߚHH`@@``( i(G f  & & & & &e%$ z%$ z%$ z%$$$ z д @`` G') '&e''e` f  `)ߑLR ȱȱ` f G'i' &LR f     @@  @@p@ phh` ` H(ppp`` @@H(hpPphh``?``hh`````x`p``p @@  @x@@ x@@``ppxx@@||~~?????~~~|||xxpp``@@xx``xx`0@ `x`  @@@HHH(((x @H(Xx((HHH((HH```HHH` @@ pxxx``xxxxxxx```````@@@@@@00@pp`  ``@```@ x`@`xxhp@ p`x@ @  @@@ @p@ x@@p@@@  @  x x @`00`@@ @HP`@ 0HH0@@   @ @@ `@@@     􍱍宍⍱덱宍䍱危媮荱쿍􍱍宍危媮䍱䮍͍̍󪮍獱媮덱危箍危󪮍危媮썱类퍱ɠ宍䍱뮍䍱危媮危獱󪮍􍱍􍱍宍쮍⍱媮危덱썱᪮᪮􍱍᪮󍱍宍􍱍ɪ䠠᪮퍱ɠ䮍򍱍􍱍덱ɠ媮䍱危󪮍򪿍뿍䍱䪮썱᪮危宍荱􍱍􍱍ɪ宍危쪮獱媿덱䪮몮危􍱍󪮍򍱍ɠ宍퍱ȍҍɠ危᪮󪮍䍱ɠ危򍱍ɠ宍危媮썱썱Ӎɠ危䍱危᪮獱᪮危󪮍썱ɠ᪮⍱媮危危쮍덱        ᪿ獱危翍危獱덱危宍危ɠ媮􍱍⍱宍덱宍􍱍ɠ宍媮危䪮􍱍􍱍󪮍危媮獱뿍덱􍱍󪮍危䮍危뮍썱ɠ宍퍱쮍쪮危宍덱宍䍱媮危俍썱䮍䍱󍱍窮􍱍󪮍􍱍뮍덱ɠ䍱䍱썱讍䍱ɠ퍱򍱍򪮍荱᪮󍱍ɠ뮍􍱍᪮危䪮危ɠ􍱍ɠ媮危򍱍危宍媮危箍䍱獱ɠ덱썱ᮍ危宍퍱󪮍危箍宍獱썱媮᪮򍱍ɠ宍危⍱危䪮덱᪮危      宍卲媮퍲쪮獲􍲍卲􍲍뮍⍲窮䍲卍ɠ卲媮獲쪠썲᪮宍덲宍􍲍宍󍲍宍􍲍᪮􍲍덲ɠ卲䍲宍卲ɠ窮썲忍卲ɠ荲䠠卲卲󪮍ɠ䮍󍲍뮍􍲍􍲍􍲍덲䍲媮獲媮򪮍卲􍲍⍲宍獲᪮퍲忍􍲍獲媮썲퍲宍썲쿍䍲宍򍲍媮卲덲䍲򪮍썲ɠ类獲󪮍덲卲᪮䍲宍卲宍􍲍獲媮덲媮쮍􍲍骮⍲썲卲ɠ窮箍䍲᪮卲豷⍲덲᪮䍲᪮獲                   媮䍳媮獳类⍳媮ɠ媮󍳍􍳍箍퍳󪮍⍳뿍􍳍䮍􍳍媮窮䍳忍᪮媮􍳍忍獳媮퍳䍳䮍獳箍􍳍쮍쮍獳ɠ宍獳􍳍ɠ􍳍宍䍳箍ɠ􍳍᪮썳类䍳獳ɪ򍳍䮍䍳䪮퍳󪮍窮쮍􍲍䪮􍳍媮򍳍箍䍳     썳宍荳荳뮍썳썳쮍􍳍ɠ䪮덳􍳍ﮍ􍳍媮䍳䍳䮍덳썳䍳ɠ䍳󪮍􍳍덳媮덳ɠ箍獳䮍䍳媮ɠ堠媮荳媮썳䮍獳ɪ덳몮덳᪮􍳍􍳍쪿썳宍䍳荳䮍䍳᪮􍳍􍳍썳媡덳媮䍳덳宍􍳍덳쮍獳䍳宍荳宍􍳍덳󪮍ɠ᪮퍳     ҍ     ҍ     ҍ  ҍ!! ! ! ! ! ҍ"" " " " "