' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭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- ( 0 Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`gwpp8 Bp|p@l\0p|| @ 3 @oy`8`~y@~xdpfFxp@ppp`w@ 608@88`=@08}ōҍ΍ō̍΍ҍ΍ōōٍ͍΍ōɍԍ΍ԍōԍԍՍӍҍԍԍҍōԍٍōٍ̍΍̍ō΍ōԍȍˍōǍō΍ǍЍҍԍčԍԍԍԍҍҍ΍ōٍԍ̍̍Í΍΍ٍčōōԍ̍΍΍ōōčҍ׍č΍ٍҍٍ͍΍čōٍ̍ԍӍԍōӍٍ׍čōÍˍҍ͍ōÍǍč΍΍ȍōȍҍōǍōō͍Ǎˍٍō̍ōӍō΍ԍ̍ōǍōԍԍӍԍčōōҍ΍ҍōԍčҍ΍ˍōōԍӍˍōƍōٍ΍ˍ̍ҍӍō΍ҍЍҍ΍ōō̍ԍȍ΍ōٍٍōԍ΍ˍԍҍԍōˍƍōԍ΍čȍٍӍčӍ΍͍׍ҍōˍٍ͍΍΍ҍ΍ōō̍ҍƍčٍˍ΍ٍҍōԍԍٍҍҍōōōԍԍōҍҍčԍōō΍ččˍҍ΍ҍԍĠԍč΍؍ԍ΍ԍҍԍҍ΍Ѝҍč΍ōčЍύӍōōčԍōҍ͍ҍԍȍō΍ōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍ͍ˍ΍ٍˍȍЍ΍΍΍ҍԍˍ΍̍ōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ōٍ͍̍΍ԍҍЍōɵٍٍ ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL*$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L? ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ/ ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"SCORE:";:30:"SPEED:"L50,63:24:2:"*** LIT'L RED BUG ***";:50,255X4K039k>FIELD:0,39KHBUSH:K(K2)2č(40(1)),KRROAD:16K8,24K8K\K 936:10::"THE OBJECT OF THIS GAME IS TO DRIVE YOUR"! "LITTLE@`0|@!_p@~!pw@~ @~!|\|!p@px}@~#@~#p`p`0LLxpqG?!84)13(16384)27820<>(16384)27ĺ(4);"RUN MENU"TR38144,127:38145,0b2050:60n:93610:10:"*** LIT'L RED BUG ***":19:"BY":15:"BISH BOBHOP"K11500:K3000:16298,0 22:" TIME:";:15:T0T15000T0T19000ĺ"ABOUT AVERAGE."Q T0T19000T0T22000ĺ"VERY GOOD!"n T0T22000ĺ"EXCELLENT!" T0T20000Č37120 K11000:K *20:"PUSH 'RETURN' KEY TO PLAY AGAIN OR":"PUSH 'ESC' KEY FOR A DIFFERENT GAME"416368,0:(163T);" ";:37:(N90SPD)' XTIMEO1006 :936:5Q 12:"---GAME OVER---"| 12:" YOUR SCORE OF ";(T0T);" IS "; T0T10000750 "TERRIBLE!"::T0T5000ĺ"(YOU SHOULD BE ASHAMED OF YOU SELF!)" T0T10000T0T15000ĺ"PRETTY BAD!") C1))DR(C3(C1)C1)+ LC1DLC1:430= LN33DLC1R RC1DRC1:450d RN33DRC1v LLDL:RRDR SPD(N255(P1))C5 KOSPDC5: T0TT0TC60SPD BACKFIELD1 Z(CZ):Z(CZ) &22:9:(TIMEN6);" ";:22:(T0@l!xG@>!`p@:&`x/@>'8`3po@~!@@x~}hOL"@\? p@!_x@~!0p@~ @!pp~!pppxy@~#@~#p p `0L1x2xp{C?!@}!xC@> |`?@?'`x/@>/z<`0p/@~!@@>p{p>hGF_ @y?>@`{x@~#8p@^`@ ~`~!pp!xy@v"0@#p0p `L3"8 p@v!}0xC@~ @`?@?'@h-@~.~?>@p`?@? @@~`|@hGC~ @s~ٍٍٍN:Z(CZ):Z(CZ):CR:PSCPS(P0):TIMETIMEC1:YTIMETWC3:XPSS5:BACKX,Y):CAR:YC1,YX ,FIELD:O,C9C1:O,C9O:BUSH:C40(C1),C1:ROAD:L,LN4C1:R,RN4C1:L,LN4O:R,RN4O:Z(CZ):Z(CZ) (C5(C1))DL(C3(C1)C1) (C5(4 (2000* <T0T0:TIME425:YTIME123H FPS1500:XPS75:BACKROAD` PL16:DL0:R20:DR0 ZC11:CZ16336:CPS11.76:P038144:C33:TW12:S575:O0:C939:CR38146:C4040:N44:C55:P138145:N3333:N255255:C6060:N66:N9090^ dBACK:YC1,YX:DOW<8@~ @|a@!p@p @ @~axA'p>8 @? @3xpOO~# @~ 0@x@@<xc1;`Gn#@^/p@v"|@|"pg?`h?@~&|<`CpG@| 0@|Cs?~hO@n#p?x`|@|a@!|@p@~ @~!x?C~ p@p 0p@~#@^!0@ 8p`|LC ~G#@~'x_@v"x}@'p?h?@~%x{@8`pG@~!`@^?~|hOp^#p@~p`8@!@~!p@~ @~!`F|!p`@ x@~#@~!0@p`lXpG?#ٍ΍ٍ _ %(4);"BLOAD LOGO,A$4000"0X(0)<D$(4)D(D$W2D$;"RUN MENU"]c U~@xGA~ @wx[xG@n!@||8@~ @>`N@!@@p@@ @~`~@Aw!p 88x| `yA`p|~!@~ 0``gq{@F^#@~+p=@~'t@| p@px?@~"|>@xG@| @c~hG@n# x8::B>B.<>|<<<>:8><.<<:><~?:<<8:\>\8:8>:<:D|<D>:8B>::8:(@B((|>>:<<>:<|<:B<\J8::>8>:|::8\:..B>D<\8BB@b:<:<::8\B<<\8:>:>|.>><\>>B8:.BBBBBBBB$@|~BBB0BBBH|xx@0BB00B@FHBDB$BBB@@@H<<~<~B8>>~<<@x<<< <B>80|x`@@ << <@B0;<><<<<~@@@0               B @HBHH@$bBD:"HDHB@:D\"TT"\GB"DD\DBB B"F:DbbbDH"D@THHbD"D\DTBBB@@BbB<DBBDb><<~FbFDBbDbF D DD|xDFBFbF|<$DBbB~~>FBDDFBDFBFTDDD>FBFBFFBF|xDFFB DBTB DBBFDDTBF D FBDFbDbDFDFBFDBDFDBFFDF$0<$$<FBBFBBFBBbRDF FD>FFFDbF TT BG< DDBbD~|0Z FBFBFFDbBBbDFF DTBbD DB>DFTBBBBB:\:>|><B\>\>:>|>8>||8:B:\:>BB(8<\<BB:<||><D:>><>:<:.||8>8>:<:B:|:<:|xί`@{!pp|LcC0p@v @~ 8f`s|@~"@~'x=@z'|?@< p`{pxs@~"17  >LhH0`@ tW ]a M ]a M ML պƠŨĠŨΠϠƠՠŨΠϠƠäΠϠŨՍϠŨՍϠŨՍڠڠƠؠŨکΠϠϠƠՠŨΠϠƠäΠϠƠŨΠŨպƠŨĠŨΠϠƠՠŨΠϠƠäΠϠƠŨΠŨԠĠϠѠԠĠՠэƠ٠ΠŨՍƠ٠ΠϠƠՠŨΠϠƠŨΠŨպƠŨĠŨΠ< < |x<<< ~<< p?@< ;<<< <<<~~~<~B8~~B~<<B888@B0>8D<8\\8D@0\D>8\088D|x<8@8@B0|< <888<@<B888<>>8D<l800>88D80B<\:88>B<@?8:@\D@T<\D><8<<08D8<T<<l80B8\088; ~< |>0<0<<0<><<\B8\080B8>8@\TT\@<\D>8<@8T800<\8D\D@8TBBBB"BBB\BH@DbbD\H"D@"HDD|xBD:\\BH B BD\B@@DTHHD:T@@DDDHB:bF@BDF\"D\T"D@HDDTB"D"`DbD\DDHBT@THBDbH:D Π ƠؠĠ Π Ơ ĠؠΠ  ƠؠĠȤ٢Π̠ԠԠȠŠŠԠŠҢ̠ԠϠ  ӲӲԍ̠ΤƠ̠äҠΠԠΤФΤƠؠΠ ƠؠĠˠΠϠƠؠΠ ƠؠĠ  ԠӤԬéƠäΠϠԠ ԠӤԬѩԠƠäΠϠ ԠӤԬĩ  ӲФ ŠԠԠŨ ŨàŨѠŨĠŨ  ԠӤԬ  ԠӤԬԠ ԠӤԬ©ԠԠΠؠƠؠΠԠŭŠƠؠΠԠԠƠؠĠǤ΢ΠƠؠΠԠԭŠԠŠΠؠΠύƠŠԠӍӡЍǍҠΠҠύӠԠŠϠŠҠҠӍŠӠŠŠӠӠӍӠԠ٠ԠӍӠΠҠŠӠŠӍӠŠΠŠҠƠҠ٠ύϠ̠Ӡ٠ӠҠŠŠӠŠύŠӠӠԠύӠҠŠĠƠŠŠύӠŠȠԠӠԠ͠ŠΠӍϠŠРΠŠӍӠ̠٠Π٠ӍӠϠŠƠĠύӠŠŠŠӠύϠԠŠˠ٠ӠˠӍӠŠΠŠŠΠנˠύŠŠ٠ӠΠŠΠǠӍΠՠҠӠύӠŠŠǠύӠΠΠ̠ύӠ͠ҠӍӠҠҧӠҠҠԠύĠ̠ԠύӠΠŠŠƠǠӍӠŠȠӠŠύŠ̠ӠӠύӠŠŠŠӠŠĠӠύӠŠҠ͠ҠΠҠǠύϠՠŠàԠԠύӠˠŠϠŠĠӍӠŠԠӠΠΠύӠӠΠŠŠӠŠύӠҠҠҠΠՠύӠԠŠϠҠύϠӠӠ̠ŠȠύӠŠΠŠƠԠӍϠӠϠ٠ӠύϠ̠ӠˠύϠՠԠРӠύΠՠנӠ͠٠ӍӠԠŠϠŠΠԠӍӠנӍӠˠŠӠӍϠӠŠӠύΠՠŠҠύӠԠǠΠӠ͠ύӠĠŠӍϠӠŠҠӍϠӠҠŠӍϠՠŠӠύΠՠ̠ҠՠԠΠҠӍΠՠˠΠǠӍϠՠҠŠύϠӠ٠ύϠՠˠΠӠӍӠΠŠ٠ӍΠՠˠΠΠύӠΠŠӍΠՠԠҠӍӠŠԠӍϠűٍ΍ٍ ŠέŭƭōԠԠӠ̠ҠԠϠӍԠԠԨԩԠԍԠԠӍΠĤҤ̭͠č͠ǠӍŠؠ ԠԠ ԠӠŠԠŠҢ̠ԠϠΠϠՠ  ؠˠƠؠΠŠƠؠΠϠ͠ԠήԠԠӠŠˠנ٠ϠԠŠҠҮԠԠӠŠԠŠҢ̠ԠϠŮԠԠԤΠ͠ӍŠ ԠӢ ԠȠŠԠĠȢԠŠԠήԠԠŠŠҠƠԢΠҠɠϠԠԠΠԠ¨Π͠Ӡō ԠŠҠźԠԠ٧Ӡź  Ԡͤ  ԠŠƤĠӢԠĤ΢ƤԠĤĢƤΠҠڠϠҠؠϠΠΠԠӤڬةԠԠԠĤŢƤΠ¨Πؤؤ¨   Ԡ͠ԠϠٍĤҤ̭͠čԠĤΠԠĤĠԠ¤äŤǤȤԠĤ  ؤéԠԠ¨Πؤؤ¨ؤ̠ӠĢԠ¨Πؤؤ¨ؤΠŠӢԠؤ¨ҠɠϠ Ԡؤ٢Ԡ¨Πؤؤ¨ ؤҠͮӮԠΠȮĮԠ¨Πؤؤ¨ōٍ͍̍΍ԍҍЍōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍҠ͠ҠΠҠǠЍҍ׍ōōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ҠύϠӠӠ̠ŠȠύӠŠΠŠƠԠӍϠӠϠ٠ӠύϠ̠ӠˠύϠՠԠРӠύΠՠנӠ͠٠ӍӠԠŠϠŠΠԠӍӠנӍӠˠŠӠӍϠӠŠӠύΠՠŠҠύӠԠǠΠӠ͠ύӠĠŠӍϠӠŠҠӍϠӠҠŠӍϠՠŠӠύΠՠ̠ҠՠԠΠҠӍΠՠˠΠǠӍϠՠҠŠύϠӠ٠ύϠՠˠΠӠӍӠΠŠ٠ӍΠՠˠΠΠύӠΠŠӍΠՠԠҠӍӠŠԠӍϠűٍ΍΍ E(4)U:E(4)0E(5)0ī110350&P+UE(4)ī11035C&Q+C$"5"ī11094N&R+E(3)UY&S+11095d&T+E(4)Uo&U+11095z&V+E(5)U&W+ZZ1&\+NE(Z)ī11095&a+NE(Z)NZ&f+&p+ ASSIGNMENT TO ARRAY&u+NFDFD1&z+XZ175&+ZX16&+TT1'+F%#+11050%$+Q((1)5)1#%*+UQ3%/+Y1E(1)UC%4+Y1ī11035V%9+UE(1)ī11035%>+E(2)0E(2)U:E(2)0E(3)0ī11035%C+UE(2)ī11035%D+C$"3"ī11090%H+E(3)0E(3)U:E(3)0E(4)0ī11035%M+UE(3)ī11035%N+C$"4"ī11092&O+E(4)0E(1)0:E(2)0:E(3)0$ +11025?$ +E(1)0:E(2)0:E(3)0:E(4)0J$+11025q$+E(1)0:E(2)0:E(3)0:E(4)0:E(5)0|$+11025$+Y0$+Z0$+YY1$+C$"3"ī11040$+C$"4"ī11042$+C$"5"ī11044$ +Q((1)3)1$!+11050$"+Q((1)4)1 )#)M1ī106855#)8:"PRINT RESULTS?(Y/N):";PA$R#)PA$"Y"MM1:1:10510x#)0:8:"STORE RESULTS?(Y/N):";FD$#)FD$"Y"ī12000#):17#* RANDOM ASSIGNMENTS OF ITEMS#+N1#+C$"3"ī11019#+C$"4"ī11021#+C$"5"ī11023$ +(1,3);37);B(3,3)"Y)O"^)" TOTAL TIME................";B(1,4);37);B(3,4)U"r)f")"TREATMENT"l")")" % CORRECT:FIRST TRIAL.....";B(2,5);"%"")" % CORRECT:SECOND TRIAL....";B(2,6);"%"")" % CORRECT:THREE OR MORE...";B(2,7);"%"#;F$#!():"# OF PRESENTATIONS:";A$:!))"BEGINNING #:";B$U!*)"# OF SELECTIONS:";C$]!,):!1)"BASERATE PRE POST"!3)!6)" % CORRECT.................";B(1,1);"%";37);B(3,1);"%"!@)"J)" MEAN-RESPONSE-TIME........";BPS)100)# A%B(XX,6)((OCPS)100)> B%B(XX,7)((TCPS)100)c C%B(XX,8)(((ROOCTC)(PS))100)x D%R0:W0:B0:BT0~ N% ) PRINT RESULTS )M0 ) )X$"RESULTS":;20(X$)2);X$; ) )"NAME:";QNM$ ")"DATE:";QDT$!')"PROGRAM:" P#3000Z#9500$d#XX3İ105004n#XX3ī9090Nx#E$"Y"G$"Y"İ10500X#7000p% ACCUMULATE DATA|&%XXXX10%B(XX,1)((RPS)100)9%B(XX,2)W:%B(XX,3)(BT100).01>%B(XX,4)(BT100).01?%XX1XX3ī9540 @%B(XX,5)((ROYT(CT)S2S170508 COUNTING ONE WRONG ANSWERD RORO1J ol COUNTING FOR TWO WRONG ANSWERS{v OCOC1  COUNTING MORE THAN TWO WRONG ANSWERS TCTC1 (#H$"N"ī90502#2000<#P2$T$:2060:P2STDF#PTP2P1׍ҍЍǍٍ΍ҍҍǍҍč̍ōٍ͍̍΍ԍҍЍōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōōōōӍӍō΍Ǎōҍ׍ōōӍٍҍҍ׍ōōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍӠנӍӠˠŠӠӍϠӠŠӠύΠՠŠҠύӠԠǠΠӠ͠ύӠĠŠӍϠӠŠҠӍϠӠҠŠӍϠՠŠӠύȍԍՠԠΠҠӍΠՠˠΠǠӍϠՠҠŠύϠӠ٠ύϠՠˠΠӠӍӠΠŠ٠ӍΠՠˠΠΠύӠΠŠӍΠՠԠҠӍӠŠԠӍϠŲٍٍٍ 35:13:"";E$(TE$"Y"E$"N"ī41702Y4000E^36:15:"";G$`hG$"Y"G$"N"ī4190jm4000}r32:17:"";H$|H$"Y"H$"N"ī42104000D$(4): CTRL-DD$;"OPEN DATA"D$;"DELETE DATA"D$;"OPEN DATA" D$;4160'FG$"4"ī4170+(FG$"5"ī4190>)FG$"6"ī4210Q*FG$"7"ī4139[+4230,37:7:" ";A$:(A$)1(A$)75ī414014000631:9:" ";B$:(B$)1(B$)75ī4150;4000@33:11:" ";C$:(C$)5(C$)3ī4160E4000 J3:"4) PRE-TREATMENT BASERATE?(Y/N) ";E$.]3:"5) POST-TREATMENT BASERATE?(Y/N) ";G$c3:"6) CLOCK/CALENDER USED?(Y/N) ";H$3:"7) NO CHANGES ""14:22:"SELECT(1-7)";FG$$FG$"1"ī4140%FG$"2"ī4150&FG$"3" D$;"CLOSE DATA" 40007 LEARNING PARAMETERS=_2:10:"LEARNING PARAMETERS"7:3:"1) NUMBER OF PRESENTATIONS(1-75): ";A$3:"2) BEGIN WITH NUMBER(1-75): ";B$3:"3) NUMBER OF SELECTIONS(3-5): ";C$(TD86400H3600M60SH CALCULATE THE MEAN-TIME-OF-RESPONSEV TT0:BT0c PS(A$)o T1PS TTTTYT(T) BTTTBA T BTTTPS  D$(4): CTRL-D D$;"OPEN DATA" D$;"READ DATA" A$,B$,C$,E$,G$,H$$,7,2))*M((T$,10,2))/4S((T$,13,6))Z>Z(1)0:Z(2)31:Z(3)28:Z(4)31:Z(5)30HZ(6)31:Z(7)30:Z(8)31:Z(9)31:Z(10)30:Z(11)31:Z(12)30:Z(13)31RDTD0\I1MTfDTDDTDZ(I)pIzDTDDTDDMT2L1DTDDTD1STDD" 4) PRESS ";::"SPACE BAR";::" TO CONTINUE.":@F5:"PRESS ";::"SPACE BAR";::" TO RETURN TO MENU ":38:18:R$:R$""ī1777" ";T$00 MT((T$,1,2))D((T$,4,2)) H((T(14:"INSTRUCTIONS"A25:" 1) MATCH THE TARGET WORD WITH"b<" THE BEST SELECTION."hFP" 2) TYPE THE NUMBER OF THAT"Z" SELECTION."dn" 3) PRESS THE BACK ARROW KEY TO "x" CHANGE YOUR ANSWER."41):F4(1012)+8ZF1010,3:1011,3:1012,16618dF=88J19010C8=JX8BJ(222)255Č771e8LJ216,0:k8PÀ8BY B. SHON 5/15/83:958:17690:CV:57E1:1:868::868::868:1:7E17680:"L=LIST WORDS";21);"E=EDIT WORDS":"S=SAVE CHANGES";21);"Q=QUIT":::7$ECV24CV237.E78E21(X$)2);X$:7OFALTER RESET ROUTINE7PF(4)"BLOAD RESET" 8UFF2(1010):F3(10168:17680:"WORD FILE WILL BE PERMANENTLY CHANGED.":"ENTER 'CONT' TO CONTINUE, ANYTHING":"ELSE TO RETURN TO MENU. ";X$:X$"CONT"176706DD$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$6DI1N:FS$((I6.011),I(I6.01)6):6DD$"CLOSE"7ECV:T;": ";:ISTRT:17362:"CHANGE TO: ";X$K5DX$"!"Ģ(37)1:958:17620\5DX$""17600v5DFS$((I6.011),J)X$5D(37)1:868:STRT;5);:ISTRT:17362:STRTSTRT1:868:J6ĺ5DSTRTN175605DCV(37)1:17690:CV:6DCV(37)1:1:8N17490'4zD(X$)0STRT(X$):17550~4D17370:STRT0İ17680:X$" NOT FOUND"::"PRESS ANY KEY TO CONTINUE":17450:174804D17680:" - NO CHANGE":"! - ENDS EDIT":"OTHER ENTRIES CHANGE WORD":CV:868)5DJSTRT(STRT6.01)6:"WORD ";STR(16384)12817450"34D16368,0:13>DCV(37)13HD17680:"ENTER WORD OR WORD NUMBER":" WILL BEGIN EDITING AT 1":"'!' WILL RETURN TO MENU3RDCV:868:"START EDITING AT :";X$:177003\DX$"!"ĢCV:176203fDX$""STRT1:175504pD(X$)ٍٍ΍ ԍōԍԍՍӍҍԍԍҍōԍٍōٍ̍΍̍ō΍ōԍȍˍōǍō΍ǍЍҍԍčԍԍԍԍҍҍ΍ōٍԍ̍̍Í΍΍ٍčōōԍ̍΍΍ōōčҍ׍č΍ٍҍٍ͍΍čōٍ̍ԍӍԍōӍٍ׍čōÍˍҍ͍ōÍǍč΍΍ȍōȍҍōǍōō͍Ǎˍٍō̍ōӍō΍ԍ̍ōǍōԍԍӍԍčōōҍ΍ҍōԍčҍ΍ˍōōԍӍˍōƍōٍ΍ˍ̍ҍӍō΍ҍЍҍ΍ōō̍ԍȍ΍ōٍٍōԍ΍ˍԍҍԍōˍƍōԍ΍čȍٍӍčӍ΍͍׍ҍōˍٍ͍΍΍ҍ΍ōō̍ҍƍčٍˍ΍ٍҍōԍԍٍҍҍōōōԍԍōҍҍčԍōō΍ččˍҍ΍ҍԍĠԍč΍؍ԍ΍ԍҍԍҍ΍Ѝҍč΍ōčЍύӍōōčԍōҍ͍ҍԍȍō΍ōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍ͍ˍ΍ٍˍȍЍ΍΍΍ҍԍˍ΍̍ōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ōٍ͍̍΍ԍҍЍō΍ٍҍٍȍōύ΍΍ҍ΍ōōԍ؍ō΍ҍҍˍȍԍ׍ōӍӍō΍Ǎōҍ׍ōōӍٍҍҍ׍ōf )(4);"BLOAD PIC.LOGO,A$4000"4X(0)@D$(4)H(D$^2D$;"RUN MENU II"dc  ōҍƍ΍ӍЍӍӍˍԍˍҍ̍ҍō΍ˍύԍōٍōٍԍԍӍҍčԍҍύÍǍōԍԍ̍ҍȍˍύ ٍٍ΍@C@ 8`1p8DCcc@~'@x=@z'|?|?@?xps~ ~x@< px 0@An@xs@~"xGA~ @wx@[xG@n!@||xA@N@>`N@!a`@ Tp7@w@@ @~`~@Aw!p {?pxp|~!@~ 0@F^#@CA 8`1psLc7@~+pp=@~'tx`XGy|W c3<|@| px `A|~@x?@~"|xG@| @cG@~hG@n# x`x@|a@!Aa@t0@ @ @~axA'p`o?`@Ax1pOO~# @~ 0@`Gn#`CA!x` @cx~@^/8p@v"|paa|9| 38@|"pg< paH~6ph?@~&|8pG@| 0@|Cs?@~hO@n#p?p|@|a@!AaGd0@@~ @~!x?C~ p`~0@alq p@~#@^!0@ ~G#pCyx @@p~@~'xx_@v"x}`a@xcp @'p? 88v40h?@~%x{0pG@~!`@^?~>`|hOp^#p@~ٍٍ΍p|wx`pp@~'x8G@~c?`}w?@c@x@n}`p @_g xtg< x/@~'p0pO@~!@@<~8phOX>"@@N `@!_x@~!CD\|!p@@x0c@!x}@~#@~#p` pqG?!x@`p~@l!pxG@>!`pc38`|ga` @:&`7X08`x/@>'@} >~po@~!@@x~}hOL"@\?L @!_`@~!BxD`C?@~ @!p<@~ p~!ppx 8c@#xy@~#@~#p @ p{C?!`@@@}!xC@> |`?c3p`> Gc?` @?'`p`@x/@>/z@A> @#P@p/@~!@@>p{hGF_ @y?>|@`{@~#CxF`?c@^`@ ~@;Xp|?< ``~!ph 0A@cxy@v"0@#p0p p@v!@}0xC@~ @`?C#`0`18GC`@?'@@h-@~.~?@c @ \`c`?@? @@~`hGC~ @s~΍ٍ΍z#??03?3  ԠӠ ΠŠŠ ԠҠ ԠŠ Բ ĠӮ! ծ $ծР1 Ϡ"Ԯנ ׮Ԡ O ԠεԠαԮ ϠӭϠӠ Ԡ  Šՠ3RONG RESPONSES WW1%ABAB1^XX1:X$"INCORRECT,TRY AGAIN"::;20(X$)2);X$;nXX1ī5035|XX1K1H$"Y"āHN150:A(16336):5025p COUNTING CORRECT RESPONSESzK1ī6030RR1&XX1ĺ:X$"CORR"H$"N"4210|4130#X179D$;"UNLOCK DATA"MD$;"OPEN DATA"cD$;"DELETE DATA"wD$;"OPEN DATA"D$;"WRITE DATA"A$B$C$E$G$H$D$;"CLOSE DATA"D$;"LOCK DATA"17 COUNTING W0 141304636:9:"";B$:(B$)1(B$)754150>;4130g@33:11:"";C$:(C$)5(C$)34160qE4130J36:13:"";E$TE$"Y"E$"N"ī4170Y4130^37:15:"";G$hG$"Y"G$"N"ī4190m4130r36:17:"";H$wH$"YRETURN TO MENU"5"14:22:868:"SELECT(1-7):";FG$P#(FG$)0(FG$)7X1b$FG$"1"4140t%FG$"2"4150&FG$"3"4160'FG$"4"4170(FG$"5"4190)FG$"6"4210*FG$"7"4230+4130,37:7:"";A$:(A$)1(A$)75414NG PRESENTATION(1-75): ";B$!M3:"3) NUMBER OF SELECTIONS(3-5): ";C$S3:"4) PRE-TREATMENT BASERATE?(Y/N): ";E$3:"5) POST-TREATMENT BASERATE?(Y/N): ";G$3:"6) AUDITORY REINFORCEMENT?(Y/N): ";H$ !3:"7) NSE TT0:BT0 PS(A$)* T1PS: TTTTYT(T)A TN BTTTPST k D$(4): CTRL-D LEARNING PARAMETERS:X02:10:"LEARNING PARAMETERS"7:3:"1) NUMBER OF PRESENTATIONS(1-75): ";A$3:"2) BEGINNIWER." C" 4) PRESS ";::"SPACE BAR";::" TO CONTINUE."IOU5:"PRESS ";::"SPACE BAR";::" TO RETURN TO MENU ":38:18X(16384):X128146016368,0:X160146017 CALCULATE THE MEAN-TIME-OF-RESPOUCTIONS %(14:"INSTRUCTIONS"P25:" 1) MATCH THE TARGET WORD WITH"q<" THE BEST SELECTION."wFP" 2) TYPE THE NUMBER OF THAT"Z" SELECTION."dn" 3) PRESS THE BACK ARROW KEY TO "x" CHANGE YOUR ANS175ZX16NN1+FS$(XZ,ZX)17JD$;"CLOSE";F$PfI140:"*";::{"*";40);"*";: USERS NAME9:"TYPE YOUR NAME:""TODAY'S DATE:"16:9:"";QNM$14:11:"";QDT$ INSTRX$)2);X$;40);"*";+ ~1210:1210:1200:G  ASSIGNMENT TO ARRAY^ D$(4): CTRL-Dr D$;"OPEN DATA" D$;"READ DATA" A$,B$,C$,E$,G$,H$ D$;"CLOSE DATA" F$"YES-NO QUESTIONS" D$;"OPEN";F$ D$;"READ";F$ N0XZ10; 8X$"YES-NO QUESTIONS":"*";21(X$)2);X$;40);"*";N =I13:1210:^ A1210:1210 LX$" (C) COPYRIGHT 1983":"*";20(X$)2);X$;40);"*"; VX$"ALL RIGHTS RESERVED":"*";21(X$)2);X$;40);"*"; `X$"OLD PUEBLO SOFTWARE":"*";21( YOU NEXT TIME"C 1010,F2:1011,F3:1012,F4:I040:768I,0::W  TITLE FRAME] d 2t 1200:1210 $X$"COMPUTERIZED READING":"*";21(X$)2);X$;40);"*"; )1210 .X$"FOR APHASICS:":"*";21(X$)2);X$;40);"*"; 31210:120 BD$"6"ī900% BD$"2"1971 6:1230M T0:XXT:ROT:OCT:TCTy X$"N/A":I14:B$(1,I)X$:B$(3,I)X$: 7000 :10 5:"EXIT PROGRAM (Y/N)"; 10:24:958:P$:P$"Y"P$"N"907 P$"Y"ī925 17 5:14:"SEE4) CHANGE LEARNING PARAMETERS"% I " (5) SUMMARY OF RESULTS"O m " (6) EXIT PROGRAM"s 21:11:"SELECT (1-6):";:868:"";BD$:X(BD$):X1X6197 BD$"1"1300 BD$"3"17000 BD$"4"ī3500 BD$"5"ī1500ٍٍٍԍԍōҍҍčԍōōƍōٍ΍ˍ̍ҍӍō΍ҍЍҍ΍ōō̍ԍȍ΍ōٍٍōԍ΍ˍԍҍԍōҍ͍ҍԍȍō΍ōӍčӍ΍͍׍ҍōˍٍ͍΍΍ҍ΍ōō̍ҍƍčٍˍ΍ٍҍōԍԍٍҍҍōōōÍ΍΍΍ҍԍˍ΍̍ō΍ččˍҍ΍ҍԍĠԍč΍؍ԍ΍ԍҍԍҍ΍Ѝҍč΍ōčЍύӍōōčԍōٍ͍΍ԍҍЍōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍ͍ˍ΍ٍˍȍЍӍٍҍҍ׍ōōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ō̍ōԍԍ̍ҍȍˍύ΍ٍҍٍȍōύ΍΍ҍ΍ōōԍ؍ō΍ҍҍˍȍԍ׍ōӍӍō΍Ǎōҍ׍ōŠՠοӍύӠŠӠˍӠŠӠˍӠŠӠˍӍӍˍԍˍҍ̍ҍō΍ˍύԍōٍōٍԍԍӍҍčԍҍύÍǍ     3)((BT100.5)100)7>%B$(XX,4)((TT100.5)100)L?%XX1XX3ī9540j@%B(XX,5)((ROPS)100.5)A%B(XX,6)((OCPS)100.5)B%B(XX,7)((TCPS)100.5)C%B(XX,8)(((ROOCTC)(PS))100.5)D%R0:W0:B0:BT0:TC0N%) PRINT RES8)\!TRD2(T35)f!(#:/Z#3000:9500?d#XX310500On#XX3ī9090ix#E$"Y"G$"Y"İ10500s#7000% ACCUMULATE DATA&%XXXX1+%(XX1E$"N")(XX3G$"N")XX295350%B$(XX,1)(((RPS)100.5))"%"9%B(XX,2)W:%B$(XX,ORO1  1l COUNTING FOR TWO WRONG ANSWERS=v OCOC1C n COUNTING MORE THAN TWO WRONG ANSWERSz TCTC1 4!RD2(X)(X100.5)100>!16368,0:T0::AP$;:H!X(16384):X127TT1:8520R!16368,0:(36)W!AN$(X12İ8300XX1AB2İ84001AB0XX1İ8200:AB0PXX1H$"Y"Č818:" PUSH THE ";::"SPACE BAR";::" TO CONTINUE";X(16384):X128816216368,0:X1608162YT(BA)S27050 COUNTING ONE WRONG ANSWER R8090 %10:"4) ";FS$(CT,Q)9:C$"4"ī8090T10:"5) ";FS$(CT,PD)`20:40qS20:AP$" "20:19:8500:S2S2TA(AN$):A(C$)A18115AN$:AP$AN$ANXİ5000ANXK1ī8115ANXİ6000XX1AB1OST-BASERATE #";eBA$j34,1:-XX13=@::orAE(1)1:BE(2)1:CE(3)1:QE(4)1:PDE(5)16:21(FS$(CT,1))2);FS$(CT,1)10:10:"1) ";FS$(CT,A)10:"2) ";FS$(CT,B)10:"3) ";FS$(CT,C)C$"3"SENTATIONS ARE THE SAME+BAPSġ:9000:C(BA,1)SBIBA07136VTB1BAnCTC(TB,1)ġ:7050vTBSBCT:XX0E$"N"XX1LXX0ĺ"PRE-BASERATE #";VXX1ĺ"TREATMENT #";[XX2G$"N"10500`XX2ĺ"PύԠҬҬϺϠĠԠźԤԠƠӺЍԠƠӺԍԠԠŠŠԠԢԠߢԠһһҤ̭͠čԠĤΠӢԠĤĠӢԠҬҬύԠĤŠӢŠؤ٠ƠӢԠ¨ΠؤؤԠԠƠŠԺ  ԠԤԠԠŠΠŠҠƠӺ  ԠЍԠԠŠΠŠҠƠӺ  ԠԍĤߢԠһһύԠҬҬϺϠĠԠƠӺԍԠԠŠŠԠԢԠ߻¨ΠؤؤԠԠԠźԤԠƠӺЍԠƠӺԍԠԠŠŠԠԢԠǍЍҍԍčԍōҍ΍ō̍΍ҍ΍ōōٍ͍΍ōɍԍ΍ҍ׍č΍ٍҍōԍōԍԍՍӍҍԍԍҍōԍٍōٍ̍΍̍ō΍ōԍȍˍōǍō΍Ǎōō͍Ǎˍԍԍԍҍҍ΍ōٍԍ̍̍Í΍΍ٍčōōԍ̍΍΍ōōč΍ˍōōԍӍˍٍ͍΍čōٍ̍ԍӍԍōӍٍ׍čōÍˍҍ͍ōÍǍč΍΍ȍōȍҍˍƍōԍ΍čȍٍٍō̍ōӍō΍ԍ̍ōǍōԍԍӍԍčōōҍ΍ҍōԍčҍ::"TYPE IN THE NAME OF THE PATIENT.":;':"NAME: ";QPT$G':16000[':D$"VERIFY"QPT$f':19000':LP$(1)"P=# OF PRESENTATIONS":LP$(2)"PRE=PRE-BASERATE":LP$(3)"B=BEGINNING NUMBER":LP$(4)"PST=POST-BASERATE":LP$(5)"S=# OF SELECTIONS"(:::IйUNTING WRONG RESPONSES !WW1-ABAB1fXX1:X$"INCORRECT,TRY AGAIN"::;20(X$)2);X$;vXX1ī5035XX1K1H$"Y"āHN150:A(16336):5025p COUNTING CORRECT RESPONSESzK1ī6030RR1.XX1ĺ:wH$"Y"H$"N"4210!|4130,X17BD$;"UNLOCK DATA"VD$;"OPEN DATA"lD$;"DELETE DATA"D$;"OPEN DATA"D$;"WRITE DATA"A$B$2E$G$H$D$;"CLOSE DATA"D$;"LOCK DATA"17 CO0 +41304,37:7:"";A$:(A$)1(A$)754140A19:4045p636:9:"";B$:(B$)1(B$)76(A$)4150z;4130J36:11:"";E$TE$"Y"E$"N"ī4170Y4130^37:13:"";G$hG$"Y"G$"N"ī4190m4130r36:15:"";H$23:"5) AUDITORY REINFORCEMENT?(Y/N): ";H$8 T!3:"6) RETURN TO MENU"z"14:22:868:"SELECT(1-6):";FG$#(FG$)0(FG$)6X1$FG$"1"4140%FG$"2"4150'FG$"3"4170(FG$"4"4190)FG$"5"4210*FG$"6"423NUMBER OF PRESENTATIONS(1-75): ";A$)L(B$)76(A$)B$(76(A$))3:"2) BEGINNING PRESENTATION(1-";76(A$);"):";36);B$;:868:3:"3) PRE-TREATMENT BASERATE?(Y/N): ";E$3:"4) POST-TREATMENT BASERATE?(Y/N): ";G$,0:X160146017C CALCULATE THE MEAN-TIME-OF-RESPONSEQ TT0:BT0^ PS(A$)j T1PSz TTTTYT(T) T BTTTPS  D$(4):CTRL-D LEARNING PARAMETERS:X02:10:"LEARNING PARAMETERS"#7:3:"1) ACK ARROW KEY TO "3x" CHANGE YOUR ANSWER."9q" 4) PRESS ";::"SPACE BAR";::" TO CONTINUE."w}5:"PRESS ";::"SPACE BAR";::" TO RETURN TO MENU ":38:18X(16384):X128146016368"";QDT$:QDT$(QDT$,8)1 INSTRUCTIONS7O(14:"INSTRUCTIONS"~25:" 1) MATCH THE TARGET QUESTION WITH"<" THE BEST SELECTION."FP" 2) TYPE THE NUMBER OF THAT"Z" SELECTION."dn" 3) PRESS THE BN0XZ175!ZX12+NN1;FS$(XZ,ZX)AGZD$;"CLOSE";F$`vI140:"*";::"*";40);"*";: USERS NAME9:"TYPE YOUR NAME:""TODAY'S DATE (XX/XX/XX):"16:9:"";QNM$25:11:*";21(X$)2);X$;40);"*";4 ~1210:1210:1200:P  ASSIGNMENT TO ARRAYg D$(4): CTRL-D{ D$;"OPEN DATA" D$;"READ DATA" A$,B$,C$,E$,G$,H$:C$"2" D$;"CLOSE DATA" F$"YES-NO QUESTIONS" D$;"OPEN";F$D$;"READ";F$1210:1210E 8X$"YES-NO QUESTIONS":"*";21(X$)2);X$;40);"*";X =I13:1210:h A1210:1210 LX$" (C) COPYRIGHT 1984":"*";20(X$)2);X$;40);"*"; VX$"ALL RIGHTS RESERVED":"*";21(X$)2);X$;40);"*"; `X$"COLLEGE-HILL PRESS":"17# 5:14:"SEE YOU NEXT TIME"W 1010,F2:1011,F3:1012,F4:I040:768I,0::k  TITLE FRAMEq x 2 1200:1210 $X$"COMPUTERIZED READING":"*";21(X$)2);X$;40);"*"; .X$"FOR APHASICS:":"*";21(X$)2);X$;40);"*"; 30 BD$"5"ī15000' BD$"6"ī9009 BD$"2"197E 6:1230a T0:XXT:ROT:OCT:TCT X$"N/A":I14:B$(1,I)X$:B$(3,I)X$: 7000 :10 5:"EXIT PROGRAM (Y/N)"; 10:24:958:P$:P$"Y"P$"N"907 P$"Y"ī925 . " (4) CHANGE LEARNING PARAMETERS"4 ] " (5) REVIEW PREVIOUS RESULTS"c " (6) EXIT PROGRAM" 21:11:"SELECT (1-6):";:868:"";BD$:X(BD$):X1X6197 BD$"1"1300 BD$"3"17000 BD$"4"ī350h-  : 245763YT(75),FS$(75,2),C(75,10)D1000:18000`:D$:D$"CLOSE":19000f-y<4:18:"MENU"K::P" (1) REVIEW INSTRUCTIONS"Zd" (2) RUN COMPUTERIZED READING"" (3) EDIT STIMULI"                  :49237,0:49239,0:49232,0-&j;D$:D$"PR#1"[&t;X$"SUMMARY OF RESULTS":;41(X$)2);X$e&y;::&~;LP$(1)"P=NUMBER OF PRESENTATIONS"&;"NAME: ";QPT$;60);"PARAMETERS:"&;I142:56);LP$(I):&;"PROGRAM: "F$;56);LP$(5)&;:N';"DAT"2";38);"3+"#%:I139:"=";::.%:15500:%:16100B%;X0b%;D$"OPEN"QPT$:D$"READ"QPT$t%;15600:15630%.;XX1:X1115130%3;18:"PRESS ANY KEY TO CONTINUE"%8;(16384)12815160%B;16368,0:X0::15130%`;::16200&e;49234,0P$(3)"B=BEGINNING NUMBER":LP$(4)"PST=POST-BASERATE":LP$(5)""_$:::I139:"=";:::34,5$:I152:LP$(I);23);LP$(I1)::35,19:2:$:"DATE"12)"PARMS"20)"BASERATE"30)"TREATMENT" %:12);"P";15);"B";20);"PRE";24);"PST";30);"1";34);PEN"QNM$#X/D$"CLOSE"#b/8#: SUMMARY OF RESULTS>#:X#:D$(4):BLNK$" "#::"TYPE IN THE NAME OF THE PATIENT.":#:"NAME: ";QPT$#:16000#:D$"VERIFY"QPT$#:19000?$:LP$(1)"P=# OF PRESENTATIONS":LP$(2)"PRE=PRE-BASERATE":LORE RESULTS ".D$(4): CTRL-D,".12100O".D$"APPEND"QNM$:D$"WRITE"QNM$e"/QDT$:A$:B$:C$" /I132:B$(I,1)"N/A"B$(I,1)(B$(I,1),(B$(I,1))1)"/B$(I,1):"/B(2,5):B(2,6):B(2,7)"0/D$"CLOSE"":/19000:17"D/19000#N/D$"O";PA$:PA$"Y"PA$"N"10660B!)PA$"Y"MM1:D$"PR#1":10510R!)D$"PR#0":!)23:8:868:"STORE RESULTS (Y/N)? :";FD$:FD$"Y"FD$"N"10690!)FD$"Y"12000!)17!*ANSWER ASSIGNMENTS!+NX1! +FS$(CT,2)"NO"NX2!+ ". ST) r) )"TREATMENT" )T )" % CORRECT:ONE TRIAL............ ";B(2,5);"%" )" % CORRECT:TWO TRIALS........... ";B(2,6);"%" )" % CORRECT:THREE OR MORE TRIALS. ";B(2,7);"%" ) )M1ī10685!)23:8:868:"PRINT RESULTS (Y/N)? :EGINNING NUMBER: "B$*)!,)P1)"BASERATE PRE POST"V3)6)" % CORRECT............... ";B$(1,1);36);B$(3,1)J)" MEAN-RESPONSE-TIME...... ";B$(1,3);36);B$(3,3) ^)" TOTAL TIME.............. ";B$(1,4);36);B$(3,4XX,8)(((ROOCTC)(PS))100.5);D%R0:W0:B0:BT0:TC0AN%W) PRINT RESULTS_ )M0g):)X$"SESSION RESULTS":;21(X$)2);X$))"NAME: "QNM$")"DATE: "QDT$')"PROGRAM: "F$():"NUMBER OF PRESENTATIONS: "A$))"BX3G$"N")XX29535:0%B$(XX,1)(((RPS)100.5))"%"H9%B(XX,2)Wi:%B$(XX,3)((BT100.5)100)>%B$(XX,4)((TT100.5)100)?%XX1XX3ī9540@%B(XX,5)((ROPS)100.5)A%B(XX,6)((OCPS)100.5)B%B(XX,7)((TCPS)100.5)!C%B(0::AP$;:/H!X(16384):X127TT1:8520DR!16368,0:(36)UW!AN$(X128)f\!TRD2(T35)lf!r(#:Z#3000:9500d#XX310500n#XX3ī9090x#E$"Y"G$"Y"İ10500#7000% ACCUMULATE DATA&%XXXX1+%(XX1E$"N")(X16368,0:X1608162#YT(BA)S2-7050M COUNTING ONE WRONG ANSWERY RORO1_ l COUNTING FOR TWO WRONG ANSWERSv OCOC1  COUNTING MORE THAN TWO WRONG ANSWERS TCTC1 4!RD2(X)(X100.5)100 >!16368,0:TAN$:AP$AN$ANXİ50004ANXK1ī8115DANXİ6000YXX1AB1İ8300oXX1AB2İ8400AB0XX1İ8200AB0XX1H$"Y"Č818:" PUSH THE ";::"SPACE BAR";::" TO CONTINUE";X(16384):X1288162XX2ĺ"POST-BASERATE #"; eBA,j34,1:5XX1;E@::RrAE(1)1x6:21(FS$(CT,1))2);FS$(CT,1)10:10:"1) YES"10:"2) NO"20:40S20:AP$" "20:19:8500:S2S2TA(AN$):A(C$)A18115 TWO PRESENTATIONS ARE THE SAME3BAPSġ:9000BC(BA,1)SBQBA07136^TB1BAvCTC(TB,1)ġ:7050~TBSBCT:XX0E$"N"XX1LXX0ĺ"PRE-BASERATE #";VXX1ĺ"TREATMENT #";[XX2G$"N"10500`X$"CORRECT":;20(X$)2);X$;" "4:X:GPS(A$)TTE(B$)aSEPSTEjBA0|CT((1)SE)CT(TE)CT(SE)ī70507100BABA1K0BAPSī90007400110008000 USED TO MAKE SURE NO,166 5dF58J190105=J15BJ(222)255Č771>5LJ216,0:H5@ 014N5PÀg5BY B. SHON 5/15/8310s5=J5BJ(222)255Č7715LJ216,0:5PÀ5BY B. SHON 5/15/83/17362:"CHANGE TO: ";X$5DX$"!"Ģ(37)1:958:176206DX$""178::868:1:c4E17680:"L=LIST WORDS";21);"E=EDIT WORDS":"S=SAVE CHANGES";21);"Q=QUIT":::t4$ECV24CV23z4.E48E21(X$)2);X$:4OFALTER RESET ROUTINE4PF(4)"BLOAD RESET"4UFF2(1010):F3(1011):F4(1012)5ZF1010,3:1011,3:1012' TO CONTINUE, ANYTHING":"ELSE TO RETURN TO MENU. ";X$:X$"SAVE"176703DD$:D$"UNLOCK"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$3DI1N:FS$((I2.011),I(I2.01)2):3DD$"CLOSE":D$"LOCK"F$3ECV:958:17690:CV:4E1:1:868::86958:176202DX$""1760052DFS$((I2.011),J)X$z2D(37)1:868:STRT;5);:ISTRT:17362:STRTSTRT1:868:J2ĺ2DSTRTN175602DCV(37)1:17690:CV:I3DCV(37)1:1:868:17680:"WORD FILE WILL BE PERMANENTLY CHANGED.":"ENTER 'SAVE:X$" NOT FOUND"::"PRESS ANY KEY TO CONTINUE":17450:174801D17680:" - NO CHANGE":"! - ENDS EDIT":"OTHER ENTRIES CHANGE WORD":CV:8681DJSTRT(STRT2.01)2:"WORD ";STRT;": ";:ISTRT:17362:"CHANGE TO: ";X$ 2DX$"!"Ģ(37)1:TER WORD OR WORD NUMBER":" WILL BEGIN EDITING AT 1":"'!' WILL RETURN TO MENU0RDCV:868:"START EDITING AT :";X$:177000\DX$"!"ĢCV:176200fDX$""STRT1:175500pD(X$)N174900zD(X$)0STRT(X$):17550=1D17370:STRT0İ17680IDSEARCH!/CJN2:KJ:I0:17420+/CKJIX/CX$FS$((K2.011),K(K2.01)2)17440m/DKJI:K017440/ DX$FS$((K2.011),K(K2.01)2)17440/DII1:17390/ DSTRTK:/*D(16384)12817450/4D16368,0:/>DCV(37)1V0HD17680:"EN0%.C(16384)127Ĺ16368,0:17310-.C:G.CCV(37):17690:CV:d.C(16384)13ĺ::17300}.C(16384)12817320.C(16384)16017360.C16368,0.C(16384)1317310.C.CJ1Ğ.CFS$((I2.011),I(I2.01)2):.C/CM17680:"SPACE BAR LISTS SINGLE WORDS":" ENDS LISTING":"OTHER KEYS START/STOP LISTING":CV:868-NCJSTRT(STRT2.01)2:STRT;5);:ISTRT:17362:17320:STRTSTRT1:J2ĺ-XCSTRTNĺ:17300-bCISTRTN-lCI;5);:JJ1:17362.vCJ2ĺ:J"'!' WILL RETURN TO MENUF,CCV:868:"START LISTING AT :";X$:17700X,CX$"!"17300q,CX$""STRT1:17220,&C(X$)N17160,0C(X$)0STRT(X$):17220,:C17370:STRT0İ17680:X$" NOT FOUND"::"PRESS ANY KEY TO CONTINUE":17450:17150i-DC+BX$"L"C1+BX$"E"C2.+BX$"S"C3C+BX$"Q"ĉ::771R+BC017040j+B1:958:CV(37)1+BC17140,17470,17630+B17030+BLIST SUBROUTINE+BCV(37)1,B17680:"ENTER WORD OR WORD NUMBER":" WILL BEGIN LISTING AT 1":T DATA (Y/N)? :";4*>X$:X$;:Y$::Y$(13)16110O*>X$"Y"X$"N"16110a*>X$"Y"15200l*>:771w*H?19000*R?D$"CLOSE"*W?D$"PR#0"*\?::771*gBEDIT ROUTINE*hB:*rB:34,4*|B17690*B868:"CHOOSE FUNCTION :";*BX$:C0TA FILE NOT ON THIS DISK.":"INSERT CORRECT DISK THEN PRESS ":"OR PRESS ANY OTHER KEY FOR MENU.")>X(16384):X12816020)>16368,0:XX128)>X13Ħ)>19000:771)>19000:15500)>D$"CLOSE"*>18:1:"END OF DATA":868:"PRINX$(I)X$(I)"%"$(;:15630:15310=(:i)>10:QPT$" DAE";15);"PARAMETERS";31);"BASERATES (% CORRECT)";15);"TREATMENT (% CORRECT)"';15);"P B ";35);"PRE";44);"POST";15);"1 TRY";23);"2 TRIES";32);"3 OR MORE"';I180:"=";::';D$"OPEN"QPT$:D$"READ"QPT$(;15600:I59:X$(I)"N/A" 9=J9BJ(222)255Č771&9LJ216,0:,9PÀE9BY B. SHON 5/15/830:"L=LIST WORDS";21);"E=EDIT WORDS":"S=SAVE CHANGES";21);"Q=QUIT":::\8$ECV24CV23b8.Ey88E21(X$)2);X$:8OFALTER RESET ROUTINE8PF(4)"BLOAD RESET"8UFF2(1010):F3(1011):F4(1012)8ZF1010,3:1011,3:1012,1668dF88J19010;"E=EDIT WORDS":"S=SAVE CHANGES";21);"Q=QUIT":::F8$ECV24CV23L8.Ec88E21(X$)2);X$:|8OFALTER RESET ROUTINE8PF(4)"BLOAD RESET"8UFF2(1010):F3(1011):F4(1012)8ZF1010,3:1011,3:1012,1668dF88J190108=J9BJ(222)255Čٍٍ΍:"ELSE TO RETURN TO MENU. ";X$:X$"SAVE"17670n7DD$:D$"UNLOCK"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$7DI1N:FS$((I2.011),I(I2.01)2):7DD$"CLOSE":D$"LOCK"F$7ECV:958:17690:CV:7E1:1:868::868::868:1:K8E17686006DFS$((I2.011),J)X$b6D(37)1:868:STRT;5);:ISTRT:17362:STRTSTRT1:868:J2ĺu6DSTRTN175606DCV(37)1:17690:CV:17DCV(37)1:1:868:17680:"WORD FILE WILL BE PERMANENTLY CHANGED.":"ENTER 'SAVE' TO CONTINUE, ANYTHING"P1$T$:2060:P1STDCT0)CTCT11K0BCT10ī9000M11000W@::rAE(1)1:BE(2)1:CE(3)1:QE(4)1:PDE(5)1|6:19:CT;"."8:17:FS$(CT,1)10:10:"1) ";FS$(CT,A)10:"2) ";FS$(CT,B)10:"3) ";FS$(C!E$"N"G$"N"XX1XX2K1'DHN150:A(16336):HNN5025op COUNTING CORRECT RESPONSES~zK1ī6030RR1E$"N"G$"N"XX1XX2:"";::"VERY GOOD";QNM$;"YOUR ANSWER IS CORRECT":XH$"N"ī7040l2000v18:"";H$$|H$"Y"H$"N"ī4210*P11::"PRESS SPACE BAR":26:20:VjR$:R$""ī17 COUNTING WRONG RESPONSES WW1E$"N"G$"N"XX1XX2:"YOUR ANSWER IS INCORRECT ";QNM$;", TRY AGAIN"E$"N"G$"N"XX2ī5035/N)" 53:"5) POST-TREATMENT BASERATE?(Y/N)";b"3:"6) CLOCK/CALENDER USED?(Y/N)"t,36:8:"";A$630:10:"";B$@32:12:"";C$J34:14:"";E$TE$"Y"E$"N"ī4170^35:16:"";G$hG$"Y"G$"N"ī4190 r31: LEARNING PARAMETERSKX$"LEARNING PARAMETERS":;20(X$)2);X$;z8:3:"1) NUMBER OF PRESENTATIONS:(1-75)"3:"2) BEGIN WITH NUMBER:(1-75)"3:"3) NUMBER OF SELECTIONS:(3-5)"3:"4) PRE-TREATMENT BASERATE?(Y13)31RDTD0\I1MT-fDTDDTDZ(I)4pIBzDTDDTDDZMT2L1DTDDTD1zSTDDTD86400H3600M60S CALCULATE THE MEAN-TIME-OF-RESPONSE TT0:BT0 T110 TTTTYT(T) BTTTCT T BTTT10 17 77" ";T$$0+01E MT((T$,1,2))XD((T$,4,2))k H((T$,7,2))*M((T$,10,2))4S((T$,13,6))>Z(1)0:Z(2)31:Z(3)28:Z(4)31:Z(5)30HZ(6)31:Z(7)30:Z(8)31:Z(9)31:Z(10)30:Z(11)31:Z(12)30:Z(" SELECTION."dDn" 3) PRESS THE BACK ARROW KEY TO "ex" CHANGE YOUR ANSWER."k" 4) PRESS ";::"SPACE BAR";::" TO CONTINUE."5::"PRESS SPACE BAR TO RETURN TO MENU ":38:18::R$:R$""UR NAME:"$"TODAY'S DATE:"923:21:"";QNM$N14:23:"";QDT$Tg INSTRUCTIONSm(14:"INSTRUCTIONS"25:" 1) MATCH THE TARGET WORD WITH"<" THE BEST SELECTION."FP" 2) TYPE THE NUMBER OF THAT"Z10;1210 B1210;1210O LX$"COPYRIGHT 1983":"*";20(X$)2);X$;40);"*"; VX$"ALL RIGHTS RESERVED":"*";20(X$)2);X$;40);"*"; ~1210;1210:1200 1227 I140:"*";:: "*";40);"*";:  USERS NAME 22:"PLEASE TYPE YOME  2 1200;1210/ 1210;1210l $X$"COMPUTERIZED READING":"*";20(X$)2);X$;40);"*";| )1210;1210 .X$"FOR APHASICS:":"*";20(X$)2);X$;40);"*"; 31210;1210 8X$"ASSOCIATIONS":"*";20(X$)2);X$;40);"*"; =1211120 12000 7000) XD$(4)> bD$;"RUN RDFILE"J D$(4)R *D$s 4D$;"RUN SUMMARY OF RESULTS"y  5:"EXIT PROGRAM(Y/N)";P$:24:1 P$ P$"Y"ī925 17 5:4:"SEE YOU NEXT TIME ";QNM$ 50000  TITLE FRA2"F$"ASSOCIATIONS"& BD$"3"ī6009 BD$"4"ī4000K BD$"5"ī800] BD$"6"ī900c 6x @D$(4): CTRL-D JD$;"OPEN";F$ TD$;"READ";F$ VXX$ YXX$"-1"ī390 hTT1 rFX$(T)XX$ |342 D$;"CLOSE";F$ D$ T0 ΍΍ٍٍٍ110 !D/2!G/FPFP1@!I/X$"BASRERATE #":;20(X$)2);X$;FPI!N/FP0S!X/34,1Y!b/_!PÀ IGNMENT TO ARRAY u+NFDFD1* z+XZ1106 +ZX16@ +TT1V +FS$(XZ,ZX)FX$(T)^ +ZXf +XZn +T0t + . SCREEN FORMAT .34,0: .E$"Y"ī12100 .G$"Y"ī12100 /FPFP1 /2: /X$"TREATMENT #":;20(X$)2);X$;FP!/12:E(3)0E(4)0ī11035)M+UE(3)ī11035<N+C$"4"ī11092eO+E(4)0E(4)U:E(4)0E(5)0ī11035xP+UE(4)ī11035Q+C$"5"ī11094R+E(3)US+11095T+E(4)UU+11095V+E(5)UW+ZZ1\+NE(Z)ī11095a+NE(Z)NZf+ p+ ASS1042+C$"5"ī11044) +Q((1)3)14!+11050F"+Q((1)4)1Q#+11050c$+Q((1)5)1k*+UQ{/+Y1E(1)U4+Y1ī110359+UE(1)ī11035>+E(2)0E(2)U:E(2)0E(3)0ī11035C+UE(2)ī11035D+C$"3"ī11090H+E(3)0E(3)UMS +N1+C$"3"ī110200+C$"3"ī11019C+C$"5"ī11023\ +E(1)0:E(2)0:E(3)0g +11025 +E(1)0:E(2)0:E(3)0:E(4)0+11025+E(1)0:E(2)0:E(3)0:E(4)0:E(5)0+11025+Y0+Z0+YY1+C$"3"ī11040+C$"4"ī1 % CORRECT FIRST TRIAL:";B(2,1)H)" % CORRECT SECOND TRIAL:";B(3,1)N)^)M1ī10685)8:"PRINT RESULTS?(Y/N):";PA$)PA$"Y"MM1:1:10510)0:8:"STORE RESULTS?(Y/N):";FD$)FD$"Y"ī20000)10* RANDOM ASSIGNMENTS OF ITE΍ٍٍٍٍ ٍٍٍŠҠƠԢԠήԠԠӠŠˠנ٠ϠԠŠҠҮԠԠӠŠԠŠҢ̠ԠϠŮ  ԠԤΠ͠ӍŠ ԠӢ ԠȠŠԠĠȢԠŠԠήԠԠŠŢƤΠҠɠϠԠԠΠԠ¨Π͠Ӡō ԠŠҠźԠԠ٧Ӡź  ԠͤԠĤŠƤĠӢԠĤ΢ƤԠĤĢƤΠҠڠϠҠؠϠΠΠԠĤΩӤڬةĤΩԠԠԠĤԠ¨Πؤؤ¨   Ԡ͠ԠϠٍĤҤ̭͠čԠĤΠԠĤĠԠ¤äŤǤȤ  ؤéԠԠ¨Πؤؤ¨ؤ̠ӠĢԠ¨Πؤؤ¨ؤΠŠӢЍӍŠӠŠŠӠӠӍӠԠ٠ԠӍӠΠҠŠӠŠӍӠΧԠΠĠԠύϠ̠Ӡ٠ӠύӠΠŠĠӍӠҠҠҠҧӠοӍԠύӠҠŠĠƠŠŠύӠŠȠĠ٠ŠΠӍϠŠРΠŠӍӠ̠٠Π٠ӍӠϠŠƠĠύӠǠҠΠҠύӠԠŠϠŠҠҠԠŠˠӠˠӍӠΠŠŠΠӠύŠӠΠŠΠǠӍΠՠҠӠύӠŠŠǠύӠΠΠ̠ύӠҠŠŠӠŠύŠӠӠȠҠҧӠҠҠԠύĠ̠ԠύӠΠŠŠƠǠӍӠŠȠӠŠύŠ̠ӠӠύӠŠŠĠӠύӠŠŠŠӠύϠҠΠҠǠύϠՠŠàԠԠύӠˠŠϠŠĠӍӠŠԠӠĠύӠͮΠԠϠΠӍӠҠҠҠΠՠӍӠԠŠϠȠҠӍҠύŠӠӠ̠ύӠŠΠŠƠԠӍϠӠϠ٠ӠύϠ̠ӠˠύϠՠԠРӠύӠ̠ΠҠΠԠύӠԠŠϠŠΠԠӍӠҠӠנӍӠˠŠӠӍϠӠŠӠύΠՠŠҠύӠԠǠΠӠ͠ύӠĠŠӍϠӠŠҠӍϠӠҠŠӍϠՠŠӠύΠՠ̠ҠՠԠΠҠӍΠՠˠΠǠӍϠՠҠŠύϠӠ٠ύϠՠˠΠӠӍӠΠŠ٠ӍΠՠˠΠΠύӠΠŠӍΠՠԠҠӍӠŠԠӍϠӠ̠ĠӍϠӠ٠ύӠŠԠύϠՠŠŠӍϠՠ ҠӍϠՠ٠ҠύϠӠˠӍϠӠĠύϠȠ͠ӍϠӠĠӍΠՠԠӠύϠՠȠӠύΠ     Ԭ©Ԡ ԠӤԬéƠäΠϠԠ ԠӤԬѩԠƠäΠϠ ԠӤԬĩ  ӲؠΠŠԠԠŨ ŨàŨѠŨĠŨ  ԠӤԬ  ԠӤԬԠ ԠӤƠؠĠŤ΢ΠؠƠؠΠԠŭŠƠؠΠԠԠƠؠĠǤ΢ΠƠؠΠԠԭŠԠŠΠĠϠŠŠϠϠӠŠŠōƠӠΠϠèƠΠҠ ϠƠԠè¬ΠРϠԠ ԍΠԠŠŠӠōԠԠĠũƠԠũҠԠũΠϠ ˠƠӠΠϠ  Ϡ͠Ϡ͠ǠԠӍƠˠΠϠҠҠƠؠΠԠؤԢԠ¨ΠؤؤΠӠ̠Š̠  ƠؠΠؤԬ٠΢ԠԠ¨ΠؤؤƠؠΠϠƠؠΠˠΠƠȤ٢ΠҠΠϠˠԠĤΠԠĤŠԠԠ¤ԠäԠŤԠǤԠȤԠĤŠԠĤˠϠ͠ǠǠӠננϠϠ  ԠȤƠȤ٢ĠȤ΢ΠϠĤҤ̭͠čԠĤˠԠĤΠԠĤŠԠäƠ̠äҠ̠äΠϠ  ԠŤƠŤ٢ĠŤ΢ΠϠϠ  ԠǤƠǤ٢ĠǤ΢ΠǤΠϠ  ԠƠ̠Ҡ̠ΠϠ  Ԡ¤Ơ̠¤Ҡ̠¤ΠϠ  ԠΠϠբ  ԠԨǤƠǤΠƠǤΠƠǤΠƠǤΠƠǤΠƠǤΠƳäԠ ԠŭԠſٯΩŤԠ ԠԭԠſٯΩǤԠ Ԡ٠ԿٯΩȤԠ РŠ  ԠǠӢ  ԠҠƠӨԠ ԠǠΨ¤Ԡ ԠҠƠӨ΍΍΍ĠŨΠϠƠՠŨΠϠƠäΠϠƠŨΠŨպƠŨĠŨΠϠƠՠŨΠϠƠäΠϠϠѠԠĠϠѠԠĠՠэƠ٠ΠŨՍƠ٠ΠϠƠՠŨΠϠƠŨΠŨպƠϠŨŨŨŨŨϠ٠ڠ٠٠ƠäΠϠƠäΠϠƠäΠϠѠԠĠ͠ӠƠӍؠƠäΠϠƠäΠϠƠäΠϠŨŨŨϠŨŨŨŨԽΠϠ ԠԠӠٯΩƠ٢Π͠͠ԠĤңϠԠĤң ԠŠӠٯΩĤƠĤ٢ΠϠԠԠԢԠԠԺŠ̮¨ԠԺϠӮ¨ԠԺŠҠŠӮ¨ԠƠ͠ŠԢԠԠԮ¤¨¤Ԡέŭ٤¨¤Ԡ̠٤¨¤ҵԠźͤԠźԤԠͺƤԠԠҠƠӺԠǠҺ¤ԠҠƠӺäԠԠŠ¨جԠϠàéөҠנ ԠàΠ͠ԠӍ͠ԠŠؤΠӢԠ¨ΠؤؤԠҤԠԠ¤جҤԠԠƠؠҠؠΠϠ¨جԠϠө¨جԠàө¨جԠàө͍΍ԍҍЍōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍٍҍҍ׍ōōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ōٍ̍ԍԍ̍ҍȍˍύ΍ٍҍٍȍōύ΍΍ҍ΍ōōԍ؍ō΍ҍҍˍȍԍ׍ōӍӍō΍Ǎōҍ׍ōōӍŠՠοӍŠՠοӍӠԠǠٿύŠՠŠӠĿύˍԍˍҍ̍ҍō΍ˍύԍōٍōٍԍԍӍҍčԍҍύÍǍōձ΍΍΍ĤŢ ԠĠƠԠԠٯΩؤƠؤ٢ΠԠ̠ ԠԠĤŢԠĤң̠͠ԠōԠŠˠΠӠξԠҠӠ٠Ҡ٠ҠծؠˠƠؠΠŠؠؠƠؠΠŠ ̠  ԠΠҠɠϠƠΠؤɩȨɩΠԠèȨɩΠؤɩԠؤɩԠԠΠ ԠԤŠԠΠӠˮԠԠԠĠϠƠؤɩίΠؤɩؤɩԠ ϠҠɠϠĠȨɩԠΠҠɠϠԠؤɩԩԠ¨Р Ӣ¨Ţ¨Ԣ¨٢¨Ӣ¨ҠŢҠɠϠԠԠԠԠĤ΢ԤԠĤĢԤ Ҡ¨ӺҠɠϠРԠ¨ФɩԠԠͺƤ¨ФԠԠԠިӢ¨Ӡԩ¨ԠŰŠŠԠĤңؤ٠ƠӢԠ¨ΠؤؤԠԠԠФнҠƠӢФӽҠƠӢԠźԤؠؠƠؠΠ ԠӠ٠٠ϠŢƠˠΠŠؠŠϠԠŠҠϠŠŠ¨Ţ¨Ԣ¨¨¨ҠɠϠԠԠԠ ҠϠؠԠĤ΢ԤԠĤĢԤ  ԠԠŠҠɠϠРԠФɩ¨ФɠԠŠ ԠԠިӢ¨Ţ¨ԢԠ¨Т¨¢¨ϠԠĤ٢Ԥ ФнƠӢФŽŭŢФ½ǠҢФԽԭŢФӽƠӢԠԠҠɠϠԠԠĤ΢ͤԠĤŢŠ͠٠ƠӍŠĤҤˤŠԠŠΠŠŠƠŠԮԠԠźԤҠԠäҠɠϠРƠ¤ɬίΠ¤ɬԤ¤ɬΠ¤ɬԠ¤ɬԠԠ¨Ԡ¨Ԡ¨ԠĤŢ Ϡ ٍٍٍ΍΍΍Ԡ̽ԠӢ¨ŽԠӢԠӽŠӢ¨ѽԢԠԠΠƠ֠Π֠ΠԠ¨ΠؤؤΠ͠ҠԠōԠҠϠκԠĤɩԠԠԠĤŢԠĤˢƤ ֺ̠  ֺΠ  ̠Ԡ̠Ԡ̠ Π ɠŠ̠Š٠ĮԠҠԧϠŬǢԠŠϠΠϠծؤƠؤԢΠԠĤԠĤˢƤԠĤŢƤԠĤ΢ƤԠĤŢƤҠɠԠԻ¨ɠԺ ԠԠ̠ƠʠΠԠƠԠΠΠ֠ˠ  ֺΠ֠ˠ ̠ ԠĠԠԠԠĠԻɠԺ ԠŠϺؤƠؤΠ ˠ̠ϠƠؤΠĤԩؤ ˠ̠аΠ ԠؤԠĢԠԠӠ٠٠ϠŢ Ϡ ԠξϠŢԠӠԢԠҠӠŠĢ ֺ̠ʠԠԠԠǠԠؤ ƠؤΠ ֺϠƠؤΠԠϠƠ̠ؤΠΠƠ̠ؤΠԠ̠ؤϠ ƠԠƠˠΠŠΠ֠ˠ ԠҠĠҠĠҢԠξ̠ΠǠԠԠ̠ΠϠՍ ֺ̠ɩ̠Π͠ȍʠΠˠʺɠϠˠʠɍƠؤĤ˩ΠˠʠɺƠˠΠƠؤĤ˩ΠɠɠϠԠ˺ΠΠԠРϠƠˠΠƠˠΠŠƠˠΠΠƠʠΠŠԠĤԠϠ΍Ԡɻ¨ʠʠ ƠʠΠԠʠƠˠΠŠ ԠԠ֠ˠ  ֺΠƠˠԠҠӠԯРǢ ֺ̠ʠԠԠԠԠԻ¨ɠԺ  ԠԠƠʠΠԠƠԠΠΠԠϠҠɠԠ̠ؤϠ ƠԠΠ ԠؤԠĢԠԠӠ٠٠ϠŢ Ϡ ԠŠҠӠŠӢԠξӠǢǠԠԠ̠ΠϠՍ ֺ̠ԠԠǠԠؤ ƠؤΠƠؤΠԠϠƠ̠ؤΠΠƠ̠ؤΠ΍΍΍"+NX1"+C$"3"ī11019."+C$"4"ī11021A"+C$"5"ī11023Z" +E(1)0:E(2)0:E(3)0e" +11025" +E(1)0:E(2)0:E(3)0:E(4)0"+11025"+E(1)0:E(2)0:E(3)0:E(4)0:E(5)0"+11025"+Y0"+Z0"+YY1"+C$"3"ī11040#+C$"4"ī110B(2,6);"%"@!)" % CORRECT:THREE OR MORE TRIALS. ";B(2,7);"%"F!)V!)M1ī10685{!)8:"PRINT RESULTS (Y/N)? :";PA$!)PA$"Y"MM1:1:10510!)0:8:"STORE RESULTS (Y/N)? :";FD$!)FD$"Y"12000!)17!* RANDOM ASSIGNMENTS OF ITEMS1);36);B$(3,1)H J)" MEAN-RESPONSE-TIME...... ";B$(1,3);36);B$(3,3) ^)" TOTAL TIME.............. ";B$(1,4);36);B$(3,4) r) )"TREATMENT" ) )" % CORRECT:FIRST TRIAL.......... ";B(2,5);"%" !)" % CORRECT:SECOND TRIAL......... ";ōҍ΍ō̍΍ҍ΍ōōٍ͍΍ōɍԍ΍ԍōԍԍՍӍҍԍԍҍōԍٍōٍ̍΍̍ō΍ōԍȍˍōǍō΍ǍЍҍԍčԍԍԍԍҍҍ΍ōٍԍ̍̍Í΍΍ٍčōōԍ̍΍΍ōōčҍ׍č΍ٍҍٍ͍΍čōٍ̍ԍӍԍōӍٍ׍čōÍˍҍ͍ōÍǍč΍΍ȍōȍҍōǍōō͍Ǎˍٍō̍ōӍō΍ԍ̍ōǍōԍԍӍԍčōōҍ΍ҍōԍčҍ΍ˍōōԍӍˍōƍōٍ΍ˍ̍ҍӍō΍ҍЍҍ΍ōō̍ԍȍ΍ōٍٍōԍ΍ˍԍҍԍōˍƍōԍ΍čȍٍӍčӍ΍͍׍ҍōˍٍ͍΍΍ҍ΍ōō̍ҍƍčٍˍ΍ٍҍōԍԍٍҍҍōōōԍԍōҍҍčԍōō΍ččˍҍ΍ҍԍĠԍč΍؍ԍ΍ԍҍԍҍ΍Ѝҍč΍ōčЍύӍōōčԍōҍ͍ҍԍȍō΍ōÍōȍƍōԍ΍͍̍Ѝčōҍōƍ̍ōӍԍččōō׍ҍЍǍ͍ˍ΍ٍˍȍЍ΍΍΍ҍԍˍ΍̍ōЍҍ̍Ӎٍˍҍ̍ōˍԍҍҍԍōҍōōȍōЍԍٍ΍ҍҍǍҍč̍ōٍ͍̍΍ԍҍЍō΍ٍҍٍȍōύ΍΍ҍ΍ōōԍ؍ō΍ҍҍˍȍԍ׍ōӍӍō΍Ǎōҍ׍ōōӍٍҍҍ׍ōñ΍΍΍ 17* COUNTING WRONG RESPONSES 4WW1@ABAB1yXX1:X$"INCORRECT,TRY AGAIN"::;20(X$)2);X$;XX1ī5035XX1K1H$"Y"āHN150:A(16336):5025p COUNTING CORRECT RESPONSESzK1ī6030$hG$"Y"G$"N"ī4190&m41309r36:17:"";H$SwH$"Y"H$"N"4210]|4130hX17|D$;"OPEN DATA"D$;"DELETE DATA"D$;"OPEN DATA"D$;"WRITE DATA"A$B$C$E$G$H$D$;"CLOSE DATA"0*FG$"7"4230+4130F,37:7:"";A$:(A$)1(A$)754140P14130y631:9:"";B$:(B$)1(B$)754150;4130@33:11:"";C$:(C$)5(C$)34160E4130J36:13:"";E$TE$"Y"E$"N"ī4170Y4130^37:15:"";G23:"6) AUDITORY REINFORCEMENT?(Y/N): ";H$8 T!3:"7) RETURN TO MENU"z"14:22:868:"SELECT(1-7):";FG$#(FG$)0(FG$)7X1$FG$"1"4140%FG$"2"4150&FG$"3"4160'FG$"4"4170(FG$"5"4190)FG$"6"4217:3:"1) NUMBER OF PRESENTATIONS(1-75): ";A$6`3:"2) BEGIN WITH NUMBER(1-75): ";B$f3:"3) NUMBER OF SELECTIONS(3-5): ";C$3:"4) PRE-TREATMENT BASERATE?(Y/N): ";E$3:"5) POST-TREATMENT BASERATE?(Y/N): ";G$16368,0:X1601460!17M CALCULATE THE MEAN-TIME-OF-RESPONSE[ TT0:BT0h PS(A$)t T1PS TTTTYT(T) T BTTTPS  D$(4): CTRL-D LEARNING PARAMETERS:X02:10:"LEARNING PARAMETERS"0d.n" 3) PRESS THE BACK ARROW KEY TO "Ox" CHANGE YOUR ANSWER."U" 4) PRESS ";::"SPACE BAR";::" TO CONTINUE."5:"PRESS ";::"SPACE BAR";::" TO RETURN TO MENU ":38:18X(16384):X1281460TODAY'S DATE:""16:2:"";QNM$614:4:"";QDT$<Q INSTRUCTIONSWo(14:"INSTRUCTIONS"25:" 1) MATCH THE TARGET WORD WITH"<" THE BEST SELECTION."FP" 2) TYPE THE NUMBER OF THAT"Z" SELECTION."F$"ASSOCIATED NOUNS")D$;"OPEN";F$;D$;"READ";F$CN0PXZ175\ZX16fNN1vFS$(XZ,ZX)|D$;"CLOSE";F$I140:"*";::"*";40);"*";: USERS NAME2:"TYPE YOUR NAME:""21(X$)2);X$;40);"*";^ `X$"SOUTHWESTERN SOFTWARE SYSTEMS":"*";21(X$)2);X$;40);"*";v ~1210:1210:1200:  ASSIGNMENT TO ARRAY D$(4): CTRL-D D$;"OPEN DATA" D$;"READ DATA" A$,B$,C$,E$,G$,H$ D$;"CLOSE DATA"I13:1210:8 >X$"BY":"*";21(X$)2);X$;40);"*";B ?1210 @X$"BARBARA MAJOR M.S. & KENT WILSON PH.D.":"*";21(X$)2);X$;40);"*"; A1210:1210 LX$"(C) COPYRIGHT 1983":"*";20(X$)2);X$;40);"*"; VX$"ALL RIGHTS RESERVED":"*";768I,0::  TITLE FRAME& - 2= 1200:1210z $X$"COMPUTERIZED READING":"*";21(X$)2);X$;40);"*"; .X$"FOR APHASICS:":"*";21(X$)2);X$;40);"*"; 31210:1210 8X$"ASSOCIATED NOUNS":"*";21(X$)2);X$;40);"*"; =BD$"6"ī900 6:12307 T0:XXT:ROT:OCT:TCTc X$"N/A":I14:B$(1,I)X$:B$(3,I)X$:m 7000s  5:"EXIT PROGRAM (Y/N)";:24:1 P$ P$"Y"ī925 17 5:4:"SEE YOU NEXT TIME" 1010,F2:1011,F3:1012,F4:I040:CHANGE LEARNING PARAMETERS"! E " (5) SUMMARY OF RESULTS"K i " (6) EXIT PROGRAM"o 22:11:"SELECT (1-6):";:868:"";BD$:X(BD$):X1X6197 BD$"1"1300 BD$"3"17000 BD$"4"ī3500 BD$"5"ī15000 ٍٍٍ! Š̠ȠӍ̍ԍٍō̍ŠˠŠŠˍ̍ō΍ō٠ŠӠǠӍˍōǍō٠ĠȠ͍̍ЍҍԍčϠՠŠŠҠҿҍčōōԍŠ̠ĠԠΠōԍ΍ōōčŠĠԠҠčӍ׍č΍ٍΠ̠ĠŠӍ͍ԍōԍԍŠŠŠЍӍҍԍԍҍ ΠĠčӍōǍōōɠĠ٠ӠҠōȍԍԍԍ٠ӠԠƍ͍ҍ΍ōٍŠˠӠǠҠˍ̍̍Í΍ŠĠϠ͠Ԡōōčˍٍ͍΍čŠˠӍˍ̍ԍӍԍԠӠǠōٍ̍׍čōŠΠԠŠ͍̍̍ōÍŠҠĠԠŠčҍ΍΍ȍРōҍ̍ǍōǍŠĠϠȠҍҍōčōōŠ٠ĠӠōǍōčō͍ŠŠĠҠԠƍԍˍōōԍŠӠǠȍ΍΍΍ҠōčӍōٍ̍Šōˍˍˍč̍ԠōōǍٍōٍŠӠ̠ōٍčԍōōɠĠϠϠō΍ōōҍ٠ĠϠӍȍ΍ōčŠōӍǍōӍٍŠōԍٍǍЍōנōٍ͍ЍӍӍΠōō׍ǍōōŠōӍ΍ԍ΍Ǎ̠ōҍ̍Ǎ΍ŠōōҍҍӍōĠōҍ΍ōٍԍˠōҍҍ΍ˍԍ٠ō׍΍ōō׍Πō̍Ӎٍōč̠ōӍҍԍԍ׍Πōٍ͍̍ԍԍˠҍӍˍ׍΍ٍ̠ō΍ȍ΍ٍōҠҍӍҍǍ̍ō٠ōōٍ΍ٍЍ ōˍ΍ˍԍԍ٠ōӍȍŠҍˍԍōōǠǍōԍōōȠōōҍԍӍčǠō̍׍ҍҍԠō΍͍̍ӍōΠō̍΍ҍō΍ˠōō΍Πō̍̍΍ԍōҠōӍٍӍԍčĠŠҍԍҍ͍͍נō΍čōٍ ōЍōƍ΍Ԡ΍ōԍō΍ōȍŠōҍٍٍȍ̠ōō΍ōǍٍĠōǍōˍԍōŠҍӍȍЍč΍ˠҍˍō̍ǍҍŠҍōԍčȠҍōƍ΍čˍȠҍȍˍԍ׍Πōҍҍčˍō٠ҍٍٍ̍čӠŠԍԍÍ׍ҍԠō΍΍ԍˍנҍō؍" " " " """"""""" ;:ISTRT:17362:"CHANGE TO: ";X$D6DX$"!"Ģ(37)1:958:17620U6DX$""17600o6DFS$((I6.011),J)X$6D(37)1:868:STRT;5);:ISTRT:17362:STRTSTRT1:868:J6ĺ6DSTRTN175606DCV(37)1:17690:CV:7DCV(37)1:1:868:176";::&,;D$"OPEN"QPT$:D$"READ"QPT$V,;15600:I59:X$(I)"N/A"X$(I)X$(I)"%"j,;:15630:15310,