' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӖu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-># ( p8 YϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`(@*U*U*@*U*UЂP*pU*U*UU*U*ԊԀШ $9w  @U*UT*U*UT*U*(U*UՂЪŪԊՀժp P*(U*U*(U*U U*ԀĊԀp U*U*p D @(U*U*A*U*U*A*U*U@*U*U*Ԡp @" @ "D@ @ DP*U*(U*U*ЀP*A(jL 9SN " *U P*U*Up*@*U*U*@*U*UP*pU*U*UU*U*ԊԀШU*UT*U*UT*U**U*UՀԀЪŪԊŪpD @ @  @P* U*U* U*U*U*ԀĊԀp U*U*p@  @*U*U*Ԁp"@@ D  @P*U*(U*U*Ԁ0DAc@*U P*U*Up*@*U*U*@*U*UP*pT*U*UT*U*ԊԀШ U*U P*U*U T*U**U*UՀԀЪŪԊŪp @" D"D""D@ DP* U*U* U*U* U*Ċp UU*U*p D "D@*U*U*Ѐp @" @ D@ @ DT*U*(U*U* *U*@*U*UԪՂԪp**U*U**U*UT*ՂpT*U*UT*U*ԊԀШ U*U P*U*U T*U**U*UЂԀp"D"@ @@D @ DT* U*U* U*U* U*ĊՀp UU*U*p@  @*U*U*Ѐp"@"@ @"D  DT*U* U*U* $@;'@4F9L@+@*U*@*U*UԪՂԪp@**U*U**U*UT*ЪՂՂՊՀpT*U*UT*U*ЀԪժժ@ U*U P*U*U P*U*@*U*UЀp @" D"D""D"@ DT*UU*U*UU*U* U*ԊՀp  UU*U*p @ "@(U*U*Ђp @"@ D "D"@ @ DT*U* U*U*J!% e*(9)@*U*@*U*U ԪԪըՂժp @@**U*U**U*UT*ЪՂՂՊՀpP*U*U P*U*ЀԪԂ@ (U*U*@*U*U*P*U*@*U*U Ԁp"@@ D@D D @T*UU*U*UU*U*(U*ՂЂԀĂpD(UT*U*p(U*U*p"@"@ @"D  DU*U* U*U*B9' 5*$ 9V )@*U**U*U ԀЀp0d@kjL )sDW,@*(U*U*(U*U T*ԠԈpP*U*U P*U*ЀԪԂ@ p(U*U*@*U*U*@*U*@*U*U p @" @ D@ @ U*UU*U*UU*U*(U*UՂЂԀĂp (UT*U*Up(U*U*p D"@  "@@ @ U*U*UU*U*ԊJ@)E aBD+# @*U**U*U ԀЀpP A(.UT:UdRP*(U*U*(U*U U*ԈpP*U*U P*U*UЂ@ p(U*U*@*U*U**U*U@*U*U p"@@ @D  @U*UT*U*UT*U*(U*UՂЂԀԠp@ (UT*U*Up U*U*p @          :48043100+ CH3REVIEW1REVIEW0= 900:K:4700i 9:1:"Find the quotient:":PL12:SP12& VV0:12:L(SE$(1))1:10:850:13:9(SE$(2)):SE$(2);" ) ";SE$(1):940:CH3200,3200,34000 2710 NM$(D(1))# CH1Ģ9:22:"Make a LI1:610:V9:H92:430:N1A:A6LG3:N1LGLGN1JSM1:N15SM217:LJ1:S$"How many digits in the smallest number? ("(SM)"-"(LG)") ":LI1:610:V9:H92:430:N2A:AK1TL%T$"Please wait...":23:990*1000:23:1:958"Your choice? (1-3) ";:430:CHA:A:LG20:CH1LG5:10:S$"How many problems? (2-"(LG)") ":H1:TC35:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2071 SM2:LG5:14:LJ1:S$"How many digits in the largest number? (2-5) ":u want instructions? (Y/N) ";:440:(A);:A$"Y"A$"y"İ30000:n12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$ SM1:LG3:16:1:"Do you want to:":V18:II13:V:8:(II)") "CH$(II):VV1:II:SM1422:1:II:40:" ":II:S(:11:H1:JJH41:" ";:JJ:22:H1:JJH41:" ";:JJ::FC91:II1122:II:25:" ":II:QQ$"LONG DIVISION":ER$" ":480:TC35:LJ1:RU12008B10:1:"Do yo),Q,1)):Q:.2LN1$(NN$,1):(NN$)91120\VR2(NN$):N1$N1$SP$(NN$,R,1):Rb`C92:AR$"=>":V12:L6(S$(2)):H39(L69)SK09:AN$(SK)(SKS(2)):VSK:H1::" ";::SK;" X ";S$(2);" = ";AN$(SK):SK:ARH3:II09:VS(Q)DI(10(R1)):R:Q:S(3)S(1)S(2)lMD0S(7)(S(1)S(2)):S(6)(S(1)(S(7)S(2))):S(7)9991030Q13:S$(Q)(S(Q)):SE$(Q)(S$(Q),1):S(Q)91058R2(S$(Q)):SE$(Q)SE$(Q)SP$(S$(Q),R,1):R"Q $Q1(S$(1)):D(Q)((S$(1 MATH ROUTINEsMD0:: IF K / 2 = INT (K / 2) THEN MD = 1: REM DIVIDE ODD NUMBERSN(1)N1:N(2)N2:MD$" quotient":MD1MD$" product"Q18:S(Q)0:SE$(Q)"":S$(Q)"":Q(Q12:RN(Q)11:DI((1)9)1:S(Q)> TO EXIT "::990::400::fPG1:23:T$" TO CONTINUE : TO EXIT "::990::400:T$"ENTER "Q$SS$Q$" PLEASE."::23:990::400:DE12000::L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0::I1LT:J((S$,I,1)):(J);::? S$(S$,(S$)LT):LI1ĺH 620i ::(7);"WORD TOO LONG";:o  1:I139:"=";:: !1:I139:" ";:: 4H:I1L1:"-";:: RI1L1:"-";::PG1:23:T$" TO CONTINUE : <ꙑ> >=i?<>#< 噥mP?Q u ~ uLPȱP` $ L @ `g:h;噩㙍 7 y㙍虭䙍陥m *5> *o8mPpnQ $ PQ @ > *rPQ u ~ u T LINE TO BE RENUMBERED (RETURN = END OF PROGRAM)FIRST LINE TO BE RENUMBERED (RETURN = START OF PROGRAM)INCREMENT BETWEEN LINES (RETURN = 10)STARTING LINE NUMBER (RETURN = 10)ϠQ , { RPQLƐNO PROGRAM IN MEMORYLINES NOT FOUNDINC TOO LARGEDUPLICATE LINE NUMBER ATOUT OF MEMORYPROGRAM HIDDENHIDE BUFFER IN USEPROGRAMS MERGING...ERROR: LINE# > 63999LINE TOO LONGINC = 0 -->WAIT...m5LASsthhLL`EȱEi棠 ȱȱ`ijEȱEi槠`+H h` $ mmȩ`Lɐ’ L< 5, , { RPhȱȘeiȑ ]Lz ' (iLsůtLLg'h(s)t*stsưƯsgůh尐giihijgZ tLu G/ ^& &^ &^e^e&e  LhhLȪ`棟膨`hhH th tLu ' (8stijLLstKgh'ȱQȱQvu 3L LKȱȘeiL;| tghLBC)>*?s $ ?ۤ> .L3 gLpH h` 6L9Ɉɋ`ɕɊ` ?`<:=; c;.:*  5 % %  :; < ч` % Lk φ hh$0LL3$L6 ٭i釥hh  ,@BAC m:hh L hhh`$Lw Υ<)<)i<=i=<=  `hhh   Ɔ c   HHHHH `  Ɔ<i<=i=B>C?hhhhh < Ls8`@A`<=`ɠɛɓɠɃ` L LCLL L<  >?`1 >?>??C/=<$0 @L< >=?<) D < <)($ ɠ  ($04 )HH<) <8<==<)i<=i=h h`H<)hL φ$,0턹ȹ8L,8 ` ȭ`, L ` ` ҁ`8#`8`܄݄ ܄݄$݄܄ $ބLń߄H ӄh` Le FREE SECTORS d'D贅E B ӄƴ ӄ, yLL 0L, ӄΝ㩀턍L؃  _ l  L؃88LLK,Ș ȹ  _ lH _hɃhh"#L[ , h02`ҺŠϠ ܫ,phhL 턍 6  ӄED B ӄ"# L2,ҎƴL2Νn,   _L΂ ӄƴ0Gȴ ӄȴ)  ӄ ӄe< fA< =h ~$?A = ,0 = =A L` ,0ɠ<H?2h )`< H$h, ɠ Lɠ )H h`Lڱ`55`55`Ɉɋ`ɕɊ`` H h` $H L`>=`C@A,-.=/> f$?0<  =Ȅ< =)$?$$@ :@A f<: = =L€,0 - =< fA<$? < =ȱ f::  ` }0ALd$?0 H ~  nL~C => $>=ɠɛɓɃ8 L)   ; L| )  { RP=Q>`./gh.ȱ>=.ȱ/,- $@0@@(`B ~B ,BB`8Єτ ,0`ɛɓɠɃL<ɠ `,`:<: ɱɺ ::<`hh >= / .   ҁ oL\ C $20  Ҁ$?0 C$?0$$?($@$: @A 9~ ȁ$: n$?,0 6   n,  9~  ȁA$?0$ȱ/ȱL| \, ҁ  q~L< }0AL|$?0H ~e 9~ ȁA$h ~$?A n ,0 n nA L|$?"2)L|L| L`8f?  , ֠ȱ ,л ЯhhPQPQPQ  ڥP8$?02 6L|} 9~ ȁ@Aȱȱل>= >= $$?$ ) h(hh`h,` 6 L<,W,T,R,P,V,U,S  ((((*(((1<((EN((((|W  !{{0{|W '*{6{NONELISTCATALOG,D1H/A DUMP $CONVERT CURSORCATALOG,D2DISASM $AUTO-NUMPEEK(Ѝ 8z9L,0)$ LB>@C@=@? ,C ԧ@s"Let me show you this one.":910:14:1:958:618092U2CH3REVIEW1REVIEW0_22085Z"::990:*1Z14:1:"Your answer: ";SA$T1d(SA$)(SE$(3))Ģ17:958:300:910Z1np1x : OPTION 3123:T$" NO COMMAS PLEASE! "::990:114:1:"Your answer: ";SA$1(SA$)(SE$(3))Ģ17:958:300:910:657032REVIEW1:17:1:HH38:JJ(S$(3))11:SS$(S$(3),JJ,1):MM13:V2:HH:"_":V2:HH:Z$:Z$SS$64500(MM:930:V2:HH:"_":V2:HH:Z$02MM0:V2:HH:(S$(3),JJ,1):940:HHHH2:18:958:JJ0<300:0F : OPTION 4 1P23:T$" NO COMMAS PLEASE! 9:HP1(VV2)::CA$:940:V::HP:" "6/17:958y/HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940/ VVVV1:9:ER$:910:17:958:II/N216300:V1:L(SE$(3))1:38L:850:V2:1:"Add the partial":V3:1:"products."[0$.5:S$" = ";:H7(36)1L.I13:20:H7:SA$:SA$(AA)İ300:6370.20:H7:" ":I:SS$(AA):930:20:H7:" ":20:H7:SA$.CA(AA10):CA$"":HPHH:CA0HPHH1:CA$(CA)(/V:HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:t-V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" ="-CA$"":JJN(1)11:.18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CAJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940Z,~VVVV1:9:ER$:910:17:958:II,N216300:V1:L(SE$(3))1:38L:850:V2:1:"Add the partial":V3:1:"products.",HH38:JJ(S$(3))11:V2:HH:(S$(3),JJ,1):940:HHHH2:JJ-" X "(D(JJ)):CA$""S$S$" + "CA$^+L5::SP$S$" = "(AA)SP$::CA(AA10):CA$""+VHPHH:CA0HPHH1:CA$(CA)+`V:HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" "+j17:9583,tHHHH2:JK520,6470*6580*$V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" ="*.DE1000:MU1DE1*8CA$"":JJN(1)11:(+B18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)$(1),Q,1)):Q:)') * MULTIPLY *H)T$"Please wait...":22:990a)6000:22:958:480)10:1:"Multiply these numbers:":)VV0:V10:I12:VVV:39(SE$(I)):SE$(I):VVVV1:I)L(SE$(1)):H39L:12:H:850*JK1:CH6180,6310,6(Q)0:SE$(Q)"":S$(Q)"":Qo(Q12:RN(Q)11:DI((1)9)1:S(Q)S(Q)DI(10(R1)):R:Q:S(3)S(1)S(2)(Q13:S$(Q)(S(Q)):SE$(Q)(S$(Q),1):S(Q)96070(R2(S$(Q)):SE$(Q)SE$(Q)SP$(S$(Q),R,1):R(Q)Q1(S$(1)):D(Q)((SL1:820:V93:LJ5:LI0:II25160:S$D3$(II):610:900:c'(TC36:LJ3:S$D3$(II):610:900::|'p MATH ROUTINE'zMD0:K2(K2)MD1: DIVIDE ODD NUMBERS'N(1)MX(1):N(2)MX(2):MD$" quotient":MD1MD$" product"(Q18:S10:VV92:I1:I114:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:900& JJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1&S$D1$(I1):LJ5:V:610:VV93:VV1:900:;'10:II12:S$D2$(II):LJ0:610:Lems."J%D$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A495110b%L$"Mixed Problems"%AA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";A:NL$:NA$:L$:KW:K:P%D$;"CLOSE":L&LI1::TC34:V10:I112:S$D1$(I1):LJ5:V:6mber you want to work with -- from 1 digit numbers (like 8) to 5 digit numbers (like 63,597)."% "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 problach step, and help you if you make mistakes."# "The third option is to work problems in steps yourself. For this option, you might need pencil and paper."# "Number of Digits", "Number of Problems"^$ "You may decide on the size of nulearn to divide problems with large numbers.","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 e);"RUN HELLO"!:RU1:1j! "Great!","Fantastic!","Super!","Good job!","Right on!","That's great!"! "See examples done.","Do examples with help.","Step by step.","Do problems yourself."X" "This program will help you 480::P((NK)100.5):5080::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610 :"Do you want to play again? ";:440:A$"Y"A$"y"4060 T$"Loading Menu...":20:1:T$ : !:(41:3200p & MI0:SM0:LG9:TR2g TRTR1:9:22:400:A$"c"A$"C"ĴZ1300,1350:9:22:3501 A(A$):AANTR3:3520 9:22:MIMI1:SS$(AN):198:MI2930 TR23501 MI0300:22:1:958:MI0: :KK1:CH44020198:1:3410\ (SA$)MU(3)Ģ16:"Now enter the remainder: ";SA$:(SA$)(((MU(1)MU(2)((MU(1)MU(2))))MU(2).05)(MU(1)MU(2)))İ300:f 9:1:"Watch this one. ":10:ER$:16:1:" ":910:23:1:958:REVPRESS "Q$"C"Q$" FOR A SKIP COUNT."::990::10:1:"(Without the remainder)"R 9:"Enter the quotient: ";SA$:SA$"C"SA$"c"İ1300:3410U (SA$)1Č198:198:3410W SA$""SA$" "(((SA$,1))48((SA$,1))57(SA$"C"SA$"c"))Č198:0:LG9:TR0a TRTR1:9:22:400:A$""A$" "ĺA$;:A$"c"A$"C"ĴZ1300,1350:9:22:3301x A$""A$" "3301 A(A$):AANTR3:3320 9:22:MIMI1:SS$(AN):198:MI2930 TR23301 MI0300:22:1:958:MI0:QH 23:T$"940 N1$(RM) 9:1:801:9:1:"Take the next number.":1100:NN$N1$:1200:940:14SU:PL2(((RM))1):NN$:PLPL2:3290 N1$"":1100 940:3210 9:1:801:9:1:"The answer is: ";MU$(3);", R ";RM:REV1REV0:  MI0:SM:V2:H22(((ANMU(2)))((RM))):NN$(RM):1200:CH31400:NN$:3291a RMN1(ANMU(2))~ L2(N1$)1:9:801:940 NN$(RM):1200:CH31400:9:1:"Subtract: ";N1$;" - ";(ANMU(2));" = ";RM:SPPLL2:940:14SU:PL2(((RM))1):NN$:(2))):V14SU:HPL2(SU2)(NN(MX(2)1))2:NN$(ANMU(2)):1200:AN$NN$:V:H((NN3)SU1)2(SU1)2:AN$:L(AN$):V1:H((NN3)SU1)2(SU1)2:850:SUSU2L 1350:DG(MU$(1))RM(((MU(1)MU(2)((MU(1)MU(2))))MU(2).05)(MU(1)MU(2)))0 CH1İ1300, Z1Ģ11AN:AR:AR$;Z AN0DG(MU$(1))SU1Ģ11:PL:AN:3281 AN0DG(MU$(1))PLPL2:11AN:AR:940:" ":1100:3210 11:PL:AN:12AN:AR:940:" " SU0SUSU1 MX(2)2SU1PLPL2 NN((ANMU2710+ AN0:SU0:PL12:SP12:DG0:N1$""n CH1Ģ9:22:"Make a skip count.":940:1300:9:22:940:SU0x 1100 (N1$,1)"0"N1$(N1$,(N1$)1) 1450:9:1:801:9:1:AN(N1MU(2)):"How many "MU$(2)"'s in "N1$"? ";:CH940,3300,35090*1000:23:1:958:480(43100D CH3REVIEW1REVIEW0^ 900:KK1:KTL4000h 2078 9:1:"Find the quotient:":PL12:SP12& VV0:12:L(MU$(4))2:10:850:13:9(MU$(5)):MU$(5);" ) ";MU$(4):940:CH3200,3200,3200,34000 :S$D3$(II):610:900::A0_&5uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1&:uS$D1$(I1):LJ5:V:610:VV93:VV1:900:&Du10:II12:S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II230030:S$D3$(II):610:900:'NuTC36:LJ3%aL$"Long Division"o%aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";A:NL$:NA$:L$:KW:K:P%bD$;"CLOSE":&0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:I1:I114:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:90ers (like 63,597)."$ "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."%aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110o work problems in steps yourself. For this option, you might need pencil and paper."#r "Number of Digits", "Number of Problems"$| "You may decide on the size of number you want to work with -- from 1 digit numbers (like 8) to 5 digit numbthe 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."V#h "The third option is tb!","Right on!","That's great!"!J "See examples done.","Do examples with help.","Step by step.","Do problems yourself." "T "This program will help you learn to divide problems with large numbers.","There are three ways to use (K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610~ :"Do you want to play again? ";:440:A$"Y"A$"y"4060 T$"Loading Menu...":20:1:T$ : :(4);"RUN HELLO" :RU1:1!E "Great!","Fantastic!","Super!","Good jo"ĴZ1300,1350:9:22:35018 A(A$):AANTR3:3520e 9:22:MIMI1:SS$(AN):198:MI2930t TR23501 MI0300:22:1:958:MI0::KK1:CH34020? 480::P((NK)100.5):25000::S$"You got "(N)" right out of ")(((MU(1)MU(2)((MU(1)MU(2))))MU(2).05)(MU(1)MU(2)))İ300:f 9:1:"Watch this one. ":10:ER$:16:1:" ":910:23:1:958:REV1:3200p  MI0:SM0:LG9:TR2 TRTR1:9:22:400:A$"c"A$"Cder)"ER 9:"Enter the quotient: ";SA$:SA$"C"SA$"c"İ1300:3410eU (SA$)1Č198:198:3410W SA$""SA$" "(((SA$,1))48((SA$,1))57(SA$"C"SA$"c"))Č198:198:1:3410E\ (SA$)MU(3)Ģ16:"Now enter the remainder: ";SA$:(SA$300,1350:9:22:3301, A$""A$" "3301I A(A$):AANTR3:3320v 9:22:MIMI1:SS$(AN):198:MI2930 TR23301 MI0300:22:1:958:MI0:H 23:T$"PRESS "Q$"C"Q$" FOR A SKIP COUNT."::990::10:1:"(Without the remain$:1200:940:14SU:PL2(((RM))1):NN$:PLPL2:3290J N1$"":1100Y 940:3210 9:1:801:9:1:"The answer is: ";MU$(3);", R ";RM:REV1REV0:  MI0:SM0:LG9:TR0 TRTR1:9:22:400:A$""A$" "ĺA$;:A$"c"A$"C"ĴZ1 RMN1(ANMU(2))2 L2(N1$)1:9:801:940 NN$(RM):1200:CH31400:9:1:"Subtract: ";N1$;" - ";(ANMU(2));" = ";RM:SPPLL2:940:14SU:PL2(((RM))1):NN$:940 N1$(RM)9 9:1:801:9:1:"Take the next number.":1100:NN$N1V:H((NN3)SU1)2(SU1)2:AN$:L(AN$):V1:H((NN3)SU1)2(SU1)2:850:SUSU2 1350:DG(MU$(1))RM(((MU(1)MU(2)((MU(1)MU(2))))MU(2).05)(MU(1)MU(2))):V2:H22(((ANMU(2)))((RM))):NN$(RM):1200:CH31400:NN$:3291:PL:AN:3281O AN0DG(MU$(1))PLPL2:11AN:AR:940:" ":1100:3210u 11:PL:AN:12AN:AR:940:" " SU0SUSU1 MX(2)2SU1PLPL2[ NN((ANMU(2))):V14SU:HPL2(SU2)(NN(MX(2)1))2:NN$(ANMU(2)):1200:AN$NN$:ount.":940:1300:9:22:940:SU0, 1100R (N1$,1)"0"N1$(N1$,(N1$)1) 1450:9:1:801:9:1:AN(N1MU(2)):"How many "MU$(2)"'s in "N1$"? ";:CH940,3300,3500 CH1İ1300 Z1Ģ11AN:AR:AR$; AN0DG(MU$(1))SU1Ģ11."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`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.":DE11000 D3$(II):610:900:<+NuTC36:LJ3:S$D3$(II):610:900::JI1):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:VV1:900:+Du10:II12:S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II230030:S$1REVIEW0 900:K:4000H 9:1:"Find the quotient:":PL12:SP12& VV0:12:L(MU$(4))2:10:850:13:9(MU$(5)):MU$(5);" ) ";MU$(4):940:CH3200,3200,3200,34000 2710 AN0:SU0:PL12:SP12:DG0:N1$""" CH1Ģ9:22:"Make a skip c(1)LGLGMX(1)&SM1:MX(1)5SM217:LJ1:S$"How many digits in the smallest number? ("(SM)"-"(LG)") ":LI1:610:V9:H92:430:MX(2)A:AK1TL%T$"Please wait...":23:990*1000:23:1:958:48043100  CH3REVIEWЖ1:"Your choice? (1-4) ";:430:CHA:A:LG20:CH1LG5:10:"How many problems (2-";(LG);") ";:TL$:TL(TL$):TL2TLLGė:2071SM2:LG5:14:S$"How many digits in the largest number? (2-5) ":LI1:610:V9:H92:430:MX(1)A:ALG3:MX"Do you want instructions? (Y/N) ";:440:(A);:A$"Y"A$"y"İ30000:u12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$ SM1:LG4:16:1:"Do you want to:":V18:II14:V:8:II;") ";CH$(II):VV1:II:SM1822:198:198:1400}A(A$),ARMİ300:B198:940:940:CH2CH3Ģ23:T$"PRESS "Q$"C"Q$" FOR A SKIP COUNT."::990:QQ$"LONG DIVISION":ER$" ":480:TC35:LJ1:RU12060I10:1:U$(2);" = ";AN$(SK):SK:ARH23C:I909:V2I9:40:" ":I9:(:10:H21:JJH241:" ";:JJ:21:H21:JJH241:" ";:JJ::FZ1:II1021:II:25:" ":II:x9:1:"Subtract: ";N1$;" - ";(ANMU(2));" = ";:A$:A$""Č(MU$(R1),R2,1):R2,R1$KLDGDG1:N1$N1$(MU$(1),DG,1):N1(N1$):TM$(NN$,1):R2(NN$):TM$TM$SP$(NN$,R,1):R:NN$TM$:Z2:AR$"=>":V211:L6(MU$(2)):H239(L69)SK09:AN$(SK)(SKMU(2)):V2SK:H21::" ";::SK;" X ";M)(MU$(O)):OZ(MU$(2))9999MX(2)3MU(2)100(((1)101)):MU$(2)(MU(2)):1015((MU$(1),MX(2)))(MU$(2))MX(1)31000MU(3)(MU(1)MU(2)):MU$(3)(MU(3))R113:MU$(R13)(MU$(R1),1):R22(MU$(R1)):MU$(R13)MU$(R13)SP$EXIT "::990::400:_23:801:T$"ENTER "Q$SS$Q$" PLEASE."::23:990::22:9:400:qDE1500::L(T$):H120(L2):H1:T$;:H9(36):V9(37)1:PG1PG0:O12:MU$(O)"":I1MX(O):MU$(O)MU$(O)(((1)9)49):I:MU(O::(7);"WORD TOO LONG";:! : 1:I139:"=";::S !1:I139:" ";::m 4H:I1L1:"-";:: RI1L:"-";:: PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::PG1:23:T$" TO CONTINUE : TO H3:TC37/ bL(S$):LTCH20(L2):L0ı? gLJ0HLJy lH:(S$)TCĺS$;:H9(36):V9(37)1::JJ0695:: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 I1LT:J((S$,I,1)):(J);:: S$(S$,(S$)LT):LI1ĺ 620 (J$,YY1):z &DD1(SU$):CY(DD)0:DD:C1JX:DD1:D(AD$(C))12:D(AD$(C))6A1$(C,DD)(AD$(C),D,1):DDDD1 0D:C :D1DD1:C1JX:C1(C,D)(A1$(C,D)):CA(D)CA(D)C1(C,D):C:D:D1DD1:CA(D)CA(D)CY(D):CY(D1)(CA(D)10):D XL ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: J1$"":YY(J$):B1YY:J((J$,B,1)):J1$J1$(J32(J95)):B: YY(J$):AS((J$,1))32:J$(AS) ;S$RW$(I1)I @23:1:958:23:20((S$)2):S$:940:23:1:958:a A$:A$(27)460: 400:A$(13)Č198:420  400:A(A$):ASMALGı 198:430 400:A$"N"A$"n"A$"Y"A$"y"ĺA$: (7);:440 19:4000 DIVISION 7/11/88#Z1/FS1(11)DKI16:RW$(I):YPI14:CH$(I):oZI15:D1$(I)::_I12:D2$(I)::I12:D3$(I):dMU$(2)"":I1MX(2)fQ$(34):PD$".":DE1000:SP$(32):2000,CH3NN16I1(6(1))1                    1)LGLGMX(1)%SM1:MX(1)5SM217:LJ1:S$"How many digits in the smallest number? ("(SM)"-"(LG)") ":LI1:610:V9:H92:430:MX(2)A:AN1MX(1):N2MX(2):K0KK1:((K2(K2))20.5)(K2)6100%T$"Please wait...":23:91:"Your choice? (1-4) ";:430:CHA:A:LG20:CH1LG5:10:"How many problems (2-";(LG);") ";:TL$:TL(TL$):TL2TLLGė:2071SM2:LG5:14:S$"How many digits in the largest number? (2-5) ":LI1:610:V9:H92:430:MX(1)A:ALG3:MX("Do you want instructions? (Y/N) ";:440:(A);:A$"Y"A$"y"İ5120:t12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$ SM1:LG4:16:1:"Do you want to:":V18:II14:V:8:II;") ";CH$(II):VV1:II:SM1723:98:198:1400}A(A$)+ARMİ300:A198:940:940:CH2CH3Ģ23:T$"PRESS "Q$"C"Q$" FOR A SKIP COUNT."::990:QQ$"MIXED PROBLEMS":ER$" ":480:TC35:LJ1:RU12060H10:1:$(2);" = ";AN$(SK):SK:ARH23B:I909:V2I9:40:" ":I9:(:10:H21:JJH241:" ";:JJ:21:H21:JJH241:" ";:JJ::FZ1:II1021:II:25:" ":II:x9:1:"Subtract: ";N1$;" - ";(ANMU(2));" = ";:A$:A$""Č1(MU$(R1),R2,1):R2,R1$JLDGDG1:N1$N1$(MU$(1),DG,1):N1(N1$):TM$(NN$,1):R2(NN$):TM$TM$SP$(NN$,R,1):R:NN$TM$:Z2:AR$"=>":V211:L6(MU$(2)):H239(L69)SK09:AN$(SK)(SKMU(2)):V2SK:H21::" ";::SK;" X ";MU(MU$(O)):OY(MU$(2))9999MX(2)3MU(2)100(((1)101)):MU$(2)(MU(2)):1015((MU$(1),MX(2)))(MU$(2))MX(1)31000MU(3)(MU(1)MU(2)):MU$(3)(MU(3))R113:MU$(R13)(MU$(R1),1):R22(MU$(R1)):MU$(R13)MU$(R13)SP$XIT "::990::400:^23:801:T$"ENTER "Q$SS$Q$" PLEASE."::23:990::22:9:400:pDE1500::L(T$):H120(L2):H1:T$;:H9(36):V9(37)1:PG1PG0: O12:MU$(O)"":I1MX(O):MU$(O)MU$(O)(((1)9)49):I:MU(O)610:900:3$NuTC36:LJ3:S$D3$(II):610:900::CV:610:VV1:I1:VV1:900y#5uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1#:uS$D1$(I1):LJ5:V:610:VV93:VV1:900: $Du10:II12:S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II230030:S$D3$(II):):NA$""NA$"No name"1"aNL$""NL$"No name""aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";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:er do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."! "ones","tens","hundreds","thousands","ten thousands"!aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110"aL$"Mixed Practice-"J$(N11:(7);"WORD TOO LONG";: 9 1:I139:"=";::R !1:I139:" ";::l 4H:I1L1:"-";:: RI1L:"-";:: PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::PG1:23:T$" TO CONTINUE : TO E"J$(N11):NA$""NA$"No name":)aNL$""NL$"No name")aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";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$(the computer do the work, you may only have 5 problems; otherwise you may have from 2 to 20 problems."( "ones","tens","hundreds","thousands","ten thousands"(aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110 )aL$"Mixed Practice-per."9'r "Number of Digits", "Number of Problems"'| "You may decide on the size of number you want to work with -- from 1 digit numbers (like 8) to 5 digit numbers (like 63,597)."f( "Last, you decide how many problems to do. If you let 3:TC37. bL(S$):LTCH20(L2):L0ı> gLJ0HLJx lH:(S$)TCĺS$;:H9(36):V9(37)1::JJ0695:: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 I1LT:J((S$,I,1)):(J);:: S$(S$,(S$)LT):LI1ĺ 620 :(J$,YY1):y &DD1(SU$):CY(DD)0:DD:C1JX:DD1:D(AD$(C))12:D(AD$(C))6A1$(C,DD)(AD$(C),D,1):DDDD1 0D:C :D1DD1:C1JX:C1(C,D)(A1$(C,D)):CA(D)CA(D)C1(C,D):C:D:D1DD1:CA(D)CA(D)CY(D):CY(D1)(CA(D)10):D XH ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: J1$"":YY(J$):B1YY:J((J$,B,1)):J1$J1$(J32(J95)):B: YY(J$):AS((J$,1))32:J$(AS);S$RW$(I1)H @23:1:958:23:20((S$)2):S$:940:23:1:958:` A$:A$(27)460: 400:A$(13)Č198:420  400:A(A$):ASMALGı 198:430 400:A$"N"A$"n"A$"Y"A$"y"ĺA$: (7);:440 19:4000K`* MUL/DIV 7/13/88"Z1.FS1(11)CKI16:RW$(I):XPI14:CH$(I):nZI15:D1$(I)::_I12:D2$(I)::I12:D3$(I):dMU$(2)"":I1MX(2)fQ$(34):PD$".":DE1000:SP$(32):2000,CH3NN16I1(6(1))1                             0:900::535:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1#:uS$D1$(I1):LJ5:V:610:VV93:VV1:900:#Du10:II12:S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II230030:S$D3$(II):610:900: $NuTC36:LJ3:S$D3$(II):61>.>.>.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- $$$$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 );          0:I120:"][";::"]"]:3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::T":990:5:T$QQ$:990:34,8:: the child","misses a problem."%XBH20((T$)2):H:T$:::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]":3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::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": "Done' or the 'Do Examples With Help'","option. In most of the programs the","concepts are retaught whenGRADES 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..." " 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     z#   ˠ  ɠ!Ϡ ӮԠ ŠӠ Ԡ)ҠΠ ֠îӠ Բà! ˠ ̠!֠%ΠϠ Π!ĠӠ  ֮à!٠ ٠̠֯,7:"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 GRADES FILE"  :d245010008RH:IHHL:"-";::s23::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 GRADES FILE EITHER ON THE ":    (1-3) ";:430:CHX:X:LG20:CH1LG5:10:S$"How many problems? (2-"(LG)") ":H1:TC35:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2071SM2:LG5:14:LJ1:S$"How many digits in the largest number? (2-5) ":LI1:610:V9ctions? (Y/N) ";:440:(X);:X$"Y"X$"y"İ30000:a12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$ SM1:LG3:16:1:"Do you want to:":V18:II13:V:8:(II)") "CH$(II):VV1:II:SM1'22:1:"Your choice?):S(Q)91058CR2(S$(Q)):SE$(Q)SE$(Q)SP$(S$(Q),R,1):RJ"Qu$Q1(S$(1)):D(Q)((S$(1),Q,1)):Q:{.QQ$"MULTIPLICATION":ER$" ":480TC35:LJ1:RU12008510:1:"Do you want instru)MD1: DIVIDE ODD NUMBERSZN(1)N1:N(2)N2:MD$" quotient":MD1MD$" product"Q18:S(Q)0:SE$(Q)"":S$(Q)"":QQ12:RN(Q)11:DI((1)9)1:S(Q)S(Q)DI(10(R1)):R:Q:S(3)S(1)S(2)Q13:S$(Q)(S(Q)):SE$(Q)(S$(Q),1ETURN> TO CONTINUE : TO EXIT "::990::400:r T$"ENTER "Q$SS$Q$" PLEASE."::23:990::940:940: D1DE::DE1500: L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0: :  MATH ROUTINE!MD0:K2(K295));:& S$(S$,(S$)LT):LI1ĺ/ 620P ::(7);"WORD TOO LONG";:V o 1:I139:"=";:: 4H:I1L1:"-";:: RI1L1:"-";:: PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::4 PG1:23:T$" FS1(11)SKI16:RW$(I):hPI13:CH$(I):}dI15:MU$(I):fPD$".":DE1000:SS100:NN255:CM$", ":P0:M0:G0:N0:SP$(32):E2(637)223:2000,CH3NN16I1(6(1))1 ;           $ TITLE MULDIV 8/31/87LD$"": CNTRL DV ::sdD$;"BLOAD MULTI,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          πD~π#L*q(EπD~ψĈĈĈĈĈĈĈO"D"D"D"D~O~O~O~QrTJO~+eW*U*U*U*U*U*U*U*U*U*U*U*U*U*O~O~)*e)O~ĈĈĈĈψĈĈĈ"D"D"D"D"D~ππD~ππD~πD~UbQ πD~+EπD~ πD~π(1*E#~πD~ψĈĈĈ          ...."j D$;"RUN HELLO"c Y(222):Y5Ģ16:958:18:"THERE ARE NO GRADES IN THE FILE.":2390 ::10:"UNUSUAL ERROR CODE - ";Y;"." :10:"SEE YOUR DOS MANUAL." ZE) SP$" ":L((N(I)))16((G(I))):SP39L:J1SP:SP$SP$" ":t. N(I);" CORRECT OUT OF ";G(I);SP$;P(I);"%"}8 :IB :"END OF ";F$;" FILE."L D$;"PR#0"V 23:"PRESS ANY KEY TO RETURN TO THE MENU.";:G$` :10:10:"ONE MOMENT PLEASECN(I);" CORRECT OUT OF ";G(I),P(I);"%"@ HJJ1:J6İ900:J0G RId \:"END OF ";F$;" FILE."n 2390} D$;"PR#1"  30:F$;" FILE"::  I1A:SP$" "  L(N$(I))(NA$(I)):SP37L:J1SP:SP$SP$" ":$ N$(I);", ";NA$(I);SP$;L$(I)" :PRINT  I) D$;"CLOSE ";F$Q :10:"*** ";F$;" FILE CLOSED ***"b Z2090,2300h u Y(222) Y52040 "UNUSUAL ERROR CODE ";Y  *:2:T$F$" FILE":990:LL1:850 4I1A >:N$(I);", ";NA$(I);" ";L$(I)( D$"": CTRL-D* `D$;"OPEN ";F$;",L50"C jD$;"READ ";F$;",R0"J tAR ~D$] I1Aw D$;"READ ";F$;",R";I N$(I):NA$(I):L$(I):N(I):G(I):P(I) D$ :PRINT N$(I);", ";NA$(I),L$(I) :PRINT N(I);" CORRECT OUT OF ";G(I),P(I);"%:19:10:"GRADES (Y/N) ";:Z$:Z$C Z$"Y"F$"GRADES":1105a 17:1:958:Z$"N"1050k 1045 19:"WHAT IS THE NAME OF THE GRADES FILE?":21:F$ LF$(13)F$"GRADES": READ GRADES QN$(65),NA$(65),L$(65),N(65),G(65),P(65) V*E)UxπD~πU G*|πD~O~O~O~O"D"D"D"D~'U|O~~O~pO~Q*N*yO~π"D"D"D"D"D~ππD~ππD~π"D"D"D"D"D~UxπD~O|U*U*U*U*U*U*U*U*U*U*U*U*U*}πD~πD~πS**qπD~O"D"D"D"D~O~O~O~GUrO~'y?U*U*U*U*U*U*U*U*U*U*U*U*U*uO~O~'F*9*eO~ψĈĈĈ"D"D"D"D"D~ππD~ππD~πD~S8TbπD~#q_*U*U*U*U*U*U*U*U*U*U*U*U*UjπD~hem, 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."h "The third option is to work problems by yourself. For this option, you will need pencil and paper."/ rne.","Do examples with help.","Do problems yourself."T "This program help you learn to multiply problems with large numbers.","There are three ways to use the program:"^ "If you want to see examples done, I will show you how to do t4760)zT$"Loading Menu...":20:1:T$1:I:(4);"RUN HELLO"W:RU1:1@ "ten","hundred","thousand","ten thousand"E "Great!","Fantastic!","Super!","Good job!","Right on!","That's great!"5J "See examples do23:1:958:REV1:3200p #;\:KK1:CH34720f480::P((NK)100.5):25000::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610p:"Do you want to play again? ";:440:A$"Y"A$"y"ithout the remainder)"VR 9:"Enter the quotient: ";SA$:SA$"C"SA$"c"İ1300:3410\ (SA$)S(7)Ģ16:"Now enter the remainder: ";SA$:(SA$)S(6)İ300:f 9:1:"Watch this one. ":10:ER$:16:1:" ":910:  MI0:SM0:LG9:TR12P 400:A$"c"A$"C"ĴC91300,1350:9:22:3301m A(A$):AANTR2:3320 9:22:MIMI1:SS$(AN):(7):MI2930 TR:MI0300:23:1:958:H 23:T$"PRESS "Q$"C"Q$" FOR A SKIP COUNT."::990::10:"(W= ";(N1$):14SU:PLL2:N1$:SPPLL2:940w 9:1:801:JI(S$(1))Ģ9:1:"The answer is: ";S(7);", R ";S(6):3290 9:1:801:9:1:"Take the next number.":NM$NM$(D(JI1)):PLPL2:940:SU0Ģ14SU:PL:D(JI1) 940:JI:REV1REV0:50:AN03270  SU0SUSU1| V14SU:HSP:NN$AN$(AN):1100:AN$N1$:V:H:AN$:L(AN$):V1:H:850:SUSU2:NU$NM$ L1(NU$):NM$((NM$)(AN$)):NN$NM$:1100:MVLL(N1$):L2(N1$)1:9:801:940+ 9:1:"Subtract: ";NU$;" - ";ANS(2);" skip count.":940:1300:9:22:940 SU0:JI1(S$(1)):9:1:801:9:1:AN((NM$)S(2)):"How many "S$(2)"'s in "NM$"? ";:CH940,3300 C91Ģ12AN:AR:AR$ 11:PL:AN:12AN:AR:940:" ":CH2MI0Ģ20:" "  13O~O~O~O"D"D"D"DQ+O~O~?*e('U|O~UJS*~O~πD~ππD~ππD~π"D"D"D"D"D~#~πD~πD~CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" "Z17:958HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940VVVV1:9:ER$:910:17:958:II!N212290:V1:L(SE$(3))1:38L:850:V2:1:"Add DE1CA$"":JJN(1)11:18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$5::SP$S$" = "(AA)SP$::CA(AA10):CA$""HPHH:CA0HPHH1:CA$(CA)LV:HP:AA:940::I12:VVV:39(SE$(I)):SE$(I):VVVV1:IQHL(SE$(1)):H39L:12:H:850rfJK1:CH2200,2300,2500,2400|p2710V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" ="DE1000:MU1LG3:N1LGLGN1SM1:17:LJ1:S$"How many digits in the smallest number? (1-"(LG)") ":LI1:610:V9:H92:430:N2A:AK1TL%T$"Please wait...":22:990*1000:22:958:480410:1:"Multiply these numbers:":.>VV0:V10:A:LG20:CH1LG5:10:S$"How many problems? (2-"(LG)") ":H1:TC35:LI1:610:V9:H91:" ";TL$:TL(TL$):TL2TLLGĢV:1:958:2071SM2:LG5:14:LJ1:S$"How many digits in the largest number? (2-5) ":LI1:610:V9:H92:430:N1A:A440:(A);:A$"Y"A$"y"İ30000:N12:1:"What's your first name? ";NA$u14:1:"And your last name? ";NL$ SM1:LG4:16:1:"Do you want to:":V18:II14:V:8:(II)") "CH$(II):VV1:II:SM122:1:"Your choice? (1-4) ";:430:CHAR2(S$(Q)):SE$(Q)SE$(Q)SP$(S$(Q),R,1):R7"Qb$Q1(S$(1)):D(Q)((S$(1),Q,1)):Q:h.QQ$"MULTIPLICATION":ER$" ":480TC35:LJ1:RU12008"10:1:"Do you want instructions? (Y/N) ";:DE ODD NUMBERSGN(1)N1:N(2)N2:MD$" quotient":MD1MD$" product"oQ18:S(Q)0:SE$(Q)"":S$(Q)"":QQ12:RN(Q)11:DI((1)9)1:S(Q)S(Q)DI(10(R1)):R:Q:S(3)S(1)S(2)Q13:S$(Q)(S(Q)):SE$(Q)(S$(Q),1):S(Q)910580: TO EXIT "::990::400:_ T$"ENTER "Q$SS$Q$" PLEASE."::23:990::940:940:w D1DE::DE2000: L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0: :  MATH ROUTINEMD0:K2(K2)MD1: DIVI,(S$)LT):LI1ĺ 620= ::(7);"WORD TOO LONG";:C \ 1:I139:"=";::v 4H:I1L1:"-";:: RI1L1:"-";:: PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::! PG1:23:T$" TO CONTINUE gLJ0HLJs 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ĺ(S$,LT(X$SP$)):660 I1LT:J((S$,I,1)):(J32(J95));: S$(S$"n"A$"Y"A$"y"ĺA$:( (7);:4406 19:4000 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: XH3:TC37 bL(S$):LTCH20(L2):L0ı :2000 ,CH4NN1) 6I1(6(1))18 ;S$RW$(I1)` CH3Ģ17:958:R1:18:LJ0:610:~ 20:958:20:LJ0:610: A$:A$(27)460: 400:A$(13)ĺ(7);:420  400:A(A$):ASMALGı (7);:430 400:A$"N"A$  MULTIPLY 7/08/883:J14:J$(J):?FS1(11)TKI16:RW$(I):iPI14:CH$(I):~ZI15:D1$(I):\I12:D2$(I):]I12:D3$(I):dI15:MU$(I): fPD$".":DE2000:CM$", ":P0:M0:N0:SP$(32):E2(637)223         "Number of Digits", "Number of Problems" | "You may decide on the size of number you want to work with -- from 1 digit numbers (like 8) to 5 digit numbers (like 63,597)."\! "Last, you decide how many problems to do. If you let the computeally going now!","Yes! Yes! Yes!","That's great!"J "See examples done.","Do examples with help.","Do problems yourself." "ones","tens","hundreds","thousands","ten thousands" aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A: you want to play again? ";:440:X$"Y"X$"y"4760bzT$"Loading Menu...":20:ER$:20:1::T$j::(4);"RUN HELLO":480::RU1:1@ "ten","hundred","thousand","ten thousand"4E "Great!","Fantastic!","Super!","You're r0:14:1:958:2200 6 CH3REVIEW1REVIEW0C K:4700I`\CH3KK1:4720jaKK1f480::P((NK)100.5):25000::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:6104p:"DoMM0:V2:HH:(S$(3),JJ,1):940:HHHH2:18:958:JJBV 300:V` : OPTION 3e 23:T$" NO COMMAS PLEASE! "::990:j 14:1:"Your answer: ";SA$o (SA$)(SE$(3))Ģ17:958:300:2490~ REVIEW1:17:1:"Let me show you this one.":91:ER$:910:17:958:IIu= N212290:V1:L(SE$(3))1:38L:850:V2:1:"Add the partial":V3:1:"products."B HH38:JJ(S$(3))11:SS$(S$(3),JJ,1):MM13:V2:HH:"_":V2:HH:Z$:Z$SS$2380E MM:930:V2:HH:"_":V2:HH:Z$7L :H7:SA$? CA(AA10):CA$"":HPHH:CA0HPHH1:CA$(CA)$ V:HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" ". 17:9583 HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":9408 VVVV1:911:y 18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$ 5:S$" = ";:H7(36)1 I13:20:H7:SA$:SA$(AA)İ300:2320  20:H7:" ":I:SS$(AA):930:20:H7:" ":20V2:1:"Add the partial":V3:1:"products."tHH38:JJ(S$(3))11:V2:HH:(S$(3),JJ,1):940:HHHH2:JJzV13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" =" CA$"":JJN(1):HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" "h17:958HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940VVVV1:9:ER$:910:17:958:II/N212290:V1:L(SE$(3))1:38L:850:DE1000:MU1DE1-CA$"":JJN(1)11:18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$5::SP$S$" = "(AA)SP$::CA(AA10):CA$""HPHH:CA0HPHH1:CA$(CA)ZVrs:":A>VV0:V10:I12:VVV:39(SE$(I)):SE$(I):VVVV1:IdHL(SE$(1)):H39L:12:H:850fJK1:CH2200,2300,2400p2710V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" =":H92:430:N1X:X)LG3:N1LGLGN1SM1:17:LJ1:S$"How many digits in the smallest number? (1-"(LG)") ":LI1:610:V9:H92:430:N2X:XK1TL%T$"Please wait...":22:990*1000:22:958:480410:1:"Multiply these numbe:958:IIg= N212290:V1:L(SE$(3))1:38L:850:V2:1:"Add the partial":V3:1:"products."B HH38:JJ(S$(3))11:SS$(S$(3),JJ,1):MM13:V2:HH:"_":V2:HH:Z$:Z$SS$2380E MM:930:V2:HH:"_":V2:HH:Z$)L MM0:V2:HH:CA(AA10):CA$"":HPHH:CA0HPHH1:CA$(CA)$ V:HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" ". 17:9583 HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940 8 VVVV1:9:ER$:910:17:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$ 5:S$" = ";:H7(36)1 I13:20:H7:SA$:SA$(AA)İ300:2320 20:H7:" ":I:SS$(AA):930:20:H7:" ":20:H7:SA$1 the partial":V3:1:"products."fHH38:JJ(S$(3))11:V2:HH:(S$(3),JJ,1):940:HHHH2:JJlV13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" =" CA$"":JJN(1)11:k 18$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::Y X16302,0:Y15:X120:DI9 bI1(S$):DR((S$,I,1)):DR96T196:640 lDR103T1128:DR:(S$,I,1):"LINE 620"::640 qDR32XX2:650 {DR95T10 |DR42DR344 SHDR60:% 400:XX$(13)ĺ(7);:420+ M 400:(XX$)SM(XX$)LGı] (7);:430 400:XX$"N"XX$"n"XX$"Y"XX$"y"ı (7);:440 800:4700 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]"; :3:TH3NN1 6I1(6(1))1< @I1330,340,350,360,370,380Q JS$"Great!":391j TS$"Fantastic!":391 ^S$"Super!":391 hS$"You're right!":391 rS$"Yes! Yes!":391 |S$"Good job!"  X160:DI9:Y115:610: XX$:XX$(27)4  BASIC DIVIDE 8/28/878:0:1:RU0Đ::D$"":RU0ĺD$:D$;"BLOAD WRK,A25600":D$:D$;"BLOAD DIV.PIC,A$4000"P232,0:233,100:I13:CH$(I):IZI16:D1$(I):IfPD$".":SS100:NN255:SP$(32):E2(637)223:2000 ,C      problems yourself."T "This program help you learn to multiply problems with large numbers.","There are three ways to use the program:"f^ "If you want to see examples done, I will show you how to do them, explaining each step as I go.:(4);"RUN HELLO"#::RU1:1S@ "ten","hundred","thousand","ten thousand"E "Great!","Fantastic!","Super!","You're really going now!","Yes! Yes! Yes!","That's great!"J "See examples done.","Do examples with help.","Step by step.","Do 480::P((NK)100.5):25000::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TC37:H3:LI0:610:"Do you want to play again? ";:440:A$"Y"A$"y"4060T$"Loading Menu...":20:ER$:20:1::T$:90:$ 14:1:"Your answer: ";SA$T (SA$)(SE$(3))Ģ17:958:300:910:2590 REVIEW1:17:1:"Let me show you this one.":910:14:1:958:2200  CH3REVIEW1REVIEW0 K:4000:9:1:CH4KK1:4020KK1(S$(3),JJ,1):940:HHHH2:18:958:JJ4V 300:J` : OPTION 4te 23:T$" NO COMMAS PLEASE! "::990:j 14:1:"Your answer: ";SA$o (SA$)(SE$(3))Ģ17:958:300:910  : OPTION 3 23:T$" NO COMMAS PLEASE! "::9") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1i#:uS$D1$(I1):LJ5:V:610:VV93:VV1:900:#Du10:II12:S$D2$(II):LJ0:610:LL1:820:V93:LJ5:LI0:II230030:S$D3$(II):610:900:#NuTC36:LJ3:S$D3$(II):610:900::;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";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)you may have from 2 to 20 problems."`! "ones","tens","hundreds","thousands","ten thousands"!aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110!aL$"Multiply-"J$(N11):NA$""NA$"No name"!aNL$""NL$"No name"J"aAA1:D$V93:LJ5:LI0:II230030:S$D3$(II):610:900:Y NuTC36:LJ3:S$D3$(II):610:900::Io 5 digit numbers (like 63,597)."$! "Last, you decide how many problems to do. If you let the computer do the work, you may only have 5 problems; otherwise I1:I113:S$(I1)") "CH$(I1):LJ8:V:610:VV1:I1:VV1:9005uJJ1:I135:LI0:10:S$(JJ)") "CH$(JJ):LJ0:610:11:LL2:HH3:820:VV93:JJJJ1:uS$D1$(I1):LJ5:V:610:VV93:VV1:900:1 Du10:II12:S$D2$(II):LJ0:610:LL1:820:A4925110=aL$"Multiply-"J$(N11):NA$""NA$"No name"WaNL$""NL$"No name"aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";A:NL$:NA$:L$:KW:K:PbD$;"CLOSE":A0uLI1::TC34:V10:I112:S$D1$(I1):LJ5:V:610:VV92:e mistakes."G^ "The third option is to work problems by yourself."h "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."5aD$"":D$;"OPEN with my help!","You may use the program in these three ways:" T "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 mak:XX$:XX$"Y"XX$"y"4760#:9(4);"RUN HELLO"dT$"Please wait...":18:990::RU1:1@ "See examples done.","Do examples with help.","Do problems yourself.">J "Learn your Division Facts quickly and easily. You'll do it in no timeM1XA,65:0 0:REV0:*K9:K9K91C\::480:CH34720fP((NK9)100.5)::S$"You got "(N)" right out of "(K9)" numbers, "NA$". That's "(P)"%.":TC37:LJ3:LI0:712:25000p14:3:958:"Do you want to play again? ";:440::2320` |j SM1:LG9:0:A$"":S$"Your answer? ":X10:Y150:610:430:S$XX$:610:XX$IN$(1)İ300:2470 S$"Let me show you this one.":840:X6:Y173:REV1:0:DI9:610:2200 940:Y173190:3:3,Y270,Y:Y:2495  3:Y85: L S$"How many groups of "IN$(2)"?":X5:Y155:0:610:LG7:SM1:430$ XX$IN$(1)S$XX$:X220:0:610:300:3:M1XA,65:2295) MIMI1:MI2ĺ(7):3:940:M1XA,65:2295. 3:Y65:I1IN(1):96I34,Y:YY10:940:I:Y155185:2,Y272,Y22320?3:Y65:I1IN(1):X27:S$(IIN(2)):(S$)1X34JJ1(S$):TY((S$,JJ,1)):TY48X,Y:XX7:JJ:YY10:940:IS$"How many groups of "IN$(2)"?":X5:Y155:0:610:3:1420:940:M1XA,65CH3ı940:0:MI0: (3)):M3(II)((IN$(3),II,1))58:II:Y85:X200:II1(IN$(3)):M3(II)X,Y:XX15:II:0:XAX15x\CH2200,2200,2400f910:800:3999 0:S$"Count by "IN$(2)"'s to "IN$(3)PD$:Y142:X5:DI10:610:940:1400:CH$):TLSMTLLGĢV:1:958:2075{416304,0:16302,0:16299,0:16297,0:S$QQ$:0:X80:Y10:DI12:610:K91TL:1000536M2(IN$(2))58:M1(IN$(1))58:M2165,85:I13:185I,80185I,100:I7I12:187,79I245,79I:Ia>II1(IN$_ 10:1:"Do you want to:":V12:II13:V:LJ8:S$(II)") "CH$(II):712:VV2:II:SM1V:1:"Your choice? (1-3) ";:LG3:430:XX$:CH(XX$):SM2:LG20:CH1LG5:SM1!V2:1:"How many problems? ("(SM)"-"(LG)") ";:"";TL$:TL(TL ":TC35:LJ1:480:RU12008TC35:10:LJ1:S$"Do you want instructions? (Y/N) ":712:V9:H9:440:XX$:XX$"y"XX$"Y"İ30000:12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$ object"FI13:IN$(I)(IN(I)):I:RO$" rows":IN(2)1RO$" row"L\x 3:Y65:X45:I1IN(1):J1IN(2):TY116X,Y:XX12:J:YY10:X45:IY55:X44:PO1IN(2):PO96X,Y:XX12:PO>:QQ$"DIVISION FACTS":ER$" it":X3:Y175:DI9:610:420:1QQ12000::rL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:z:X140(((S$)6)2):610:TY((1)6)1FR12:IN(FR)((1)7)1:FR:IN(3)IN(1)IN(2):OB$" objects":IN(1)1OB$"I266,I::4:I53134:23,I130,I::G140:840:yH3:II115140:148,II269,II:II:II140191:0,II269,II:II:0:RI1L:"-";:I::PG1:23:T$" TO CONTINUE : TO EXIT ":990::420::S$" to go on: to ex9(37)1::JJ0730::L LTTC11:X$(S$,LT,1):X$SP$X$"-"728l E2ĺ(S$,LT(X$SP$)):724 I1LT:J((S$,I,1)):(J32(J95));: S$(S$,(S$)LT):LI1ĺ 716 ::(7);"WORD TOO LONG";: 1 0:I56105:151,T1:SH9SH20SH12SH44SH46XX1:SH46XX1^ SHX,Y:SH44SH9SH12SH46XX1n SH59İ940} XXDI:: L(S$):LTCH20(L2):L0ı LJ0HLJ H:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V???????????????6%5%5--------------$?????????????7--------------------6666666???????$$$$$$$------666666??????$$$$$$  666.------%$$$666------$$$?6vu- e d$??6-------6666??????$$----- ??????$$$$ ---------555666677?????',.,.,.,.,.e?d ???????$$$$%---------..666? %%%%%%,???????''$$$%--------666>???????''$$%-------556>>??????''$ ??76.----------------%$<766666I---------666666?????????$$$d $$$d ---------u??????????----------->??????????7--?7-5?7--?w-%-------,$-->7->7->?=;??????7-------u????????'??----------->?w6??????$ ??666--------- $$<75->7'<6????????$$,66.$.------I--'7'7'?66666---------,$$$$'???????? >??????''$,$,,,,,,,,------------66666666??$$$$$$$ ?????????$,-----------666666>'$$$$$$ ?????????'----------5>??????$-----------5><><><><>4#7'7'7'7'7?666v-------u66???????7v--------- $$$$$????????$$766.t---------?w-5666$6>??????'?- ------66????------6666?????????$$$$ 6666v--------- $$$$??????? ----$7 7----------$$?????????g 6666666666??$$\X$\X$$$$$ $-7 >-66666 ->?<36>'%'% $ $$$$766666$7>$7>$7>$7>$7>$7>?,%?,- $-,,,,,,,,,,,------------66??????????6..-------u66666?????????$,-u------ $$???????$$$----w66>??????'?.5?--------- ?g-$$$<<<<<<IIIII66--?--->??? 66666666?'$,6.$,)--56>$<6>$$ $$$$$7666666>$$ $$$$$7666666&6.-e??,--------6???????66666.-----------%$??????,-----%??????76$$7->76666-------6666666?????????$$$$$$$$$ 56.%<'a)--------666666666?????????$$$$$$$$, 36666666v$$$$$$$$5666666f67-$-------5:??????.------e'%g$$$$$$$66666666'$$$$$$$<6$7>?????$? )---->????RI 9/ e?? -- ?? -- ?? -巒;?--??--??.-?IIII >->?-->??)66> - $$<666M 666--& 666#$$666M!$$)u66?$$-u?66.)u6$$666M- ?)u3-?--66.66v- $$<66 $$666`4 $$$vd  <v 6.--.-%666%$$,-?r--666'$$?b *--=I---------666?$$M >66/)b-.-%--u?I.-#\X$--.-6? -6v- ?--6)u?$ -)u>3-5?I--??qb--6>',36v-- 66M!?--_Xdu2& -6&$ I?666\X u6&6&I66?666\X)   6666&XX&6&66\X u6& -6?$666\Xe$? u66XX$66\X u -= -?/ 666\XXX9+6ve $26  $66 `y*6BR]bjy)6>ETsu{#0=IQ]jns|$2?JT`myD z  = s T"8Q u$2\      GRADES,L50":D$;"READ GRADES,R0":A:D$:A4925110HaL$"DIV.FACTS"aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:N:K:PbD$;"CLOSE":0u:+:uLJ5::V10:LI1:II12:S$D1$(II)::712:VV4:940:II:II13:S$ψĈĈĈππππ@~π@~S8Tbπ@~#q_*U*U*U*U*U*U*U*U*U*U*U*U*Ujπ@~ππ#L*q(Eπ@~ψĈĈĈĈĈĈĈO~O~QrTJO~+eW*U*U*U*U*U*U*U*U*U*U*U*U*U*O~)*e)O~ĈĈĈĈψĈĈĈππππ@~π@~UbQ π@~+Eπ@~ ππ(1*E#~π"D"D"D"D"D~ψĈĈĈ          ----???7u u 5???7ue 5$=?%--u66??$$t ;?O-??-=??7---??-?-- - ???)---;??- )5?;7)- -;??? ---?666------$$$66.----%$$66----$$6.--%$6--$.%6?6vu- e d$??6v,.ee $ &'=$''7.?$7>$>675wv-.,f-$$$???766---$$??76--=$?7- g %-?--?=   ?/ =?/--5???.--??vu- e d$ ?-------6666666???????$$$$$$$.------666666??????$$$$$$-----66666?????$$$$,----6666????g$$$---566>??'$$--56>?'$-5>'-  <7 >. ? ? =7=666.------%$$$πππππ@~π"D"D"D"D"D~#~π@~π@~*E)Uxπ"D"D"D"D"D~πU G*|π@~O~O"D"D"D"D~'U|O~~O~pQ*N*yO~πππππ@~π"D"D"D"D"D~Uxπ@~O|U*U*U*U*U*U*U*U*U*U*U*U*U*}π@~ππS**qπ@~O~O~GUrO~'y?U*U*U*U*U*U*U*U*U*U*U*U*U*uO~'F*9*eO~--.-6? -6v- ?--6)u?$ -)u>3-5? ---6666???$$$$ ---u6666???$$$$---5666>??'$$$M 6 II66666-6???$-$$$% 66666>/ - 6-,%?d --u6--5>????', /)5 .>.>w?????----1.-- ??'----6v6???$-v-ed 6- d v-$ $?7v.d .\X <$e 677766'$$'''---5--->???$%%%%%%???)-->??6666--%??$$$566r)--6666>??,-%'%'%'%?? u7----%????)66?$$M >66/)b-.-%--u?I.-#\X$666'$$$,.....6 -u66?$$d--66?$$$--u??66'$$$,--??$ -u66??$$d--66<<:$$$--uw><<<<76>$$$$--557??$)-->$$$$?'6666--e$$$$7666>?g'$$$6vvv.ddd$<6>$<6666eue$$$$7666><'$$$<6--u66??'$$$,--66??$$$---5???7666.---??66v-e $?7-?$$$6666.$$--56.$$$$<66??'$< -576665?'%$$$'I)-666?$5v-e$$$?6666.$$t '$6666.---$$$$ue u$$,6666> $??6v--$I5*>>I vd ----->????7-----?????.----= ?????qe 2%t,.,.t>7775? -u67?%g-??66v-e??$$$ -u??666.$,--6.$$$<6>??$$--uv??'$$$,--??.-u??$\X  -u>??66v-e 77?>>>.---$\X $--->??757-,.,.7577'7'''-II?6v-e $??g Ӛ6-e$??---566'$d ?/6?.5.$%'$J-u??5--u??wI???--;\X(\X8\X(JI e uQQJv- u?uL)v-  ?d I6.$<IIvv=dd )..>57w77?I2666%$$$Ug  9u %I2666%$$$ ->??,-I,6*--->???I,>JI M e  66- 66?7-e $$$$76?$$-----5???'%%%e??'6.$Ӓb UIJ?'-+ $7v dddd -??-7-5%,-< ? -u??66-e $$76?$$U.----56666>????$$$$,---5666>???$$$,--566>??$$,-56>?$,5>$II I566>$ $$16%$M6.$<1$<666%$$5 66.$$,f66.$$;I-u666%$$tf,f..66'$ -u6?$ --6?$ -u6?'-e$??76666%$$$$ -5??6-%?$EI6666.$$$$$666%$$tf,f..$)--???75--55???w---I666ve$$$t2#66- 6%$$<6?$$vvvedd<>$666%%'$l666%$$l566><,$$ $$$??66.-e$??575766.-- $?66-- $??b--u??$$)--??'$II9.>.666??$ --26>?$ -- -u??---7'7'7-I)u6<7666>$<,U#$ $ -u666?--$$$?6e?575766.$$4 -66'$?I556>$$I5566te$$$6666.$$$$QQ:<<<<&%5I6666.$$$iA z)A]t0Gb~.Fgw>_*<Um$-Ai{4Id}*B`: N k   ) 6 {  L / o  26v--   O~+O~O~?*e('U|O"D"D"D"D~UJS*~O~SMTLLGĢV:1:958:2075t416304,0:16302,0:16299,0:16297,0:S$QQ$:0:X90:Y10:DI12:610:K91TL:1000{536M2(IN$(2))58:M1(IN$(1))58:M2155,85:88175,85:M1198,85:61215,85\CH2200,2200,2400f910:800:3999 10:1:"Do you want to:":V12:II13:V:LJ8:S$(II)") "CH$(II):712:VV2:II:SM1V:1:"Your choice? (1-3) ";:LG3:430:XX$:CH(XX$):SM2:LG20:CH1LG5:SM1V2:1:"How many problems? ("(SM)"-"(LG)") ";:"";TL$:TL(TL$):TL ":TC35:LJ1:480:RU12008TC35:10:LJ1:S$"Do you want instructions? (Y/N) ":712:V9:H9:440:XX$:XX$"y"XX$"Y"İ30000:12:1:"What's your first name? ";NA$14:1:"And your last name? ";NL$X bject"DI13:IN$(I)(IN(I)):I:RO$" rows":IN(2)1RO$" row"JWx 3:Y65:X45:I1IN(1):J1IN(2):TY116X,Y:XX12:J:YY10:X45:IY55:X44:PO1IN(2):PO96X,Y:XX12:PO7:QQ$"TIMES TABLES":ER$" ":X3:Y175:DI9:610:420:/QQ12000::pL(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:x:X140(((S$)6)2):610:TY((1)6)1FR12:IN(FR)((1)7)1:FR:IN(3)IN(1)IN(2):OB$" objects":IN(1)1OB$" o30,I::0:I74105:149,I266,I::G140:840:wH3:II115140:148,II269,II:II:II140191:0,II269,II:II:0:RI1L:"-";:I::PG1:23:T$" TO CONTINUE : TO EXIT ":990::420::S$" to go on: to exit(37)1::JJ0730::J LTTC11:X$(S$,LT,1):X$SP$X$"-"728j E2ĺ(S$,LT(X$SP$)):724 I1LT:J((S$,I,1)):(J32(J95));: S$(S$,(S$)LT):LI1ĺ 716 ::(7);"WORD TOO LONG";: / 4:I53134:23,I11:SH9SH20SH12SH44SH46XX1:SH46XX1\ SHX,Y:SH44SH9SH12SH46XX1l SH59İ940{ XXDI:: L(S$):LTCH20(L2):L0ı LJ0HLJ H:(S$)TCāI1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8::W X16302,0:Y15:X120:DI9 bI1(S$):DR((S$,I,1)):DR96T196:640 lDR103T1128:DR:(S$,I,1):"LINE 620"::640 qDR32XX2:650 {DR95T10 |DR42DR342 SHDRT:# 400:XX$(13)ĺ(7);:420) K 400:(XX$)SM(XX$)LGı[ (7);:430 400:XX$"N"XX$"n"XX$"Y"XX$"y"ı (7);:440 800:4700 ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]"9 :3:T$3NN1 6I1(6(1))1; @I1330,340,350,360,370,380P JS$"Great!":391i TS$"Fantastic!":391~ ^S$"Super!":391 hS$"You're right!":391 rS$"Yes! Yes!":391 |S$"Good job!"  X160:DI9:Y115:610: XX$:XX$(27)460w  MULT 8/28/8760:1:RU0Đ::D$"":D$:RU0ĺD$;"BLOAD WRK,A25600":D$:D$;"BLOAD INT2.PIC,A$4000"P232,0:233,100:I13:CH$(I):IZI16:D1$(I):IfPD$".":SS100:NN255:SP$(32):E2(637)223:2000 ,CH        =??7---??-?-- - ???)---;??- )5?;7)- -;??? ---?-?????----?????.5?v--- $?.???---%XXXX(%??.- 6v-ے6-- $$??---????6v-57-%g$ ?- $<6> ;?'$ g %-?--?=   ?/ =?/--5???.--??----???7u u 5???7ue 5$=?%--u66??$$t ;?O-??-d-7157? ???<$II ?6.----%?66v--- $?? A?w??66v--- $??76.--%$???-----666>'$$d ????,---- 666 ---????-----No name"`"aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R0";A:NL$:NA$:L$:KW:K:Pr"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:900P#5uJJ1:I15 problems; otherwise you may have from 2 to 20 problems."v! "ones","tens","hundreds","thousands","ten thousands"!aD$"":D$;"OPEN GRADES,L50":D$;"READ GRADES,R0":A:A4925110!aL$"Multiply-"J$(N11):NA$""NA$"No name""aNL$""NL$" of Problems" | "You may decide on the size of number you want to work with -- from 1 digit numbers (like 8) to 5 digit numbers (like 63,597).":! "Last, you decide how many problems to do. If you let the computer do the work, you may only have ","To do examples with help, I will give you a hint for each step, and help you if you make mistakes."h "The third option is to work problems by yourself. For this option, you will need pencil and paper." r "Number of Digits", "NumberP*U**U*U ЀpPJCA*U D:U$R(U P*U*Up"v!(5:LI2:900pDuJJ1:II35:10:T$CH$(JJ):990:LL:H:11:JJJJ1:850:S$D1$(II):LJ5:13:712:V19:900:IIvNuRA:D$:A4925110)aL$"TIMES.TABLES"~aAA1:D$;"WRITE GRADES,R0":A:D$:D$;"WRITE GRADES,R";A:NL$:NA$:L$:N:K:PbD$;"CLOSE":0u: :uLJ5::V10:LI1:II12:S$D1$(II)::712:VV4:940:II:II13:S$(II)". "CH$(II):8:S$:II:LJtion is to work problems by yourself."h "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":e program in these three ways:"T "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 op:(4);"RUN HELLO"IT$"Please wait...":18:990::RU1:1@ "See examples done.","Do examples with help.","Do problems yourself."J "Learn your Times Tables quickly and easily. You'll do it in no time with my help!","You may use thK9:K9K91(\::480:CH34720fP((NK9)100.5)::S$"You got "(N)" right out of "(K9)" numbers, "NA$". That's "(P)"%.":TC37:LJ3:LI0:712:25000p14:3:958:"Do you want to play again? ";:440:XX$:XX$"Y"XX$"y"4760(3)İ300:2470Y S$"Let me show you this one.":840:X6:Y173:REV1:0:DI9:610:2200 940:Y173190:3:3,Y270,Y:Y:2495 3:II1(IN$(3)):M3(II)((IN$(3),II,1))58:II:Y85:X234:II1(IN$(3)):M3(II)X,Y:XX15:II:0 0:REV0:3,Y200,Y:Y:Y165:I1IN(1):X127:S$(IIN(2)):(S$)1X1343 JJ1(S$):TY((S$,JJ,1)):TY48X1,Y1:X1X17:JJ:Y1Y110:940:I:` j 0:AN$"":S$"Your answer? ":X10:Y150:610:II1(IN$(3)):A$:S$A$:610:AN$AN$A$::AN$IN$XX$(IN$(3),II,1)MIMI1:(7)? XX$(IN$(3),II,1)2340 MI1İ2350:HC0:HC:S$"How many objects?":X5:Y155:610:2325$ HC3:HC:M3(II)((IN$(3),II,1))58:M3(II)XX,YY:XXXX15:II:HC0:HC:MI0İ300:) 2295A. HC3:HC:Y155170:JJ:YY10:940:I3:II1(IN$(3)):M3(II)((IN$(3),II,1))58:II:Y85:X234:II1(IN$(3)):M3(II)X,Y:XX15:II:0:REV1ı940:HC0:SM0:LG9:MI0:HC:S$"How many objects?":X5:Y157:610: XX234:YY85:II1(IN$(3))" 430: f0:S$"Make "IN$(2)RO$" of "IN$(1)OB$PD$:Y142:X5:DI10:610:940:1400:CH223000:S$"Count the objects.":X5:Y157:610:3:Y65:I1IN(1):X27:S$(IIN(2)):(S$)1X34JJ1(S$):TY((S$,JJ,1)):TY48X,Y:XX7:@`0`00`Ѐ@`@`0`0@``0``0``0`0`` @``0```0,"3. Multiplication","4. Long Division","5. Mixed Practice","6. Information Please","7. Exit Program"00`@`F$"INFO":S$"LOADING Information Please.":2350>::10:5:"Please turn off the computer and":12:5:"put the disk away.":. ::T$S$:10:990:10:H::"LOADING":B :(4);"RUN ";F$_ e "1. Times Tables","2. Division Facts"e with multiplication":600:S$"and long division problems.":600:YY5/940:S$"Try the smaller numbers":600:S$"first and go on to the":600:S$"more difficult.":600::DI10:940:S$"LOADING Mixed Practice":Y160:600:9400F$"MULDIV":235004ry the smaller numbers":600:S$"first and then go on":600:S$"to the harder ones.":600:DI10:940:S$"LOADING Long Division":Y160:600:940&F$"DIVISION":2350G*DI13:SZ2:5:S$"MIXED PRACTICE":X38:Y25:610:Y42:3:SZ1:DI10:800:S$"Practict!":600:DI10:940:S$"LOADING Multiplication":Y160:600:940YF$"MULTIPLY":2350 DI14:SZ2:5:S$"LONG DIVISION":X40:Y25:610:Y42:3:SZ1:DI10:800:S$"Conquer your division":600:S$"problems with this program!":600:YY5%940:S$"Ton Facts":Y160:600,940:F$"DIV":2350SZ2:6:DI13:S$"MULTIPLICATION":X30:Y25:610:Y42:800:DI10:3:SZ1:YY5:S$"Practice with more difficult":600:S$"multiplication problems."A600:S$"Soon you will be an":940:YY5:600:S$"exper2:S$"DIVISION FACTS":X38:Y25:610:Y42:DI10:3:SZ1:800:DI10:S$"Learn to divide the easy":600:S$"way!":600S$"Practice with this program":YY5:940:600:S$"until you know your":600:S$"facts by heart!":600:DI10:940:S$"LOADING DivisiX30:S$"Conquer the basics of":DI10:YY5:605:X30:S$"multiplication!":605:YY5:940 X30:S$"See the way the Times":605:X30:S$"Tables are put together.":605:DI10:S$"LOADING Times Tables" Y160:600:940:F$"MUL":2350u DI15:1:SZhoice? (1-7)":X10:600B XX$:XX$(18)F$"READ GRADES":2370i XX$(4)F$"DELETE GRADES":2370 XX(XX$):XX12030:XX72030: XX2050,2060,2070,2080,2090,2100,2110Z DI15:1:SZ2:S$"TIMES TABLES":X52:Y25:610:SZ1:3:Y42:800:::H20((T$)2):10:H:T$::10:H:"LOADING":::E :940: 6:SZ2:S$"MULTIPLY AND DIVIDE":X15:Y8:DI13:610:Y30:3:800:SZ1:DI10:S$"Choose a Program:":YY5:600 YY5:II17:S$PR$(II):X40:YY15:DI10:SZ1:610:II:S$"Your c:SH9SH20SH12SH44SH46XX1:SH46XX1o SZ2700:SHX,Y:SZ2710:SH44SH9SH12SH46XX1 SH59DE1000:941 XXDI:: SHSH90: SHSH90: 6,Y265,Y:6,Y1265,Y1: DE1500:QQ1DE1 D1DE::8 6384) KEY128400$ 16368,02 XKEY1288 K X16302,0:X10V ]YY20 bI1(S$):DR((S$,I,1)):DR96T196:640 lDR103T1128:DR:(S$,I,1):"LINE 620"::640 qDR32XX2:650 {DR95T10 |DR42DR341 SHDRT1(II)". "CH$(II):8:S$:II:LJ5:LI2:900DuJJ1:II35:10:T$CH$(JJ):990:LL:H:11:JJJJ1:850:S$D1$(II):LJ5:13:712:V19:900:IINu1$(II):LJ5:13:712:V19:900:IINuuHL(SE$(1))2:39L:8506fJK1:CH2200,2300,2400@p2710V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" ="DE1000:MU1DE1CA$"":JJN(1)11:V18:1:"Multiply the ""-"(LG)") ":LI1:610:V9:H92:430:N2X:X<K1TL]%T$"Please wait...":23:990y*1000:23:1:958:4804MD1:K2(K2)MD0:3100910:1:"Multiply these numbers:":>VV0:V10:I12:VVV:39(SE$(I)):SE$(I):VVVV1:I$:TL(TL$):TL2TLLGĢV:1:958:2071SM2:LG5:14:LJ1:S$"How many digits in the largest number? (2-5) ":LI1:610:V9:H92:430:N1X:XLG3:N1LGLGN1SM1:N15SM2017:LJ1:S$"How many digits in the smallest number? ("(SM)me? ";NL$g SM1:LG3:16:1:"Do you want to:":V18:II13:V:8:(II)") "CH$(II):VV1:II:SM122:1:"Your choice? (1-3) ";:430:CHX:X:LG20:CH1LG5):10:S$"How many problems? (2-"(LG)") ":H1:TC35:LI1:610:V9:H91:" ";TLQQ$"MIXED PRACTICE":ER$" ":480:aTC35:LJ1:RU1200810:1:"Do you want instructions? (Y/N) ";:440:(X);:X$"Y"X$"y"İ30000:12:1:"What's your first name? ";NA$ 14:1:"And your last na20,VR2(NN$):N1$N1$SP$(NN$,R,1):R2`\AR$"=>":V12:L6(S$(2)):H39(L69)SK09:AN$(SK)(SKS(2)):VSK:H1::" ";::SK;" X ";S$(2);" = ";AN$(SK):SK:ARH3(:11:H1:JJH41:" ";:JJ:22:H1:JJH41:" ";:JJ::G0S(7)(S(1)S(2)):S(6)(S(1)(S(7)S(2))):S(7)9991030uQ13:S$(Q)(S(Q)):SE$(Q)(S$(Q),1):S(Q)91058R2(S$(Q)):SE$(Q)SE$(Q)SP$(S$(Q),R,1):R"Q$Q1(S$(1)):D(Q)((S$(1),Q,1)):Q:.LN1$(NN$,1):(NN$)911ROUTINECMD0:K2(K2)MD1: DIVIDE ODD NUMBERS|N(1)N1:N(2)N2:MD$" quotient":MD1MD$" product"Q18:S(Q)0:SE$(Q)"":S$(Q)"":QQ12:RN(Q)11:DI((1)9)1:S(Q)S(Q)DI(10(R1)):R:Q:S(3)S(1)S(2)<MDPG1:23:T$" TO CONTINUE : TO EXIT "::990::400:T$"ENTER "Q$SS$Q$" PLEASE."::23:990::940:940:D1DE::DE1500:L(T$):H20(L2):H:T$;:H9(36):V9(37)1:PG1PG0:: MATH ::(7);"WORD TOO LONG";:" ; 1:I139:"=";::T !1:I139:" ";::n 4H:I1L1:"-";:: RI1L1:"-";:: SI1L1:"_";:: TI1L1:" ";:: PG1:23:T$" TO CONTINUE : TO EXIT "::990::400::G1(S$):J((S$,I,1)):(J32(J95E2));::H9(36):V9(37)1::JJ0695:: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 E2ĺ(S$,LT(X$SP$)):660 I1LT:J((S$,I,1)):(J32(J95));: S$(S$,(S$)LT):LI1ĺ 620 );:440 19:4700b ::"[";:I120:"][";::I14:40:"][";::40:I120:"][";::"]" :3:T$"VISION SOFTWARE PRESENTS:":990:5:T$QQ$:990:34,8:: XH3:TC37 bL(S$):LTCH20(L2):L0ı gLJ0HLJR lH:(S$)TCāI610: 20:5:S$;: X$4 X$(27)460:k 400:X$(13)ĺ(7);:420: RETURN ROUTINEq  400:X(X$):XSMXLGı: 1=4 ROUTINE (7);:430 400:X$"N"X$"n"X$"Y"X$"y"ı: Y/N ROUTINE (76I1(6(1))10 @I1330,340,350,360,370,380E JS$"Great!":390^ TS$"Fantastic!":390s ^S$"Super!":390 hS$"Good job!":390 rS$"Right on!":390 |S$"That's great!" CH3Ģ17:958:R1:18:LJ0:610: MD1Ģ20:958:20:LJ0:=# MULDIV 8/30/871J14:J$(J):=FS1(11)RPI13:CH$(I):gZI15:D1$(I):_I12:D2$(I)::I12:D3$(I):dI15:MU$(I):fQ$(34):PD$".":DE1000:SS100:NN255:SP$(32):E2(637)223:2000,CH3NN1 !! ! ! ! ! !!!!!!!!!""" " " " " """""""""    ow 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."'h "The third option is to work problems by yourself. For this option, you will need pencil and pa.","Do examples with help.","Do problems yourself."%T "This program help you learn to multiply and divide problems with large numbers.","There are three ways to use the program:"&^ "If you want to see examples done, I will show you h37:H3:LI0:610P$p:"Do you want to play again? ";:440:X$"Y"X$"y"4760t$zT$"Loading Menu...":20:1:T$|$:$:(4);"RUN HELLO"$:RU1:1$@ "ten","hundred","thousand","ten thousand"3%J "See examples doneİ300:b#f 9:1:ER$:9:1:"Watch this one.":10:ER$:16:1:852:910:23:1:958:REV1:3200h#p n##\:KK1:CH34720$f480::P((NK)100.5):25000::S$"You got "(N)" right out of "(K)" numbers, "NA$". That's "(P)"%.":TCMI2930)" TR:MI0300:23:1:958:"H 23:T$"PRESS "Q$"S"Q$" FOR A SKIP COUNT."::990::10:"(Without the remainder)""R 9:"Enter the quotient: ";SA$:SA$"S"SA$"s"İ1300:3410#\ (SA$)S(7)Ģ16:1:"The remainder? ";SA$:(SA$)S(6) answer is: ";S(7);", R ";S(6):3290! 9:1:801:9:1:"Take the next number.":NM$NM$(D(JI1)):PLPL2:940:SU0Ģ14SU:PL:D(JI1)! 940:JI:REV1REV0:! ! MI0:SM0:LG9:TR12:430:X(AN)TR2:3320" MIMI1:SS$(AN):(7):$:L(AN$):V1:H1:850:SUSU2:NU$NM$ L1(NU$):NM$((NM$)(AN$)):NN$NM$:1100:MVLL(N1$):L2(N1$)1:9:801:940 9:1:"Subtract: ";NU$;" - ";ANS(2);" = ";(N1$):14SU:PLL2:N1$:SPPLL2:940$! 9:1:801:JI(S$(1))Ģ9:1:"The9:1:AN((NM$)S(2)):"How many "S$(2)"'s in "NM$"? ";:CH940,3300] 12AN:AR:AR$ 11:PL:AN:12AN:AR:940:" ":CH2MI0Ģ20:" " AN03270 SU0SUSU1) V14SU:HSP:NN$AN$(AN):1100:AN$N1$:V:H:AN+ 9:1:"Find the quotient:":PL12:SP12& VV0:12:L(SE$(1))1:10:851:13:9(SE$(2)):SE$(2);" ) ";SE$(1):940:CH3200,3200,34000 2710 NM$(D(1)):9:22:"Make a skip count.":940:1300:9:22:940I SU0:JI1(S$(1)):9:1:801: : OPTION 37e 23:T$" NO COMMAS PLEASE! "::990:Wj 14:1:"Your answer: ";SA$o (SA$)(SE$(3))Ģ17:958:300:2490~ REVIEW1:17:1:"Let me show you this one.":910:14:1:958:2200  CH3REVIEW1REVIEW0 900:K:4700:1:"Add the partial":V3:1:"products."B HH38:JJ(S$(3))11:SS$(S$(3),JJ,1):MM13:V2:HH:"_":V2:HH:Z$:Z$SS$2380E MM:930:V2:HH:"_":V2:HH:Z$L MM0:V2:HH:(S$(3),JJ,1):940:HHHH2:18:958:JJV 300: ` :AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:940:V::HP:" "d. 17:9583 HHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":9408 VVVV1:9:ER$:910:17:958:II+= N212290:V1:L(SE$(3))1:38L:850:V2$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$L 5:S$" = ";:H7(36)1z I13:20:H7:SA$:SA$(AA)İ300:2320 20:H7:" ":I:SS$(AA):930:20:H7:" ":20:H7:SA$ CA(AA10):CA$"":HPHH:CA0HPHH1:CA$(CA)V$ V:HP1:V2:HH:(S$(3),JJ,1):940:HHHH2:JJ0V13:VV0:IIN211:V13VV:HH38(VV2):H1:MU((S$(2),II,1)):JK1:V:H:(MU(10VV))" X "S$(1)" =" CA$"":JJN(1)11:/ 18:1:"Multiply the "MU$(JK)" column.":AAMUD(JJ)CA:20:S40:V::HP:" "17:958aHHHH2:JKJK1:940:JJ:CA$""ĢV:HH:CA$:CA0:CA$"":940VVVV1:9:ER$:910:17:958:IIN212290:V1:L(SE$(3))1:38L:850:V2:1:"Add the partial":V3:1:"products."*HH38:JJ(S$(3))1MU$(JK)" column.":AAMUD(JJ)CA:20:S$(MU)" X "(D(JJ)):CA$""S$S$" + "CA$5::SP$S$" = "(AA)SP$::CA(AA10):CA$""HPHH:CA0HPHH1:CA$(CA)V:HP:AA:940:CA0Ģ22:"Carry the "(CA)PD$:9:HP1(VV2)::CA$:9