' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`"Type the NUMBER of your choice,":"then press .";:"";Z$TX>Z$(49)Z$(57)ĺ(7):21:O$:"PLEASE TYPE A NUMBER BETWEEN 1 AND ";TN2".":W12000:W:15940Tb>Z(Z$)T>Z1Z5NQ15:5000T>Z615570T?Z717000T ?NQ20UH?500015605 ST=:S=(12):T$4S=CC((1)9):(3);CC;S=1US=TC((1)8):(3);TCsS="Which one do you want?"{S>R$S>Z15S>15940S&>Z;". "FL$(Z)::ZS0>Z;". A DIFFERENT STUDENT"::Z1;". QUIT"SD>21:O$:R$SI>16368,0ATN>22::"";FIRST$:FIRST$""156308R=FIRST$"TEACHER"30000]R=9:13:"";LAST$:LAST$""15640uR"=N$LAST$"."FIRST$R,=11:"Is this correct? ";:150:FIRST$;" ";LAST$;:255:" "R1=120,88250,88R6=13:"Type Y or N .";:YN$S@=YN$"N""SOUND ALIKE."Q<200)Q<(18):(12)0Q<2QQ<"Hi! What is your name.":WQ<:bQ<6:O$Q<7:1:"First name:";:" "Q=9:1:"Last name:";:" "Q =3:79,57168,57:79,72168,72R=7:13P$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDDp *U*U*U*(@|`x@wxgs?`?xg`| |B!(  `|~(  !>!@PB"(ԪՊتPتǺ @T*U*U*U  r'$  @B ժժժ x XA@"" s.....":XTV(12)VXhV"Rhyming words SOUND alike, but they may":"not look alike."XrV:"Let's look at some words that RHYME.":X|V"BOOK rhymes with LOOK, TOOK, SHOOK,":"BROOK, HOOK, COOK, and ROOK."YV:"WHY rhymes with DIE, TRY, SHY, SIGH,":, but you may"::"stop whenever you want."cWN:"Count the shapes to find out your "::"score."WN11:"This means correct:"WN3:1150,80WU200WV3:"Do you want to see the examples? (Y/N)";:YN$: XVYN$"N"ĺ(12):10:"Getting the wordIS$):IS$,V9NP1,P3P2,P3P2,P4P1,P4P1,P3FVHNTC((1)8):(3);TCMVzN8UVNW$VN"Look at each word."::"Decide which other"::"words RHYME with it."::"Type their letters,"::"then press ."VN200+WNR$:"There are "NQ" questionsUhB(12):5:U|B"Insert new disk and press .";SUBG$:G$(13)17030YUBhUBD$;"PR#6"nU8JtU NU"NE$:(12)U%NIS$"INSTRUCTIONS"U*NP1140((IS$)8):P2140((IS$)7):P318:P4P321U,N3:2U/NTC((1)8):(3);TC V4N20(00,12000,11000-Lh) DELETE ALL STUDENT FILESlL)"THIS WILL WIPE OUT ALL STUDENT FILES ON"::"THIS DISK."L):"PROCEED? (Y/N) ";:YN$L)YN$"Y"10000L)L)D$;"DELETE SFILE"L)10000L*(12):10L+"Getting the program....."M +D$;""":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *UK.'12:"File Maintenance""K8';K=':"1. Check scores"[KB':"2. Delete student file"~KQ':"3. View/print a word list"KV':"4. Return to student program"K`'20:"Enter your choice--->";Ke'G$:G(G$):G1G410085Ko'(12)Lt'G2000,106___________________________""J.JX1NSJ(LAST$(X),12);", ";(FIRST$(X),9);:36,24:(FL$(X),1);:36,TA(X):T(X)"/"N(X);:36,TB(X):P(X)JXJJD$;"PR#0"JD$;"IN#0"J(3075J<N0:NS0:R0J'D$(4)J':34,0K$'(12):3:NS0:R0I10000"I(12):3EI"Please turn on the printer."sI:"Roll the paper past the perforation."|I 100IID$;"PR#1"I20((DISK$)2)IDISK$:J"Name";:36,18:"Exercise";:36,28:"Score";:36,36:"%":"____________(X))T(X)"/"N(X);TB(X))P(X)%HNN18HN18İ100:N0?HrXlHt:"You have "R1" scores on this disk."HvR90ĺ"IT IS ABOUT TIME TO DELETE THE FILE!"H|100H:H"Do you want a printout? (Y/N)";H34,0HYN$HYN$"Y"4590 IN0GDISK$"RHYMING WORDS"!G :,G(12)AG20((DISK$)2)NGDISK$:G"Name";18)"Exercise";28)"Score";36)"%":"---------------------------------------"GG34,4GX1NSH(LAST$(X),12);", ";(FIRST$(X),9);24)(FL$(X),1);TA SFILE"F*RR1DF4FL$(R):LAST$(R):FIRST$(R):T(R):N(R):P(R)YF>T(R)9TA(R)27oF@T(R)10TA(R)28FAP(R)100TB(R)34FBP(R)100TB(R)35FDP(R)10TB(R)36FMNSNS1FR2090F\D$;"CLOSE SFILE"Ff216,0FpR1010000Gres. When you approach this"::"limit, you will have to delete the file"::"from the program disk, and start over."E200E10000E(12)E3E2140E(12)E "Please wait while the file is read."ED$;"OPEN SFILE"F D$;"READ:"by the Word Mentor programs."D:" The names and scores for each disk"::"will be displayed on the screen. If a"::"printer is attached, the information"::"can also be printed out."vE:" Each program disk can hold 100 names"::"and sco)2):A$:::C13.C20((B$)2):B$:FC$20((C$)2):C$:^C.20((E$)2):E$:wC820((F$)2):FL$:CB1:Z140:"#";:Z:Z222:Z:"#";:40:"#";:Z:Z140:"#";:ZC`200Cj(12) Dt"This program reads the files created":3)110Bs(37):(15)BxIB23:7:"Press to continue.";`BG$:G$(13)110pB(12):3:vB:B(12):8BA$"The Manager":B$"Copyright (C) 1985":C$"by":E$"Criterion Micro Soft":F$"All Rights Reserved"C:20((A$(100),N(100),T(100),P(100),NS(100),R(100),J(20),FL$(100),ABR$(15)TATA(75),TB(75)`A(D$(4)A2 "EXERCISE A",15,"EXERCISE B",20,"EXERCISE C",20,"EXERCISE D",20,"EXERCISE E",15 AZ1000Ad24:7:"Press to continue.";BnG$:G$(1@ COPYRIGHT 1985 BY5@ CRITERION MICRO SOFTQ@ ALL RIGHTS RESERVEDn@ SCORE READER UTILITY@ MODIFIED 2/23/85@ RHYMING WORDS@ 3072@WD$(25),A$(25),B$(25),C$(35),G$(25),L1$(25),L2$(30),CW$(25)AALAST$(100),FIRST$         (N)"Score = "T" out of "N", or "P"%."7N")I010650=N@)bNE)"Here are the ones you missed:"hN^)sNh)M1I~N|)M$(M)N)MN)::N)M1I:M$(M)"":MN)D$;"PR#0"N)D$;"IN#0"N)3075N.(12):"Please wait......"*Ob/N0:T0:I0:KM(:"N = No, I do not want a paper copy."SM(:"Type your answer here-->";:YN$gM(YN$"Y"12000mM(M(:"Please make sure the printer is on."::"Then press any key.";M(G$M(:M(D$;"PR#1"N)FIRST$" "LAST$" - RHYMING WORDS "FL$(Z)'D$;"APPEND SFILE")L'D$;"WRITE SFILE"EL'"RHYMING WORDS "FL$(Z)XL'LAST$:FIRST$eL'T:N:P{L'D$;"CLOSE SFILE"L<(200:3LP("Do you want a paper copy?"Ld(:"You must have a printer attached."Lx(:"Y = Yes, I want a paper copy now."+60ĺ"You will have to do much better."]K P59P70ĺ"Not bad, but you need to do better."K P69P90ĺ"You did a good job."K P89ĺ"Not perfect, but very, very good!!"K':K8'N$LAST$"."FIRST$K`'D$;"OPEN SFILE"Kt'D$;"CLOSE SFILE"LScore for "FIRST$;": "T" out of "N";14)"- ";A$(J);24)B$(J)HI16)C$(J);24)G$(J):dINLNL1:NL5İ200:NL0kIJvIp(12)Iz34,7IX1NQ:S1:600:100:200:XI@34,0:(12):S0:R$IcP(TN)100:P(P102.5)(102.5)IeTL$" - "FL$(Z)"Jh"$(J):B$(J):C$(J)-HZG$(J):L1$(J):L2$(J)PHdL3$(J)(L1$(J),1)(L2$(J),1)sHnL4$(J)(L2$(J),1)(L1$(J),1)HxCW$(J):JHD$;"CLOSE "FL$(Z):216,0H(12):"Do you want to see the words? (Y/N)";:YN$HYN$"Y"6000H(12)-IJ1G 21:"Type TWO LETTERS, press .";8G"";AN$KG (AN$)2780[G*AN$""780rG4AN$L3$(J)İ300:G>AN$L4$(J)İ300:GM500GRG(12):20000GD$;"OPEN "FL$(Z)GD$;"READ "FL$(Z)GJ1NQG5260G(WD$(J)HFA))1FH0690FG1H,FK(G)J6403FGAFJNQ640KFHH1VFK(H)JFN1". Which words rhyme with ";:W$;:WD$(J)FB3F10FW$FB:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)::B:"D. "G$(J)FF3FR$,";FIRST$;"!":E"Super!!":DER0:"Nice going, ";FIRST$;".":TER$:19:O$]ELB0zE"You chose: <";AN$;">."E"The correct answer is: <";L3$(J);">"EII1:M$(I)CW$(J)E0EXCCCC1:CC9CC0El(3);CCEvR$:7FJ(NQ(1!":Dh"Correct!!!":DDm"Keep up the good work, ";FIRST$;"!":eDr"Right again, "FIRST$;"!":Dw"Yes ";FIRST$;", you are correct.":D|"O.K., ";FIRST$;", keep up the good work!":D"You are doing fine, ";FIRST$;".":E"Right you are, 00CRE$(13)250%CS1Ĺ34,42C"(12):CC,19:O$:LB1`C6"You chose: <";AN$;">."CJTT1:RR1:R340,350,355,360,365,370,375,380,385,390,400,410CT"Terrific answer, ";FIRST$;"!":C^"Very good, "FIRST$:Dc"Another right answer!BdNN1:2:LB1PXPX13/Bv0,20278,206Bx3`B}LB1āO260PX5:1O,11:1O,11:OwBLB1Ĕ1PX3,11:}BBR$:6:0,175278,175B24:" for more";BS0250B", to STOP.";BRE$BS0280CRE$"S"250ST.ALIEN, A5120"#A0232,0:233,20-A11:0A2WD$(30),A$(30),B$(30),C$(30),G$(30),L1$(20),L2$(20),L3$(30),L4$(30),K(20),I(20),G(20),M$(20),CW$(30)A41023,123:15000A<D$(4):O$(15)AAE$(5):T$(20):BF$(25):DB$(26):W$(23):R$(18)BF7@ COPYRIGHT (C) 1984 BY9@ CRITERION MICRO SOFTS@ ALL RIGHTS RESERVED^@(12)~@ LAST UPDATE 2/22/85@ :10:"PLEASE WAIT......"@(1023)12345@#(4);"BRUN LOMEM:":16384@((4);"BRUN H.IIC"@-A/(4);"BLOAD          *"D"D"D"D"D"D((*@ (*(*"D((*@ ` (*P*(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**(*@*U*U*U*U*U*U*U*U*U*U*U*U*U(*(*@(*@@ G(* "(*@ (*(*(*@(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U** `An~pA7p8p"(*@ `0C1F=Ca3`@La f (*AH@PB  D8D<(* `Ac@p`qG~q"(*@ ` (*(**U*U*U*U*U*U*U*U*U*U*U*(*@ U*U*U*U*U*U*U*U*U*U*U*(* @p(* "(*@ ` (*(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**(*@(*(*@(*(*"D((*@ ` (*(**U*U*U*U*U*U*U*U*U*U*U*(*@(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**"`App{@D((*@ `0CLgCa1`@La f0 (*:FGNaq@PB0xt88<(*"`cs8`qp`9GCGsD((*@ ` (*ժ(*(*@(*@C#$` a <G(*"D((*@ ` (*(ժժժժժժժժժժժժժժժժժժ*(*@(*(*@(*(* "(*@ ` (*(* "D"D"D"D"D"(*@(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U** `Appq@"(*@ `pCLCsg0|`@qG?|C (*"@0CDH(* `ws8`qp`yGCGs"(*@ ` (*P*(*(*@(* $dC'@p DH(* Q*U*U*U*U*U*U*U*U*U*"(*@ ` (*(*(*@(*(*@*U*U*U*U*U*U*U*U*U*U*U*U*U(*(*"D((*@ ` (*(*"D"D"D"D"D"D((*@ U*U*U*U*U*U*U*U*U*U*U*(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**"`App`@D((*@ ` (*@B 80(*"`s8`qp`yGCGsD((*@ ` (*@*U(*(*@(* $$$@ H(*"D"D"D"D"D"D((*@ ` (*(*(*@(*(*(*(* "(*@ ` (*(* "D"D"D"D"D"(*@ (*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U** `Ap0@@"(*@ ` (*@@(* `]s8`qp`9GCGs"(*@ `0CAAsg0|`aqGa|C (*@@(*(*@(* $$d@ (* "D"D"D"D"D"(*@ (*(*(*@(*(*(*(*"D((*@ ` (*(*"D"D"D"D"D"D((*@ (*(*"D((*@ ` (*@*U(*"`Is8gqp`9GCGs8D((*@ `0 CAACa8`sL1 f0 (*O@c@Bpx8880(*(*@ժժժժժժժժժժժՀ(* @c#$gpxx<BHH(*"D"D"D"D"D"D((*@ (*(*(*@(*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**(*(* "(*@ ` (*(* "D"D"D"D"D"(*@ (*(* "(*@ ` (*ժ(* `As8gqpd9GCGs8"(*@ `0CAACa."D>22:O$:R$ZN>22:"Type the NUMBER of your choice,":"then press .";:"";ZjX>ZTN15940>Z1Z5NQ15:5000>NQ208J5000 N"NE$:(12)%NIS$"INSTRUCTIONS"*NP1140((IS$)8):P2140((IS$)7):P318:P4P321,N " 1=120,88250,88?6=13:"Type Y or N .";:YN$S@=YN$"Y"15605YT=:h=(12):T$=CC((1)9):(3);CC=1=TC((1)8):(3);TC="Which one do you want?">W$>Z1TN>15940&>Z;". "FL$(Z)+>0>ZN>";=9:1:"Last name:";:" "^ =3:79,57168,57:79,72168,72=7:13:"";FIRST$:FIRST$""15630=9:13:"";LAST$:LAST$""15640"=N$LAST$"."FIRST$ ,=11:"Is this correct? ";:150:FIRST$;" ";LAST$;:255:"TL$&:TNTN1E:ZP;216,0i;D$;"CLOSE CONTENTS"q. ";0Y$:Y$(13)1252001(4);"RUN HELLO"$181 :D$;"OPEN CONTENTS":D$;""P"%." @)1E)"Here are the ones you missed:"7^)Bh)M1IM|)M$(M)T)M^)::m)D$;"PR#0"|)D$;"IN#0")3075b/N0:T0:P0:H0:I0:NQ0:J0:FX$"":DT1:F$"":NW0d/PX0g/A(0)h/34,0i/(12):3l/"Do you want anoer copy."1(:"Type your answer here-->";:YN$E(YN$"Y"12130K((:"Please make sure the printer is on."::"Then press any key.";(G$(:(D$;"PR#1")FIRST$" "LAST$" - RHYMING WORDS "FL$(Z))"Score = "T" out of "N", or D$;"WRITE SFILE",'"RHYMING WORDS "FL$(Z)4'N$A'T:N:PW'D$;"CLOSE SFILE"e<((12):3P("Do you want a paper copy?"d(:"You must have a printer attached."x(:"Y = Yes, I want a paper copy now." (:"N = No, I do not want a pape are the pairs of words you missed:"+6M1IA M$(M)T M8M16İ150[ Md& 150j'u'121308'N$LAST$"."FIRST$B'5:"Entering information-----------."`'D$;"OPEN SFILE"t'D$;"CLOSE SFILE"'D$;"APPEND SFILE"'1NQ 600100200&X,=@34,0:(12)ETR$ocP(TN)100:P(P102.5)(102.5)}eFL$(Z):h"Score for "FIRST$;": "T" out of "N:m"You missed ";NT"."or"You scored "P;"%."|I010000%"HerEN "FL$(Z) D$;"READ "FL$(Z),J1NQ76000C(WD$(J)\FA$(J):B$(J):C$(J)wZG$(J):L1$(J):L2$(J)dL3$(J)(L1$(J),1)(L2$(J),1)nL4$(J)(L2$(J),1)(L1$(J),1)xJpD$;"CLOSE "FL$(Z)z150:216,0:(12):34,7X"G$(J) 3R$I 21:"Type TWO LETTERS, press .";T34,17`"";AN$}AN$(65)AN$(68)780 (AN$)2780*AN$""780HAN$L3$(J)AN$L4$(J)İ300:M500R(12)620000 D$;"OP;CCvR$:7!J(NQ(1))1.H06909G1HIK(G)J640PG^JNQ640hHH1sK(H)JN1". Which words rhyme with ";:W$;:WD$(J)B310W$B:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)::B:"D. "Nice going, ";FIRST$;".":-R$:19:O$6LB0S"You chose: <";AN$;">."~"The correct answer is: <";L3$(J);">"0Xb ANSWER DISPLAY & INPUT gCCCC1:CC9CC0l(3) up the good work, ";FIRST$;"!":B r"Right again, "FIRST$;"!":l w"Yes ";FIRST$;", you are correct.": |"O.K., ";FIRST$;", keep up the good work!": "You are doing fine, ";FIRST$;".": "Right you are, ";FIRST$;"!": "Super!!":: ,19:O$ 1LB14 6"You chose: <";AN$;">." JTT1:R(12(1))1:R340,350,355,360,365,370,375,380,385,390,400,410 T"Terrific answer, ";FIRST$;"!": ^"Very good, "FIRST$: c"Another right answer!!": h"Correct!!!":! m"Keepfor more"; RE$' RE$(13)1704 (12):< R$C 6V 0,175279,175t 24:" for more"; N10N17250 ", to STOP."; RE$ N10N17280 RE$(32)25000 RE$(13)250 34,5 "(12)(23):R$(18) F1023,123* K783,1285 Z15000; dC iR$V jLB1PXPX13` nNN1g s2x v0,20278,20 x3 }LB1āO260PX5:1O,11:1O,11:O LB1Ĕ1PX3,11: R$:23 1 0,175279,175 24:" );"BLOAD ST.ALIEN, A5120", 0232,0:233,206 11:0 2WD$(50),A$(50),B$(50),C$(50),G$(50),L1$(20),L2$(20),L3$(40),L4$(40),K(20),I(20),G(20),M$(20),N(20),X(20),Z(20) 7D$(4):O$(15) < INIT VARIABLES AE$(5):T$(20):BF$(25):DB$(26):W$Q COPYRIGHT (C) 1984 BY: CRITERION MICRO SOFTT ALL RIGHTS RESERVEDs LAST UPDATE 8/19/84(1023)12345::10:14::"PLEASE WAIT"#(4);"BRUN LOMEM:":16384((4);"BRUN H"-:::3072 /(4"$[Xu::10:"PLEASE WAIT......":6[buD$;"RUN MGR"...":R[buD$;"RUN MGR"Du[DuD$;"PR#0" [NuD$;"IN#0"C[Xu::10:"PLEASE WAIT......":U[buD$;"RUN MGR"Dyou answer":"the questions."#Z]-Za34,45ZaS0DZa(12):R$KZa6qZa"Are you sure you want to QUIT?"Za:"Y = YES, I want to QUIT now."Za:"N = NO, I want to CONTINUE."Z b:"Type Y or N :";Z bYN$:YN$"Y"ĺ(12):Z4b:8000[0mes with DIE, TRY, SHY, SIGH,":"CRY, DYE, RYE and FLY."YV::"You can see that the first list has":"words that all end in OOK."YV:"But in the second list, the words have":"different endings. But they all RHYME."ZV:"Keep this in mind when N$"N"ĺ(12):10:"Please wait......":3XTV(12)uXhV"Rhyming words SOUND alike, but they may":"not look alike."XrV:"Let's look at some words that RHYME.":X|V"BOOK rhymes with LOOK, TOOK, SHOOK,":"BROOK, HOOK, COOK, and ROOK."8YV:"WHY rhy0OWNR$:"There are "NQ" questions, but you may"::"stop whenever you want."WN:"Count the shapes to find out your "::"score."WN11:"This means correct:"WN3:1150,80WU200WV3:"Do you want to see the examples? (Y/N)";:YN$:(XVYV/NTC((1)8):(3);TC-V4N20(IS$):IS$PV9NP1,P3P2,P3P2,P4P1,P4P1,P3jVHNTC((1)8):(3);TCqVzN8yVNW$VN"Look at each word."::"Decide which other"::"words RHYME with it."::"Type their letters,"::"then press ."WN200U?Z717000U ?NQ20$UH?50002UhB(12):5^U|B"Insert new disk and press .";wUBG$:G$(13)17030}UBUBD$;"PR#6"U8JU NU"NE$:(12)U%NIS$"INSTRUCTIONS"U*NP1140((IS$)8):P2140((IS$)7):P318:P4P321U,N3:2>21:O$:R$TI>16368,0eTN>22:"Type the NUMBER of your choice,":"then press .";:"";Z$TX>Z$(49)Z$(57)ĺ(7):21:O$:"PLEASE TYPE A NUMBER BETWEEN 1 AND ";TN2".":W12000:W:15940Tb>Z(Z$)T>Z1Z5NQ15:5000U>Z61557"Type Y or N .";:YN$(S@=YN$"N"15605.ST=:=S=(12):T$WS=CC((1)9):(3);CC^S=1xS=TC((1)8):(3);TCS="Which one do you want?"S>R$S>Z1TNS>15940S&>Z;". "FL$(Z)::ZS0>Z;". A DIFFERENT STUDENT"::Z1;". QUIT" TD,57168,57:79,72168,72?R=7:13:"";FIRST$:FIRST$""15630[R=FIRST$"TEACHER"30000R=9:13:"";LAST$:LAST$""15640R"=N$LAST$"."FIRST$R,=11:"Is this correct? ";:150:FIRST$;" ";LAST$;:255:" "R1=120,88250,88S6=13:101Q<:"Matching words that"::"SOUND ALIKE.":Q<200LQ<(18):(12)SQ<2tQ<"Hi! What is your name.":zQ<:Q<6:O$Q<7:1:"First name:";:" "Q=9:1:"Last name:";:" "R =3:79SE CONTENTS"#P;3072:783,128:S0+P";:YN$|M(YN$"Y"12130M(M(:"Please make sure the printer is on."::"Then press any key.";M(G$M(:M(D$;"PR#1"N)FIRST$" "LAST$" - ILE"Lt'D$;"CLOSE SFILE"1L'D$;"APPEND SFILE"GL'D$;"WRITE SFILE"cL'"RHYMING WORDS "FL$(Z)kL'N$xL'T:N:PL'D$;"CLOSE SFILE"L<((12):3LP("Do you want a paper copy?"Ld(:"You must have a printer attached."Mx(:"Y = Yes, I wantave to do much better."MK P59P70ĺ"Not bad, but you need to do better."sK P69P90ĺ"You did a good job."K P89ĺ"Not perfect, but very, very good!!"K'200K8'N$LAST$"."FIRST$KB'5:"Entering information............"L`'D$;"OPEN SF$;": "T" out of "N,Jm"You missed ";NT"."EJr"You scored "P;"%."uJ|I0ĺ:"You had a perfect score!!!":10000{JJ"Here are the words you missed:"JJ34,8JM1IJ M$(M)J M11İ200J M:J0 34,0K P60ĺ"You will h$(J);" - "12)A$(J);22)B$(J)8I12)C$(J);22)G$(J):TINLNL1:NL5İ200:NL0[IJfIp(12)pIz34,7IX1NQ:S1:600:100:200:XI@34,0:(12):S0:R$IcP(TN)100:P(P102.5)(102.5)IeTL$" - "FL$(Z)Jh"Score for "FIRST):C$(J)#HZG$(J):L1$(J):L2$(J)FHdL3$(J)(L1$(J),1)(L2$(J),1)iHnL4$(J)(L2$(J),1)(L1$(J),1)xHxCW$(J):JHD$;"CLOSE "FL$(Z):216,0H(12):"Do you want to see the words? (Y/N)";:YN$HYN$"N"6000H(12)IJ1NQ:J". "WDype TWO LETTERS, press .";.G"";AN$AG (AN$)2780QG*AN$""780hG4AN$L3$(J)İ300:G>AN$L4$(J)İ300:GM500GRG(12):20000GD$;"OPEN "FL$(Z)GD$;"READ "FL$(Z)GJ1NQG5260G(WD$(J)HFA$(J):B$(JH0690FG1H"FK(G)J640)FG7FJNQ640AFHH1LFK(H)J~FN1". Which words rhyme with ";:W$;:WD$(J)FB3F10FW$FB:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)::B:"D. "G$(J)FF3FR$"G 21:"T!":E"Super!!"::ER0:"Nice going, ";FIRST$;".":JER$:19:O$SELB0pE"You chose: <";AN$;">."E"The correct answer is: <";L3$(J);">"EII1:M$(I)CW$(J)E0EXCCCC1:CC9CC0El(3);CCEvR$:7EJ(NQ(1))1F"Correct!!!"::Dm"Keep up the good work, ";FIRST$;"!":[Dr"Right again, "FIRST$;"!":Dw"Yes ";FIRST$;", you are correct.":D|"O.K., ";FIRST$;", keep up the good work!":D"You are doing fine, ";FIRST$;".":E"Right you are, ";FIRST$;"$(13)250CS1Ĺ34,4(C"(12):9C,19:O$:LB1VC6"You chose: <";AN$;">."CJTT1:RR1:R340,350,355,360,365,370,375,380,385,390,400,410CT"Terrific answer, ";FIRST$;"!":C^"Very good, "FIRST$:Cc"Another right answer!!":Dh1:2:LB1PXPX13%Bv0,20278,20,Bx3VB}LB1āO260PX5:1O,11:1O,11:OmBLB1Ĕ1PX3,11:sBBR$:6:0,175278,175B24:" for more";BS0250B", to STOP.";BRE$BS0280BRE$"S"25000 CREA5120"A0232,0:233,20#A11:0A2WD$(30),A$(30),B$(30),C$(30),G$(30),L1$(20),L2$(20),L3$(30),L4$(30),K(20),I(20),G(20),M$(20),CW$(30)A41023,123:15000A<D$(4):O$(15)AAE$(5):T$(20):BF$(25):DB$(26):W$(23):R$(18)AFBdNNV@ COPYRIGHT (C) 1984 BY9@ CRITERION MICRO SOFTS@ ALL RIGHTS RESERVEDt@ LAST UPDATE 12/01/84@ :10:"PLEASE WAIT......"@(1023)12345@#(4);"BRUN LOMEM:":16384@((4);"BRUN H.IIC"@-A/(4);"BLOAD ST.ALIEN,               :FX$"":DT1:F$"":NW0"Ng/A(0),Nh/34,0:Ni/(12):3gNl/"Do you want another exercise? (Y/N) ";N/YN$:YN$"Y"ĺ(12):15700N/(12)N/:"Does someone else want to do an"::"exercise on this disk? (Y/N) ";N/YN$:YN$"Y"15500O/(11I1MP(M$(M)Md(MM./M.D$;"CLOSE ":M.216,0PM.D$;"OPEN SFILE "fM.D$;"CLOSE SFILE"}M/D$;"APPEND SFILE"M /D$;"WRITE SFILE"M/LAST$:FIRST$M/N:T:PM&/D$;"CLOSE "MD/4:"PLEASE WAIT":PX0Nb/N0:T0:P0:H0:I0:NQ0:J000202L)'6:"Recording information! Please wait."=L.'(12)UL8'N$LAST$"."FIRST$LB'5:"Entering information-----------."L`'D$;"OPEN "N$Lt'D$;"CLOSE "N$L'D$;"APPEND "N$L'D$;"WRITE "N$L'N:T:PL (WMIL(WML(I012010M<(M"%."K|I010000KHK"Here are the pairs of words you missed:"NKYKM1IdK M$(M)wK M8M16İ150~K MK0 10000K'150:(12):12100K' FILE WRITE ROUTINE BEGINS HEREK'23:"Please press .";L$'RE$:RE$(13)1Jz150:216,0:(12):34,7'JX1NQ0J6009J100BJ200IJXOJ`J@34,0:(12)hJTR$JcP(TN)100:P(P102.5)(102.5)JeFL$(Z):Jh"Score for "FIRST$;": "T" out of "N:Jm"You missed ";NT"."JoKr"You scored "P;AN$(CL$(J),1)İ300:IR#I.I(12)5I6@I20000VID$;"OPEN "FL$(Z)lID$;"READ "FL$(Z)xIJ120I6000I(QU$(J)I2QV$(J)IFA$(J):B$(J):C$(J)IZCL$(J):CW$(J)IdMW$(J)InNQNQ1IxJIpD$;"CLOSE "FL$(Z),156271,156271,1721,1721,156(HR$ZH23:"(Remember to choose the SIMILAR word.)"aH 2H 21:"Type a letter, then press .";H34,17H"";AN$H (AN$)1780H*AN$(65)AN$(67)ĺ(7):780H>AN$(CL$(J),1)İ500:IHCC9CC0Gl(3);CC"GvT$:75GJ(NQ(1))1BGH0690MGG1H]GK(G)J640dGGnGHH1yGK(H)JGN1". ";QU$(J)G3:QV$(J)GB3G11GW$GB:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)GG3 H1IRST$;".":FR$:19:O$$FLB0AF"You chose: <";AN$;">."lF"The correct answer is: <";CL$(J);">"vFII1F&M$(I)CW$(J)"-"MW$(J)F0FXFb ANSWER DISPLAY & INPUT GgCCCC1: ";FIRST$;"!":0Er"Right again, "FIRST$;"!":ZEw"Yes ";FIRST$;", you are correct.":E|"O.K., ";FIRST$;", keep up the good work!":E"You are doing fine, ";FIRST$;".":E"Right you are, ";FIRST$;"!":E"Super!!": F"Nice going, ";F36,15:A$(J);:36,27:B$(J);-PB3T4:J9T5NPE336,37:C$(J);:36,47:G$(J)UPJ3J[PT3jP^3D$;"PR#0"Ph3D$;"IN#0":3075:10000D5İ200:NB0J3JT3^3D$;"PR#0"h3D$;"IN#0":3075:100003J/O2:"Do you want a printout? (Y/N)";:YN$CO2YN$"Y"10000KO2:O3:"Make sure your printer is on and the"::"paper is set. Then press any key.";:G$O 3O3D$;"PR#1"O3"Rhyming Words - "FL$(X):P@3J1NQ(X):J". <";WD$(J);">";:@Nl/WD$(J):A$(J):B$(J):C$(J):G$(J):L1$(J):L2$(J):CW$(J)GN/JoN2D$;"CLOSE "FL$(X):216,0:(12):3N2"Rhyming Words - "FL$(X):N2J1NQ(X):J". <";WD$(J);">"15)A$(J);27)B$(J)N215)C$(J);27)G$(J):N2NBNB1:NB5İ200:NB0O2RUN RHYMING WORDS.M"M + M\+VM.(12):3:X15:FL$(X):NQ(X):X". "FL$(X)::XM.:"Type a number and press -->";M/"";XM/(12):2:"Getting the words.....":M0/D$;"OPEN "FL$(X)MD/D$;"READ "FL$(X)MX/13000Nb/J1NQ(X)ǠӍI*N60 DN$:YN$"Y"ĺ(12):!V4b:8000'V0u6VDuD$;"PR#0"EVNuD$;"IN#0"hVXu::10:"PLEASE WAIT......":zVbuD$;"RUN MGR"YME."BUV:"Keep this in mind when you answer":"the questions."HU]RUa34,4ZUaS0iUa(12):R$pUa6Ua"Are you sure you want to QUIT?"Ua:"Y = YES, I want to QUIT now."Ua:"N = NO, I want to CONTINUE."U b:"Type Y or N :";V bYOOK, COOK, and ROOK."]TV:"WHY rhymes with DIE, TRY, SHY, SIGH,":"CRY, DYE, RYE and FLY."TV::"You can see that the first list has":"words that all end in OOK."UV:"But in the second list, the words have":"different endings. But they all RHe the examples? (Y/N)";:YN$:MSVYN$"N"ĺ(12):10:"Please wait......":XSTV(12)ShV"Rhyming words SOUND alike, but they may":"not look alike."SrV:"Let's look at some words that RHYME.":T|V"BOOK rhymes with LOOK, TOOK, SHOOK,":"BROOK, Hd."::"Then press ."&RN200tRNR$:"There are "NQ" questions, but you may"::"stop whenever you want."RN:"Count the shapes to find out your "::"score."RN11:"This means correct:"RN3:1150,80RU200SV3:"Do you want to seQ,N3:2"Q/NTC((1)8):(3);TC6Q4N20(IS$):IS$YQ9NP1,P3P2,P3P2,P4P1,P4P1,P3sQHNTC((1)8):(3);TCzQzN8QNR$RN"Look at the capitalized word in each"::"sentence. Decide which word from the"::"list means the SAME. Type the wor1215570P?Z1317000#P ?NQ20-PH?5000;PhB(12):5gP|B"Insert new disk and press .";PBG$:G$(13)17030PBPBD$;"PR#6"P8JP NP"NE$:(12)P%NIS$"INSTRUCTIONS"P*NP1140((IS$)8):P2140((IS$)7):P318:P4P321"Which one do you want?" O>R$,O>Z1TN8O>15940OO&>Z;". "FL$(Z)::Z~O0>Z;". A DIFFERENT STUDENT"::Z1;". QUIT"OD>21:O$:R$OI>16368,0ON>22:"Type the NUMBER of your choice,":"then press .";:"";Z$Ob>Z(Z$)O>: P>Z`(--U9????1.----% ??GCCCCCLR ?z#??    ԮϠŠ ϠͺҠ ɮנ!ǠӮ͠ Š!ԮΠ ۰ݠŠŠ ŠàŠĠŠŠ Ȯà RHYMING WORDS "FL$(Z)>)"Score = "T" out of "N", or "P"%."D@)iE)"Here are the ones you missed:"o^)zh)M1I|)M$(M))M)::)D$;"PR#0")D$;"IN#0")3075b/N0:T0:P0:H0:I0:NQ0:J0:FX$"":DT1:F$"":NW0d/PX0t a paper copy now."A(:"N = No, I do not want a paper copy."i(:"Type your answer here-->";:YN$}(YN$"Y"12130((:"Please make sure the printer is on."::"Then press any key.";(G$(:(D$;"PR#1")FIRST$" "LAST$" -FILE"t'D$;"CLOSE SFILE"2'D$;"APPEND SFILE"H'D$;"WRITE SFILE"d'"RHYMING WORDS "FL$(Z)l'N$y'T:N:P'D$;"CLOSE SFILE"<((12):3P("Do you want a paper copy?"d(:"You must have a printer attached."x(:"Y = Yes, I wanll have to do much better."Q P59P70ĺ"Not bad, but you need to do better."w P69P90ĺ"You did a good job." P89ĺ"Not perfect, but very, very good!!"'8'N$LAST$"."FIRST$B'5:"Entering information-----------."`'D$;"OPEN Sout of "N:%m"You missed ";NT"."+oDr"You scored "P;"%."t|I0ĺ:"You had a perfect score!!!":10000z"Here are the words you missed:"M1I2 M$(M);18)M$(M1) M8M16İ200 M& 200 P60ĺ"You wi1$(J),1)xCW$(J):J.pD$;"CLOSE "FL$(Z)Kz200:216,0:(12):34,7WX1NQ_S1h600q100z200X@34,0:(12)TR$cP(TN)100:P(P102.5)(102.5)eTL$" - "FL$(Z): h"Score for "FIRST$;": "T" L4$(J)İ300:M500R"-(12)46?20000UD$;"OPEN "FL$(Z)kD$;"READ "FL$(Z)wJ1NQ6000(WD$(J)FA$(J):B$(J):C$(J)ZG$(J):L1$(J):L2$(J)dL3$(J)(L1$(J),1)(L2$(J),1)nL4$(J)(L2$(J),1)(LW$QB:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)::B:"D. "G$(J)W^3fR$ 21:"Type TWO LETTERS, press .";34,17"";AN$AN$(65)AN$(68)780 (AN$)2780*AN$""780 HAN$L3$(J)AN$ AgCCCC1:CC9CC0Nl(3);CCYvR$:7lJ(NQ(1))1yH0690G1HK(G)J640GJNQ640HH1K(H)JN1". Which words rhyme with ";:W$;:WD$(J)B310ght you are, ";FIRST$;"!":, "Super!!":Q R0:"Nice going, ";FIRST$;".":a R$:19:O$j LB0 "You chose: <";AN$;">." "The correct answer is: <";L3$(J);">" II1:M$(I)CW$(J) 0 X*b ANSWER DISPLAY & INPUT right answer!!":% h"Correct!!!":Q m"Keep up the good work, ";FIRST$;"!":r r"Right again, "FIRST$;"!": w"Yes ";FIRST$;", you are correct.": |"O.K., ";FIRST$;", keep up the good work!": "You are doing fine, ";FIRST$;".": "RiRE$"S"25000# RE$(13)2502 S1Ĺ34,5? "(12):P ,19:O$:LB1m 6"You chose: <";AN$;">." JTT1:RR1:R340,350,355,360,365,370,375,380,385,390,400,410 T"Terrific answer, ";FIRST$;"!": ^"Very good, "FIRST$: c"Another ,123 Z15000+ dNN1:2:LB1PXPX13< v0,20278,20C x3m }LB1āO260PX5:1O,11:1O,11:O LB1Ĕ1PX3,11: R$:6:0,175278,175 24:" for more"; S1250 ", to STOP."; RE$ S1280  0232,0:233,20 11:0 2WD$(30),A$(30),B$(30),C$(30),G$(30),L1$(20),L2$(20),L3$(30),L4$(30),K(20),I(20),G(20),M$(20),N(20),X(20),Z(20) 7D$(4):O$(15) < INIT VARIABLES AE$(5):T$(20):BF$(25):DB$(26):W$(23):R$(18) F1023& COPYRIGHT (C) 1984 BY9 CRITERION MICRO SOFTS ALL RIGHTS RESERVEDr LAST UPDATE 11/24/84 :10:"PLEASE WAIT......"(1023)12345#(4);"BRUN LOMEM:":16384((4);"BRUN H"- /(4);"BLOAD ST.ALIEN, A5120"ǠӠŠÍҮ؍ whenever you want."LN:"Count the shapes to find out your "::"score."kN11:"This means correct:"|N3:1150,80LOU200V3:"Do you want to see the examples? (Y/N)";:YN$:VYN$"N"ĺ(12):10:"Please wait......":a34,4 ,P3P2,P4P1,P4P1,P3/HNTC((1)8):(3);TC6zN8>NW$N"Look at each word."::"Decide which other"::"words RHYME with it."::"Type their letters,"::"then press ."N200NR$:"There are "NQ" questions, but you may"::"stopsert new disk and press .";<BG$:G$(13)17030BBQBD$;"PR#6"W8J] Nl"NE$:(12)%NIS$"INSTRUCTIONS"*NP1140((IS$)8):P2140((IS$)7):P318:P4P321,N3:2/NTC((1)8):(3);TC4N20(IS$):IS$9NP1,P3P2r choice,":"then press .";:"";Z$X>Z$(49)Z$(57)ĺ(7):21:O$:"PLEASE TYPE A NUMBER BETWEEN 1 AND ";TN2".":W12000:W:15940b>Z(Z$)g>Z815570l>Z917000>Z1Z5NQ15:5000>NQ20>5000hB(12):5#|B"InT$=CC((1)9):(3);CC#=1==TC((1)8):(3);TC[="Which one do you want?"c>R$o>Z1TN{>15940&>Z;". "FL$(Z)::Z0>Z;". A DIFFERENT STUDENT"::Z1;". QUIT"D>21:O$:R$I>16368,0*N>22:"Type the NUMBER of you630=FIRST$"TEACHER"30000D=9:13:"";LAST$:LAST$""15640\"=N$LAST$"."FIRST$,=11:"Is this correct? ";:150:FIRST$;" ";LAST$;:255:" "1=120,88250,886=13:"Type Y or N .";:YN$@=YN$"Y"15605T=:=(12):<(18):(12)<28<"Hi! What is your name.":><:I<6:O$<7:1:"First name:";:" "=9:1:"Last name:";:" " =3:79,57168,57:79,72168,72=7:13:"";FIRST$:FIRST$""152<";::"."@140:A11040050A : 700 = ";N;:33:"@"P6:"@";:33:"@":6:"@ NUMBER CORRECT = ";T;:33:"@"f6:"@";:33:"@"6:"@ PERCENT CORRECT = ";P;"%";:33:"@":6:"@";:33:"@"6:X633:"@";:X::100::415::" SYNONYMS "::" LOO "";AN$H$(8)$I1404H$;" ";H$;:JAN$""430^AN$A$(6)İ200pAN$E$İ250x50100::P(TN)100:P(P102.5)(102.5)::86:X633:"@";:X::6:"@";:33:"@"6:"@ TOTAL POINTS FILE.2" K160 A$(K)% K- :9 NQNQ1H KNQNQ5 J:A$(NQ):::H:A$(NQ1)::H:A$(NQ2)::H:A$(NQ3)::H:A$(NQ4)::H:A$(NQ5) 20 D$;"CLOSE SYNFILE.2""TYPE A LETTER, THEN PRESS ";::"";::".";"TRUE! ";:! "RIGHT ON! ";:+ TT15 NN1> 152D g " ";E$;" ";::" IS CORRECT!"p 255v | "NO, ";::" ";AN$;" ";::" IS NOT CORRECT." 255 NN1 , 70::8 D$;"OPEN SYNFILE.2" D$;"READ SYNǠӠŠӮÍǠӠŠčӮ͍ȭȭȭέέݍÍ̭̭̭Íčҭҭҍčέέ΍čĭĭčÍŭ׭ϭÍԭԭԭԭԭԭÍŭŭŭǠӠŠčҍ؍ǠӠŠÍǍٍčǠӍӍ čĭĭčÍčŭŭōÍԭԭԭčͭͭōÍϭŭխčÍ͍ŠŠŠÍŠčŠōǠӠŠōҍōj    :     () 1982       . 2.1 `D ԠϠҠРҠ˨ĩҠΨΩ` ŠӠ`1 Ԡ͠˨ĩҍŠ٠Ҩͩ``  L(L L G B : ')  ֩Lk  ` ڬ) ō`ȩ `  ` Ȍ H Le i `ȊȭȩLH  hH6 祉 h   L)?iqiH h` ! `Lk` ɠ,۰( ɬ 6L` .D8`8` ɰɺɸ8鰍j ɬ ɰɺɳ8鰍hL[ ɰɺ)  ɬНfɍL^ȱ ɍ`L H=ȱee   HL LL !   `Lk  Hȱh8`$㹠6ȑȑȭfȭhȭjȩ ) 8``H$h  8`  8`` L 6` `)LQɕݭPIPLɝɠ ɍɈɘз %V UH-WMXhWi IVDP?i L 8 'V P  Lݐ`ɠ )/8  ` |^$%&`{}@~[_]\۰8``6 ɍ`مv3    9  9L  `7 ɍɠ `مv   7  ɍ `  7ȩ7 f ō`z?f`fz?` Zf`f`fL7 H    Lh L hɍ HL*H KL_ 6 7 , ɛh`ɠ ɛLm   L`hh LHH`0 : L` H h`  6 U ~ K Lq  ȑȑ`` FYLI`r ή ) L] L 9ɠ *) Y ۰ )L8 L]L `   ` 8 ` L`  ɍ q ҺĠǍ_`8@?` Lk  %L   ` 6 7`  [L  `ل؈v`a  FLY     u L L  L& u       q  轇 P 8 LP   `  v?w? 0l   L:  ɍL L7 ə ɍ0 Liɥ#    ɍ    č͍ÍÍčÍčÍčÍ͍čÍÍčč  RECORD FILE ROUTINE BEGINS HERE K AT THE FIRST WORD IN EACH GROUP."::"THEN CHOOSE ONE OF THE WORDS BELOW IT"::"THAT HAS A SIMILAR MEANING."::"TYPE ITS LETTER, THEN PRESS ";:"";::"."@140:A11040050A : 700 = ";N;:33:"@"P6:"@";:33:"@":6:"@ NUMBER CORRECT = ";T;:33:"@"f6:"@";:33:"@"6:"@ PERCENT CORRECT = ";P;"%";:33:"@":6:"@";:33:"@"6:X633:"@";:X::100::415::" SYNONYMS "::" LOO "";AN$H$(8)$I1404H$;" ";H$;:JAN$""430^AN$A$(6)İ200pAN$E$İ250x50100::P(TN)100:P(P102.5)(102.5)::86:X633:"@";:X::6:"@";:33:"@"6:"@ TOTAL POINTS FILE.2" K160 A$(K)% K- :9 NQNQ1H KNQNQ5 J:A$(NQ):::H:A$(NQ1)::H:A$(NQ2)::H:A$(NQ3)::H:A$(NQ4)::H:A$(NQ5) 20 D$;"CLOSE SYNFILE.2""TYPE A LETTER, THEN PRESS ";::"";::".";LEASE WAIT......":%!buD$;"RUN MGR"aS0 a(12):R$ a6A a"Are you sure you want to QUIT?"g a:"Y = YES, I want to QUIT now." a:"N = NO, I want to CONTINUE." b:"Type Y or N :"; bYN$:YN$"Y"ĺ(12): 4b:8000 0u DuD$;"PR#0" NuD$;"IN#0"!Xu::10:"P͍čÍ͍č͍č䍭čÍÍÍčÍ͍čÍÍčÍÍ  Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZǠӠŠӍōǠӠŠ͍ʍǠӠŠ͍ǠӠŠ䍰ǠӠŠ䍱ǠӠŠÍZ]Za34,4ZaS0%Za(12):R$,Za6RZa"Are you sure you want to QUIT?"xZa:"Y = YES, I want to QUIT now."Za:"N = NO, I want to CONTINUE."Z b:"Type Y or N :";Z bYN$:YN$"Y"ĺ(12):Z4b:8000Z0uZDuD$;"PR#0"[NuD$;"IN#0"CRY, DYE, RYE and FLY."fYV::"You can see that the first list has":"words that all end in OOK."YV:"But in the second list, the words have":"different endings. But they all RHYME."YV:"Keep this in mind when you answer":"the questions."čÍÍč荍͍͍ÍÍčÍÍč͍čč   `p8      8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p000@`p8 8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ䍱ÍÍčč͍ÍčÍ͍ÍÍččÍčč   ǠӠŠōӮÍǠӠŠӮÍǠӠŠӮÍǠӠŠōӮÍǠӠŠčӮÍǠӠŠӮÍǠӠŠÍӍčč͍č͍ččÍčÍ͍čÍ  `p8      8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p000@`p8 8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j          (12)Z 0:"Do you or someone else want to do an"::"exercise on ANOTHER DISK? (Y/N) ";r 0YN$:YN$"Y"1250040(12):"To re-start this program,"::"type GOTO 15500 and press .":::0(12)!0:"Please insert the disk you want to 0:I0:NQ0:J0:FX$"":DT1:F$"":NW00g/A(0)>i/(12):3kl/"Do you want another exercise? (Y/N) ";/YN$:YN$"Y"ĺ(12):15700/(12)/:"Does someone else want to do an"::"exercise on this disk? (Y/N)";/YN$:YN$"Y"15500/TE NAME ONLY%.D$;"OPEN HEADERFILE>.D$;"READ HEADERFILEJ.12065V/Z150_ /NA$q/NA$N$12090x/Z!/D$;"CLOSE HEADERFILE"&/D$;"APPEND HEADERFILE"+/D$;"WRITE HEADERFILE"0/N$:/D$;"CLOSE HEADERFILE"%b/N0:T0:P0:H$'N:T:P'WMI'WM/(WM011010:<(M1IEP(M$(M)Ld(MR*c+D$;"CLOSE "x +D$;"OPEN SFILE"+D$;"CLOSE SFILE" +D$;"APPEND SFILE"%+D$;"WRITE SFILE"*+LAST$:FIRST$:DT$:FX$4+N:T:P9+D$;"CLOSE " . WRIITE ROUTINE BEGINS HERE:'23:"Please press .";U$'RE$:RE$(13)10020`.'(12)x8'N$LAST$"."FIRST$B'5:"Entering information-----------."`'D$;"OPEN "N$t'D$;"CLOSE "N$'D$;"APPEND "N$'D$;"WRITE "N$'DT$'FX@34,0:(12)TR$8h"Final score = "T"/"NTm"Number missed = ";NTmr"You scored "P;"%."||I010000"Here are the ones you missed:"M1IM$(M)NM18140NM:N15İ200:NM1M' FILE WR (12)6200004D$;"OPEN "F$(X)ID$;"READ "F$(X)\C1$:C2$:C3$hJ130s6000~(Q$(J)2CL$(J)xJpD$;"CLOSE "F$(X)216,0200(12)34,2X130600100200X5350,146270,146270,1620,1620,146U(18): REGULAR SMALL FONT\ 2 20:"Type a letter, then press .";"";AN$ (AN$)1779*AN$(65)AN$(68)779>AN$CL$(J)İ500:HAN$CL$(J)İ300:R)J640GLL1#K(L)J*43H22EB4:N9B5MR$wCCCC1:CC9CC0: CHARACTER COLOR(3);CC"A. "C1$::"B. "C2$::"C. "C3$34,1014:3N1;". ";Q$(J)3:0,95190,95190,1150,1150,90 "You chose: <";AN$;">."I "The correct answer is: <";CL$(J);">"S II1c &M$(I)Q$(J)i 0o X: b ANSWER DISPLAY & INPUT vR$ J(30(1))1 L0690 G1LK(G.":2 ^"You are on target with <";CL$(J);">.":R h"<";CL$(J);"> is right.":t r"<";CL$(J);"> is correct.": |"<";CL$(J);"> is o.k.": "Right you are, ";FIRST$;"!": "Super!!": "Nice going, ";FIRST$;".": R$:18:O$ LBEC(12):5$C(637)223500sC"Please make sure the key marked"::"CAPS LOCK is in the DOWN position."CPAUSE11000:PAUSECCD$;"RUN "TL$".M"C 5)22:TL$B(18) B19:6tBCP$"Copyright (c) 1984":CM$"Criterion Micro Soft":I20(CP$)2:J20(CM$)2BRR$"All Rights Reserved":K20(RR$)21B(18)B21:I1:CP$:J1:CM$BK:RR$BD$(13)(4)CPAUSE12000:PAUS(20)As15:"Word Mentor"$Au3\Aw1,3278,3278,1901,1901,3: BORDER AROUND SCREENjAx15:(5)uAz(20)}A}15AP1140(TL$)4:P2140(TL$)4.5:P3(37)810:P4P330AP1,P3P2,P3P2,P4P1,P4P1,P3: BOX AROUND TITLE B20(TL$ @D$(4)@936+@(1023)12340K@(4);"BRUN LOMEM:":16384^@(4);"BRUN H"h@(3072v@-1023,123|@.@2(4);"BLOAD ST.CMS LOGO, A5120"@7232,0:233,20@<1:0@A3@F132,40:1204,40@PTL$"RHYMING WORDS"@i8AnÍǠӠŠӮ̍ǠӠŠÍӮ̍Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,@ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 LF J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j      0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L&E)"Here are the ones you missed:",^)7h)M1IB|)M$(M)I)MS)::b)D$;"PR#0"q)D$;"IN#0"{)3075b/N0:T0:P0:H0:I0:NQ0:J0:FX$"":DT1:F$"":NW0d/PX0g/A(0)h/34,0i/(12):3 l/"Do you want another exerci(:"Type your answer here-->";:YN$:(YN$"Y"12130@((:"Please make sure the printer is on."::"Then press any key.";(G$(:(D$;"PR#1")FIRST$" "LAST$" - RHYMING WORDS "FL$(Z))"Score = "T" out of "N", or "P"%."@)FILE"!'"RHYMING WORDS "FL$(Z))'N$6'T:N:PL'D$;"CLOSE SFILE"Z<((12):3{P("Do you want a paper copy?"d(:"You must have a printer attached."x(:"Y = Yes, I want a paper copy now."(:"N = No, I do not want a paper copy."&e are the pairs of words you missed:"+6M1IA M$(M)T M8M16İ150[ Md& 150j'8'N$LAST$"."FIRST$B'5:"Entering information-----------."`'D$;"OPEN SFILE"t'D$;"CLOSE SFILE"'D$;"APPEND SFILE"'D$;"WRITE S1NQ 600100200&X,=@34,0:(12)ETR$ocP(TN)100:P(P102.5)(102.5)}eFL$(Z):h"Score for "FIRST$;": "T" out of "N:m"You missed ";NT"."or"You scored "P;"%."|I010000%"HerEN "FL$(Z) D$;"READ "FL$(Z),J1NQ76000C(WD$(J)\FA$(J):B$(J):C$(J)wZG$(J):L1$(J):L2$(J)dL3$(J)(L1$(J),1)(L2$(J),1)nL4$(J)(L2$(J),1)(L1$(J),1)xJpD$;"CLOSE "FL$(Z)z150:216,0:(12):34,7X"G$(J) 3R$I 21:"Type TWO LETTERS, press .";T34,17`"";AN$}AN$(65)AN$(68)780 (AN$)2780*AN$""780HAN$L3$(J)AN$L4$(J)İ300:M500R(12)620000 D$;"OP;CCvR$:7!J(NQ(1))1.H06909G1HIK(G)J640PG^JNQ640hHH1sK(H)JN1". Which words rhyme with ";:W$;:WD$(J)B310W$B:"A. ";A$(J)::B:"B. ";B$(J)::B:"C. ";C$(J)::B:"D. "Nice going, ";FIRST$;".":-R$:19:O$6LB0S"You chose: <";AN$;">."~"The correct answer is: <";L3$(J);">"0Xb ANSWER DISPLAY & INPUT gCCCC1:CC9CC0l(3) up the good work, ";FIRST$;"!":B r"Right again, "FIRST$;"!":l w"Yes ";FIRST$;", you are correct.": |"O.K., ";FIRST$;", keep up the good work!": "You are doing fine, ";FIRST$;".": "Right you are, ";FIRST$;"!": "Super!!":: ,19:O$ 1LB14 6"You chose: <";AN$;">." JTT1:R(12(1))1:R340,350,355,360,365,370,375,380,385,390,400,410 T"Terrific answer, ";FIRST$;"!": ^"Very good, "FIRST$: c"Another right answer!!": h"Correct!!!":! m"Keepfor more"; RE$' RE$(13)1704 (12):< R$C 6V 0,175279,175t 24:" for more"; N10N17250 ", to STOP."; RE$ N10N17280 RE$(32)25000 RE$(13)250 34,5 "(12)(23):R$(18) F1023,123* K783,1285 Z15000; dC iR$V jLB1PXPX13` nNN1g s2x v0,20278,20 x3 }LB1āO260PX5:1O,11:1O,11:O LB1Ĕ1PX3,11: R$:23 1 0,175279,175 24:" );"BLOAD ST.ALIEN, A5120", 0232,0:233,206 11:0 2WD$(50),A$(50),B$(50),C$(50),G$(50),L1$(20),L2$(20),L3$(40),L4$(40),K(20),I(20),G(20),M$(20),N(20),X(20),Z(20) 7D$(4):O$(15) < INIT VARIABLES AE$(5):T$(20):BF$(25):DB$(26):W$F COPYRIGHT (C) 1984 BY: CRITERION MICRO SOFTT ALL RIGHTS RESERVEDs LAST UPDATE 8/19/84(1023)12345::10:14::"PLEASE WAIT"#(4);"BRUN LOMEM:":16384((4);"BRUN H"-:::3072 /(4! ҍÍԍÍ͍ҍčÍǠӠŠōӮÍǠӠŠÍӮÍ`-??v-$ - ;NIA?!40N"=N$LAST$"."FIRST$eN,=11:"Is this correct? ";:150:FIRST$;" ";LAST$;:255:" "xN1=120,88250,88N6=13:"Type Y or N .";:YN$N@=YN$"N"15605NT=:N=(12):T$N=CC((1)9):(3);CCN=1N=TC((1)8):(3);TCO=<6:O$?M<7:1:"First name:";:" "wM=9:1:"Last name:";:" "M =3:79,57168,57:79,72168,72M=7:13:"";FIRST$:FIRST$""15630M=FIRST$"TEACHER"30000N=9:13:"";LAST$:LAST$""156(12)Lx<2:3)LJ)M1I:M$(M)"":MMJ)D$;"PR#0"\J)D$;"IN#0"fJ)3075Jb/N0:T0:I0:K0:M0:PX0:P0:NQ0:J0:LO:G0:M$"":H0Jd/I120:M$(I)"":I:I0Jg/A(0)Jh/34,0Ji/(12):3Jl/15850J$1J81 KI(LI(:"Please make sure the printer is on."::"Then press any key.";TI(G$\I(:kI(D$;"PR#1"I)FIRST$" "LAST$" - RHYMING WORDS "FL$(Z)I)"Score = "T" out of "N", or "P"%."I")I010650I@)IE)"Here are the ones you missed:"J^)D$;"CLOSE SFILE"H<((12):3@HP("Do you want a paper copy?"kHd(:"You must have a printer attached."Hx(:"Y = Yes, I want a paper copy now."H(:"N = No, I do not want a paper copy."H(:"Type your answer here-->";:YN$H(YN$"Y"12130ĺ"Not perfect, but very, very good!!"/G'200GG8'N$LAST$"."FIRST$rGB'5:"Entering information............"G`'D$;"OPEN SFILE"Gt'D$;"CLOSE SFILE"G'D$;"APPEND SFILE"G'D$;"WRITE SFILE"G'"RHYMING WORDS "FL$(Z)G'N$G'T:N:PH'F"Here are the words you missed:"*F4F34,8?FM1IJF M$(M)YF M11İ200bF M:lF0 34,0F P60ĺ"You will have to do much better."F P59P70ĺ"Not bad, but you need to do better."F P69P90ĺ"You did a good job."&G P89!":E"Super!!":.E@34,0:(12):S0:R$XEcP(TN)100:P(P102.5)(102.5)lEeTL$" - "FL$(Z)Eh"Score for "FIRST$;": "T" out of "NEm"You missed ";NT"."Er"You scored "P;"%."E|I0ĺ:"You had a perfect score!!!":10000E$"Correct!!!"::Dm"Keep up the good work, ";FIRST$;"!":[Dr"Right again, "FIRST$;"!":Dw"Yes ";FIRST$;", you are correct.":D|"O.K., ";FIRST$;", keep up the good work!":D"You are doing fine, ";FIRST$;".":E"Right you are, ";FIRST$;"$(13)250CS1Ĺ34,4(C"(12):9C,19:O$:LB1VC6"You chose: <";AN$;">."CJTT1:RR1:R340,350,355,360,365,370,375,380,385,390,400,410CT"Terrific answer, ";FIRST$;"!":C^"Very good, "FIRST$:Cc"Another right answer!!":Dh1:2:LB1PXPX13%Bv0,20278,20,Bx3VB}LB1āO260PX5:1O,11:1O,11:OmBLB1Ĕ1PX3,11:sBBR$:6:0,175278,175B24:" for more";BS0250B", to STOP.";BRE$BS0280BRE$"S"25000 CREA5120"A0232,0:233,20#A11:0A2WD$(30),A$(30),B$(30),C$(30),G$(30),L1$(20),L2$(20),L3$(30),L4$(30),K(20),I(20),G(20),M$(20),CW$(30)A41023,123:15000A<D$(4):O$(15)AAE$(5):T$(20):BF$(25):DB$(26):W$(23):R$(18)AFBdNN{@ COPYRIGHT (C) 1984 BY9@ CRITERION MICRO SOFTS@ ALL RIGHTS RESERVEDt@ LAST UPDATE 12/01/84@ :10:"PLEASE WAIT......"@(1023)12345@#(4);"BRUN LOMEM:":16384@((4);"BRUN H.IIC"@-A/(4);"BLOAD ST.ALIEN, "" " " " " """""""""