' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ Ƀ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#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛLHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d֠ĭz#2485 NCNC(NC0):VT:K12NC:STD$;C0$;C1;BC$  AN$(AN$,NC(NC0)):NC0AN$"" 2455, NCLIKEY322455c KEY$(KEY):AN$AN$KEY$:KEY64KEY91KEYKEY32 VT:K1NC2:STD$;C0$;C1;(KEY);:NCNC1:2455A MM4:RV0(F QC0EY WT500:CHRGT:KEY0įINST2:2330 K2KEY$ ((K1)(Z9$,1,1))((K2)(Z9$,2,1))RA1) > AN$"":NC0:RA0:WT500:KC,0o KEY$"":CG:KEY0SP$INST$:CSPEAK:2455 KEY632455 KEY13RA(AN$DMP$):KV,0: KEY127397 P405":WSPEAK:VT:K:C0$;FC;:P1:2165SP$"P373 0.3 P118 0.5 "Z1$:CSPEAK&VT:K:C0$;FC;:P2:UBWTXVT:K:STD$;:P2:DISP,"#"0,"X"XP,"Y"YP,"E"oVTVT2:YPYP16:u~ RA0 WT500:CHRGT:KEY0įINST2:2320 K1K1):K21:Z1$WD$(Z1,I)c(Z1$,K2,1)"`"K2K21:2147TfK232K2:XPK5:Z9$(Z1$,K2,2):DMP$Z9$:1:21(Z9$):Z1$Z9$:C0$;FC;:P2:Z1$WD$(Z1,I):VT:K:P1skDISP,"#"0,"X"XP,"Y"YP,"E"pSP$INST$:CSPEAKuT2zKV,0:(RA)SP$"P388 PZ8)" 1.0":WSPEAK%*CCB:NF10:MM3 HVT13WD(Z1):YP(VT1)8:STD$:BC$"-":K121:LI2:C1FCCMI1WD(Z1):K21:Z1$WD$(Z1,I)fR(Z1$,K2,1)"`"K2K21:2130WVT2(I1):232K2:P1:\SP$"P95 0.5 ":WSPEAKaI1WD(ZST$:CSPEAKNFS91:MM1UBWT Z81WD(Z1):19:1:STD$;" ":SP$WD$(Z1,Z8):L(SP$):K10L:19:K:STD$;|I1L:A$(SP$,I,1):A$"a"A$C0$(FC)((A$)32)C0$"0"A$;:WSPEAK SP$"P118 0.5 "WD$(Z1,(SECT,2)ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999P/RL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTER;TRET%ı]VSECT1:D0SET:TT%0:MASTERzFCR(4)1:S9(FC1)22NFS9:MM1:NFS91:MM2:K21UBWT:SP$INLAY$"0"DLAY$ DLAY(DLAY)DLAY$DLAY$".0"V$DLAY$:UBWT V$SP$:UBWT&V$SP$"(C0ISEC%(SECT,1)SEC%(SECT,2)P2D0%(I)1V4\6}>ISEC%(SECT,1)SEC%(SECT,2)@D0%(I)0BDLL1SEC%(SECT,1)SEC%KEY32įFIXARROW:ANAN1:1246KEY13AN0ĹKV,0:CR1252M1(232):M2(233)&NFTBL:MM3XDISPLAY,"#"N,"X"ALOC(AN,1),"Y"ALOC(AN,2),"E"l232,M1:233,M2rDLAY(DLAY10.5)10 DLAY$(DLAY):(DLAY$,1)"."DLCK%(NF)1LCK1LCKıI0(ILFILE)1222LCK%(I)0:INF%(I,1):1218LCK0=MEM(0,0)(2049)256(2050)\MEM(1,0)(115)256(116)bkAN0zAN3AN1FIXARROWWT10000:CHRGT:KEY01252HMEMMEM(BNK,1)SPACEHMEMLMEMLCK%(NF)1ıNF%(NF,1)1198 I0$(NF%(I,1)LFILE)1198ZNF%(I,1)NFNF%(I,1)NF%(NF,1):NF%(NF,1)0:1198oINF%(I,1):1192zSMEMBNKBįSMEMMM2MEM(BNK,0)LMEMLMEMLMEMNF%(NF,4):SPACESPACENF%(NF,4):|PICKVIC:PV31146~ PVPV1:SMEM,NF%(NF,4)SPACEPV31158PV3ė:SF,0:10:5:"FILE ";NF;" IS TOO BIG FOR EITHER BANK":T115000:T1:SO,0:BNK(BNK0):LMEMMEM(BNK,0),3)hA2A1NF%(PTR,4)1Cj(A1LDA1Z)(A2LDA2Z)(A1LDA2Z)(LDA1ZA2)NF%(LAST,1)NF%(PTR,1):NF%(PTR,1)0:PTRNF%(LAST,1):1124PlLASTPTRinPTRNF%(PTR,1):1124pNF%(NF,1)NF%(0,1):NF%(0,1)NFrzNF%(NF,4)SPACELDLMEM: VBL$;NF$(NF);",A";(LD) XNF%(NF,2)LO(LD) ZNF%(NF,3)HI(LD)!\CODE3Ĺ232,NF%(NF,2):233,NF%(NF,3)O^CODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACKd`ZLDNF%(NF,4)1|bLAST0:PTRNF%(0,1)dPTR(LFILE)1136fA1NF%(PTR,2)256NF%(PTRD(ILFILE)1098 FLCK%(I)NF%(LAST,1)NF%(I,1):NF%(I,1)0:ILAST HLASTI:INF%(I,1):1092 J. LNF%(NF,1)01108X NCODE3Ĺ232,NF%(NF,2):233,NF%(NF,3) PCODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACK R TPV0:FSPACE:PV3PV0:1138ST  KEY27TT%ı CB:KV,0:DOCLR:STACKCLR:SO,0:49234,0:49239,0:SECT1:D0SET:MASTER* KEY63ı7 "V$INST$= $G 61088X 7CODE1:1100i 8CODE2:1100z 9CODE3:1100 :CODE4 @CODE41100 BLAST0:INF%(0,1) Z42210: MUST BE 44032 OR LOWER d50030: INITIALIZE CNT0:KC,0 CNTCNT1:KEY(KB)128- KEY0CNTWT1012P (KEY96)(KEY123)KEYKEY32c KEY47KEY63w R(CNT):KC,0}  RKEY:KEY0ı CR:CESC:PROGSUM:INK  9/12/86 RON -------------------------  CONSONANT DIGRAPHS -------------------------; ( PROGRAMMER: Ron MillerZ 2 GRAPHICS BY: Triska Paulm <STORYBOARDER: F Sherrie Gahn P-------------------------                  !!! ! ! ! ! !!!!!!!!!""" " " " " """"""""Z810);Z8;" ";brZ8NF%(Z7,2)256NF%(Z7,3):Z810000);Z81000);Z8100);Z810);Z8;" ";rZ8NF%(Z7,4):Z810000);Z81000);Z8100);Z810);Z8;" ";r$LCK%(Z7)r.r8RCG14:UF0NIC:50,ZY::SO,0:AqKEY8KEY11Z3Z3N7:62360kqKEY32KEY21KEY10Z3Z3N7:62360vq62370qZ30Z3N7(MFN7)qZ3MFZ30qZ4Z3N71:Z4MFZ4MFq:24N7:Z7Z3Z4qZ710);Z7;" ";rZ8NF%(Z7,1):MF;" FILES":BNKĞNpz2:"BANK0";::": ";MEM(0,0);"-";MEM(0,1);:21:BNKĞ|p"BANK1";::": ";MEM(1,0);"-";MEM(1,1):p"No. Link Address Length Lock"::34,5:N718:Z30p62420pWT1000:RKEY:KEY062370qKEY27KEY63:34,0:Ho ------------------------:o*-- (PR)OGRAM SUMMARY ---Xo4------------------------mo>PROGRAM SUMMARY{oHIN :NONEoROUT:NONE (SETS KEY = ?)o\KEY16ıofKV,0:ZY(50):(17)::SF,0pp::"FRE = ";FS(0);:15:"LAST FILE: ";NF;:31:T%1:JTT%(I,1)TT%(I,2):D0%(J)1:J,nIWU߃20,22IWV߃24,25iWp߁I18:J15:WD$(I,J)::Wz߃SHore,SHell,SHip,SHop,SHadowW߃WHale,WHeel,WHistle,WHeat,WHiteW߃CHain,CHair,CHange,CHart,CHeckW߃PHone,PHrase,PHoto,PHony,PHeasantX)MX Vރ1,1Vރ2,13"Vރ14,19-Vރ20,238Vރ24,25OV߁I0MX:TARG(I):V ߃0,10050,10320,10410,10510,10610,10710,10810,10910,11010,11110,11210,11310,11410,11520,11610,11710,11810,11910,12010,12120,12210,12310,12410,20020,21010WR߁I1TZ:TT%(I,):UރMENU.PAKhUރFB1A.PAK,FB1B.PAK,FB2A.PAK,FB2B.PAK,FB3A.PAK,FB3B.PAK,FB4A.PAK,FB4B.PAK,ARROW.TBLUރQUIZ.PAK,RACE1.TBL,RACE2.TBL,RACE3.TBLUރTEST.PAK,TEST1.TBL,TEST2.TBL,RESULTS.PAKVށI1SECT:SECT%(I,1),SECT%(I,2)::SECT%(0,1)2:SECT%(0,2R QUIZZES3TtۆRC%(3,12,2): POSITIONS FOR RACE CARWT~ۆTT%(TZ,2): TEACHER ASSIGNMENTsTۆSN$(5): SECTION NAMESTۆTST$(20,3): TEST WORDST޲------------------------T޲-- DATA STATEMENTS -----T޲------------------------UށI1MFILE:NF$(IM(0,1)8191:MEM(1,0)(115)256(116):MEM(1,1)48814[S8ۆLCK%(MFILE): LOCKED FILE FLAGSzSBۆCA%(20): CORRECT ANSWERSSLۆWD$(8,5),WD(8): WORDS FOR LEARN ITSSVۆQZ$(3,12): QUIZ WORDSS`ۆQZ(3): NUM OF QUIZ WORDS TjۆRV(3,2): REVIEW SCREENS FOSECTION(RچNF$(MFILE): NAMES OF FILESFRۆNF%(LFILE,4): FILE DATAsRۆINST$(SECT): INSTRUCTIONS FOR SECTIONSRۆALOC(3,2): HOLDS LOCATIONS FOR ARROWSR$ۆMEM(1,1): LOW AND HIGH ADDRESSES OF MEMORY FREE SPACES5S.MEM(0,0)(2049)256(2050):ME---------------------3Qڲ-- DIMENSION ARRAYS ----QQڲ------------------------QچD0%(MXSCREENS): D0%(I)=1 MEANS DO SCREEN IQچTARG(MXSCREENS): HOLDS LINE NUMBERS OF SCREEN SUBROUTINERچSEC%(SECT,2): HOLDS FIRST AND LAST SCREEN NUMBER OF A (PP33215: WORD W/ COLORED LOWER CASEIPP43265: WORD W/ COLORED --cPTST3515: FINAL TESTPRSLT4015: RESULTS SCREENP"KR5010: KEY READ W/O CLEARP,CG5034: CHRGT W/O CLEARP\CR61035PfTURN61535PpTA61730PzPR62300Qڲ--- OF FLAT BED/OFB2055: 2ND PART OF FLAT BEDROR12115: REVIEW FOR LEARN ITSoOG22315: GET TWO INPUTSOT22450: TYPE TWO CHARSOQZ2625: QUIZ SCREENOGO3015: GO ON SCREENOP13115: WORD W/ --OP23165: WORD W/ ALL LOWER CASEINST1056NMM1078'N(FSPACE11468N2PICKVIC1158FNKC49168:KEYBOARD CLEARBJHKB49152:KEYBOARDbJRSF49233:HI-RES SCREEN OFFJ\SO49232:HI-RES SCREEN ONJϲ------------------------Jϲ-- STRING CONSTANTS ----Jϲ------------------------K&D$(13)(4):RETURN PLUS CONTR6)49282IUNPACK2352&IAMPER8789ISTACKCLR54915OIFX947:FIX STACKsICB62450:CLEAR SCREEN TO BLACKICC62454:CLEAR SCREEN TO COLORIFR48406:FILE SIZE READI ˲------------------------I*˲-- LOCATION CONSTANTS --J4˲----------(111)256(112))((109)256(110))DH8Dz------------------------bHBDz-- UTILITY CONSTANTS ---HLDz------------------------HVHRCG2203H`DISPLAY2362HjUF0NIC2051HtUBWTUF0NIC117H~P0RT(UBWT1)256(UBWT2)IKV((((UBWT2))192)149162,0:ENABLE MAIN BOARD INTERUPTSBGò------------------------`Gò-- FUNCTIONS -----------~Gò------------------------GøR(X)((1)X)GøEO(X)((X2)X2)GøHI(X)(X256)GøLO(X)X256HI(X)GøVO(X)(P0RT)95&HøFS(X)(F0#F N-- SECTION 5 -----------AF*N-- SCREEN 24 -----------KF4NTSTQF>NoFR-- SCREEN 25 -----------zFRRSLTFRFPò------------------------FZò-- INITIALIZE ----------Fdò------------------------Fnù16297,0:16300,0:230,32$Gxù-" Ev/FBE//E/-- SCREEN 21 -----------E/Z18:INST$"TYPE THE CORRECT CONSONANT DIGRAPH IN THE MIDDLE OF THE WORD THEN P422":R1:E 0-- SCREEN 22 -----------E0Z13:Z1$"IN THE MIDDLE"E 0QZEf0Ep0-- SCREEN 23 -----------Ez0GOGO D.'DD/-- SECTION 4 -----------EDN/-- SCREEN 20 -----------DX/Z18:INST$"LISTEN TO THE SOUND S H 0.3 T H 0.3 N G 0.3 P H AND C H MAKE IN THE MIDDLE OF THE WORDS"Db/FAEl/STD$;C0$;FC:3:2:"-sh-":2:"-th-":2:"-ng-":2:"-ph-":2:"-chh":2:"-sh"C-FBC-9C.-- SCREEN 17 -----------C".Z17:INST$"TYPE THE CORRECT CONSONANT DIGRAPH AT THE END OF THE WORD THEN P422":R1:C|.-- SCREEN 18 -----------C.Z12:Z1$"AT THE END"C.QZC.C.-- SCREEN 19 -----------D.KBZ-Z16:INST$"TYPE N G ON THE LINES TO FINISH THE WORD THEN P422":R1:iB--- SCREEN 16 -----------B-Z17:INST$"LISTEN TO THE SOUND P H 0.3 T H 0.3 C H AND S H MAKE AT THE END OF THE WORDS"B-FA C-STD$;C0$;FC:3:2:"-ph":2:"-th":2:"-c,-- SCREEN 13 -----------#A,GO)A,GA,-- SECTION 3 -----------eA,-- SCREEN 14 -----------A-Z16:INST$"LISTEN TO THE SOUND N G MAKES AT THE END OF THE WORDS"A -FAA-3:2:STD$;C0$;FC;"-ng";A-FBA(-BP--- SCREEN 15 -----------NG OF THE WORDS"@p+FA7@z+3:2:STD$;C0$;FC;"th-";@@+FBF@+d@+-- SCREEN 11 -----------@+Z15:INST$"TYPE T H ON THE LINES TO FINISH THE WORD THEN P422":R1:@$,-- SCREEN 12 -----------@.,Z11:Z1$"AT THE BEGINNING"@8,QZ@~,AWORDS"?*FA-?*3:2:STD$;C0$;FC;"ph-";6?*FB)3:2:STD$;C0$;FC;"ch-";,>)FB2>)P>0*-- SCREEN 7 ------------>:*Z13:INST$"TYPE C H ON THE LINES TO FINISH THE WORD THEN P422":R1:>*-- SCREEN 8 ------------?*Z14:INST$"LISTEN TO THE SOUND P H MAKES AT THE BEGINNING OF THE 3:2:STD$;C0$;FC;"wh-";"=,)FB(=6)F=h)-- SCREEN 5 ------------=r)Z12:INST$"TYPE W H ON THE LINES TO FINISH THE WORD THEN P422":R1:=)-- SCREEN 6 ------------=)Z13:INST$"LISTEN TO THE SOUND C H MAKES AT THE BEGINNING OF THE WORDS">$;C0$;FC;"sh-";------------------------>CCB:NF10:MM3zHVT13WD(Z1):YP(VT1)8:STD$:BC$"-":K121:LI2:C1FCMI1WD(Z1):K21:Z1$WD$(Z1,I)R(Z1$,K2,1)"`"K2K21:2130WVT2(I1):232K2:P1:\SP$"P95 0.5 ":WSPEAK a$;" ":SP$WD$(Z1,Z8):L(SP$):K10L:19:K:STD$;|I1L:A$(SP$,I,1):A$"a"A$C0$(FC)((A$)32)C0$"0"A$;:WSPEAK SP$"P118 0.5 "WD$(Z1,Z8)" 1.0":WSPEAK%*4------------------------ 9-- R1 ---------- FCR(4)1:S9(FC1)22ENFS9:MM1:NFS91:MM2:K21bUBWT:SP$INST$:CSPEAKuNFS91:MM1{-------------------------- FB ------------------------------------------UBWT Z81WD(Z1):19:1:STDT,2)5ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999;P{RL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTERTRET%ıVSECT1:D0SET:TT%0:MASTER-------------------------- FA --------------------------------------- FA0:E10F n51200,0:51201,0:51185:AA1:B(51200):BAE1390L reboot.";:100 d1012,0:1001 (A$)3520D A$" "A$:500S T$T$A$: jD(53247):D(51197):A0:E10:I0(S$)1:51202I,((S$,I1,1))::1350:Bı 51201,(S$) 51200,0:51179:AA1:B(51200):B4B0 BAE1190  50 F1130:(17):::Bĺ(7)" LABNET is down!":5:"Record your scores:":" Percent correct "F:" Number correct "G:" Total Questions "C:Hĺ" Partial score" _:(4)"PR#0":(4)"IN#0"::24:" Press Control-Reset to M(640)195(J110000:::| S$"D00053000000000000000056":C(28):G(29):H(30):F0:C0F(G100C0.5)B$"F":H1B$"P"P$(F):D$(G):C$(C):T$B$:A$P$:500:A$D$:500:A$C$:500:S$S$T$2(S$)8070 <S$S$" ":   8NF%(Z7,4):Z810000);Z81000);Z8100);Z810);Z8;" ";KT$LCK%(Z7)QT.WT8eTCA0:FF0kT360S62370'SZ30Z3N7(MFN7)7SZ3MFZ30SSZ4Z3N71:Z4MFZ4MFjS:24N7:Z7Z3Z4SZ710);Z7;" ";SZ8NF%(Z7,1):Z810);Z8;" ";SZ8NF%(Z7,2)256NF%(Z7,3):Z810000);Z81000);Z8100);Z810);Z8;" ";=TZ(1,0);"-";MEM(1,1):QR"No. Link Address Length Lock"::34,5:N718:Z30\R62420|RWT1000:RKEY:KEY062370RKEY27KEY63:34,0:HRCG14:UF0NIC:50,ZY::SO,0:RKEY8KEY11Z3Z3N7:62360SKEY32KEY21KEY10Z3Z3N7:62TER0QKEY63:HRCG14:UF0NIC:50,ZY::SO,0:?Q\KEY16ıaQfKV,0:ZY(50):(17)::SF,0Qp::"FRE = ";FS(0);:15:"LAST FILE: ";NF;:31:MF;" FILES":BNKĞQz2:"BANK0";::": ";MEM(0,0);"-";MEM(0,1);:21:BNKĞR"BANK1";::": ";MEM P"NO "P61850"PI1TZWPTT%(I,0)TT%1:JTT%(I,1)TT%(I,2):D0%(J)1:J^PInPTT%61940P:10:8:"Press any key to continue."PWT1000PRKEYPKEY061925QHRCG14:UF0NIC:50,ZY::CB:SO,0:STACKCLR:SECT0:MAS1TZ:TT%(I,0)0::61940*OKEY3261895OKEY127įRS:1:15::"SCORES RESET":N711000:N7:1:15::" ":OKEY("A")KEY(64TZ)61855OKEYKEY64:TT%(KEY,0)1TT%(KEY,0):5KEY2(KEYTY):HTPTT%(KEY,0)Ğ:"YES"::61890tter [A..";(64TZ);"] for the":20:5:"option you want."^N|HT5:TT%0:I1TZ:TT%(I,0)0:NISEC%(0,1)SEC%(0,2):D0%(I)0:NI1TZ:I52(ITY):HTNTT%(I,0)Ğ:"YES"::61845N"NO "NNWT1000NRKEYOKEY27TT%0:ISSIGNMENT"!MY5:3:"LEARN IT:"bM^HT10:HT:"A. BEGINNING DIGRAPHS":HT:"B. ENDING DIGRAPHS"McHT:"C. DIGRAPHS IN THE MIDDLE"Mh:3:"TRY IT:MmHT:"D. RACE TRACK GAME"Mr23:5:"Press the SPACE BAR to continue.":Nw19:5:"Type the leO(MEM(0,0)):1,HI(MEM(0,0)):UNPACK߃branCH,buildiNG,buSH,graPH,swiNG,inCH,fiSH,lightniNG,riNG,teeTH,,>߃alPHabet,ariTHmetic,elePHant,fiNGers,birTHday,rectaNGle,sunSHine,telePHone,,,,>I13:QZ(I):>12,10,8?I13:RV(I,1),RV(I,THank,THird,THumb,THick,THin;=߃wiNG,siNG,haNG,soNG,kiNGW=߃graPH,paTH,beaCH,fiSH,=߃sunSHine,birTHday,aNGry,alPHabet,maCHine=߁I18:WD(I):=߃5,5,5,5,5,5,4,5=߁I13:J112:QZ$(I,J)::*>߃WHale,CHain,CHocolate CHip,SHirt,THumb,WHis1),TT%(I,2):TT%(I,0)0::TT%0(KC491684HKB491524RSF492334\SO492324&D$(13)(4)50BL$D$"BLOA0:230,323xù49162,0+3øR(X)((1)X)D3øEO(X)((X2)X2)Y3øHI(X)(X256)r3øLO(X)X256HI(X)3øVO(X)(P0RT)953øFS(X)((111)256(112))((109)256(110))3VHRCG22033`DISPLAY23623jUF0NIC20514tUBWTUF0NIC11:2:"-ng-":2:"-ph-":2:"-ch-"*2v/FB02/2/Z18:INST$"TYPE THE CORRECT CONSONANT DIGRAPH IN THE MIDDLE OF THE WORD THEN P422":R1:20Z13:Z1$"IN THE MIDDLE"2 0QZ2f02z0GO2024NTST2>N2RAK2R 3nù16297,0:16300,APH AT THE END OF THE WORD THEN P422":R1:F1.Z12:Z1$"AT THE END"O1.QZU1.^1.GOd1.1X/Z18:INST$"LISTEN TO THE SOUND S H 0.3 T H 0.3 N G 0.3 P H AND C H MAKE IN THE MIDDLE OF THE WORDS"1b/FA!2l/STD$;C0$;FC:3:2:"-sh-":2:"-th-"ISH THE WORD THEN P422":R1:|0-Z17:INST$"LISTEN TO THE SOUND P H 0.3 T H 0.3 C H AND S H MAKE AT THE END OF THE WORDS"0-FA0-STD$;C0$;FC:3:2:"-ph":2:"-th":2:"-ch":2:"-sh"0-FB0-,1".Z17:INST$"TYPE THE CORRECT CONSONANT DIGRE WORD THEN P422":R1:8/.,Z11:Z1$"AT THE BEGINNING"A/8,QZG/~,P/,GOV/,/-Z16:INST$"LISTEN TO THE SOUND N G MAKES AT THE END OF THE WORDS"/ -FA/-3:2:STD$;C0$;FC;"-ng";/-FB/(-0Z-Z16:INST$"TYPE N G ON THE LINES TO FINJ.+Z14:INST$"TYPE P H ON THE LINES TO FINISH THE WORD THEN P422":R1:.f+Z15:INST$"LISTEN TO THE SOUND T H MAKES AT THE BEGINNING OF THE WORDS".p+FA.z+3:2:STD$;C0$;FC;"th-";.+FB.+/+Z15:INST$"TYPE T H ON THE LINES TO FINISH THFA"-)3:2:STD$;C0$;FC;"ch-";+-)FB1-)|-:*Z13:INST$"TYPE C H ON THE LINES TO FINISH THE WORD THEN P422":R1:-*Z14:INST$"LISTEN TO THE SOUND P H MAKES AT THE BEGINNING OF THE WORDS"-*FA-*3:2:STD$;C0$;FC;"ph-";-*FB-*OUND W H MAKES AT THE BEGINNING OF THE WORDS"6,)FAT,")3:2:STD$;C0$;FC;"wh-";],,)FBc,6),r)Z12:INST$"TYPE W H ON THE LINES TO FINISH THE WORD THEN P422":R1:,)Z13:INST$"LISTEN TO THE SOUND C H MAKES AT THE BEGINNING OF THE WORDS"-)DIGRAPHS":CSPEAK_+Z(Z11:INST$"LISTEN TO THE SOUND S H MAKES AT THE BEGINNING OF THE WORDS"h+d(FA+n(3:2:STD$;C0$;FC;"sh-";+x(FB+(+(Z11:INST$"TYPE S H ON THE LINES TO FINISH THE WORD THEN P422":R1:-,)Z12:INST$"LISTEN TO THE S("1")KEY("4")10070 *'KV,02*'SECTKEY481p*'SECT5(640)Ĺ28,FF:29,CA:30,FF20::(4);"RUN EXIT"*'SECT5ČUF0NIC3:::KC,0:103,1:104,8:2048,255:2049,0:2050,0:214,255:*'D0SET*'UBWT:CB*'+P(SP$"1.0 P322 CONSONANT ONSONANT DIGRAPHS 0.5 1 0.3 BEGINNING DIGRAPHS 0.8 2 0.3 ENDING DIGRAPHS 0.8 3 0.3 DIGRAPHS IN THE MIDDLE 0.8 4 0.3 STOP 1.0 P181 YOU WANT")V'CSPEAK)`'WT1000:RKEY)j'TA)t'CR)~'PROGSUM)'KEY63ĹKV,0:10070)'KEY010070*'KEYWT(DLAY5.0:PAUSE('(CNT0C(CNTCNT1:KEY(KB)128Z(KEY0CNTWT5012}((KEY96)(KEY123)KEYKEY32(KEY47KEY63(R(CNT):KC,0((KREY:KEY0ı(CR:CESC:PROGSUM:INST((B'NF1:MM1)L'SP$"CTD$;" ":VT:21L:P3o'WC2āZ718:DISP,"#"2,"E":DISP,"#"2,"X"34,"E":Z81100:Z8:'UBWT:DLAY1.0:PAUSE:FFFF1:'<'NF18:MM1'SP$"You did "(CA)" right out of "(FF):CSPEAK(6:8:REG$;SP$;".":UB(CA10):DISP,"#"RC%(2,QC,0),"X"RC%(2,QC,1),"Y"RC%(2,QC,2)D&e3750z&jWC1SP$"P388 P394 0.5 P405 1.0":CSPEAK:3655&oANRA:FIXARROW:20:10L:P3:SP$"P388 0.3 THIS IS THE CORRECT ANSWER 0.5 "TST$(I,0)" 1.0":WSPEAK:FIXARROW)'VT:1:S%GUBWT:ARROW:FIXARROW8%LAN(RA)WCWC1:3690%QSP$"P377 0.3 YOU PICKED THE CORRECT CONSONANT DIGRAPH 0.5 "TST$(I,0)" 0.5":CSPEAK%S20:10L:P3%VWC3685:&[DISP,"#"RC%(2,QC,0),"X"RC%(2,QC,1),"Y"RC%(2,QC,2),"E":CACA1:QCCA10;"0"$NF16I2:MM39$)DISP,"#"I12:20:10L:P4`$.VT:25:Z613:TST$(I,Z6);" ";:n$3K21:WC0$8(Z1$,K2,1)"`"K2K21:3640$=RA0:Z613:((((Z1$,K2,1))32)(TST$(I,Z6),1))((((Z1$,K21,1))32)(TST$(I,Z6),1))RAZ6$BEN P422"%# SP$INST$:UBWT:CSPEAKG# VT20:FC4:BC$"-":TBL10:N1# NF16:MM3:DISP,"#"RC%(2,0,0),"X"RC%(2,0,1),"Y"RC%(2,0,2),"E"#I120#I1I10(I10):I2(I10):Z1$TST$(I,0):L(Z1$)$20:1:STD$;C0$;"4";" | ";C0$ NOW 0.3 LET'S HAVE A RACE 0.5":CSPEAK@" NF15:MM1:MM4" UBWT:SP$"P78 0.5 SAY IT'S NAME TO YOURSELF 0.5":CSPEAK" NF10:B0:LOCK" I120:CA%(I)0::CA0:QC0:FF0# INST$"WHICH CONSONANT DIGRAPH SOUND DO YOU HEAR 0.5 P430 P343 TH(Z1$,Z5,1):A$"@"A$"["A$((A$)32)3!b A$;:9!g ! Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$C0$(FC)((A$)32)C0$"0"! A$;:! ! Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$C0$(FC)BC$C0$"0"! A$;:! (" SP$"1.0"1 0.3 P74 0.8 2 PLAY THE GAME":CSPEAK4 WT500L CHRGT:KEY03030p KV,0:KEY("1")KEY27:CESC KEY("2")įDOCLR:SECT5:D0SET: 3030 + Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$BC$ 0 A$;: 5 (!] Z51(Z1$):A$2 RET%1:RV1:Z7RV(Z1,1)RV(Z1,2):D0%(Z7)1:V OZZ1:SP$"OK P58 0.5":CSPEAKc MASTER Z1OZ:SP$"OK P54 0.5":CSPEAK RET%0 2630J  MM4:CB 8:1:STD$;"1. Look at the menu." 16:1:"2. Play the game.") SP$2800; WC1SP$"P388 P394 0.5 P405 1.0":CSPEAK:2685 SP$"P388 YOU SHOULD HAVE TYPED 0.3 "(DMP$,1)" "(DMP$,1)" TO MAKE "QZ$(Z1,I):CSPEAK VT:K:Z1$QZ$(Z1,I):STD$;:P3 UBWT:DLAY1.0:PAUSE:QTQT1: (QCQT0.8)RV2890E A WORD 0.3 P118 0.5 "QZ$(Z1,I):CSPEAKO VT:K:Z1$QZ$(Z1,I):STD$;:P3 WCČDISP,"#"RC%(Z1,QC,0),"X"RC%(Z1,QC,1),"Y"RC%(Z1,QC,2),"E":QCQC1:DISP,"#"RC%(Z1,QC,0),"X"RC%(Z1,QC,1),"Y"RC%(Z1,QC,2),"E":Z716:DISP,"#"2,"E":Z81100:Z8: INST$I$Z1$p DISP,"#"I2Bs ((Z1$,K2,1))96K2K21:2675Wx DMP$(Z1$,K2,2)n} VT:K:STD$;:P4 K1K2(K21) UBWT:SP$Z1$:CSPEAK:T2 (RA)WCWC1:2730* SP$"P367 0.5 YOU PICKED THE CORRECT CONSONANT DIGRAPH 0.3 YOU MADPE THE CONSONANT DIGRAPH YOU HEAR "Z1$" OF EACH WORD THEN P422 0.5 ":UBWT`_ SP$I$:CSPEAKa DISP,"#"RC%(Z1,0,0),"X"RC%(Z1,0,1),"Y"RC%(Z1,0,2),"E"d I1QZ(Z1)i VT:1:STD$;" " n Z1$QZ$(Z1,I):L(Z1$):K21L:K21:WC0::QT0:VT22:C13:FCC1:BC$"-":LI2:SP$"NOW SHOW THAT YOU KNOW THE CONSONANT DIGRAPH SOUND "Z1$" OF EACH PICTURE 0.5"K NF11:MM1P CSPEAK:NF11Z1:MM3:UBWTU SP$"LISTEN TO THE WORD 0.8 LOOK AT THE PICTURE IN THE BOX":CSPEAKLZ I$"TY24854 NCNC(NC0):VT:K12NC:STD$;C0$;C1;BC$Z AN$(AN$,NC(NC0)):NC0AN$""d 2455| NCLIKEY322455 KEY$(KEY):AN$AN$KEY$:KEY64KEY91KEYKEY32 VT:K1NC2:STD$;C0$;C1;(KEY);:NCNC1:2455A MM4:RV0xF QC0EY+ WT500:CHRGT:KEY0įINST2:23306 K2KEYf$ ((K1)(Z9$,1,1))((K2)(Z9$,2,1))RA1l)  AN$"":NC0:RA0:WT500:KC,0 KEY$"":CG:KEY0SP$INST$:CSPEAK:2455 KEY632455 KEY13RA(AN$DMP$):KV,0: KEY127397 P405":WSPEAK:VT:K:C0$;FC;:P1:2165WSP$"P373 0.3 P118 0.5 "Z1$:CSPEAKvVT:K:C0$;FC;:P2:UBWTVT:K:STD$;:P2:DISP,"#"0,"X"XP,"Y"YP,"E"VTVT2:YPYP16: RA0 WT500:CHRGT:KEY0įINST2:2320 K1K1):K21:Z1$WD$(Z1,I)8c(Z1$,K2,1)"`"K2K21:2147fK232K2:XPK5:Z9$(Z1$,K2,2):DMP$Z9$:1:21(Z9$):Z1$Z9$:C0$;FC;:P2:Z1$WD$(Z1,I):VT:K:P1kDISP,"#"0,"X"XP,"Y"YP,"E"pSP$INST$:CSPEAKuT2-zKV,0:(RA)SP$"P388 PZ8)" 1.0":WSPEAK%*4CCB:NF10:MM3pHVT13WD(Z1):YP(VT1)8:STD$:BC$"-":K121:LI2:C1FCMI1WD(Z1):K21:Z1$WD$(Z1,I)R(Z1$,K2,1)"`"K2K21:2130WVT2(I1):232K2:P1:\SP$"P95 0.5 ":WSPEAKaI1WD(ZST$:CSPEAKNFS91:MM1%/UBWT@ Z81WD(Z1)19:1:STD$;" ":SP$WD$(Z1,Z8):L(SP$):K10L:19:K:STD$;I1L:A$(SP$,I,1):A$"a"A$C0$(FC)((A$)32)C0$"0"A$;:WSPEAK SP$"P118 0.5 "WD$(Z1,(SECT,2)9ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999?PRL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTERTRET%ıVSECT1:D0SET:TT%0:MASTERFCR(4)1:S9(FC1)22NFS9:MM1:NFS91:MM2:K21 UBWT:SP$INLAY$"0"DLAY$1 DLAY(DLAY)DLAY$DLAY$".0"DV$DLAY$:UBWTJ[V$SP$:UBWTal&V$SP$r(0ISEC%(SECT,1)SEC%(SECT,2)2D0%(I)146>ISEC%(SECT,1)SEC%(SECT,2)@D0%(I)0BDLL1SEC%(SECT,1)SEC%KEY32įFIXARROW:ANAN1:12469KEY13AN0ĹKV,0:BCRL1252dM1(232):M2(233)vNFTBL:MM3DISPLAY,"#"N,"X"ALOC(AN,1),"Y"ALOC(AN,2),"E"232,M1:233,M2DLAY(DLAY10.5)10 DLAY$(DLAY):(DLAY$,1)"."DLCK%(NF)1LCK1'LCKı/I0C(ILFILE)1222bLCK%(I)0:INF%(I,1):1218lLCK0MEM(0,0)(2049)256(2050)MEM(1,0)(115)256(116)AN0AN3AN1FIXARROWWT10000:CHRGT:KEY01252HMEMMEM(BNK,1)$SPACEHMEMLMEM*<LCK%(NF)1ıQNF%(NF,1)1198YI0t(NF%(I,1)LFILE)1198NF%(I,1)NFNF%(I,1)NF%(NF,1):NF%(NF,1)0:1198INF%(I,1):1192SMEMBNKBįSMEMMM2MEM(BNK,0)LMEM LMEMLMEMNF%(NF,4):SPACESPACENF%(NF,4):D|PICKVIC:PV31146J~]PVPV1:SMEM|NF%(NF,4)SPACEPV31158PV3ė:SF,0:10:5:"FILE ";NF;" IS TOO BIG FOR EITHER BANK":T115000:T1:SO,0:BNK(BNK0):LMEMMEM(BNK,0),3) hA2A1NF%(PTR,4)1 j(A1LDA1Z)(A2LDA2Z)(A1LDA2Z)(LDA1ZA2)NF%(LAST,1)NF%(PTR,1):NF%(PTR,1)0:PTRNF%(LAST,1):1124 lLASTPTR nPTRNF%(PTR,1):1124 pNF%(NF,1)NF%(0,1):NF%(0,1)NF r+zNF%(NF,4)SPACELDLMEM: VBL$;NF$(NF);",A";(LD)1 XNF%(NF,2)LO(LD)G ZNF%(NF,3)HI(LD)q \CODE3Ĺ232,NF%(NF,2):233,NF%(NF,3) ^CODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACK `ZLDNF%(NF,4)1 bLAST0:PTRNF%(0,1) dPTR(LFILE)1136 fA1NF%(PTR,2)256NF%(PTRD(ILFILE)1098F FLCK%(I)NF%(LAST,1)NF%(I,1):NF%(I,1)0:ILASTb HLASTI:INF%(I,1):1092h J~ LNF%(NF,1)01108 NCODE3Ĺ232,NF%(NF,2):233,NF%(NF,3) PCODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACK R TPV0:FSPACE:PV3PV0:1138ST  KEY27TT%ık CB:KV,0:DOCLR:STACKCLR:SO,0:49234,0:49239,0:SECT1:D0SET:MASTERz KEY63ı "V$INST$ $ 61088 7CODE1:1100 8CODE2:1100 9CODE3:1100 :CODE4 @CODE41100 BLAST0:INF%(0,1) Z42210: MUST BE 44032 OR LOWER: d50030: INITIALIZEJ CNT0:KC,0f CNTCNT1:KEY(KB)128} KEY0CNTWT1012 (KEY96)(KEY123)KEYKEY32 KEY47KEY63 R(CNT):KC,0  RKEY:KEY0ı CR:CESC:PROGSUM:INlL 9/12/86 RON2 -------------------------N CONSONANT DIGRAPHSm-------------------------( PROGRAMMER: Ron Miller2 GRAPHICS BY: Triska Paul<STORYBOARDER:F Sherrie Gahn P-------------------------"                                                 Z81000);Z8100);Z810);Z8;" ";2s$LCK%(Z7)8s.>s8\s------------------------zs-- RESET SCORES (RS) ---s------------------------sCA0:FF0sZ3N7(MFN7)rZ3MFZ30:rZ4Z3N71:Z4MFZ4MFQr:24N7:Z7Z3Z4krZ710);Z7;" ";rZ8NF%(Z7,1):Z810);Z8;" ";rZ8NF%(Z7,2)256NF%(Z7,3):Z810000);Z81000);Z8100);Z810);Z8;" ";$sZ8NF%(Z7,4):Z810000);ú"No. Link Address Length Lock"::34,5:N718:Z30Cq62420cqWT1000:RKEY:KEY062370qKEY27KEY63:34,0:HRCG14:UF0NIC:50,ZY::SO,0:qKEY8KEY11Z3Z3N7:62360qKEY32KEY21KEY10Z3Z3N7:62360q62370rZ30OUT:NONE (SETS KEY = ?)&p\KEY16ıHpfKV,0:ZY(50):(17)::SF,0pp::"FRE = ";FS(0);:15:"LAST FILE: ";NF;:31:MF;" FILES":BNKĞpz2:"BANK0";::": ";MEM(0,0);"-";MEM(0,1);:21:BNKĞp"BANK1";::": ";MEM(1,0);"-";MEM(1,1):8qKEY061925PoHRCG14:UF0NIC:50,ZY::CB:SO,0:STACKCLR:SECT0:MASTER}oKEY63:HRCG14:UF0NIC:50,ZY::SO,0:o ------------------------o*-- (PR)OGRAM SUMMARY ---o4------------------------o>PROGRAM SUMMARYoHIN :NONEpR%(KEY,0)1TT%(KEY,0):5KEY2(KEYTY):HTMnTT%(KEY,0)Ğ:"YES"::61890Xn"NO "cn61850onI1TZnTT%(I,0)TT%1:JTT%(I,1)TT%(I,2):D0%(J)1:JnInTT%61940n:10:8:"Press any key to continue."nWT1000nRKEYo"YES"::61845m"NO " m,mWT10007mRKEYemKEY27TT%0:I1TZ:TT%(I,0)0::61940wmKEY3261895mKEY127įRS:1:15::"SCORES RESET":N711000:N7:1:15::" ":mKEY("A")KEY(64TZ)61855+nKEYKEY64:TTGAME"4lr23:5:"Press the SPACE BAR to continue."lw19:5:"Type the letter [A..";(64TZ);"] for the":20:5:"option you want."l|HT5:TT%0:I1TZ:TT%(I,0)0:lISEC%(0,1)SEC%(0,2):D0%(I)0:lI1TZ:I52(ITY):HTmTT%(I,0)Ğ:k@I223$kEI:1:" ";:40:" ";+kJI1kOWkTTY3:3:12:"TEACHER ASSIGNMENT"nkY5:3:"LEARN IT:"k^HT10:HT:"A. BEGINNING DIGRAPHS":HT:"B. ENDING DIGRAPHS"kcHT:"C. DIGRAPHS IN THE MIDDLE"kh:3:"TRY IT:lmHT:"D. RACE TRACK -- TEACHER ASSIGNMENT (TA) --Aj-----------------------------YjTEACHER ASSIGNMENTgjIN :NONEjOUT:TT - TEACHER ASSIGNMENT SWITCHj"KEY20ıj'KV,0:ZY(50):(17)::SF,0j,I039j11024I,32:1744I,32:2000I,32j6Ij; P422 P328":CSPEAK%iWT500:RKEY8iKEY1361555JiKV,0:61550aiD$"VERIFY SIDE B"yiSP$"P136":CSPEAKi216,0:60030i0,LO(MEM(0,0)):1,HI(MEM(0,0)):UNPACKiFR,NF$(0),NF%(1,4)ii-----------------------------j ----h_BL$;" FILE SIZE READ"6hdSECT0:SP$"":BD$Ahi61555IhnFXihs:SF,0:CB:16302,0:SO,0hx10:5:TALL$;"Please turn this disk to side B.":23:8:REG$;"Press RETURN to continue."h}216,0iSP$"PLEASE TURN THIS DISK TO SIDE B 1.0 continue."gGWT100DgLﯰRKEY:KEY27İ61270:KEY27:TT%0:CESC]gOKEY127įRS:61042pgQKEY3261260gVHRCG14:UF0NIC:50,ZY::SO,0g[KEY63::KEY="?"gP------------------------gU-- TURN DISK -----------hZ--------------------12)fZ91L1:"-";::&f$16:8Sf)"# Right first time....."("."(CA),2)^f.17:8f3"# Attempted............"("."(FF),2)f819:8f="% Right first time...."(".."((CA(FF(FF0))100.5)),3)"%" gB23:5:"Press the SPACE BAR to);:61155#eTT%ĺ" ";::"TA";:)eCeSNSECT%(5,1)61180Ze8:21((FF1)10)se"(QUESTION "FF1")"~e10:3e"TESTING SCREENS:"e3e "---------------"eNM$"Consonant Digraphs":L1(NM$):13:21(L12)eNM$f21(L d7:21=dSNSECT%(1,1)SNSECT%(1,2)ĺSN$(1);:61155pdSNSECT%(2,1)SNSECT%(2,2)ĺSN$(2);:61155dSNSECT%(3,1)SNSECT%(3,2)ĺSN$(3);:61155dSNSECT%(4,1)SNSECT%(4,2)ĺSN$(4);:61155 eSNSECT%(5,1)SNSECT%(5,2)ĺSN$(5SF,0cuZ9039:cz1024Z9,32:1744Z9,32:2000Z9,32BcZ9HcUcZ9223pcZ9:1:" ";:40:" ";xcZ9~cc4:14c"TEACHER SCREEN"c14c"--------------"c7:3c"POINT IN PROGRAM:"c3c"----------------" ------%bR------------------------bWCHECK FOR A CTRL-R. IF NOT THEN RETURN. IF YES THEN GIVE A TEXT TEACHER SCREEN PROGRESS REPORT.b\IN : KEY=KEYPRESS.baOUT: KEY=SAME, OR IF ESC THEN '?'.bfbkKEY18ıbpKV,0:ZY(50):(17)cr:when"::"talking to your consultant."Fa::"FREE SPACE = ";FS(0)faWT1000:RKEY:KEY060130ta꯰PROGSUMaKEY27ČHRCG14:UF0NIC:50,ZY:CESCa60040a QT$::a22:KC,0aaH------------------------bM-- CONTROL-R (CR)222):LN(218)256(219):E1((ER%)):L1((LN))q`"ERROR #";::ER%;::" OCCURRED IN LINE ";::LN;::"."`8:I1E1:"-";:`26E1:I1L1:"-";::`8:"|";:I925E1:"_";::"|"`19:"|"&a"Please remember these two numbers -- START MAIN LOGIC ----7_------------------------I_HRCG:UF0NICT_毰TURN__SECT1k_毰D0SETx_毫MASTER_`-----------------------_j-- ERROR HANDLING -----_t-----------------------_~KV,0:ZY(50)_(17):::102`ER%(^------------------------;^-- SET INITIAL VALUES --Y^------------------------^NF%(0,1)LFILE: SET UP INITIAL LINK^INST$(0)""^INST$(1)"P181 YOU WANT"^I2SECT:INST$(I)"P181 OF THE ANSWER":^x------------------------_se,ch,th,wh, fiNGers,ch,th,ng, SHeep,wh,sh,phq](beaCH,th,ng,ch, fiSH,ng,th,sh, striNG,ng,sh,th, WHeel,ph,th,wh]2norTH,ph,th,wh, watCH,ng,th,ch, CHair,ch,ph,wh, CHocolate,ch,th,wh]dI03:ALOC(I,1),ALOC(I,2):]n19,172, 24,172, 30,172, 36,172U","BEGINNING"," END"," MIDDLE","RACE TRACK"Q\I120:J03:TST$(I,J)::\ WHale,th,wh,sh, CHildren,ch,wh,sh, SHelf,th,wh,sh, CHicken,wh,ch,th\feaTHers,th,sh,wh, THousand,wh,th,sh, inCH,wh,ng,ch, lunCH,ph,ch,th-]birTHday,ph,th,ch, CHee1,32,880[M1,24,118, 1,16,118, 1,8,118, 1,2,88S[N0,2,34, 0,8,4, 0,16,4, 0,16,4_[O0,16,4[V0,16,4, 0,29,11, 1,33,60, 1,29,111[W1,16,118, 1,5,111, 0,1,61, 0,5,11[X0,16,4, 0,16,4, 0,16,4, 0,16,4[Y0,16,4[I15:SN$(I):/\" MENRV(I,1),RV(I,2):)Z$2,11 ,14,17, 20,21bZ8I13:J012:RC%(I,J,0),RC%(I,J,1),RC%(I,J,2)::ZB0,16,4, 0,24,4, 0,31,21, 1,33,60ZC1,31,98, 1,24,118, 1,16,118, 1,8,118ZD1,3,98, 0,1,61, 0,3,21, 0,8,4ZE0,16,4[L0,16,4, 0,24,4, 0,32,34, rt,THumb,WHistle,WHeel,THirteen,SHip,SHoes,CHild,CHeese~Y߃branCH,buildiNG,buSH,graPH,swiNG,inCH,fiSH,lightniNG,riNG,teeTH,,Y߃alPHabet,ariTHmetic,elePHant,fiNGers,birTHday,rectaNGle,sunSHine,telePHone,,,,YI13:QZ(I):Y12,10,8ZI13:PHeasant*X߃THank,THird,THumb,THick,THinHX߃wiNG,siNG,haNG,soNG,kiNGdX߃graPH,paTH,beaCH,fiSH,X߃sunSHine,birTHday,aNGry,alPHabet,maCHineX߁I18:WD(I):X߃5,5,5,5,5,5,4,5X߁I13:J112:QZ$(I,J)::7Y߃WHale,CHain,CHocolate CHip,SHi1TZ:TT%(I,1),TT%(I,2):TT%(I,0)0::TT%05WS߃2,12@WT߃14,18KWU߃20,22VWV߃24,25vWp߁I18:J15:WD$(I,J)::Wz߃SHore,SHell,SHip,SHop,SHadowW߃WHale,WHeel,WHistle,WHeat,WHiteW߃CHain,CHair,CHange,CHart,CHeckX߃PHone,PHrase,PHoto,PHony,)2:SECT%(0,2)MXVރ1,1$Vރ2,13/Vރ14,19:Vރ20,23EVރ24,25\V߁I0MX:TARG(I):V ߃0,10050,10320,10410,10510,10610,10710,10810,10910,11010,11110,11210,11310,11410,11520,11610,11710,11810,11910,12010,12120,12210,12310,12410,20020,21010+WR߁IMFILE:NF$(I):UރMENU.PAKuUރFB1A.PAK,FB1B.PAK,FB2A.PAK,FB2B.PAK,FB3A.PAK,FB3B.PAK,FB4A.PAK,FB4B.PAK,ARROW.TBLUރQUIZ.PAK,RACE1.TBL,RACE2.TBL,RACE3.TBLUރTEST.PAK,TEST1.TBL,TEST2.TBL,RESULTS.PAKVށI1SECT:SECT%(I,1),SECT%(I,2)::SECT%(0,1EW SCREENS FOR QUIZZES@TtۆRC%(3,12,2): POSITIONS FOR RACE CARdT~ۆTT%(TZ,2): TEACHER ASSIGNMENTTۆSN$(5): SECTION NAMESTۆTST$(20,3): TEST WORDST޲------------------------T޲-- DATA STATEMENTS -----T޲------------------------UށI156(2050):MEM(0,1)8191:MEM(1,0)(115)256(116):MEM(1,1)48814hS8ۆLCK%(MFILE): LOCKED FILE FLAGSSBۆCA%(20): CORRECT ANSWERSSLۆWD$(8,5),WD(8): WORDS FOR LEARN ITSSVۆQZ$(3,12): QUIZ WORDSS`ۆQZ(3): NUM OF QUIZ WORDSTjۆRV(3,2): REVI NUMBER OF A SECTION5RچNF$(MFILE): NAMES OF FILESSRۆNF%(LFILE,4): FILE DATARۆINST$(SECT): INSTRUCTIONS FOR SECTIONSRۆALOC(3,2): HOLDS LOCATIONS FOR ARROWSR$ۆMEM(1,1): LOW AND HIGH ADDRESSES OF MEMORY FREE SPACESBS.MEM(0,0)(2049)22915"Qڲ------------------------@Qڲ-- DIMENSION ARRAYS ----^Qڲ------------------------QچD0%(MXSCREENS): D0%(I)=1 MEANS DO SCREEN IQچTARG(MXSCREENS): HOLDS LINE NUMBERS OF SCREEN SUBROUTINERچSEC%(SECT,2): HOLDS FIRST AND LAST SCREEN(PP33215: WORD W/ COLORED LOWER CASEIPP43265: WORD W/ COLORED --cPTST3515: FINAL TESTPRSLT4015: RESULTS SCREENP"KR5010: KEY READ W/O CLEARP,CG5034: CHRGT W/O CLEARP\CR61035PfTURN61535PpTA61730PzPR62300QRS6 OF FLAT BED/OFB2055: 2ND PART OF FLAT BEDROR12115: REVIEW FOR LEARN ITSoOG22315: GET TWO INPUTSOT22450: TYPE TWO CHARSOQZ2625: QUIZ SCREENOGO3015: GO ON SCREENOP13115: WORD W/ --OP23165: WORD W/ ALL LOWER CASEINST1056NMM1078'N(FSPACE11468N2PICKVIC1158FNKC49168:KEYBOARD CLEARBJHKB49152:KEYBOARDbJRSF49233:HI-RES SCREEN OFFJ\SO49232:HI-RES SCREEN ONJϲ------------------------Jϲ-- STRING CONSTANTS ----Jϲ------------------------K&D$(13)(4):RETURN PLUS CONTR6)49282IUNPACK2352&IAMPER8789ISTACKCLR54915OIFX947:FIX STACKsICB62450:CLEAR SCREEN TO BLACKICC62454:CLEAR SCREEN TO COLORIFR48406:FILE SIZE READI ˲------------------------I*˲-- LOCATION CONSTANTS --J4˲----------(111)256(112))((109)256(110))DH8Dz------------------------bHBDz-- UTILITY CONSTANTS ---HLDz------------------------HVHRCG2203H`DISPLAY2362HjUF0NIC2051HtUBWTUF0NIC117H~P0RT(UBWT1)256(UBWT2)IKV((((UBWT2))192)149162,0:ENABLE MAIN BOARD INTERUPTSBGò------------------------`Gò-- FUNCTIONS -----------~Gò------------------------GøR(X)((1)X)GøEO(X)((X2)X2)GøHI(X)(X256)GøLO(X)X256HI(X)GøVO(X)(P0RT)95&HøFS(X)(F0#F N-- SECTION 5 -----------AF*N-- SCREEN 24 -----------KF4NTSTQF>NoFR-- SCREEN 25 -----------zFRRSLTFRFPò------------------------FZò-- INITIALIZE ----------Fdò------------------------Fnù16297,0:16300,0:230,32$Gxù-" Ev/FBE//E/-- SCREEN 21 -----------E/Z18:INST$"TYPE THE CORRECT CONSONANT DIGRAPH IN THE MIDDLE OF THE WORD THEN P422":R1:E 0-- SCREEN 22 -----------E0Z13:Z1$"IN THE MIDDLE"E 0QZEf0Ep0-- SCREEN 23 -----------Ez0GOGO D.'DD/-- SECTION 4 -----------EDN/-- SCREEN 20 -----------DX/Z18:INST$"LISTEN TO THE SOUND S H 0.3 T H 0.3 N G 0.3 P H AND C H MAKE IN THE MIDDLE OF THE WORDS"Db/FAEl/STD$;C0$;FC:3:2:"-sh-":2:"-th-":2:"-ng-":2:"-ph-":2:"-chh":2:"-sh"C-FBC-9C.-- SCREEN 17 -----------C".Z17:INST$"TYPE THE CORRECT CONSONANT DIGRAPH AT THE END OF THE WORD THEN P422":R1:C|.-- SCREEN 18 -----------C.Z12:Z1$"AT THE END"C.QZC.C.-- SCREEN 19 -----------D.KBZ-Z16:INST$"TYPE N G ON THE LINES TO FINISH THE WORD THEN P422":R1:iB--- SCREEN 16 -----------B-Z17:INST$"LISTEN TO THE SOUND P H 0.3 T H 0.3 C H AND S H MAKE AT THE END OF THE WORDS"B-FA C-STD$;C0$;FC:3:2:"-ph":2:"-th":2:"-cz#    ͠Ůˠ ζm ΠNԠϠ ӮӠǠx ӭРРųŠӠŠŠĠ ɮàŠ!   Ġٺ       ĠϠ ȠҠ   () 1986   Ġٺ  򠠠   ˠٺ  젠 ssttyuOv.///000V112z22_33A44c55c66:7}788 99?::-;;f<<7==L>>>s??8@@/A*BBCDEFGHIJ KLKKKFLLMrMMXNNOhP.QQRS~TUUpVV]WW4XX`YZZ3[[\\O]]>^^___K` aa!bb?ccdddeff gaggohh5iiigjj kukk+llDmmtnopqSrrv@iOPo(u)J,uR y O!!!,"}"#]##6$$+%n%%&j&&L''T((())*{** +`+++k,,[---                                   FbbGbb` b b b`,b`HHHyb)_ ybybȐ=ybb bbbbbbbbbbbbbhhh` b_`b`b`b`b`b`b`_HH chh`%&    "HH chh`u    La bFbbGb 'b a La 0b0$ b b b b Qb Qbab Qbbb Qbab Qbbb=` c`*dV dȑ  dȑ  ` d* d  ȑ  `ɅП``e` 'bb:`LA` b  cb b b=` ߄ȱȱP P cbLa >`0   ?` 0 @` L`   ȩd     La dPi#лLaUE12000:UEAILABLE!":61150 ST3ĺ"SOUNDTRACK WOULD NOT VERIFY! - BAD CHECKSUM ERROR!":61150 ST32ĺ"VOLUME MISMATCH!":61150ST64ĺ"DISK DRIVE ERROR!?!":61150GST128ĺ"DISK I/O ERROR!?!":61150f"UNIDENTIFIABLE ERROR "STyDL$"DOS-UP,A$4000" 16384 H > R >> UFONIC ERROR CHECK \ > fST(246343) pSTı uST3ı z::10 :"UFONIC ERROR! - ";::ST:B ST1ĺ"SOUNDTRACK FILE NOT FOUND!":61150| ST2ĺ"UFONIC INTERFACE BOARD NOT AV 49162,0: DISABLE INTERRUPTS TO SLOT 3 DS$(4) DL$DS$"BLOAD" (230,32 216300,0:16297,0:16302,0 <62450 FDL$"PI.PLC TITLE,A$2000" P16304,05 ZF$"UIS.CONS DIG"U dDS$"BRUN SPEECH LOADER":F$` n61000f s~ x    HDRDSԧSETETYHFԧSз8г3г7д0TEYOGHSORWг3д5г7е4е8з4CGFEGHPGGGTYHHNTSHGYHSHHEGGE2GNEGEHKYHDWTEDSURENEESPEKLNTETHSWLTDKETPEKBDEб8б6б1й5г2г8г7г8г4д2XNKWEWTNHȁv0101234567892030405060708090ANTBGCEKDTHDGHEESEESENFNPDRSPEDPTENDNSONE'o)T3gԍsښS2kq˘h,Tj`$Q G*D`G<5#rPZ+u̼K$r <5JK +/bT)sBͦjk(/.Cu!*ƤT^2 zmDi)Tj"JUFJ3Yy4,JkTʒr'K!=4N UےtD"]I07#94nu[0Wn%7FW>LR,YٰEbu#ܓ(VsO>rxH5#h2h(ѓ,H "͕7'lQW6eW9Sd3hL``9uV1W]2Uet6.ehsڴG)B=M-WHE)FvfYPvx26(Ue SN$5NSVI&J%հ v*8qNK(VYu/*uyTҏmaPJV.cR9MqшzZ2I[M'9XddˎbHSVɧ3%mkb|D%;59mAs#^5{Ɡ9rfkI:'k뜼{s"kiGRy)qE˚э{-Ꞽ0Ή}]5z('ղw3}$)[O(+ԢnRXĪUnLFIR)qjl"M;'k]]jl0Օ뮼;誷HJ#ɩ*';;T"˴-E^]UFwDU0#UMp<5M#(J2,(Yu2f ^U/R8u4sZJd('S윴N{Z+k`Oj#bՎ; 2a,EXl梕"a(RŬ)%nRY62fL0➼>i!dDmhZQSUM4U.QT%oՕ":vPJ)Ic&ƙ6Eg4Umb\r97:2ܘIk 8'+%Bu׎ӲTIjp5*'Xm(N[,X[;# [ X÷ZՑW5Bx-53r2QsCe`FE׶t\kVC-9iJ$0tcQB5 P{Jv0u,Tj`ԕ9uW֣ SyO7jӉ8D B]THဝGZ+#ӓ$zp۲8ܳciwFf]ie#;JtU(uG;Ui^=; xu4 uhҙ]*`Rzl&RbɊp'/´Ɯs)V7Jɘ()-5b.3v2 cr+]brqXqq Ɯ*C;k4>OC>IsN[;]ZtXD 0.#=ʐmGCw=Y^t#%hVՌUuF?FiӈUݘbәrCU{JKf7')8»dhXZڭDYT=ZvNh=uFlT)H3L34¤I:Tæ`PLҤ+5H Z#r&\k̛iwr{­r+qƭnJ.4܆""yWSR-eʅS6ڙݗ `PTe2(B-I+Lgih:Ť[f,D#QVQXv\8tBtJr1+5ZpNm(lqHV"L;1N7kH+ӤE,0{\eIjsu8+i5Dx\4J򉥀XJLr7Y d6xU#*ZvNosZ?Vi㈊U# iTIxgGiʢv%xyԬ^]Vڂ"bZVhUԼ+Yղ[֚{:f&8%$v|xة"JU`T̴^4H*+#뚸|Xڪjkc.+1Ma:ŨƦ-Jd.ZaX4ZaBe1zʚ'E+jd8'5MdT:PFKK*o=RX!3*ꖴ #V0(+_1j: 3d \"JU1.%RstXʱ+ʗsl˫I0-vì63 :JfmQ}*(֊*EҳqIY7x(4lvCٿk 8'/>%b"iW]jÌ#Kr18+o4Y1t׊j\n*(Ȩ,Tj @B%)LtDE 'gPl+^ʹvƬ܆&tGa*pv)B#:ivUMo١W=AVt zfW6 ϔ]8ׄ*S–9UG0WRڙݥ)򕴐WҢG9iKdd-$),a0 (U0}II Q#횹kllD=3*fP+^ްn9 ӆa&t5Ja*R,j3o\E ܘv{IZp5%1=砤Ru$5NV;fSN^ܤqOYU2Snlv{?춨Mc=Z7̕Q]WE\Э!=rBsJJ-)MR`0VIV2Z'|cl%C|#*VR,+\0fè2:eQ*jbDܲhJEÆ+D9j.O唫I.BDv"DNwc8+11l'՞f2ISΜ+́=7,tk3\)µ)RpU.+.JלۆhCsj6)iۤji7o 4+ڋ4 ϻ9Q˼4#Õ$IWw{b'ɪMg►XeHS̲M T%gpLS1QNSrDYmuu%YLշfurFSϮ]MjvHEv#nfiڍxi7Q$%V{T.Ί5U # p}0>b-մNUWB8iWm} ]7 ŇG2jdql$-sN,ͦ:t,hZE3x bB[|8%Ijf$YnMFZHz7YYMJ<򭈹IGTh'AY笰1X2,ՃcqNWE%\9ګqh:gƕuT6avBڄIK&U<[RIT79`גVQYH'Ɋ'mY眴`X}ҖcZ҉'oYלgK[sZU 8&-=`Nm1T2tkl/5ŃۜdnsRS,)IJM'/5ESҜ IrZR(ukqvɺoI5I'JV*DiLdei>Y҅&gak8U-,t2}sɊwY'/+s2{TtFh,Tj NI(-EH0ґFR5QN}HD9YS呧!=rBsJJ-)MR`0VIV2Z'|cl%C|#*VR,+\0fè2:eQ*jbDܲn(T5RhSn]Yn+'e;+Arjȭ|fT#ɛS*(Qg:Q\'DEX&8tMlI Q5++L*ݘ*TLc怡\еVkYjl]թMvd6eNڃYWYYNn]uS4leVbT]ue,9Ֆy4d"MӘ7KS.L4,řJ`dR:sK "., D#234*L0(u9'.$7s@flTњIS!IZBEɪP:'+]e.z;ʩr&;ͽ).)ӖȺJ\[RF7:Ij%wՓԩrNVRZ=yIfkԵFHӵjW߼8iC3lQ8ME7,VTGa@anV]s ZJD)+%[V>im.kՎuV7aNV͆k9y[&YyLjUc.F]xmaQuEWkjP8a cQFMYV+4QB5iIW ,^&7xX>='f9,I㮼EIs'qJ5<)bSЌ%g>W+4ҬaJHe.#'ѹjFI|&k ħ%$bvSϵ]U#+4bW, E+|B\T+`Ta]SHWA%')f \4-(UE]E(udn^U70܊0)i2˜놹%C]0~g+I9rl$ȩvґ2Igbʬ\Q0vENiçv h.TjTU a`PFn-%bnnFRdtQ>IcGMa9qNVF=ySTEMSaQƐFcb=M9D4glM`)v#@`BRݛ, Kښ5VdJ"-)tw&ch=̛RU4##MQxVrvIf*+_Uzf&ZbFX`4;0k{'9EmlDrR6z ۨ'!MdbfL;]Ue괥Fy.KQ#R M7*r"2IG6&+9tGji *uګ6kʭj IΔ]̗Qɒ()/ͼbRa0Z1OYPdVĦMWk[^eaSyU9gOQf9rVS:M-{5fMֈuGWYi}9[ %E6d/PD tƀ*OTk7a{UU{ڪKN-,' ML 1C`*TDeEz7:QRhJDaY\EG}K\'mqV)EVbM*gQ4)ԜZQRS;Yje쬕&2Gl.YQ,QidE*EGa\TK)ea&1uRJ^aYK:y)udc'UiYR&YB*ɸvy8㎢g'msE*Kdȣ%Rm2,5ʜĢ֪2N&J6* oV{qˆ6"Z%RPr*tXE➙$Zde)#(+gbz`1j&EjI+A(3(ݹ,y}lK˷IK X;+Uc⬰%Qӂj1{t 0,R!D 抻W#EQZU#4buR-ڢ"Q;ͬVtS.Lg7`fmn)jF%ːvv'"JU(0t N'`P9Zv+h=3Vc\y"js0Uh*Tj#G@*;`6g*VEzgXU7nWLmI]Zwc1.^1juRS5QNUݚ`x\SFXZTmafv.6IWz]E/)&]gսf*S[?FONc&SMIMh-4QB5@`z&ScLj3]borB= +(N35; 6 l}Lţ0Q#hCE5Z2VU%rHk%+Y]xuY<7jMVZ[YY)n[y9NQduW\=q]$in\+ZG޽/YUqhy$eWlY}2ndF1dOǘL<S2nMIǸ2G&mUL9wNK>e&I٤S0ecQ;`UFܲ E^qk.Աxŵ8{ _r"XrjOc)-.->vӎUC;1Jh,Tj:c@aHRÙ2[ՠS߂{M)~ [5i4iST<Ф[i9uUd*^SF[{MC*Z5ժj4FՕ0v0iX%M0ҽVR$fiG$kqj쑺EeZauFTFYI}udu{rfQQqG[fD}9qB\;`GS̒ҼYˆ5{`)-h9뤠YڮRJGBҚ(-Ѫ˴bF)SgJE1iлǔ9"fztei(ZDQ|Df!U hV)8%ss|̽J J8%H6?]3|E+qVW)Zm]0EI6%n%$欸 8jEcJ˪T)%8ٛ0vt* +8`3Vb}ԊZY#l̻㌠Uȉ^<[Dj+쑴b쬸GQH{Bn+2|dpv#ުF2(Aɼ˦:kUkJjeU*˞Uuꤾ&SΊ↚̸ ]8`%a̒ؼSp6#H5\֎ p+oTܣRU6H״6o\r5l5(UV&[BVdn}Hђu1F6e^˔Sy-sj,9{hNUͩ9U4zBLsΉK6+'i"dM_ܚTl6j(U E# <3l&lϰ]=vK++S+{'ά)sw)+1"lD#M,rɪ2UZ5W!X՜]rUI 9iL<7)PsCyi i.̦2lSN%"":ۧMs9`6VMVR>I%gW%VUN^rxWYuY]e9gIt1嘥Uڔ]jLAS*Tʻ@X`4YVR*o]qiy$ejF[mvny١zQgide5*gNU(KW{d.]uoA9w8Jw(sнx^icwyթ՝4$6S\),NKBVۧ`4lƀX*FHhzBXfވ{d9-x$&ӒzNFb9InEΞ 9kNf0'eѐ#G#xRYI{07iAU֦eu![# p}P>X-`tQ9T "SC@ ^$42Qh)KSۧt!JS"JU8T,e6"³K瘪̬%7z2DI[RQd.Tjt'/H՚Bh|H3Ij2A$J*<"n$ʉ[JW'5zbht"JUJY0SVQ dMNՊV>uOΦx5JލN߫FCZ1*1WV89YmeEP @3*(F5ExUZMW7iu6ҥ0K4&[<Mu25͜SbbuOY4YE A$EcTdG-3W\E/JX{U6"FY,[ve2iI[drRDYARUT9wJYP2c;dAzܪf2g7\4),s ,) Bܔ$vTֲ94K/˞r.Dq*UW$9/˩},-Kי/^s#R Vݪ3\ن"JUFb%3B:8Wo=i1xsf+kMrz1TJ+sP*,Tjda@3D[lRPMh7J :'*QCk?Gvu VM;)`6QB5-'fǚձVRF.jIce@y)5n\r-%ِ{ը$^Vފx-nEN9;YCgPFɹaJU8KLnu]cԭ1{tVքf[-D(Y2c!XJDi^LYE%8kZ#oUX}ꬬUҖgIj0J:+}문&MܶIJuq+^(܍:gO޲LYKI)M^ld#R ɚpbI:Dj+rR٪+UgT 3յfJJU()Tj{7,-JYB-J6-UB|UHtSޡRqFGYy)&gDm6MP^D P@,Tj8 뎲H&I[㮠6Iu5ɊJUܤ(2`z3|k. (U IҜ.L vۺ8hb ,)#W*Dz^4CgJJ:+Vk {̍TܞQ r(U&Mе X=+Ri^FTe[meEiT֤6GkYUi[e[nU(=UF eklSwʼnGO9W^JFyĦYEP A1YX2g77aɜ3VXrj$+,4*V/_ݒRѣ|MK&w%ˇ,]<tےʼ*K&ɔ.3IXY%ӊ&Eq+6T'YeV_<ɈT;#*)R$(Lq3b2J2U+/;\V"+pKʤ|,4qƭNלZ& ?s\u#kMǴa')o)ʐ,$uɍ2-k#M{nƌDՄq3UHT(z@*'Ōj✼'ssCզ[t8h1s⬪0vRE3MJC,/^E8zULU#M5ɴaiF5,=c 'aIK",YQj^D{nW\yqyfwu{eՕQWUwZM]uuyWdac*Se@hFͨ(LMrGf2$9[&(6J(U_L pJsi'k%E۞dw];ڒtJ7ʔ-i)J,EXko(`UY&WآF,^QvD9gfOVufYY֙n6uUټuJt-)}9!ڸQIDRD +-g*SL)j6:ŧh-]cct{6-ikOBR%Д2%X+$xazEsbYԦizP9u4ʜ),sT3)kR,Kži,gT}zmLGB9^q{9-[P]g檩KSQB5Jmi)I/jURJS$WՒD-6m"eEP p@7!X1-3[̖+WRYqf$esז-fFVyb暧ekQ*i[Qhj-ESFIU͈ӔgIi:C֬:Z RsdUԕe=WCZ^EN]z5TJvZQU֐kEciVfUEP &n2 rv4 C; `GS@Jg2JȬ'Hk`^-+^x*W\ԪMX- !HFyҔ81Զ҃,*rỌBqfj%uD9MJ\FtNQ5^EZx9uK:̥'ɪ+/KkT쉽Rc&)J(U 8!Rkɒj YݜѼvZBŞٍP`7|"u(U XɨDBJG+G^^5{E̒aVuW\ZIGIvdEhvVfGZmM[M֧f=AF[nC,ZU ye]CK$F}*TX1հㆬRu nVg!S_•MRyV9qJ^Vie9ywxPG}EX^n])uee&\ZoMa5EP P"E:X2L]`TouMuъJNCn$E)g0Uki I#*dStNU;Yd#ZU,lUUO1*T9(ʚw5 KTՍ,SP4K5Jc$a:ME j4nlfiҤ9Ik3*b$ͺӰ`(UIVOڝWF=HFf# WldO>yV>,{ FYf-Z\vJKqNCRj)' Yd4fi49NLVkjT#Q{JF1b9Ɉ~f'ҚӆHkNGVR)iYyDEΚD͙ړNTM[O>QiSDɌv'rae[RhTBTMyffES4muO|{9m Uv#He6aҘhNSQe^ՈF4/U8A$9`x4oYKNRuJ>Im1e% UYfBV&-eneT9y$VG_]ܼ sNf'5k€ݛ%Sְ<-L#K08#NB-8 H2ԲɊR9+-KbHW5u"!]0sn-+Jt3*}¹Nk1:O*G]!uSƤr5NQ8ejBG]ⴹ Mu&59iZ4Wai\.ԙ~7QrI˚7*'iTtx$љ3QzFu"1-ՉGբ *[4r+rlp+-Yݝf5 o}ҞU,JGV2+U"ˬlTE,3Q=l)IɸZ4%㖦jє[ERj7V(z\ZqjivԪɻ{M5jf2gd-8ǒVKVܓY7iqfլRUWKaVIKR-{Z%)iLiQ52gDJK+iF.S",KjF.]RtIKMUKjW\J]#EIf!*#{R+AUKҢJ2W*fآ堡R 9`2ZY HFŰ8u#;j 7VU%j{UIn9J&kڬĆ+rjlȩJBkz5iܱ<9B=frh|VͲ)[+5'ټ*g (uʢL/)O 3d<th,5iRa 笣MԒۍ6M_3ښ=cz6Uِ3W@\U0cIGF'i9" 2ye=bDSN=&SfBT0*U]q !Y9k%$V[rz6JM":urU'ѱgXTFC*T@1HLé2[(i[ )A*RzJUIqTp46IVf[XL%ga>[Ejz{0fSjeFS*T"N 3]2W P6cQ{G뢵S_jqnz%I{yQc鮯G[>)C!XD8` 0KfOS@ +8`3Ybjkf!lI琰R8FثFYi*5k-U&sVbYMs:ŒD&MRWH6M}4 % g0&m9E͸[ŨiRktIAX-٩a{ n4D@V(B " r5QB5͙93l(vIjv%#o%T5WZzVL4ɩ[1%iE׬uZ\k[s6mC VnH P6䱨yݑ&-FukInZi%dEfRORi9iK!S䭘OSZ*uOJp;]"Yu -Ljb2WԛV^IΦ=i#QZ&nUW-V17gRw'4UKӍpT-msEtͱGW#n0)5̪cn7ώs=&JrΈ++JRʴ0N WgԴHLé1[U4)^-5ʂH2:0M"JUkeW;,^ݴD 񝲚Zvj39bꮡ$ ˭L1(U 2]Un6͈k6+jJלH5N}i2ՑY0U)X_\"JU`*NS[QtDpi]VPx^a)xŽ"Wki.Z(IѨU+[[RW+JSHs.m5Y g4VGfUT=4JT_ ks|JB^64eLi;[U*F܊^ASd=Jպ+Nv"$0Iծ;\:+rd'--㎲VeM֚!Uli)h*Tj%Unf`2;`UV8>AAdi#ǪVF8s"{-,]{ԵȢcPWD ȚY_0|BVԢb/]Q+n[gDNFqVқYYol]e壚֔USV9ŕ:wi[DhKfU+>-f,\2glrS[|EmFlUkLVeTviRfҸSYrqNi-*L:cvMJ)Ґ222U<ɉtU'jV4bZѨI+ډzb'MD¬lL 31-tp-;˖J">*SdC2rZ(iB;:0Y=02r,#O3 "-[4>j\,hV3`̚Y0g [TE'^īfq2JRK7+KRt<.Ӭ6~M.a*UmQEfVxykƔ.Iv o9h%nדb9*&]$VS̖O3FiBR9 *Q6jS2j0FLMHF9m=HWhƔݪ `8S gJfR0GX9Ae!dZhuBdD]n [hJVTh%:Qi%1[d墛WUwiu^!wI[[c&zPt^c^yMUq{1g) 댒!dMZV:9EL]uե3UUߪu0LV)fX-]⒴6BZD P@a 8hƔݪ `8S gJfԖ_t79~rtx(E-ul[^2UVlwT[&mrVT^yR{UI{ZxmerVW 'Cd ͙b16ʆIԌ)Ku",M{jhFݚ `85 FfLW>~VٞH7&,U_ .QB5Dik4W&+Q,sF1;DŧɈ{!њ#ꕕb+ejDmM$a,Tj \M ٮt1VѥT[Kx]ʙxThآѧFm^]guEx!Z'e)u䙲8 {#WȪhFݚ `8S gJŽ[RZ>^)fSx%FL㖪&=Q[&M~1٘+Z[iJ.չ(cfբTMUӱJ՘Bj*TmDfK.F,xY_'qqFnf[ex̜FisGTII2a={U{`![LC3y ń6S,qW8se3,ѩVw(T(hFIF8T1+OuҜ##Jr5 E+)ECk⌤$ I*R&EP (un,xUI[mQg)~uR]LD &Tii *^d$לeٵ[Gw7V6yP[*Ki\*¼(U`jUG]jZ6ur5T5GԪUlQYD P6cND,=Je)<%-6L 02Us" [2\],Y}n\(ɛ4.#/L݇Ӕ*ܪ0n4KK#9z$3-(H&-IԢ:W^rfMzT*IXz&Z{Jg9Uי*p\cnp1tL%m6e38jc2w+K;4L}"j{6襫3$~PlRQHb)(U ʔE7pc1UVIjVZ'Tz%i|],I[Q$۴`kUkrd35IKu('+͹k윢sR]KUיm*ɜcR`ip 7ux6]_(|̀OM1jX,l> ÈYܪ֩Gl)9ɢ|DrQ=;If5'Yɳl%=+7U͊-ě>5e$U-ITU$ȭBkJr\:r)HC-:N(4  ,ԑw&W]d,]6DȚ6kRHIk"H#,.!̲,UG#;BS$# Yv"UN֬JV9esjW{JllEbYXEEb-Fr +EXrdDqzX,G{Rrk'bʞy}jM\hkP'8AY}ℾ$,/$ j*nh*H `jR.CMiN4n''rps.2\(+)7W'O*'"e,IrlkBɳq٧ʱK=*R<%'kd:h.TjSsmnؽk`QnB'-Tbr^:)z q*ĥRrƌ&i[7ꪫoaThgÜ,U2MφK?+4뜬4ժr>J̺IH38'n#M3VӢEۓ&c5u .\ה ,1T#l8!֚2ҦIIcz+Q|A 1f ϩi a !T0 3"@&hRM`Еe)OV҄YG=Y SdkvfёGSyIeUwYvUjfIZy9nU*.tUNSw5*uGŰx-]ΑMG44؍'3c7&FKy*SLL25*3˜&nC Ќ+C,+oҬ=4JNT#<+R$*MRO;YJ(U 0#nIQb1jىDU]O^w->eKV9=9KӶl,W߂v5^cԱx#`Rak2j --h!6*1-%zdfUе777?;7|b\`"BY l*Nج>QnzUn,[YnuƲ:uAT4DiʫDqK֭ATj.y5jѪGܑ*%V9u.e{՗YG_V[^CeYgEv5iҵ\Z4[W]KIYY,[dtg΀nTЕ7ޔ̈́B<"1)ՕΔMNRFhZIfUgiFhVV!ᥗ[zU:ni-uRITTp[y⢒;XIŒg'fu[UVnեyіfnWWy^}efQg f"0> *" > "" >""""" "2"* ""> """>"" >"""""">" 2*""""" """""""""""6" 2""<" *""< "< 0,> 0">" ">"",""""""""""6&""""""""""  $  > " ""> :"""" >."""""""" ,< <"<<>"""""> >>" < :>":>*:""""* "2<"" 6"""""""*                 >>0>>"""">""""">< 8,<& * " "" "^>~((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP        eƊLo``)JfJf`)`` ` ` ` `1`Q```EOANHVSRYXC#MSGY8=B"1*@ `P0pH(hX8xD$dT4t L,l\<|B"bR2r J*jZ:zF&fV6vN.nٽlڍ й eȱe$0 Q)JjJ$ 0ȱȱi$ ʥeE zD uePQ$  eG =F 8$P F j (j$I$  HPh$  J(jPP$ ƍƎ$  8勅 ΅ש υ ؅ ؅  L H تh L` BإR B`i@C i$. i(x0Eׅ i΅`8whh``H 7h` ٩ G b " l  X v _LH  N kڍCLOps| 03Ӎz8 ȩ҄`8`ɍLɮɠ8ɠH)0 i8ɺ^ɰZ)0iPi8ɺ<ɰ8)0i i8ɺɰ)0i?i8  &&hL& 4 HӠ$ D L`H҈67 h` )ߑɍ  `ȩ E&҈ 4 Hө Dө Dө@ D LӢ АLѩɠɍ %8٦ &&?>%LzРɍɠɠ8 4Ӡ @  `   `  j `  " `   `  `  `( L  g `  `  `  `  `  R ` Ѕ `   n܅`֪ժժժժժ֪ժЪժԪ0֪ժժժժ֪ժՂ誕Մڪ8 0 0000@x p Ԫժժժժp<x0ʪժժժժւЊեՂ֪բ֨ժ֊Ղڊ֊ڪ΁ౘ֪ժժժ֊Ҫժժp00 ֪ՠҠժժժժժժժժժժժժժժժժժժ֪ժ֊ՂժȪժժժ?  ??֪ժժժժ| p|p0@|ժ֪ժԪժժߙ߁ϟN߁֪ժժժժ֪ժՂ誅Ղڊ 0p 0x000@ x0 pԪժժժժ0|xxx||xڪժժժժւժ҂֪ՠڠժ֊Ղڊ֊ڪǁÿ᜜֪ժԪժ֊֪ժժժ`|@ ֪բ֨ժժժժժժժժժժժժժժժժժժ3>> 30??֪ժ֊Ղժժժժ֪ժժժժ| x|x0`|ժ֪ժժժժفϙс֪ٙժժժժ֪ՂڪՊڊ 0x 0p000@  p0 xԪժժժժ0lpppL|pڪժժժժȪԂժʂ ֪ՠժ֊Ղڪ֪ժÁጘ֪ժЪժ֊֪ժժժ@|@           i Lgi# Lf i !"i"#L̽(ȱ) : (ȱ) :ȱ"#ȑL=`Lռ`ۼȱڼ޼߼ڼۼȑL,ռ` `WLF`5`$ H`0(),- : )-Lc ߥ8i ! ߥ"#,- !ȱȱ  ?'  ><,<< """"" <">8`֪ժժժժժٙƟٙٙљُÙ֪ٙՂժ>3 3300֪ժժժժڪժՂժڪժ|0֪ժժժժ0  00ժ㹸σ֪ՊЪժ֊֪ժժتժ֪ժժժժ֊Ղڪ xxx00@<0<֪ժԊՂժժ֪ժ֊Ղ誁֪ժժ?3> >36 >?3֪ժժժժڪՊُg9ϙϙϏ֪ՊԪժ?303 338>8|֪ժժժժڪժՂժڪժ@p0|p0x0@|p x0 |֪ժժժժ0 |p|00pժժժ֪ՊԪժ֊֪ժժڪՊϙ֪ժժժժ֊ڪꪕ x|xx||||0px||||x֪ըժԊՂЊՂժժժժժժժ֪ժ֊Ղ誅ՂҪժժ3333 33 033֪ժժժժ֪֪ՊЪժ3>3>3|֪ժժժժڪժՂժڪժ`x0|x0|0`|p |0 |֪ժժժժ0 |x|00xժժժՂԪԪ؏惞֪ՂЕժ֊֪ժժڪ֪ժժժժ֊ڊ֪pLppL|L|0ppl||lp֪ըʢժժժժժժժժ֪ժ֊ՂժՂڪժժ3333 33 >֪ժժժժժ֪ժժ?0 ??֪ժժժժ֪ժՂժՄڪp00 0p0@p p Ԫժժժժp  00ժժՊժŪՂժՂ֪Ղժ֊ՂԊ֪ڪ΃֪ժժժժ֊Ҫժժ800 ֪ՠڠժ֪ժ֊Ղժڪժժժ33 33 * *U UUՁՀ* U U U* Յ**UU** * * * *U U*U U U* *U* * * *U U*U  U U* *U* *U* * *U U*U U U* *UUUՀՀ** *U* * **U@U U*U U U@UՀU PԀ** *U* * Հ**UU U*U  U UU *U** Ԁ@U U* U   U*U%UחĈ *U ** U**UU#*%   U**U%TPPT   *U *%*`(UUՀՀ($I؄„ Ѐ**UP#HЃ U@UՀ**#TPPT%єЈ Հ    ֪ժԊՂժժ֪ըժ֊Ղڪ֪ժ֪ժժժժժρؙٙÙ֪ՂՔժժժժժժժժժժժժժժժժժժ;33 3>??Ъժժժժ00֪ժժժժڪժՂժժ|0֪ժժժժ0 0pժጘ֪ժժ֊֪ժժȪժ֪ժժժժ֪ՂڪՊڊ 0 0000@ 0֪ժԊՂժժ֪ըժ֊Ղڪ֪ժժ0 03r"t------------------------@v-- FSPACE --------------^x------------------------zNF%(NF,4)SPACELDLMEM:LMEMLMEMNF%(NF,4):SPACESPACENF%(NF,4):|PICKVIC:PV31146~-------------------------- PICKVIC -----------(NF)%fA1NF%(PTR,2)256NF%(PTR,3)<hA2A1NF%(PTR,4)1j(A1LDA1Z)(A2LDA2Z)(A1LDA2Z)(LDA1ZA2)NF%(LAST,1)NF%(PTR,1):NF%(PTR,1)0:PTRNF%(LAST,1):1124lLASTPTRnPTRNF%(PTR,1):1124pNF%(NF,1)NF%(0,1):NF%(0,1)NFE:PV3PV0:1138.VBL$;NF$(NF);",A";(LD)DXNF%(NF,2)LO(LD)ZZNF%(NF,3)HI(LD)\CODE3Ĺ232,NF%(NF,2):233,NF%(NF,3)^CODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACK`ZLDNF%(NF,4)1bLAST0:PTRNF%(0,1)dPTR(LFILE)1136: INSERTAST0:INF%(0,1)$D(ILFILE)1098YFLCK%(I)NF%(LAST,1)NF%(I,1):NF%(I,1)0:ILASTuHLASTI:INF%(I,1):1092{JLNF%(NF,1)01108NCODE3Ĺ232,NF%(NF,2):233,NF%(NF,3)PCODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACKRTPV0:FSPACMORY MANAGER (MM) ---6 /---------------------------< 0 2 IN CODE=1,2,3,4 (1=SHOW PAK,2=LOAD PAK,3=LOAD TABLE,4=CLEAR MEMORY) 4 NF=FILE NUMBER 61088 7CODE1:1100 8CODE2:1100 9CODE3:1100 :CODE4 @CODE41100BL7TT%ıW CB:KV,0:DOCLR:STACKCLR:SO,0:49234,0:49239,0:SECT1:D0SET:MASTERu ------------------------ -- INST ---------------- ------------------------ KEY63ı "V$INST$ $ ---------------------------- .--- ME IN WT=COUNTS BEFOR RETURN_  OUT KEY=ASCII OF KEY PRESSED (KEY<0 MEANS NO KEY PRESSED)s RKEY:KEY0ı CR:CESC:PROGSUM:INST  ------------------------ -- CESC ---------------- ------------------------ KEY2T WAS PRESSED CNT0:KC,09 CNTCNT1:KEY(KB)128P KEY0CNTWT1012s (KEY96)(KEY123)KEYKEY32 KEY47KEY63 R(CNT):KC,0  ------------------------ --- CHRGT -------------- ------------------------  Z42210: MUST BE 44032 OR LOWER: d50030: INITIALIZEX ------------------------^ d j p ------------------------ -- RKEY ---------------- ------------------------  IN WT = MAXIMUM WAIT  OUT KEY = KEY THAk 9/12/86 RON2 -------------------------N CONSONANT DIGRAPHSm-------------------------( PROGRAMMER: Ron Miller2 GRAPHICS BY: Triska Paul<STORYBOARDER:F Sherrie Gahn P-------------------------"            !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""                 ŔĐ!% UUՁՀ**Յ"Օ F**Uãл*%* *U Օ!U% U** !* *%Օ  Հ*UUU U*ԔⲒ℈*%* *UȑU%U U*U U U* U* * *UU U UUՀՀ**U U U* Հ**UU* * *U **P$"P388 P397 P405":WSPEAK:VT:K:C0$;FC;:P1:2165a!SP$"P373 0.3 P118 0.5 "Z1$:CSPEAK!VT:K:C0$;FC;:P2:UBWT!VT:K:STD$;:P2:DISP,"#"0,"X"XP,"Y"YP,"E"!VTVT2:YPYP16:!!------------------------ " -- G2 -------I1WD(Z1):K21:Z1$WD$(Z1,I)B c(Z1$,K2,1)"`"K2K21:2147 fK232K2:XPK5:Z9$(Z1$,K2,2):DMP$Z9$:1:21(Z9$):Z1$Z9$:C0$;FC;:P2:Z1$WD$(Z1,I):VT:K:P1 kDISP,"#"0,"X"XP,"Y"YP,"E" pSP$INST$:CSPEAK uT27!zKV,0:(RA)S-----------)>------------------------>CCB:NF10:MM3zHVT13WD(Z1):YP(VT1)8:STD$:BC$"-":K121:LI2:C1FCMI1WD(Z1):K21:Z1$WD$(Z1,I)R(Z1$,K2,1)"`"K2K21:2130WVT2(I1):232K2:P1:\SP$"P95 0.5 ":WSPEAK a$;" ":SP$WD$(Z1,Z8):L(SP$):K10L:19:K:STD$;|I1L:A$(SP$,I,1):A$"a"A$C0$(FC)((A$)32)C0$"0"A$;:WSPEAK SP$"P118 0.5 "WD$(Z1,Z8)" 1.0":WSPEAK%*4------------------------ 9-- R1 ---------- FCR(4)1:S9(FC1)22ENFS9:MM1:NFS91:MM2:K21bUBWT:SP$INST$:CSPEAKuNFS91:MM1{-------------------------- FB ------------------------------------------UBWT Z81WD(Z1):19:1:STDT,2)5ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999;P{RL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTERTRET%ıVSECT1:D0SET:TT%0:MASTER-------------------------- FA ---------------------------------------------------------0:-- DOCLR ---------------N<------------------------o>ISEC%(SECT,1)SEC%(SECT,2)|@D0%(I)0BDF------------------------H-- MASTER --------------J------------------------LL1SEC%(SECT,1)SEC%(SECEAK --------------0"------------------------N$ IN SP$=STRING TO SPEAKY&V$SP$_(}*------------------------,-- D0SET --------------- .------------------------0ISEC%(SECT,1)SEC%(SECT,2)2D0%(I)1468------$"0"DLAY$. DLAY(DLAY)DLAY$DLAY$".0"AV$DLAY$:UBWTGe-------------------------- WSPEAK -------------------------------------- IN SP$=STRING TO SPEEKV$SP$:UBWT------------------------ -- CSPALOC(AN,1),"Y"ALOC(AN,2),"E"0232,M1:233,M26T------------------------r-- PAUSE --------------------------------------- IN DLAY=THE NUMBER OF SECONDS TO DELAYDLAY(DLAY10.5)10  DLAY$(DLAY):(DLAY$,1)"."DLAYY32įFIXARROW:ANAN1:12467KEY13AN0ĹKV,0:@CRJ1252h-------------------------- FIXARROW ------------------------------------ (SEE ARROW FOR NOTES)M1(232):M2(233)NFTBL:MM3DISPLAY,"#"N,"X"-- ARROW --------------7------------------------e IN TBL= FILE NUMBER OF THE ARROW TABLE N=INDEX OF ARROW IN TABLE OUT AN=POSITION(ORDINAL) OF ARROWAN0AN3AN1FIXARROWWT10000:CHRGT:KEY01252KE----------(-- ULOCKFILE -----------F------------------------RLCKıZI0n(ILFILE)1222LCK%(I)0:INF%(I,1):1218LCK0MEM(0,0)(2049)256(2050)MEM(1,0)(115)256(116)------------------------LCK%(NF)1ı"NF%(NF,1)1198*I0E(NF%(I,1)LFILE)1198{NF%(I,1)NFNF%(I,1)NF%(NF,1):NF%(NF,1)0:1198INF%(I,1):1192SMEMBNKBįSMEMMM2MEM(BNK,0)LMEMLCK%(NF)1LCK1 --------------------------,BNK(BNK0):LMEMMEM(BNK,0)@HMEMMEM(BNK,1)TSPACEHMEMLMEMZx-------------------------- LOCKFILE ------------ ------------------------ IN B = THE BANK TO LOCK FILE IN NF = THE FILE TO LOCK -- ------------------------3PVPV1:SMEMRNF%(NF,4)SPACEPV31158PV3ė:SF,0:10:5:"FILE ";NF;" IS TOO BIG FOR EITHER BANK":T115000:T1:SO,0:-------------------------- SMEM ---------------- ------------INST$"WHICH CONSONANT DIGRAPH SOUND DO YOU HEAR 0.5 P430 P343 THEN P422"f1 SP$INST$:UBWT:CSPEAK1 VT20:FC4:BC$"-":TBL10:N11 NF16:MM3:DISP,"#"RC%(2,0,0),"X"RC%(2,0,1),"Y"RC%(2,0,2),"E"1I120 2I1I10(I10):I2(I10):Z1$TST$( TEST (TST) ----------40 ------------------------i0 SP$"1.0 NOW 0.3 LET'S HAVE A RACE 0.5":CSPEAK0 NF15:MM1:MM40 UBWT:SP$"P78 0.5 SAY IT'S NAME TO YOURSELF 0.5":CSPEAK0 NF10:B0:LOCK0 I120:CA%(I)0::CA0:QC0:FF0I1 C)((A$)32)C0$"0"!/ A$;:'/ E/ ------------------------c/ -- P4 (W/ COLOR --) ----/ ------------------------/ Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$C0$(FC)BC$C0$"0"/ A$;:/ / ------------------------0 --.X ------------------------[.] Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$((A$)32)f.b A$;:l.g . ------------------------. -- P3 (W/ COLOR LOWER) -. ------------------------/ Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$C0$(FDOCLR:SECT5:D0SET:"- 3030@- ------------------------^-! -- P1 (W/ --) ----------|-& -------------------------+ Z51(Z1$):A$(Z1$,Z5,1):A$"@"A$"["A$BC$-0 A$;:-5 -N -------------------------S -- P2 (W/ LOWER CASE) -----!, ------------------------0, MM4:CBW, 8:1:STD$;"1. Look at the menu."w, 16:1:"2. Play the game.", SP$"1 0.3 P74 0.8 2 PLAY THE GAME":CSPEAK, WT500, CHRGT:KEY03030, KV,0:KEY("1")KEY27:CESC- KEY("2")E:QTQT1:%+ (QCQT0.8)RV2890W+ RET%1:RV1:Z7RV(Z1,1)RV(Z1,2):D0%(Z7)1:{+ OZZ1:SP$"OK P58 0.5":CSPEAK+ MASTER+ Z1OZ:SP$"OK P54 0.5":CSPEAK+ RET%0+ 2630+J + ------------------------, -- GO ON ------------6:DISP,"#"2,"E":Z81100:Z8:** 2800`* WC1SP$"P388 P394 0.5 P405 1.0":CSPEAK:2685* SP$"P388 YOU SHOULD HAVE TYPED 0.3 "(DMP$,1)" "(DMP$,1)" TO MAKE "QZ$(Z1,I):CSPEAK* VT:K:Z1$QZ$(Z1,I):STD$;:P3 + UBWT:DLAY1.0:PAUSCORRECT CONSONANT DIGRAPH 0.3 YOU MADE A WORD 0.3 P118 0.5 "QZ$(Z1,I):CSPEAKt) VT:K:Z1$QZ$(Z1,I):STD$;:P3 * WCČDISP,"#"RC%(Z1,QC,0),"X"RC%(Z1,QC,1),"Y"RC%(Z1,QC,2),"E":QCQC1:DISP,"#"RC%(Z1,QC,0),"X"RC%(Z1,QC,1),"Y"RC%(Z1,QC,2),"E":Z71QZ$(Z1,I):L(Z1$):K21L:K21:WC0:INST$I$Z1$B(p DISP,"#"I2g(s ((Z1$,K2,1))96K2K21:2675|(x DMP$(Z1$,K2,2)(} VT:K:STD$;:P4( K1K2(K21)( UBWT:SP$Z1$:CSPEAK:T2( (RA)WCWC1:2730O) SP$"P367 0.5 YOU PICKED THE CTURE IN THE BOX":CSPEAKq'Z I$"TYPE THE CONSONANT DIGRAPH YOU HEAR "Z1$" OF EACH WORD THEN P422 0.5 ":UBWT'_ SP$I$:CSPEAK'a DISP,"#"RC%(Z1,0,0),"X"RC%(Z1,0,1),"Y"RC%(Z1,0,2),"E"'d I1QZ(Z1)'i VT:1:STD$;" "1(n Z1$ROPER PHRASE&A MM4:RV0&F QC0:QT0:VT22:C13:FCC1:BC$"-":LI2:SP$"NOW SHOW THAT YOU KNOW THE CONSONANT DIGRAPH SOUND "Z1$" OF EACH PICTURE 0.5"&K NF11:MM1&P CSPEAK:NF11Z1:MM3:UBWT'U SP$"LISTEN TO THE WORD 0.8 LOOK AT THE PILIKEY322455F% KEY$(KEY):AN$AN$KEY$:KEY64KEY91KEYKEY32z% VT:K1NC2:STD$;C0$;C1;(KEY);:NCNC1:2455%( ------------------------%- -- QZ ------------------%2 ------------------------%7 IN Z1 = WHICH QUIZ &< Z1$ = P!$ AN$"":NC0:RA0:WT500:KC,0R$ KEY$"":CG:KEY0SP$INST$:CSPEAK:2455c$ KEY632455$ KEY13RA(AN$DMP$):KV,0:$ KEY1272485$ NCNC(NC0):VT:K12NC:STD$;C0$;C1;BC$$ AN$(AN$,NC(NC0)):NC0AN$""$ 2455% NC------------*#j ------------------------F#o IN VT = VERTICAL TABj#t K1 = HORIZ TAB OF DIGRAPH#y DMP$ = CORRECT ANSWER#~ LI = LIMIT # OF CHARS# BC$ = BACKSPACE CHAR# C1 = COLOR# OUT RA = RIGHT ANSWER FLAG-----------)" ------------------------2" RA0[" WT500:CHRGT:KEY0įINST2:2320f" K1KEY" WT500:CHRGT:KEY0įINST2:2330" K2KEY"$ ((K1)(Z9$,1,1))((K2)(Z9$,2,1))RA1") "` ------------------------ #e -- T2 ------,-- SCREEN 13 -----------#A,GO)A,GA,-- SECTION 3 -----------eA,-- SCREEN 14 -----------A-Z16:INST$"LISTEN TO THE SOUND N G MAKES AT THE END OF THE WORDS"A -FAA-3:2:STD$;C0$;FC;"-ng";A-FBA(-BP--- SCREEN 15 -----------NG OF THE WORDS"@p+FA7@z+3:2:STD$;C0$;FC;"th-";@@+FBF@+d@+-- SCREEN 11 -----------@+Z15:INST$"TYPE T H ON THE LINES TO FINISH THE WORD THEN P422":R1:@$,-- SCREEN 12 -----------@.,Z11:Z1$"AT THE BEGINNING"@8,QZ@~,AWORDS"?*FA-?*3:2:STD$;C0$;FC;"ph-";6?*FB)3:2:STD$;C0$;FC;"ch-";,>)FB2>)P>0*-- SCREEN 7 ------------>:*Z13:INST$"TYPE C H ON THE LINES TO FINISH THE WORD THEN P422":R1:>*-- SCREEN 8 ------------?*Z14:INST$"LISTEN TO THE SOUND P H MAKES AT THE BEGINNING OF THE 3:2:STD$;C0$;FC;"wh-";"=,)FB(=6)F=h)-- SCREEN 5 ------------=r)Z12:INST$"TYPE W H ON THE LINES TO FINISH THE WORD THEN P422":R1:=)-- SCREEN 6 ------------=)Z13:INST$"LISTEN TO THE SOUND C H MAKES AT THE BEGINNING OF THE WORDS">$;C0$;FC;"sh-";