' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 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*`g 255:W3R1900:W3R0ĺ:"Do you need some help? (Y/N) ";:ZZ$:ZZ$"Y"2520:ZZ$"y"2520z K:KK1:4700 :S$"Let's start again, "NA$".":S$:2060 10:S$"1. Multiply by "(10RO)".":600:10:25:N$(S(1)):120:170:CH1ĩS71925:N1$::810:::CH3İ3000:900:2510M>N$(S(5)):120:AN$N1$jH15:"Your answer: ";N$\(N$)S(5)2190](N$)(N1$)2190TC36:LJ5:R0:::S$"Sorry, the correct answer is:":610:T$N1$:SS:990:WW1:2500300:2500LG)")":H1:TC38:LI1:610:V9:H92:" ";TL$:TL(TL$):TL2TLLGĢ20:1:958:2075c K1TL*1000:I99499992090::CH3ĉ::34N1$"":N$(S(0)):120:S$"Round "N$" to the nearest "J$".":LI1:TC26:H1:610:V92:CH3V7V91:920:Vl:11:"Round to the nearest?":V13:II14:LJ13:S$(II)")"J$(II):V:610:VV1:II:SM1:LG4:VV1LJ1:18:"Your choice? (1 - 4) ";:430:X:J$J$(X):940:ROX1:LG20:CH1LG5W20:S$"How many numbers do you want to round? (2 - "(610:V9:H9:" ";NA$:12:"And your last name? ";NL$14:"Do you want to:":V16:II13:V:LJ8:S$(II)") "CH$(II):610:VV1:II:VV120:S$"Your choice? (1-3) ":LJ1:LG3:610:430:18:H91:CHX:X:LG20:CH1LG5MX6:JX6:LG4.5:S(4)(S(3)):S(5)S(4)10RO:IQQ$"ROUNDING DECIMALS":RU1İ480]P0:N0:K0:W0wTC35:LJ1:RU1201010:S$"Do you want a lesson? ":610:V9:H9:Z$:Z$"y"Z$"Y"İ300009:1:95810:S$"What's your first name? ":LJ1:(16384):KE1284007 16368,0:XKE128:X27460:h 400:X13ĺ(7);:420: RETURN ROUTINEn  400:XX48:XSMXLGı: 1=4 ROUTINE (7);:430 400:X78X89X110X121ı: Y/N ROUTINE (7);:440 4700J6(1))1) @I1330,340,350,360,370,380> JS$"Great!":390W TS$"Fantastic!":390l ^S$"Super!":390 hS$"You're really going now!":390 rS$"Yes! Yes! Yes!":390 |S$"That's great!" R1:::LJ0:610: 16368,0:16384,128:KE$,3):1678 N1$(N$,1)","(N$,2,3)","(N$,3):167{ N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1)::N1$N1$" ": N$N1$:N1$"":PL1(N$):N1$N1$(N$,PL,1)SP$:: I1(N1$):(N1$,I,1)"."180:I DCI: ,CH3NN1 6I1(a sII1JX:A2$(JX)(AN(JX)):L(A2$(JX):L3118:A3$(JX)(A2$(JX),L3)","(A2$(JX),3)::{ vA3$(JX)(AN(JX)):: xL(N$):L164,164,164,140,150,160,161 N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N1$(N$,3)","(N0:AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1)::L6111:AN$(3)(AN$(2),L3)","(AN$(2),3): nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: oAN$(3)(AN$(2),L6)","(AN$(2),L5,3)","(AN$(2),3): 63999& PRODUCT 8/22/87<:J14:J$(J):QPI13:CH$(I):fZI15:D1$(I):_I13:D2$(I)::I13:D3$(I):fPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000o iL(AN$(2)):L311             KaD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110caL$"SUMS-"J$(MX1)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:PbD$;"CLOSE": ``0@`0`00`D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:P)bD$;"CLOSE":"*0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1git number as the largest number, both numbers will be 2 digit numbers."(V' "Last, you decide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."9)aD$"":D$:1:900::k!DuII13::S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II330030:S$D3$(II):610:900:!NuTC36:LJ3:S$D3$(II):610:900::900::00::AЀ@`S```00`0@``0``00`@``0`` @``0(4);"RUN ";F$_  "1. Rounding Whole Numbers","2. Stupendous Sums","3. Probing Products","4. Division Drill","5. Rounding Decimals","6. Information Please","7. Exit Program"0390. ::10:"UNUSUAL ERROR CODE - ";Y;"."P :10:"SEE YOUR DOS MANUAL." 0 ";G(I);SP$;P(I);"%"8 :I:B :"END OF ";F$;" FILE."IL D$;"PR#0"~V 23:"PRESS ANY KEY TO RETURN TO THE MENU.";:G$` :10:10:"ONE MOMENT PLEASE...."j D$;"RUN HELLO" Y(222):Y5Ģ16:958:18:"THERE ARE NO GRADES IN THE FILE.":2LE." 2390 D$;"PR#1"5  30:F$;" FILE"::H  I1A:SP$" "  L(N$(I))(NA$(I)):SP37L:J1SP:SP$SP$" ": $ N$(I);", ";NA$(I);SP$;L$(I) ) SP$" ":L((N(I)))16((G(I))):SP39L:J1SP:SP$SP$" ":. N(I);" CORRECT OUT OF00  Y(222)# Y52040@ "UNUSUAL ERROR CODE ";YF m *:2:T$F$" FILE":990:LL1:850x 4I1A >:N$(I);", ";NA$(I);" ";L$(I) CN(I);" CORRECT OUT OF ";G(I),P(I);"%" HJJ1:J6İ900:J0 RI \:"END OF ";F$;" FID$"": CTRL-D- `D$;"OPEN ";F$;",L50"F jD$;"READ ";F$;",R0"M tAU ~D$` I1Az D$;"READ ";F$;",R";I N$(I):NA$(I):L$(I):N(I):G(I):P(I) D$ I D$;"CLOSE ";F$ :10:"*** ";F$;" FILE CLOSED ***" Z2090,2319:10:"GRADES (Y/N) ";:Z$:Z$A Z$"Y"F$"GRADES":1105_ 17:1:958:Z$"N"1050i 1045 19:"WHAT IS THE NAME OF THE SCORES FILE?":21:F$ LF$(13)F$"GRADES": READ GRADES QN$(65),NA$(65),L$(65),N(65),G(65),P(65) V"SCREEN OR WITH A PRINTER. WHICH DO YOU":9:"WISH TO USE?" 12:15:"1) SCREEN":14:15:"2) PRINTER":17:1:"YOUR CHOICE (1 OR 2) ";:Z$:Z(Z$):1 Z$"1"1045 Z$"2"Ģ12:1:958:198:1020# 17:"IS THE NAME OF THE SCORES FILE":R d2450::10004RH:IHHL:"-";::o23::T$"PRESS ANY KEY TO CONTINUE.":990:756:::L(T$):H(40L)2:H:T$: READ GRADES= :3:"THIS PROGRAM WILL PRINT THE GRADES":5:"FROM THE SCORES FILE EITHER ON THE ":7:     LOADING Rounding Decimals":Y160:600?0F$"DECIMAL":23504F$"INFO":S$"LOADING Information Please.":T$S$:::990:2350>::10:5:"Please turn off the computer and":12:5:"put the disk away.":. 8 940:T$S$:10:::990 B :LI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:900 5uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1 !:uS$D1$(I1):LJ5:V:610:VV93:VV; otherwise you may have from 2 to 20 problems."zaD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110aL$"SUMS-"J$(MX1)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:PbD$;"CLOSE":{ 0uto work with -- from 2 digit numbers (like 85) to 5 digit numbers (like 63,597)."0V' "You may also choose to add columns of 2, 3, or 4 numbers.","Last, you decide how many problems to do. If you let the computer do the work, you may only have 5 problems if you make mistakes."8' "The third option is to work problems by yourself. For this option, you may need pencil and paper."B' "Number of Digits","Number of Addends","Number of Problems"QL' "You may decide on the size of number you want ."B I11000:::"PRESS ANY KEY TO RETURN TO MAIN MENU.";:Z$J :^ D$;"RUN HELLO" ME GRADES,";F$( LD$;"OPEN GRADES,L50"0 QA0H VD$;"DELETE GRADES"b `D$;"OPEN GRADES,L50"| jD$;"WRITE GRADES,R0" tA ~D$ I150 D$;"WRITE GRADES,R";I " " D$ I D$;"CLOSE GRADES" :"NEW GRADES FILE OPENED:::::"DO YOU WANT TO SAVE THE OLD FILE?":255:K :"(YES/NO)? ";Z$a ::Z$"NO"1100u Z$"YES"1010 V(37)1 "WHAT IS THE NEW FILENAME? ";F$ (F$,1)"A"(F$,1)"Z"1050 I13:V:1:(7)::V:958:1040 D$;"RENA your accuracy in addition.","There are three ways to use the program:".' "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do examples with help, I will give you a hint for each step, and help youing Menu....":%(4);"RUN HELLO"5::RU1:1i' "ten","hundred","thousand","ten thousand"$' "See examples done.","Do examples with help.","Do problems yourself."G)' "This program will help you learn to estimate sums and improveN1$SU$:700 "\CH34720fP(((KW)K)100.5):25000::S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610pTC39::"Do you want to play again? ";:440:X89X121476020:1:"Load20:600:VV3:A1JX:V:1:AD$(A)" ---->";:25W CH1ĩ25:ES$(A):VV2:940:NN} N1$ES$(A):CH2750:A43020:A DI(SU$)(AD$(1)):V1:850:S$"Add these numbers:":V1:610:CH1ĩ25:V1:25DI:SU$:NN:940  CH2ĢV2:21(SU$):300:2500k 255:W3R0ĺ:S$"Do you need some help? (Y/N) ":610:V9:H9:440:X121X892520 900:K:KK1:480:4700 :S$"Let's start again, "NA$".":S$:20602 V(37):V:S$"Round each number to the nearest "J$(MX1)":":TC12767:(X)141N$N$((X)128):X\\II14:N$AN$(II)2190:II:JX4ĢV91:1:958TC36:R0::S$"The correct answer is "AN$(3)".":610:LJ1:940:V9V91100:KK1JX:S$AD$(KK)" ----> "ES$(KK):V91:610:940::255:WW1:2500AA:N$(SU):120:SU$N1$+,:CH3ĉ::34S$"Estimate the sum:":LJ1:610:VV9:H25:A1JX:V:H:AD$(A):VV1::V:25:8509:800:::CH3İ3000:2510HAN$(1)SU$:AN$(2)(SU):105:S$"Your answer:":LJ1:610:V9:25:657&RN$"":X5`D$"": CTRL-D::150:"THIS PROGRAM WILL DELETE ALL THE GRADES"::"IN THE 'GRADES' FILE AND SET UP A NEW"::"FILE WHICH WILL HOLD 50 RECORDS. "::4 DE11000:::"IF YOU WANT TO SAVE THE OLD FILE, YOU"::"MUST RENAME IT.":DE11000000::SS:610:NN:[L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:c:I8((1)7):I8RO11000:I9((1)(10MX)):S1$(I9):S1$(S1$,6):I9(S1$):S(0)I910I8:S1$((S(0)),7):S(0)(S1$)!S(1)S(0)10RO:S(3)S(1)":(7);:".";1);:7257*1:IL139:"=";::R4H:HH1L1:"-";::rR25:I1(MX1)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::T$"DO NOT ENTER COMMAS OR SPACES."::23:990::DE11J,1)ĺ(7);:V5:H5::X$:V5:H5::WW1:W3715:704EJJJJ2:U1);:::T$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:21:1:958:V5:H5:24DC:X$:X$"."730:X$;1);X$:X$"5"726:X$:(7);:"5ĺ(S$,LT(X$SP$)):660F I1LT:J((S$,I,1)):(J32(J95));:e S$(S$,(S$)LT):LI1ĺn 620 ::(7);"WORD TOO LONG";:   W0:LE(N1$):JJ1LE2:H5(36)1:V5(37)1 X$:X$;:X$(N1$,JJ,1)7107X$(N1$,J90:5:T$QQ$:990:34,8::) XH3:TC37O bL(S$):LTCH20(L2):L0ı_ gLJ0HLJ lH:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695:: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 E2: 1=4 ROUTINE! (7);:430S 400:X78X89X110X121ı: Y/N ROUTINEc (7);:440y CH3K0ė:4710 480:4720 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":9now!":390) rT$"Yes! Yes! Yes!":390@ |T$"That's great!"U R1:::990:: 16368,0:16384,128:KE(16384):KE128400 16368,0:XKE128:X27460: 400:X13ĺ(7);:420: RETURN ROUTINE  400:XX48:XSMXLGıII:, I1(N1$):(N1$,I,1)"."180:I7 DCI:G ,CH3NN1m 1T13T5ĺ: REWARDS 6I1(6(1))1 @I1330,340,350,360,370,380 JT$"Great!":390 TT$"Fantastic!":390 ^T$"Super!":390 hT$"You're really going ":LJ1:LG3:610:430:V9:H91:CHX:X:LG20:CH1LG5V2:S$"How many problems? (2-"(LG)")":H1:TC39:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TL*SU0:AA1JX:1000:AD$(AA)N1$:ES$(AA)N2$:AD(AA)I1:0:I120:"][";::"]"]:3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::(:H:T$:::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::the child","misses a problem.","","Send your comments and criticisms to:"D "Micki Fitzpatrick, Programming Coor.","5400 Taylor Road,","Naples, Florida 33942"XH20((T$)2):H:T$:::"[";:I120:"][";::I14:40:"][";::4which is used in","recording his score. Children will","be able to use the disk independently","after going through the 'See Examples"I: "Done' or the 'Do Examples With Help'","option. In most of the programs the","concepts are retaught when P*U**U*U ЀPJCA*U D:U$R(U P*U*U"v!((@*U*U*@*U*UЂP*U*U*UU*U*ԊԀШ $9w  @I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1!:uS$D1$(I1):LJ5:V:610:VV93:VV1:900::!DuS$D2$:LJ0:610:LL1:820:V93:LJ5:LI0:S$D3$:610:900!NuJ93:VV1:900::)"DuS$D2$:LJ0:610:LU*UT*U*UT*U*(U*UՂЪŪԊՀժfL0$ 0`@`L0` 0$ fHP*(U*U*(U*U U*ԀĊԀ U*U*(U*U*A*U*U*A*U*U@*U*U*ԠfD``Lf@P*U*(U*U*ЀP*A(jL 9SN " *U P*U*U*@*U*U*@*U*UP*U*U*UU*U*ԊԀШU*UT*U*UT*U**U*UՀԀЪŪԊŪ2 0$ 0d 3&0$ 0 P* U*U* U*U*U*ԀĊԀ  U*U**U*U*Ԁ3&0P*U*(U*U*Ԁ0DAc@*U P*U*U*@*U*U*@*U*UP*T*U*UT*U*ԊԀШ U*U P*U*U T*U**U*UՀԀЪŪԊŪfL0$ 0`@3`L0` 0$ 3f@P* U*U* U*U* U*Ċ UU*U**U*U*Ѐf@``Lf@T*U*(U*U* *U*@*U*UԪՂԪ**U*U**U*UT*ՂT*U*UT*U*ԊԀШ U*U P*U*U T*U**U*UЂԀ3 0f 0$ 3H0$LF 0 T* U*U* U*U* U*ĊՀ UU*U**U*U*Ѐ &21T*U* U*U* $@;'@4F9L@+@*U*@*U*UԪՂԪJX)Z aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:Pl bD$;"CLOSE": 0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:960:940:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:940T!5uVV2:I1:VV1:900:JJ1:@**U*U**U*UT*ЪՂՂՊՀT*U*UT*U*ЀԪժժ@ U*U P*U*U P*U*@*U*UЀfL0$L` f`L0& 0Lf@3T*UU*U*UU*U* U*ԊՀf@ L2@ &` @2f@` 3 UU*U*(U*U*ЂT*U* U*U*J!% e*(9)@*U*@*U*U ԪԪըՂժ @@**U*U**U*UT*ЪՂՂՊՀP*U*U P*U*ЀԪԂ@ (U*U*@*U*U*P*U*@*U*U Ԁ3 0f 3` &@0$L00LT*UU*U*UU*U*(U*ՂЂԀĂ H0$ 3` d@0 03L(UT*U*(U*U*U*U* U*U*B9' 5*$ 9V )@*U**U*U ԀЀ0d@kjL )sDW,@*(U*U*(U*U T*ԠԈP*U*U P*U*ЀԪԂ@ (U*U*@*U*U*@*U*@*U*U fL2f@` f` L @f@0U*UU*U*UU*U*(U*UՂЂԀĂf@0 0` ` 1&H0$LdL3(UT*U*U(U*U*U*U*UU*U*ԊJ@)E aBD+# @*U**U*U ԀЀP A(.UT:UdRP*(U*U*(U*U U*ԈP*U*U P*U*UЂ@ (U*U*@*U*U**U*U@*U*U &0U*UT*U*UT*U*(U*UՂЂԀԠ0L0$ 0$fH0& 3 (UT*U*U U*U*            DECIMAL 8/21/87.:J14:J$(J):CPI13:CH$(I):XZI15:D1$(I):e_D2$,D3$fPD$".":DE1500:SS150:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000xL(N$):L7L7 N1$"":II1L:N1$N1$(N$,II,1)SP$:cin each number? (2-5) ";:SM2:LG5:430:X:MXXV18:S$"How many numbers? (2-4)":V:SM2:610:V9:H91:LG4:430:X:JXX  S$"Do you want to:":610:V11:II13:V:LJ8:S$(II)") "CH$(II):610:VV2:II:SM19V:S$"Your choice? (1-3)DOUS SUMS":RU1İ480:1TC35:LJ1:RU1200810:1:"Do you want instructions? (Y/N) ";:440:(X);:X89X121İ30000:12:1:"What's your first name? ";:" ";NA$14:1:"And your last name? ";:" ";NL$/16:1:"How many digits (37)1:PG1PG0::^I9((1)(10MX)):ROMX1:I910RO1000:I9.9510MX1000I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:SUSUI1:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)N1$"":N$(I9):120:QQ$"STUPENN$,1):PL2A p|(N$,2)","(N$,3):167: N1$(N$,3)","(N$,3):167S N1$(N$,1):PL2A p|,3)","(N$,3):167!N1$(900::HDuS$D2$:LJ0:610:LL1:820:V93:LJ5:LI0:S$D3$:610:900NNuA p|A p|A p|9)","(N$,3):167 ~N1$V10:I112:S$D1$(I1):LJ5:V:960:940:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:9405uVV2:I1:VV1:900:JJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1:uS$D1$(I1):LJ5:V:610:VV93:VV1:ay have from 2 to 20 problems."iaD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110aL$"DECIMALS-"J$(RO1)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:PbD$;"CLOSE":d0uLI1::TC34:ion is to round decimals by yourself. I will tell you whether your answer is right or wrong."{ "Number of Problems" "You will decide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you mys to use the program:" "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do examples with help, I will give you a hint for each step, and help you if you make mistakes."^ "The third opt:RU1:1=r "unit","tenth","hundredth","thousandth"| "See examples done.","Do examples with help.","Do problems yourself." "This program will help you learn to round decimal numbers the way a computer does.","There are three wa)K)100.5):S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:610yg25000pTC39:22:PG1:S$"Do you want to try again? (Y/N) ":LJ0:610:440:X89X1214760:4750:(4);"RUN HELLO" 480:ing after the decimal:":TC19:LJ4:LI1:610:16:25:940:N$(S(4)):120:CH1ĺN1$:940h CH2İ700 TC24:19:S$"5. Divide by "(10RO)".":LJ1:610:19:25:N$(S(5)):120:940:CH2700:CH1ĺN1$ 940:\480:CH34720nfP(((KWS:N1$:NN:940 CH2İ700e 12:S$"2. Now add .5":610:12:24DC:CH1ĺ". 5":H25:850:940y CH2İ720:850 14:S$"3. You get:":610:14:I3I2.5:N$(S(3)):120:25:CH1ĩSS:N1$:NN:940 CH2İ700Y 16:"4. ";:S$"Drop everyth       15::7551);::VV2:7 1:IL139:"=";::Q4H:I1L1:"-";::uR23:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::DE11000::L(T$):H20(L2):H:T$;:H9(36):V9;::WW1:W1715:705):H5H52::}T$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:21:1:958:LE(N1$):JJ1LE2:H5(36)1:V5(37)1:W0 V5:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);:V5:H5::X$:V5:H5:WW1:W27:6603I1LT:J((S$,I,1)):(J32(J95));:RS$(S$,(S$)LT):LI1ĺ[620|::(7);"WORD TOO LONG";:W0:LR(SU$):V5(37):H5(AD$(1))23:JJLR112:N1$SU$:V5:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);::V5:H5:X$34,8::XH3:TC37<bL(S$):LTCH20(L2):L0ıLgLJ0HLJlH:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695::vLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)): 1=4 ROUTINE! (7);:430T 400:X78X89X110X121ı: Y/N ROUTINEd (7);:440u :480:4700 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:!":390& rS$"Yes! Yes! Yes!":390= |S$"That's great!"U R1:::LJ0:610: 16368,0:16384,128:KE(16384):KE128400 16368,0:XKE128:X27460: 400:X13ĺ(7);:420: RETURN ROUTINE  400:XX48:XSMXLGı":PL1(N$):N1$N1$(N$,PL,1)SP$::O I1(N1$):(N1$,I,1)"."180:IZ DCI:j ,CH3NN1} 6I1(6(1))1 @I1330,340,350,360,370,380 JS$"Great!":390 TS$"Fantastic!":390 ^S$"Super!":390 hS$"You're really going now),3)::" vA3$(JX)(AN(JX))::I xL(N$):L164,164,164,140,150,160j N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N1$(N$,3)","(N$,3):167 N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1)::N1$N1$" ":( N$N1$:N1$",L3)","(AN$(2),3):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: sII1JX:A2$(JX)(AN(JX)):L(A2$(JX):L3118:A3$(JX)(A2$(JX),L3)","(A2$(JX SUM 8/22/87+:J14:J$(J):@PI13:CH$(I):UZI15:D1$(I):{_I13:D2$(I)::I13:D3$(I):fPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000U iL(AN$(2)):L3110:AN$(3)(AN$(2)                  "You will decide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110 aL$"ROUND-"J$(tep as I go.","To do examples with help, I will give you a hint for each step, and help you if you make mistakes." "The third option is to round numbers by yourself. I will tell you whether your answer is right or wrong." "Number of Problems" with help.","Do problems yourself." "This program will help you learn to round numbers the way a computer does.","There are three ways to use the program:"r "If you want to see examples done, I will show you how to do them, explaining each spTC39:16:PG1:S$"Do you want to play again? (Y/N) ":LJ0:610:440:X89X1214760z18:1:"Loading Menu....":(4);"RUN HELLO"::RU1:1r "ten","hundred","thousand","ten thousand"$| "See examples done.","Do examplesVV92:S$"How many digits in the divisor? (1-2)"bV:SM1:610:V9:H91:LG2:430:X:MX(1)XpVV1:900v  S$"Do you want to:":610:V11:II13:V:LJ8:S$(II)") "CH$(II):610:VV2:II:SM1*V:S$"Your choice? (1-3) ":LJ1:LG3:60:E12:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$V92:S$"And your last name? ":610:V9:H9:" ";NL$V92:S$"How many digits in the number you are dividing? (3-5)":TC39:H1:LI1:610:V9:H92:SM3:LG5:430:X:MX(2)X2:940:22:1:958:>8AN:34:AN;"X";NU2;"=";(ANNU2):vV8:X09:V:34:X;"X";NU2;"=";(XNU2):VV1:X:QQ$"DIVISION DRILL":480:L$QQ$TC35:10:LJ1:S$"Do you want instructions? (Y/N) ":610:V9:H9:440:(X);:X89X121İ30002)MU$ZE$:ES(2)(ES$(2))[ (MU$(1))11039:((MU$(1),2,1))53MU$(MU$(1),1):1038y MU$(((MU$(1),1,1))1)ES$(1)MU$"0":ES(1)(ES$(1))PT(MU(2)MU(1)):ET(ES(2)ES(1)):DF(PTET)~8AN:34::AN;"X";NU2;"=";(ANNU2):MU$(A)(((1)9)49)?MX(A)1MU$(A)"1"MU$(A)"":1005oMX(A)2(MU$(A))94MU$(A)((MU$(A))5)MU(A)(MU$(A)):IJ:A((MU$(2),3,1))53MU$(MU$(2),2):1035MU$(((MU$(2),1,2))1) JJ1(MU$(2))2:ZE$ZE$"0"::ES$( TO CONTINUE : TO EXIT "::990::400::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400:DE11000::L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0::A12:IJ1MX(A)MU$(A)D3$(II):610:900:9:1:958::9+luEM((ES$(1),1,3))8VV93:JJJJ1K*DuS$D1$(I1):LJ5:V:610:VV93:VV1:900:9:1:958::*Nu L = LEN (ES$(2)) - 2:D2$ = MID$ (ES$(2),1,L)*XuII13::S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II330050:S$D3$(II):610:900:9:1:958:!+buTC36:LJ3:S$610:VV93:VV1:900::y!DuII13::S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II330030:S$D3$(II):610:900:!NuTC36:LJ3:S$D3$(II):610:900::610:900:!NuTC36:LJ3:S$D3$(II):610:900::"CLOSE": 0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:900 5uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1!:uS$D1$(I1):LJ5:V:ave 5 problems; otherwise you may have from 2 to 20 problems."aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110aL$"SUMS-"J$(MX1)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:P bD$;mber you want to work with -- from 2 digit numbers (like 85) to 5 digit numbers (like 63,597).">V' "You may also choose to add columns of 2, 3, or 4 numbers.","Last, you decide how many problems to do. If you let the computer do the work, you may only h, and help you if you make mistakes."8' "The third option is to work problems by yourself. For this option, you may need pencil and paper."B' "Number of Digits","Number of Addends","Number of Problems"_L' "You may decide on the size of nums and improve your accuracy in addition.","There are three ways to use the program:"%.' "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do examples with help, I will give you a hint for each step20:1:"Loading Menu....":3(4);"RUN HELLO"C::RU1:1w' "ten","hundred","thousand","ten thousand"$' "See examples done.","Do examples with help.","Do problems yourself."U)' "This program will help you learn to estimate suU$):N1$SU$:700 &\CH347200aKK1fP(((KW)K)100.5):25000::S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610pTC39::"Do you want to play again? ";:440:X89X1214760:TC20:600:VV3:A1JX:V:1:AD$(A)" ---->";:25[ CH1ĩ25:ES$(A):VV2:940:NN N1$ES$(A):CH2750:A43020:A DI(SU$)(AD$(1)):V1:850:S$"Add these numbers:":V1:610:CH1ĩ25:V1:25DI:SU$:NN:940 CH2ĢV2:21(S5:WW1:2500300:2500y 255:W3R0ĺ:S$"Do you need some help? (Y/N) ":610:V9:H9:440:X121X892520 K:KK1:4700 :S$"Let's start again, "NA$".":S$:20606 V(37):V:S$"Round each number to the nearest "J$(MX1)":"4RN$"":X512767:(X)141N$N$((X)128):Xj\II14:N$AN$(II)2190:II:JX4ĢV91:1:958TC36:R0::S$"The correct answer is "AN$(3)".":610:LJ1:940:V9V91 100:KK1JX:S$AD$(KK)" ----> "ES$(KK):V91:610:940::25AA:N$(SU):120:SU$N1$&+K1İ9009,:CH3ĉ::34S$"Estimate the sum:":LJ1:610:VV9:H25:A1JX:V:H:AD$(A):VV1::V:25:8509:800:::CH3İ3000:2510HAN$(1)SU$:AN$(2)(SU):105:S$"Your answer:":LJ1:610:V9:25:657 ":LJ1:LG3:610:430:V9:H91:CHX:X:LG20:CH1LG5V2:S$"How many problems? (2-"(LG)")":H1:TC39:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TL*SU0:AA1JX:1000:AD$(AA)N1$:ES$(AA)N2$:AD(AA)I1:in each number? (2-5) ";:SM2:LG5:430:X:MXXV18:S$"How many numbers? (2-4)":V:SM2:610:V9:H91:LG4:430:X:JXX  S$"Do you want to:":610:V11:II13:V:LJ8:S$(II)") "CH$(II):610:VV2:II:SM19V:S$"Your choice? (1-3)DOUS SUMS":RU1İ480:1TC35:LJ1:RU1203010:1:"Do you want instructions? (Y/N) ";:440:(X);:X89X121İ30000:12:1:"What's your first name? ";:" ";NA$14:1:"And your last name? ";:" ";NL$/16:1:"How many digits (37)1:PG1PG0::^I9((1)(10MX)):ROMX1:I910RO1000:I9.9510MX1000I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:SUSUI1:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)N1$"":N$(I9):120:QQ$"STUPEN15::7551);::VV2:7 1:IL139:"=";::Q4H:I1L1:"-";::uR23:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::DE11000::L(T$):H20(L2):H:T$;:H9(36):V9;::WW1:W1715:705):H5H52::}T$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:21:1:958:LE(N1$):JJ1LE2:H5(36)1:V5(37)1:W0 V5:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);:V5:H5::X$:V5:H5:WW1:W27:6603I1LT:J((S$,I,1)):(J32(J95));:RS$(S$,(S$)LT):LI1ĺ[620|::(7);"WORD TOO LONG";:W0:LR(SU$):V5(37):H5(AD$(1))23:JJLR112:N1$SU$:V5:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);::V5:H5:X$34,8::XH3:TC37<bL(S$):LTCH20(L2):L0ıLgLJ0HLJlH:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695::vLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)): 1=4 ROUTINE! (7);:430T 400:X78X89X110X121ı: Y/N ROUTINEd (7);:440u :480:4700 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:!":390& rS$"Yes! Yes! Yes!":390= |S$"That's great!"U R1:::LJ0:610: 16368,0:16384,128:KE(16384):KE128400 16368,0:XKE128:X27460: 400:X13ĺ(7);:420: RETURN ROUTINE  400:XX48:XSMXLGı":PL1(N$):N1$N1$(N$,PL,1)SP$::O I1(N1$):(N1$,I,1)"."180:IZ DCI:j ,CH3NN1} 6I1(6(1))1 @I1330,340,350,360,370,380 JS$"Great!":390 TS$"Fantastic!":390 ^S$"Super!":390 hS$"You're really going now),3)::" vA3$(JX)(AN(JX))::I xL(N$):L164,164,164,140,150,160j N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N1$(N$,3)","(N$,3):167 N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1)::N1$N1$" ":( N$N1$:N1$",L3)","(AN$(2),3):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: sII1JX:A2$(JX)(AN(JX)):L(A2$(JX):L3118:A3$(JX)(A2$(JX),L3)","(A2$(JX SUM 8/22/87+:J14:J$(J):@PI13:CH$(I):UZI15:D1$(I):{_I13:D2$(I)::I13:D3$(I):fPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000U iL(AN$(2)):L3110:AN$(3)(AN$(2)              256:E(220)T(221):EE5((E)0):V(E):E,207:L$("0000"((218)T(219)),5):L(121)T(122)49:I15:LI,((L$,I,1))::00400:E,V:216,0:2J),5):L(121)T(122)49:I15:LI,((L$,I,1))::00400:E,V:216,0:") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1l%:uS$D1$(I1):LJ5:V:610:VV93:VV1:900::%DuII13::S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II330030:S$D3$(II):610:900:%NuTC36:LJ3:S$D3$(II):610:900::%&D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:P]$bD$;"CLOSE":$0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:900;%5uJJ1:I135:LI0:10:S$(JJ)ide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."#aD$"":D$:D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110#aL$"PRODUCTS-"J$(MX1)K$aAA1:"L' "You may decide on the size of number you want to work with -- from 2 digit numbers (like 85) to 5 digit numbers (like 63,597).","If you choose a 2 digit number as the largest number, both numbers will be 2 digit numbers."#V' "Last, you declp, I will give you a hint for each step, and help you if you make mistakes."!8' "The third option is to work problems by yourself. For this option, you may need pencil and paper."!B' "Number of Digits","Number of Digits","Number of Problems" help you learn to estimate products and improve your accuracy in multiplication.","There are three ways to use the program:"M!.' "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do examples with he) ";:440:X89X1214760<20:1:"Loading Menu....":R(4);"RUN HELLO"`:RU1:1' "ten","hundred","thousand","ten thousand"$' "See examples done.","Do examples with help.","Do problems yourself."} )' "This program will940:V3:LJ1: CH27093 VV1:KTL900:9 I\CH34720fP(((KW)K)100.5):25000::S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610p16:1:"Do you want to play again? (Y/NH6H:PT9H6H62:ZX5H6H62:PT$(PT$,2)","(PT$,2) NN:940:CH2XXES(1)ES(2):PT$(XX):MXJX73017:MXJX43017:3020 XX9PT$(PT$,1)","(PT$,1): XX$AN$(3):CH2700:S$"Multiply "MM$:V1:610:CH1ĩ25:V1:H6:PT$:NN::V5:TC23:ZXMXJX2:S$"Count the zeros. Place the zeros and commas.":610:H26((MU$(1))):CH13015 940:25:V1:IIZX11:H:"0";:HH2:IIZX2IIZX53012: PT$ = LEFT$ (PT$,1) + "," + RIGHT$ (PT$, LEN (PT$) - 1): GOTO 3015: :":600:VV2:H828:A12:V:H827:MU$(A)" ---->";:H8:H8H8HA:CH1ĩ25:ES$(A):VV2:940:NN:940 N1$ES$(A):CH2750:ES(A)((ES$(A),1)):A:PTES(1)ES(2):PT$(PT):MM$(ES(1))" X "(ES(2)):PT10PT$(PT$,1)SP$(PT$,1)k V1:850ES(1))" X "(ES(2))" = "(ES(1)ES(2))"; then add "(ZZ)" zeros to get "AN$(3)PD$:LI0:610:LI1:255:WW1:2500300:2500 255:900 K:KK1:4700 :S$"Let's start again, "NA$".":S$:2060j V(37):V:S$"Round each number25:657=RN$"":X512767:(X)141N$N$((X)128):Xs\II14:N$AN$(II)2190:II:JX4ĢV91:1:958TC36:R0::S$"The correct answer is "AN$(3)".":610:LJ1:940:V9V91IJ12:ES(IJ)((ES$(IJ),1))::ZZMXJX2z100:S$(PTMU(1)MU(2):AN$(2)(PT):N$AN$(2):120:PT$N1$:AN$(1)PT$:105U,:CH3ĉ::34S$"Estimate the product:":LJ1:610:VV9:H28:A12:V:H:MU$(A):VV1:HHHA::V:28:8509:800:::CH3İ3000:2510HS$"Your answer:":LJ1:610:V9:X:HA(MXJX)2:MX3HAHA22LG20:CH1LG518:S$"How many problems? (2-"(LG)")":H1:TC39:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TLB*XXMX:PT0:AA1JX:1000:MU$(AA)N1$:ES$(AA)N2$:MU(AA)I1:AA:its in the first number? (2-5)":TC39:H1:LI1:610:V9:H92:SM2:LG5:430:X:MXXVV92:S$"How many digits in the smallest number? (2-3)":MX2S$"Both numbers will have two digits.":JX2:HA0V:SM2:610:MX22070:V9:H91:LG3:430:X:JXV92:S$"And your last name? ":610:V9:H9:" ";NL$16:S$"Do you want to:":610:VV92:II13:V:LJ8:S$(II)") "CH$(II):610:VV1:II:SM1:VV1V:S$"Your choice? (1-3) ":LJ1:LG3:610:430:V9:H91:CHX:X:T:10:S$"How many dig1$"":N$(I9):120:XXJX:BQQ$"PROBING PRODUCTS":RU1İ480\TC35:LJ1:RU1202010:S$"Do you want instructions? (Y/N) ":610:V9:H9:440:(X);:X89X121İ30000:12:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$5BL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:J:I9((1)(10XX)):ROXX1:I910RO1000:I9.9510XX1000I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)N$ĺ(7);:V5:H5::X$:V5:H5:WW1:W2715::755H1);::VV2:b 1:IL139:"=";::4H:MM1L1:"-";:MM:R26:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::DE11000::X$;:X$XY$ĺ(7);::V5:H5:X$;::WW1:W1715:711L:H5H52:GG:T$"ENTER A "(34)XY$(34)" PLEASE.":22::990:940:21:1:958:XX$N1$:LE(XX$):JJ1LE2:H5(36)1:V5(37)1:W0:XY$(XX$,JJ,1)4V5:H5:X$:X$;:X$XYOO LONG";:5V5V53:W0:H(MU$(1))26:105hZX(XX$):JJZX((PT$)1)1:XY$(XX$,JJ,1):V5:H5:X$:X$;:X$XY$ĺ(7);::V5:H5:X$;::WW1:W1715:705:H5H52:JJ:GG(PT$)11:XY$(PT$,GG,1)8:V5:H5:X$:,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695::tvLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)):660I1LT:J((S$,I,1)):(J32(J95));:S$(S$,(S$)LT):LI1ĺ620 ::(7);"WORD T4700Q::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::XH3:TC37bL(S$):LTCH20(L2):L0ıgLJ0HLJAlH:(S$)TCāI1(S$):J((S$(16384):KE1284007 16368,0:XKE128:X27460:h 400:X13ĺ(7);:420: RETURN ROUTINEn  400:XX48:XSMXLGı: 1=4 ROUTINE (7);:430 400:X78X89X110X121ı: Y/N ROUTINE (7);:440:480:6(1))1) @I1330,340,350,360,370,380> JS$"Great!":390W TS$"Fantastic!":390l ^S$"Super!":390 hS$"You're really going now!":390 rS$"Yes! Yes! Yes!":390 |S$"That's great!" R1:::LJ0:610: 16368,0:16384,128:KENA$:L$:KW:K:P$)bD$;"CLOSE":)0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:900:9:1:958*:uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."(aD$"":D$:D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110)aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:roblems"'L'"You may decide on the size of number you want to work with -- from 3 digit numbers (like 185) to 5 digit numbers (like 63,597).","The divisor will always be a two digit number (like 47)."q(V' "Last, you decide how many problems to do. s with help, I will give you a hint for each step, and help you if you make mistakes."&8' "The third option is to work problems by yourself. For this option, you may need pencil and paper."'B' "Number of Digits","Number of Digits","Number of Pgram will help you learn to estimate products and improve your accuracy in multiplication.","There are three ways to use the program:"V&.' "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do exampleagain? ";:440:X89X1214760@$20:1:"Loading Menu....":V$(4);"RUN HELLO"i$480::RU1:1$' "ten","hundred","thousand","ten thousand"$$' "See examples done.","Do examples with help.","Do problems yourself."%)' "This pro0:MU$(I)"":ES$(I)"":ES(I)0:I:910:23:1:958:K?# KK1T#\480:CH34720#fP((NK)100.5):25000::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610$pTC39:16:1:"Do you want to play I((ZZ$)(N$)):DI(AN$(3))İ300:2690O"} "Try to get closer next time."Y" 2800" 13:2:S$"The answer is obvious because the divisor is now 1.":TC33:LI1:LJ2:610:N$AN$(2):120:8:18:N1$:NUM05# ZE$"":I15:AN$(I)"":I:I12:MU(I)Ж1:"What is your estimate? ";ZZ$l! N$AN$(2):120:S$"My estimate is "AN$(2)PD$:15:1:S$:8:19:N1$v! 2800!( !n 13:1:"What is your estimate? ";ZZ$:N$AN$(2):120!p S$"My estimate is "AN$(2)PD$:15:1:S$:8:19:N1$+"x 17:1:D$,3):1678 N1$(N$,1)","(N$,2,3)","(N$,3):167{ N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1)::N1$N1$" ": N$N1$:N1$"":PL1(N$):N1$N1$(N$,PL,1)SP$:: I1(N1$):(N1$,I,1)"."180:I DCI: ,CH3NN1 6I1(a sII1JX:A2$(JX)(AN(JX)):L(A2$(JX):L3118:A3$(JX)(A2$(JX),L3)","(A2$(JX),3)::{ vA3$(JX)(AN(JX)):: xL(N$):L164,164,164,140,150,160,161 N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N1$(N$,3)","(N0:AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1)::L6111:AN$(3)(AN$(2),L3)","(AN$(2),3): nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: oAN$(3)(AN$(2),L6)","(AN$(2),L5,3)","(AN$(2),3): 63999& PRODUCT 8/22/87<:J14:J$(J):QPI13:CH$(I):fZI15:D1$(I):_I13:D2$(I)::I13:D3$(I):fPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000o iL(AN$(2)):L311               9:25:I1I110RO:N$(I1):120:940:CH2700:CH1ĺN1$D 940:T\CH34720fP(((KW)K)100.5):S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:610hNL$"":L$"ROUND-"J$(MX1)k:25000Y167:25:CH1ĩSS:N1$:NN:940/ CH2İ760 16:1:"4. ";:S$"Drop everything after the decimal:":TC19:LJ4:LI1:610:I1(I1):17:25:940:N1$(I1):167:CH1ĺN1$:940 CH2İ7009 TC24:19:S$"5. Multiply by "(10RO)".":LJ1:610:11. Divide by "(10RO)".":600:10:25:I1I910RO:N1$(I1):167:170:CH1ĩSS:N1$:NN:940o CH2İ700 12:S$"2. Now add .5":610:12:24DC:CH1ĺ". 5":H25:850:940 CH2İ720:850  14:S$"3. You get:":610:14:I1I1.5:N1$(I1):S3XWKADJECTIVE IS IN THE"A$(1)", THE"A$(2)", OR "D1$(3)".":960:940%uS$"YOU MAY HAVE AS MANY AS 3 PRACTICE SENTENCES BEFORE I KEEP YOUR SCORE.":960:T$"PRESS A KEY TO BEGIN, "NA$".":23::PG1:990:Z$::: PGCDZO1$(I):961:VV93:HH(I):LL(I):850:810:940:V3:H5:S$E2$(I):960:940:900:$qu2:T$D5$::990::H:850:5:S$"YOU ARE TO FIND THE ADJECTIVE IN EACH SENTENCE, TYPE IT IN, AND PRESS .":TC39:H1:960:940E%vuS$"NEXT, DECIDE WHETHER THE COMPARISON:":960:VV91:800:#DuVV2:I13:A2$(A$(I),(A$(I))1):T$"THE"A$(I)" DEGREE":V:990::V:H4:A2$:VV3:940:::V4:910:#NuI13:T$"THE"A$(I)" DEGREE"::2:990::H:850:5:TC34:H5:S$EX$(I):960:VV92:810:V3:S$XuT$ED$"bD$;"WRITE GRADES,R";A9" bNL$:NA$:L$:N:G:PI"bD$;"CLOSE"O" b"0uT$T1$:DE1500::1::990::H:850:4:TC34:H5#:uS$"AN "AJ$" IS A WORD THAT DESCRIBES A NOUN OR A PRONOUN.":960:940:V93:S$"MOST "AJ$"S HAVE THREE DEGREES OF S MORE THAN TWO THINGS.,SHE IS THE PRETTIEST GIRL IN SCHOOL.,11,9,THE SUPERLATIVE DEGREE ENDS IN 'EST.'}!aD$"": CTRL D!aD$;"OPEN GRADES,L50"!aD$;"READ GRADES,R0"!aA!aA4925110!aD$!aAA1!aD$;"WRITE GRADES,R0"!aA"aEE EXPRESSES A QUALITY.,SHE IS A PRETTY ACTRESS.,9,6,THE POSITIVE DEGREE HAS NO ENDING. F( THE COMPARATIVE DEGREE COMPARES TWO THINGS.,SHE IS THE PRETTIER OF THE TWO GIRLS.,11,8,THE COMPARATIVE DEGREE ENDS IN 'ER.'g!P( THE SUPERLATIVE DEGREE COMPAREFRESHER THAN THE FIRST APPLE.,FRESHER,2o' TAKE A CLOSE LOOK AT THE PICTURES FROM OUR CLASS TRIP.,CLOSE,1' WE SOLVED THE HARDEST PROBLEM IN THE PUZZLE BOOK.,HARDEST,3' SHE FOLLOWED TWO SHORT TRAILS.,SHORT,1W <( THE POSITIVE DEGRE LAKES.,DEEPEST,3P' WHAT IS THE HIGHEST BUILDING IN THE WORLD?,HIGHEST,3' THIS VALLEY LOOKS WIDER THAN THE VALLEY WE SAW YESTERDAY.,WIDER,2' WHICH PERSON IS THE FASTEST RUNNER ON THE TEAM?,FASTEST,3'' THE SECOND APPLE TASTED T WAS LONGER THAN HIS FIRST REPORT.",LONGER,2t~' JULY IS OFTEN THE HOTTEST MONTH OF THE ENTIRE YEAR.,HOTTEST,3' THAT JOKE SEEMS FUNNIER THAN THE ONE IN THE NEWSPAPER.,FUNNIER,2' THE SCIENTISTS SEARCHED FOR THE DEEPEST PART IN THE THRE,' SAID THE GUIDE.",FUNNY,1pV' "'THE ELEPHANTS ARE THE LARGEST OF ALL THE ANIMALS,' SAID JOHN.",LARGEST,3`' HE SQUATTED BEHIND THE TALL TREE.,TALL,1j' ONE BABOON WAS SMALLER THAN THE OTHER BABOON.,SMALLER,2-t' "SID'S SECOND REPOR JUNGLE IN AFRICA WAS BEFORE THEM.,DEEPEST,3y8' "'TODAY IS HOTTER THAN YESTERDAY,' THE PHOTOGRAPHER SAID.",HOTTER,2B' "'THESE TRACKS ARE BIGGER THAN A LION'S TRACKS,' SAID THE GUIDE.",BIGGER,2L' "'BABOONS ARE FUNNY ANIMALS TO PHOTOGRAPH0+12:T$"ONE MOMENT PLEASE....":990:?D$;"RUN TITLE"E"h' COMPARATIVE ADJECTIVES 6' THEY SENT THE GREAT PHOTOGRAPHER TO AFRICA.,GREAT,1$' HER GUIDE WAS SMARTER THAN THE GUIDE LAST YEAR.,SMARTER,2,.' THE DEEPEST70:H2:960:D$;"PR#0"&4100::"PLEASE REREAD THE LESSON IN YOUR":"TEXTBOOK. WHEN YOU HAVE REVIEWED THE":"MATERIAL, YOUR TEACHER MAY LET YOU":"REPEAT THIS EXERCISE FOR A HIGHER":"GRADE."::T$"HAVE A NICE DAY, "NA$"!":990:90 ";G;" ANSWERS, ";NA$;". ";:P((NG100).5):"THAT'S ";P;"%." :S$"PLEASE REREAD THE MATERIAL IN YOUR TEXTBOOOK. WHEN YOU HAVE REVIEWED THE MATERIAL, GIVE THIS SLIP TO YOUR TEACHER AND SHE MAY LET YOU REPEAT THIS EXERCISE FOR A HIGHER GRADE.":TCE CALL YOUR TEACHER, ";NA$:,P854100[J17:N149152256J:PN(N1):PN244050bJl4090:"IS THE PRINTER ON? (Y/N) ";P$P$"N"4090P$"Y"4050D$;"PR#1"NA$;" ";NL$,L$::A:"YOU GOT ";N;" RIGHT OUT OFz#???     ˠ%͠/Π!̠% ̠ Ӡ ϠӠ ͠ Š Ӡ ĠӠ Ϡ ͠ Ԡ ̠%ĠŠӠ ӮԠ:VV2:H828:A12:V:H827:MU$(A)" ---->";:H8:H8H8HA:CH1ĩ25:ES$(A):VV2:940:NN:940 N1$ES$(A):CH2750:ES(A)((ES$(A),1)):A:PTES(1)ES(2):PT$(PT):MM$(ES(1))" X "(ES(2)):PT10PT$(PT$,1)SP$(PT$,1)d V1:850:V5:T" X "(ES(2))" = "(ES(1)ES(2))"; then add "(ZZ)" zeros to get "AN$(3)PD$:LI0:610:LI1:255:WW1:2500300:2500 255:900 K:KK1:4700 :S$"Let's start again, "NA$".":S$:2060c V(37):V:S$"Round each number:":60076RN$"":X512767:(X)141N$N$((X)128):Xl\II14:N$AN$(II)2190:II:JX4ĢV91:1:958TC36:R0::S$"The correct answer is "AN$(3)".":610:LJ1:940:V9V91IJ12:ES(IJ)((ES$(IJ),1))::ZZMXJX2s100:S$(ES(1)))MU(2):AN$(2)(PT):N$AN$(2):120:PT$N1$:AN$(1)PT$:105N,:CH3ĉ::34S$"Estimate the product:":LJ1:610:VV9:H28:A12:V:H:MU$(A):VV1:HHHA::V:28:8509:800:::CH3İ3000:2510HS$"Your answer:":LJ1:610:V9:25:65MXJX)2:MX3HAHA2+LG20:CH1LG518:S$"How many problems? (2-"(LG)")":H1:TC39:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TL;*XXMX:PT0:AA1JX:1000:MU$(AA)N1$:ES$(AA)N2$:MU(AA)I1:AA:PTMU(1the first number? (2-5)":TC39:H1:LI1:610:V9:H92:SM2:LG5:430:X:MXXVV92:S$"How many digits in the smallest number? (2-3)":MX2S$"Both numbers will have two digits.":JX2:HA0V:SM2:610:MX22070:V9:H91:LG3:430:X:JXX:HA($"And your last name? ":610:V9:H9:" ";NL$16:S$"Do you want to:":610:VV92:II13:V:LJ8:S$(II)") "CH$(II):610:VV1:II:SM1:VV1V:S$"Your choice? (1-3) ":LJ1:LG3:610:430:V9:H91:CHX:X:M:10:S$"How many digits in $(I9):120:XXJX:;QQ$"PROBING PRODUCTS":RU1İ480UTC35:LJ1:RU1200810:S$"Do you want instructions? (Y/N) ":610:V9:H9:440:(X);:X89X121İ30000:12:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$.V92:S(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:C:I9((1)(10XX)):ROXX1:I910RO1000:I9.9510XX1000I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)N1$"":N;:V5:H5::X$:V5:H5:WW1:W2715::755A1);::VV2:[ 1:IL139:"=";::x4H:MM1L1:"-";:MM:R26:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::DE11000::;LXY$ĺ(7);::V5:H5:X$;::WW1:W1715:711E:H5H52:GG:T$"ENTER A "(34)XY$(34)" PLEASE.":22::990:940:21:1:958:XX$N1$:LE(XX$):JJ1LE2:H5(36)1:V5(37)1:W0:XY$(XX$,JJ,1)-V5:H5:X$:X$;:X$XY$ĺ(7)";: .V5V53:W0:H(MU$(1))26:105aZX(XX$):JJZX((PT$)1)1:XY$(XX$,JJ,1):V5:H5:X$:X$;:X$XY$ĺ(7);::V5:H5:X$;::WW1:W1715:705:H5H52:JJ:GG(PT$)11:XY$(PT$,GG,1)1:V5:H5:X$:X$;:X$(J32(J95E2));::H9(36):V9(37)1::JJ0695::mvLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)):660I1LT:J((S$,I,1)):(J32(J95));:S$(S$,(S$)LT):LI1ĺ620::(7);"WORD TOO LONG::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::XH3:TC37bL(S$):LTCH20(L2):L0ıgLJ0HLJ:lH:(S$)TCāI1(S$):J((S$,I,1)):^ " INFORMATION PLEASE 6/8/87ET$"About this disk":RP$"TOC"V(QQ$T$:1000_<450F:14:" Press [RETURN] to re-read or [ESC] to quit"P16368,0:16384,128:A(16384):A141A15580ZA141Ĭd160 n34         the circle (A=PIr^2). Use PI =22/7.","Subtract the area of the circle from the area of the square to get 64 - 9.625=54.375.";% "A container is rectangular with sides of 3 in.,3 in., and 11 in.","Approximate its capacity, if 1 gallon equals 231 cubhe approximate area that remains after a circle with diameter 3 and 1/2 in. is cut from a square piece of cloth with side 8 in?","25.5 SQ IN","54.4 SQ IN","56.8 SQ IN.","142.1 SQ IN","284.2 SQ IN",B,1,2~$ "Calculate the area of the square (A=s^2) and" "Convert yards to feet and calculate how many feet equal one rev. One rev. equals the wheel's circum."" "One revolution=99/15 ft.=circum. of the circle. To get the diameter divide this by 6.6 ft. X PI to get 2.1 ft."# ,"What is tet the two volume formulas equal to each other to get 256 X PI/3/2=PI X 8^2 X h. The answer is 4/3 miles."! "A wheel travels 33 yards in 15 revolutions.","What is its diameter?","0.35 feet","0.70 feet","1.05 feet","1.40 feet","2.10 feet",E,2,15n sphere's radius is 4 miles, and the cylinder's radius is 8 miles, what is the cylinder's height?","8 miles","4/3 miles","4 miles","16/3 miles","1 mile",B,1,4k! "The volume of a sphere is 4/3PI X r^3 and the volume of a cylinder is PI X r^2 X h.","S(220)T(221):EE5((E)0):V(E):E,207:L$("0000"((218)T(219)),5):L(121)T(122)49:I15:LI,((L$,I,1))::00400:E,V:216,0: $(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1d%:uS$D1$(I1):LJ5:V:610:VV93:VV1:900::%DuII13::S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II330030:S$D3$(II):610:900:%NuTC36:LJ3:S$D3$(II):610:900::%&256:EE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:PU$bD$;"CLOSE":$0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:9003%5uJJ1:I135:LI0:10:S$(JJ)") "CHmany problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."#aD$"":D$:D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110#aL$"PRODUCTS-"J$(MX1)C$aAA1:D$;"WRIT "You may decide on the size of number you want to work with -- from 2 digit numbers (like 85) to 5 digit numbers (like 63,597).","If you choose a 2 digit number as the largest number, both numbers will be 2 digit numbers."#V' "Last, you decide how ll give you a hint for each step, and help you if you make mistakes."!8' "The third option is to work problems by yourself. For this option, you may need pencil and paper."!B' "Number of Digits","Number of Digits","Number of Problems""L' u learn to estimate products and improve your accuracy in multiplication.","There are three ways to use the program:"E!.' "If you want to see examples done, I will show you how to do them, explaining each step as I go.","To do examples with help, I wi40:X89X1214760420:1:"Loading Menu....":J(4);"RUN HELLO"X:RU1:1' "ten","hundred","thousand","ten thousand"$' "See examples done.","Do examples with help.","Do problems yourself."u )' "This program will help yo3:LJ1: CH2709& VV1:900:, A\480:CH34720fP(((KW)K)100.5):25000::S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610p16:1:"Do you want to play again? (Y/N) ";:4T9H6H62:ZX5H6H62:PT$(PT$,2)","(PT$,2) NN:940:CH2XXES(1)ES(2):PT$(XX):MXJX73017:MXJX43017:3020 XX9PT$(PT$,1)","(PT$,1): XX$AN$(3):CH2700:S$"Multiply "MM$:V1:610:CH1ĩ25:V1:H6:PT$:NN:940:VC23:ZXMXJX2:S$"Count the zeros. Place the zeros and commas.":610:H26((MU$(1))):CH13015 940:25:V1:IIZX11:H:"0";:HH2:IIZX2IIZX53012: PT$ = LEFT$ (PT$,1) + "," + RIGHT$ (PT$, LEN (PT$) - 1): GOTO 30153 H6H:PV:S$"How many numbers do you want to round? (2 - "(LG)")":LI1:610:V9:H92:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TL*1000:I99499992090::CH3ĉ::3$4N1$"":N$(I9):120:S$"Round "N$" to the nearest "J$".":LI1~V12:S$"Round to the nearest?":V:LJ1:610:VV1:II1JX:LJ13:S$(II)")"J$(II):V:610:VV1:II:SM1:LGJX:VV1V:S$"Your choice? (1 - "(JX)") ":LJ1:610:430:V9:H92:X:J$J$(X):940:ROX:H1:TC38VV92:LG20:CH1LG5(II)") "CH$(II):610:VV1:IIwS$"Your choice? (1-3) ":LJ1:LG3:610:430:V9:H91:CHX:X:LG20:CH1LG5:}9:S$"How many digits in the largest number? (2-6)":TC35:H1:LI1:610:V9:H92:SM2:LG6:430:X:MXX:JX4:MX1JXJXMX ":LJ1:610:V9:H9:Z$:Z$"y"Z$"Y"İ30000?9:1:95810:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$12:S$"And your last name? ":LJ1:610:V9:H9:" ";NL$:!LJ1:14:S$"Do you want to:":610:V16:II13:V:LJ8:S$а990::400::"DE11000::5SS:610:NN:vL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:~:I9((1)(10MX)):QQ$"ROUNDING WHOLE NUMBERS":RU1İ480TC35:LJ1:RU12010/10:S$"Do you want a lesson?790:770 :H5H52::oT$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:21:1:958:*1:IL139:"=";::4H:HH1L1:"-";::R25:I1(MX1)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::21:1:958:V5:H5:W0:?24DC:X$:X$"."730:X$;1);ZX$:X$"5"726:X$:l(7);:"5":(7);:".";1);:725W0:LR(N1$):V514:H5LR23:JJLR112 :14:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);::V5:H5:X$;::WW1:W17);"WORD TOO LONG";:!]W0:LE(N1$):JJ1LE2:H5(36)1:V5(37)1:X$:X$;X$(N1$,JJ,1)ĺ(7);:V5:H5::X$:V5:H5::WW1:W3715:JJJJ2:1);:::T$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695::~vLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)):660I1LT:J((S$,I,1)):(J32(J95));:S$(S$,(S$)LT):LI1ĺ620::( 480:4720[ ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: XH3:TC37 bL(S$):LTCH20(L2):L0ı gLJ0HLJKlH:(S$)TCāI1(S$4):KE1284001 16368,0:XKE128:X27460:` 400:X13ĺ(7);:420: RETURN ROUTINEf  400:XX48:XSMXLGı: 1=4 ROUTINE (7);:430 400:X78X89X110X121ı: Y/N ROUTINE (7);:440 CH3K0İ480:4710(1))1& @I1330,340,350,360,370,380; JT$"Great!":390T TT$"Fantastic!":390i ^T$"Super!":390 hT$"You're really going now!":390 rT$"Yes! Yes! Yes!":390 |T$"That's great!" R1:::990:: 16368,0:16384,128:KE(16381$(N$,3)","(N$,3):167R N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1):: N$N1$:N1$"":PL1(N$):N1$N1$(N$,PL,1)SP$:: I1(N1$):(N1$,I,1)"."180:I DCI: ,CH3NN1 1T13T5ĺ: REWARDS 6I1(6AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: xL(N$):L164,164,164,140,150,160 N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N ROUND 8/22/87.:J14:J$(J):CPI13:CH$(I):XZI15:D1$(I):e_D2$,D3$fPD$".":DE1500:SS150:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000? iL(AN$(2)):L3110:AN$(3)(AN$(2),L3)","(AN$(2),3):          oints represents the midpoint of PQ?","(0,2)","(2,4)","(2,5)","(4,8)","(4,10)",C,2,2m "Find the average of the x coordinates and the y coordinates","The midpoint is (0+4/2,8+2/2) which = (2,5)." r ,"Solve the inequality x^2 - 3x < 0.","x<-3","-3ly","-1 and 1 only","-3,-1 and 1 only",C,2,4c "Substitute -3 in the original equation for x and solve.","If(-3)^2+2(-3)-3=0. Then a=1."Th "The coordinates of point P are (0,8), and the coordinates of point Q are (4,2).","Which of the following ptracting equal quantities from both sides of an inequality does not change the order of the inequality.","Given 2z+4>x-6, subtract z and 4 from both sides to get z>-10.",^ ,"If ax^2+2x-3=0 when x=-3, what value(s) can a have?","-3 only","-1 only","1 on the opposite side and solve for x.","Subtract 9 and 7x to get -4x=12. Divide through by -4 to get x=-3."T ,"What values may z have if 2z+4 is greater than z-6?","values > -10","values > -2","values < 2","values < 10","none of these",A,2,5Y "Sub(4);"RUN HELLO"J ,"For what values of x is the following equation satisfied: 3x + 9=21 + 7x?","-3 only","3 only","3 or -3 only","no values","an infinite number",A,2,4jO "Move all variables to one side of the equation and all numbers toI135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1!:uS$D1$(I1):LJ5:V:610:VV93:VV1:900::!DuS$D2$:LJ0:610:LL1:820:V93:LJ5:LI0:S$D3$:610:900!NuJX)Z aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:KW:K:Pl bD$;"CLOSE": 0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:960:940:VV92:I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:940T!5uVV2:I1:VV1:900:JJ1: "You will decide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110 aL$"ROUND-"J$(tep as I go.","To do examples with help, I will give you a hint for each step, and help you if you make mistakes." "The third option is to round numbers by yourself. I will tell you whether your answer is right or wrong." "Number of Problems" with help.","Do problems yourself." "This program will help you learn to round numbers the way a computer does.","There are three ways to use the program:"r "If you want to see examples done, I will show you how to do them, explaining each spTC39:16:PG1:S$"Do you want to play again? (Y/N) ":LJ0:610:440:X89X1214760z18:1:"Loading Menu....":(4);"RUN HELLO"::RU1:1r "ten","hundred","thousand","ten thousand"$| "See examples done.","Do examples:I1I110RO:N$(I1):120:940:CH2700:CH1ĺN1$? 940:T\480:CH34720fP(((KW)K)100.5):S$"You got "(KW)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:610hNL$"":L$"ROUND-"J$(MX1)k:25000Y25:CH1ĩSS:N1$:NN:940* CH2İ760 16:1:"4. ";:S$"Drop everything after the decimal:":TC19:LJ4:LI1:610:I1(I1):17:25:940:N1$(I1):167:CH1ĺN1$:940 CH2İ7004 TC24:19:S$"5. Multiply by "(10RO)".":LJ1:610:19:25vide by "(10RO)".":600:10:25:I1I910RO:N1$(I1):167:170:CH1ĩSS:N1$:NN:940j CH2İ700 12:S$"2. Now add .5":610:12:24DC:CH1ĺ". 5":H25:850:940 CH2İ720:850 14:S$"3. You get:":610:14:I1I1.5:N1$(I1):167:610:V9:25:657FRN$"":X512767:(X)141N$N$((X)128):Xg\II14:N$AN$(II)2190:IITC36:LJ5:R0::S$"Sorry, the correct answer is:":610:T$N2$:SS::990:WW1:2500300:2500 255:900 K:KK1:4700[ S$"1. Di1:TC26:H1:610:V91:CH3ĢV92X925:N1$::810:::CH3Ģ10:3000:900:2510>I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)HAN$(1)N2$:AN$(2)(I1):105:S$"Your answer:":LJ1:Π̍ҍ΍ӭ荲ҍ΍ӭ荱ҍ΍ӭ荱ӭ䍱ҍ΍ӭ䍱ҍ΍Πٍ̍΍Π̍ҍ΍Π̍ҍ΍ٍ΍ӭ䍱ٍ΍ӭ䍲ٍ΍ӭ䍱ٍ΍ӭ䍱ҍ΍ӭ䍲ҍGRADES program.",""+ "When the GRADES file has more","than 50 scores, use the DELETE GRADES","program to create a new file. Press"," and D for this program."0 ,"","The title page of each program asks","for the child's name om","the menu with control keys.","","The READ GRADES program prints the"& "scores on the screen or printer, with","child's name, program, number right,","number possible and percentage.","","Press and R at the same","time for the READ A$(37)(34)A$""4603A$:(A$)40ĺO(37)20A$""Ĺ37,21c(37)21İ110l460|216,0:11070I "Each program is accessed from the main","menu and recycles back to that menu.","Scoring programs are accessed frto continue, [ESC] to abort "W 16368,0:16384,128:A(16384):A160A155390f A155360 :13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort" 32,0:33,1:34,23:35,24: (4)"PR#"PS:16368,0: ::5204)"PR#0":360/ @(16384)160Ĺ16368,0:370R JS$" ":C%1(A$,1)" "S$""t TA$S$B$:A$"":B$"":C%0:250 ^216,0:A$""ĺA$" ";:B$""ĺB$ h:(4)"PR#0":::34,8:: r(4)"PR#0"::34,8: |14:14:"Pausing...":::" [SPACE] 0:33,1:34,23:35,24::16368,0< :(4)"PR#"PS::350Y T$:A1(T$):"-";::a A$ (A$,1)" "A$(A$,(A$)1):260 A$""ĺ:250 B$ "B$""B$(13) ,(A$,1)"-"A$(A$,(A$)1):C%1 6(16384)155Ĺ16368,0::( :(4)"RUN HELLO" :16368,0:14:1:"What slot is your printer in? (1-7)? ";:A$:A$"1"A$"7"ĭA$(13)A$(27)180 A$(13)A$(27)360 PS(A$) :13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort"! 32,,0o x23:1::" [RETURN] TO CONTINUE [ESC] TO QUIT ":" [P] TO PRINT ";::1:23 16368,0:16384,128:A(16384):A141A155A208A240130 A141ė: A208A240180 :12:12:"One moment please..."΍ĭ䍲΍ĭ䍱΍ĭ䍱΍ĭ䍱 :L(ES$(II)):ES(II)((ES$(II),L1)):II:AN$(2)((ES(2)ES(1)))K AN$(1) = ACTUAL ANSWER AN$(2)=EST. ANSWER AN$(3)=DEFFERENCE AN$(4) AND AN$(5) ARE LIMITS OF RANGELAN$(3)(((AN$(1))(AN$(2)))):AN$(4)((AN$(1))(AN$(3))):AN$(5)((AN$(1)$"0"::ES$(2)MU$ZE$: DIVIDEND ROUNDED?$(MU$(1))11090m%((MU$(1),2,1))5MU$(MU$(1),1):1080.MU$(((MU$(1),1,1))1)8AN(MU$):ES$(1)MU$"0": DIVISOR ROUNDED AND GET VAL FOR SKIP COUNT (AN)CBAN$(1)((MU(2)MU(1))):II12)"":1015: DIVIDING BY ONE NOT ALLOWEDoMX(A)2(MU$(1))94MU$(1)((MU$(1))5): NO DIVISORS OVER 94MU(A)(MU$(A)):IJ:A: NUMBERS OK((MU$(2),3,1))5MU$(MU$(2),2):1050MU$(((MU$(2),1,2))1))JJ1(MU$(2))2:ZE$ZEUE : TO EXIT "::990::400:7DE12000::xL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:: GET DIVISORSA12:IJ1MX(A)MU$(A)MU$(A)(((1)9)49): A DIGIT FROM 1 TO 9)MX(A)1MU$(A)"1"MU$(A:X$:V5:H5:WW1:W2715::75571);::VV2:Q 1:IL139:"=";::n4H:MM1L1:"-";:MM:R26:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400:$PG1:23:T$" TO CONTIN);::V5:H5:X$;::WW1:W1715:711;:H5H52:GG:T$"ENTER A "(34)XY$(34)" PLEASE.":22::990:940:21:1:958:XX$N1$:LE(XX$):JJ1LE2:H5(36)1:V5(37)1:W0:XY$(XX$,JJ,1)#V5:H5:X$:X$;:X$XY$ĺ(7);:V5:H5:$V5V53:W0:H(MU$(1))26:105WZX(XX$):JJZX((PT$)1)1:XY$(XX$,JJ,1):V5:H5:X$:X$;:X$XY$ĺ(7);::V5:H5:X$;::WW1:W1715:705:H5H52:JJ:GG(PT$)11:XY$(PT$,GG,1)':V5:H5:X$:X$;:X$XY$ĺ(7(1-7)":X10:600; XX$:XX$(18)F$"READ GRADES":2370b XX$(4)F$"DELETE GRADES":2370 XX(XX$):XX12030:XX72030: XX2050,2060,2070,2080,2090,2100,2110\ DI13:1:SZ2:S$"ROUND WHOLE NUMBERS":X12:Y25:610:SZ1:3:Y42:800:H20((T$)2):10:H:T$::10:H:"LOADING":::A :940: 2:SZ2:S$"NUMBER ROUND-UP ":X25:Y8:DI15:610:Y30:3:800:SZ1:DI10:S$"Choose a Program:":YY5:600 YY5:II17:S$PR$(II):X20:YY15:DI10:SZ1:610:II:S$"Your choice? 9SH20SH12SH44SH46XX1:SH46XX1k SZ2700:SHX,Y:SZ2710:SH44SH9SH12SH46XX1 SH59DE1000:941 XXDI:: SHSH90: SHSH90: 6,Y265,Y:6,Y1265,Y1: DE1500:QQ1DE1 D1DE::4 ::6384) KEY128400$ 16368,02 XKEY1288 R X16302,0:X10:YY20 bI1(S$):DR((S$,I,1)):DR96T196:640 lDR103T1128:DR:(S$,I,1):"LINE 620"::640 qDR32XX2:650 {DR95T10 |DR42DR34- SHDRT1:SH"( TITLE NUMBER ROUND-UP 6/8/87MD$"": CNTRL DW ::sdD$;"BLOAD ROUN,A$2000"16304,0:16300,0:16297,0:16302,0:3:0:1D$;"BLOAD VIS.LET,A25600":232,0:233,100,I17:PR$(I):I:2000 KEY(1         AL1400 X63ıa X96X123ĢV:1:958:(7);:"Please put the CAPS LOCK down.";:440p X274750 X65X69450:V:1:958:(7);:"Please enter a letter A - E."; 940:V:1:958:X255: X274750:S :::41):I14:TT$"Fantastic!":390+ ^T$"Super!":390R hT$"You're really going now!":390q rT$"Yes! Yes! Yes!":390 |T$"That's great!" ::990:: 16368,0:16384,128:KEY(16384):KEY128400 16368,0:XKEY128:AL1425:X13X27450:(I),H(I),F1$(I),F2$(I) _I2 dI12:D1$(I): iPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000 ,NN1:T13T5ĺ: REWARDS 6I1(6(1))1 @I1330,340,350,360,370,380 JT$"Great!":390 \+ WORD PROBLEMS 6/12/87):TT20~ Q$(TT),Q1$(TT),A$(TT,10),A1$(TT),X(TT),T(TT),SU(TT),H(TT),W(TT),F1$(TT),F2$(TT)K120T((1)TT)1(X(T)1302X(T)1:T(K)T:FI1TT:Q$(I),Q1$(I)PJ15:A$(I,J):J ZA1$(I),SU                   ."::V3:800:2120'Z$"N"ė:2310EG113:23:(7)::2280a Z5:1:MM1:M114000x KK1:TT(K):2120:3:"YOU GOT ";N;" RIGHT OUT OF ";G;" ANSWERS, "::NA$;". ";:P((NG100).5):"THAT'S ";P;"%."25000A49ĺ"PLEAS58:V11:13::A(T);PD$;A$(A(T))::S$EX$(A(T)):V14:960:DE500:940:DE1500^Z5GG1pK3Z02280Z5:900:231023:1::"ANOTHER EXAMPLE, "NA$"? (Y/N) ";:Z$:Z$"Y"KK1:TT(K)::2:"TRY THIS PRACTICE SENTENCE, "NA$":2175>1:V1:958::13:A;".";A$(A):V12:AA(T)2195M300:2230gL1(I$(T))::BA(T):S$I$(T)" IS IN THE"A$(B)" DEGREE BECAUSE IT HAS"EN$(B):TC37:H3:V14:960:V14:H::I$(T)::B1ĺ::H3:LL3:850ODE3500:940:V1:9THE DEGREE OF COMPARISON FOR":990::T$I$(T)::990::V5:800:7:600WrVV92:800~u"THE DEGREE OF COMPARISON IS: ":wV1(37)zI13:13:I;".";A$(I):::V(37)1V:"YOUR CHOICE? (1, 2, OR 3) ";:A$A(A$)A0A4İ450":990:940:V2:958:21302WL9$X$:Z5GG1^a400:X$L9$::I$(T)X$İ300:900:2161f:T$"SORRY, "NA$". THE ADJECTIVE IS "I$(T)".":(T$)37T$"THE ADJECTIVE IS "I$(T)"."k990:998:HL(I$(T))1::I$(T):900Gq2:T$"GIVE V3:800:K1:TT(K)::O1HO1:4::D5$;::":";:S$"FIND THE "AJ$" IN THIS SENTENCE.":TC27:H13:610:O0:V(37)1:800:VV2:V:600MV(37):800RV2:"THE ADJECTIVE IS: ";X$TX$""āG113:(7);::V6:T$"PLEASE ENTER AN ADJECTIVE.EST":EN$(2)" AN "N$(2)EN$" ":EN$(1)" NO"EN$:EN$(3)" AN "N$(3)EN$:SS100:NN255wS$(20),I$(20),M$(20),A(20)I120:S$(I),I$(I),A(I):I13:EX$(I),E1$(I),H(I),L(I),E2$(I):>:30000C2:"TRY A PRACTICE SENTENCE, ";NA$;"."::HAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008NA$""āG113:20:(7)::18:S$"PLEASE ENTER YOUR FIRST NAME. (NO MORE THAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008::"AND YOUR LAST NAME? ";NL$WEN$" ENDING.":N$(2)"-ER":N$(3)"- DEGREE":I13:D1$(I)TH$A$(I)DE$:qZ0:G0:N0::8:10:T$A$(2)" "AJ$"S":990:T1$T$:H1:LL1:85015:"WHAT IS YOUR FIRST NAME? ";NA$1(NA$)8āG113:20:(7)::18:S$"PLEASE ENTER A SHORTER FORM OF YOUR FIRST NAME. (NO MORE TE:: SS:610:NN:+ SS:990:NN:Z L(T$):H(20(L2)):H:T$;:PG1PG0:k :V9(37): A$(1)" POSITIVE":A$(2)" COMPARATIVE":A$(3)" SUPERLATIVE":CO$"COMPARISON":AJ$"ADJECTIVE":D5$"DIRECTIONS":L$"COMPARE.6"&TH$"THE":DE$"T::S30: ::2 H139:V:H:"-"::1:P *H139:V:H:"="::1:h RJ1L:"-";::1: \H139:V:H:"=":: PG1:23:T$"PRESS A KEY."::990::756::  PG1:23:T$"PRESS A KEY.":990::756:V:1:958: D1DCO0ĖH:A$::H:B$;:V4(37)1:H4(36)1::695X RTCO1ĖH:A$:H:B$:O0:695z Y110:(B$,TCY,1)" "680 Y C$(B$,TCY):R(B$)(C$):D$(B$,R) H:A$::H:C$::H:D$;:V4(37)1:H4(36)1: V9(37):S31Ė33:"T=";LEASE ENTER A 1, 2, OR 3."::910:? XS$S$(T):H3:TC37:S31a bL(S$):LTCT$S$:990:695 lY110:(S$,TCY,1)" "640 vY A$(S$,TCY):R(S$)(A$):B$(S$,R) L3(N$(B)):I11(B$):(B$,I1,L3)EN$(B)ĂI1 H3I1103 RT"GREAT, "NA$"!":380B hT$"THAT'S FANTASTIC, "NA$"!!!":380\ rT$"YES! YES! YES!"k |::990: L(L9$):S15:(L9$,1)" "420 LL1:L9$(L9$,L):S S15:(L9$,1)" "ı LL1:L9$(L9$,L):S:# (7):V:1:958::"PX(20),T(20),P(20)$ K1207T((1)20)1FX(T)120Z(X(T)1:T(K)T:2DE1500:SS100:NN255:PD$".":2000,Z5NN16I(5(1))1@I330,340,350,360,370JT$"EXCELLENT, "NA$"!":380TT$"GOOD JOB!!":380 ^T$          S3XWADJECTIVE IS IN THE"A$(1)", THE"A$(2)", OR "D1$(3)".":960:940%uS$"YOU MAY HAVE AS MANY AS 3 PRACTICE SENTENCES BEFORE I KEEP YOUR SCORE.":960:T$"PRESS A KEY TO BEGIN, "NA$".":23::PG1:990:Z$::: PGCDZO1$(I):961:VV93:HH(I):LL(I):850:810:940:V3:H5:S$E2$(I):960:940:900:$qu2:T$D5$::990::H:850:5:S$"YOU ARE TO FIND THE ADJECTIVE IN EACH SENTENCE, TYPE IT IN, AND PRESS .":TC39:H1:960:940E%vuS$"NEXT, DECIDE WHETHER THE COMPARISON:":960:VV91:800:#DuVV2:I13:A2$(A$(I),(A$(I))1):T$"THE"A$(I)" DEGREE":V:990::V:H4:A2$:VV3:940:::V4:910:#NuI13:T$"THE"A$(I)" DEGREE"::2:990::H:850:5:TC34:H5:S$EX$(I):960:VV92:810:V3:S$XuT$ED$"bD$;"WRITE GRADES,R";A9" bNL$:NA$:L$:N:G:PI"bD$;"CLOSE"O" b"0uT$T1$:DE1500::1::990::H:850:4:TC34:H5#:uS$"AN "AJ$" IS A WORD THAT DESCRIBES A NOUN OR A PRONOUN.":960:940:V93:S$"MOST "AJ$"S HAVE THREE DEGREES OF S MORE THAN TWO THINGS.,SHE IS THE PRETTIEST GIRL IN SCHOOL.,11,9,THE SUPERLATIVE DEGREE ENDS IN 'EST.'}!aD$"": CTRL D!aD$;"OPEN GRADES,L50"!aD$;"READ GRADES,R0"!aA!aA4925110!aD$!aAA1!aD$;"WRITE GRADES,R0"!aA"aEE EXPRESSES A QUALITY.,SHE IS A PRETTY ACTRESS.,9,6,THE POSITIVE DEGREE HAS NO ENDING. F( THE COMPARATIVE DEGREE COMPARES TWO THINGS.,SHE IS THE PRETTIER OF THE TWO GIRLS.,11,8,THE COMPARATIVE DEGREE ENDS IN 'ER.'g!P( THE SUPERLATIVE DEGREE COMPAREFRESHER THAN THE FIRST APPLE.,FRESHER,2o' TAKE A CLOSE LOOK AT THE PICTURES FROM OUR CLASS TRIP.,CLOSE,1' WE SOLVED THE HARDEST PROBLEM IN THE PUZZLE BOOK.,HARDEST,3' SHE FOLLOWED TWO SHORT TRAILS.,SHORT,1W <( THE POSITIVE DEGRE LAKES.,DEEPEST,3P' WHAT IS THE HIGHEST BUILDING IN THE WORLD?,HIGHEST,3' THIS VALLEY LOOKS WIDER THAN THE VALLEY WE SAW YESTERDAY.,WIDER,2' WHICH PERSON IS THE FASTEST RUNNER ON THE TEAM?,FASTEST,3'' THE SECOND APPLE TASTED T WAS LONGER THAN HIS FIRST REPORT.",LONGER,2t~' JULY IS OFTEN THE HOTTEST MONTH OF THE ENTIRE YEAR.,HOTTEST,3' THAT JOKE SEEMS FUNNIER THAN THE ONE IN THE NEWSPAPER.,FUNNIER,2' THE SCIENTISTS SEARCHED FOR THE DEEPEST PART IN THE THRE,' SAID THE GUIDE.",FUNNY,1pV' "'THE ELEPHANTS ARE THE LARGEST OF ALL THE ANIMALS,' SAID JOHN.",LARGEST,3`' HE SQUATTED BEHIND THE TALL TREE.,TALL,1j' ONE BABOON WAS SMALLER THAN THE OTHER BABOON.,SMALLER,2-t' "SID'S SECOND REPOR JUNGLE IN AFRICA WAS BEFORE THEM.,DEEPEST,3y8' "'TODAY IS HOTTER THAN YESTERDAY,' THE PHOTOGRAPHER SAID.",HOTTER,2B' "'THESE TRACKS ARE BIGGER THAN A LION'S TRACKS,' SAID THE GUIDE.",BIGGER,2L' "'BABOONS ARE FUNNY ANIMALS TO PHOTOGRAPH0+12:T$"ONE MOMENT PLEASE....":990:?D$;"RUN TITLE"E"h' COMPARATIVE ADJECTIVES 6' THEY SENT THE GREAT PHOTOGRAPHER TO AFRICA.,GREAT,1$' HER GUIDE WAS SMARTER THAN THE GUIDE LAST YEAR.,SMARTER,2,.' THE DEEPEST70:H2:960:D$;"PR#0"&4100::"PLEASE REREAD THE LESSON IN YOUR":"TEXTBOOK. WHEN YOU HAVE REVIEWED THE":"MATERIAL, YOUR TEACHER MAY LET YOU":"REPEAT THIS EXERCISE FOR A HIGHER":"GRADE."::T$"HAVE A NICE DAY, "NA$"!":990:90 ";G;" ANSWERS, ";NA$;". ";:P((NG100).5):"THAT'S ";P;"%." :S$"PLEASE REREAD THE MATERIAL IN YOUR TEXTBOOOK. WHEN YOU HAVE REVIEWED THE MATERIAL, GIVE THIS SLIP TO YOUR TEACHER AND SHE MAY LET YOU REPEAT THIS EXERCISE FOR A HIGHER GRADE.":TCE CALL YOUR TEACHER, ";NA$:,P854100[J17:N149152256J:PN(N1):PN244050bJl4090:"IS THE PRINTER ON? (Y/N) ";P$P$"N"4090P$"Y"4050D$;"PR#1"NA$;" ";NL$,L$::A:"YOU GOT ";N;" RIGHT OUT OF));::H9(36):V9(37)1::JJ0695::\vLTTC11:X$(S$,LT,1):X$SP$X$"-"670|E2ĺ(S$,LT(X$SP$)):660I1LT:J((S$,I,1)):(J32(J95));:S$(S$,(S$)LT):LI1ĺ620::(7);"WORD TOO LONG";:V520:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::XH3:TC37bL(S$):LTCH20(L2):L0ıgLJ0HLJ)lH:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E228400) 16368,0:XKE128:X27460:Y 400:X13ĺ(7);:420: RETURN ROUTINE_  400:XX48:XSMXLGı: 1=4 ROUTINE (7);:430 400:X78X89X110X121ı: Y/N ROUTINE (7);:440 47009::"[";:I1I1330,340,350,360,370,3800 JS$"Great!":390I TS$"Fantastic!":390^ ^S$"Super!":390 hS$"You're really going now!":390 rS$"Yes! Yes! Yes!":390 |S$"That's great!" R1:20:LJ0:610: 16368,0:16384,128:KE(16384):KE1N1$(N$,1)","(N$,2,3)","(N$,3):167m N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1)::N1$N1$" ": N$N1$:N1$"":PL1(N$):N1$N1$(N$,PL,1)SP$:: I1(N1$):(N1$,I,1)"."180:I DCI: ,CH3NN1 6I1(6(1))1 @A2$(JX)(AN(JX)):L(A2$(JX):L3118:A3$(JX)(A2$(JX),L3)","(A2$(JX),3)::m vA3$(JX)(AN(JX)):: xL(N$):L164,164,164,140,150,160,161 N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N1$(N$,3)","(N$,3):167* (2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1)::L6111:AN$(3)(AN$(2),L3)","(AN$(2),3): nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: oAN$(3)(AN$(2),L6)","(AN$(2),L5,3)","(AN$(2),3):S sII1JX::# DRILL 8/22/87.:J14:J$(J):CPI13:CH$(I):XZI15:D1$(I):~_I13:D2$(I)::I13:D3$(I):fPD$".":DE1500:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000a iL(AN$(2)):L3110:AN$(4)(AN$            F$"DRILL":2350*DI13:SZ2:5:S$"ROUNDING DECIMALS":X20:Y25:610:Y42:3:SZ1:DI9:800:S$"Extend your skills to include":600:S$"decimals.":600:YY5:940(/S$"Round decimal numbers the":600:S$"way the computer does!":600:DI10:940:S$"3:Y25:610:Y42:3:SZ1:DI10:800:S$"Round out your estimation":600:S$"skills. Learn to round":600%S$"the parts of a division ":600:S$"problem and divide the":600:S$"estimates.":600::DI10:940:S$"LOADING Division Drill":Y160:600&5:940:S$"Round the multipliers in":600S$"these problems and then":600:S$"learn to multiply them in":600:S$"your head!":600:DI10:940:S$"LOADING Probing Products":Y160:600F$"PRODUCT":2350i DI13:SZ2:5:S$"DIVISION DRILL":X4 figures.":600:YY5:940:S$"Just add up the estimates!":600:DI10:940:S$"LOADING Stupendous Sums":Y160:600F$"SUM":2350*SZ2:6:DI13:S$"PROBING PRODUCTS":X33:Y25:610:Y42:800:DI10:3:SZ1:YY5:S$"Strive for excellence!":600:YYnding Numbers".Y160:600:F$"ROUND":2350 DI13:1:SZ2:S$"STUPENDOUS SUMS":X35:Y25:610:Y42:DI10:3:SZ1:800:DI10:S$"Build your brain-power!":600:S$"Use your rounding skills":600sS$"to estimate the numbers":600:S$"in a column ofS$"Learn to round numbers":DI10:YY5:600:S$"the way the computer does!":600:940:YY5S$"Practice with small and":600:S$"large numbers; round them":600:S$"to the nearest ten, hundred":600:S$"or thousand.":600:DI10:940:S$"LOADING Rou $$$$Hv#  4Hv 426X ---.--=X --u 56666? $$$666??$$d--->??766-- ??'$$666666%$$$$$,666666--- $$??7--u66??'--%$$???---66--- <7'7'7'<$$56 -- $,566666>???$$d---)$4266>???$??$HI6666MIg M6666---H6666MI$$$$&III6666MI$$$$ߛrH)-u666??$$$III--u6??'$6.H)-669?$$$III--u6??'$6nIH)-u6--6??$HI---666&H666v-- $$$4H66v $$4H6666 4Xd--@X66--%--6>? 5FXI66nI!$??' &X--u6??'$6.-- $X )-u666-- $H--u666??'$$$III---36--=26---H---36--=26H)-u666-- $?H6666MI$$$$;??HI -666> XI 5666b--6??6.--%H)--6??$HII1666&XX);?d I ---3.--6??$HI --66v-- $??HI---6&H)-u6??6-- $$III-- $$??6--X I2HI2XIX---???H  \X$ HI-6?lIM!-6?X)6- $IIII66HI66XII66HI6666`   ??HI I26?/ )=2&XIX*--%HIHIIH)-u666??$$$MHI>666/)Xq X6v-e $6??DH)----%H6 *5>7.%HddddHIve$I 66-- $$??V6-8I---->???7---->???7---->???7---->???7---->???'H IIII666H 6n$,I---:?? $ $ 6262XIIM??v--??VHIR 66EHRI66gH 1666n  HI6666X26nI!$?HI 66nI!$?HI)-u6??$$HI 266&@-e$??7HIII266&?$d--5H66. -uDH)-u--?? HH 6/66eX66-e$$$Hvv d$X 66f $$$X ku.BOzV0s7^~<rF{Y8v0g26-e$$?gHI6666 -e$?HI26-- D?? HI26-e$$?oI$l)-u>??6v--H!$/$duHI)-u66??H?$$HI 6666MI$?ij| /=N`q$9Q]e} 7@Sd(;Rj|-D\q*?Yk0Gv @ d  F \  V u  I  ? ] y );     015: DIVIDING BY ONE NOT ALLOWEDhMX(A)2(MU$(1))94MU$(1)((MU$(1))5): NO DIVISORS OVER 94MU(A)(MU$(A)):IJ:A: NUMBERS OK((MU$(2),3,1))5MU$(MU$(2),2):1050MU$(((MU$(2),1,2))1)"JJ1(MU$(2))2:ZE$ZE$"0":SC> TO EXIT "::990::400:0DE12000::qL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:y: GET DIVISORSA12:IJ1MX(A)MU$(A)MU$(A)(((1)9)49): A DIGIT FROM 1 TO 9"MX(A)1MU$(A)"1"MU$(A)"":1V5:H5:WW1:W2715::75501);::VV2:J 1:IL139:"=";::g4H:MM1L1:"-";:MM:R26:I1((MX1)2)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::990::400:PG1:23:T$" TO CONTINUE : .>.>.6'%<>$4'$$$<66666%'-,$66- d v-$ $?7v.d .\X <$6666-<,<,<, $?75w55-,,$5-----6.--5><><><>?'$ <6<u?.5?.5?.5?.e6?-$-$5w->'eu'----6vv>?766?$$$$$,---u6vv' ???66&XXXX $---56???$ --->'???---;7->wd6%,6%,6%t.>7->7???,5w--%??-----6??66666?,<,_X%'%'%'%--;?7--66666--- $$$$$?.>.>.>.>.>>$>6''%'%'%666666-----$????$$$$$766666----- ->?.u..&!%%->->7->7->7-6'7?,%?,%?,%?,%?,--uvvv%$$$->.>.>.>66?7666?,<,<,<,$,->7.,55.6 -6>',6 ---6666???$$$$ ---u6666???$$$$---5666>?'$$$,----6???66>'%'%'$$,---u6???'$,---6>??'$ ?.5?.5?6%5 ---6'???----58?.5?.5?.5?v--- $?.>6=#7'6''IIX -5?666666-$$,--566-<,<,< $$$?.>.>.>'7'7'766\XXX ,<,<,I--67666.6??$-'%'%'%'% ?7-II-->?7-->7->7->7->?-$7>$7>$7$-5?.-66f -?66>'%'%'$$$566f .....-66????,---e$???$5%5%5 ,$'???7---2>???'$$$$ 76. ---6'???----58?.5?.5?.5?v--- $?.>6=#7'6''----6666????$$$$$,---u6666???'$$$$---566>???$$$$-----6'7'7'7'7'7.5?.---6'7'7?.5?.5?6%5----????7-----?????.----= ?????)-?g -.....7777?I--66?,< ?$--556Q -56>?$-5>'T ,.$$$???6666----'$???6>'$$$$ --u66????$$ --55656\X;??? 6^XXXXX$,---76.--%$???-----666>'$$d ????,---- 666 ---????-----?????----?????.5?v--- $?.???---%XXXX(%??.- 6v-ے6-- $$??---????6v-57-%g$ ?- $<6> ;?'$RI-<'-D <757RI-<'-D <757:.7Ra -?, /)5 .>.>w?????----1.-- ??'----6v6???$-v-ed d-7157? ???<$II ?6.----%?66v--- $?? A?w??66v--- $??$$$$76>;?6--))-$??- 6\X-I!,5>$*>77-----6?????,----I!,5>$JII -   ---6666???$$$$ ---u6666???$$$$---5666>??'$$$M 6 II66666-6???$-$$$% 66666>/ - 6-,%?d --u6--5>????'6?$-5>'TQQ?$ -?$-6I6%$ uv-e  <t2<d ?7775w>v,v(,\X8\X I16.$$566II1666>$ dd-7667-2v?III 3666.edd$? 56 65w?2 -J 66666-$$$$$76666f%%%%?-II)?7-7.?.-?J 66666-$-->??????7-------III I16666-<,D$$$<6666 66- -$$76'$76%$----->????7-----:????7----->????/.%'XX$\XXX,62.$\XXXl->7*5?.5:7-J---????-----???)--e???? ----u>g???---ݓ?\XXX%XX?\XXX-JII.d -( )--%b56'Qf  -?.--??????7------->??????7------->??????7------->??????7------->??????7------->??????7-----ddd7->7->-5?7-?? -  <]X),\X ,,,666v-- -$$$$<7575/:.6''>gg?$$$,666-QI26???$---- $<6>??---------%????;f ????.--$$,---66>??'$,666-<_X)< ? ---66???$$d---u66???$$,---66>??'$,QJ666?,<,< 6666.%'%/8,<,,v6 $$5.$5v$56 ---????-----?????----???G----u?gg?$$$,666-vvvv.% $$<662?,te$7>666666%$$$$$,666666MI  ??''' %%%I166666.$$$$$$566666>6666.%'%'%'%',.---666>$$$<666?,%?,%?,%%??.-6666.%'%'%'%',6 &`6%,6%t666.$$$t666 ---66???$$d---u66???$$,---66>??'$, ---66???$$d---u66???$,---66>??'$$X ---6?????.----}'???.----7???,--->??I"$$$$d u665w766'$$$U$$ ---????-----66???$$->.>.--e$$76>??U 1/2???d--%,6???6666.%'%'%'%',6 &`6%,6%t666.$$$t666 ,57-I0.$5?666-$$<66I0.$5?666-58:V11:13::A(T);PD$;A$(A(T))::S$EX$(A(T)):V14:960:DE500:940:DE1500^Z5GG1pK3Z02280Z5:900:231023:1::"ANOTHER EXAMPLE, "NA$"? (Y/N) ";:Z$:Z$"Y"KK1:TT(K)::2:"TRY THIS PRACTICE SENTENCE, "NA$":2175>1:V1:958::13:A;".";A$(A):V12:AA(T)2195M300:2230gL1(I$(T))::BA(T):S$I$(T)" IS IN THE"A$(B)" DEGREE BECAUSE IT HAS"EN$(B):TC37:H3:V14:960:V14:H::I$(T)::B1ĺ::H3:LL3:850ODE3500:940:V1:9THE DEGREE OF COMPARISON FOR":990::T$I$(T)::990::V5:800:7:600WrVV92:800~u"THE DEGREE OF COMPARISON IS: ":wV1(37)zI13:13:I;".";A$(I):::V(37)1V:"YOUR CHOICE? (1, 2, OR 3) ";:A$A(A$)A0A4İ450":990:940:V2:958:21302WL9$X$:Z5GG1^a400:X$L9$::I$(T)X$İ300:900:2161f:T$"SORRY, "NA$". THE ADJECTIVE IS "I$(T)".":(T$)37T$"THE ADJECTIVE IS "I$(T)"."k990:998:HL(I$(T))1::I$(T):900Gq2:T$"GIVE V3:800:K1:TT(K)::O1HO1:4::D5$;::":";:S$"FIND THE "AJ$" IN THIS SENTENCE.":TC27:H13:610:O0:V(37)1:800:VV2:V:600MV(37):800RV2:"THE ADJECTIVE IS: ";X$TX$""āG113:(7);::V6:T$"PLEASE ENTER AN ADJECTIVE.EST":EN$(2)" AN "N$(2)EN$" ":EN$(1)" NO"EN$:EN$(3)" AN "N$(3)EN$:SS100:NN255wS$(20),I$(20),M$(20),A(20)I120:S$(I),I$(I),A(I):I13:EX$(I),E1$(I),H(I),L(I),E2$(I):>:30000C2:"TRY A PRACTICE SENTENCE, ";NA$;"."::HAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008NA$""āG113:20:(7)::18:S$"PLEASE ENTER YOUR FIRST NAME. (NO MORE THAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008::"AND YOUR LAST NAME? ";NL$WEN$" ENDING.":N$(2)"-ER":N$(3)"- DEGREE":I13:D1$(I)TH$A$(I)DE$:qZ0:G0:N0::8:10:T$A$(2)" "AJ$"S":990:T1$T$:H1:LL1:85015:"WHAT IS YOUR FIRST NAME? ";NA$1(NA$)8āG113:20:(7)::18:S$"PLEASE ENTER A SHORTER FORM OF YOUR FIRST NAME. (NO MORE TE:: SS:610:NN:+ SS:990:NN:Z L(T$):H(20(L2)):H:T$;:PG1PG0:k :V9(37): A$(1)" POSITIVE":A$(2)" COMPARATIVE":A$(3)" SUPERLATIVE":CO$"COMPARISON":AJ$"ADJECTIVE":D5$"DIRECTIONS":L$"COMPARE.6"&TH$"THE":DE$"T::S30: ::2 H139:V:H:"-"::1:P *H139:V:H:"="::1:h RJ1L:"-";::1: \H139:V:H:"=":: PG1:23:T$"PRESS A KEY."::990::756::  PG1:23:T$"PRESS A KEY.":990::756:V:1:958: D1DCO0ĖH:A$::H:B$;:V4(37)1:H4(36)1::695X RTCO1ĖH:A$:H:B$:O0:695z Y110:(B$,TCY,1)" "680 Y C$(B$,TCY):R(B$)(C$):D$(B$,R) H:A$::H:C$::H:D$;:V4(37)1:H4(36)1: V9(37):S31Ė33:"T=";LEASE ENTER A 1, 2, OR 3."::910:? XS$S$(T):H3:TC37:S31a bL(S$):LTCT$S$:990:695 lY110:(S$,TCY,1)" "640 vY A$(S$,TCY):R(S$)(A$):B$(S$,R) L3(N$(B)):I11(B$):(B$,I1,L3)EN$(B)ĂI1 H3I1103 RT"GREAT, "NA$"!":380B hT$"THAT'S FANTASTIC, "NA$"!!!":380\ rT$"YES! YES! YES!"k |::990: L(L9$):S15:(L9$,1)" "420 LL1:L9$(L9$,L):S S15:(L9$,1)" "ı LL1:L9$(L9$,L):S:# (7):V:1:958::"PX(20),T(20),P(20)$ K1207T((1)20)1FX(T)120Z(X(T)1:T(K)T:2DE1500:SS100:NN255:PD$".":2000,Z5NN16I(5(1))1@I330,340,350,360,370JT$"EXCELLENT, "NA$"!":380TT$"GOOD JOB!!":380 ^T$           >.":TC39:H1:960:940E%vuS$"NEXT, DECIDE WHETHER THE COMPARISON:":960:VV91:800:#DuVV2:I13:A2$(A$(I),(A$(I))1):T$"THE"A$(I)" DEGREE":V:990::V:H4:A2$:VV3:940:::V4:910:#NuI13:T$"THE"A$(I)" DEGREE"::2:990::H:850:5:TC34:H5:S$EX$(I):960:VV92:810:V3:S$XuT$ED$"bD$;"WRITE GRADES,R";A9" bNL$:NA$:L$:N:G:PI"bD$;"CLOSE"O" b"0uT$T1$:DE1500::1::990::H:850:4:TC34:H5#:uS$"AN "AJ$" IS A WORD THAT DESCRIBES A NOUN OR A PRONOUN.":960:940:V93:S$"MOST "AJ$"S HAVE THREE DEGREES OF S MORE THAN TWO THINGS.,SHE IS THE PRETTIEST GIRL IN SCHOOL.,11,9,THE SUPERLATIVE DEGREE ENDS IN 'EST.'}!aD$"": CTRL D!aD$;"OPEN GRADES,L50"!aD$;"READ GRADES,R0"!aA!aA4925110!aD$!aAA1!aD$;"WRITE GRADES,R0"!aA"aEE EXPRESSES A QUALITY.,SHE IS A PRETTY ACTRESS.,9,6,THE POSITIVE DEGREE HAS NO ENDING. F( THE COMPARATIVE DEGREE COMPARES TWO THINGS.,SHE IS THE PRETTIER OF THE TWO GIRLS.,11,8,THE COMPARATIVE DEGREE ENDS IN 'ER.'g!P( THE SUPERLATIVE DEGREE COMPAREFRESHER THAN THE FIRST APPLE.,FRESHER,2o' TAKE A CLOSE LOOK AT THE PICTURES FROM OUR CLASS TRIP.,CLOSE,1' WE SOLVED THE HARDEST PROBLEM IN THE PUZZLE BOOK.,HARDEST,3' SHE FOLLOWED TWO SHORT TRAILS.,SHORT,1W <( THE POSITIVE DEGRE LAKES.,DEEPEST,3P' WHAT IS THE HIGHEST BUILDING IN THE WORLD?,HIGHEST,3' THIS VALLEY LOOKS WIDER THAN THE VALLEY WE SAW YESTERDAY.,WIDER,2' WHICH PERSON IS THE FASTEST RUNNER ON THE TEAM?,FASTEST,3'' THE SECOND APPLE TASTED T WAS LONGER THAN HIS FIRST REPORT.",LONGER,2t~' JULY IS OFTEN THE HOTTEST MONTH OF THE ENTIRE YEAR.,HOTTEST,3' THAT JOKE SEEMS FUNNIER THAN THE ONE IN THE NEWSPAPER.,FUNNIER,2' THE SCIENTISTS SEARCHED FOR THE DEEPEST PART IN THE THRE,' SAID THE GUIDE.",FUNNY,1pV' "'THE ELEPHANTS ARE THE LARGEST OF ALL THE ANIMALS,' SAID JOHN.",LARGEST,3`' HE SQUATTED BEHIND THE TALL TREE.,TALL,1j' ONE BABOON WAS SMALLER THAN THE OTHER BABOON.,SMALLER,2-t' "SID'S SECOND REPOR JUNGLE IN AFRICA WAS BEFORE THEM.,DEEPEST,3y8' "'TODAY IS HOTTER THAN YESTERDAY,' THE PHOTOGRAPHER SAID.",HOTTER,2B' "'THESE TRACKS ARE BIGGER THAN A LION'S TRACKS,' SAID THE GUIDE.",BIGGER,2L' "'BABOONS ARE FUNNY ANIMALS TO PHOTOGRAPH0+12:T$"ONE MOMENT PLEASE....":990:?D$;"RUN TITLE"E"h' COMPARATIVE ADJECTIVES 6' THEY SENT THE GREAT PHOTOGRAPHER TO AFRICA.,GREAT,1$' HER GUIDE WAS SMARTER THAN THE GUIDE LAST YEAR.,SMARTER,2,.' THE DEEPEST70:H2:960:D$;"PR#0"&4100::"PLEASE REREAD THE LESSON IN YOUR":"TEXTBOOK. WHEN YOU HAVE REVIEWED THE":"MATERIAL, YOUR TEACHER MAY LET YOU":"REPEAT THIS EXERCISE FOR A HIGHER":"GRADE."::T$"HAVE A NICE DAY, "NA$"!":990:90 ";G;" ANSWERS, ";NA$;". ";:P((NG100).5):"THAT'S ";P;"%." :S$"PLEASE REREAD THE MATERIAL IN YOUR TEXTBOOOK. WHEN YOU HAVE REVIEWED THE MATERIAL, GIVE THIS SLIP TO YOUR TEACHER AND SHE MAY LET YOU REPEAT THIS EXERCISE FOR A HIGHER GRADE.":TCE CALL YOUR TEACHER, ";NA$:,P854100[J17:N149152256J:PN(N1):PN244050bJl4090:"IS THE PRINTER ON? (Y/N) ";P$P$"N"4090P$"Y"4050D$;"PR#1"NA$;" ";NL$,L$::A:"YOU GOT ";N;" RIGHT OUT OF."::V3:800:2120'Z$"N"ė:2310EG113:23:(7)::2280a Z5:1:MM1:M114000x KK1:TT(K):2120:3:"YOU GOT ";N;" RIGHT OUT OF ";G;" ANSWERS, "::NA$;". ";:P((NG100).5):"THAT'S ";P;"%."25000A49ĺ"PLEASAN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: nAN$(3)AN$(2):AN$(4)(AN$(2),1):II2L:AN$(4)AN$(4)SP$(AN$(2),II,1):: xL(N$):L164,164,164,140,150,160 N1$(N$,1)","(N$,3):167 N1$(N$,2)","(N$,3):167 N ROUND 8/22/87.:J14:J$(J):CPI13:CH$(I):XZI15:D1$(I):e_D2$,D3$fPD$".":DE1500:SS150:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000? iL(AN$(2)):L3110:AN$(3)(AN$(2),L3)","(AN$(2),3):  !! ! ! ! ! !!!!!!!!!    1:958:2440M 17:1:"The rounded dividend is ";N$;PD$:900:13:1:958 13:1:"Drop the last zero from each.":10:15:" ":10:19:" ":10:19:ES1(ES$(2))10:N$(ES1):120:N1$:940:13:1:ER$ NUM12750"! 13:1:ER$:13:The rounded divisor is ";N$;PD$:910:13:1:958y (N1$)10NUM1: WE WILL NOT DIVIDE BY ONE, THE ANSWER IS OBVIOUS~ 13:1:"Round the dividend.":15:1:"Your answer? ";ZZ$ N$ES$(2):120:10:19:N1$:ES$(2)ZZ$İ300:940:13:13:1:ER$:S$"The estimate is "AN$(2)PD$:13:1:S$:N$AN$(2):120:8:19:N1$:2800j` t 940:13:1:"Round the divisor.":15:1:"Your answer? ";ZZ$v N$ES$(1):120:10:13:N1$:N$ZZ$İ300:940:13:1:958:24251w 17:1:"WER IS OBVIOUS]13:1:"Round the dividend.":N$ES$(2):120:10:19:N1$:940:13:1:ER$13:1:"Drop the last zero from each.":10:15:" ":10:19:" ":10:19:ES1(ES$(2))10:N$(ES1):120:N1$:940:13:1:ER$NUM12750X10:17:") ":10:19:N$MU$(2):120:N1$:9:H18:L(N1$)1:820XHCH2200,2400,2600i 940:13:1:"Round the divisor.":N$ES$(1):120:10:13:N1$:940:13:1:ER$(N1$)10NUM1: WE WILL NOT DIVIDE BY ONE, THE ANS75 K1TL:1000:::3x41:1:958:2:LJ1:S$"Estimate the quotient:":610:ER$" "64:24:N$MU$(1):120:N1$:4:27:") ":4:29:N$MU$(2):120:N1$:3:H28:L(N1$)1:820:6:800A>10:13:N$MU$(1):120:N1$:G5:430:X:MX(2)XAVV92:S$"We will use 2 digit divisors."UV:610:MX(1)2^900hLG20wCH1LG517:1:958:18:S$"How many problems? (2-"(LG)")":H1:TC39:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:203:V:LJ8:S$(II)") "CH$(II):610:VV1:II:SM1:VV1V:S$"Your choice? (1-3) ":LJ1:LG3:610:430:V9:H91:CHX:X:LG20:CH1LG5V92:S$"How many digits in the dividend (the largest number)? (3-5)":TC39:H1:LI1:610:V9:H92:SM3:Linstructions? (Y/N) ":610:V9:H9:440:(X);:X89X121İ30000:12:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$V92:S$"And your last name? ":610:V9:H9:" ";NL$99:1:958:CN0:LJ1:S$"Do you want to:":610:V11:II1(3))):i~8AN:34::AN;"X";NU2;"=";(ANNU2)::910:22:1:958:8AN:34:AN;"X";NU2;"=";(ANNU2):V8:X09:V:34:X;"X";NU2;"=";(XNU2):VV1:X:QQ$"DIVISION DRILL":L$QQ$:RU1İ480TC35:LJ1:RU12008D10:S$"Do you want $(II)):ES(II)((ES$(II),L1)):II:AN$(2)((ES(2)ES(1)))K AN$(1) = ACTUAL ANSWER AN$(2)=EST. ANSWER AN$(3)=DEFFERENCE AN$(4) AND AN$(5) ARE LIMITS OF RANGELAN$(3)(((AN$(1))(AN$(2)))):AN$(4)((AN$(1))(AN$(3))):AN$(5)((AN$(1))(AN$:ES$(2)MU$ZE$: DIVIDEND ROUNDED8$(MU$(1))11090f%((MU$(1),2,1))5MU$(MU$(1),1):1080.MU$(((MU$(1),1,1))1)8AN(MU$):ES$(1)MU$"0": DIVISOR ROUNDED AND GET VAL FOR SKIP COUNT (AN)<BAN$(1)((MU(2)MU(1))):II12:L(ESS3XWKJ1:610:V9:25:657KRN$"":X512767:(X)141N$N$((X)128):Xl\II14:N$AN$(II)2190:IITC36:LJ5:R0::S$"Sorry, the correct answer is:":610:T$N2$:SS::990:WW1:2500300:2500 255:900 K:KK1:4700` S$"1:TC26:H1:610:V91:CH3ĢV92]925:N1$::810:::CH3Ģ10:3000:KTL900:2510>I1I910RO:N1$(I1):I1I1.5:I1(I1)10RO:N$(I1):120:N2$N1$:L(N1$):(N1$,1)" "N2$(N1$,L1)HAN$(1)N2$:AN$(2)(I1):105:S$"Your answer:":LV:S$"How many numbers do you want to round? (2 - "(LG)")":LI1:610:V9:H92:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2075 K1TL*1000:I99499992090::CH3ĉ::3#4N1$"":N$(I9):120:S$"Round "N$" to the nearest "J$".":LI}V12:S$"Round to the nearest?":V:LJ1:610:VV1:II1JX:LJ13:S$(II)")"J$(II):V:610:VV1:II:SM1:LGJX:VV1V:S$"Your choice? (1 - "(JX)") ":LJ1:610:430:V9:H92:X:J$J$(X):940:ROX:H1:TC38VV92:LG20:CH1LG5(II)") "CH$(II):610:VV1:IIvS$"Your choice? (1-3) ":LJ1:LG3:610:430:V9:H91:CHX:X:LG20:CH1LG5:|9:S$"How many digits in the largest number? (2-6)":TC35:H1:LI1:610:V9:H92:SM2:LG6:430:X:MXX:JX4:MX1JXJXMX1 ":LJ1:610:V9:H9:Z$:Z$"y"Z$"Y"İ30000>9:1:95810:S$"What's your first name? ":LJ1:610:V9:H9:" ";NA$12:S$"And your last name? ":LJ1:610:V9:H9:" ";NL$: LJ1:14:S$"Do you want to:":610:V16:II13:V:LJ8:S$990::400::!DE11000::4SS:610:NN:uL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:}:I9((1)(10MX)):QQ$"ROUNDING WHOLE NUMBERS":RU1İ480TC35:LJ1:RU12030.10:S$"Do you want a lesson? 790:770 :H5H52::nT$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940:21:1:958:*1:IL139:"=";::4H:HH1L1:"-";::R25:I1(MX1)2:"-";::PG1:23:T$" TO CONTINUE : TO EXIT "::21:1:958:V5:H5:W0:>24DC:X$:X$"."730:X$;1);YX$:X$"5"726:X$:k(7);:"5":(7);:".";1);:725W0:LR(N1$):V514:H5LR23:JJLR112:14:H5:X$:X$;:X$(N1$,JJ,1)ĺ(7);::V5:H5:X$;::WW1:W1);"WORD TOO LONG";: \W0:LE(N1$):JJ1LE2:H5(36)1:V5(37)1:X$:X$;X$(N1$,JJ,1)ĺ(7);:V5:H5::X$:V5:H5::WW1:W3715:JJJJ2:1);:::T$"ENTER A "(34)(N1$,JJ,1)(34)" PLEASE.":22::990:940::J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695::}vLTTC11:X$(S$,LT,1):X$SP$X$"-"670E2ĺ(S$,LT(X$SP$)):660I1LT:J((S$,I,1)):(J32(J95));:S$(S$,(S$)LT):LI1ĺ620::(7:480:4720Z ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: XH3:TC37 bL(S$):LTCH20(L2):L0ı gLJ0HLJJlH:(S$)TCāI1(S$)4):KE1284001 16368,0:XKE128:X27460:` 400:X13ĺ(7);:420: RETURN ROUTINEf  400:XX48:XSMXLGı: 1=4 ROUTINE (7);:430 400:X78X89X110X121ı: Y/N ROUTINE (7);:440 CH3K0ė:4710 (1))1& @I1330,340,350,360,370,380; JT$"Great!":390T TT$"Fantastic!":390i ^T$"Super!":390 hT$"You're really going now!":390 rT$"Yes! Yes! Yes!":390 |T$"That's great!" R1:::990:: 16368,0:16384,128:KE(16381$(N$,3)","(N$,3):167R N1$(N$,1):PL2(N$):N1$N1$" "(N$,PL,1):: N$N1$:N1$"":PL1(N$):N1$N1$(N$,PL,1)SP$:: I1(N1$):(N1$,I,1)"."180:I DCI: ,CH3NN1 1T13T5ĺ: REWARDS 6I1(6."::V3:800:2120'Z$"N"ė:2310EG113:23:(7)::2280a Z5:1:MM1:M114000x KK1:TT(K):2120:3:"YOU GOT ";N;" RIGHT OUT OF ";G;" ANSWERS, "::NA$;". ";:P((NG100).5):"THAT'S ";P;"%."25000A49ĺ"PLEAS58:V11:13::A(T);PD$;A$(A(T))::S$EX$(A(T)):V14:960:DE500:940:DE1500^Z5GG1pK3Z02280Z5:900:231023:1::"ANOTHER EXAMPLE, "NA$"? (Y/N) ";:Z$:Z$"Y"KK1:TT(K)::2:"TRY THIS PRACTICE SENTENCE, "NA$":2175>1:V1:958::13:A;".";A$(A):V12:AA(T)2195M300:2230gL1(I$(T))::BA(T):S$I$(T)" IS IN THE"A$(B)" DEGREE BECAUSE IT HAS"EN$(B):TC37:H3:V14:960:V14:H::I$(T)::B1ĺ::H3:LL3:850ODE3500:940:V1:9THE DEGREE OF COMPARISON FOR":990::T$I$(T)::990::V5:800:7:600WrVV92:800~u"THE DEGREE OF COMPARISON IS: ":wV1(37)zI13:13:I;".";A$(I):::V(37)1V:"YOUR CHOICE? (1, 2, OR 3) ";:A$A(A$)A0A4İ450":990:940:V2:958:21302WL9$X$:Z5GG1^a400:X$L9$::I$(T)X$İ300:900:2161f:T$"SORRY, "NA$". THE ADJECTIVE IS "I$(T)".":(T$)37T$"THE ADJECTIVE IS "I$(T)"."k990:998:HL(I$(T))1::I$(T):900Gq2:T$"GIVE V3:800:K1:TT(K)::O1HO1:4::D5$;::":";:S$"FIND THE "AJ$" IN THIS SENTENCE.":TC27:H13:610:O0:V(37)1:800:VV2:V:600MV(37):800RV2:"THE ADJECTIVE IS: ";X$TX$""āG113:(7);::V6:T$"PLEASE ENTER AN ADJECTIVE.EST":EN$(2)" AN "N$(2)EN$" ":EN$(1)" NO"EN$:EN$(3)" AN "N$(3)EN$:SS100:NN255wS$(20),I$(20),M$(20),A(20)I120:S$(I),I$(I),A(I):I13:EX$(I),E1$(I),H(I),L(I),E2$(I):>:30000C2:"TRY A PRACTICE SENTENCE, ";NA$;"."::HAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008NA$""āG113:20:(7)::18:S$"PLEASE ENTER YOUR FIRST NAME. (NO MORE THAN 8 LETTERS)":TC38:H1:960:V14:909:1:2008::"AND YOUR LAST NAME? ";NL$WEN$" ENDING.":N$(2)"-ER":N$(3)"- DEGREE":I13:D1$(I)TH$A$(I)DE$:qZ0:G0:N0::8:10:T$A$(2)" "AJ$"S":990:T1$T$:H1:LL1:85015:"WHAT IS YOUR FIRST NAME? ";NA$1(NA$)8āG113:20:(7)::18:S$"PLEASE ENTER A SHORTER FORM OF YOUR FIRST NAME. (NO MORE TE:: SS:610:NN:+ SS:990:NN:Z L(T$):H(20(L2)):H:T$;:PG1PG0:k :V9(37): A$(1)" POSITIVE":A$(2)" COMPARATIVE":A$(3)" SUPERLATIVE":CO$"COMPARISON":AJ$"ADJECTIVE":D5$"DIRECTIONS":L$"COMPARE.6"&TH$"THE":DE$"T::S30: ::2 H139:V:H:"-"::1:P *H139:V:H:"="::1:h RJ1L:"-";::1: \H139:V:H:"=":: PG1:23:T$"PRESS A KEY."::990::756::  PG1:23:T$"PRESS A KEY.":990::756:V:1:958: D1DCO0ĖH:A$::H:B$;:V4(37)1:H4(36)1::695X RTCO1ĖH:A$:H:B$:O0:695z Y110:(B$,TCY,1)" "680 Y C$(B$,TCY):R(B$)(C$):D$(B$,R) H:A$::H:C$::H:D$;:V4(37)1:H4(36)1: V9(37):S31Ė33:"T=";LEASE ENTER A 1, 2, OR 3."::910:? XS$S$(T):H3:TC37:S31a bL(S$):LTCT$S$:990:695 lY110:(S$,TCY,1)" "640 vY A$(S$,TCY):R(S$)(A$):B$(S$,R) L3(N$(B)):I11(B$):(B$,I1,L3)EN$(B)ĂI1 H3I1103 RT"GREAT, "NA$"!":380B hT$"THAT'S FANTASTIC, "NA$"!!!":380\ rT$"YES! YES! YES!"k |::990: L(L9$):S15:(L9$,1)" "420 LL1:L9$(L9$,L):S S15:(L9$,1)" "ı LL1:L9$(L9$,L):S:# (7):V:1:958::"PX(20),T(20),P(20)$ K1207T((1)20)1FX(T)120Z(X(T)1:T(K)T:2DE1500:SS100:NN255:PD$".":2000,Z5NN16I(5(1))1@I330,340,350,360,370JT$"EXCELLENT, "NA$"!":380TT$"GOOD JOB!!":380 ^T$"" " " " " """""""""