' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈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- (  Ϡ-@跻~!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 ~(`# d ֠z# u`Թͳ٬ͳ٬ͳ٬ͳ٬ͳ٬ͳ٬ͳ٬ʹ٬ʹ٬ʹ٬ʹ٬ʹ٬ʹ٬ʹ٬ʹ٬ʹԹͱ٬ͱ٬ͱ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬Ͳ٬ͳ٬ͳ٬ͳ٬ҍōͱ٬ͱ٬ͱ٬ͱ٬ͱ٬ͱ٬                                        ԠͮŠ٠ӠΠȠŠîĠȠŠ͠Ԡٿ٠Ӯ̠ˠŠϠ٧ӮנΠɠԠϠҠӿɠ̠ŠˠϠ͠ӠҮΠՠҠɠΠŠΠٿɠ̠Š٠Ԡ٠ŮŠˬӬ̠ϠŠҮɠĠΠŬήŮŠˠӣ̠ϠŠĠҮɠĠΠԠͮŠ٠ӠΠȠŠîĠԠȠŠ͠ԠٿĠҮȠŠ͠ΠԮĠҮȠŠ͠Π٠Ӯ̠ˠŠϠ٧ӮנΠɠԠϠҠӿƠǠҠӠɠήΠՠҠɠΠŠΠٿ٠ҠӠΠȠŠĬӮ׮ŠŠӠΠҮͧӠŮˠԠҠӠԠ̮ϠՠРԠ̧ӠԠſŠ٠Ӡ͠ŠǠϮҠŠӠԠӮŠԮԮӿŠӠԠӮŠԮϠՠĠŠӣӣӣɠĠˠ٠ɠԠϠԠŧӠȠ٠ĮŠӠŠΠήΠӠҠ̠®ӮϠՠŠ٧ӠҠҠǿŠ̠ӠΠήϠՠȠ̣ԣӣҠǠˠӠĠӣŠՠҠĠˠԠȿɠˠţԣףӠԡԠӠҠΠţԣɠĠˣ٣ΠŠȠ̮ΠՠˠοοԠΠΠǠٮˮӠŠϠҠנȠϿŠԠϠޢϠŠͣңŠףˣӣӠΠĠҮɠנţţңΠӠΠſɠŠŠԠϠϠҠҠЮ٠ӠΠԠԮΠȠӠΠή٠ΠԠŠԠˮӠŠϠҠנȠϿŠԠϠ̠ȰЮͮΠҠٮŠԠŠԠؠЮͮ׮ԠĠՠԠҠӿŠŠԠΠΠǠٮ٠ԮĠĠϠŠŠ٠ЮͮŠŠԠӠҠ͠ΠٿŠŠ٠٠ɠâĠՠӠРҠοԠ٠ӠΧӠٮɠŠРԠͮٮ٠͠ԠˠΠŧӠٮɠŠŠ٠Ƞ٠ԮĠĠϠŠŠ٠ЮͮŠŠԠ٠Ҡٿ٠ɠŠϠҠŠ׿ ĠŠΠٮΠ٠άŠӠ͠ΠŮŠנ٠ŠԠٮԧӠŠΠŠԠ٠ΠٮȮ̠ՠŠΠ٠ҠٿҮҮɠ̠ϮɠנӮРΠٮΠҮĢ٠٠Ӡ٬̠ȮӠǮŠΠҠԿɠŠ٠ҠΠٮɠΧԠ͠Ǡ٠ҠȮ̠ՠŠΠԠŠŮŠՠΠӮΠ®˿Ŭͬ٠ĠŠŮĠҮĠӮŠ٠ǿ٠ǠԠӮ͠ΠŠǮŠנӠ٠ӠΠήɠנΠĠΠȠ٠ҮŠš٠ӠΠȠŠîĠȠŠ͠ԠٿٿɠŠٮ̠ՠſӠӠâΠӠ٠ˮȠŠĿ̠ӮˠŠӿΠ̠ɠŠ̠Ġ¿ɠנҮȠҠӠ̠Ϯ٠ǠĠɠŠٮ̠ՠ٬Ҡ̠ɿӠŠԠӿԠӠŮŠĠɠ̠ϠŮ٠ɠŠϠȠտ̠Ӡ٠ĮŠӠ٠Ů̠ɠŠҠĿŠŠӠĮԠӠΠĠҮȠŠ͠Π٠͢ΠɠРտɠ͠٠ǮŠӠ̮Ӡ     #?ei#?e`5L((PP` 5? i`i`J??^?`? `?#`?`?`?@_?`?^`? `?"\?`?[ _ a{`?```ɿ` `i>` ^憥ŅhhhhLF= ^![#i `A0i@8@ ` 8` '>  = > = > = > =` > A? V?` g RP g RP g RP(:2,#?iƹƸ RLD EL>L? hhꅾ o> "4 " >Ʌ ƹƸL = >憥ŅLF= ߥȱȱƹƸ` ``i` ``H쨥몥i 8 :hI -%$$$$$?.6666>?6N 1-$$<',E 6?M9?I9?66v6?66.%6-----$II666666.>?'-$$$\6666??,-$$$$$$ۓ2?.----$V---?????I --------566???????OIM6NI?$$- $d66?III $$$$$<W66v ? -?%<,1N-<J666dgܾ?$$$$,<766666-mIII-----,6??????;?????'7.------MIZ 芙`ժ b0_6)6F1-$' -<$$???OI??266>.>6.%@M-6???????Ga$ -- 3$2$<>mIII)$?.2667-$$$L66>.%$$$???$?.)-90 ߠʎȱȱ^L9#L9i.ȱ^MWEs oȱ#ʊʝi. ʼ,. 8L09A 666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-=$D6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$ 666.":ZX133:3"X0ZX:Y0ZY:ZT$"^R^E^T^U^R^N"^"16368,0:T1800:(16384)1418930y"(16384)155ġ:2190""3:DX0,Y0,ZT$:(16384)1418930"G1250::(16384)155ġ:2190"0:DX0,Y0,ZT$:(16384)1418925 "3:16:ZY191:8920h0:E4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:r@MISC`"FNDCAPSb"QQ0e"530j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K)":S3(Q8,0)QQ:"ZY191:D84,ZY,"^PRESS <^R^E^T^UALIZE.":D1,144," ^PRESS ^E TO ERASE A CAPITAL."D1,156," ^PRESS ^S^P^A^C^E ^B^A^R TO MOVE THE LINE.":D1,168," ^PRESS <^R^E^T^U^R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT." D45,191,"^PRESS <^R^E^T^U^R^N> TO GO ON.":ZX94# G13:GZX,ZY::)& G1300::> PRPR PERS NAMESNDAYS OF WKcHOLIDAYS, AM/PMtpPLACE NAMESXTITLES HELPFFı0:E4,0,39:E5,0,39:E6,0,39:3:0,110260,110260,1730,1730,1102D1,132," ^PRESS ^C TO CAPITZYZY10:2595:2598:0:2595:X182:3:2592U 0:2592:X:3:2592:6ZX,ZY8:i 2595:O1:2548 ZX240:2595:R0648:3:R:2595:0:2595:ZXZX2:R:3:0:2595: 10ZX,ZY:11ZX,ZY:5ZX,ZY2: 2ZX,ZYX:5ZX,ZY9X:1ZX,ZYX:8:09 4ZX,ZY:5ZX,ZY:3:3ZX,ZY:2ZX,ZY:2598::G 2590:O0 CH:X15:16:72562O,156:48:72452O,179:72412O,179:16 72592O,156:0:72592O,156:48:72412O,179:CH::16:72562O,156:48:72452O,179:3:0:/ 9ZX,ZY:2598:0:9ZX,ZY::3:5ZX,ZY:6ZX,ZY: 2590:2598:X13:0:11ZX,ZY:5ZX,ZY2:3:12ZX,ZY:2ZX,ZY2:2598:0 12ZX,ZY:2ZX,ZY2:3:11ZX,ZY:5ZX,ZY2:2598:: 2595:X14:0:3ZX,ZY:2ZX,ZY:3:4ZX,ZY:5ZX,ZY:2599500 RNFCR; E8(232):E9(233):232,32:233,58Y CH((8)6)1:CH42512k ZX250:ZY170 Z((8)7)1:Z2530,2535,2540,2545,2550,2555,2560 232,E8:233,E9: 2595:2598:0:2ZX,ZY:X14:3:8ZX,ZY:2598:0:8ZX,ZY:35'F20:8900:8920:J3NCJ.4121904J:JJ1KNCJİ41000:2195239,0::ZT$N$", YOU ARE FINISHED.":D20,80,ZT$:41000ZT$"^YOU HAD "(NC)" CORRECT OUT":D20,100,ZT$:ZT$"OF "(J)" PROBLEMS ATTEMPTED.":D20,120,ZT$:8900:8920/TJ3įD20,150,"^PRESS ^H FOR HELP.":ZY80BWT1:700:B$Z$U\Z$A$(J)2150d]J3İ9195^ZT$A$(J):Z$ZT$:500:D1,110,ZT$:239,0:QQ0:Q10:ZY110:610_Q8Q81:Z$B$:8800:S3(Q8,QQ1)J:CC0b2180fF20:9100:CC10İ41000:2195,ZY43:ZXZZ%:F90:YZX7,ZY4ZX13,ZY4:Z9120:KY(16384):KY127F91:a:ZT$"<"(J)">":D245,20,ZT$:SUPERTEST1ST WRD & I4PRACCNC0:CC0:F10HJ110R:995:ZT$A$(J):800:D1,80,ZT$:239,0:500  RMV CAPS%Z$ZT$@*(Z$,1)"^"Z$(Z$,(Z$)1):810y/T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)4:ZT$Z$: CRS16368,0:F90:ZZ%ZXHCHC:3HC:990:F9960910Z0KY128:Z$(Z0):0:ZX7,ZY4ZX13155B1ġ:JJ1:2190Z(KY160KY195KY197KY141KY155)(KY141B1B31)710iF1ZY145T1ZXS(T1):ZNS1(T1)7ZX2(ZX1):0:790TQT1ZXS(T):ZNS1(T)7ZX2(ZX1)790TT1710ZX,ZYZN,ZY:3: GT ANSRZY75730P16368,0:16384,128:KY(16384):16368,0cKYB2B3B31KY200TXZX:TZT:7900:ZXTX:TTZ:ZY75:724KY195TZT:300:TTZKY197TZT:400:TTZ(KY141B1B3)(KY141B1)Ē0:790:KY(T)S2(T)1:S(T)S(T)7:S1(T)S1(T)1:(Z$,S2(T),1)"#"S2(T)S2(T)1Lb!(Z$)35S2(1)2h&zX UNDRLN CAPSbK1Qg(Z$,S2(K),1)"^"İ690:650l(Z$,S2(K),2)(34)"^"QQ7:690:S(K)QQQ1,ZY5S(K)4QQQ1,ZY5: Z1Z$(Z$,(Z$)1):480>Z$(Z$,Z1)(Z$,(Z$)Z)G285MYZY75:h SNT CORDsZ$ZT$14592Z$G720:T110:S2(T)(GT):S1(T)(GT16):S(T)(GT32)::Z1(G47):Z(G46):Q(G45)FT1Q:(Z$,S2(T),1)"\"S2:530:DZX,ZY,ZT$:ZY75:&, CAPTLZ46ZS2(T1)E;Q$(Z$,Z,1)\>Q$"A"Q$"Z"395o@Z9Z:260:ZZ9EZ1Z$"^"Z$:390JZ$(Z$,Z1)"^"(Z$,(Z$)1Z)270 DECAPZS2(T1)(Z$,Z,1)"^"495Z9Z:260:ZZ955WLWL1F1:140I0:Y$(Z$,Z,1(KY197)):DZX,8070F1,Y$:3:rQ$(Z$,Z91,1):Q$"#"Z9Z91:270ZXS(T1):ZY8070F1ZT$"^"Q$:530:DZX,ZY,ZT$:ZY75:Q$(Z$,Z9,1):Q$"#"Z9Z91:285ZXS(T1):ZY8070F1"ZT$Q$(Z0):ZA$(8)ZA$"":F91:| ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY7:ZLZX:ZRZXZW:ZXZXZW:22087 ZA$(ZA$,1,(ZA$)1) F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"2 ZA$ZA$"^":140 FS1:U WLLMZXZW267((ZA$,1)"^"(Z065Z090))140 ZA$ZA$(Z0):ZXZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:ZU0 DZX,ZY,Z$:140 (ZA$)F81 (ZA$,1)"^"140 239,0: WRT ZA$ZA$,ZY3:3:ZA$"":141 x INPTQ WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0v ZU((ZA$,1)"^"):900:16368,0 (ZA$)Z021140 16383,Z0:16240:Z0(16383):WT(16382):WT140,215,140,251,150,158,140,140,140,140,158 (ZA$,1)"^"140^T^U^R^N>.":ZX190:ZY180:8920:0:E4,0,39:E5,0,39:E6,0,39:3:20M (RCTW 29500 e16368,0:900:16368,0:Z013F81: fZ08F91: gZ021150 hZ032101 i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279NAME AND PRESS <^R^E^T^U^R^N>.":75,140205,140:D119,160,"(NAME)" LM15:ZX84:ZY145:UP2:120:UP0:(ZA$,4)"MENU"(ZA$,3)"MNU"(ZA$,4)" MEN"39020 F8FSF925 NM$ZA$:9950D #F10:42000:F1įD1,180,"^NOT STORED ON DISK. ^PRESS <^R^E#CAP-TEST11/20/85(26026463000M 239,0:960,0:29000` D$(4):22000 S(20),S1(20),S2(20),S3(10,20),S4(20):5:75,1075,60205,60205,1075,10:3:D91,40,"^CAPITALIZATION":D122,60,"^TEST"B D1,120,"^HI! ^TYPE YOUR           ,J,1):Q$"^"9920&&Q$;%&&::L&U232,0:233,96:(15616)16622006m&UD$"BLOADGR":D$"BLOADSMCHR"|&UZH15:ZW7&U3:1:0:&EVCLR&GV0&JVZZTZB:ZL,ZZR,Z:Z:3:&ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$ 'ZS ON PRINTER"5%0%:6:"7 - RUN CAPITALIZATION TEST"d%X%::6:"WHICH? ";Y$:Y(Y$):Y1Y79500%v%960,0:Y1000,2000,3000,4000,9596,9596,9595%{%D$"RUNCAP-TEST"%|%960,Y::12:14:"W A I T":D$"RUNT-MENU2"%&PRNT A LN&&J1(Z$):Q$(Z$" STUDENTS IN FILE":4:"DO YOU WANT TO:":::6:"1 - ADD STUDENTS"::6:"2 - DELETE STUDENTS/CLEAR FILES"::6:"3 - PRINT/DISPLAY STUDENT LIST" %+%:6:"4 - PRINT/DISPLAY STUDENT RECORDS"::6:"5 - DISPLAY/MODIFY SENTENCES"::6:"6 - PRINT SENTENCE#d#Z$Z$Y$:Y$;:9020*#x#(Z$)0F81:0##8##RD##D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSETEST.FILE"#$#%MENU#!%G10:D$:D$"CLOSE":D$"PR#0"#$%NS0:T150:S$(T)"*"NSNS1#%%$&%::6:NS0"<#Y$:(Y$)139080,"=#(Y$)219020M">#Y$";"Y$","Y$":"Y$"/"c"?#(Y$)27ġ:9500v"P#(Y$)89050"R#(Z$)F91:"S#(Z$)1Z$"":Y$" "Y$;:9020"U#Z$(Z$,(Z$)1):Y$" "Y$;:9020"Z#(Y$)329020"[#(Z$)LMĺ"";:9020RMV CAPS!e"Z$ZT$.":!"16368,0:16384,128:16368,0:!"8900:8920!(#GT!)#Z$"""2#F90:F826,4927,4928 36 9Y$"1ST WORD IN SENTENCE & I":W :Y$"PROPER PERSONAL NAMES":| ;Y$"DAYS OF THE WEEK & MONTHS": <Y$"HOLIDAYS, A.M. & P.M.": =Y$"PROPER PLACE NAMES": >Y$"TITLES": ?Y$"MISCELLANEOUS": @Y$"SUPERTEST": !`"8901(16384)155Ĺ16368,0:42000:::95008J[:"-----------"::D$"PR#0":T1(Z$):(Z$,T,1)"^"TT1:Z((Z$,T,1)):4894Z((Z$,T,1)):Z64Z91ZZ32(Z); ":$MODE .MD4921,4922,4923,4924,4925,49$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)" OUT OF ""<"(NA)">":ZT$V9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4855K1NC:S3(J,K)1Z$"^"Z$:4851Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(J,K)1))" -";:4RED THEM.)":"---------------------------------------------------"mZT$"0":(NA)ZT$(((NAQ8)NA100))4900:"MODE:"(Y$" ",25)" "ZT$"%"ZT$" MISSED:":Q8ZT$ZT$"NONE":ZT$:4870LZT$ZT$"#":T1Q8:ZT$ZT,K)1))  D1,J1243,Z$N(16384)155Ĺ16368,0:42000:::9500UJ[:ZT$NM$:23230:ZT$"^NAME: "ZT$:D1,20,ZT$:PRNTRD$"PR#"SL:NO$NM$4812NO$NM$:"NAME: "NM$B"(SENTENCES APPEAR EXACTLY AS STUDENT ENTE" OUT OF ""<"(NA)">"DlD1,40,ZT$:0,35279,35:0,171279,171jpQ8įD1,80,"^ALL CORRECT!":4790tu9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4755K1NC:S3(J,K)1Z$"^"Z$:4751Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(JLY ONE7f4795:ZT$"0":(NA)ZT$(((NAQ8)NA100))hZT$ZT$"%":D245,30,ZT$:4900:ZT$Y$:23230:ZT$"^MODE: "ZT$:D1,30,ZT$jZT$"^MISSED:":Q8ZT$ZT$"^NONE":4716kZT$ZT$" ":T1Q8:ZT$ZT$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)T):)VD$"CLOSE":(Z:ZT$ZZ$:(GET STUDNTSM(2:958:12:9:">> READING STUDENTS <<"(D$"OPENSTU.FL,L900":D$"READSTU.FL,R0":T150:S$(T):14:19:50T" ":($D$"CLOSE":(BWRT STUDNTS)LD$:D$"OPENSTU.FL,L900":D$"WRITESTU.FL,R0":T150:(34)S$(A LN-'&J1(Z$):Q$(Z$,J,1):Q$"^"99206'&Q$;@'&::g'U232,0:233,96:(15616)16622006'UD$"BLOADGR":D$"BLOADSMCHR"'UZH15:ZW7'U3:1:0:'EVCLR'ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$'ZZZ$ZZ$Q$"::6:"6 - PRINT SENTENCES ON PRINTER"P&0%:6:"7 - RUN CAPITALIZATION TEST"&X%::6:"WHICH? ";Y$:Y(Y$):Y1Y79500&v%960,0:Y1000,2000,3000,4000,9596,9596,9595&{%D$"RUNCAP-TEST"&|%960,Y::12:14:"W A I T":D$"RUNT-MENU2"'&PRNT SNS1 %%%%&%::6:NS" STUDENTS IN FILE":4:"DO YOU WANT TO:":::6:"1 - ADD STUDENTS"::6:"2 - DELETE STUDENTS/CLEAR FILES"::6:"3 - PRINT/DISPLAY STUDENT LIST"(&+%:6:"4 - PRINT/DISPLAY STUDENT RECORDS"::6:"5 - DISPLAY/MODIFY SENTENCESLMĺ"";:9020&$d#Z$Z$Y$:Y$;:9020:$x#(Z$)0F81:@$#K$#FS1:S$#RD$#D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSETEST.FILE"$$$%MENU$!%G10:D$:D$"CLOSE":D$"PR#0"%$%NS0:T150:S$(T)"*"N#<#Y$:(Y$)139080<#=#(Y$)21Ĵ((Z$)0)19099,9020]#>#Y$";"Y$","Y$":"Y$"/"s#?#(Y$)27ġ:9500#P#(Y$)89050#R#(Z$)F91:#S#(Z$)1Z$"":Y$" "Y$;:9020#U#Z$(Z$,(Z$)1):Y$" "Y$;:9020#Z#(Y$)329020$[#(Z$)ERTEST":"`"RMV CAPS?"j"(Z$,1)"^"Z$(Z$,(Z$)1):8810x"o"T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)"t":ZT$Z$:""D91,191,"^PRESS <^R^E^T^U^R^N>.":""16368,0:16384,128:""8900:8920"(#GT")#Z$""#2#F90:F80:FS03,4924,4925,4926,4927,4928 !3D!9Y$"1ST WORD IN SENTENCE & I":e!:Y$"PROPER PERSONAL NAMES":!;Y$"DAYS OF THE WEEK & MONTHS":!<Y$"HOLIDAYS, A.M. & P.M.":!=Y$"PROPER PLACE NAMES":!>Y$"TITLES":!?Y$"MISCELLANEOUS": "@Y$"SUP" -";:48900 (16384)155Ĺ16368,0:7 JZ :"-----------"::D$"PR#0": T1(Z$):(Z$,T,1)"^"TT1:Z((Z$,T,1)):4894 Z((Z$,T,1)):Z64Z91ZZ32 Z92Z34 (Z);  ": $MODE!.MD4921,4922,492T1Q8:ZT$ZT$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)" OUT OF ""<"(NA)">":ZT$d9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4855K1NC:S3(J,K)1Z$"^"Z$:4851Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(J,K)1)) S STUDENT ENTERED THEM.)":"---------------------------------------------------"{ZT$"0":(NA)ZT$(((NAQ8)NA100))4900:"MODE:"(Y$" ",25)" "ZT$"%"ZT$" MISSED:":Q8ZT$ZT$"NONE":ZT$:4870ZZT$ZT$"#":.(16384)155Ĺ16368,0:42000:::95005Jc(16384)155Ĺ16368,0:42000:::9500i:ZT$NM$:23230:ZT$"^NAME: "ZT$:D1,20,ZT$:PRNTRD$"PR#"SL:NO$NM$4812NO$NM$:"NAME: "NM$P"(SENTENCES APPEAR EXACTLY A$:0,35279,35:0,171279,171CpQ8įD1,80,"^ALL CORRECT!":4790Mu9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4755K1NC:S3(J,K)1Z$"^"Z$:4751Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(J,K)1))239,0:D1,J1243,Z$(NAQ8)NA100))^hZT$ZT$"%":D245,30,ZT$:4900:ZT$Y$:23230:ZT$"^MODE: "ZT$:D1,30,ZT$jZT$"^MISSED:":Q8ZT$ZT$"^NONE":4716kZT$ZT$" ":T1Q8:ZT$ZT$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)" OUT OF ""<"(NA)">"lD1,40,ZT95%SLĺD$"PR#"SL::::D$"PR#0"+]A$"HAS NOT ATTEMPTED ANY TESTS YET.":CD3ıSLĺD$"PR#"SL:"NAME: "NM$:" == "A$" ==":::D$"PR#0":4795:ZT$"^"A$:D1,80,ZT$:8950:4590\DSPLY ONEf239,0:4795:ZT$"0":(NA)ZT$((G:1:868:: DO A STUDENTxF50:D$"OPENSTU.FL,L900":MD18:D$"READSTU.FL,R"RC",B"(MD1)112:Q8:Q814540NA:T1Q8:S3(T,0):NCS3(T,0):J1NC1:S3(T,J)::F51:SLİ4700:D$:8950:45404800MD:D$"CLOSE"F545:Y1Y504147$2S$(Y)"*"4149U323:1:" NO SUCH STUDENT":G1150::41405" "S$(Y)" Y";:(36):16368,0:"";Y$:Y$"N"41406NSNS1:S%(NS)Y:NS504140@:NS9500ER1NS:RCS%(R):NM$S$(RC):4500JR:9500gG421:(" "(T),2)" -"S$(T);:VV1:XX1:X15V5:H20:4130HX304140m"TT1(T50):(T50)14115,4140,22:1:958:28:"<"NS"> TO SHOW";:1:":";:LM3:9000:Y$Z$:Y$"END"4160-F8FSF9X0:V5:H1:4199:TT(T50):41301Y(Y$):23):NM$S$(R):45000(16384)155Ĺ16368,0:DR:42000:9500RSOME STU[ NS0::"ENTER NOS. OF THOSE YOU WISH TO SEE.":"PRESS AFTER EACH NUMBER.":"TYPE 'END' WHEN FINISHED."V5:H1:T1:X0S$(T)"*"41309V:H:6:"DO YOU WANT TO:":::6:"1 - DO ALL STUDENTS"::6"2 - DO SOME STUDENTS"::6:"3 - DO ONLY STUDENTS WHO":10:"HAVE TAKEN A TEST":::6:"WHICH? ";Y$:CD(Y$):CD1CD340003800CD24100R150:S$(R)"*"4080RCS%(R16:1:868:"ALPHABETIZING"2DT150:S%(T)T:dFX49:T150:G10:K1X:S$(K)S$(K1)3930PG11:Z$S$(K):S$(K)S$(K1):S$(K1)Z$:ZS%(K):S%(K)S%(K1):S%(K1)ZZ:XX1:18:5:50T" "_G1ĂdDO STU RECS::NS3005; START[SL0:::12:"ARE YOU USING A PRINTER? N";:(36):"";Y$:Y$"Y"382014:"WHICH SLOT? ";Y$:SL(Y$):SL0SL73815T150:S%(T)T:Y3Ģ16:1:"ALPHABETIZE LIST? N";:(36):"";Y$:Y$"Y"İ3900< ALFAASL:SLĺ"STUDENT LIST":"------- ----":G T150:S$(T)"*"ĺS$(T)[ (37)19İ3095 (16384)155Ĺ16368,0::9500 :3095 SLĺ:"("NS" STUDENTS STORED ON DISK)":: D$"PR#0"::42000:9500 SLĢ23:"PRESS ";Y$:1:%c ZZZZ1:ZZ0Ĺ2001,43:29203d 2001,171Fh :D$"CLOSE":x T150:S$(T)"*]"S$(T)"*":S1T:S2T:2910 : PRNT/DSPLY STU LIST NSĉ::12:"NO STUDENTS IN FILE":22:"PRESS ";Y$:9500 1095:3800( :D$"PR#"):"";Y$:Y$"N"ė:42000:9500{ 20:868:6:">> UPDATING FILES <<":2950:20:868:6:">> SAVING STUDENTS <<":42050*9500T DELETE^ ZZ1:24:9:"WORKING...";:22::D$"OPENSTU.FL,L900":RCS1S2:MD07:D$"WRITESTU.FL,R"RC",B"MD112:E <<":2900:20600T150:Z$S$(T)Ă:2030rG11:S$(T)"*]":1095:NSĢ6:868:"NO STUDENTS LEFT":2050L$Z$:201020:1:"<"Z$"> IS NOT IN LIST."::"PRESS ";Y$:201020:1:868:"SAVE THIS NEW LIST? Y";:16368,0:(36DENTS."::NS" STUDENTS IN FILE.":G1Ģ20:1:"LAST DELETED:<"L$">"o12:"NAME:";:LM17:9000::F8F92015(Z$,3)"END"2050(Z$,3)"ALL"ĺ:"ARE YOU SURE? TYPE 'YES' - ";Y$:Y$"YES"āT150:S$(T)"*"::S11:S250:20:6:">> CLEARING FILEARING FILES <<":15:6:"(THIS TAKES ABOUT 2 MINUTES.)":S11:S250:2900:9500Y 1095 ::11:"DELETE STUDENTS":NSĢ12:"FILE IS ALREADY EMPTY.":20:1:"PRESS ";Y$:9500C:"TYPE 'END' WHEN FINISHED.":"TYPE 'ALL' TO DELETE ALL STUNSNS1 H: DELETE STU ::10:"DO YOU WANT TO CLEAR ALL STUDENT"::"FILES WITHOUT DELETING THEIR NAMES"::"FROM THE DISK? N";:(36):"";Y$:Y$"Y"2005 :"ARE YOU SURE? TYPE 'YES':";:LM3:9000:Z$"YES"9500O :12:10:">> CLB 20:1:"<"Z$"> ALREADY EXISTS."::"PRESS ";Y$:1000 20:1:868:"SAVE THIS NEW LIST? Y";:16368,0:(36):"";Y$:Y$"N"ė:42000:9500 $20:868:6:">> SAVING STUDENTS <<":42050 B9500 GNS0:T150:S$(T)"*"S$(T)"*]"1015 (Z$,3)"END"1050 (Z$,1)" "(Z$,1)" "Ģ20:1:"(NAME HAS EXTRAS SPACES)":"(PLEASE RE-ENTER) - <"Z$">"::"PRESS ";Y$:1000 T150:Z$S$(T)1030 :T150:S$(T)"*"Ă S$(T)Z$:G11:NSNS1:NS501050 1010DELETE SOME"::"STUDENTS IN ORDER TO ADD MORE.":20:"PRESS ";Y$:9500 "TYPE 'END' WHEN FINISHED."::"ROOM FOR "49NS" STUDENTS AFTER THIS ONE.":G1Ģ20:1:"LAST ENTERED:<"Z$">" 10:1:"STUDENT #"NS1:12:"NAME:";:LM15:9000:F8F9! T-MENU11/19/85&26026C D$(4):D$"PR#0":22000` S3(10,20),S$(50),S%(50)::13:"TEACHER'S MENU":42000PY(960):Y0Y79590Z9500ADD1095P ::13:"ADD STUDENTS"::NS50Ģ12:"FILE FULL. YOU MUST                      Z4F2ı Z1Z4:SS4(Z)T ZZS1(S):A$(Z$,S2(S)S1(S)((Z$,S2(S),1)"^"),1)v A$"."A$"!"A$"?"ZZZZ1 S(S),ZY7S(S)(7ZZ)2,ZY7& b Z40:`" FNDCAPSb"QQ0e"530j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K)R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT."D45,191,"^PRESS <^R^E^T^U^R^N> TO GO ON.":ZX94:ZY191:89200:E4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:@MISC UNDRLN TITLE MES,^TITLES,^MISCELLANEOUS,^SUPERTESTAMES,^TITLES,^MISCELLANEOUS,^SUPERTEST0%(50)y239,0:Y(960):Y0Y7959029500Y239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZW e16368,0:900:v3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES7 - MISCELLANEOUS,8 - SUPERTEST%^FIRST WORD IN SENTENCE & ^I,^PROPER PERSONAL NAMES,^DAYS OF WEEK AND MONTHS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAGR":D$"BLOADSMCHR""UZH15:ZW71U3:1:0::EVCLRAGV0aJVZZTZB:ZL,ZZR,Z:Z:3:ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$ZZZ$ZZ$Q$Z:ZT$ZZ$:l1 - 1ST WORD IN SENTENCE AND I,2 - PROPER PERSONAL NAMES['0%:6:"7 - RUN CAPITALIZATION TEST"VX%::6:"WHICH? ";Y$:Y(Y$):Y1Y79500v%960,0:Y9596,9596,9596,9596,1000,4000,9595{%D$"RUNCAP-TEST"|%960,Y::12:14:"W A I T":D$"RUNT-MENU"U232,0:233,96:(15616)16622006UD$"BLOAD&%::4:"DO YOU WANT TO:":::6:"1 - ADD STUDENTS"::6:"2 - DELETE STUDENTS/CLEAR FILES"::6:"3 - PRINT/DISPLAY STUDENT LIST"+%:6:"4 - PRINT/DISPLAY STUDENT RECORDS"::6:"5 - DISPLAY/MODIFY SENTENCES"::6:"6 - PRINT SENTENCES ON PRINTER"x#(Z$)0F81:##RDr#D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSE"x$"$WRT,$D$:D$"OPENTEST.FILE,L450":D$"WRITETEST.FILE,R"MD:T110:(34)A$(T)::D$"CLOSE"6$%MENU!%D$:D$"CLOSE"#Y$:(Y$)139080&=#(Y$)219020G>#Y$";"Y$","Y$":"Y$"/"]?#(Y$)27ġ:9500pP#(Y$)89050R#(Z$)F91:S#(Z$)1Z$"":Y$" "Y$;:9020U#Z$(Z$,(Z$)1):Y$" "Y$;:9020Z#(Z$)LMĺ"";:9020d#Z$Z$Y$:Y$;:9020,K,1)):Q64Q95!/Q944915+0KK1A1(Z$,K,1);:4930P3Q92Q34l4Q65Q91ĺ(Q);:4930z8(Q32);B:: UNDRLN TITLE Z4ı Z1Z4:SS4(Z) S(S),ZY7S(S)(7S1(S))2,ZY7& b Z40:(#GET ROUTINE ";:4900:::D$"PR#0"9500$ DO LWRCASE LN.K1(Z$):Q((Z$2:4:Y$:B21:4:868:"WHICH? ";Y$:MD(Y$):MD1MD81820H&aX,YX3,Y4X6,Y:m PRNTRw18009200::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRINTERS WILL PRINT":"LOWER CASE LETTERS.)"::"CHECK YOUR MANUAL.".)":198beZT130:ZB145:ZL0:ZR140:22087:D1,150,"^O^K? (^Y/^N)":ZX70:ZY150:UP2:120:UP0~fZA$"N"ZA$"Y"1125tZA$"N"1100~ZT130:ZB145:ZL0:ZR140:22087GET MD:"WHICH DO YOU WANT TO DO?" :T18:Y$:T29500L ENTER SENT(U0:E4,0,39:3rVLM39:ZT130:ZB145:ZL0:ZR120:22087:D1,150,"^ENTER NEW SENTENCE."`ZX1:ZY112:120:89:(ZA$)1120aA$ZA$:A$"END"A$"^END"1160 cT1(A$):(A$,T,1)"^"Ă:D1,130,"(^NO LETTERS CAPITALIZEDF9KK1(K1):10502FSF8ZA$"N"1080E ZA$"Y"1053o$1100:A$"END"A$"^END"KK1:1090|%A$(K)A$8K10KK1:1050B:C12:"DO YOU WANT TO SAVE NEW SENTENCES? Y";:(36):16368,0:"";Y$:Y$"N"1095D9250GT$"<"ZT$">":D27,45,ZT$:K1dZT134:ZB144:ZL98:ZR105:22085:0:E2,0,3:E3,0,39:E4,0,39:3ZT$"<"(K)">":D1,60,ZT$:239,0:ZT$A$(K):500:D1,85,Z$:239,0:8200D1,150,"^CHANGE? (^Y/^N) ^N":ZA$"N"LM1:ZX99:ZY150:UP2:100:UP0E.":X42:Y6:1990KD1,28,"^TYPE ' ' TO UNDERLINE.":3543,15:3544,15k0,25279,25:0,150279,150D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,"^TYPE '^Y' TO CHANGE SENTENCE.":D1,190,"^TYPE '^END' WHEN FINISHED.":T18MD:ZT$::Z:ZZ%ZX%HCHC:3HC:990:F9960.910^Z0KY128:Z$(Z0):0:ZX7,ZY4ZX12,ZY4s3:ZXZZ%:F90:ZX7,ZY4ZX12,ZY4:Z9120:KY(16384):KY127F91::SUBMENU18009200:D1,15,"^TYPE ' ' TO CAPITALIZ "#" (ZA$)24203 (ZA$,(ZA$)1)"^"140Y ZA$ZA$"#":239,(239):90:140i  SNT CORDt Z$ZT$ 14592Z$ G720:T110:S2(T)(GT):S1(T)(GT16):S(T)(GT32)::Z1(G47):Z(G46):Q(G45):  CRS16368,0:F90ZW:ZXZXZW:22087R ZA$(ZA$,1,(ZA$)1):ZA$"#"ZA$"":239,(239):90:251s F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ239,(239):90:255 WLWL1F1:140 ZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:ZU0I DZX,ZY,Z$:140[ (ZA$)F81q (ZA$,1)"^"140~ 239,0: WRT ZA$ZA$(Z0):ZA$(8)ZA$"":F91: ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY2:ZLZX:ZRZX0:16368,0! (ZA$)Z021140~ 16383,Z0:16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,158,140,158 (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))1405 ZA$ZA$(Z0):ZX16368,0:Z013F81:' fZ08F91:6 gZ021150E hZ032101i i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):90&T-MENU211/18/85'26026: D$(4):22000W S3(10,20),S$(50),S%(50)y239,0:Y(960):Y0Y7959029500Y239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZW e16368,0:900:                / H!"MY COMPUTER BROKE ON CHRISTMAS.",1,22,99[ R!"ARE THE TIGERS PLAYING TODAY?",1,9,99 W!"JAN WENT TO CENTRAL HIGH SCHOOL.",1,13,21,26,99 \!"WHAT IS THE CAPITAL OF MICHIGAN?",1,24,99 f!"SHE SPEAKS ARABIC.",1,12,99""KELLY IS GOOD WITH CZ$Z$(ZA$,Q1,1):QQ1" %9001 *XXI:Q:J T0W:DXT,Y,Z$:TP  @D$"BLOADGR":D$"BLOAD SMCHR":1013,76:1014,0:1015,61:232,0:233,96 T 4!"DID DR. SMITH COME FROM IOWA?",1,5,9,25,99 >!"BETTY LIVES ON BERT STREET.",1,16,21,99D$"RUNCAP-TEST"= (49152)148ĺD$:15616,0:D$"RUNT-MENU"Q W114:0:900e 7:XX170:XXp 900: 0:900:Z$"^"Z$:7:900 AA1:A(A)99175 130 QQ1900: 0:E3,0,39 7:110 Q1(ZA$):Z$(ZA$,Q,1):Z$"^"P^S# #^L^O^C^K# KEY IS PRESSED #^D^O^W^N#!"1 d> i49168,0S nA$:A$"**"100q oX17:A(X):A(X)99120w s x5:1,751,92277,92277,751,75:3:ZA$A$:X7:Y95:800 }A1 X(A(A)1)87:Z$(A$,A(A),1) (49152)141ĺD$:15616,0:"(C) 1982,86 ^HARTLEY ^COURSEWARE, ^INC."A PX16:Y150:I7:W0H U1Q Z800e _I8:X84:Y160: `ZA$"(517) 646-6458":800:ZA$"^VERSION "V$:X75:Y175:800 aZA$"^PRESS <^R^E^T^U^R^N>.":X84:Y190:800+ c(64435)6įD1,124,"^BE SURE #^C^A^ 0260267214,255:40286,252:40287,164C D$(4)U V$"09.15.87"f239,0:8000o21{:0:2(6:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^T^E^S^T"<X105:Y35A800* F3:ZA$  OMPUTERS.",1,99"**V14,255:40286,252:40287,164C D$(4)U V$"09.15.87"f239,0:8000o21{:0:2(6:ZA$"^C^A^P^I^T^A^L^I^Z^A^T^I^O^N"*X30:Y20:I15-W22800:7ZA$"^T^E^S^T"<X105:Y35A800* F3:ZA$1(> NAMES,^DAYS OF WEEK AND MONTHS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAMES,^TITLES,^MISCELLANEOUS,^SUPERTESTMES,^TITLES,^MISCELLANEOUS,^SUPERTESTCE AND I,2 - PROPER PERSONAL NAMESv3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES7 - MISCELLANEOUS,8 - SUPERTESTr^FIRST WORD IN SENTENCE & ^I,^PROPER PERSONALv3 - DAYS OF WEEK & MONTHS,"4 - HOLIDAYS, A.M. & P.M.",5 - PROPER PLACE NAMES,6 - TITLES7 - MISCELLANEOUS,8 - SUPERTEST%^FIRST WORD IN SENTENCE & ^I,^PROPER PERSONAL NAMES,^DAYS OF WEEK AND MONTHS,"^HOLIDAYS, ^A.^M. & ^P.^M.",^PROPER PLACE NAGR":D$"BLOADSMCHR""UZH15:ZW71U3:1:0::EVCLRAGV0aJVZZTZB:ZL,ZZR,Z:Z:3:ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$ZZZ$ZZ$Q$Z:ZT$ZZ$:l1 - 1ST WORD IN SENTENCE AND I,2 - PROPER PERSONAL NAMES['0%:6:"7 - RUN CAPITALIZATION TEST"VX%::6:"WHICH? ";Y$:Y(Y$):Y1Y79500v%960,0:Y9596,9596,9596,9596,1000,4000,9595{%D$"RUNCAP-TEST"|%960,Y::12:14:"W A I T":D$"RUNT-MENU"U232,0:233,96:(15616)16622006UD$"BLOAD&%::4:"DO YOU WANT TO:":::6:"1 - ADD STUDENTS"::6:"2 - DELETE STUDENTS/CLEAR FILES"::6:"3 - PRINT/DISPLAY STUDENT LIST"+%:6:"4 - PRINT/DISPLAY STUDENT RECORDS"::6:"5 - DISPLAY/MODIFY SENTENCES"::6:"6 - PRINT SENTENCES ON PRINTER"x#(Z$)0F81:##RDr#D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSE"x$"$WRT,$D$:D$"OPENTEST.FILE,L450":D$"WRITETEST.FILE,R"MD:T110:(34)A$(T)::D$"CLOSE"6$%MENU!%D$:D$"CLOSE"#Y$:(Y$)139080&=#(Y$)219020G>#Y$";"Y$","Y$":"Y$"/"]?#(Y$)27ġ:9500pP#(Y$)89050R#(Z$)F91:S#(Z$)1Z$"":Y$" "Y$;:9020U#Z$(Z$,(Z$)1):Y$" "Y$;:9020Z#(Z$)LMĺ"";:9020d#Z$Z$Y$:Y$;:9020z#?     ծ̠ ϠЭԠ% ԭՠ# ԭղҠ ҠԮŠz                    NT,1,185,^TYPE A NUMBER AND PRESS <^R^E^T^U^R^N>.C+(222)255Ħ~+"::12:"ERR #"(222)" IN LN "(218)(219)256:198ZD ^I,10,55,2 - ^PROPER PERSONAL NAMES*v10,70,3 - ^DAYS OF WEEK & MONTH,10,85,"4 - ^HOLIDAYS, ^A.^M. & ^P.^M.",10,100,5 - ^PROPER PLACE NAMES,10,115,6 - ^TITLES1+10,130,7 - ^MISCELLANEOUS,10,145,8 - ^SUPERTEST,10,160,9 - ^START OVER WITH A NEW STUDE)$D$"CLOSE":)˃YOU'RE DOING GREAT!,^NICE JOB,^PERFECT!,^YES! ^YES! ^YES!,^WAY TO GO!,^COULDN'T BE BETTER!,^W^O^W!,^THE ^F^O^R^C^E IS WITH YOU!,^I'M GOING TO TELL YOUR TEACHER WHAT)˃^FANTASTIC!,^WONDERFUL!%*l10,40,1 - ^FIRST WORD IN SENTENCE ANG1100::((SV RSLTS%(-Jıe(2D$:D$"OPENSTU.FL,L900":D$"WRITESTU.FL,R"RC",B"(MD1)112(FQ8:J:T1Q8:K0S3(T,0)1:S3(T,K)::(PD$"CLOSE"(Y(GET STUDNTS(D$:D$"OPENSTU.FL":D$"READSTU.FL":T150:S$:NM$S$Ă:F11X025025:Y160(X1.875):DX,Y,ZT$:M'^Y307020:D29,Y,"^GREAT JOB!":]'cHC17:HC'h19,819,70:17,617,72:40090:19,70105,70:17,72107,72:40090'i105,70105,8:107,72107,6:40090:105,819,8:107,617,6:40090'r'|3' (06:A:K,A::1013,76:1014,0:1015,61:&\q32,177,0,32,103,221,32,82,231,32,26,214,144,8,160,4,177,155,201,131,240,3,76,124,217,165,155,164,156,56,233,1,32,80,216,76,166,217,96&lD$:D$"RUNT-MENU"&@ REWARD&E:2500&JZT$"== "N$" =="&'T6:(15616)166220066%UD$"BLOADGR":D$"BLOADSMCHR"E%UZH15:ZW7T%U3:1:0:]%EVCLRd%GV0%JVZZTZB:ZL,ZZR,Z:Z:3:%ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$%ZZZ$ZZ$Q$%Z:ZT$ZZ$:%Hq&RESTORE(&Rq:K7688ԠԠҠ҇ΠŬήŮŠˠӣ̠ϠŠĠҮɠĠΠԠͮŠ٠ӠΠȠŠîĠԠȠŠ͠ԠٿĠҮȠŠ͠ΠԮĠҮȠŠ͠Π٠Ӯ̠ˠŠϠ٧ӮנΠɠԠϠҠӿƠǠҠӠɠήΠՠҠɠΠŠΠٿ٠ҠӠΠȠŠĬӮ׮ŠŠӠΠҮͧӠŮˠԠҠӠԠ̮ϠՠРԠ̧ӠԠſŠ٠Ӡ͠ŠǠϮҠŠӠԠӮŠԮԮӿŠӠԠӮŠޠӠήϠՠĠŠӣӣӣĠˠ٠ɠԠϠԠŧӠȠ٠ĮŠӠŠΠήΠӠҠ̠®ӮϠՠŠ٧ӠҠҠǿŠ̠ӠΠήϠՠȠ̣ԣӣҠǠˠӠĠӣŠՠҠĠˠԠȿɠˠǣӠԠסԠӠҠΠţԣɠĠˣ٣ΠȠ̮ΠՠˠοοԠΠΠǠٮˮӠŠϠҠנȠϿŠԠϠޢϠŠͣңŠףˣӣӠΠĠҮɠנţţңΠӠΠſɠŠŠԠϠϠҠҠЮ٠ӠΠԠԮΠȠӠΠή٠ΠԠŠԠˮӠŠϠҠנȠϿŠԠϠ̠ȰЮͮΠҠٮŠԠŠԠؠЮͮ׮ԠĠՠԠҠӿŠŠԠΠΠǠٮ٠ԮĠĠϠŠŠ٠ЮͮŠŠԠӠҠ͠ΠٿŠŠ٠٠ɠâĠՠӠРҠοԠ٠ӠΧӠٮɠŠРԠͮٮ٠͠ԠˠΠŧӠٮɠŠŠ٠Ƞ٠ԮĠĠϠŠŠ٠ЮͮŠŠԠ٠Ҡٿ٠ɠŠϠҠŠ׿ ĠŠΠٮΠ٠άŠӠ͠ΠŮŠנ٠ŠԠٮԧӠŠΠŠԠ٠ΠٮȮ̠ՠŠΠ٠ҠٿҮҮɠ̠ϮɠנӮРΠٮΠҮĢ٠٠Ӡ٬̠ȮӠǮŠΠҠԿɠŠ٠ҠΠٮɠΧԠ͠Ǡ٠ҠȮ̠ՠŠΠԠŠŮŠՠΠӮΠ®˿Ŭͬ٠ĠŠŮĠҮĠӮŠ٠ǿ٠ǠԠӮ͠ΠŠǮŠנӠ٠ӠΠήɠנΠĠΠȠ٠ҮŠš٠ӠΠȠŠîĠȠŠ͠ԠٿٿɠŠٮ̠ՠſӠӠâΠӠ٠ˮȠŠĿ̠ӮˠŠӿΠ̠ɠŠ̠Ġ¿ɠנҮȠҠӠ̠Ϯ٠ǠĠɠŠٮ̠ՠ٬Ҡ̠ɿӠŠԠӿԠӠŮŠĠɠ̠ϠŮ٠ɠŠϠȠտ̠Ӡ٠ĮŠӠ٠Ů̠ɠŠҠĿŠŠӠĮԠӠΠĠҮȠŠ͠Π٠͢ΠɠРտɠ͠٠ǮŠӠ̮Ӡ     0,2100,2100,2100,2100,2100,9598%&~%/&& N1$:&&Z$NM$S&&(Z$)2N$"^"Z$:&&(Z$,1)","(Z$,1)" "Z$(Z$,(Z$)1):9955&&T1(Z$):(Z$,T,1)","Z$(Z$,(Z$)T):9955&&&&T1(Z$):(Z$,T,1)" "9975&&'&N$"^"(Z$,T1)ZX,ZY,ZT$:'%D%LM4:ZX230:ZY185:120Y%E%ZA$"M"ZA$"MENU"ZA$"MNU"ZA$(20)39020w%F%ZA$"1"ZA$"9"ZA$"-1"%I%Y(ZA$):Y1Y9ZL230:ZR260:ZT170:ZB190:22085:9540%N%:D110,90,"^W ^A ^I ^T"%X%MDY:Y0Y9İ9200&v%Y2100,2100,210ZT130:ZB145:22085:$$#RD PROBSw$#D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSE"}$$$%MENU$&%:F20:Q80:NC0:J0$0%R59500$5%ZT$"^WHICH WOULD YOU LIKE TO DO, "N$"?":D1,20,ZT$ %:%T110:ZX,ZY,ZT$:DIN A ROW CORRECTLY!"+##9195:D20,150,ZT$o##ZX20:ZY170:ZT$"A GOOD JOB YOU'RE DOING, "N$".":CC99150##DZX,ZY,ZT$##CC10ZT$"^GREAT JOB, "N$"!":DZX,ZY,ZT$:8900:8920::40000##CC9((8).4)İ2500####CLR$#ZL18:ZR270:ZT$:(16384)1418925+""3:16368,0:6"#RIGHTB"#R52150g"#CCCC1:NCNC1:CC9ZC9:9115"#ZC((8)101):ZC10ZCZ0ZC99114"#Z0ZC:T1ZC:ZT$:"#ZC1ZT$N$", "ZT$"#ZC2ZT$ZT$", "N$"!"##CC10ZT$"^YOU DID 10 S <^R^E^T^U^R^N>, "N$".":D35,191,ZT$:ZX84:ZY191W!"X0ZX:Y0ZY:ZT$"^R^E^T^U^R^N"!"16368,0:T1800:(16384)1418930!"(16384)155ġ:2190!"!"3:DX0,Y0,ZT$:(16384)1418930!"G1250::(16384)155ġ:2190""0:DX0,Y0,  A$"."A$"!"A$"?"ZZZZ1B  S(S),ZY7S(S)(7ZZ)2,ZY7H & S b Z40:` `"FNDCAPSi b"QQ0r e"530 j"K1Q:(Z$,S2(K),1)"^"QQQQ1:S3(Q8,QQ)S2(K) ":S3(Q8,0)QQ: "ZY191:D84,ZY,"^PRESS <^R^E^T^U^R^N>.":ZX133:4!"ZT$"^PRES<^R^E^T^U^R^N> TO GO ON.":ZX94:ZY191:89200:E4,0,39:E5,0,39:E6,0,39:3:D20,150,"^CONTINUE WITH THE SENTENCE ABOVE.":ZY80:@MISC UNDRLN TITLE Z4F2ı Z1Z4:SS4(Z) ZZS1(S):A$(Z$,S2(S)S1(S)((Z$,S2(S),1)"^"),1) D1,132," ^PRESS ^C TO CAPITALIZE.":D1,144," ^PRESS ^E TO ERASE A CAPITAL."D1,156," ^PRESS ^S^P^A^C^E ^B^A^R TO MOVE THE LINE.":D1,168," ^PRESS <^R^E^T^U^R^N> WHEN YOU THINK":D1,178," THE SENTENCE IS CORRECT.",D45,191,"^PRESS ,ZYX:5ZX,ZY9X:1ZX,ZYX:7# G13:GZX,ZY::H& G1300::] PRPR PERS NAMESmDAYS OF WKHOLIDAYS, AM/PMpPLACE NAMESXTITLES HELPFFı0:E4,0,39:E5,0,39:E6,0,39:3:0,110260,110260,1730,1730,110Q48:72452O,179:3:0:N ZYZY10:2595:2598:0:2595:X182:3:2592t 0:2592:X:3:2592:6ZX,ZY8: 2595:O1:2548 ZX240:2595:R0648:3:R:2595:0:2595:ZXZX2:R:3:0:2595: 10ZX,ZY:11ZX,ZY:5ZX,ZY2: 2ZXZX,ZY:3:4ZX,ZY:5ZX,ZY:2598:0X 4ZX,ZY:5ZX,ZY:3:3ZX,ZY:2ZX,ZY:2598::f 2590:O0 CH:X15:16:72562O,156:48:72452O,179:72412O,179:16 72592O,156:0:72592O,156:48:72412O,179:CH::16:72562O,156:8ZX,ZY:2598:0:8ZX,ZY:3T 9ZX,ZY:2598:0:9ZX,ZY::3:5ZX,ZY:6ZX,ZY: 2590:2598:X13:0:11ZX,ZY:5ZX,ZY2:3:12ZX,ZY:2ZX,ZY2:2598:0 12ZX,ZY:2ZX,ZY2:3:11ZX,ZY:5ZX,ZY2:2598::# 2595:X14:0:3ZX,ZY:2D.":D20,120,ZT$:8900:8920&95002 RNFCRZ E8(232):E9(233):232,32:233,58x CH((8)6)1:CH42512 ZX250:ZY170 Z((8)7)1:Z2530,2535,2540,2545,2550,2555,2560 232,E8:233,E9: 2595:2598:0:2ZX,ZY:X14:3:ԠͮŠ٠ӠΠȠŠîĠȠŠ͠Ԡٿ٠Ӯ̠ˠŠϠ٧ӮנΠɠԠϠҠӿɠ̠ŠˠϠ͠ӠҮΠՠҠɠΠŠΠٿɠ̠Š٠Ԡ٠ŮŠˬӬ̠ϠŠҮɠĠΠ>OERTEST,10,160,9 - ^START OVER WITH A NEW STUDENT,1,185,^TYPE A NUMBER AND PRESS <^R^E^T^U^R^N>.q-(222)255Ħ-"::12:"ERR #"(222)" IN LN "(218)(219)256:198FUL!S,l10,40,1 - ^FIRST WORD IN SENTENCE AND ^I,10,55,2 - ^PROPER PERSONAL NAMES,v10,70,3 - ^DAYS OF WEEK & MONTH,10,85,"4 - ^HOLIDAYS, ^A.^M. & ^P.^M.",10,100,5 - ^PROPER PLACE NAMES,10,115,6 - ^TITLES_-10,130,7 - ^MISCELLANEOUS,10,145,8 - ^SUP:D$"READSTU.FL":T150:S$:NM$S$Ă:F11=+$D$"CLOSE":+˃YOU'RE DOING GREAT!,^NICE JOB,^PERFECT!,^YES! ^YES! ^YES!,^WAY TO GO!,^COULDN'T BE BETTER!,^W^O^W!,^THE ^F^O^R^C^E IS WITH YOU!,^I'M GOING TO TELL YOUR TEACHER WHAT,˃^FANTASTIC!,^WONDER19,8:107,617,6:40090*r$*|3**;*G1100::I*(SV RSLTSS*-Jı*2D$:D$"OPENSTU.FL,L900":D$"WRITESTU.FL,R"RC",B"(MD1)112*FQ8:J:T1Q8:K0S3(T,0)1:S3(T,K)::*PD$"CLOSE"*Y*GET STUDNTS,+D$:D$"OPENSTU.FL"EWARD)E:2500()JZT$"== "N$" =="T)TX025025:Y160(X1.875):DX,Y,ZT$:{)^Y307020:D29,Y,"^GREAT JOB!":)cHC17:HC)h19,819,70:17,617,72:40090:19,70105,70:17,72107,72:40090*i105,70105,8:107,72107,6:40090:105,8$(Z:ZT$ZZ$:(Hq&RESTOREV(Rq:K768806:A:K,A::1013,76:1014,0:1015,61:(\q32,177,0,32,103,221,32,82,231,32,26,214,144,8,160,4,177,155,201,131,240,3,76,124,217,165,155,164,156,56,233,1,32,80,216,76,166,217,96(lD$:D$"RUNT-MENU")@ R:(N$)11N$(N$,11)'&C'U232,0:233,96:(15616)16622006d'UD$"BLOADGR":D$"BLOADSMCHR"s'UZH15:ZW7'U3:1:0:'EVCLR'GV0'JVZZTZB:ZL,ZZR,Z:Z:3:'ZZZ$"":TT1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$(ZZZ$ZZ$QCS%(R):NM$S$(R):45006(16384)155Ĺ16368,0:JR:42000:9500XSOME STUa NS0::"ENTER NOS. OF THOSE YOU WISH TO SEE.":"PRESS AFTER EACH NUMBER.":"TYPE 'END' WHEN FINISHED."V5:H1:T1:X0S$(T)"*"4130?3005A6:"DO YOU WANT TO:":::6:"1 - DO ALL STUDENTS"::6"2 - DO SOME STUDENTS"::6:"3 - DO ONLY STUDENTS WHO":10:"HAVE TAKEN A TEST":::6:"WHICH? ";Y$:CD(Y$):CD1CD340003800CD24100R150:S$(R)"*"4080R"A16:1:868:"ALPHABETIZING"8DT150:S%(T)T:jFX49:T150:G10:K1X:S$(K)S$(K1)3930PG11:Z$S$(K):S$(K)S$(K1):S$(K1)Z$:ZS%(K):S%(K)S%(K1):S%(K1)ZZ:XX1:18:5:50T" "_G1ĂdDO STU RECS::NSY$:  STARTaSL0:::12:"ARE YOU USING A PRINTER? N";:(36):"";Y$:Y$"Y"382014:"WHICH SLOT? ";Y$:SL(Y$):SL0SL73815T150:S%(T)T:Y3Ģ16:1:"ALPHABETIZE LIST? N";:(36):"";Y$:Y$"Y"İ3900< ALFA$"PR#"SL:SLĺ"STUDENT LIST":"------- ----":M T150:S$(T)"*"ĺS$(T)a (37)19İ3095 (16384)155Ĺ16368,0::9500 :3095 SLĺ:"("NS" STUDENTS STORED ON DISK)":: D$"PR#0"::42000:9500 SLĢ23:"PRESS ";112:1:+c ZZZZ1:ZZ0Ĺ2001,43:29209d 2001,171Lh :D$"CLOSE":~ T150:S$(T)"*]"S$(T)"*":S1T:S2T:2910 : PRNT/DSPLY STU LIST NSĉ::12:"NO STUDENTS IN FILE":22:"PRESS ";Y$:9500 1095:3800. :D:(36):"";Y$:Y$"N"ė:42000:9500 20:868:6:">> UPDATING FILES <<":2950:20:868:6:">> SAVING STUDENTS <<":42050*9500T DELETE ^ ZZ1:24:9:"WORKING...";:22::D$"OPENSTU.FL,L900":RCS1S2:MD07:D$"WRITESTU.FL,R"RC",B"MDNG FILE <<":2900:20606T150:Z$S$(T)Ă:2030xG11:S$(T)"*]":1095:NSĢ6:868:"NO STUDENTS LEFT":2050L$Z$:201020:1:"<"Z$"> IS NOT IN LIST."::"PRESS ";Y$:2010%20:1:868:"SAVE THIS NEW LIST? Y";:16368,0LL STUDENTS."::NS" STUDENTS IN FILE.":G1Ģ20:1:"LAST DELETED:<"L$">"u12:"NAME:";:LM17:9000::F8F92015(Z$,3)"END"2050(Z$,3)"ALL"ĺ:"ARE YOU SURE? TYPE 'YES' - ";Y$:Y$"YES"āT150:S$(T)"*"::S11:S250:20:6:">> CLEARI">> CLEARING FILES <<":15:6:"(THIS TAKES ABOUT 2 MINUTES.)":S11:S250:2900:9500_ 1095 ::11:"DELETE STUDENTS":NSĢ12:"FILE IS ALREADY EMPTY.":20:1:"PRESS ";Y$:9500I:"TYPE 'END' WHEN FINISHED.":"TYPE 'ALL' TO DELETE A"*]"NSNS1 H:& DELETE STU ::10:"DO YOU WANT TO CLEAR ALL STUDENT"::"FILES WITHOUT DELETING THEIR NAMES"::"FROM THE DISK? N";:(36):"";Y$:Y$"Y"2005 :"ARE YOU SURE? TYPE 'YES':";:LM3:9000:Z$"YES"9500U :12:10:1010H 20:1:"<"Z$"> ALREADY EXISTS."::"PRESS ";Y$:1000 20:1:868:"SAVE THIS NEW LIST? Y";:16368,0:(36):"";Y$:Y$"N"ė:42000:9500 $20:868:6:">> SAVING STUDENTS <<":42050 B9500 GNS0:T150:S$(T)"*"S$(T)F8F91015" (Z$,3)"END"1050 (Z$,1)" "(Z$,1)" "Ģ20:1:"(NAME HAS EXTRAS SPACES)":"(PLEASE RE-ENTER) - <"Z$">"::"PRESS ";Y$:1000 T150:Z$S$(T)1030 :T150:S$(T)"*"Ă S$(T)Z$:G11:NSNS1:NS501050  MUST DELETE SOME"::"STUDENTS IN ORDER TO ADD MORE.":20:"PRESS ";Y$:9500 "TYPE 'END' WHEN FINISHED."::"ROOM FOR "49NS" STUDENTS AFTER THIS ONE.":G1Ģ20:1:"LAST ENTERED:<"Z$">" 10:1:"STUDENT #"NS1:12:"NAME:";:LM15:9000:X# T-MENU11/19/85&26026C D$(4):D$"PR#0":22000` S3(10,20),S$(50),S%(50)::13:"TEACHER'S MENU":42000PY(960):Y0Y79590Z9500ADD1095V ::13:"ADD STUDENTS"::NS50Ģ12:"FILE FULL. YOU                !!! !  - DISPLAY/MODIFY SENTENCES"::6:"6 - PRINT SENTENCES ON PRINTER"k&0%:6:"7 - RUN CAPITALIZATION TEST"&X%::6:"WHICH? ";Y$:Y(Y$):Y1Y79500&v%960,0:Y1000,2000,3000,4000,9596,9596,9595&{%D$"RUNCAP-TEST"'|%960,Y::12:14:"W A I T"%NS0:T150:S$(T)"*"NSNS1'%%%%&%::6:NS" STUDENTS IN FILE":4:"DO YOU WANT TO:":::6:"1 - ADD STUDENTS"::6:"2 - DELETE STUDENTS/CLEAR FILES"::6:"3 - PRINT/DISPLAY STUDENT LIST"C&+%:6:"4 - PRINT/DISPLAY STUDENT RECORDS"::6:"5#(Y$)329020)$[#(Z$)LMĺ"";:9020A$d#Z$Z$Y$:Y$;:9020U$x#(Z$)0F81:[$#f$#FS1:n$#RD$#D$:D$"OPENTEST.FILE,L450":D$"READTEST.FILE,R"MD:T110:A$(T)::D$"CLOSETEST.FILE"$$$%MENU$!%G10:D$:D$"CLOSE":D$"PR#0"!%$#)#Z$""#2#F90:F80:FS02#<#Y$:(Y$)139080W#=#(Y$)21Ĵ((Z$)0)19099,9020x#>#Y$";"Y$","Y$":"Y$"/"#?#(Y$)27ġ:9500#P#(Y$)89050#R#(Z$)F91:#S#(Z$)1Z$"":Y$" "Y$;:9020#U#Z$(Z$,(Z$)1):Y$" "Y$;:9020$ZS":"@Y$"SUPERTEST":'"`"RMV CAPS2"e"Z$ZT$Z"j"(Z$,1)"^"Z$(Z$,(Z$)1):8810"o"T1(Z$):(Z$,T,1)"^"Z$(Z$,T1)(Z$,(Z$)T)"t":ZT$Z$:""D91,191,"^PRESS <^R^E^T^U^R^N>.":""16368,0:16384,128:""8900:8920"(#GTMD4921,4922,4923,4924,4925,4926,4927,49280!3T!9Y$"1ST WORD IN SENTENCE & I":u!:Y$"PROPER PERSONAL NAMES":!;Y$"DAYS OF THE WEEK & MONTHS":!<Y$"HOLIDAYS, A.M. & P.M.":!=Y$"PROPER PLACE NAMES":!>Y$"TITLES":"?Y$"MISCELLANEOU,K)1)) ! " -";:4890@ (16384)155Ĺ16368,0:G Jj :"-----------"::D$"PR#0": T1(Z$):(Z$,T,1)"^"TT1:Z((Z$,T,1)):4894 Z((Z$,T,1)):Z64Z91ZZ32 Z92Z34 (Z);  ": $MODE*!.jZT$ZT$"#":T1Q8:ZT$ZT$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)" OUT OF ""<"(NA)">":ZT$t9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4855K1NC:S3(J,K)1Z$"^"Z$:4851 Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(JAPPEAR EXACTLY AS STUDENT ENTERED THEM.)":"---------------------------------------------------"ZT$"0":(NA)ZT$(((NAQ8)NA100))4900:"MODE:"(Y$" ",25)" "ZT$"%"ZT$" MISSED:":Q8ZT$ZT$"NONE":ZT$:48700:D1,J1243,Z$>(16384)155Ĺ16368,0:42000:::9500EJs(16384)155Ĺ16368,0:42000:::9500y:ZT$NM$:23230:ZT$"^NAME: "ZT$:D1,20,ZT$:PRNTRD$"PR#"SL:NO$NM$4812NO$NM$:"NAME: "NM$`"(SENTENCES >"-lD1,40,ZT$:0,35279,35:0,171279,171SpQ8įD1,80,"^ALL CORRECT!":4790]u9200J1Q8:NCS3(J,0):Z$A$(S3(J,NC1)):8810:NC4755K1NC:S3(J,K)1Z$"^"Z$:4751Z$(Z$,S3(J,K)1)"^"(Z$,(Z$)(S3(J,K)1))239,":(NA)ZT$(((NAQ8)NA100))nhZT$ZT$"%":D245,30,ZT$:4900:ZT$Y$:23230:ZT$"^MODE: "ZT$:D1,30,ZT$jZT$"^MISSED:":Q8ZT$ZT$"^NONE":4716kZT$ZT$" ":T1Q8:ZT$ZT$(S3(T,S3(T,0)1))","::ZT$(ZT$,(ZT$)1)" OUT OF ""<"(NA)"OSE"F545955SLĺD$"PR#"SL::::D$"PR#0";mA$"HAS NOT ATTEMPTED ANY TESTS YET.":CD3ıSLĺD$"PR#"SL:"NAME: "NM$:" == "A$" ==":::D$"PR#0":4795:ZT$"^"A$:D1,80,ZT$:8950:4590\DSPLY ONE f239,0:4795:ZT$"000gG421:G:1:868::0DO A STUDENTF50:D$"OPENSTU.FL,L900":MD18:D$"READSTU.FL,R"RC",B"(MD1)112:Q8:Q814540NA:T1Q8:S3(T,0):NCS3(T,0):J1NC1:S3(T,J)::F51:SLİ4700:D$:8950:45404800MD:D$"CL$):23:Y1Y504147*2S$(Y)"*"4149[323:1:" NO SUCH STUDENT":G1150::4140e441405" "S$(Y)" Y";:(36):16368,0:"";Y$:Y$"N"41406NSNS1:S%(NS)Y:NS504140@:NS9500ER1NS:RCS%(R):NM$S$(RC):4500JR:95V:H:(" "(T),2)" -"S$(T);:VV1:XX1:X15V5:H20:4130NX304140s"TT1(T50):(T50)14115,4140,22:1:958:28:"<"NS"> TO SHOW";:1:":";:LM3:9000:Y$Z$:Y$"END"4160-F8FSF9X0:V5:H1:4199:TT(T50):41301Y(Y>F)LD$:D$"OPENSTU.FL,L900":D$"WRITESTU.FL,R0":T150:(34)S$(T):W)VD$"CLOSE":1(ZT$):Q$(ZT$,TT,1):Q$"@"Q$"["Q$"^"Q$@(ZZZ$ZZ$Q$P(Z:ZT$ZZ$:a(GET STUDNTS(2:958:12:9:">> READING STUDENTS <<"(D$"OPENSTU.FL,L900":D$"READSTU.FL,R0":T150:S$(T):14:19:50T" ":($D$"CLOSE":(BWRT STUDNTS:D$"RUNT-MENU2"'&PRNT A LNH'&J1(Z$):Q$(Z$,J,1):Q$"^"9920Q'&Q$;['&::'U232,0:233,96:(15616)16622006'UD$"BLOADGR":D$"BLOADSMCHR"'UZH15:ZW7'U3:1:0:'EVCLR'GV0'JVZZTZB:ZL,ZZR,Z:Z:3:1(ZZZ$"":TT,K,1)):Q64Q95!/Q944915+0KK1A1(Z$,K,1);:4930P3Q92Q34l4Q65Q91ĺ(Q);:4930z8(Q32);B:: UNDRLN TITLE Z4ı Z1Z4:SS4(Z) S(S),ZY7S(S)(7S1(S))2,ZY7& b Z40:(#GET ROUTINE ";:4900:::D$"PR#0"9500$ DO LWRCASE LN.K1(Z$):Q((Z$2:4:Y$:B21:4:868:"WHICH? ";Y$:MD(Y$):MD1MD81820H&aX,YX3,Y4X6,Y:m PRNTRw18009200::4:"BE SURE PRINTER IS TURNED ON."::"(NOT ALL PRINTERS WILL PRINT":"LOWER CASE LETTERS.)"::"CHECK YOUR MANUAL.".)":198beZT130:ZB145:ZL0:ZR140:22087:D1,150,"^O^K? (^Y/^N)":ZX70:ZY150:UP2:120:UP0~fZA$"N"ZA$"Y"1125tZA$"N"1100~ZT130:ZB145:ZL0:ZR140:22087GET MD:"WHICH DO YOU WANT TO DO?" :T18:Y$:T29500L ENTER SENT(U0:E4,0,39:3rVLM39:ZT130:ZB145:ZL0:ZR120:22087:D1,150,"^ENTER NEW SENTENCE."`ZX1:ZY112:120:89:(ZA$)1120aA$ZA$:A$"END"A$"^END"1160 cT1(A$):(A$,T,1)"^"Ă:D1,130,"(^NO LETTERS CAPITALIZEDF9KK1(K1):10502FSF8ZA$"N"1080E ZA$"Y"1053o$1100:A$"END"A$"^END"KK1:1090|%A$(K)A$8K10KK1:1050B:C12:"DO YOU WANT TO SAVE NEW SENTENCES? Y";:(36):16368,0:"";Y$:Y$"N"1095D9250GT$"<"ZT$">":D27,45,ZT$:K1dZT134:ZB144:ZL98:ZR105:22085:0:E2,0,3:E3,0,39:E4,0,39:3ZT$"<"(K)">":D1,60,ZT$:239,0:ZT$A$(K):500:D1,85,Z$:239,0:8200D1,150,"^CHANGE? (^Y/^N) ^N":ZA$"N"LM1:ZX99:ZY150:UP2:100:UP0E.":X42:Y6:1990KD1,28,"^TYPE ' ' TO UNDERLINE.":3543,15:3544,15k0,25279,25:0,150279,150D1,170,"^PRESS <^R^E^T^U^R^N> TO PASS.":D1,180,"^TYPE '^Y' TO CHANGE SENTENCE.":D1,190,"^TYPE '^END' WHEN FINISHED.":T18MD:ZT$::Z:ZZ%ZX%HCHC:3HC:990:F9960.910^Z0KY128:Z$(Z0):0:ZX7,ZY4ZX12,ZY4s3:ZXZZ%:F90:ZX7,ZY4ZX12,ZY4:Z9120:KY(16384):KY127F91::SUBMENU18009200:D1,15,"^TYPE ' ' TO CAPITALIZ "#" (ZA$)24203 (ZA$,(ZA$)1)"^"140Y ZA$ZA$"#":239,(239):90:140i  SNT CORDt Z$ZT$ 14592Z$ G720:T110:S2(T)(GT):S1(T)(GT16):S(T)(GT32)::Z1(G47):Z(G46):Q(G45):  CRS16368,0:F90ZW:ZXZXZW:22087R ZA$(ZA$,1,(ZA$)1):ZA$"#"ZA$"":239,(239):90:251s F1(ZA$,1)"^"(ZA$,1)"#" (ZA$)2ZA$"":WL0:140 ZA$(ZA$,1,(ZA$)1):(ZA$,1)"^"255 (ZA$,1)"#"Ĺ239,(239):90:255 WLWL1F1:140 ZXZW:WLWL1:(UPZU)Z$(91)Z$"@"Z$"^"Z$:ZU0I DZX,ZY,Z$:140[ (ZA$)F81q (ZA$,1)"^"140~ 239,0: WRT ZA$ZA$(Z0):ZA$(8)ZA$"":F91: ZQ$(ZA$,(ZA$)1,1):ZQ$"^"ZQ$"#"ZTZYZH1:ZBZY2:ZLZX:ZRZX0:16368,0! (ZA$)Z021140~ 16383,Z0:16240:Z0(16383):WT(16382):WT140,215,400,251,150,158,145,140,158,140,158 (ZA$,1)"^"140 ZA$ZA$"^":140 FS1: WLLMZXZW267((ZA$,1)"^"(Z065Z090))1405 ZA$ZA$(Z0):ZX16368,0:Z013F81:' fZ08F91:6 gZ021150E hZ032101i i0:UP2ZT$ZA$:23230:ZA$ZT$ k239,0:DZX%,ZY,ZA$:239,0:0,ZY3279,ZY3:3:ZA$"":141 x INPT WL0:FS0:F90:F80:ZA$"":ZXZXZW:16368,0 ZU((ZA$,1)"^"):90&T-MENU211/18/85'26026: D$(4):22000W S3(10,20),S$(50),S%(50)y239,0:Y(960):Y0Y7959029500Y239,0ZZG(228):5(239):264,11279,11:228,ZG:d89:ZX%ZX:WL0:FS0:F90:F80:ZXZXZW e16368,0:900:"" " " " " """""""""