' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL-(v p Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`ō΍΍ōױō΍ײˍԍױō΍̍ױԍύԍԍύԍύԍύԍύٍײ΍ōױٍױ荰čύٍύ" !!"            !퍍״ԍNE:SD:D$"CLOSE":D$"LOCKRESPONSES.F", DN"d::3:6:"CHOICES ARE:"::6:"1 - RUN LESSONS"::6:"2 - CREATE WORD LIST": e6:"3 - CORRECT/CHANGE WORD LIST":6::6:"4 - STUDENT PLANNING"::6:"5 - DELETE A FILE"::6:"6 - SEE CATALOG"Š٠͍ױٍōÍύōύٍ͍ō΍ԍױō&Y$:(Y$)13ı%&Z$Z$Y$:9920 ED$(4):::12:"STUDENT PLANNING":34,1:12:9700|I$(50),C$(50,4),S%(50)D$(4):S$" ":D$"OPENRESPONSES.F,L1100":D$"READRESPONSES.F,R0":NE:D$"CLOSE" :ҍ׳΍׸*]Z%(8)41:Z%24011,24012,24013,24014,24015:Q*]ZT$"^BYE-BYE, "N1$".":p*]ZT$"^SO LONG, "N1$"!":*]ZT$"^SEE YOU LATER, "N1$"!":*]ZT$"^HAVE A GOOD DAY, "N1$".":,,I(50),R(50)#S$"PRESS 'RETURN'." (:D1,45,"^TYPE YOUR NZK:22090:ZXZXZK:22140))V(ZA$)2ıV)V(ZA$,1)" "ZA$(ZA$,(ZA$)1):22215)V(ZA$,1)" "ZA$(ZA$,(ZA$)1):22215)V)V WRITE ON HGR SCREEN)VF9ZT$(91)ZT$"@"ZT$"^"ZT$)VZX1ZX1)VZY15ZY15)VDZX,ZY,ZT$:2@(VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140R(VZA$"":22140w(VZXZXZW:ZT$X$Z$:22230:22140(VZA$(8)ZA$"":22140(VZ(ZA$)2:Z0ZA$"":22200(VZA$(ZA$,Z)(VZKZW:ZU0ZKZKZA)VZTZYZH:ZBZY:ZLZX:ZRZXZ$)27ġ:280'~V(Z$)3ij9'V(Z$)32(Z$)822140a'V(Z$)8ZXZW(ZU1)ZA26722140'VZA$ZA$Z$:(Z$)822160'VZA$(8)ZA$"":22140'VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090D$:D$"OPENRESPONSES.F,L1100":D$"READRESPONSES.F,R0":NE,SD:D$"CLOSE":[&U16301,ZF:&EV CLEARS ANY SPOT ON HGR SCREEN&JV0:ZZTZB:ZL,ZZR,Z:Z:3:&hV INPUTS ON HGR SCREEN&rVZA$"":ZXZXZW&|V16368,0:Z$:(Z$)1322215 '}V(:G119090M%LJT125:Z%A(NW):Z1%A(NW):ZR(Z%):R(Z%)R(Z1%):R(Z1%)Z:TS%Jn%U232,0:233,55:230,64%U1013,76:1014,0:1015,8:D$"BLOADHR,A$800"%UD$"BLOADLARGE CHARS,A$3700":D$"BLOADSMILES,A$3300"%UZH15:ZW11:ZA3%U:3:1:0J&UILL HAVE":D1,100,"ONE MORE CHANCE TO TRY":D1,120,"THE ONES YOU MISSED.":D1,191,S$:9006$ZFNW0:T1C6:ZI(T):NW0R(1)Z:NWNW1:18030$_FK1NW:ZR(K)Ă:NWNW1:R(NW)Z$nFT$xFG2G3:$8JRND$=JA(NW)(5)(NW1)1 %BJT1NW:R(T)T:&A(1):A,BA:A(C):A,BB:A(C):B,AB:A(C):B,AAH#p&AA1:BB1R#z&W,W1a#&W1800:#&16304,0:16302,0:16299,0:16297,0#&#PFSETUP FOR PASS2#UF:D1,30,"^YOU HAVE GONE THROUGH":D1,50,"ALL THE PROBLEMS."Z$VFD1,80,"^NOW YOU W:16368,0:"T$ARROW4"Y$X279X30Y180Y10ı~"^$X,YX28,YX21,Y7:X28,YX21,Y7:X,Y1X26,Y1:X,Y1X26,Y1"h$X30,YX22,Y9:X30,YX22,Y9"|$"H&GRAPHICS"M&A(C)(C)16"R&16300,0::W112:A0:B39:C0"W&W1398#f"HOW"JJ$"^M^A^N^N^E^R IN WHICH"=!"JJ$"TELLS THE "JJ$:K!"DO ARROWk!"Q426:(R$(X1,Q4))8920!"C$(X1,1)(R$(X1,Q4),(C$(X1,1)))8930!":!"X40(R$(X1,Q4))11:YQ4157:9300!"!(# GET ROUTINE!-# ".#16368,0:16384,128E6,0,39:3: `"? j"C$(X1,1)"WHERE"JJ$"^P^L^A^C^E THAT"h t"C$(X1,1)"WHEN"JJ$"^T^I^M^E THAT" ~"C$(X1,1)"WHO"JJ$"^P^E^R^S^O^N TO WHOM" "C$(X1,1)"WHY"JJ$"^R^E^A^S^O^N THAT" "C$(X1,1)"WHAT"JJ$"^T^H^I^N^G TO WHICH""!"C$(X1,1)140,"^WRONG, TRY AGAIN.":8480:8800:8246; :8800:8900 ZT$Q$R$(X1,1)Q$:D3,130,ZT$:ZT$JJ$:D3,147,ZT$:ZT$"SOMETHING HAPPENED.":D3,164,ZT$ D80,190,"^PRESS RETURN.":9006 8246 !ZT$" "S$:D1,191,ZT$:9006:0:E4,0,39:E5,0,39:$"EXCELLENT!":= ZT$"^"ZT$:D1,142,ZT$:D1,191,S$:9006[ RTRT1:RT15RT0:9800a l WRONG C6C61:I(C6)X1:I$(C6)("0"(X1CB),2)ZA$:Q21050Q2Q2(I$(C6))4:Q1C6 ZX96:ZY104:ZN(ZA$):93,1029511ZN,102* I1G2įD10,100:3 8340% ZT$"CORRECT!":? ZT$"THAT'S RIGHT.":` ZT$"GOOD GOING, "N1$"!":} ZT$"THAT IS CORRECT.": ZT$"NICE JOB, "N1$"!": ZT$N1$", THAT IS RIGHT.": ZT$"VERY GOOD!": ZT$"GREAT!": ZT$"GOOD!": ZT(X1,0)):82801 I5 840036 C90:I1G28220S: CB0CCG5C5CCG4ġ:280]D 8290X 8300:C9C91:I11CBC5C51] C9G6ġ:280: RIGHTb l RIGHTv Z((8)10)1z Z8321,8322,8323,8324,8325,8326,8327,8328,8329,8330{ 2ZT$R$(X1,T):D1,ZY,ZT$:U C$(X1,1)"/"C8C81:D1,180,S$:16368,0:"";Y$:8290a CCCC1 0,110279,110:D1,111,"ANSWER :":ZX96:ZY111:5 (ZA$)8220 ZA$"H"İ8000:8205& C7C71:I1I11 0 I1(C$(X1,0)):ZA$C$(X1,I)I(C$:N1$"^"N$:T1T14N1$"^"(N$,1,T1):iN1$"^":(N$,T,1)" "(N$,T,1)","TT1:8130ZT(N$):(N$,Z,1)" "N1$N1$(N$,Z,1): DO A FRAME I10 X1R(J): ZT$(C8C71):D250,110,ZT$ T16:ZYT152::H3:2X,Yh 2180 3:0@INSTRUCTIONS]J6:D72,15,"^INSTRUCTIONS":72,12205,12TT19:ZT$IN$(T):D1,3015T,ZT$:^ZT$" "S$:D1,191,ZT$:9006PARSE NAMEZ$"":T1(N$):(N$,T,1)","8130 (N$,T,1)" "Ă ",15):A$;:I1(C$(I(K),0)):25:C$(I(K),I):2 (37)(C$(I(K),0))21KC6Ģ23:"PRESS RETURN ";:9005:12:1:9583 KB T ENDY 233,51:X130:Y40^ T13:R04816:3:R:1X,Y:G125::0:1X,Y:: c 3:0:1X,Y:3X,Y ONE:"`) :"FRM# YOUR ANSWER CORRECT ANSWER":"---- ----------- --------------". X10:K1C6:Z((I$(K),2)):Z50ZZ50:X1ĺ"======================================":X116/ A$("0"(Z),2)" "((I$(K),3,(I$(K))2)" E GOOD WORK!":* GOT SOME WRONGS C7ĺ"NO PROBLEMS ATTEMPTED.":2370$ C7C6" CORRECT OUT OF "C7" ATTEMPT";:C71ĺ"S";% ".":C5" PROBLEM";:C51ĺ"S";& " CORRECT ON FIRST TRY."::"YOU MISSED ";:C61ĺ"THESE:"' C61ĺ"THISCTyC9G6ĺ:C9" CONSECUTIVE PROBLEMS WERE"::"DONE CORRECTLY. THE LESSON WAS"::"AUTOMATICALLY TERMINATED.":2216C7" PROBLEMS WERE ATTEMPTED."C7" PROBLEMS WERE DONE CORRECTLY."::"CONGRATULATIONS, "(N1$,(N1$)1)"!" :"KEEP UP TH|0:261,175:263,175:3:252,175254,175:2163@}SDČ13424eT:0:252,175:254,175:3:2195SDĹ13428,50(9)100:13434,50(8)200:F15:13424:T18:0:2X,Y:H3:4X,Y:0:4X,Y:H3:2X,Y::233,55: ALL CORRET15:0:2161:3:2162:2163:0:2162:3:2161:2163::2195Uq254,173:261,173:}r254,171256,171:261,171259,171:sG130::zSDĹ13428,50(9)100:13434,50(8)200{T155(SD0):0:252,175:254,175:3:261,175263,175:2163153:263,146263,151:21957f2180:0:253,175262,175gT13:X1251255:X0X11:Y1175:Y0Y1:2155::X12552511:X0X11:2155::h0:251,Y1:260,Y1:3:253,175:262,175:2195k0:X0,Y0:X09,Y0:3:X1,Y1:X19,Y1:G130::=p2180:.2221958C((8)61)2120,2130,2140,2150,2160,2170H2180:T18:0:3X,Y:3:5X,Y:0:5X,Y:3:3X,Y:G130:::2195R2180:2190:2195\2180:1:257,163257,160:259,160259,157:261,157261,154]5:259,146259,151:261,148261,1^D$:D$"LOCK"P$:::24000:D1,90,ZT$:2900CcD1,191,S$:9005IrI1G2įD10,140,"^WRONG, TRY AGAIN.":8480:8800:82464SMILE9H3((8)6)1:H342105>233,51:3:1258,180:3258,180:H3:2258,180:3 ?X258:Y180:(8)SE"::D1,90,"FILE FULL":D1,191,S$:9006:350mWD$"WRITE"P$",R"NE1:N$:L$:C5:C6:C7:CA:Q1:C60345XT1Q1:I$(T):XI(T):C$(X,0):I1(C$(X,0)):C$(X,I)::YNENE1:D$"WRITE"P$",R0":NE:SD:D$"CLOSE"[23:"PRESS RETURN ";:9006.SULTS,ECA0:T1XW:C$(T,1)"/"CACA12FJ::"STUDENT: "N$:"LESSON : "L$:"THERE ARE "CA" QUESTIONS IN LESSON."::C6C7İ2200:342U2300.VP$"RESPONSES.F":D$:D$"UNLOCK"P$:D$"OPEN"P$",L1100":D$"READ"P$",R0":NE,SD:NE30ĺD$"CLON$)(L$)8 n19000& GIVE TEST4 S$"^"S$a 8000:C90:C80:C70:C60:C50:CB0:CC0 XWNW::CB0:J1NW:8200:J G3C6280 18000:CB50:N55:J1NW:8200:J :D1,90,"^YOU ARE FINISHED.":D1,191,S$:9005@ PRINTOUT REL$:D$"READ"L$:NW:NW86K SK1NW:C$(K,0):I1(C$(K,0)):C$(K,I):I T0:ZT$(NWK1):D122,120,ZT$:3:ZT$(NWK):D122,120,ZT$ UT16:R$(K,T):T:K VT19:IN$(T):T XG1,G2,G3,G4,G5,G6:G4G4100 ZD$:D$"CLOSE":216,0 dQ2(F90:(ZA$)175 L(ZA$,1)"?"ĉ:D$::44512,208:44513,67:44515,160:D$"CATALOG"::44512,16:44513,2:44515,171:"PRESS RETURN ";Y$:70 M(ZA$,4)"MENU"47 PL$ZA$:55 QD$:D$"VERIFY"L$ R:D1,90,">> LOADING THE LESSON <<":D$"OPEN":f =D1,60,"^LIST NOT ON THIS DISK.":D1,90,"^MAYBE YOU TYPED IT":D1,105,"WRONG.":D1,180,S$:9006 F:D1,15,"^TYPE THE NAME OF THE":D1,30,"LESSON YOU WILL BE":ZT$"WORKING ON, "N1$".":D1,45,ZT$ KZT$"THEN "S$:D1,180,ZT$:ZX1:ZY90:F91:5:AME":ZT$"THEN "S$:D1,150,ZT$6 -ZY90:F91:5:F90G .(ZA$)140 /(ZA$,4)"MENU"Ĺ103,1:104,8:2048,0:D$:D$"RUNMENU" 2N$ZA$:8100:70 7216,0 <:(222)6ZT$"^DISK I/O ERROR <"((222))">":D1,90,ZT$:D1,180,S$:" ";Y$:216,0"NEW WHO5/17/84-24576:34304510OZX0:22220:: PRINTn16368,0:22120:: INPUT:::CLR SCRN D$(4):Q$(34) 22000C$(50,4),R$(50,6),I$(50),I(50),R(50)#S$"PRESS 'RETURN'." (:D1,45,"^TYPE YOUR N            z#????   ׸ ׹ױ ױ ױ ױ ױ  ױײ׳״ ׵׶ ׷ ŠӠ ӠҠӮƠ,=   () 1983 =  , .}`ALL`RIGHTS`RESERVED``}Ϡ Ӡ ՠŠԠ ŠԠԠǠנϠ$:L1KK1:XX1:201 215P 6L:9:868:9700:6L:33:"!":R$(K,L)Z$W L| 14:16:LM1:9000:LM25:F8243 868:F9202 C$(K,0)Z$ (C$(K,0))1(C$(K,0))4240 L1(C$(K,0)) L15:25:"!";:8:":";:LM16:9000:F"L$:6$ 3:1:958:8100:K1:X1 ::"CREATE WORD LIST "L$::"TYPE '#' TO QUIT AND SAVE LIST.":"TYPE '@' FOR '"(95)"'."::34,5 KX50 K1180 8000 L16 6L:9:2200:F8230 Z$"#"299 F9220 LL1CREATE WORDLIST /C$(50,4),R$(50,6)^::12:"CREATE WORD LIST"::34,2:35,21jD$(4) :10:"LIST NAME:";:LM20:9000:L$Z$:(L$)9 (L$,1)"?"9999 L$"MENU"ĺD$:D$"RUNMENU" LM25:::1:1:"CREATE WORD LIST >>       :6:Z$"":SDZ$""q q"SOUND IS "Z$:::6:"DO YOU WANT:"::9:"1 - SOUND ON"::9:"2 - SOUND OFF" v20:6:"WHICH? ";Y$:Z(Y$):Z1Z27020 SD2Z& D$:D$"UNLOCKRESPONSES.F":D$"OPENRESPONSES.F,L1100":D$"WRITERESPONSES.F,R0": ":T1900::P N15:1:(222)6ĺ"DISK I/O ERROR <"(222)">":598u S"THAT FILE IS NOT ON THIS DISK" V216,0:22:"PRESS RETURN ";Y$: XSND ON/OFF bD$:D$"OPENRESPONSES.F,L1100":D$"READRESPONSES.F,R0":NE,SD:D$"CLOSE" l:9R$"CHANGE WORDLIST"- R$"STUDENT PLANNING" :D$::44512,208:44513,67:44515,160:D$"CATALOG"::44512,16:44513,2:44515,171:"PRESS RETURN ";Y$: DELETE :12:16368,0:"WHICH FILE:";F$ (F$)0Ĭ 590 D$"DELETE"F$::F$"" i:6:"7 - TURN SOUND ON/OFF"} n20:6:"ENTER SELECTION":6:"AND PRESS RETURN."::6:">>> ";Y$:Y(Y$):Y1Y7110 s3Y2:3::">>": xY210,220,230,250,500,270,7000 103,1:104,10:2560,0:R$"NEW WHO" R$"CREATE WORDLIST" - MENU D$(4):216,02 R$(4)"RUN"d::3:6:"CHOICES ARE:"::6:"1 - RUN LESSONS"::6:"2 - CREATE WORD LIST": e6:"3 - CORRECT/CHANGE WORD LIST":6::6:"4 - STUDENT PLANNING"::6:"5 - DELETE A FILE"::6:"6 - SEE CATALOG" 234::* `44537,44542,44555,44560,44480 d3:T2021:DT,130,"(C) 1984 BY":DT,145,"^HARTLEY ^COURSEWARE":DT,160,"^DIMONDALE, ^M^I":DT,180,"^ALL RIGHTS RESERVED": eD$:D$"RUNNEW WHO" ::16:"WHO-WHAT-WHEN-WHERE"::V$::"(C) 1984 HARTLE5,"^W^H^A^T?"' DT80,75,"^W^H^E^N?"D !DT120,95,"^W^H^E^R^E?"S 2:2261,12q [A(78)1:X1A:Z(1): \N$" B3AF:A0 A0 A0 A0 BA D3 CE CF D3 D3 C5 CC N D823G" ]T1(N$):511T,((N$,T,1))128::72,0 ^144 _K15:Z:T02:ZT,CREDITS 245763 V$"VERSION 05.22.84"> 200:XHC24((8).5):HC0,00,191278,191278,00,0:4,44,187274,187274,44,42,22,189276,189276,22,2HC14((8).5):HCT4042DT,35,"^W^H^O?" DT40,5   "0 LANGUAGE NOT AVAILABLE FPS214,128:40286,252:40287,164v 214,255:40286,252:40287,164103,1:104,10:2560,0(4)"RUNCREDITS" PRESENTED"::"AGAIN, HOW MANY TRIES WOULD YOU"::"LIKE TO GIVE THE STUDENT BEFORE"::"THE CORRECT ANSWER IS DISPLAYED?""17:1:868:"ENTER A NUMBER FROM 1 TO 9 ==> "G3;:(36):LM1:9000:F88890"F98860"(Z$)1(Z$)98870"G3(ZMISSED TO"9":"BE PRESENTED AGAIN?":V$"N":G3V$"Y""17:1:868:"ENTER 'Y' OR 'N' ==> "V$;:(36):LM1:9000:F88870"F98850"Z$"Y"Z$"N"8860"Z$"N"G30"G3Z$"Y"8890"G3G31{":8:"WHEN THE QUESTIONS ARE"::"(ENTER A NUMBER FROM 1 TO 20)"O"10:29:LM2:FZ1:9000:FZ0:F88860\"F98840w"(Z$)1(Z$)208850"G6(Z$) "8910::8:"AFTER THE STUDENT HAS GONE THROUGH"::"ALL THE FRAMES IN A LESSON, DO YOU"::"WANT THE QUESTIONS HE/SHE NUMBER FROM 1 TO 20)"?"10:18:LM2:FZ1:9000:FZ0:F88850L"F98830g"(Z$)1(Z$)508840t"G5(Z$)":8:"IF A STUDENT IS DOING WELL, THE"::"LESSON WILL TERMINATE AFTER "G6::"CONSECUTIVE CORRECT ANSWERS"::"ON THE FIRST TRY."%2:15:LM2:FZ1:9000:FZ0:F888400"F98820K"(Z$)1(Z$)498830X"G4(Z$)":8:"EVEN IF THE STUDENT IS DOING"::"POORLY, AT LEAST "(" "(G5),2)" FRAMES"::"WILL BE PRESENTED BEFORE THE"":"LESSON IS TERMINATED.":::"(ENTER A z"F98810${"(Z$)1(Z$)988201|"G2(Z$)~"8920::8:"IF THE STUDENT IS DOING POORLY,"::"THE LESSON WILL TERMINATE IF HE/SHE":""HAS LESS THAN "(" "(G4),2)"% CORRECT ON THE"::"FIRST TRY.":::"(ENTER A NUMBER FROM 1 TO 49)"#"11:9000:F888200p"F9(Z$"R"Z$"S")8800@q"G1(Z$"R")t":8:"HOW MANY TRIES WOULD YOU LIKE"::"TO GIVE THE STUDENT BEFORE THE"::"CORRECT ANSWER IS DISPLAYED?"y"17:1:"ENTER A NUMBER FROM 1 TO 9 ==> "G2;:(36):LM1:9000:F88830 :G31:G440:G54:G610 e"8910j":8:"DO YOU WANT THE FRAMES OF THIS"::"LESSON PRESENTED TO THE STUDENT IN"::"RANDOM ORDER OR THE SAME ORDER"::"IN WHICH YOU ENTERED THEM?"n"V$"S":G11V$"R"o"17:1:"ENTER 'R' OR 'S' ==> "V$;:(36):LMUCTION FRAME"D5:1:L19:L")";:28:"!";:3:Z$IN$(L):9700:OT19jT4:3:2200:F88160xF98130TT1:T1T18120Z$"#"ġ:299T4:3:868:9700:T4:28:"!":IN$(T)Z$T`"FINAL ?b"G10:G21$"CLOSE"@SHOW ONE{J7:1:958:22:"FRAME #"K;:L16:L6:1:"STIM #"L":";:33:"!";:9:Z$R$(K,L):9700:T:1:"# OF RESPONSES:"C$(K,0):^L1(C$(K,0)):1:"RESP :"C$(K,L);:25:"!":INSTRUCTIONS 22:" INSTR$:WLWL1:PP1Ğ:PP0Y$;%/2210@(Z$)F81FTWRT LISTzD$"OPEN"L$:D$"WRITE"L$:Q$(34)NW:K1NW:C$(K,0):I1(C$(K,0)):Q$C$(K,I):I:L16:Q$R$(K,L):L:KT19:Q$IN$(T):TG1:G2:G3:G4:G5:G6:D$)1):WLWL.315:22105(Z$)1Z$"^"Z$"":WL0?2210q(Y$)27Y$"^"Y$"^":PP1:WLWL.315:2250(Y$)342210Y$"@"Y$(95)Y64Y91PP1Y$(Y128):2250Y90Y322210Y$"^"Z$Z$Y$:2210Z$Z$Y$:D$"RUNMENU" GET Z$5F80:F90:Z$"":WL0PY$:Y(Y$):Y132290lWL23Y8ĺ"";:2210{Y82220:(Z$)F91:(Z$)1Z$"":WL0:Y$" "Y$;:2210Z$(Z$,(Z$)1):Y$" "Y$;:WLWL1:(Z$)1(Z$,1)"^"Z$(Z$,(Z:6:"<"L$"> IS ";:Y$"Y"ĺ"NOT ";1 K"SAVED" L1:6:"CREATE WORD LIST":10:6:"YOU MAY:"::6:"1 - DO ANOTHER LIST"::6 N"2 - GO TO MENU"::6:"ENTER SELECTION AND":6:"PRESS RETURN."::6:">>> ";Y$:Y(Y$):Y1Y2330 OY1ĬTD10:1:868:"CHANGE LIST NAME? (Y/N) N";:(36):LM1:9000:F8Z$"N"Y$"Y":305` /F9300 014:1:868:"ENTER NEW NAME:";:LM15:9000:L$Z$:F8F9304 118:1:868:(40(18(L$)))2:868:">> SAVING LIST "L$" <<"::7050:Y$"Y"$ J::58270 F9260% LL1:L1240. 255a L15:9:868:9700:L15:25:"!":C$(K,L)Z$z L:(37)2:1:958 "K +NWK1:8800:OL$L$ ,:6:"LIST: <"L$">":8:1:"SAVE THIS LIST? (Y/N) ";Y$:Y$"Y"Y$"N"300 -Y$"Y"330T .T16:R$(K,T):T:K-vT19::IN$(T):TD{G1,G2,G3,G4,G5,G6WD$:D$"CLOSE"]kWRT LISTD$"OPEN"L$:D$"WRITE"L$:Q$(34)NW:K1NW:C$(K,0):I1(C$(K,0)):Q$C$(K,I):I:L16:Q$R$(K,L):L:KT19:Q$IN$(T):TG1Y90Y3222104Y$"^"Z$Z$Y$:2210VZ$Z$Y$:WLWL1:PP1Ğ:PP0_Y$;eo2210(Z$)F81XRD LISTbD$"OPEN"L$:D$"READ"L$cNWlK1NW::14:17:NWK" ":C$(K,0):I1(C$(K,0)):C$(K,I):Iq(Z$,(Z$)1):Y$" "Y$;:WLWL1:(Z$)1(Z$,1)"^"Z$(Z$,(Z$)1):WLWL.315:2210u(Z$)1Z$"^"Z$"":WL02210(Y$)27Y$"^"Y$"^":PP1:WLWL.315:2250(Y$)342210Y$"@"Y$(95)Y64Y91PP1Y$(Y128):2250 RETURN."::6:">>> ";Z$:Y(Z$):Y1Y23309OY1ĬNTD$:D$"RUNMENU"\ GET Z$uF80:F90:Z$"":WL0Y$:Y(Y$):Y132290WL23Y8ĺ"";:2210Y82220:(Z$)F91:(Z$)1Z$"":WL0:Y$" "Y$;:2210VZ$$">":23:1:16368,0:"PRESS RETURN ";Y$:::332aJ::5:6:"<"L$"> IS ";:Y$"Y"ĺ"NOT ";qK"RE-SAVED"L1:6:"CHANGE WORD LIST":10:6:"YOU MAY:"::6:"1 - DO ANOTHER LIST"::6.N"2 - GO TO MENU"::6:"ENTER SELECTION AND":6:"PRESS$"Y":305/F9300X014:1:868:"ENTER NEW NAME:";:LM15:9000:L$Z$:F8F9304118:1:868:(40(18(L$)))2:868:">> SAVING LIST "L$" <<"::7050:OL$L$Y$"Y"26OL$L$Ģ18:1:868:"YOUR DISK NOW : <"L$">":"HAS BOTH : <"OL:L15:25:"!":C$(K,L)Z$3 L:(37)2:1:958: "KK +8800:OL$L$ ,:6:"LIST: <"L$">":8:1:"SAVE THIS LIST? (Y/N) ";Y$:Y$"Y"Y$"N"300 -Y$"Y"330 .10:1:868:"CHANGE THE LIST NAME? (Y/N) N";:(36):LM1:9000:F8Z$"N"Y$(K,L)Z$ L5 14:16:LM1:9000:LM25:F8243G 868:F9202V C$(K,0)Z$y (C$(K,0))1(C$(K,0))4240 L1(C$(K,0)) L15:24:"!";:8:":";:LM16:9000:F8270 F9260 LL1:L1240 255 L15:9:868:9700 FOR '"(95)"'."::34,5J :Z0Ģ24:1:"ADD NEW FRAMES";:35,23:10:V KXNWc K1180m 8000x L16 6L:9:2200:F8230 Z$"#"299 F9220 LL1:L1KK1:XX1:201 215 6L:9:868:9700:6L:33:"!":R00:F8Z$"N"180" pZ$"Y"110{ sZ0:17:1:868:"ADD HOW MANY FRAMES? ";:LM2:9000:Z(Z$):Z0ZNW50F8F9115 xXNW1:NWNWZ:190 3:1:958:8100:K1:X1 ::"CHANGE WORD LIST "L$::"TYPE '#' TO QUIT AND SAVE LIST.":"TYPE '@':1:1:"CHANGE WORD LIST >> "L$:6, 9E D$"VERIFY"L$:216,0i 12:7:"LOADING LESSON <"L$">"s d7000 n3:1:958:10:"LIST <"L$">"::"CURRENTLY HAS "NW" FRAMES.": o:"DO YOU WANT TO ADD"::"MORE FRAMES? (Y/N) N";:(36):LM1:90CHANGE WORDLIST /C$(50,4),R$(50,6)^::12:"CHANGE WORD LIST"::34,2:35,21jD$(4)r10 15:"NOT ON THIS DISK":T12500::216,0:2 :10:"LIST NAME:";:LM20:9000:L$Z$:(L$)10 (L$,1)"?"9999$ LM25::        (Z$,T8,1)"^"Ğ:9740(%(Z$,T8,1);:. &8&::':D$::44512,208:44513,67:44515,160:D$"CATALOG"::44512,16:44513,2:44515,171:"PRESS RETURN ";Y$:D9999 L$"MENU"ĺD$:D$"RUNMENU" LM25:::1:1:"CREATE WORD LIST >> #(Z$)F91:2I#(Z$)1Z$"":Y$" "Y$;:9020QJ#Z$(Z$,(Z$)1):Y$" "Y$;[K#9020uP#(Z$)LMĺ"";:9020U#Z$Z$Y$:Y$;:FZĺ" "(8);:FZ0V#9020#(Z$)F81#Z$"#"ġ:299#%PRNT WRD%(Z$)9750%T81(Z$):$) ":H"::13:"DESIGN OPTIONS":(38(L$))2:"<"L$">":34,3:"::11:"STUDENT SAFEGUARDS":(38(L$))2:"<"L$">":34,3:(# GET)#F80:F902#Z$""<#Y$:(Y$)139090=#(Y$)279020>#(Y$)349020F#(Y$)89040H6:"YOU HAVE "NE" STUDENTS IN FILE."::"THERE IS ROOM FOR "50NE" MORE.":::"DO YOU WANT TO:"::6:"1 - SEE ALL STUDENTS"::6:"2 - SEE SOME STUDENTS" :6:"3 - GO BACK TO MENU":::6:"WHICH? ";Y$:YZ(Y$):YZ1YZ3(NEYZ3)6 YZ3ė:1' STUDENT PLANNING (5.17.84 `D$(4):::12:"STUDENT PLANNING":34,1:12:9700|I$(50),C$(50,4),S%(50)D$(4):S$" ":D$"OPENRESPONSES.F,L1100":D$"READRESPONSES.F,R0":NE:D$"CLOSE" :      "^"Ğ:9740 %(Z$,T8,1);:% &/ &:: ':D$::44512,208:44513,67:44515,160:D$"CATALOG"::44512,16:44513,2:44515,171:"PRESS RETURN ";Y$:D :10:"LIST NAME:";:LM20:9000:L$Z$:(L$)10 (L$,1)"?"9999$ LM25:::%I#(Z$)1Z$"":Y$" "Y$;:9020DJ#Z$(Z$,(Z$)1):Y$" "Y$;NK#9020hP#(Z$)LMĺ"";:9020zU#Z$Z$Y$:Y$;V#FZĺ" "(8);:FZ0X#9020#(Z$)F81#Z$"#"ġ:299#%PRNT WRD%(Z$)9750 %T81(Z$):(Z$,T8,1)"::13:"DESIGN OPTIONS":(38(L$))2:"<"L$">":34,3:}"::11:"STUDENT SAFEGUARDS":(38(L$))2:"<"L$">":34,3:(# GET)#F80:F902#Z$""<#Y$:(Y$)139090=#(Y$)279020>#(Y$)349020F#(Y$)89040H#(Z$)F91:"AGAIN, HOW MANY TRIES WOULD YOU"::"LIKE TO GIVE THE STUDENT BEFORE"::"THE CORRECT ANSWER IS DISPLAYED?""17:1:868:"ENTER A NUMBER FROM 1 TO 9 ==> "G3;:(36):LM1:9000:F88890"F98860"(Z$)1(Z$)98870"G3(Z$)":;":"BE PRESENTED AGAIN?":V$"N":G3V$"Y"u"17:1:868:"ENTER 'Y' OR 'N' ==> "V$;:(36):LM1:9000:F88870"F98850"Z$"Y"Z$"N"8860"Z$"N"G30"G3Z$"Y"8890"G3G31n":8:"WHEN THE QUESTIONS ARE PRESENTED": A NUMBER FROM 1 TO 20)"B"10:29:LM2:FZ1:9000:FZ0:F88860O"F98840j"(Z$)1(Z$)208850w"G6(Z$)"8910::8:"AFTER THE STUDENT HAS GONE THROUGH"::"ALL THE FRAMES IN A LESSON, DO YOU"::"WANT THE QUESTIONS HE/SHE MISSED TO", TO 20)"2"10:18:LM2:FZ1:9000:FZ0:F88850?"F98830Z"(Z$)1(Z$)508840g"G5(Z$)":8:"IF A STUDENT IS DOING WELL, THE"::"LESSON WILL TERMINATE AFTER "G6::"CONSECUTIVE CORRECT ANSWERS"::"ON THE FIRST TRY.""::"(ENTER1:9000:FZ0:F88840#"F98820>"(Z$)1(Z$)498830K"G4(Z$)":8:"EVEN IF THE STUDENT IS DOING"::"POORLY, AT LEAST "(" "(G5),2)" FRAMES"::"WILL BE PRESENTED BEFORE THE"":"LESSON IS TERMINATED.":::"(ENTER A NUMBER FROM 1{"(Z$)1(Z$)98820$|"G2(Z$)~"8920::8:"IF THE STUDENT IS DOING POORLY,"::"THE LESSON WILL TERMINATE IF HE/SHE":""HAS LESS THAN "(" "(G4),2)"% CORRECT ON THE"::"FIRST TRY.":::"(ENTER A NUMBER FROM 1 TO 49)""12:15:LM2:FZ8820#p"F9(Z$"R"Z$"S")88003q"G1(Z$"R")t":8:"HOW MANY TRIES WOULD YOU LIKE"::"TO GIVE THE STUDENT BEFORE THE"::"CORRECT ANSWER IS DISPLAYED?"y"17:1:"ENTER A NUMBER FROM 1 TO 9 ==> "G2;:(36):LM1:9000:F88830z"F98810"FINAL ?e"8910j":8:"DO YOU WANT THE FRAMES OF THIS"::"LESSON PRESENTED TO THE STUDENT IN"::"RANDOM ORDER OR THE SAME ORDER"::"IN WHICH YOU ENTERED THEM?"n"V$"S":G11V$"R"o"17:1:"ENTER 'R' OR 'S' ==> "V$;:(36):LM1:9000:F8TIONS$22:" INSTRUCTION FRAME"[5:1:L19:L")";:28:"!";:3:Z$IN$(L):9700:fT19T4:3:2200:F88160F98130TT1:T1T18120Z$"#"ġ:299IN$(T)Z$:T4:3:868:9700:T4:28:"!"T `:G2:G3:G4:G5:G6:D$"CLOSE"%3@SHOW ONEJ7:1:958:22:"FRAME #"K;:L16:L6:1:"STIM #"L":";:33:"!";:9:Z$R$(K,L):9700:T:1:"# OF RESPONSES:"C$(K,0):^L1(C$(K,0)):1:"RESP :"C$(K,L);:25:"!":INSTRUCF90:(ZA$)175T L(ZA$,1)"?"ĉ::D$:D$"CATALOG"::"PRESS RETURN ";Y$::70l M(ZA$,4)"MENU"47| PL$ZA$:55 QD$:D$"VERIFY"L$ R:D1,90,">> LOADING THE LESSON <<":D$"OPEN"L$:D$"READ"L$:NW:NW86SK1NW:C$(K,0):I1(C$(K,:f =D1,60,"^LIST NOT ON THIS DISK.":D1,90,"^MAYBE YOU TYPED IT":D1,105,"WRONG.":D1,180,S$:9006 F:D1,15,"^TYPE THE NAME OF THE":D1,30,"LESSON YOU WILL BE":ZT$"WORKING ON, "N1$".":D1,45,ZT$ KZT$"THEN "S$:D1,180,ZT$:ZX1:ZY90:F91:5:ɍ΍΍΍ױōōESPONSES.F,R0":NE,SD&216,0:D$:D$"OPENRESPONSES.F":D$"DELETERESPONSES.F":D$"OPENRESPONSES.F,L1100":D$"WRITERESPONSES.F,R0":0:SD:D$"CLOSE"&D$"LOCKRESPONSES.F" &:"FILE IS NOW EMPTY.":NE0:T11800:>&3&GET FRM DSK&Z$""3#23:1:"PRESS RETURN ":16384,128:16368,0E#7:1:958:S%CLR FILEa%16368,0%"WANT TO CLEAR THE FILE? (Y/N) ";Y$:Y$"Y"Y$"N"9710%Y$"N"9790%9730%D$:D$"UNLOCKRESPONSES.F":D$"OPENRESPONSES.F,L1100":D$"READR=="::::D$"PR#0":JQ11::95A5 (37)(C$(J1,0))22İ9100V: X1((A$,2)):Jd? D$"PR#0"qD PR8270I 23:D$:16368,0:"PRESS RETURN ";Y$:D$:N (16384)27(16384)155ĺ:"=== ESCAPE ==="::::D$"PR#0"::95b ##PR$(J))2):Z((I$(J),2))^" Z50ZZ50:X9ĺ"=======================================":X91y# A$("0"(Z),2)A$S$& (A$,2)" "(A$,3,17)" "C$(J,1):(C$(J,0))28250+ I2(C$(J,0)):(S$,25)C$(J,I):I 0 (16384)155ĺ:"=== ESCAPE =;& ".":C5" PROBLEM";:C51ĺ"S";D " CORRECT ON FIRST TRY."r C6Q1ĺ"(ONLY "Q1" ERRORS SHOWN HERE.)" X90:Q1ĺ:"ALL CORRECT":8260! :"FRM# INCORRECT SHOULD BE":"---- --------- ---------":J1Q1:A$(I$(J),(IY$:Y$"N"80420rNXNX1:S%(NX)Z:NX5080426|D SHOW ONE ::1:"STUDENT: "N$:"LESSON : "L$::C7ĺ"NO PROBLEMS ATTEMPTED.":9100:8290 "THERE ARE "CA" QUESTIONS IN THIS LESSON." C7C6" CORRECT OUT OF "C7" ATTEMPT";:C71ĺ"S"ZY21ZY3:ZX20AcK38Ģ23:1:"PRESS RETURN ";Y$::ZX1:ZY3hK:NX0:24:1:"(TYPE 'END' TO QUIT ENTERING STUDENTS)";j23:28:NX" TO PRINT"m22:1:868:":";Z$:Z(Z$):Z$"END"8060nZNEZ18045o22:1:I$(Z)" Y";:(36):"";:I$(K)(I$(K),18)4 O14:19:NEK" "::D$"CLOSE" T:12:"NOTE THE NUMBER TO THE LEFT OF"::"THE STUDENT(S) YOU WISH TO PRINT"::"OR DISPLAY.":23:"PRESS RETURN ";Y$ Y::"ENTER STUDENT NUMBERS":ZX1:ZY3^K1NE:ZY:ZX:I$(K);:ZYZY1::D$"PR#0". d:12:"THAT'S ALL!":14:97005 n6X x:"BYE-BYE!":D$:D$"RUNMENU"k @SOME STUDENTS J:12:13:"CHECKING NAMES":D$"OPENRESPONSES.F,L1100":K1NE:D$"READRESPONSES.F,R"K K9900:X$Z$:Y$:I$(K)(" "(K),2)" - <"Y$"> "X$"<>"+ ,D$"READ RESPONSES.F,R"RN -9900:N$Z$:L$,C5,C6,C7,CA,Q1Z .Q150 0J1Q1:9900:I$(J)Z$:C$(J,0):I1(C$(J,0)):9900:C$(J,I)Z$:: 2 6PRĺD$:D$"PR#"PR:: 78200 ^K _D$"CLOSE" c:PRĺD$"PR#"PR::::0:120. NXNE:K1NX:S%(K)K::YZ2İ8000w PR0::12:"ARE YOU USING A PRINTER? (Y/N) ";Y$:Y$"Y"Y$"N"10 Y$"Y"30 :"WHICH SLOT? ";Y$:PR(Y$):PR0PR715 ::D$"OPENRESPONSES.F,L1100" (K1NX:RS%(K) *23:1:868:CCCC1= 0,110279,110:D1,111,"ANSWER :":ZX96:ZY111:5O (ZA$)8220h ZA$"H"İ8000:8205|& C7C71:I1I110 I1(C$(X1,0)):ZA$C$(X1,I)I(C$(X1,0)):82801 I5 84006 C90:I1G28220: CB0CCG5C5CCG4ġ:280D 8","TT1:8130BZT(N$):(N$,Z,1)" "N1$N1$(N$,Z,1):HX DO A FRAMEa I10o X1R(J): ZT$(C8C71):D250,110,ZT$ T16:ZYT152:ZT$R$(X1,T):D1,ZY,ZT$: C$(X1,1)"/"C8C81:D1,180,S$:16368,0:"";Y$:8290 ,12+TT19:ZT$IN$(T):D1,3015T,ZT$:Q^ZT$" "S$:D1,191,ZT$:9006WgPARSE NAMEZ$"":T1(N$):(N$,T,1)","8130(N$,T,1)" "Ă:N1$"^"N$:T1T1N1$"^"(N$,1,T1):N1$"^":(N$,T,1)" "(N$,T,1)3:"PRESS RETURN ";:9005:12:1:958-3 K3B <T ENDSY 233,51:X130:Y40^ T13:R04816:3:R:1X,Y:G125::0:1X,Y::c 3:0:1X,Y:3X,Y:H3:2X,Yh 2180 3:@INSTRUCTIONSJ6:D72,15,"^INSTRUCTIONS":72,12205-----"h. X10:K1C6:Z((I$(K),2)):Z50ZZ50:X1ĺ"======================================":X11/ A$("0"(Z),2)" "((I$(K),3,(I$(K))2)" ",15):A$;:I1(C$(I(K),0)):25:C$(I(K),I):&2 (37)(C$(I(K),0))21KC6Ģ27C6" CORRECT OUT OF "C7" ATTEMPT";:C71ĺ"S";T% ".":C5" PROBLEM";:C51ĺ"S";& " CORRECT ON FIRST TRY."::"YOU MISSED ";:C61ĺ"THESE:"' C61ĺ"THIS ONE:") :"FRM# YOUR ANSWER CORRECT ANSWER":"---- ----------- ---------UTOMATICALLY TERMINATED.":2216BC7" PROBLEMS WERE ATTEMPTED."C7" PROBLEMS WERE DONE CORRECTLY."::"CONGRATULATIONS, "(N1$,(N1$)1)"!":"KEEP UP THE GOOD WORK!": GOT SOME WRONG C7ĺ"NO PROBLEMS ATTEMPTED.":2370/$ C75:3:2195ISDĹ13428,50(9)100:13434,50(8)200:F15:13424:OT18:0:2X,Y:H3:4X,Y:0:4X,Y:H3:2X,Y::233,55: ALL CORRECTC9G6ĺ:C9" CONSECUTIVE PROBLEMS WERE"::"DONE CORRECTLY. THE LESSON WAS"::"A254,171256,171:261,171259,171:3sG130::azSDĹ13428,50(9)100:13434,50(8)200{T155(SD0):0:252,175:254,175:3:261,175263,175:2163|0:261,175:263,175:3:252,175254,175:2163}SDČ13424 T:0:252,175:254,1175:Y0Y1:2155::X12552511:X0X11:2155::dh0:251,Y1:260,Y1:3:253,175:262,175:2195k0:X0,Y0:X09,Y0:3:X1,Y1:X19,Y1:G130::p2180:T15:0:2161:3:2162:2163:0:2162:3:2161:2163::2195q254,173:261,173:#rX,Y:0:5X,Y:3:3X,Y:G130:::2195?R2180:2190:2195\2180:1:257,163257,160:259,160259,157:261,157261,154]5:259,146259,151:261,148261,153:263,146263,151:2195f2180:0:253,175262,1752gT13:X1251255:X0X11:Y1140,"^WRONG, TRY AGAIN.":8480:8800:82460;4SMILEY9H3((8)6)1:H342105>233,51:3:1258,180:3258,180:H3:2258,180:3?X258:Y180:(8).222195C((8)61)2120,2130,2140,2150,2160,2170)H2180:T18:0:3X,Y:3:5$:L$:C5:C6:C7:CA:Q1:C60345cXT1Q1:I$(T):XI(T):C$(X,0):I1(C$(X,0)):C$(X,I)::YNENE1:D$"WRITE"P$",R0":NE:SD:D$"CLOSE"[23:"PRESS RETURN ";:9006^::24000:D1,90,ZT$:2900cD1,191,S$:9005r*I1G2įD10,Ҡ΍ױэ΍ō΍ˍō΍ȍױō΍΍΍΍΍ō΍΍΍΍΍΍΍΍) 1982 HARTLEY COURSEWARE ALL RIGHTS RESERVED20:: PRINTn 16368,0:22120:: INPUT :::CLR SCRN D$(4):Q$(34) 22000 C$(50,4),R$(50,6),I$(50),I(50),R(50) #S$"PRESS 'RETURN'." (:D1,45,"^TYPE YOUR N"^SO LONG, "N1$"!":;,]ZT$"^SEE YOU LATER, "N1$"!":b,]ZT$"^HAVE A GOOD DAY, "N1$".":,LARGE CHARS DEVELOPED BY & USED W/PERMISSION OF: MECC 2520 BROADWAY DR ST. PAUL, MN ?-COPYRIGHT (CV(ZA$,1)" "ZA$(ZA$,(ZA$)1):22215/+VL+V WRITE ON HGR SCREENr+VF9ZT$(91)ZT$"@"ZT$"^"ZT$+VZX1ZX1+VZY15ZY15+VDZX,ZY,ZT$:+]Z%(8)41:Z%24011,24012,24013,24014,24015:+]ZT$"^BYE-BYE, "N1$".":,]ZT$ZXZW:ZT$X$Z$:22230:221409*VZA$(8)ZA$"":22140[*VZ(ZA$)2:Z0ZA$"":22200l*VZA$(ZA$,Z)*VZKZW:ZU0ZKZKZA*VZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140*V(ZA$)2ı*V(ZA$,1)" "ZA$(ZA$,(ZA$)1):22215)+722140&)VZA$ZA$Z$:(Z$)822160B)VZA$(8)ZA$"":22140)VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090)VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140)VZA$"":22140*VZXб'(EV CLEARS ANY SPOT ON HGR SCREENJ(JV0:ZZTZB:ZL,ZZR,Z:Z:3:h(hV INPUTS ON HGR SCREEN|(rVZA$"":ZXZXZW(|V16368,0:Z$:(Z$)1322215(}V(Z$)27ġ:280(~V(Z$)3ij(V(Z$)32(Z$)822140)V(Z$)8ZXZW(ZU1)ZA2632,0:233,55:230,64D'U1013,76:1014,0:1015,8:D$"BLOADHR,A$800"}'UD$"BLOADLARGE CHARS,A$3700":D$"BLOADSMILES,A$3300"'UZH15:ZW11:ZA3'U:3:1:0'UD$:D$"OPENRESPONSES.F,L1100":D$"READRESPONSES.F,R0":NE,SD:D$"CLOSE":(U16301,ZF:4&ZFNW0:T1C6:ZI(T):NW0R(1)Z:NWNW1:18030[&_FK1NW:ZR(K)Ă:NWNW1:R(NW)Zb&nFTn&xFG2G3:w&8JRND&=JA(NW)(5)(NW1)1&BJT1NW:R(T)T::G119090&LJT125:Z%A(NW):Z1%A(NW):ZR(Z%):R(Z%)R(Z1%):R(Z1%)Z:T&J'U21800:3%&16304,0:16302,0:16299,0:16297,09%&N%PFSETUP FOR PASS2%UF:D1,30,"^YOU HAVE GONE THROUGH":D1,50,"ALL THE PROBLEMS."&VFD1,80,"^NOW YOU WILL HAVE":D1,100,"ONE MORE CHANCE TO TRY":D1,120,"THE ONES YOU MISSED.":D1,191,S$:9006,Y7:X,Y1X26,Y1:X,Y1X26,Y1J$h$X30,YX22,Y9:X30,YX22,Y9P$|$^$H&GRAPHICSq$M&A(C)(C)16$R&16300,0::W112:A0:B39:C0$W&W139$f&A(1):A,BA:A(C):A,BB:A(C):B,AB:A(C):B,AA$p&AA1:BB1$z&W,W1%&W(R$(X1,Q4))8920=#"C$(X1,1)(R$(X1,Q4),(C$(X1,1)))8930E#":n#"X40(R$(X1,Q4))11:YQ4157:9300t#"#(# GET ROUTINE#-##.#16368,0:16384,128:16368,0:#T$ARROW#Y$X279X30Y180Y10ı$$^$X,YX28,YX21,Y7:X28,YX21^T^I^M^E THAT"="~"C$(X1,1)"WHO"JJ$"^P^E^R^S^O^N TO WHOM"i""C$(X1,1)"WHY"JJ$"^R^E^A^S^O^N THAT"""C$(X1,1)"WHAT"JJ$"^T^H^I^N^G TO WHICH"""C$(X1,1)"HOW"JJ$"^M^A^N^N^E^R IN WHICH"""JJ$"TELLS THE "JJ$:""DO ARROW#"Q426:,ZT$:ZT$JJ$:D3,147,ZT$:ZT$"SOMETHING HAPPENED.":D3,164,ZT$b! D80,190,"^PRESS RETURN.":9006l! 8246! !ZT$" "S$:D1,191,ZT$:9006:0:E4,0,39:E5,0,39:E6,0,39:3:!`"!j"C$(X1,1)"WHERE"JJ$"^P^L^A^C^E THAT""t"C$(X1,1)"WHEN"JJ$"ύԍԍύύԍύύԍ΍ײԍԍύÍ΍ױ܍ō΍΍ō΍^ [A0i@8@ ` 8`    ` G ` g RP g RP g RP(:2, i ei e`5L((PP`  i`i`:ƹƸ D EL4 L hhꅾ  "4 " % Ʌ ƹƸL  % 憥ŅL? ߥȱȱƹƸ` 77i7 ``ɶ`i  ` ^憥ŅhhhhL? -------%???????????????.-------HI9??????G -----????IIIII@@a5666>'$$$, J= 4I 4 ?`,0`3{6bb+#---66666??_???? $$$$$d --kMII ۔O--]؍*-------%???????????????.-------(--8????G --???IIII-6666??6666-$4r266f u$$$ruۛ e 26v- %$4666?66------66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@F)@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;     Ҡ̍ō©΍΍Ԡҍō©΍΍Ԡԍō©΍ӠΠ̠ЍՠΠԠӍԠ̠ŠčӠԠ̠ή΍΍Ҡȍō©΍΍ҠŠٍō©΍΍Ҡˍō©΍΍ҠŠ΍ō©΍΍ō©΍ōΠŠ΍ō©΍ōϠŠˍō©΍΍ΠŠǍō©΍΍ΠŠ΍ō©ȠŠҍō©΍ōΠŠӍō©΍ōҠŠ̍ō©΍ōΠŠōō©΍ōΠŠٍōРŠǠ̍ō©΍ōΠŠ̍ō©΍ōΠŠčō©΍ōϠŠ؍ō©΍ō͍ױčٍύ֍ύˍױčԍ΍Í͍׹͍׵΍Í΍׳΍΍΍΍΍΍΍΍΍Ӎ׷΍ԍ΍ԍ    ӠŠōǠĮΠӠŠōǠĮӍō©΍΍ԠӍō©΍΍̠ŠĠԍō©΍ӠΠ̠ЍՠΠԠŠĠήŠ̠©΍΍ǬǠύō©΍΍Ҡȍō©΍΍ԠΠϧˍō©΍΍ҍō©΍΍ō©΍ōΠŠōō©΍΍٠ٍō©΍΍Πҍō©΍΍ŠŠԠōōΠҠōō©΍ōƠŠōō©΍ōΠŠҍō©΍ōԠŠٍō©΍ōΠŠˍōҠ̠ōō©΍ōҠŠ؍ō©΍ōԠōō©΍ōΠ٠čō©΍ōӠԠάάĬҠРƠōύ©ԍύ٠̍ύ©ԍӠΠ̠РՠΠԠϠčԮϠӠӠԠήԠӠԠǮҠϠӍ̠©ԍύՍύ©ԍύŠȠٍύ©ԍύ٠čύ©ԍύ٠΍ύ©ԍύŠčԍŠˠٍύ©ԍύ٠ҍύ©ԍύŠƠŠӍύ©ԍύōύ©ԍύŠҠ΍ύύ©ԍԍǠύ©ԍԍŠˠԍύ©ԍԍ٠Š΍ύ©ԍԍŠŠˍύ©ԍԍŠ΍ύ©ԍԍĠҍύ©ԍԍ̠΍ύ©ԍԍŠԍύ©ԍԍǠō     ΠӠŠŠԠǠĮŠӠŠōԠǠĮōΠŠōō©΍ōΠŠˠٍō©΍ōΠŠҧӠˍō©΍ōŠԠ؍   ԠήԍӠԠǮΠӠŠŠԠǠĮ΍ÍҠӠǍύ©ԍé΍΍ÍԠҠԍύ©ԍé΍ӠΠ̠ōՠŠŠ΍ϬԬĠήҠϠӍȍύ©ԍé΍΍ÍΠŠԍύ©ԍé΍΍ÍŠΠϠӠύύ©ԍé΍΍ÍԠˍύ©ԍé΍é΍ԍ٠٠ٍύ©ԍé΍ԍ٠Ġԍύ©ԍé΍ԍͬ٠ԍύ©ԍé΍΍ÍŠŠŠŠˍύ©ԍé΍ԍŠ̠Ӎύ©ԍé΍ԍӠƠŠĠ׍ύ©ԍé΍ԍ٠ٍύ©ԍԍé΍ύҠŠ΍ύ©ԍé΍ύŠƠ٠ԠӍύ©ԍé΍ύ٠ٍ̠ύ©ԍé΍ԍ٠ԲύǠ̍ύ©ԍé΍ύŠԠٍύ©ԍé΍ύ Ġ̍ύ©ԍé΍ύӠ٠ҍύ©ӍӠԠάάĬҠЍƠŮԠӍӠԠǮԍŬԠ΍ύ©ԍԍŠ٠ōύ©ԍӠΠ̠ȠՠŠԠӠԠ̠ϠĠӍԠ̠ԮҠϠōύ©ԍԍΠŠ͠ōύ©ԍԍנӍύ©ԍԍǠōύ©ԍԍǠ׍ύ©ԍύҠҍύ©ԍԍˠӍύ©ԍԍŠ̠ōύ©ԍԍħӠנҍύ©ԍԍ٠ύ©ԍύ٠Ҡ̍ύ©ԍύҮ΍ύ©ԍύ٠Ġٍύ©ԍύŠŠٍύ©ԲύҠԠōύ©ԍύҍύ©ԍύŠΠŠӍύ©ԍύ٠ҍύ©ԍύŠӠҍōŠŠӍԍ©ōōҠŠǍԍ©ōԍ٠ԠŠҍԍ©ōԍĠ̠ōԍ©ōōōŠŠ͍ԍ©ōōԠƠŠٍԍ©ōōԠŠЍԍ©ōōĠŠˍԍ©ōōŠŠŠōԍ©ōōΠĠƠ΍ԍ©ōōΠԠƠŠōԍ©ōōΠϠӍԍ© Ԡ̠ԍĠήҠԠӍӠԠǮΠӠŠōǠĮ΍΍ŠŠŠȍԍ©΍΍ŠɠӠЍԍ©΍΍٠ŠԠԍԍ©΍ӠΠ̠ōՠŠŠȍӠԍ©΍΍ԠӍԍ©΍΍Π٠Ǎԍ©΍΍ԠΠٍԍ©΍΍٠ΠŠǍԍ©Ԡ٠Ӎԍ©΍ԍ̠Ơȍԍ©΍΍٠΍ԍ©΍΍٠΍ԍ©΍΍ӍעԠƠӍԍ©΍ԍŠԠҍԍ©΍ԍΠ٠͠ōԍ©΍ԍҠȠԠōԍ©΍ԍŠԍԠōԍ©΍ԍΠĠŠōԍ©΍ԍˠƠōԍ©΍ԍԠȠҍԍ©΍ԍ ō©΍ӠΠӠōŠȠōĠήҠŠӠŠōǠĮΠӠŠōǠĮō©΍΍ˠ͠׍ō©΍΍ŠԠҍō©΍΍٠ΠŠǍō©΍΍ҠŠΠčō©΍΍ŠΠōō©΍΍ȬȠҍō©΍΍ӠŠ̠Ǎō©΍΍ҠԠӠˍҠō©΍ōԠŠРƠŠ̍ō©΍ōΠԠĠ΍ō©΍΍Ҡ΍ō©΍΍Π٠Ǎō©΍ōĠӠҍō©΍ōΠРƠŠ΍ō©΍ōҠŠˠӍō©΍ōŠŠōӠƠǍ΍©׍éԍԍÍӠԠ٠Ǎ΍©׍éԍԍÍ٠Šˍ΍©׍éԍԍÍŠ̠׍΍©Ƞ©׍éԍ׍ȠǠō΍©׍éԍ׍Ԡ٠Ѝ΍©׍éԍԍÍǠנӍ΍©׍éԍ׍Ƞԍ׍٠Ġٍ΍©׍éԍ׍ٍ΍©׍éԍ׍Ԡ٠ٍ΍©׍éԍ׍ӠƠŠŠč΍΍©׍éԍ΍٠Ӡō΍©׍éԍ΍ҠҠҍ΍©׍éԍ΍ҠΠŠč΍©׍é΍Ԡ٠ٍ΍©׍éԍ΍٠Šō΍©׍éԍ΍ŠŠנ΍΍©׍éԍ΍٠Πҍ̠٠ĠӍԠ̠ή٠ӠŠ΍ǠĮΠӠŠōǠĮ©ٍ΍ҠԠԍ΍©ٍ΍ŠŠ̠΍΍©ٍ΍Ԡ̠ŠŠō΍©ٍӠΠ̠ōՠŠȠӍԠ΍©ٍ΍Π٠Ǎ΍©ٍ΍̠٠Ǎ΍©ٍ΍٠΍΍©ٍ΍ŠΠϧˍ΍Šԍ΍©ٍٍŠԠӠ΍΍©ٍٍϠؠŠٍ΍©ٍ΍ΠŠō΍©ٍ΍ԠԠŠٍŠŠ̠΍΍©ٍٍϠŠĠԠȍ΍©ٍٍԠҠ΍΍©ٍٍϠɠĠϠȠՍ΍©ٍٍϠԠٍϠԠȍ΍©ٍٍΠҠϠԠ̍΍©ٍٍϠŠĠŠٍ΍©ٍٍϠԠŠؠ΍΍©ٍٍ   ӠΠ̠ŠՠŠŠȍӠԠ̠ԠĠӠԠ̍ŮҠԠӍԠǮōӠŠŠԍǠĮԠ٠Š؍ԍ©ōԍŠԠӠ΍ԍ©ōԍŠ٧Ӡԍԍ©ōԍǬˠčԍ©ōԢԍΠҍԍ©ōԍȠƠǍԍ©ōԍŠԠčԍ©ōԍנȠˍԍ©ōԍӍٍ©ύéԍĩ׍ԍÍǠٍٍ©ύéԍĩ׍ԍÍԬ٠Ҡٍٍ©ύéԍĩ׍ԍÍŠԠŠŠٍ͠©ύéԍĩ׍ύ٠ƠŠĠԍٍ©ύéԍĩ׍ύҠƠŠٍ͍©ύéԍĩ׍ύԠ̠ƠϠРŠčٍ©ύéԍĩ׍ٍϠŠĠŠҍٍ©ύéԍĩ׍ύŠΠٍٍ©ύéԍĩ׍ύ٠ϲٍϠԠ٠ٍٍ©ύéԍĩ׍ٍŠ٠Ԡԍٍ©ύéԍĩ׍ٍΠҠϠōٍ©ύéԍĩ׍ٍ   ά׬čŮԠӠԠӮŠӍԠӮ׍ӠŠҠҍٮΠӠōŠӠήԍ©ōé׍ĩ΍΍čϠĠӠύԍ©ōé׍ĩ΍΍čǠҠӍԍ©ōé׍ĩ΍ӠΠ̠׍Ԭōé׍ĩ΍΍čԠӠŠĠנٍԍ©ōé׍ĩ΍΍芊Ščԍ©ōé׍ĩ΍΍čҠŠŠčé׍ĩ΍׍ÍԠӠĠӠŠčԍ©ōé׍ĩ΍׍ÍҠΠŠōԍ©ōé׍ĩ΍׍ÍԠӠ̠Ӡōԍ©ĩ΍ōŠΠŠ̍ԍ©ōé׍ĩ΍׍Í٠Ġٍԍ©ōé׍ĩ΍׍Í٠ǠҠǍԍ©ōĩ΍ōĠŠčԍ©ōé׍ĩ΍ō͠ύԍ©ōé׍ĩ΍ōΠŠҧӠԍ©ōé׍΍ԍҠΠōԍ©ōé׍ĩ΍ԍŠȠƠǍԍ©ōé׍ĩ΍ōԠħӠōԍ©ōé׍ԍΠĬĠҍԍ©ōé׍ĩ΍ԍŠƠҠנӍԍ©ōé׍ĩ΍ԍŠ̠Ġԍԍ©ōé׍ĩ    ǠӍŮԠӠԠǮΠӠŠōǠĮ׍éԍԍÍǠŠƠ׍΍©׍éԍԍÍ٠̍΍©׍éԍӠΠӠΠ׬άĠԮנӠŠҠҠ٠Ӣéύĩ׍ũԍύōҠƠŠԠٍ©΍éōĩ׍ũύύŠԠԠƠ̍ύ©ԍé׍ĩٍũōԍԠҠ׍ōȠŠĠӍύ©ٍé΍ĩōũ׍׍Í٠Ġٍԍ©ōé׍ĩٍũύύÍŠ٠͠΍ō©΍  !!! ! ! ! ! ϮҠŠōԠӍΠōϠ΍΍ĩύύčŠԠčō©ԍé΍ĩύύčŠԠԍō©ԍé΍ĩύӠΠ̠׍ŬԬάĠޠé΍ĩύύč̠Ġ̍ō©ԍé΍ĩύύčŠ٠ϠΠٍō©ԍé΍ĩύύčŠ̠Π΍ō©ԍàé΍ĩύ΍Í͠ŠϠԍō©ԍé΍ĩύ΍ÍԠ̠Ӎō©ԍé΍ĩύ΍ÍӠΠӠōō©ԍ΍ĩύԍ̠ŠӠɠčō©ԍé΍ĩύ΍ÍǠŠҍō©ԍé΍ĩύ΍ÍӠΠנҍō©ԍé΍ĩύԍΠĠӍō©ԍé΍ĩύԍΠŠ΍ō©ԍé΍ĩύԍӠĠӍō©ԍéĩύōΠŠ٠Ӎō©ԍé΍ĩύōΠԠĠŠ΍ō©ԍé΍ĩύԍԠԠӍō©ԍōΠŠΠԍō©ԍé΍ĩύōӠŠӍō©ԍé΍ĩύōŠ٠Šōō©ԍé΍      ӠԠŮ٠ӠӮנӠŠҮéԍĩ׍׍čȠР͠٠ٍ̍©ύéԍĩ׍ӠΠ̠ŠՠŠŠȍϬԬ٬č׮ҠԠӍԠӮϠٍ©ύéԍĩ׍׍čӠĠӠԠӍٍ©ύéԍĩ׍׍č٠Ǡٍٍ©ύéԍĩ׍׍č٠Ǡٍٍ©ύٍ©ύéԍĩ׍ԍÍӠΠˍٍ©ύéԍĩ׍ԍÍ٧ӠˠĠҍٍ©ύéԍĩ׍׍čӠĠӠՠ΍ҍױ΍΍ױōŠō٠΍נҍ΍ĩōũ׍ٍÍϠРՠٍύ©ԍéٍĩ΍ũōӠΠӠ̍ՠŠĠϠҡϠōԠӍΠٍōŠԠӠԍύ©ԍé΍ĩōũٍٍÍϠŠՠ̠ҍύ©ԍéٍĩōũ΍ōčΠŠōύ©ԍéΠӍύ©ԍé΍ĩōũٍ׍ō٠ǠҠԍύ©ԍé΍ĩōũ׍΍ÍΠύ©ԍé΍ĩōũٍéٍĩ΍ũōύŠƠŠŠōύ©ԍé΍ĩōũٍōčȠ٠ōύ©ԍé΍ĩōũٍ΍ÍҠŠٍũύ΍Íˠύ׍©ԍé΍ĩōũٍٍōŠƠĠҍύ©ԍé΍ĩōũٍԍ٠Ġˍύ©ԍǠȍύ©ԍé΍ĩōũٍԍÍŬȬҠҍ΍©ōéԍĩύũٍύōԠ̠ΠӍԍ©΍é׍ĩύύԍԍԍҍײԍԍԍԍԍz" "   ΍ײԍY COURSEWARE, INC."h D$(4):D$"BLOADHR,A$800":D$"BLOADLARGE CHARS,A$3700":1013,76:1014,0:1015,8u 3:0:1 2261,13 " 274,44,42,22,189276,189276,22,2HC14((8).5):HCT4042DT,35,"^W^H^O?" DT40,5