' +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#:Z6(vDISP,"#"3,"E":Z616:DISP,"#"4:Z66ČDISP,"#"4,"Y"112({(Z61100:Z6L)17:9:STD$;IVS$;DMP$:17:9:N0R$;STD$;C0$"6";L0R$;DMP$:Z61100:Z6:17:9:STD$;IVS$;DMP$:17:9:N0R$;STD$;C0$"2";L0R$;DMP$)SP$"THE LETTERS "(DMP$,16']DISP,"#"2,"E":16:16:L$(Z1,AN):DISP,"#"0,"X"14,"Y"118,"E"'bDISP,"#"3,"E":DISP,"#"0,"X"8,"Y"102,"E":14:10:L$(Z1,AN)(gZ61100:Z6^(l14:10:L$(Z1,AN):DISP,"#"0,"X"8,"Y"102,"E":DISP,"#"0,"X"8,"Y"126:17:10:L$(Z1,AN)p(qZ61100&DFA:FIXARROW:AN(AN)0:DMP$L$(Z1,AN)L$(Z1,0):Z13DMP$L$(Z1,0)L$(Z1,AN)'I20:LE1AN3:C0$"3";L$(Z1,AN):DISP,"#"0,"X"LE3AN3,"Y"150,"E"'NZ61100:Z6['SDISP,"#"2,"E":DISP,"#"0,"X"14,"Y"118,"E":16:16:L$(Z1,AN)m'XZ61100:Z%0INST$"P430 TO MOVE THE ICE CREAM SCOOP THEN P422"%5SP$INST$:CSPEAK&:STD$;X0R$;C0$"3":Z605:DISP,"#"0,"X"LEZ63,"Y"150,"E":20:LE2Z63:L$(Z1,Z61):l&?NF5:MM3:X0R$;C0$"4":DISP,"#"1:DISP,"#"0,"X"8,"Y"150,"E":20:10:L$(Z1,0)u$1750$------------------------$ -- B1 BLEND 1 ----------$------------------------$Z616:AN(Z6)1::TBL6:N0:FC2:LE16 %NF4:MM13%!SP$"NOW YOU MAKE A BLEND":CSPEAKF%#NF6Z1:MM3b%&NF6:MM3:NF5:MM3l%+UBWTW IN TABLE# OUT AN=POSITION(ORDINAL) OF ARROW#AN0#AN6AN1#FIXARROW#AN0įINST#WT10000:CHRGT:KEY01750 $KEY321760$FIXARROW>$ANAN16(AN6):(AN(AN))1757H$1740b$KEY13AN0ĹKV,0:k$CR------------"Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)BC$C0$"0""A$;:""------------------------#-- ARROW --------------$#------------------------S# IN TBL= FILE NUMBER OF THE ARROW TABLEv# N=INDEX OF ARRO!@------------------------!E-- P3 (W/ COLOR LOWER) -!J------------------------ "OZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)((A$)32)C0$"0""TA$;:"Y<"r------------------------Z"w-- P4 (W/ COLOR --) ----x"|------------ ------------------------ Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$BC$ A$;:  ------------------------!-- P2 (W/ LOWER CASE) --"!------------------------Y!Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$((A$)32)d!"A$;:j!'L1SEC%(SECT,1)SEC%(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:MASTERL ------------------------j -- P1 (W/ --) ----------1s4y68------------------------:-- DOCLR ---------------<------------------------>ISEC%(SECT,1)SEC%(SECT,2)@D0%(I)0B D+F------------------------IH-- MASTER --------------gJ------------------------L------------- -- CSPEAK --------------"------------------------$ IN SP$=STRING TO SPEAK&V$SP$(*------------------------!,-- D0SET --------------- ?.------------------------`0ISEC%(SECT,1)SEC%(SECT,2)m2D0%(I)LAY):(DLAY$,1)"."DLAY$"0"DLAY$ DLAY(DLAY)DLAY$DLAY$".0"V$DLAY$:UBWT-------------------------- WSPEAK --------------&------------------------D IN SP$=STRING TO SPEEKUV$SP$:UBWT[y-----------M3DISPLAY,"#"N,"X"ALOC(AN,1),"Y"ALOC(AN,2),"E"232,M1:233,M2-------------------------- PAUSE ---------------------------------------D IN DLAY=THE NUMBER OF SECONDS TO DELAY^DLAY(DLAY10.5)10 DLAY$(DCHRGT:KEY01252KEY32įFIXARROW:ANAN1:1246KEY13AN0ĹKV,0:CR1252------------------------ -- FIXARROW ------------)------------------------E (SEE ARROW FOR NOTES)]M1(232):M2(233)oNFTBL:MER(F)RCNTMRCNT2010 33 PCNT0: POLL COUNTQ MPCNT1: MAX POLL COUNTs 51200,0: EMPTY ERROR STATUS 51201,0: SET SERIAL POLL 51185: CALL SERIAL POLL PCNTPCNT1:ER(F)PCNTMPCNT3020  P I0(S$)1:51202I,((S$,I1,1)):: PLACE MESSAGE (S$) IN SEND BUFFERZ $3000k .ER(E)1999| 851201,(S$) B51200,0 L51179 VSCNTSCNT1:ER(E)SCNTMSCNT1090  RCNT0:MRCNT1 51200,0 51182 RCNTRCNT1:0):(13);(4);"RUN OLD HELLO"v 20:"Place the Red Disk in the disk drive":"and press any key.";:A$:(4);"PR#6" SCNT0:MSCNT1 JNK(53247): TURN OFF 2K JNK(51197): SELECT SLOT 7 2K I((S$,23,2))24 (S$)IS$S$" ":10400:E1:BER(E):BE0::"LABNET system is down.":"Press any key to run stand alone.";:A$:160 :2000:R$((51206))((51207)):R$"52"ė:" LABNET ERROR!!";(7);(7):170 I055:769I,(51226I): 640,E:D(53247):D(5090P$"QR-21 "+ ER(X)(51200)d1012,0:E0:F0:D(53247):S$((51197))((51198))((51199)):S$"488"F1nF160x::10:12:"LOOKING FOR LABNET":` 51200,31:51201,1:51202,4:51170:S$"D00051000000000000000012"P$:100    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$" ":   6NF%(Z7,3):Z810000);Z81000);Z8100);Z810);Z8;" ";UZ8NF%(Z7,4):Z810000);Z81000);Z8100);Z810);Z8;" ";U$LCK%(Z7)U.U8KEY8KEY11Z3Z3N7:62360FTKEY32KEY21KEY10Z3Z3N7:62360QT62370jTZ30Z3N7(MFN7)zTZ3MFZ30TZ4Z3N71:Z4MFZ4MFT:24N7:Z7Z3Z4TZ710);Z7;" ";TZ8NF%(Z7,1):Z810);Z8;" ";=UZ8NF%(Z7,2)25:": ";MEM(0,0);"-";MEM(0,1);:21:BNKĞWS"BANK1";::": ";MEM(1,0);"-";MEM(1,1):S"No. Link Address Length Lock"::34,5:N718:Z30S62420SWT1000:RKEY:KEY062370SKEY27KEY63:34,0:HRCG14:UF0NIC:50,ZY::SO,0:T1925FRHRCG14:UF0NIC:50,ZY::CB:SO,0:STACKCLR:SECT0:MASTERsRKEY63:HRCG14:UF0NIC:50,ZY::SO,0:R\KEY16ıRfKV,0:ZY(50):(17)::SF,0Rp::"FRE = ";FS(0);:15:"LAST FILE: ";NF;:31:MF;" FILES":BNKĞ)Sz2:"BANK0";:"QTT%(KEY,0)Ğ:"YES"::61890-Q"NO "8Q61850DQI1TZyQTT%(I,0)TT%1:JTT%(I,1)TT%(I,2):D0%(J)1:JQIQTT%61940QTT%(5,0)TT%(6,0)D0%(13)1Q:10:8:"Press any key to continue."QWT1000QRKEYRKEY06I1TZ:I52(ITY):HT9PTT%(I,0)Ğ:"YES"::61845DP"NO "JPVPWT1000aPRKEYPKEY27TT%0:I1TZ:TT%(I,0)0::61940PKEY3261895PKEY("A")KEY(64TZ)61855QKEYKEY64:TT%(KEY,0)1TT%(KEY,0):5KEY2(KEYTY):HTY IT:/OmHT:"E. TRY IT 1":HT:"F. TRY IT 2"^Or23:5:"Press the SPACE BAR to continue."Ow19:5:"Type the letter [A..";(64TZ);"] for the":20:5:"option you want."O|HT5:TT%0:I1TZ:TT%(I,0)0:OISEC%(0,1)SEC%(0,2):D0%(I)0:P1744I,32:2000I,32N6I!N;-N@I223GNEI:1:" ";:40:" ";NNJITNOzNTTY4:3:12:"TEACHER ASSIGNMENT"NY5:3:"LEARN IT:"N^HT10:HT:"A. R BLENDS":HT:"B. L BLENDS"NcHT:"C. S BLENDS":HT:"D. 3 LETTER BLENDS"Oh:3:"TRMKEY1361555$MKV,0:61550;MD$"VERIFY SIDE B"SMSP$"P136":CSPEAKfM216,0:60030M0,LO(MEM(0,0)):1,HI(MEM(0,0)):UNPACKMFR,NF$(0),NF%(1,4)MM"KEY20ıM'KV,0:ZY(50):(17)::SF,0M,I039N11024I,32:CT0:SP$"":BD$Li61555#LnFXCLs:SF,0:CB:16302,0:SO,0Lx10:5:TALL$;"Please turn this disk to side B.":23:8:REG$;"Press RETURN to continue."L}216,0LSP$"PLEASE TURN THIS DISK TO SIDE B 1.0 P422 P328":CSPEAKLWT500:RKEY5)),5);"%"9KB23:5:"Press the SPACE BAR to continue."DKGWT100rKLﯰRKEY:KEY27İ61270:KEY27:TT%0:CESCKNKEY127C10:C20:F10:F20:61045KQKEY3261260KVHRCG14:UF0NIC:50,ZY::SO,0K[KEY63:K_BL$;" FILE SIZE READ"LdSE J.17:3[J3"# Attempted "(" "(F1),2);(" "(F2),6);(" "(FF),6)fJ819:3J="% Right first time "(" "((C1(F1(F10))100.5)),3)"%"; K?(" "((C2(F2(F20))1000.5)),5);"%";(" "((CA(FF(FF0))1000."6INM$"Consonant Blends":L1(NM$):11:21(L12)?INM$OI21(L12)fIZ91L1:"-";::I!14:23:"Try1 Try2 Both":15:23:"---- ---- ----"I$16:3I)"# Right first time ";(" "(C1),2);(" "(C2),6);(" "(CA),6),1)SNSECT%(4,2)ĺSN$(4);:61155UHSNSECT%(5,1)SNSECT%(5,2)ĺSN$(5);:61155HSNSECT%(6,1)SNSECT%(6,2)ĺSN$(6);:61155HTT%ĺ" ";::"TA";:HHSNSECT%(5,1)SNSECT%(6,1)61200HQNZ6:8:21(QN10)I"(QUESTION "QN")--------"G7:3,G"POINT IN PROGRAM:"3G3KG"----------------"VG7:21GSNSECT%(1,1)SNSECT%(1,2)ĺSN$(1);:61155GSNSECT%(2,1)SNSECT%(2,2)ĺSN$(2);:61155GSNSECT%(3,1)SNSECT%(3,2)ĺSN$(3);:61155"HSNSECT%(422:KC,0FFkKEY18ı?FpKV,0:ZY(50):(17)::SF,0^FuCAC1C2:FFF1F2:Z9039Fz1024Z9,32:1744Z9,32:2000Z9,32FZ9FFZ9223FZ9:1:" ";:40:" ";FZ9FF4:14F"TEACHER SCREEN"F14 G"------:"_";::"|"E19:"|"iE"Please remember these two numbers when"::"talking to your consultant."E::"FREE SPACE = ";FS(0)EWT1000:RKEY:KEY060130E꯰PROGSUMEKEY27ČHRCG14:UF0NIC:50,ZY:CESCE60040E QT$::FD0SETD毫MASTER%D~KV,0:ZY(50)8D(17):::10uDER%(222):LN(218)256(219):E1((ER%)):L1((LN))D"ERROR #";::ER%;::" OCCURRED IN LINE ";::LN;::"."D8:I1E1:"-";:D26E1:I1L1:"-";:: E8:"|";:I925E1thr,squ,STR'CSPRing,spl,SPR,thr,squ>CFLing,pr,bl,FL,grUCBRing,gl,BR,cr,twcCLT$"RLS"vCNF%(0,1)LFILECINST$(0)""CINST$(1)"P181 YOU WANT"CI2SECT:INST$(I)"P181 OF THE ANSWER":CHRCG:UF0NICC毰TURNCSECT1D毰,ST,sk,pl BSMock,tr,sl,SM,pr7BCLock,CL,pr,br,glNBCLick,sw,fr,CL,tweBSLick,gr,SL,dr,pl|BBRick,pl,sn,BR,grBTRick,TR,sw,gl,drBSPank,sk,br,SP,grBBLank,sn,BL,gr,twBDRank,DR,sl,tr,brBPLank,tr,sk,PL,sm CSTRing,spl,,tr,CL,sp,sn#ASLink,gl,SL,fr,pr:APLate,sm,PL,pr,twQACRate,bl,pr,fl,CRhASKate,SK,qu,dr,snASTate,dr,gl,ST,trAFLake,sm,cl,FL,plABRake,gl,BR,pr,smASTake,ST,sl,fr,glAQUake,sl,pr,sm,QUABLock,tr,BL,qu,pr BSTock,scven,STReet,airplane,coat<@PSQUare,stove,SQUirt,potato,cara@QTHRee,THRoat,tooth,rabbit,block@RTWelve,ship,TWenty,ten,rocket@SQUeen,QUick,letter,girl,foot@I128:J04:W3$(I,J)::@BLink,BL,tr,sw,sm@STink,fl,sp,ST,cr ACLinkSTone*?HSPider,SPace,cowboy,stone,shirtJ?ISMile,six,SMoke,table,shoeh?JSKy,ship,clock,SKin,tree?KSNake,watch,stairs,sleep,SNow?LSPLash,paper,SPLit,sink,swing?MSCRew,SCReen,radio,sun,bell?NSPRing,soap,log,school,SPRead@OSTRaw,seGLobe,GLass,gate,foot,dress=>ABLock,mirror,BLue,flag,bell]>BFLower,FLy,train,pot,fence|>CSLide,soap,SLeep,wolf,toy>DPLant,rose,ghost,PLate,pen>ECLock,CLoud,bear,coat,chair>FSCales,flower,SCore,saddle,wave?GSTar,teeth,whale,spider,27:J04:W2$(I,J)::7=9BRead,boat,BRush,cave,growX=:GRass,GReen,goose,hat,fruit{=;PRize,house,flower,PRetty,pot=FRog,star,FRiend,boat,fire=?CRoss,corn,brush,CRy,mouse>@<߃SCan,BRan,SPan,PLanG<߁I02:J06:ALOC(I,J,1),ALOC(I,J,2)::<13,115, 16,115, 19,115, 22,115, 25,115, 28,115, 31,115<5,138, 11,138, 17,138, 24,138, 30,138, 0,255, 0,255<14,164, 18,164, 22,164, 26,164, 30,164, 0,255, 0,255=.I1߃SCale,SKy,SMile,SNake,SPider,STarQ;߃STRaw,SPLash,SCReen,SPRing,SQUare,THReep;߁I13:J06:L$(I,J)::;߃r,c,d,f,g,p,t;߃l,b,c,f,g,p,s;߃s,c,k,m,n,p,t;߁I13:J14:RV$(I,J)::;߃GRay,PRay,TRay,STay;߃BLock,CLock,FRock,STock7,8 :V߃9,9:W߃10,10#:X߃12,128:p߁I16:SN$(I)::z߃" MENU","WHAT IS IT 1","WHAT IS IT 2","WHAT IS IT 3"," TRY IT 1"," TRY IT 2":߁I14:J16:W1$(I,J):::߃CRy,DRum,FRog,GRass,PRize,TRee:߃BLock,CLock,FLower,GLass,PLant,SLide$;1 9ރ2,49ރ5,69ރ7,9'9ރ10,1129ރ12,13I9߁I0MX:TARG(I):V9 ߃0,10050m9߃10320,10510,10610~9 ߃10720,108109*߃10920,11010,1111094߃20020,201109>߃21020,211109R߁I1TZ:TT%(I,1),TT%(I,2):TT%(I,0)0::TT%09S߃2,49T߃5,6:UMENU.PAK,DEMO.PAK,DEMO.TBL,SHOPA.PAK,SHOPA.TBL,ARROW.TBL,LPIC1.TBL,LPIC2.TBL,LPIC3.TBL,SHOPB.PAK,SHOPB.TBL,SHOPC.PAK,QUIZ1A.TBL,QUIZ1B.TBL,QUIZ1C.TBL,QUIZ1D.TBL,SHOPD.PAK,RESULTS.PAK8ށI1SECT:SECT%(I,1),SECT%(I,2)::SECT%(0,1)2:SECT%(0,2)MX9ރ1,(1,1)^7.MEM(0,0)(2049)256(2050):MEM(0,1)8191:MEM(1,0)(115)256(116):MEM(1,1)48814o78ۆLCK%(MFILE)|7BۆCA%(15)7LۆTT%(TZ,2)7VۆSN$(SECT)7`ۆW1$(4,6)7jۆL$(3,6)7tۆRV$(3,4)7~ۆW2$(27,4)7ۆW3$(28,4)7ށI1MFILE:NF$(I):8ރFA17306B11815!6B22015-6B3211596Q13015E6Q24015S6RSLT5015`6\CR61035o6fTURN61535|6pTA617306zPR623006چD0%(MXSCREENS)6چTARG(MXSCREENS)6چSEC%(SECT,2)6چNF$(MFILE)6ۆNF%(LFILE,4)6ۆALOC(2,6,2)7$ۆMEMFSPACE114652PICKVIC1158*5KC491683HN 1RQ21&R(1vRCAC2:FFF2:RSLT.1RN1nù16297,0:16300,0:230,32[1xù49162,0p1øR(X)((1)X)1øEO(X)((X2)X2)1øHI(X)(X256)1øLO(X)X256HI(X)1øVO(X)(P0RT)952øFS(X)((111)256(112))((109)256(11ETHER TO MAKE THE B R BLEND LIKE YOU HEAR IN THE WORD BRUSH 3.0":WSPEAKO0(]0)Z11:B1c0)q0r)Z11:B2w0|)0)Z12:B10)0:*Z12:B20D*0*Z13:B10*0+Z13:B20 +0f+B30p+04NQ10>N0NCAC1:FFF1:RSLT1Z65/x(DISP,"#"2,"Y"125,"E":DISP,"#"2:Z61100:Z6a/(DISP,"#"2,"E":DISP,"#"3:Z61100:Z6/(DISP,"#"4:DISP,"#"5:Z61100:Z6/(DISP,"#"4,"E":Z615:DISP,"#"6:Z65ČDISP,"#"6,"Y"112/(/(DISP,"#"7I0(SP$"THE LETTERS B AND R GO TOG .'D0SET.'UBWT:CB.'k.P(SP$"P322 BLENDS 0.5 A BLEND IS 2 OR 3 CONSONANTS SOUNDED TOGETHER 0.5".Z(NF2:MM1:CSPEAK:NF3:MM3:UBWT.d(SP$"WATCH 0.3":CSPEAK:DISP,"#"0:DISP,"#"1:UBWT/n(DISP,"#"1,"E":DISP,"#"2,"Y"125:Z61100:,0:10070!-'KEY0ĹKV,0:10070I-'KEY("1")KEY("6")ĹKV,0:10070S-'KV,0e-'SECTKEY481-'SECT7(640)Ĺ28,F1F2:29,C1C2:30,F1F255::(4);"RUN EXIT"-'SECT7ČUF0NIC3:::KC,0:103,1:104,8:2048,255:2049,0:2050,0:214,255::CHRGT:KEY05070&,KEY325070,,<,B'NF1:MM1,L'SP$"1 0.3 R BLENDS 0.8 2 0.3 L BLENDS 0.8 3 0.3 S BLENDS 0.8 4 0.3 TRY IT 1 0.8 5 0.3 TRY IT 2 0.8 6 0.3 STOP",V'CSPEAK,`'WT1000:RKEY,j'TA,t'CR,~'PROGSUM -'KEY63ĹKV):I2$(FF):CA20Z1(CA10)10:I1$(Z1):CAZ1I1$I1$" "(CAZ1)+FF20Z1(FF10)10:I2$(Z1):FFZ1I2$I2$" "(FFZ1)+SP$"YOU DID "I1$" RIGHT OUT OF "I2$" 0.5 P377 0.5":CSPEAK:INST$""+SP$"P430 P328":CSPEAK,WT1000NF18:MM16*SP$"LOOK AT YOUR SCORE 1.0":CSPEAKE*STD$;X0R$o*5:19(CA10):CA:9:19(FF10):FF*5:28:RST$;REG$;"correct"*9:28:"tried"*Z1((CA(FF(FF0)))1000.5):22:9(Z110)(Z1100):STD$;Z1;"% correct"H+I1$(CAW:CSPEAKI)^14:Z1$W3$(Z6,0):25((Z1$)2):IVS$;:P2:N0RM$:UBWT^)DLAY1.0:PAUSEl)F2F21:)SP$"THESE WORDS ALL RHYME 0.5 LISTEN")Y214:SP$SP$" 0.5 "W3$(Y14Y2,0)::SP$SP$" 1.0")WSPEAK))~ULOCK:MM4: * 0.5 P118 0.3 "W3$(Z6,0):CSPEAK[(E14:Z1$W3$(Z6,0):25((Z1$)2):IVS$;:P2:N0RM$(JZ716:FIXARROW:Z81100:Z8:(O4500(TWC1SP$"P388 THAT IS NOT A WORD 0.5 P405":CSPEAK:4140 )YSP$"P388 0.5 THIS IS P320 1.0":ANRA:FIXARRO41257'"LL1:Z714:DMP$(W3$(Z6,Z7),L)RAZ7:Z74=''',SP$"FIND THE BLEND THAT MAKES A WORD 0.5":CSPEAK:Z61SP$"P430 P343 THEN P422":CSPEAK'1ARROW:FIXARROW'6AN(RA)WCWC1:4180';WCC2C21"(@SP$"P365 YOU MADE A WORD:F20:BC$"-"1&Y106:Y214:Z6Y14Y2:WC0R& NF17:MM1:STD$;REG$;IVS$}&14:Z1$W3$(Z6,0):25((Z1$)2):P1&N0RM$:Z714:20:15Z74:Z1$W3$(Z6,Z7):P2:&DMP$"":L1:Z1$W3$(Z6,0)'A$(Z1$,L,1):A$"a"DMP$DMP$A$:LL1: MAKE WORDS THAT RHYME 1.0"D%NF17:MM1:CSPEAK:ULOCK:MM4Y%NF17:B0:LOCKm%NF6:B0:LOCK%UBWT:SP$"LOOK AT THE BLENDS 1.0":CSPEAK%INST$"FIND THE BLEND THAT MAKES A WORD 0.5 P430 P343 THEN P422" &N3:TBL6:FMT2:FC4:C20SAME BEGINNING BLEND AS "Z1$" 0.5 P405":CSPEAK:3135$g SP$"P388 0.5 THIS IS P320 0.5 "W2$(Z6,RA)" 1.0 P118 0.5 "W2$(Z6,0)" 0.3 "W2$(Z6,RA)" 1.0":ANRA:FIXARROW:WSPEAK$ DLAY1.0:PAUSE$ F1F11:$ULOCK:MM4:%SP$"NOW YOUOW:FIXARROW)#I AN(RA)WCWC1:3170:#N WCC1C11#S SP$"P363 YOU FOUND THE WORD WITH THE SAME BLEND 0.5 P118 0.5 "Z1$" 0.3 "W2$(Z6,AN):CSPEAK#X Z716:FIXARROW:Z81100:Z8:#] 35008$b WC1SP$"P388 THAT WORD DOES NOT HAVE THE L1:3120="5 LL1:Z714:DMP$(W2$(Z6,Z7),L)RAZ7:Z74C": "< NF13(Z67)(Z613)(Z619):MM3:DISP,"#"Z67(Z67)6(Z613)6(Z619)1"? SP$"LISTEN TO THE WORD I SAY 0.5 "Z1$:WSPEAK:INST$I1$Z1$I2$:Z61SP$INST$:CSPEAK #D ARRNE THEN P422"0! N2:TBL6:FMT1:C10:F10:FC4=! Z6127d!! NF12:MM1:WC0:STD$;REG$;N0RM$!& Z714:13EO(Z7):HT8Z76(Z72):Z1$W2$(Z6,Z7):HTHT((Z1$)2):HT:P2:!+ Z1$W2$(Z6,0):DMP$"":L1 "0 A$(Z1$,L,1):A$"a"DMP$DMP$A$:L#"Z61,"E":21:20:" "" p( Q SP$"NOW YOU FIND WORDS WITH BLENDS"z NF12:MM1:CSPEAK:ULOCK:MM4 NF12:B0:LOCK NF6:B0:LOCK ! I1$"P47 WITH THE SAME BEGINNING BLEND AS THE WORD ":I2$" P430 TO MOVE THE ICE CREAM COAKr\Z616:Z1$W1$(4,Z6):SP$"THE WORD "Z1$" HAS A 3 LETTER BLEND 0.8 SAY "Z1$" WITH ME 0.5 "Z1$:CSPEAKaDISP,"#"Z61,"E":21:26(Z1$):P3fUBWT:SP$"LISTEN TO THE 3 LETTER SOUNDS THAT GO TOGETHER 0.5 "Z1$" 1.0":WSPEAK kDISP,"U CAN MAKE NEW WORDS BY ADDING THE SAME ENDINGS TO DIFFERENT BLENDS 0.8 THESE WORDS WILL RHYME 1.0":WSPEAKr*CSP$"SOME BLENDS HAVE 3 CONSONANTS"HNF10:MM1:CSPEAKMNF11:MM3:FC4:STD$RUBWTWSP$"WATCH AND LISTEN 1.0":CSPE,"Y"8016Z6,"E":SP$Z1$" 1.0":WSPEAK:DISP,"#"1,"X"20,"Y"8016Z6,"E":`DLAY1.0:PAUSE INST$"P114 0.5 P118 0.5 "Z614:DISP,"#"1,"X"20,"Y"80Z616,"E":SP$INST$RV$(Z1,Z6)" 1.0":WSPEAK:DISP,"#"1,"X"20,"Y"80Z616,"E":lSP$"YOAME ENDINGS TO DIFFERENT BLENDS":NF10:MM1:CSPEAKZNF6:MM3:TBLNF:N1:FC4wSP$"P87 0.5 LISTEN 0.5"STD$:Z614:112Z6:25:Z1$RV$(Z1,Z6):P3:UBWT:DLAY1.0:PAUSEWSPEAKKZ614:Z1$RV$(Z1,Z6):DISP,"#"1,"X"20TZ1$W1$(Z1,AN):14:26(Z1$):N0RM$;STD$;:P3:NF6Z1:MM3:DISP,"#"AN1,"E"oUBWT:DLAY2.0:PAUSEZ616:AN(Z6)1Z6999Z61000Ģ14:20:" ";:DISP,"#"AN1,"E":1855 SP$"YOU CAN MAKE NEW WORDS BY ADDING THE SR$;STD$;C0$"6";L0R$;DMP$:Z61100:Z6:17:9:STD$;IVS$;DMP$:17:9:N0R$;STD$;C0$"2";L0R$;DMP$SP$"THE LETTERS "(DMP$,1)" AND "(DMP$,1)" GO TOGETHER TO MAKE THE "(DMP$,1)" "(DMP$,1)" BLEND LIKE YOU HEAR IN THE WORD "W1$(Z1,AN):CSPEAK,AN)gZ61100:Z6rl14:10:L$(Z1,AN):DISP,"#"0,"X"8,"Y"102,"E":DISP,"#"0,"X"8,"Y"126:17:10:L$(Z1,AN)qZ61100:Z6vDISP,"#"3,"E":Z616:DISP,"#"4:Z66ČDISP,"#"4,"Y"112{Z61100:Z6`17:9:STD$;IVS$;DMP$:17:9:N0#"0,"X"LE3AN3,"Y"150,"E"-NZ61100:Z6oSDISP,"#"2,"E":DISP,"#"0,"X"14,"Y"118,"E":16:16:L$(Z1,AN)XZ61100:Z6]DISP,"#"2,"E":16:16:L$(Z1,AN):DISP,"#"0,"X"14,"Y"118,"E"bDISP,"#"3,"E":DISP,"#"0,"X"8,"Y"102,"E":14:10:L$(Z150,"E":20:LE2Z63:L$(Z1,Z61):y?NF5:MM3:X0R$;C0$"4":DISP,"#"1:DISP,"#"0,"X"8,"Y"150,"E":20:10:L$(Z1,0)DKEY63:FA:FIXARROW:AN(AN)0:DMP$L$(Z1,AN)L$(Z1,0):Z13DMP$L$(Z1,0)L$(Z1,AN)I20:LE1AN3:C0$"3";L$(Z1,AN):DISP,"FC2:LE16:FMT0 NF4:MM1W!SP$"NOW YOU MAKE "(LT$,Z1,1)" BLENDS":CSPEAKj#NF6Z1:MM3&NF6:MM3:NF5:MM3+UBWT0INST$"P430 TO MOVE THE ICE CREAM SCOOP THEN P422"$:STD$;X0R$;C0$"3":Z605:DISP,"#"0,"X"LEZ63,"Y"1:AN0 AN6AN1/FIXARROW@AN0įINSTaWT10000:CHRGT:KEY01750sKEY321760FIXARROWANAN16(AN6):(AN(AN))17571740KEY13AN0ĹKV,0:CR1750Z616:AN(Z6)1::TBL6:N0:BC$A$;:KZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$((A$)32)V"A$;:\'OZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)((A$)32)C0$"0"TA$;:YZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)BC$C0$"0"A$;0B D/LL1SEC%(SECT,1)SEC%(SECT,2)`ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999fPRL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTERTRET%ıVSECT1:D0SET:TT%0:MASTERZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$105 DLAY$(DLAY):(DLAY$,1)"."DLAY$"0"DLAY$X DLAY(DLAY)DLAY$DLAY$".0"kV$DLAY$:UBWTqV$SP$:UBWT&V$SP$(0ISEC%(SECT,1)SEC%(SECT,2)2D0%(I)146>ISEC%(SECT,1)SEC%(SECT,2)@D0%(I)10000:CHRGT:KEY01252>KEY32įFIXARROW:ANAN1:1246XKEY13AN0ĹKV,0:aCRk1252M1(232):M2(233)NFTBL:MM3DISPLAY,"#"N,"X"ALOC(FMT,AN,1),"Y"ALOC(FMT,AN,2),"E"232,M1:233,M2DLAY(DLAY10.5),0)LMEMLCK%(NF)1!LCK1'3LCKı;I0O(ILFILE)1222nLCK%(I)0:INF%(I,1):1218xLCK0MEM(0,0)(2049)256(2050)MEM(1,0)(115)256(116)AN0AN4ALOC(FMT,AN,2)191AN1FIXARROWWTM(BNK,0)HMEMMEM(BNK,1)0SPACEHMEMLMEM6HLCK%(NF)1ı]NF%(NF,1)1198eI0(NF%(I,1)LFILE)1198NF%(I,1)NFNF%(I,1)NF%(NF,1):NF%(NF,1)0:1198INF%(I,1):1192SMEMBNKBįSMEMMM2MEM(BNKMEMLMEMNF%(NF,4):SPACESPACENF%(NF,4):C|PICKVIC:PV31146I~\PVPV1:SMEM{NF%(NF,4)SPACEPV31158PV3ė:SF,0:10:5:BELL$;BELL$;"FILE "NF" IS TOO LARGE FOR EITHER BANK!":T115000:T1:SO,0:BNK(BNK0):LMEMME3) 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:L VBL$;NF$(NF);",A";(LD)0 XNF%(NF,2)LO(LD)F ZNF%(NF,3)HI(LD)p \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%(PTR,(ILFILE)1098E FLCK%(I)NF%(LAST,1)NF%(I,1):NF%(I,1)0:ILASTa HLASTI:INF%(I,1):1092g 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:1138T  KEY27TT%ıj KV,0:CB:DOCLR:STACKCLR:SO,0:49234,0:49239,0:SECT1:D0SET:MASTERy KEY63ı "V$INST$ $ 61088 7CODE1:1100 8CODE2:1100 9CODE3:1100 :CODE4 @CODE41100 BLAST0:INF%(0,1) DZ42000: MUST BE 44032 OR LOWER9 d50030: INITIALIZEI CNT0:KC,0e CNTCNT1:KEY(KB)128| KEY0CNTWT1012 (KEY96)(KEY123)KEYKEY32 KEY47KEY63 R(CNT):KC,0  RKEY:KEY0ı CR:CESC:PROGSUM:INSM 9/10/86 RON2 -------------------------M CONSONANT BLENDSl-------------------------( PROGRAMMER: Ron Miller2 GRAPHICS BY: Triska Paul<STORYBOARDER:F Carol Weigold P-------------------------!                                          ";'oZ8NF%(Z7,1):Z810);Z8;" ";xoZ8NF%(Z7,2)256NF%(Z7,3):Z810000);Z81000);Z8100);Z810);Z8;" ";oZ8NF%(Z7,4):Z810000);Z81000);Z8100);Z810);Z8;" ";o$LCK%(Z7)o.o8KEY27KEY63:34,0:HRCG14:UF0NIC:50,ZY::SO,0:WnKEY8KEY11Z3Z3N7:62360nKEY32KEY21KEY10Z3Z3N7:62360n62370nZ30Z3N7(MFN7)nZ3MFZ30nZ4Z3N71:Z4MFZ4MFn:24N7:Z7Z3Z4oZ710);Z7;" LAST FILE: ";NF;:31:MF;" FILES":BNKĞdmz2:"BANK0";::": ";MEM(0,0);"-";MEM(0,1);:21:BNKĞm"BANK1";::": ";MEM(1,0);"-";MEM(1,1):m"No. Link Address Length Lock"::34,5:N718:Z30m62420mWT1000:RKEY:KEY0623705nNIC:50,ZY::SO,0:2l ------------------------Pl*-- (PR)OGRAM SUMMARY ---nl4------------------------l>PROGRAM SUMMARYlHIN :NONElROUT:NONE (SETS KEY = ?)l\KEY16ılfKV,0:ZY(50):(17)::SF,0)mp::"FRE = ";FS(0);:15:"(I,1)TT%(I,2):D0%(J)1:J!kI1kTT%61940RkTT%(5,0)TT%(6,0)D0%(13)1}k:10:8:"Press any key to continue."kWT1000kRKEYkKEY061925kHRCG14:UF0NIC:50,ZY::CB:SO,0:STACKCLR:SECT0:MASTERlKEY63:HRCG14:UF0EY0jKEY27TT%0:I1TZ:TT%(I,0)0::61940BjKEY3261895djKEY("A")KEY(64TZ)61855jKEYKEY64:TT%(KEY,0)1TT%(KEY,0):5KEY2(KEYTY):HTjTT%(KEY,0)Ğ:"YES"::61890j"NO "j61850jI1TZkTT%(I,0)TT%1:JTT%Riw19:5:"Type the letter [A..";(64TZ);"] for the":20:5:"option you want."vi|HT5:TT%0:I1TZ:TT%(I,0)0:iISEC%(0,1)SEC%(0,2):D0%(I)0:iI1TZ:I52(ITY):HTiTT%(I,0)Ğ:"YES"::61845i"NO "iiWT1000jRK3:12:"TEACHER ASSIGNMENT"2hY5:3:"LEARN IT:"bh^HT10:HT:"A. R BLENDS":HT:"B. L BLENDS"hcHT:"C. S BLENDS":HT:"D. 3 LETTER BLENDS"hh:3:"TRY IT:hmHT:"E. TRY IT 1":HT:"F. TRY IT 2"hr23:5:"Press the SPACE BAR to continue."-----gTEACHER ASSIGNMENT+gIN :NONESgOUT:TT - TEACHER ASSIGNMENT SWITCHbg"KEY20ıg'KV,0:ZY(50):(17)::SF,0g,I039g11024I,32:1744I,32:2000I,32g6Ig;g@I223gEI:1:" ";:40:" ";gJIgOhTTY4:KV,0:61550%fD$"VERIFY SIDE B"=fSP$"P136":CSPEAKPf216,0:60030~f0,LO(MEM(0,0)):1,HI(MEM(0,0)):UNPACKfFR,NF$(0),NF%(1,4)ff-----------------------------f -- TEACHER ASSIGNMENT (TA) --g------------------------61555 enFX-es:SF,0:CB:16302,0:SO,0ex10:5:TALL$;"Please turn this disk to side B.":23:8:REG$;"Press RETURN to continue."e}216,0eSP$"PLEASE TURN THIS DISK TO SIDE B 1.0 P422 P328":CSPEAKeWT500:RKEYeKEY1361555fEY127C10:C20:F10:F20:610454dQKEY3261260XdVHRCG14:UF0NIC:50,ZY::SO,0nd[KEY63::KEY="?"dP------------------------dU-- TURN DISK -----------dZ------------------------d_BL$;" FILE SIZE READ"ddSECT0:SP$"":BD$eit time "(" "((C1(F1(F10))100.5)),3)"%";c?(" "((C2(F2(F20))1000.5)),5);"%";(" "((CA(FF(FF0))1000.5)),5);"%"cB23:5:"Press the SPACE BAR to continue."cGWT100cLﯰRKEY:KEY27İ61270:KEY27:TT%0:CESC!dNK Try2 Both":15:23:"---- ---- ----"4b$16:3b)"# Right first time ";(" "(C1),2);(" "(C2),6);(" "(CA),6)b.17:3b3"# Attempted "(" "(F1),2);(" "(F2),6);(" "(FF),6)b819:32c="% Right firsSN$(6);:61155)aTT%ĺ" ";::"TA";:/aXaSNSECT%(5,1)SNSECT%(6,1)61200qaQNZ6:8:21(QN10)a"(QUESTION "QN")"aNM$"Consonant Blends":L1(NM$):11:21(L12)aNM$a21(L12)aZ91L1:"-";::)b!14:23:"Try1ĺSN$(1);:61155C`SNSECT%(2,1)SNSECT%(2,2)ĺSN$(2);:61155v`SNSECT%(3,1)SNSECT%(3,2)ĺSN$(3);:61155`SNSECT%(4,1)SNSECT%(4,2)ĺSN$(4);:61155`SNSECT%(5,1)SNSECT%(5,2)ĺSN$(5);:61155aSNSECT%(6,1)SNSECT%(6,2)2:2000Z9,32_Z9_(_Z9223C_Z9:1:" ";:40:" ";K_Z9Q_\_4:14r_"TEACHER SCREEN"z_14_"--------------"_7:3_"POINT IN PROGRAM:"_3_"----------------"_7:21`SNSECT%(1,1)SNSECT%(1,2)-R. IF NOT THEN RETURN. IF YES THEN GIVE A TEXT TEACHER SCREEN PROGRESS REPORT.g^\IN : KEY=KEYPRESS.^aOUT: KEY=SAME, OR IF ESC THEN '?'.^f^kKEY18ı^pKV,0:ZY(50):(17)::SF,0^uCAC1C2:FFF1F2:Z9039 _z1024Z9,32:1744Z9,3 = ";FS(0)+]WT1000:RKEY:KEY0601309]꯰PROGSUMd]KEY27ČHRCG14:UF0NIC:50,ZY:CESCo]60040|] QT$::]22:KC,0]]H------------------------]M-- CONTROL-R (CR) ------]R------------------------O^WCHECK FOR A CTRLROR #";::ER%;::" OCCURRED IN LINE ";::LN;::"."M\8:I1E1:"-";:j\26E1:I1L1:"-";::\8:"|";:I925E1:"_";::"|"\19:"|"\"Please remember these two numbers when"::"talking to your consultant." ]::"FREE SPACEHRCG:UF0NIC[毰TURN$[SECT10[毰D0SET=[毫MASTERZ[`-----------------------w[j-- ERROR HANDLING -----[t-----------------------[~KV,0:ZY(50)[(17):::10[ER%(222):LN(218)256(219):E1((ER%)):L1((LN))6\"ERZ------------------------GZNF%(0,1)LFILE: SET UP INITIAL LINKWZINST$(0)""tZINST$(1)"P181 YOU WANT"ZI2SECT:INST$(I)"P181 OF THE ANSWER":Zx------------------------Z-- START MAIN LOGIC ----Z------------------------[sk,br,SP,gr"YBLank,sn,BL,gr,tw9YDRank,DR,sl,tr,brPYPLank,tr,sk,PL,smlYSTRing,spl,thr,squ,STRYSPRing,spl,SPR,thr,squYFLing,pr,bl,FL,grYBRing,gl,BR,cr,twYLT$"RLS"Y------------------------Z-- SET INITIAL VALUES --ke,gl,BR,pr,sm%XSTake,ST,sl,fr,glFRog,star,FRiend,boat,fire\T?CRoss,corn,brush,CRy,mouse}T@GLobe,GLass,gate,foot,dressTABLock,mirror,BLue,flag,bellTBFLower,FLy,train,pot,fenceTCSLide,soap,SLeep,wolf,toyTDPLant,rose,ghost,PLate,penU 24,138, 30,138, 0,255, 0,255WS14,164, 18,164, 22,164, 26,164, 30,164, 0,255, 0,255xS.I127:J04:W2$(I,J)::S9BRead,boat,BRush,cave,growS:GRass,GReen,goose,hat,fruitS;PRize,house,flower,PRetty,potS߃21020,21110JPR߁I1TZ:TT%(I,1),TT%(I,2):TT%(I,0)0::TT%0SPS߃2,4\PT߃5,6ePU߃7,8nPV߃9,9yPW߃10,10PX߃12,12Pp߁I16:SN$(I):Pz߃" MENU","WHAT IS IT 1","WHAT IS IT 2","WHAT IS IT 3"," TRY IT 1"," TRY IT 2"Q߁I14:J1L,SHOPD.PAK,RESULTS.PAKYOށI1SECT:SECT%(I,1),SECT%(I,2)::SECT%(0,1)2:SECT%(0,2)MXbOރ1,1kOރ2,4tOރ5,6}Oރ7,9Oރ10,11Oރ12,13O߁I0MX:TARG(I):O ߃0,10050O߃10320,10510,10610O ߃10720,10810O*߃10920,11010,11110P4߃2002------$N޲-- DATA STATEMENTS -----BN޲------------------------[NށI1MFILE:NF$(I):OރMENU.PAK,DEMO.PAK,DEMO.TBL,SHOPA.PAK,SHOPA.TBL,ARROW.TBL,LPIC1.TBL,LPIC2.TBL,LPIC3.TBL,SHOPB.PAK,SHOPB.TBL,SHOPC.PAK,QUIZ1A.TBL,QUIZ1B.TBL,QUIZ1C.TBL,QUIZ1D.TBCT ANSWERS*MLۆTT%(TZ,2): TEACHER ASSIGNIMVۆSN$(SECT): SECTION NAMEShM`ۆW1$(4,6): LEARN IT WORDSMjۆL$(3,6): LEARN IT LETTERSMtۆRV$(3,4): LEARN IT REVIEWM~ۆW2$(27,4): QUIZ ONE WORDSMۆW3$(28,4): QUIZ TWO WORDSN޲------------------TA0LۆALOC(2,6,2): HOLDS LOCATIONS FOR ARROWSmL$ۆMEM(1,1): LOW AND HIGH ADDRESSES OF MEMORY FREE SPACESL.MEM(0,0)(2049)256(2050):MEM(0,1)8191:MEM(1,0)(115)256(116):MEM(1,1)48814L8ۆLCK%(MFILE): LOCKED FILE FLAGS MBۆCA%(15): CORRE---------------@KچD0%(MXSCREENS): D0%(I)=1 MEANS DO SCREEN IKچTARG(MXSCREENS): HOLDS LINE NUMBERS OF SCREEN SUBROUTINEKچSEC%(SECT,2): HOLDS FIRST AND LAST SCREEN NUMBER OF A SECTIONKچNF$(MFILE): NAMES OF FILESLۆNF%(LFILE,4): FILE DA2015: BLENDS TWO-JB32115: BLENDS THREEFJQ13015: FIRST QUIZ`JQ24015: SECOND QUIZJRSLT5015: RESULTS SCREENJ\CR61035JfTURN61535JpTA61730JzPR62300Jڲ------------------------Jڲ-- DIMENSION ARRAYS ----Kڲ---------1306ICSPEAK1318$ID0SET13283IDOCLR1342CIMASTER1356\IP11515: WORD W/ --}IP21565: WORD W/ LOWER CASEIP31615: WORD W/ COLOR LOWERIP41665: WORD W/ COLOR --IFA1730: FUNNY ARROW ROUTINEIB11815: BLENDS ONEJB2INE LOCATIONS-,Hֲ------------------------:HRKEY1010IHCHRGT1034WH CESC1046eHINST1056qHMM1078H(FSPACE1146H2PICKVIC1158HKC49168:KEYBOARD CLEARDHKB49152:KEYBOARDDRSF49233:HI-RES SCREEN OFFD\SO49232:HI-RES SCREEN ONDϲ------------------------Eϲ-- STRING CONSTABWTUF0NIC117/C~P0RT(UBWT1)256(UBWT2)SCKV((((UBWT2))192)16)49282cCUNPACK2352qCAMPER878CSTACKCLR54915CFX947:FIX STACKCCB62450:CLEAR SCREEN TO BLACKCCC62454:CLEAR SCREEN TO COLORCFR48406:FILE SIZE READ(X)(X256)%BøLO(X)X256HI(X)=BøVO(X)(P0RT)95qBøFS(X)((111)256(112))((109)256(110))B8Dz------------------------BBDz-- UTILITY CONSTANTS ---BLDz------------------------BVHRCG2203B`DISPLAY2362BjUF0NIC2051CtU-------%Adò------------------------EAnù16297,0:16300,0:230,32oAxù49162,0:ENABLE MAIN BOARD INTERUPTSAò------------------------Aò-- FUNCTIONS -----------Aò------------------------AøR(X)((1)X)AøEO(X)((X2)X2) BøHIREEN 10 -----------@4NQ1"@>N@@N-- SCREEN 11 -----------K@NRSLTQ@No@R-- SECTION 6 -----------@R-- SCREEN 12 -----------@RQ2@&R@lR-- SCREEN 13 -----------@vRRSLT@R@Pò------------------------AZò-- INITIALIZE ---CREEN 6 ------------"?:*Z12:B2(?D*F?*-- SECTION 4 -----------d?*-- SCREEN 7 ------------r?*Z13:B1x?*?*-- SCREEN 8 ------------?+Z13:B2? +?\+-- SCREEN 9 ------------?f+B3?p+? N-- SECTION 5 -----------@*N-- SC THE B R BLEND LIKE YOU HEAR IN THE WORD BRUSH 3.0":WSPEAKB>(`>)-- SCREEN 3 ------------n>)Z11:B1t>)>h)-- SCREEN 4 ------------>r)Z11:B2>|)>)-- SECTION 3 ----------->)-- SCREEN 5 ------------>)Z12:B1>)?0*-- S"#"2,"Y"125,"E":DISP,"#"2:Z61100:Z6T=(DISP,"#"2,"E":DISP,"#"3:Z61100:Z6|=(DISP,"#"4:DISP,"#"5:Z61100:Z6=(DISP,"#"4,"E":Z615:DISP,"#"6:Z65ČDISP,"#"6,"Y"112=(=(DISP,"#"7<>(SP$"THE LETTERS B AND R GO TOGETHER TO MAKEEEN 2 ------------^------------------------*CSP$"SOME BLENDS HAVE 3 CONSONANTS"*HNF10:MM1:CSPEAK+SP$Z1$" 1.0":WSPEAK:DISP,"#"1,"X"20,"Y"8016Z6,"E":O)DLAY1.0:PAUSEn) INST$"P114 0.5 P118 0.5 ")Z614:DISP,"#"1,"X"20,"Y"80Z616,"E":SP$INST$RV$(Z1,Z6)" 1.0":WSPEAK:DISP,"#"1,"X"20,"Y"80Z616,"E":[*SP$"YOU CAN MAKE NEW WOFFERENT BLENDS")(NF10:MM1:CSPEAKI(NF6:MM3:TBLNF:N1:FC4f(SP$"P87 0.5 LISTEN 0.5"(STD$:Z614:112Z6:25:Z1$RV$(Z1,Z6):P3:(UBWT:DLAY1.0:PAUSE(WSPEAK:)Z614:Z1$RV$(Z1,Z6):DISP,"#"1,"X"20,"Y"8016Z6,"E":AUSE!'Z616:AN(Z6)1Z6999''_'Z61000Ģ14:20:" ";:DISP,"#"AN1,"E":1855e''------------------------'-- B2 BLEND 2 ----------'------------------------(SP$"YOU CAN MAKE NEW WORDS BY ADDING THE SAME ENDINGS TO DIHE LETTERS "(DMP$,1)" AND "(DMP$,1)" GO TOGETHER TO MAKE THE "(DMP$,1)" "(DMP$,1)" BLEND LIKE YOU HEAR IN THE WORD "W1$(Z1,AN):CSPEAK&Z1$W1$(Z1,AN):14:26(Z1$):N0RM$;STD$;:P3:NF6Z1:MM3:DISP,"#"AN1,"E"'UBWT:DLAY2.0:P(Z1,AN)%qZ61100:Z6W%vDISP,"#"3,"E":Z616:DISP,"#"4:Z66ČDISP,"#"4,"Y"112]%{o%Z61100:Z6%17:9:STD$;IVS$;DMP$:17:9:N0R$;STD$;C0$"6";L0R$;DMP$:Z61100:Z6:17:9:STD$;IVS$;DMP$:17:9:N0R$;STD$;C0$"2";L0R$;DMP$&SP$"T,AN)$XZ61100:Z6X$]DISP,"#"2,"E":16:16:L$(Z1,AN):DISP,"#"0,"X"14,"Y"118,"E"$bDISP,"#"3,"E":DISP,"#"0,"X"8,"Y"102,"E":14:10:L$(Z1,AN)$gZ61100:Z6%l14:10:L$(Z1,AN):DISP,"#"0,"X"8,"Y"102,"E":DISP,"#"0,"X"8,"Y"126:17:10:L$:10:L$(Z1,0)h#DKEY63:FA:FIXARROW:AN(AN)0:DMP$L$(Z1,AN)L$(Z1,0):Z13DMP$L$(Z1,0)L$(Z1,AN)#I20:LE1AN3:C0$"3";L$(Z1,AN):DISP,"#"0,"X"LE3AN3,"Y"150,"E"#NZ61100:Z6$SDISP,"#"2,"E":DISP,"#"0,"X"14,"Y"118,"E":16:16:L$(Z1z#   !Р! βi ΠOԠϠ ŠӠųɮàŠ!͠ŮˠȠҠ ӮŠ ĠϠ   Ġٺ  䠠     ӭРŠŠĠ   () 1986   Ġٺ  򠠠   ˠٺ  젠 8 ȩ҄`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܅`L 8LS S T ޾d   l m  P`67 `l6m7  `ɖ L  `_`   `  ' ` E `؅678 9 ,R,W,P@,U  `5H h5`ɍ,,     i Lgi# Lf i !"i"#L̽(ȱ) : (ȱ) :ȱ"#ȑL=`Lռ`ۼȱڼ޼߼ڼۼȑL,ռ` `WLF`5`$ H`0(),- : )-Lc ߥ8i ! ߥ"#,- !ȱȱ  ?' L$ LH L L L L L L L޾ L޾ l6 l8 ll llſlǿlɿl˿lͿlϿտLLL LԿӿ`ҿѿ`LſLLhhHHL9,,(`hhhHHHHH(` (`rs L L L L޾ L޾ QL޾ e L䍂L L੻^DL6荔78㩾_BޠnCuC h(`(LРΧԠŠӭТӠԠԠ̠ˠήΧԠŠӭЮϠŠĠĮՍݩݩoݩݩxݩݩީީߩߩLލߩčݍݩݍݢ DVxy󩔅݅ B݅ͅ B| B B B} BLBB B` ⾢2DQ,D QDLA04ɷ 8ɵɤ Ѱ i+ȩi@8/eeݝAݜAL@iL@#UVdlê:xiVȿe$H 틕'39?EKQW]ciCDտ@xHeCɝeCɯ CLJCCLJCI eCȅCLJCLhͮή ўA @i@ @ @ @ @``AA /`ɝZ"АR ݶAAAL(     nby`ɫɰ` g RɫLA٩ ӥHHvHuHH ALhhߚHH`Hh(`Hh(`><,<< """"" <">8`"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Ӎz֪ժժժժժ֪ժժ ֪ժժժժ֪ժՂժՄڪԪժժժժp  00ժժՊժŪՂժՂ֪Ղժ֊ՂԊ֪ڪ΃֪ժժժժ֊Ҫժժ𜜜֪ՠڠժ֪ժ֊Ղժڪժժժ33 33֪ժժժժժ֪ժЪժԪ֪ժժժժ֪ժՂ誕ՄڪԪժժժժp<x0ʪժժժժւЊեՂ֪բ֨ժ֊Ղڊ֊ڪ𜀀΁ౘ֪ժժժ֊Ҫժժ֪ՠҠժժժժժժժժժժժժժժժժժժ֪ժ֊ՂժȪժժժ?  ??֪ժժժժ| p|p0@|ժ֪ժԪժժߙ߁ϟN߁֪ժժժժ֪ժՂ誅ՂڊԪժժժժ0|xxx||xڪժժժժւժ҂֪ՠڠժ֊Ղڊ֊ڪǁÿ᜜֪ժԪժ֊֪ժժժ֪բ֨ժժժժժժժժժժժժժժժժժժ֪ժ֊Ղժժժժ֪ժժժժ| x|x0`|ժ֪ժժժժفϙс֪ٙժժժժ֪ՂڪՊڊԪժժժժ0lpppL|pڪժժժժȪԂժʂ ֪ՠժ֊Ղڪ֪ժÁጘ֪ժЪժ֊֪ժժժ          ֪ժժժժժρؙٙÙ֪ՂՔժժժժժժժժժժժժժժժժժժ Ъժժժժ00֪ժժժժڪժՂժժ֪ժժժժ0 0pժጘ֪ժժ֊֪ժժȪժ֪ժժժժ֪ՂڪՊڊ֪ժԊՂժժ֪ըժ֊Ղڪ֪ժժ0 03֪ժժժժժٙƟٙٙљُÙ֪ٙՂժ 00֪ժժժժڪժՂժڪժ֪ժժժժ0  00ժ㹸σ֪ՊЪժ֊֪ժժتժ֪ժժժժ֊Ղڪ֪ժԊՂժժ֪ժ֊Ղ誁֪ժժ?3> >36 >?3֪ժժժժڪՊُg9ϙϙϏ֪ՊԪժ |֪ժժժժڪժՂժڪժ֪ժժժժ0 |p|00pժժժ֪ՊԪժ֊֪ժժڪՊϙ֪ժժժժ֊ڪꪕ֪ըժԊՂЊՂժժժժժժժ֪ժ֊Ղ誅ՂҪժժ3333 33 033֪ժժժժ֪֪ՊЪժ |֪ժժժժڪժՂժڪժ֪ժժժժ0 |x|00xժժժՂԪԪ؏惞֪ՂЕժ֊֪ժժڪ֪̇̇̇̇ժժժժ֊ڊ֪֪ըʢժժժժժժժժ֪ժ֊ՂժՂڪժժ3333 33 > [  p-TU *         Հ U  ՀကՀ UUuUTU**  ͕݀Ņ   */>:jj*(" *UTEU!Հ @@P@@ ՀՀ  @@PTUT(*  à ((* " *UEU쨳ΊUDQU  TU  *  Հ    (  ((* " *UDQUǕ煝    UUuUTU  ** 抻ₛՀ Օ*/>:jj*(" *ԑ ՀÀՀ   @PPTPP@(  Š@@PTUT  * * 쨸ࠀ(𹹸Հ   */>:jj*(" *ԑUDQU Հ TU  *     @@PTUT  * * ( ((* " *UDQU쨳Ί(Հ  UUuUTU  ** ͕݀Ņ " RȈ Հ U  ˈ @PPTPP@ՀՀ Հ 𘀀𘀀<   ฌฌ󙉁"ՀッダՀ ŕ  𘀀ฌ<Հ ฌజ<  Ђ <`U 4҂  y  ʊcՀՀ   <     ֪ժԊՂժժ֪ըժ֊Ղڪ֪ժHTEKNYLSNKENEEKSGEGDNITYPEDETEYTDKETTRSKENKKEESEGKKYENPWEKKKNKSSENSTKLRSEMESEENWPNTTRSYEGEYTTEEREYHNLHDSEз4г0г3д7KSEWGTKKDSKYDEDSSDENSONPTSUNEKг2б4б9DMGETKEEEDRRWGHKTSMGROYRKYGSEENPYE٧EYCNDTFGб8б6б2б1е4е7е8з4з8и6и7й5г8г3г2г4г5г7г9г3г7г8г9г6г7д5д2д001001234567892030405060708090ANDBKROWFREDPȁyezz!{{ |n|}I}}>~~+~π6 SKZWoᇈ܈@Չ9__ʌICB 3’4>Q??@s@@A~AA"BBBxCDVDEFG#HH+II3JJDKKZLMMeNNOO?PPQBRRSSTTWUU~VV8WW,XXYY-ZZZP[[ \J\\]{]]-^~^^^L__P``aRaa bbbCccdjdddCeef}fggg2hhhmiiJjj4kkk^llamnopqqrrstytt(uu>vvSwwxxfy@;Q !"#C$D%"&&'()*+q,N-g..7//000x11233=445y553666e77888|99 :::=;;;F<<                                      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#лLa89YmeEP @3*(F5ExUZMW7iu6ҥ0K4&[<Mu25͜SbbuOY4YE A$EcTdG-3W\E/JX{U6"FY,[ve2iI[drRDYARUT9wJYP2c;dAz)+斤q0h25n ʹ:1ó RDMyWڝWZ KM6^ib^d9/˩},-Kי/^s#R Vݪ3\ن"JUFb%3B:8Wo=i1xsf1WVEN9;YCgPFɹaJU8KLnu]cԭ1{tVքf[-D(Y2c!XJDi^LYE%*UW$9/˩},-Kי/^s#R Vݪ3\ن"JU dv[dYIʒd)KFT㕕$>W^k6^EaEP a,Tj0cn9W ()""'{#|#D%*UW$gQ4)ԜZQRS;Yje쬕&2Gl.YQ,QidE*EGa\TK)ea&1uRJ^aYK:y)udc'UiYR&YB*ɸvy3D[lRPMh7J :'*QCk?Gvu VM;)`6QB5-'fǚձVRF.jIce@y)5n\r-%ِ{ը$^Vފx-nTF@a,Tj,kH`2S+(,$L;EwjϪB5NQu7 *2ʯ*rT8'(TjhӶ<**Kt?̍Ӳ*5NkSƭsRGk6̝dB;ybUed%gw暡6QW[EWYY.ud)ihR[ktqqeE5fM$b1UW2N9q jnxx5_լ~MW9k5F^*Tq:).D$G3,t)K *,k⮪vw۪$h; % - ^Sc|o:D (U@mBM Ry!YXw*WX&aj9xRnmVa*uDeשkFҪ>qfj%uD9MJ\FtNQ5^EZxnVg!S_•MMii *^d$לeٵ[Gw7V6f=AF[nC,ZU ye]CK$F}*TX1հㆬRu 2l95!n5s2*U"fMښ=hkأQRPWD Հf=Yn"n縹%aUʒCK!ו&_!RaCEɊ ,Z350رӴMҠRV͏+-?I2Rգ6(JUMt;KG}Xdmi,VRAYK7fhtFU*TВa%/(,紸H;ٌ7NqU*Mj44[\#2^sK̸kɒj YݜѼvZBŞٍP`7|"u(U XɨDBJG+G^^5{E̒aVuW\ZIGIvdEhvVfGZmM[M֧jL{DvbEP 0RL#}C 崰'||–9cӊJ4+))4u欼r:2&jSI=ܪ6[4ü&LScH9KbJ1lƔ:4jbrf!%R"=Pjq}V^:xհYJLӡeVkQ|`ifqنdXhe!uYE,!F4Ev)jPYD ՀzљKEgFna`]9=NBO&+Tjlncڈ3S9'"՗06YZmԸH+M:Ӥ玤 њT"i bO$)LL-+0t"JUFɜipY-ebQ܊S5u+C֣NY:טTKףS#B*.v.5DUaKg.ulg޹1\Q,Ce`FE׶t\kVC-9iJ$0tcQB5 P{Jv0u,Tj`ԕ9uW֣ SyO7jӉ8D B]THဝGZ>i!dDmhZQSUM4U.QT%oՕ":vPJ)Ic&ƙ6Eg4Umb\r97l&RbɊp'/´Ɯs)V7Jɘ()-5b.3v2 cr+]brqXqq Ɯ*C;k4>OC>IsN[;]ZtXD 0.#=ʐmGC-jw꺭1jꔱgd]-NG:S7;*dN:L9yAd)OTQB5YT=ZvNh=uFlT)H3L34¤I:Tæ`PLҤ+5H Z#r&\k̛iwr{­r+qƭnJ.4܆""yWSR-eʅS6ڙݗ `PTe2(B-I+#ӓ$zp۲8ܳciwFf]ie#;JtU(uG;Ui^=; xu4 uhҙ]*`RzV"L;1N7kH+ӤE,0{\eIjsu8+i5Dx\4J򉥀XJLr7Y d6xU#*ZvNosZ?Vi㈊U# iTIxgGiʢv%xyԬ^]Vڂw=Y^t#%hVՌUuF?FiӈUݘbәrCU{JKf7')8»dhXZڭD|Xڪjkc.+1Ma:ŨƦ-Jd.ZaX4ZaBe1zʚ'E+jd8'5MdT:PFKK*o=RX!3*ꖴ #V0(+_1j:+Lgih:Ť[f,D#QVQXv\8tBtJr1+5ZpNm(lqH*EҳqIY7x(4lvCٿk 8'/>%b"iW]jÌ#Kr18+o4Y1t׊j\n*(Ȩ,Tj @B%)LtDE 'gPl+^ʹvƬ܆&tGa*"bZVhUԼ+Yղ[֚{:f&8%$v|xة"JU`T̴^4H*+#򕴐WҢG9iKdd-$),a0 (U0}II Q#횹kllD=3*fP+^ްn9 ӆa&t5Ja*R,j3o\E ܘv{IZp5%1=砤R 3d \"JU1.%RstXʱ+ʗsl˫I0-vì63 :JfmQ}*(ֳrBsJJ-)MR`0VIV2Z'|cl%C|#*VR,+\0fè2:eQ*jbDܲhJEÆ+D9j.O唫Iu$5NV;fSN^ܤqOYU2Snlv{?춨Mc=Z7̕Q]WE\Э!=IWw{b'ɪMg►XeHS̲M ta.IZX!Arx}V=:IZ-18'm5Ml2qJT*^j1/NT9ڦUJlDU2MUQn.X%(XE,v}jUIJQm-"ɹڵj҂]ƫjs/حUݵ"h<ʭSGMQb*̭==fҬ,+bVHR \M ٮt1VѥT[Kx]ʙxThآѧFm^]guEx!Z'e)u䙲8 {#WȪ.BDv"DNwc8+11l'՞f2ISΜ+́=7,tk3\)µ)RpU.+.JלۆhCsj6)iۤji7o 4+ڋ4 ϻ9Q˼4#Õ$f$esז-fFVyb暧ekQ*i[Qhj-ESFIU͈ӔgIi:C֬:ZhFIF8T1+OuҜ##Jr5 E+)ECk⌤$ I*R&EP (un,xUI[mQg)~uR]H7&,U_ .QB5Dik4W&+Q,sF1;DŧɈ{!њ#ꕕb+ejDmM$a,TjP A18kZ#oUX}ꬬUҖgIj0J:+}문&MܶIJuq+^(܍:gO޲LYKI)M^ld#R ^S%{0 '*nmNkEdd[LKڔ{6&"6U_KSQB5Jmi)I/jURJS$WՒD-6m"eEP p@7!X1-3[̖+WRYq2ު[IU95E0\ږR-M,ԥoV0UӔHe3u"MUJU_k7|J]VqI#V^ęL٢eUGBjqJg)WIQv[ZTmijmWJQTe:UWYRKOYU͝&5g5W֜ԜsWӒmK&du-k7olKВH/QcVʪH]4誖sJY_ kS|,Y[l5fvOZ%YE EP tƀ^Eߋ {3|oN MXD tzb񉊍4+.(nq{ܺŢr˪ȵ,.jלRΘʰ d*Tj5q4+ʀDâڕR1j]2IV+KU",*-2tHs+)K«N*٣J(-C,ꮲъ0)bD<6inL[VObԼ}F) V&vNf/a\ѸEiZXTVUWZzYIZ]yiyhՕѥWkTYuI[yfsPI.9cKn[L-Μ57:sԢrKs9ͩܲ6cdKE@$BDK`+el^Eߛ P\e"JUxdmhS[DRYAVDzFS %qLm7G9 X>tUݥf!iV g=i^^wĩdj2OҘ=I*bd)uwSXɑFۙ1},k 964fnX$;NK”ݪ `8S4֒X9<ʊb-›8,w]2X\Hb #*9,Ʈ7R ūM3$.XBmtNk(#6ժ*[M ΥRֹ "JU#@,Tj8 ::=qnIB -)3Yی<tҺ)[V ƣ$bhֶ$1=*(U Ɣ`9%|" a2űQf*sV^8z49I1ll5dpLqVܒ8YqKfd%Il=OQc4muuuʼn e'*XP4hMCjU' Yv4F!*j4Mjc$utSšdʙ] kʌȼ(q#t$, RyV9qJ^Vie9ywxPG}EX^n])uee&\ZoMa5EP P"E:%Q4B춼TI֕ѢH{Ʈ9#P딸'Bݚ⑐l{B&)iD+RъjT7qP iG*Tj@+QSƫ*V (u=7WWPh9A*^=DիiN哕NyMJQ:K&@׬B_*5QB5+*OTk7a{UU{ڪKN-,' ML 1C`*TDeEz7:QRhJDaY\EG}K\Flꞈ0 [1|+J/USdiiuՉ[VKR'/I Nb-մNUWB8iWm} ]7 ŇG2jdql$-sN,ͦ:t,X*FHhzBXfވ{d9-x$&ӒzNFb9InEΞ 9kNf0'eѐ#G#xRYI{07iAU֦eu![# p}P>nIVʦa9RXZCcsb]o06*S$'Q٦㞼%{V'ΩZ;ɃlˊdL]FP >L3+`4kcj3<򭈹IGTh'AY笰1X2,ՃcqNWE%\9ګqh:gƕuT6avBڄIK&U<[RHEv#nfiڍx> 8&-=`Nm1T2tkl/5ŃۜdnsRS,)IJM'/5ESҜ IrZR(ukqvɺoI5I'JV*DiLdei>Y҅&gak+9z$LNr'r☺Ρc!*"JURP3fX֘-Qjkq11ۭ<{44Is'+J㞢M:RnƌDՄq3UHT(z@*'Ōj✼'ssCզ[t8h1s⬪0vRE3MJC,/^E8zULU#M5ɴaiF5n(T5RhSn]Yn+'e;+Arjȭ|fT#ɛS*(Qg:Q\'DEX&8tMlI Q5++L* ww^(+eMPnM$MLjUc.F]xmaQuEWkjP8a cQFMYV+4QB5iIW ,^&7xP\nkp3(U $ņkN^bJL:EI5U%v՗حcڒJFAK*T@@@1VTflTњIS!IZBEɪP:'+]e.z;ʩr&;ͽ).)ӖȺ<ג5kKH(9#3<(ww<ǬͪbqlM]“> 1Okֆ42,]aiI5S=?m^U70\[RF7:Ij%wՓԩrNVRZ=yIfkԵFHӵjW߼8iC3lQ8ME7,VTGa@anV]s ZJD)+%[V>im.kՎuV7aNV͆k9y[&Yy٨ ]ʦ9:ɚc'>Ƭ,Қ|bY*ffNܛ.qOVhzȽiB"&a~%<a0+>sbYԦizP9u4ʜ),sT3)kR,Kži,gT}zmLGB9^q{9-[-Kk4r+'RPd'Ͼ]* Ӛ7,+Mn0)i2˜놹%C]0%O<7l7'lQW6eW9Sd3hL``9uV1W]2Uet6.ehsڴG)B=I5z$`RjXj'o)T3gԍsښS2kq˘h,Tj`$Q G*D\C`  ڒ4ꈣ건*# j4O={,,v+1٣ʒ. O~ӆX2eKR5eɝB5 `R)Mժr^KL{)1麧hd➺{ښ[:j/i,DhgjfL#]1UdaiT?0B $SW:d]ЊU*zWShUuO=SF] VUe Hל1-(]SڼBGH<P֕6챵ORZ4^I['õ t*a PSZRc˔.L5Z:w <\ļlJqZ/ՕJglʍS(U2a}ʘK)Sj,7Mtj4\YÒpb(Tj@͑X9Or'WW9YRfeupvQ.UfV[d9Uc4fhՕn3vP^Sng=jm,=qҳ%7FW>LR,YٰEbu#ܓ(VsO>rxH5#h2h(ѓiKF^=-Y앶lճWޢJV.^eIlYz4FgX酅+:ˮlJv&-&i.ݵMs9`6VMVR>I%gW%VUN^rxWYuY]e9gIt1嘥Uڔ]jLAS*Tʻ@XD(``l h|͙XĜgQNZBYL>ifYfe9VuXVeV}ZYUUb]f59Uw)e֐kD]S)jSf5䵴fSjZiK+j=oU,IG7$-HXg( \3p}>Ӥ`0Il$#+qVӓjdUOڼrv9IS$({N9uNނHTO]ej=eFI'ӥUOocT3n6̙׆ʼ4GkSu KT5.v>Mۧ!RABxJR6%Y4S]mImL$kuGe-)rbd4&ω='VH[IYu%%eՕ)vWҋ:[YIo*l%=2uqR$FzeIrUkWѨ٣IE&a4\L,L*5:an8B뤥 M H"uIWXVjENF99EΦV%GSf^QNYGyG9UauwfQT[zYSiRe`L̔i,>m9UwU\%1eVsT9eQ"ʂ<2*8'˾˼,.񎳲;*r*ʹK>.ծ2撪T*(U^R(3+e+87^95-nKcԴ#9RӲ8J+rJrT1+͹RˬUӧ)`4faV|f2l3pPƦIKl&qvyEhʞG[4YQ x5SsFV=KMy9=k- [U*WՋTU:9uԽ0K*̕SJ׫0WI}oR9(LMrGf2$9[&(YX2g77aɜ3VXrj$+,4*V/_ݒRѣ|MK&w%ˇ,]<tےʼ*K&ɔ.3hFTǭ#v-R8n:T+:RЪ-C; ͨڂУղv }r6-J]Sԇju52",CH<Һ2uJZɪKDvISӖ6 NM4*M@.a(=M[(øE9G5[=nϙ9u!T#QS[KmQ%YFDV1ew.GVk[}u*I5*vG*ͨ2rh,Z#f6k4iCIbnJ#B1hpK28'iU;Ur3VY k5(+UrFqLٕsgW-Țd0)찵beһkPU)'-^Գg&Q˙M%*Z1e)Ŕ='gܚI=jja ʩ͆-.d]Je n,4"bHLݪ2`8U4cZH=9vpJ J8%H6?]3|E+qVW)Zm]0EI6%n%$欸 8jEcJ˪T)%8ٛ _r"XrjOc)-.->vӎUC;1Jh,Tj:c@aZE_ k\ H/7?dJ2=ms FmE; GRIG@i3#j$x$䬑Z*FB*8*j%#it8͍ҭ;jKʰiHr4o"JUz`@ hV)8%ss|̽J J8%H6?]3|E+qVW)Zm]0EI6%n%$欸 8jEcJ˪T)%8ٛ _r"XrjOc)-.->vӎUC;1Jh,Tj:c@a hV)8%ss|̽mU:+-uj4v̵v#jnsJcL3JVJ)ƍ¬e1쎳D,({6e٣Eg7<1%rrk{&ʊȥ,:fK3L*e\7Sv P6dY[q[J'-a*&5i1ExYaFSFmIi>% I*6Y:0F4@_ hM (O 42+}Y6{)OjZUԩiVuUNk%gU^^VSriimiueVѕeZZidiC>圵yDs4M!]Y_kg\"JU`0Դb4{- EJڎ0 i;˜BubN9#I̦j3چ|J6)i.&L+ݡTMpX_ 0|BRXD x\rNKst͹-ɽRⶤr7ZJZ8'#Q⌴iD$k`5ق;d5M7E-P=.+SHSҝO4P?+)Bl ɝ8Osga*GՒ[JE_ k7\"JU(`H.G\bkIU^gĹdixՑRuFjmN\S {%)yqd5p0\a8qWj&Qf[gŽo$1uF3J=*\4QB5@ݰGJX_ k7|JFYI%gUf䙩QFWFQKx.MZBiaSAEM)Vf:qBv Ebd5ΒUkVbS/iMs%Nͥ8jKFlCC]Xe0FZZJc9Y㖮8QJlUDMV&a.ZU4۸xcfrBe>r VLXr]tu^r}I{0)'mNųP2fΨd ~R#!i_wT^5iiW$= U1*/MI(1)|Kc${f\ɛ˘)^\ꪄzqB" 5f#@ӦT cd]iNze9M)^eV[x]U.]fVhN՗R9VX}YSKk{,=xv˜'rps.2\(+)7W'O*'"e,IrlkBɳq٧ʱK=*R<%'kd:h.TjSsmnؽk`QnB īdγ Z#*Lk*7YѺ;MdmU,;$lɪ3'mUU7Ή{V8'9ca)#Q ɪH#3,;QNTYU9QmQcDZ&2JѼqYEne5ջїiP*[nS"ed1;Z,ULUIbe$#ME4v7˺VԣH{u9+%#|@\2Q 9jhF69@qݦ )kvgDϹe9=e [r15v))YGt{6-ikOBR%Д2>톶0[nXʛc+Ezx&c̱wgn+]Y|EE:uF:cQH|ꖱEKٻdUx,GIxgGiʢv%xyԬ^]Vڂw=Y^t#%hVՌUuF?FiӈiZ]74\fK(UNڼdO=Yq*9d+VW\]uNނrvW=eF==Y՜ն]sWߢPLMC5uL#Iה6hU2Uny8:HK'|Dz9IWj$Ϻ+])#l$*Vt꺫ZAf<{N9m>@+-g*SL)j6:ŧh-]ccIUf(O\kXD (ZҔL4HrW+)4ҭfW)Җ5z V٣I3fzxCkڬ"vRKi(R$cITfDBFI7*z7\a{XD !SJٴ9'QݖhٴhQsWRqF-YYMxFSkNUK9Mmzuu1!fTH.s"Y,+Gs粖%jFI|&k ħ%$bvSϵ]U#+4bW, E+|B\7pc1UVIjVZ'Tz%i|],I[Q$)bꜺ娩"3ʚc^kjG#nZHץ*\nOܴjM9IY"$LfVNV ;E]jUJ4n&.qJר:NCa8LY4 RLj ` $1QVդ';I3*$-VԓW+4ҬaJHe.#'ѹSU#-&Dq3ʤK}NL7٥:Ԧ>PĢI.:a͚ ڝ͒|ˮs,Igp:']!Al) 䮺6~\aN%F]G3`(V9ʓWD;Ic$\&6vNs9YjS6vVjD;Y]+nxJ2n]vPTq6MSA޴ݺziBٚ.+5#OZٕCȢT+IK0qسn t% b0Z4 Ck] וItũ bE.NU2ݨq p; UM ۰'sl@zґw,kۆ<#]6e.SيtgiR2\oP1iJ*+"1/],61ZJ82IŊ$LK<")Nr;Hǧl{l9܊ۺa;(UBݰ '9آ뜬`sҞ"I{*'kĴ2$qV3Q;RMUH5Us5ISפiXL]1ģ本TsҖԶIKך'+J|c"*N=MkB(7 ~IcGMa9qNVF=ySTEMSaQƐFcb=M9D4glM`)v#@`B+$xazEg T;*+m|2iHʮJ sʚ+̻)k/s(5􉲺Rݽ'J3m,Ͳ, 81Lâb>NVފ8YE/nlcgLUFĖ w$3,$I7q$#]ٵxTEQ ͷJG7TZ#]Qck|tAͩ5Q&Rz"ԞPYKyV*UQ"VGI&e$%Z7kqy VD]2B1͊ O5'n!z            %E!QE-bѰ8+K!R<.ssldΩ29ɾ̧>.LsJP)i).C#`0\fp}t5qҔYJU9Ej䥺ꓗꮖOSFN^] %kd1 C3a>ׇhEͨ43Fsj7 Ii'$iYEfIZU8IadYpYifE!TGewZcyqpd$wۜmqZ]u'jڸԸiR9_[mljNu(5*kc{㫬赗bST]mD+&LmQ "U1T&&nW%=YNd%fUՑO^F^E-2{UNUע.;W[n}E U-5f,f^T1y6s5*l (25Sbʮ2Hɉ"%&ʪKИ.C6wZ%hkb:+5봮&XNJ@j3HҔݪP[rWmIRiI[FvGfqw$Kjӑ\MF|y4QڦhIyYUf%nGUkUעFVUds\[{V]]XteEZݡTWMp H=:dHP][S5نc4SR[R_N]$=+ٸԢ0,gv5b\#-#kQϐitF]()yfeY[Ғ宭[7qg%WғjqN޲^u"UՒUZ0õF8BS*T 9GHLé2[U4c:B4L Ҵ#)͓0.”2Sx#N4J;*ĻSgrdV.eJ4ǘB}*T0f HY* 1mVZjJYV$1WIL!Uv[s&WFiΙTudfJVّ%VcFKXMieHb9U!vx_S}.}4^v; 9Hb1fe&YaJNr (cDňiLeQZ,nQ,nVWzD1dXL鑄eaFF-EvT1{lQ%1G}Nu!GfUT=4(JUJ5tV9T}a9 QfPf+_c"M/bKIti.9*dR;Ʈ[fULjURYVFZa}G*kEdiE,䩲TגT^J^:sgmy9djUdΘd%uGJIJRXUR!VhffV*;]QnVQEdd"-G\MnY+V9dEP P. (Eߛ {S\F"JU0`6$QSNTivW]qž]eMK7#O)ak=ZXţS&Ybk5a4a%g {Ԭ'1I;z7߼b]ݴJ ^+::tƫH4dܦaSf)dII}f8AdDEYJܕDi)WmYUnguEYz`^P2iS&*LUr2WdmL MSJ$d yWoZ1} n\)r 2)3l{^yaMNZgi9Imĭ+w!RMNZJ69iyUבE\vW[gpF]}UBu uV1u6VT8OS ~*DN.vNrYEi$w͕8Q5j K_/C5*FVը(i2Val"MX. c*ζ$LEF6JJ%~43O.J_ s"9Trgczz`ɩ'N8|Jzʙ*g6xIIbꚡP ,2:tCkAȭBkJr\:r)HC-:N(4  ,&tL%m6e38jc2w+K;4L}"j{6襫3$~PlRQHb)(U ʔE`l: ϐPt_Kѕ[;Vi㈊U# iT'k]]jl5 }V5|)ZmǧfR@S>H#,.!̲,UG#;BS$# Yv"UN֬JV9esjW{JllEbYXEEb-Fr ޔdƨ;N#J2rɺ+)t*5,IL6jʋ(U@PRnRڤ:2hɕI#u ^XmHCVM)EӌgKnz5|ɊGt&#Aкv祉"JU6 !F6L0 БdEWu~>Iu$5NV;fSN^ܤqOYU2Snlv{?춨Mc=Z7̕Q]WE\ЭE,0{\eIjsu8+i5Dx\4J򉥀XJLr7Y d6xU#*ZvNosZ?VU7{ta pl (U&JX:iYlᦥXґmNjd>ij٫lSW]Y]Nkg )J6eRp5RK!j-EP dŞ9hR39`paXD p@'6m랸GȮr)Fꦣѻ렦RLӔ 2BEת*u\mfkXDP*5'fx'3ᝰrI3ªmމ2ed4_(sFEצ2Pp]D-R S cIu&+Egl4a\<ٝrnG9ejFY֠R`<P Q%E: \.B2XD @'jԭys{$͞x)rnSط 3Mn?y(tJsF*-E*GXTl"kެ 7u[3"+els.v-J:7'/m6RBjjv(Is"%Ȯ|VEvZe:en"a(\$+ͺΩz"9jK9i,ʒfزȩK0-Rs& WuD …0`( PQ-u)̑euOZz=i&vd."U 0i)`XsKDsƥhTg`  Wei МYbS#IT[zZC,Ikv5'kMuTsRgjS;V)ꖾZUlbTiRihJ81ptoDܒ=+ǚ2K n,=Ɉ-JL1`R!rJ69-y*dHLaiO2BYtH*Uue EfVK]yIYIm&YR4T9#3p,FE9yLQu)f{U(U (&UIll0ωrգ[3'=5prR<7iK Yۣ/'SqkLŢuZ1 LR*rslhM-WHE)FvfYPvx26(Ue SN$5NSVI&J%հ 6XDۛ)`Pln3R4E7NYla\g%Efirݑ$W)F]&7YUtQVzQ'JD&A}*T@0T y:\ak2XD ՀX&OMt>i3byEWIi.uVVdyYgED[HQmqZSD)]fExkmJP+icQfLոi27㢢iҍ)K7*X|c1*(U ޅ ];+`GWf pCJP@)%N2BR8,sI=`%H6#\S,pM%ȣΎԣIUJҖ.5*ZLr$kRSɑe8V%`M3`&7"JUg A=e#qtUV:rsWYyOa]=1wU\uZ|sK}, U([4VXABLE!":61150 ST3ĺ"SOUNDTRACK WOULD NOT VERIFY! - BAD CHECKSUM ERROR!":61150 ST32ĺ"VOLUME MISMATCH!":61150ST64ĺ"DISK DRIVE ERROR!?!":61150DST128ĺ"DISK I/O ERROR!?!":61150c"UNIDENTIFIABLE ERROR "STvUE"DOS-UP,A$4000" 16384 H > R >> UFONIC ERROR CHECK \ > fST(246343) pSTı uST3ı z::10 :"UFONIC ERROR! - ";::ST:? ST1ĺ"SOUNDTRACK FILE NOT FOUND!":61150y ST2ĺ"UFONIC INTERFACE BOARD NOT AVAIL 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,02 ZF$"UIS.VOICE"R dDS$"BRUN SPEECH LOADER":F$] n61000c s{ xDL$   !v[X*TKP\jB pUhK1++,|Ғ+:J+Ϲ<.<=(SJ[R6 MӺ̽5MNVwmh"̒)W#uZfĔ%^11dejXIV#OfȔ#s XI0&\ĀKp  r2l XB+E2`fNY^jlfdfjQW4:AK5D-z⓴VޢrTeJ^j5+*Г1Uc/\1wL9S1Ls21M(&>Nv\: d#%)P'Ov*C" vd24vdIa]6)sK*5uBT,m a[-)J`wDYZ1z M#)`d1tOZE_ kW|J2_K,:A51zyTVU |F:Rpan3:Y|*u*"E`*T0usS%'lLqȌ"JU(4 ;jU8|qmVD zqa^ExK gL#b Xe3w`rš|j 7N,K0 Ck5%jPWxԘz3CJچ ^k0SzmlT[iz]|݊sq+/D#tH"JU(0tT_ 0|!p(UMRЂ]~rcɪO]uWP gO&I wUc*KD֎DUI[D  ƀУ:]_ p|JXD @hQjvr»zb '9*d.TD Q0zTc@dD_ p|. pU((US4YQQnVmVYy'eZM_W^~9cgEukDifaWYgYum"u4WԷV 0K(7U;c+` ZI_ 0|]F XD @@Hm!<= uu4<_"pXˉaL,7X_ P|NXD  rZR̪kI1:˫U,ܶTtuo3$㜠}:R;I(u8+;CJôںXʪbm(%](▮xSC_M z7Ui^P맡SCD_ kw|m.pU(U5RPj,Za)nf%N՞jqW{Y^cqV+{DmT_ k |* pU*4&#$T lUʲTrdfnm.gu򍳂<;NzFʖ56 HƠ;46(U0E@ZD_ k7|*pUhk@3#)MP}5 R2%ˡK-f//.2&9HrңeJ'Rں"$%i(UhY]= %e#J";,)2ܪ4*skҬNZ+[!J&#)sZJn)BY;ZE_ 0|NXD @@ל^*{}:'8rL'э0ZGff%.Tj(0tZE_ kw|m.p[2r#Hث/ 7{Kԫqw'9⬩i2>ȭ Y(U U#1- ь2:Xk*/HꕡgCT-^KP1zm9#.TZE_ 4|]N XD P@7YëRœ 73 K=,̆upP_-/$lҶ4an3Z%X5h)TjeD@I_ |N<XD dUU%BbT][7vOv6ܔ9Cr1ˤqN8:gYI$YwaEQUiqF]yGmud!^Ց%[UGZe[_iTi}$ܤ =Ji4E&shFݚ `85-------------------------2PVPV1:SMEMQNF%(NF,4)SPACEPV31158PV3ė:SF,0:10:5:BELL$;BELL$;"FILE "NF" IS TOO LARGE FOR EITHER BANK!":T115000:T1:SO,0:-------------------------- SMEM ----------------r!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)NF:PV3PV0:1138-VBL$;NF$(NF);",A";(LD)CXNF%(NF,2)LO(LD)YZNF%(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: INSERT(ST0:INF%(0,1)#D(ILFILE)1098XFLCK%(I)NF%(LAST,1)NF%(I,1):NF%(I,1)0:ILASTtHLASTI:INF%(I,1):1092zJLNF%(NF,1)01108NCODE3Ĺ232,NF%(NF,2):233,NF%(NF,3)PCODE1Ĺ0,NF%(NF,2):1,NF%(NF,3):UNPACKRTPV0:FSPACEORY MANAGER (MM) ---5 /---------------------------; 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 @CODE41100BLATT%ıV KV,0:CB:DOCLR:STACKCLR:SO,0:49234,0:49239,0:SECT1:D0SET:MASTERt ------------------------ -- INST ---------------- ------------------------ KEY63ı "V$INST$ $ ---------------------------- .--- MEM IN WT=COUNTS BEFOR RETURN^  OUT KEY=ASCII OF KEY PRESSED (KEY<0 MEANS NO KEY PRESSED)r RKEY:KEY0ı CR:CESC:PROGSUM:INST  ------------------------ -- CESC ---------------- ------------------------ KEY27 WAS PRESSED CNT0:KC,08 CNTCNT1:KEY(KB)128O KEY0CNTWT1012r (KEY96)(KEY123)KEYKEY32 KEY47KEY63 R(CNT):KC,0  ------------------------ --- CHRGT -------------- ------------------------  Z42000: MUST BE 44032 OR LOWER9 d50030: INITIALIZEW ------------------------] c i o ------------------------ -- RKEY ---------------- ------------------------  IN WT = MAXIMUM WAIT  OUT KEY = KEY THATg 9/10/86 RON2 -------------------------M CONSONANT BLENDSl-------------------------( PROGRAMMER: Ron Miller2 GRAPHICS BY: Triska Paul<STORYBOARDER:F Carol Weigold P-------------------------! ! ! !!!!!!!!!""" " " " " """""""""                                 RUN MAIN"49 "RUN MAIN"  (103)256(104)16385Ĺ103,1:104,64:16384,0:"RUN SETUP" 248815 <D$(13)(4) FBL$D$"BLOAD" dBL$"PAGE3" n"BRUN IMAGE UTILITIES"0 xBL$"PROGRAM TITLE.PAK,A$98A"d 16300,0:16297,0:16302,0:16304,0:230,32u "! ! 12000:UE|"&NF6:MM3:NF5:MM3%"+UBWT\"0INST$"P430 TO MOVE THE ICE CREAM SCOOP THEN P422"":STD$;X0R$;C0$"3":Z605:DISP,"#"0,"X"LEZ63,"Y"150,"E":20:LE2Z63:L$(Z1,Z61):#?NF5:MM3:X0R$;C0$"4":DISP,"#"1:DISP,"#"0,"X"8,"Y"150,"E":20KV,0:!CR!17507!------------------------U! -- B1 BLEND 1 ----------s!------------------------!Z616:AN(Z6)1::TBL6:N0:FC2:LE16:FMT0!NF4:MM1!!SP$"NOW YOU MAKE "(LT$,Z1,1)" BLENDS":CSPEAK!#NF6Z1:MM3 N=INDEX OF ARROW IN TABLEC  OUT AN=POSITION(ORDINAL) OF ARROWL AN0[ AN6AN1j FIXARROW{ AN0įINST WT10000:CHRGT:KEY01750 KEY321760 FIXARROW ANAN16(AN6):(AN(AN))1757 1740!KEY13AN0Ĺ|------------------------]Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)BC$C0$"0"hA$;:n-------------------------- ARROW -------------------------------------- IN TBL= FILE NUMBER OF THE ARROW TABLE  "A$;:',@------------------------JE-- P3 (W/ COLOR LOWER) -hJ------------------------OZ51(Z1$):A$(Z1$,Z5,1):A$"a"A$C0$(FC)((A$)32)C0$"0"TA$;:Yr------------------------w-- P4 (W/ COLOR --) ------) ----------,------------------------[Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$BC$fA$;:l-------------------------- P2 (W/ LOWER CASE) --------------------------Z51(Z1$):A$(Z1$,Z5,1):A$"a"A$((A$)32)------------LL1SEC%(SECT,1)SEC%(SECT,2)^ND0%(L1)TRGTARG(L1):D0%(L1)0:SNL1:L1999dPRL11000įTRG:KEY(KB)128:CESC:CR:PROGSUM:MASTERTRET%ıVSECT1:D0SET:TT%0:MASTER-------------------------- P1 (W/ T,2)2D0%(I)146;8------------------------Y:-- DOCLR ---------------w<------------------------>ISEC%(SECT,1)SEC%(SECT,2)@D0%(I)0BDF------------------------H-- MASTER -------------- J-------------------------------------; -- CSPEAK --------------Y"------------------------w$ IN SP$=STRING TO SPEAK&V$SP$(*------------------------,-- D0SET --------------- .------------------------0ISEC%(SECT,1)SEC%(SEC104 DLAY$(DLAY):(DLAY$,1)"."DLAY$"0"DLAY$W DLAY(DLAY)DLAY$DLAY$".0"jV$DLAY$:UBWTp-------------------------- WSPEAK -------------------------------------- IN SP$=STRING TO SPEEKV$SP$:UBWTTBL:MM3EDISPLAY,"#"N,"X"ALOC(FMT,AN,1),"Y"ALOC(FMT,AN,2),"E"Y232,M1:233,M2_}-------------------------- PAUSE --------------------------------------- IN DLAY=THE NUMBER OF SECONDS TO DELAYDLAY(DLAY10.5)10000:CHRGT:KEY01252>KEY32įFIXARROW:ANAN1:1246XKEY13AN0ĹKV,0:aCRk1252-------------------------- FIXARROW ------------------------------------ (SEE ARROW FOR NOTES)M1(232):M2(233) NF-------%-- ARROW --------------C------------------------r IN TBL= FILE NUMBER OF THE ARROW TABLE N=INDEX OF ARROW IN TABLE OUT AN=POSITION(ORDINAL) OF ARROWAN0AN4ALOC(FMT,AN,2)191AN1FIXARROWWT----------------------4-- ULOCKFILE -----------R------------------------^LCKıfI0z(ILFILE)1222LCK%(I)0:INF%(I,1):1218LCK0MEM(0,0)(2049)256(2050)MEM(1,0)(115)256(116)-----------------TO LOCKLCK%(NF)1ı.NF%(NF,1)11986I0Q(NF%(I,1)LFILE)1198NF%(I,1)NFNF%(I,1)NF%(NF,1):NF%(NF,1)0:1198INF%(I,1):1192SMEMBNKBįSMEMMM2MEM(BNK,0)LMEMLCK%(NF)1LCK1--------------------------8BNK(BNK0):LMEMMEM(BNK,0)LHMEMMEM(BNK,1)`SPACEHMEMLMEMf-------------------------- LOCKFILE ------------ ------------------------ IN B = THE BANK TO LOCK FILE IN NF = THE FILE