' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"{ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0:$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌```葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`  LOARUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE PROBLEM RANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNREBOOT DISC I/O ERRODISK FULFILE LOCKETYPING ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT AVAILABLE $3>L[dmx- ( ` @跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴ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`5& 4:"<1> PUT IN DECIMAL AND PLACE COLUMNS":526T& VD10:HD21:526:994:526y& L123385:H16:H211::322:L1& 12:24:"/10 /100 /1000":& 4:526:"<2> PUT LAST NO. IN DENOMINATOR'S PLACE":X29:Y6:440:0'! 526:4:"<3> FILL EMPTY 124:"/10 /100 /1000":u% 4:526:"<3> LAST NO. IN DENOMINATOR'S PLACE":X11:Y16:316:X19:Y8:315:X24:Y6:440% 23:305:% 4:"SUPPOSING YOU SAW THIS FRACTION:"& X11:Y6:440::12:" ":X1:Y14:410:X6:400:X11:400:526:" ":Y14:X1:410:X6:400:$ 526:4:"TO CHANGE TO A DECIMAL DO THIS:":526:4:"<1> PUT IN THE DECIMAL POINT "$ VD10:HD21:526:994:526:$ 4:526:"<2> SET UP PLACE COLUMNS "$ L123385:H16:H211::322:L1% 12:2#V19:F1(D$):H27F1:615:IP$D$İ551:2285#540:34,8:N7::600:L51:397::18:2:"WANT MORE PRACTICE (Y/N)?";:IP$#IP$"Y"2250#IP$"N"ľIP$:2290##:::"FRACTIONS TO DECIMALS":302:34,3# %$ X6:Y6:440::12:16:H420:L31:L419:395:H516:H620:L521:L639:397:N(N$):D(D$):130:N$(N):D$(D)":18:1:"4-REDUCE";::23:"----"::16:22:"NUMERATOR?":"V17:F1(N$):H27F1:615:V(1)20:H(1)22:IP$N$İ551:2280":22:16:"DENOMINATOR?":L521:L639:397?!11:1::"2-FIND NUMERATOR"::23:"----"!F1(N$):V11:H27F1:615:V(1)14:H(1)22:IP$N$İ551:2265!540::13:1:"3-FIND DENOMINATOR":!F1(D$):V13:H27F1:615:V(1)14:H(1)22:IP$D$İ551:2270!540Z"H3200" 23:305:G :::"PRACTICE - DECIMALS TO FRACTIONS":39)p :4:2:"RULE";16);"YOUR TRY":100 H36:H48:L31:L419:395:H56:H68:L521:L639:397 7:1::"1-STATE PROBLEM";:23::P$!H310:H414:L31:L419:395:H510:H614:2:"1.0.0.0":" NUMBER IN THE":" NUMERATOR"QH111:H215:L123292:322:L124:N10:600:H310:H414:L31:L419:395:L321:L439:395:111:"4-REDUCE FRACTION";:23:"115 23":"TO LOWEST TERMS";:22:"---- = ---" 22:"1000 D PLACE THEM IN";:22:"----":" THE NUMINATOR OF":" A FRACTION"24:N10:600:H310:H417:L31:L419:395:L321:L439:395:1:11:"3-IN THE DENOMI-":" NATOR PUT A ONE";:24:"1.1.5":" FOLLOWED BY A";:22:"-.-.-.-."," ZERO FOR EACH";:2E";16);"EXAMPLE":L31:L419:H36:H48:395:L321:L439:395:34,9:n7:1:"1-STATE PROBLEM";:22:".115"H310:H417:L31:L419:395:L321:L439:395:1:11:"2-TAKE THE NUMBERS":" TO THE RIGHT OF":" THE DECIMAL POINT";:23:115A" AN23:305::2151#23:305:::^:::"CONVERTING A DECIMAL TO A FRACTION":302:34,34:"A DECIMAL IS MERELY A DIFFERENT WAY OF":"WRITING A FRACTION. FOLLOW THESE STEPS":"TO CONVERT A DECIMAL INTO A FRACTION"22:305:D4:2:"RULHE ";::"DECIMAL POINT"::526;SZ14((1)2):I11Z1`T:4:"NOW LOOK AT THIS NUMBER:"VL11355:H15:H218:324:L1W9000\I1d23:305::4:"NOW LOOK AT THESE FOUR NUMBERS:":526g10000kR5Ģ21:"TRY ANOTHER PROBLEM.":5:H218:324:L14H526:12:"ZER0 COLUMN===-->>"]J526:14:"TENTHS (1/10) ======-->>"L526:16:"HUNDRETHS (1/100) =======-->>"N526:4:501:4:"THIS SYMBOL GOES IN THE ZERO COLUMN"PVD10:HD18:994R526:4:501:4:"IT IS CALLED T5:H15:H218:324:L1@A526:12:14:"<<===== 4 ONES (4) lB526:14:9:"<<========== 7 TENS (70)"C526:16:4:"<<=============== 3 HUNDREDS (300)"E23:305:34,11::34,3:4:501:4:"NOW ADD MORE COLUMNS TO THE RIGHT"GL11355:H1"<3> CONVERT A FRACTION TO ITS DECIMAL "9" FORM."?R323:305:::|4:::"WHAT'S A DECIMAL?":302:34,39"LOOK AT THE NUMBER BELOW:";Y6:X2:430:X7:470:X12:440:=526:4:501:4:"THIS MEANS THE SAME AS:"?L1120:::"OBJECTIVES":*302:34,3:m"AT THE END OF THIS LEARNING UNIT YOU ":"WILL BE ABLE TO:":"<1> DEFINE AND EXPLAIN THE MEANING OF "" 'DECIMAL.'":"<2> CONVERT A DECIMAL TO THE FRACTIONAL"" FORM."()6'I1N:(P$,1)"0"P$(P$,(P$)1);6'I:F1(T$)1`6'502:L33:L419:H3H5:H4H6:395w6':8:8:P$;"/";D$6':6:4:"FRACTION:";:27:"DECIMAL?":H23:V8:28:6156'V(1)10:H(1)22:IP$"."T$:W(2)W(2)1:561:V:H5:".";T$: 7'543!5'F1(N$)::V8:H27F1:615=5'L26F1:8:L:"/":504J5'F2(D$)S5'614Y5'_5'i5'P$""5'N((1)2)1:I1N:R%(I)(1)10:P$P$(R%(I)):I5'(P$)0102055'I1N:(P$,1)"0"P$(P$,(P$)1)5'I6'D$(10((P$))):T$P$I):CHECKI:1005414E'N(I)LOSMLON(I):CHECKI84F'Ij4G':11:27:IPCHECK1ĺ"RIGHT"::RR1:100654J'11:27:"WRONG":X15:YCHECK7:316:11:6:"ANSWER WAS:"4Q'4s'4t':L04y'100:L31:L419:H36:H410:3954~':8:7:P$5'502:50;I1;">--";:Z(I):N(I):I:36'L521:L639:H56:H611:397`37'TY$"LARGEST ":SMTY$"SMALLEST"38':21:6:"WHICH IS ";TY$;:IP$:IP$:IP(IP$)39'(IP1IP4)100403;':8:29:N(IP1)3B'CHECK0:HI0:LO100:I033C'SM100534D'N(I)HIHIN(RRECT!!":23:305:34,11::34,3&2P#02'34,5g2'I03:I(I)((1)4):N(I)((1)9991)1000I(I)n2'I2'L31:L419:H36:H411:3952'2'I03:Z(I)12((N(I))):Z(I)8Z(I)82'I(I)Z(I)72'I:12$'SM((1).5)3%'7:I03:"<":Z212::"WHICH NUMBER IS IN THE ";:Z219021,9022,9023,9024,9025\1=#"HUNDREDS";:9030o1>#"TENS";:90301?#"ONES";:90301@#"TENTHS";:90301A#"HUNDRETHS";1F#"?";:IP$:IP$:IP(IP$)1G#IPN(Z2)1Ģ20::"TRY AGAIN":9020 2I#20::"CO400,410,420,430,440,450,460,470,480,490:>0(#J04:N(J)0:J0-#Z2((1)3):JZ214:N(J)((1)10)1:J:N(Z2)((1)9)200#J04:N(J)901502#Y6:XJ52:J2XX505#NN(J):800007#J08#10:19::" "0:#Z2((1)5):N(Z2)9018E1<#9): /+ 1-/- 4:"YOU HAVE THREE OPTIONS:"N/0 8:"<1> REVIEW THIS UNIT":q/2 "<2> GO ON TO ANOTHER UNIT":/5 "<3> END FOR NOW"/7 20::1:"WHICH (1-3)?";:IP$::IP(IP$):(IP1IP3)2615/: / / :/ (4);"RUN WW"/ )0@N:H620:L53:L637:397::16:5:"TYPE IN ANSWER":F18:V18:H5:615}. R0:T$"FRACTION":I18:(IP$,I,1)(T$,I,1)RR1. I:V(1)20:H(1)5:R6İ541:W(0)W(0)1:V:H:T$:2599. 540:R(0)R(0)1.' 22:305:I2:/( :::"EXIT ROUTINES":3LS"::4:4:"PROBLEM #";I2:- L51:L639:H52:H623:397Q- I26İ10200:2599`- I212550q- 10300:2599- 502:L33:L419:H3H5:H4H6:395- :7:7:"WHAT IS A"::7:"DECIMAL?"- :7:24:"A DECIMAL":24:"IS A":24:"--------"D. H5141);:36:W(I1)::I,s ,t R0:I02:RRR(I):I:"BASED ON THESE SCORES YOU SHOULD":R8ĺ"REVIEW THIS UNIT BEFORE CONTINUING":2499,u "MOVE ON TO THE NEXT UNIT", 23:305:::, I12:R(I)0:W(I)0:I- I2111::::2:"TEST YOUR SKIL:S$(3)"FRACTIONS TO DECIMALS"O+j :"======================================="i+l I10162:I:320:I+n 9:"OBJECTIVE TRIED RIGHT WRONG"+p H19:H215:L122:322:L128:322:L134:322,r 11:I13:S$(I);:24:R(I1)W(I1);:30:R(IPROBLEM.":23:305::2393-*_ 23:305:::Q*` :::"REPORT CARD":302:34,3n*b I02:T(I)R(I)W(I):I*d :"THERE WERE THREE PARTS TO THIS UNIT:"*f :"YOU MADE THE FOLLOWING SCORES:"+h S$(1)"DEFINING DECIMALS":S$(2)"DECIMALS TO FRACTIONS"Y8:440:530k)1 :4:1:"<3> FILL IN COLUMNS WITH THE REST OF THE";:"NUMERATOR":531:X22:420:23:305)V 23:305::4:"NOW TRY SOME PRACTICE PROBLEMS")Y :::"PRACTICE - FRACTIONS TO DECIMALS":39)::10200*[ R(2)5Ģ21:1::"TRY ANOTHER 12:19:" "::H17:H212:L121365:322:L1:14:22::"/10 /100 /1000":530(, 1:4:"<2> PUT LAST NO. IN DENOMINATOR'S PLACE":18:16:I114:"-";:J150:J,I ). 16:29:"^":29:"!":7:13:531:"!":6:13:I116:"-";:J150:J,I:">":X27:0THS PLACE WITH A ZERO ":526:X24:400:23:305'$ ::4:"LOOK AT THIS FRACTION":Y8:X6:420:X11:440:14:1:14):Y16:X1:410:X6:400:X11:400'' 530::4:1:"TO CHANGE TO A DECIMAL";15):530:1:"<1> PUT IN DECIMAL POINT AND COLUMNS"P() :9:H56:H611:397| j :8:1:"<1> STATE PROBLEM":2:"LINE UP DECIMAL":2:"POINTS"::7:24:I411:S(1,I);:I3ĺ"."; m I::26:".";:I201:S(2,I);:I::23:"-------":530 o 34,12:H313:H418:395:H513:H618:397!r :15:1:"<2> ADD 4025:I:24:305::O` :::"PRACTICE - ADDITION OF DECIMALS":39):34,3tc :4:2:"RULE";:22:"YOUR TRY"e I05:S(1,I)0:S(2,I)0:CR(I)0:I:I14:S(1,I)((1)9)1:I:I02:S(2,I)((1)9)1:I h L31:L419:H36:H411:395:L521:L63MISSING PLACES":39)dI01:W(I,0)9:W(I,1)0:I:I02:J01:F(I,J)((1)5)5:J,I:F(2,0)0 :750:4:1:"NOW WATCH THIS ADDITION":530:4:40):700 530:X29:Y5:402:530:400 I201:760:F0:4025:530:I:I01:770:IF1WAY":530::I01:J01:F(I,J)((1)4)5:W(I,J)0:J,Im4000:700:4005:I101:760:Iİ4020:4015Iİ531:F1:4020:530:4030I:V4:21::"<5> DON'T FORGET THE";:22:"DECIMAL POINT!":530:24:305::::"ADDITION WITH 0:750IJ01:I02:F(I,J)0:I:I01:W(I,J)((1)4)5:I,J:700Z4005:I01w770:21:Iİ4020:4015Iİ531:F1:4020:530:4030I:24:305::F0:750:4::1:"THE ADDITION OF DECIMALS IS DONE"::"EXACTLY";::" THE SAME Iİ531:4010_PI:V4:21::"<4> DON'T FORGET THE";:22:"DECIMAL POINT!":530:24:305:e:::"ADDING DECIMALS WITH CARRY":39):34,24::1:"LET'S REVIEW THE ADDITION OF WHOLE":"NUMBERS REQUIRING CARRY":530:4:80)4000:F1>770:21:Iİ4010:40150AIİ531:4010BCI:24:305:H4::1:"THE ADDITION OF DECIMALS IS DONE"::"EXACTLY";::" THE SAME WAY":530::I01:J01:F(I,J)((1)4)1:W(I,J)0:J,IK4000:700:4005:I101:760:Iİ4010:4015MSET OF DECIMAL NUMBERS":23:305:Y4:::"ADDING DECIMALS WITHOUT CARRY":39):34,274::1:"LET'S REVIEW THE ADDITION OF WHOLE":"NUMBERS":530:4:60)840009J01:I02:F(I,J)0:I:I01:W(I,J)((1)4)1:I,J:700<4005:I0"Y"İ63000:1005#IP$"N"1000/:200092100C2200M2300W2400a2500k$2600':IP1000,2700,1999:::"OBJECTIVES":39):4:1:"AFTER REVIEWING THIS UNIT YOU SHOULD BE":"ABLE TO""7:"<1> ADD ANY W(I,0)W(I,1):CR(N10):S1W(I,0):S2W(I,1):CW(I1)CRNNCR10:XH:YV:N1400,410,420,430,440,450,460,470,480,490:TTN(10I):X4X::" ":::" ":::10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)IP$S TO FOLLOW THE DIRECTIONS AS THEY ARE":"PRINTED ON THE SCREEN. IF YOU HAVE ANY"y<*"TROUBLE, PLEASE SEE YOU TEACHER."<,23:301:::<:*************************<: THIS VERSION =: MODIFIED AND "A WORD WHICH MAY BE NEW TO YOU -- "T;!"IT IS --OBJECTIVES-- ALL THIS MEANS IS:";#"YOU ARE BEING TOLD WHAT YOU ARE GOING":"TO LEARN WHEN YOU GO THROUGH THIS UNIT.":;&:"USING THE PROGRAM":::"TO USE THIS PROGRAM, ALL YOU NEED TO DO"Q<("I39(VE$)(DA$));DA$%:l23:305:,:9Q::::"INSTRUCTIONS":302:34,3u::"WHAT IS THIS UNIT ABOUT?":::"THIS UNIT IS THE FIRST ON THIS DISK. ":"IT INTRODUCES, FOR THE FIRST TIME, THE"%;"IDEA OF THE DECIMAL. YOU WILL ALSO SEE ":AL CONVERSION"91HE$HE$(4)/94VE$"":DA$""S9:L31:L4(EW$)2:H31:H44:3959":HE$(2)"DECIMALS":HE$(3)"LEARNING UNIT":HE$(4)"DECIM0:R(2)R(2)17;(47<(N((1)999)1:D1000:PNDH7A(N$(N):D$(D)m7H(502:L33:L419:H3H5:H4H6:395|7K(:8:8:P7L(F0::4:15:"DO NOT REDUCE FRACTION"7M(:6:4:"DECIMAL:";:27:"FRACTION?":8N(:8:23:"----":F1(N$):V7:H27F1:60640(vLC$(X)" + "(Y)GAP$:K(LC$,53)(X)" + "(Y)QQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19670Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20680LE$"A. "(PP)GAP$LG$"B. "(QQ)GAP$LI$"8Q20620*gLA$"QUESTION "(Q)GAP$:Jl(LA$,53)"QUESTION "(Q)n"*********** ***********"oqQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19630sQ2Q4Q6Q8Q10Q12Q14Q16Q18Q2"THREE":600#NE:N$"FOUR":600:&NF:N$"FIVE":600P0NG:N$"SIX":600h:NH:N$"SEVEN":600DNJ:N$"EIGHT":600NNK:N$"NINE":600XbQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19615 cQ2Q4Q6Q8Q10Q12Q14Q16Q1X:5):L1200:L,K=-3:X45::CR:530:3:X45::CR:~-21:V4::"<4> BRING DOWN":22:"REMAINING CARRY":V4V43:-0HE$(1)" ":HE$(2)"DECIMALS":HE$(3)"LEARNING UNIT":HE$(4)"ADDITION OF DECIMALS"-1HE$HE$(4): SET TO LONGESTUMNS UNTIL":22:"DONE":530:V4V42:I,:V4V41:V4:22:CLĺCL" + ";,S1" + "S2" = "NCR10:22:"CARRY = "CR:22:"COLUMN SUM = "N:V4V44,CRı,Y19:XX5:CR1400,410,420,430:Fİ531:-CR1402,411,423,432::530:K23191:K:S":X33:Y7CA:315&+22:305:PN:M+4:21:"<1> STATE PROBLEM":531:+530:6:21::"<2> ADD NUMBERS IN":V47:22:"LAST COLUMN":531:700:+V4V41:V4:22:S1" + "S2" = "N:V4V42:530:&,V4:21::"<3> ADD NUMBERS IN":22:"NEXT COL0I1:N(I)N(J)JI:J:3020$* JE* I:CA((1)4)1:N(CA1)ANo* :8:I03:22:"<";I1;"> ";N(I):I* :6:22:16368,0:"WHICH (1-4)?";:IP$:IP$:IP(IP$):IP1IP43033* :14:21:CAIPĺ"CORRECT!":RDRD1:3999+ "WRONG! ANSWER I614:397:6:4::"PROBLEM #";PN:4:"ADD:"I) N((S1)(10)):S10N}) 9:9N:S1:6:"+";:N((S2)(10)):N0N1) 9N:S2:6:"--------") ANS1S2:I03) N(I)AN(1((1).5))(((1)2750)1000):N(I)AN3020) I3029* JN110:C( L51:L639:H52:H623:397:1:2::"TEST YOUR SKILLS"{( S1(1)((1)40)3:S2(1)((1)40).1:ANS1S2( S1(S11000)1000:S2(S21000)1000( 4:4::"SELECT THE CORRECT ANSWER":L33:L419:H36:H414:395,) L521:L637:H56:HIT.".'2 9:"YOU HAVE THE FOLLOWING OPTIONS:"P'5 11:"<1> REVIEW THIS UNIT":s'7 "<2> GO ON TO ANOTHER UNIT":': "<3> END FOR NOW"'< 20:1::"WHICH (1-3)?";:IP$:IP$:IP(IP$)::(IP1IP3)2620'A ' ' (4);"RUN WW"' ( :P305:::3000:9&( :::"EXIT ROUTINES":39)::4:1&+ "IN THE PRECEDING EXERCISES YOU SELECTED":"THE CORRECT ANSWER ";RD;" OUT OF 10 TIMES.":"BASED UPON THIS SCORE YOU SHOULD"&- RD8ĺ"REVIEW THIS UNIT AGAIN.":2610'0 "GO ON TO THE NEXT UN:39):34,3:% 4:1:"TRY EACH OF THE FOLLOWING PROBLEMS TO":"TEST YOUR UNDERSTANDING OF THE IDEAS":"WHICH WHERE JUST PRESENTED"% :"LOOK AT THE PROBLEM ON THE LEFT AND":"SELECT THE CORRECT ANSWER FROM THE":"BOX ON THE RIGHT"% RD0& 23:CR(5)2450A$ H29I:V18:615:IP(IP$):IPCR(5)İ541:2447J$ 540X$ N10:537$ L51:L639:H513:H617:397::15:2::"WANT MORE PRACTICE (Y/N)?";:IP$:IP$"Y"2400$ IP$"N"2453$ 23:305::% :::"ADDITION PRACTICE PROBLEMS"2::"COLUMN SUM?":HZIe# V18:615:IP(IP$):NS(1,I)S(2,I)CR(I):CR(I1)(N10):NNCR(I1)10{# IPNİ541:2439# 540:I2ZZ1:18:26::".":# 13:22:"CARRY? ":HZ1I:V14:615:IP(IP$):IP$(CR(I1))İ541:2443 $ 540:I: 540:I:S7:537" H419:H619:395:397::15:1:"<3> ADD ONE COLUMN":" AT A TIME CARRYING":" VALUES GREATER":" THAN NINE"" :15:I12:24:J431:S(I,J);:J:".";:J201:S(I,J);:J::I:23:"-------"" V(1)19:Z29:I04# 13:2MISSING":" PLACE ZEROS":F!t :14:24:I411:S(1,I);:I3ĺ".";:!w I::26:".";:I201:S(2,I);:I::23:"-------":X(0)29:Y(0)14:X(1)25:Y(1)15:X(2)24:Y(2)15:F11:V(1)18:H(1)22!y I02!| VY(I):HX(I):615:IP$"0"İ541:2428"~)^2100)hQ)m172208)ANS$"ZERO POINT"" "PA$M)X0ANS$"ZERO"i)AA$"TEN POINT"" "PA$)BB$PA$" ""POINT ZERO")X0BB$"ONE HUNDRED")CC$"ONE POINT"" "PA$))ANS$PA$)X0ANS$"ZERO"*AA$"TEN POINT"" "PA(Q(Q610(936&(10000(3000E(AA0BB0İ3000N(XAAX(2500b(5100l(6000v(2100}(Q(Q1120(936("1000(,3000(1AA0BB0İ3000(6XXAA(8YYAB10(:ZXXYY(@2600(J5400(T6000' Y;" X ";X::&' A$"H"900D' Y;" DIVIDED BY ";X::M' 100]' AAN:PA$N$f' 100v' ABN:PB$N$' 100' ACN:PC$N$' 'Q15'936'1000'3000'AA0İ3000'XAA'2200'5000'6000'21001& "WHAT DECIMAL IS ";PA$;" POINT ";PB$;" ?"9& :I& A$"H"750`& X;" - ";Y::p& A$"H"976& "WHAT DECIMAL IS THE FRACTION ";X$;"/10 ?"::& ANS0:AA10:BB0.1:CC100:7170& A$"H"625& X;" + ";Y::& A$"H"800:"C. ";RR:"D. ";SS::"YOUR ANSWER (A/B/C/D) .......< >"Y% A$"N"İ20000% :"--------------------------------------":% ANS0:AA10:BB1.0:CC100:7070% A$"H"930% "WHAT FRACTION IS THE DECIMAL ";X;" ?"::& A$"H"976:$ A$"H"110D$ "HOW DO YOU WRITE ";X;".0 IN WORDS?"::T$( A$"H"150$- "HOW DO YOU WRITE ";Z;" IN WORDS?"::$2 $ A$"H"420$ "WHAT DECIMAL IS ZERO POINT ";PA$;" ?"::7060$ A$"H"435F% "A. ";PP:"B. ";QQ" IN WORDS?"#:J#:"---------------------------------------"::Z#A$"H"650#"A. ";PP:"B. ";QQ:"C. ";RR:"D. ";SS::"YOUR ANSWER (A/B/C/D/E) < >":#A$"N"İ20000$"--------------------------------------"104120"^Q104200'"A$"H"955""A. ";P$:"B. ";Q$:"C. ";R$:"D. ";S$::"YOUR ANSWER .....................< >""A$"N"İ20000":"--------------------------------------":"A$"H"460 #"HOW DO YOU WRITE 0.";X;?": !!4A$"H"472T!9"A. ";P$:"B. ";Q$:"C. ";R$:"D. ";S$:!>"YOUR ANSWER (A/B/C/D) .......< >"!CA$"N"İ20000!H:"--------------------------------------"::!PQ54055!QQ54060!RQ5Q104115"\Q7Q19979, Q12Q14Q16Q18Q20989d LC$"WHAT DECIMAL IS "PA$" POINT "PB$" ?"GAP$j  (LC$,53)"WHAT DECIMAL IS "PA$" POINT "PB$" ?": A$"H"610 "QUESTION ";Q "***********": !"WHAT DOES ";X;" EQUAL "S$GAP$,(LE$,53)"A. "P$G(LG$,53)"B. "Q$b(LI$,53)"C. "R$}(LK$,53)"D. "S$"YOUR ANSWER (A/B/C/D) .......< > YOUR ANSWER (A/B/C/D) .......< >" Q11Q13Q15Q1(LC$,53)"WHAT FRACTION IS THE DECIMAL "(X)" ?":pQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19965Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20970LE$"A. "P$GAP$LG$"B. "Q$GAP$LI$"C. "R$GAP$ LK$"D. (Y)" DIVIDED BY "(X)GAP$:T(LC$,53)(Y)" DIVIDED BY "(X):Q1Q3Q5Q7Q9Q11Q13Q15Q17Q19935Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20940LC$"WHAT FRACTION IS THE DECIMAL "(X)" ?"GAP$::19804="Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20810b$LC$(Y)" X "(X)GAP$:*(LC$,53)(Y)" X "(X):Q1Q3Q5Q7Q9Q11Q13Q15Q17Q19910Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20920$LC$ .......< >"MQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19770Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20790LC$(X)" - "(Y)GAP$:(LC$,53)(X)" - "(Y): Q1Q3Q5Q7Q9Q11Q13Q15Q17QC. "(RR)GAP$.LK$"D. "(SS)GAP$4R(LE$,53)"A. "(PP)p(LG$,53)"B. "(QQ)(LI$,53)"C. "(RR)(LK$,53)"D. "(SS)"YOUR ANSWER (A/B/C/D) .......< > YOUR ANSWER (A/B/C/D)A,19-D,20-B":17230&9FCA$"N"17230N9GCRIGHT40COUNTER:RIG(RIGHT20)100X9HC9369IC:10:"THESE ARE YOUR RESULTS ";NAME$;" ....."9JCPERCENT((40COUNTER)20)100,:KC10:"YOU NEEDED ";COUNTER;" TRIES TO GET ALL TWENTY QUESTIONS CORRECT.":AB1008CX0Y0AB017140(8C277828C7526<8&C6000F80C2250M8:CQ8DC:4::D$"":E$""::E$:"RESULTS FOR ";NAME$;"..LEVEL ";SEL;" ...";DT$:NM$:172259EC19:"1-A,2-C,3-D,4-B,5-C,6-B,7-C,8-A,9-D,10-B,11-A,12-C,13-D,14-B,15-C,16-B,17-C,18- 7 ?75257*?600074?2250%7>?Q07H?17220<7hBQ110F7rB936P7|B1000Z7B3000{7BXAA:YAB10ACAC10AA1007BAA0170307B27787B75267B60007B22507BQ7BQ11207B9367B10007B30008BXAAAB10:YACAA10 6;172206>Q110 6>936*6>100046>3000[6>XAA:ZAC10ABAA10AB100:YZXo6>Y0AB016030y6>27806>75256>60006>22506>Q6>Q11206>9366>10006?30006 ?XAAAB10:ZAC10ABAA10AB100:YZX7?2780500 5:60005:22505;Q+5;Q112055;936?5$;1000I5.;3000^53;AA0AB015150{58;HHAA10ABAC10AB1005B;GGACAAAB10AA1005L;GGHH151505V;HHGGXHH:YGG5`;GGHHXGG:YHH5j;27585t;75505~;60005;22505;QAB10AA10 4#GGHHXGG:YHH54#HHGGXHH:YGGE4#GGHH9120O4#2758Y4#7550c4#6000m4#2250t4#Q4#172204:Q1104:9364:10004:30004:XAA10ABAC10AA1004:YAC10AAAB10AA1004:XY50304:27755:70 357903276035850)36000332180:3 QE3 17220Q3(#Q110[32#936e3<#1000o3F#30003H#XAAAB10:YACAA10AB103P#27753Z#75003d#60003n#22503x#Q3#Q11203#9363#10003#3000 4#GGAAAB10:HHACCC10(XY):=2~ANSXY:AA10(XY):BB(XY)10:CC10XY:I2@Q110S2J936]2T1000g2^3000v2cAA080302hXAA102r27402|57902580026000221802Q2Q1120293621000230002AA081303XAA120 193611000 1300011XAA:YAB10;12750E15600U1XY02770_16000i1 2720p1Q{1 172201LANSXY:AA10(XY):BB(XY)10:CC10XY:1eANSYX:AA10YX:BB100YX:CCY(X10): 2fANSXY:AA(XY)10:BB(XY)100:Q$CC$:R$AA$:S$ANS$:PPBB:QQCC:RRAA:SSANS806200r0P$AA$:Q$ANS$:R$BB$:S$CC$:PPAA:QQANS:RRBB:SSCC|06200080XQ1100b9360l10000v30000XAA1002710055000X0273006000027200Q1Q115Q156102/zQ6Q1661062/|Q7Q176102E/~Q8Q186100X/Q9Q196104l/Q10Q206106/P$ANS$:Q$AA$:R$CC$:S$BB$:PPANS:QQAA:RRCC:SSBB/6200/P$CC$:Q$BB$:R$ANS$:S$AA$:PPCC:QQBB:RRANS:SSAA/6200.0P$BB$:.AA8X$"8"".AA9X$"9"(.:.ANS$X$"/10"K.AA$"10/"X$].BB$X$"/100"m.CC$X$"/1"s..ANS$"0."X$:AA$"0.0"X$:BB$X$".0":CC$"0.00"X$:.pQ1Q116100.rQ2Q126102.tQ3Q136104.vQ4Q146106 /xQ -|ANSX-~X0ANS0.0'-AA10X4-BB100X@-CCX10F-R-ANSXYb-AA(XY)10r-BB(XY)10-CC(XY)100--AA1X$"1"-AA2X$"2"-AA3X$"3"-AA4X$"4"-AA5X$"5"-AA6X$"6".AA7X$"7"TY POINT "PB$0,<XX3CC$"THIRTY POINT "PB$Q,>XX4CC$"FORTY POINT "PB$r,@XX5CC$"FIFTY POINT "PB$,BXX6CC$"SIXTY POINT "PB$,DXX7CC$"SEVENTY POINT "PB$,FXX8CC$"EIGHTY POINT "PB$,HXX9CC$"NINETY POINT "PB$-J+ANS$PA$" POINT "PB$>+XX10YYAA$"POINT "PA$PB$X+"AA$PB$" POINT "PA$+$XX10YYAA$"POINT "PA$" "PB$+'Z0AA$"ONE HUNDRED"+,BB$PA$" "PB$+6XX0CC$"TEN POINT "PB$+8XX1CC$"TEN POINT "PB$,:XX2CC$"TWEN$*X0BB$"ONE HUNDRED"/*X1BB$"TEN"E*X2BB$"TWENTY"[*X3BB$"THIRTY"p*X4BB$"FORTY"*X5BB$"FIFTY"*X6BB$"SIXTY"*X7BB$"SEVENTY"*X8BB$"EIGHTY"*X9BB$"NINETY"* CC$"ZERO POINT"" "PA$+::"DIVISION PRACTICE PROBLEMS":39)$ :1:4:"TRY EACH OF THE FOLLOWING PROBLEMS TO":"TEST YOUR UNDERSTANDING OF THE IDEAS"$ "WHICH WERE JUST PRESENTED"::"LOOK AT THE PROBLEM ON THE LEFT AND" % "SELECT THE CORRECT ANSWER FROM THE":"BOX O272(AN$):15:I1(AN$):(AN$,I,1);" ";:I# 900:15::26DP2:"."::20:12:PSDPĺ"WRONG! CORRECT ANSWER IS":2438# "CORRECT!";::10)# 23:1::"WANT MORE PRACTICE (Y/N)?";:IP$:IP$"Y"IP$"N"2438# IP$"Y"2410# '$ :w L3(AN$)(((AN))):AN(AN)L3L31J"y L3L2L1AN$AN$"0":2423S"{ DP0"| T$AN$:AN$"":I1(T$):A$(T$,I,1):A$"."AN$AN$A$:2430"} DP(T$)I"~ I:18::9(DM$):DM$;:10:")";:18(NM$):NM$:17:10:"-----------------"/# 3:H621:397!o NM(((1)100000)1)1000:DM(((1)100000)1)1000:ANNMDM:NM$(NM):DM$(DM):AN$(AN):(AN$)8AN$(AN$,8)!p AN.01NM.01DM.012415!r L1(NM$)(((NM))):NM(NM)L1L11!t L2(DM$)(((DM))):M2(DM)L2L21*"HE DIVISION PROBLEM BELOW.":"USE THE <- AND -> KEYS TO PLACE THE":"ARROW UNDER WHERE YOU THINK THE DECIMAL" h "POINT SHOULD BE IN THE ANSWER. PRESS":"THE . KEY AFTER YOU HAVE CHOSEN THE":"THE DECIMAL POINT LOCATION." j 34,12: !m L51:L639:H519):X1:(AN$)(10(N1D1))&:23t1:"WOULD YOU LIKE ANOTHER EXAMPLE (Y/N)?";:IP$:IP$"Y"IP$"N"2228IP$"Y"ė:2220` :::"PRACTICE - DECIMAL POINT LOCATION":39)::1c L31:L439:H34:H411:395m e 5:1::"LOOK AT T1000:NM.01DM.012221a4:30:"PROBLEM:"::30:"DIVIDE":30:NM" BY":30:DM:SNNM:SDDMDM(DM)D1D11:DMDM10:D122223NM(NM)N1N11:NMNM10:N132224700::23:40):23:1::Y1:X4:SD;:X1:SN:Y1:X1: MOVE THE DECIMAL POINT IN THE":3:"DIVIDEND THE SAME NUMBER OF PLACES":2:"<4> PLACE THE DECIMAL POINT IN THE":3:"QUOTIENT IN THE SAME PLACE AS THE":3:"ONE IN THE DIVIDEND."23:305:D10:N10:DM((1)100)100:NM((1)1000)39:H34:H420:395::5:11:"DECIMAL POINT RULES":c2:"<1> DIVIDE IGNORING DECIMAL POINT":2:"<2> AFTER COMPLETION OF DIVISION MOVE":3:"THE DECIMAL POINT IN THE DIVISOR SO":3:"THAT THE DIVISOR BECOMES A WHOLE":3:"NUMBER":J2:"<3>2128RIP$"Y"ė:2120\Y:::"DIVISION WITH DECIMAL NUMBERS":39):4:34,3X5:Y6:1::"FOLLOWING IS AN EXAMPLE OF DIVISION OF":"DECIMAL NUMBERS AND THE RULES FOR":"PLACING THE DECIMAL POINT IN THE":"QUOTIENT":23:305:5L31:L4IVIDEND DECIMAL":3:"POINT.":LF2:"<3> DIVIDE IGNORING DECIMAL POINT."aG34,3:23:305:gHKDM((1)90)10:NM((1)DM)1:NM102123M700::23:40):23:1:P1:"WOULD YOU LIKE ANOTHER EXAMPLE (Y/N)?";:IP$:IP$"Y"IP$"N"FOR PLACING":"THE DECIMAL POINT IN THE QUOTIENT"U9L31:L439:H38:H419:395::9v>11:"DECIMAL POINT RULES":A2:"<1> PLACE DECIMAL POINT AFTER LAST":3:"DIGIT IN DIVIDEND.":C2:"<2> SET QUOTIENT DECIMAL POINT":3:"IMMEDIATELY ABOVE DCIMAL PLACES"e:"<3> DIVIDE ANY TWO DECIMAL NUMBERS TO A SPECIFIED NUMBER OF DECIMAL PLACES"t23:305:4:::"DIVISION WITH WHOLE NUMBERS":39):417X5:Y6:1::"FOLLOWING IS AN EXAMPLE OF DIVISION OF":"WHOLE NUMBERS AND THE RULES :39)H4:1::"AFTER COMPLETING THIS UNIT YOU WILL BE":"ABLE TO:"8:"<1> DIVIDE ANY TWO WHOLE NUMBERS TO A":5:"SPECIFIED NUMBER OF DECIMAL PLACES": "<2> DIVIDE ANY DECIMAL NUMBER BY A WHOLE NUMBER TO ANY SPECIFIED NUMBER OF":5:"DE4Q1424000 ;RNQ5Q15250004;\NQ6Q1626000H;fNQ7Q1727000\;pNQ8Q1828000p;zNQ9Q1929000;NQ10Q2030000;RAN$"A"20000;RAN$"A"31000;UAN$"C"20000;UAN$"C"31000;YAN$"D"20000;YAN$"D"31000<]19:" SCORE = ";PERCENT;" %"X:NC23::"PRESS RETURN TO PROCEED ";XZ$:k:OCXZ$"R"17221v:PC40000: N" ";AN$:"NCOUNTERCOUNTER1:*NQ1Q1121000:4NQ2Q1222000:>NQ3Q1323000 ;HNQE OF TRAILING ZEROS IS ",0'"PRESENTED.":I0,:"USING THE PROGRAM":01:"TO USE THIS PROGRAM, SIMPLY FOLLOW EACH":"OF THE DIRECTIONS ON THE SCREEN, AS IT"06"APPEARS. IF YOU HAVE ANY PROBLEMS IN":"USING THE COMPUTER, PLEASE SPEAK TO " 1;"Y(DA$));DA$/l23:305"/:9G/:::"INSTRUCTIONS":302:34,3k/:"WHAT IS THIS UNIT ABOUT?":/:"IN THIS UNIT, YOU WILL LEARN HOW TO ADD":"NUMBERS WHICH CONTAIN DECIMAL POINTS."0":"THE RULES FOR ADDITION ARE REVIEWED,":"AND THE US.4VE$"":DA$""5.:L31:L4(EW$)2:H31:H44:395l. ";N$(I):I~+ :6:22:"WHICH (1-4)?";:IP$:IP(IP$):IP0IP43048+ 14:21::CA1IPĺ"CORRECT!":RDRD1:3055+ "WRONG! ANSWER IS":X33:Y8CA:315+ 22:305:PN:?,0HE$(1)" (I)(N$(I),6)C* N6(N$(I))((1)3):J0N:N$(I)N$(I)"0":Jx* ((1)2)(N$(I))7N$(I)N$(I)(((1)9)1)* N(I)(N$(I)):I3040* J0I1:N(I)N(J)JI:J:3028* J* I+ CA((1)4):N(CA)AN:N$(CA)AN$:I03:(N$(I))7N6:4::"PROBLEM #";PN:7:4:"DIVIDE"i) 11:10:"--------":9(W2$):W2$;:10:")";:18(W1$):W1$t) I03) N(I)AN10(((1)5)(1((1)2))):N(I)ANN(I).013028) N$(I)(N(I)):((1)2)N$(I)N$(I)(((1)9)1)* (N$(I))6N$W1%W1L1L11-( ANW1W2:AN$(AN):AN%ANL( W1.01W2.01AN.013003{( A$(AN%):L3(AN$)(A$):ANAN%L3L31( L3L1L2AN$AN$"0":3013( 4:4::"SELECT THE CORRECT ANSWER":L33:L419:H36:H414:395:L521:L637:H56:H614:397') ' (4);"RUN WW"' a' PN110:::L51:L639:H52:H623:397:1:2::"TEST YOUR SKILLS"' W1((1)1000)100:W2((1)W1100)100:W1%W1:W2%W2:W1$(W1):W2$(W2)' A$(W2%):L2(W2$)(A$):W2%W2L2L21( A$(W1%):L1(W1$)(A$):610"&0 "GO ON TO THE NEXT UNIT."L&2 9:"YOU HAVE THE FOLLOWING OPTIONS:"n&5 11:"<1> REVIEW THIS UNIT":&7 "<2> GO ON TO ANOTHER UNIT":&: "<3> END FOR NOW"&< 20:1::"WHICH (1-3)?";:IP$:IP$:IP(IP$)::(IP1IP3)2620&A & ::N THE RIGHT""% 23:305:::RD0.% 3000:W%( :::"EXIT ROUTINES":39)::4:1%+ "IN THE PRECEDING EXERCISES YOU SELECTED":"THE CORRECT ANSWER ";RD;" OUT OF 10 TIMES.":"BASED UPON THIS SCORE YOU SHOULD"&- RD8ĺ"REVIEW THIS UNIT AGAIN.":215:X(2)24:Y(2)15:F11:V(1)18:H(1)223#y I02_#| VY(I):HX(I):615:IP$"0"İ541:2428t#~ 540:I:S7:537# H419:H619:395:395:397::14:1:"<3> SUBTRACT ONE":" COLUMN AT A TIME":" BORROWING FROM":" NEXT COLUMN WHEN":" NECESSARY"V$ :23:"-------":530A"o 34,12:H313:H418:395:H513:H618:397r"r :15:1:"<2> ADD MISSING":" PLACE ZEROS":"t :14:24:I411:S(1,I);:I3ĺ".";:(#w I::23:"-";:26:".";:I201:S(2,I);:I::23:"-------":X(0)29:Y(0)14:X(1)25:Y(1)9)1:I:I02:S(2,I)((1)9)1:I`!h L31:L419:H36:H411:395:L521:L639:H56:H611:397!j :8:1:"<1> STATE PROBLEM":2:"LINE UP DECIMAL":2:"POINTS"::7:24:I411:S(1,I);:I3ĺ".";"m I::23:"-";:26:".";:I201:S(2,I);:I:N":530:4:40):7006  530:X29:Y5:402:530:400N  I401:760:530b  I:24:305:: ` :::"PRACTICE - SUBTRACTION OF DECIMALS":39):34,3 c :4:2:"RULE";:22:"YOUR TRY"%!e I05:S(1,I)0:S(2,I)0:CR(I)0:I:I14:S(1,I)((1)N'T FORGET THE";:22:"DECIMAL POINT!":530:24:305:<o:::"SUBTRACTION WITH MISSING PLACES":39)x750J01:N(0,J)((1)4)1(1J)4:I14:N(I,J)((1)4)1J4:I,J:N(0,1)0:N(4,0)0  :750:4:1:"NOW WATCH THIS SUBTRACTIOTHE SUBTRACTION OF DECIMALS IS DONE"::"EXACTLY";::" THE SAME WAY":530::I04:J01:N(I,J)0:J,IJ01:N(2,J)((1)4)1(1J)4:N(3,J)((1)4)1J4:J4000:700:4005:I321:I2İ4015760:4010:5306I:V4:21::"<4> DOF WHOLE":"NUMBERS REQUIRING BORROWING":530:4:80)H4000:F0:750J01:I24:N(I,J)0:I:N(0,J)((1)4)1(1J)4:N(1,J)((1)4)1J4:J:7004005:I101760:Iİ40154010:530I:24:305::F0:750h4::1:"4000:700:4005:I321:760:I3İ4010:4015CMI2İ531:4010PI:V4:21::"<4> DON'T FORGET THE";:22:"DECIMAL POINT!":530:24:305::::"SUBTRACTING DECIMALS WITH BORROW":39):34,254::1:"LET'S REVIEW THE SUBTRACTION O005:I101)>760:21:Iİ4010:4015<AIİ531:4010NCI:24:305:H4::1:"THE SUBTRACTION OF DECIMALS IS DONE"::"EXACTLY";::" THE SAME WAY":530:II01:J01:N(I,J)0:J:I:I23:N(I,0)((1)4)5:N(I,1)((1)4)2:I/KERS":23:305:L4:::"SUBTRACTING DECIMALS WITHOUT BORROW":39):34,274::1:"LET'S REVIEW THE SUBTRACTION OF WHOLE":"NUMBERS":530:4:60)840009J01:I24:N(I,J)0:I,J:I01:N(I,0)((1)4)5:N(I,1)((1)4)1:I:700 <4P$"N"10002000 2100*220042300>2400H2500R$2600k':IP1000,2700,1999q:::"OBJECTIVES":39):4:1:"AFTER REVIEWING THIS UNIT YOU SHOULD BE":"ABLE TO"10:"<1> SUBTRACT ANY SET OF DECIMAL NUMB:XH:YV:N1400,410,420,430,440,450,460,470,480,490:I2Ģ23:XD:" "MS :Y:I815:X:5)::K1200:K,I8::" ":::" "::10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)IP$"Y"İ63000:1005 I)(N(I7,0)10)10:NT(I7,0)769800:N1402,411,423,432,442,453,462,472,483,492:531:N1400,410,420,430,440,450,460,470,480,490T(I7,0)N531:I74BN(I71)Ģ4:XN(I71)::BN(I71);:531::XN(I71):BN(I71)I7GNN(I,0)N(I,1)3{23:301::: BY92: LACHLAN ARNOTT 1988 f2:************************* 2RS. IF YOU HAVE ANY PROBLEMS IN":"USING THE COMPUTER, YOU MAY WANT TO "2;"LOOK AT THE BLUE HANDBOOK, WHICH COMES":"WITH THIS PROGRAM FOR HELP."OUR TEACHER." 1{23:301:::L1:*************************s1: THIS VERSION 1: MODIFIED AND AUGMENTED 1: FOR THE 1:COMPUTER EDUCATION CENTRE 2: THIS DISK."3{23:301:::GMENTED ,2: FOR THE Y2:COMPUTER EDUCATION CENTRE y2: BY2: LACHLAN ARNOTT 1988 2:************************* 2FER TO THE BLUE HANDBOOK THAT COMES ":"WITHFOLLOW THE ":"DIRECTIONS AS THEY APPEAR ON THE":"SCREEN. IF YOU HAVE ANY DIFFICULTY,"w1@"PLEASE SEE YOUR TEACHER."1{23:301:::1:*************************1: THIS VERSION 2: MODIFIED AND AU0'"TEACH YOU THE SUBTRACTION OF DECIMAL ":"NUMBERS. BORROWING, AND THE USE OF "0,"TRAILING ZEROES IS REVIEWED. YOU ARE":"GIVEN PRACTICE WITH EACH OF THESE NEW"01"SKILLS."06::"HOW TO USE THIS PROGRAM":W1;:"TO USE THIS PROGRAM, SIMPLY HE$(I):20((HE$)2):HE$:IF/b17:1:VE$;39(VE$)(DA$));DA$U/l23:305:^/:9/:::"INSTRUCTIONS":302:34,3/:"WHAT IS THIS PROGRAM ABOUT?":/":"THIS PROGRAM WILL REVIEW FOR YOU THE ":"SUBTRACTION OF WHOLE NUMBERS AND "RNING UNIT":HE$(4)"SUBTRACTION OF DECIMALS"M.1HE$HE$(4): SET TO LONGEST_.4VE$"":DA$"".:L31:L4(EW$)2:H31:H44:395. SUBTRACT NUMBERS";:22:"IN NEXT COLUMNS":22:"UNTIL DONE":530:V4V42:+.0HE$(1)" ":HE$(2)"DECIMALS":HE$(3)"LEARIP1IP43033=, :14:21:CAIPĺ"CORRECT!":RDRD1:3999f, "WRONG! ANSWER IS":X33:Y7CA:315y,23:305:PN:,4:21:"<1> STATE PROBLEM":531:,530:6:21::"<2> SUBTRACT NUMBERS";:V47:22:"IN LAST COLUMN":531:700:'-V4V41:50)1000):A(I)AN3020$+ I3029I+ J0I1:A(I)A(J)JI:J:3020P+ J+ A(I)((A(I)1000)1000):I:CA((1)4)1:A(CA1)(AN1000)1000+ :8:I03:22:"<";I1;"> ";A(I):I, :6:22:16368,0:"WHICH (1-4)?";:IP$:IP$:IP(IP$):33:L419:H36:H414:395a* L521:L637:H56:H614:397:6:4::"PROBLEM #";PN:4:"SUBTRACT:"~* N((S1)(10)):S10N* 9:9N:S1:6:"-";:N((S2)(10)):N0N1* 9N:S2:6:"--------"* I03+ A(I)AN(1((1).5))(((1)272620 )A :) ::,) (4);"RUN WW"2) C) :PN110:~) L51:L639:H52:H623:397:1:2::"TEST YOUR SKILLS") S1(1)((1)40)3:S2(1)S1) S1(S11000)1000:S2(S21000)1000:ANS1S2* 4:4::"SELECT THE CORRECT ANSWER":LVIEW THIS UNIT AGAIN.":2610;(0 "GO ON TO THE NEXT UNIT."e(2 9:"YOU HAVE THE FOLLOWING OPTIONS:"(5 11:"<1> REVIEW THIS UNIT":(7 "<2> GO ON TO ANOTHER UNIT":(: "<3> END FOR NOW")< 20:1::"WHICH (1-3)?";:IP$:IP$:IP(IP$):(IP1IP3) ANSWER FROM THE":"BOX ON THE RIGHT".' RD0G' 23:305:::3000:p'( :::"EXIT ROUTINES":39)::4:1'+ "IN THE PRECEDING EXERCISES YOU SELECTED":"THE CORRECT ANSWER ";RD;" OUT OF 10 TIMES.":"BASED UPON THIS SCORE YOU SHOULD"(- RD8ĺ"RE23:305::E& :::"SUBTRACTION PRACTICE PROBLEMS":39):34,3:& 4:1:"TRY EACH OF THE FOLLOWING PROBLEMS TO":"TEST YOUR UNDERSTANDING OF THE IDEAS":"WHICH WHERE JUST PRESENTED"%' :"LOOK AT THE PROBLEM ON THE LEFT AND":"SELECT THE CORRECT% 13:22::"COLUMN DIFF.?":I04:I3Ģ18:ZI::".":ZZ1r% HZI:V18:615:IP(IP$):IPA(I)İ541:2442~% 540:I% N10:537% L51:L639:H513:H617:397::15:2::"WANT MORE PRACTICE (Y/N)?";:IP$:IP$"Y"2400% IP$"N"2453 & :15:I12:24:J431:S(I,J);:J:".";:J201:S(I,J);:J::I:23:"-------"g$ 16:23:"-"x$ V(1)19:Z29$ I04:JI:S(2,I)S(1,I)2440$ JJ1:S(1,J)S(1,J)1:S(1,J1)S(1,J1)10:S(1,J)02439$ I:I04:A(I)S(1,I)S(2,I):I?E (Y/N)?";(&. A$:A$"Y"A$"N"2350<&1 A$"Y"ė:2310K&_ 23:305:p&` :::"ROUNDING OFF":39)::1&c 4:"IF YOU CHANGE A NUMBER SO THAT THERE AREFEWER SIGNIFICANT DIGITS, THAT CHANGE":"IS CALLED ";::"ROUNDING";::" THE NUMBER."W'e "H2::" # OF DIGITS = ";N:16:S1:A$D%$ NES1:A(N$):(A)NN1%' 14:22:"SIG. DIGITS = ";N:16:23:(N$,S,ES1):19:22:"CORRECT ANSWER"%) :19:2:E2E1S2S1ĺ"WRONG ANSWER":2348%* "CORRECT ANSWER" &, 21:1::"WANT MORE PRACTIC9$ :16:3:N$:PS3::14:2:"FIRST SIG. DIGIT?":PS3Q$ 4000:A$"F"2330$ PS::S1PS:"F":PSPS1:14:2::"LAST SIG. DIGIT? "$ 4000:A$"L"2335$ E1PS::17:PS:"L"$! A$(N$,S12,E1S11):A(A$):NE1S11:(A)NN1$%" 14:19:H514:H619:397:L521:L639:397a# N(1)10000:E((1)4):N$(N):EāI1E:N$N$"0":I# E(N$):E15āIE115:N$" "N$:I# I115:SI:A$(N$,I,1):A$" "ĂI:2323# I16:I# I1511:A$(N$,I,1):EI:A$"0"ĂI:2328$ I0:IT":"DIGITS OF THE NUMBER BELOW. USE THE":"-> AND <- KEYS TO PLACE THE ARROW UNDER"" "THE DIGIT YOU WANT AND PRESS THE F KEY":"IF YOU THINK IT IS THE FIRST SIGNIFI-":"CANT DIGIT AND THE L KEY IF YOU THINK":"IT IS THE LAST."" 34,12:%# L51:L6E:A$(DG$(I),K,1):K22::A$;:532:KEğ:K22:A$;:532:K22::A$;:532j!K:J16:J::15E):Ip!!23:305:!:::"PRACTICE - SIGNIFICANT DIGITS":39)!L31:L439:H34:H412:395::5:1T" "FIND THE FIRST AND LAST SIGNIFICANJ115:A$(DG$(I),J,1)::J22:A$;:532::J22:A$;:A$" "ĂJ,I:2230 :J22:A$;:532:K15J11:EK:A$(DG$(I),K,1):A$" "A$"0"ĂK:2225 KJ:K F0:K115:(DG$(I),K,1)"."F1 (DG$(I),K,1)" "SK K:FESN!KJ THROUGH THE":"LAST NON-ZERO DIGIT"G"AFTER THE DECIMAL":"POINT." " 1000 "," 1000.210 "," 23.5608 "," 21.79000 "," .0030 "," 1234.567890 ":6:I05:DG$(I):23:DG$(I):I530:I05:531:I6J :::"WHAT ARE SIGNIFICANT DIGITS?":39):1:34,3rL31:L419:L521:L639:H34:H415:H54:H615:395:397:5:1:"THE SIGNIFICANT":"DIGITS OF A NUMBER":"BEGIN WITH THE":"FIRST NON-ZERO":"DIGIT BEFORE THE"$"DECIMAL POINT AND":"GO ON5::1yH16:" A NUMBER IS REALLY":" THE SUM OF ITS":" DIGITS TIMES THE":" VALUE OF THEIR":" COLUMN PLACES.":16:KI14:24:PL(I)" X ";:27I:CP(4I);:32:" = ";:35I:NPL(I)CP(4I):N:SSN:IM36:"----":36:S:53023:305:7:PL(I)((1)9)1:I:531[CI14:XI81:PL(I)410,420,430,440,450,460,470,480,490:IF531:I03:CP(I)10I:I:5:1::40):13:40):H15:H213:L17398:322:L1:I14:14:I91:CP(4I):IG530::16:40)::H316:H420:L31:L420:39:L639:H55:H613:397:531<X33:Y7:I110:I400,410,420,430,440,450,460,470,480,490:J1500:J::J711:J:33:5):J,I>531:6:3:25):9:13:5):531:16:3:"ALL NUMBERS ARE MADE UP OF DIGITS":S0AL52378:L6L58:397:L5:I14', 'NUMBER',";:5:"AND 'SIGNIFICANT DIGIT.'":"<2> ROUND OFF ANY DECIMAL TO THE RE-":5:"QUIRED NUMBER OF SIGNIFICANT DIGITS."23:305:4:::"WHAT IS A DIGIT?":39)::34,376:3:"THESE ARE THE 10 DIGITS":9:13:"---->"9L531IP$"N"10002000&210002200:2300D2400N2500X$2600q':IP1000,2700,1999w:::"OBJECTIVES":39):1:4:"AFTER COMPLETION OF THIS UNIT YOU WILL":"BE ABLE TO:"/8:"<1> EXPLAIN THE TERMS 'DIGITI,1):XH:YV:N1400,410,420,430,440,450,460,470,480,490:I2Ģ23:XD:" "QW :Y:I815:X:5)::K1200:K,I8::" ":::" ":::10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)IP$"Y"İ63000:1005I7,0)(N(I7,0)10)10:NT(I7,0)769800:N1402,411,423,432,442,453,462,472,483,492:531:N1400,410,420,430,440,450,460,470,480,490T(I7,0)N531:I74BN(I71)Ģ4:XN(I71)::BN(I71);:531::XN(I71):BN(I71)I7KNN(I,0)N( 1988 36:************************* TCULTY, LOOK AT THE BLUE HAND-"|6;"BOOK THAT COMES WITH THIS DISK."6{23:301:::*************************@5: THIS VERSION k5: MODIFIED AND AUGMENTED 5: FOR THE 5:COMPUTER EDUCATION CENTRE 5: BY6: LACHLAN ARNOTTRACTICE WITH""4,"EACH OF THEM."G41::"HOW TO USE THIS PROGRAM":46:"TO USE THIS PROGRAM, FOLLOW THE SCREEN":"DIRECTIONS AS THEY APPEAR. IF YOU HAVE":"ANY DIFICULTY, PLEASE SPEAK TO YOUR "4;"TEACHER."4{23:301:::5:INSTRUCTIONS":302:34,3:3:"WHAT IS THIS UNIT ABOUT?"3::"IN THIS UNIT, YOU LEARN ABOUT THE ":"MEANING OF THE TERMS 'DIGIT,'":"'SIGNIFICANT DIGIT,' AND 'ROUNDING OFF'" 4""OF DECIMALS. YOU ALSO LEARN HOW TO DO ":"THESE OPERATIONS, AND GET PL4(EW$)2:H31:H44:395Q2 ":HE$(2)"DECIMALS":HE$(3)"LEARNING UNIT ":HE$(4)"ROUNDING DECIMAL NUMBERS"11HE$HE$(4)14VE$"":DA$""2:L31:ICANT":6:"DIGITS"m0 V8:H23:F1(AN$):615:IP(IP$):AN(AN$):14:21:IPANğ:"CORRECT":RDRD1:30250 :"WRONG! ANSWER IS"::10:23:AN$0 022:305::PN:0:17:PS:"^";0PS:A$:A$(8)A$(21)A$"F"A$"L"4000 1N1$N2$:AN$N1$N3$>/ (N3$).01(N2$).01((N1$))3003P/ D6C63003/ 4:4::"ENTER THE CORRECT ANSWER":L33:L419:H36:H414:395:L521:L637:H56:H614:397/ 6:4::"PROBLEM #";PN:7:4:"ROUND"0 9:6:P$:6:"TO ";D:6:"SIGNIF2:H623:397:1:2::"TEST YOUR SKILLS"J. N1$(((1)100)):C1(N1$). E10((1)53):N2$(((1)E)E):C2(N2$)1:D2((1)(C21))1:E10D2:N3$((((N2$)E).5)E). (N3$)D21N3$N3$"0":3006/ N3$(N3$,1,D21):CC1C2:DC1D2:P$LLOWING OPTIONS:"3-5 11:"<1> REVIEW THIS UNIT":V-7 "<2> GO ON TO ANOTHER UNIT":m-: "<3> END FOR NOW"-< 20:1::"WHICH (1-3)?";:IP$:IP$:IP(IP$)::(IP1IP3)2620-A - ::- (4);"RUN WW"- ). RD0:PN110:L51::L639:H5EXIT ROUTINES":39)::4:1,+ "IN THE PRECEDING EXERCISES YOU SELECTED":"THE CORRECT ANSWER ";RD;" OUT OF 10 TIMES.":"BASED UPON THIS SCORE YOU SHOULD",- RD8ĺ"REVIEW THIS UNIT AGAIN.":2610,0 "GO ON TO THE NEXT UNIT."-2 9:"YOU HAVE THE FO":39)+ 4:1::"TRY EACH OF THE FOLLOWING PROBLEMS TO":"TEST YOUR UNDERSTANDING OF THE IDEAS":"WHICH WERE JUST PRESENTED"+ :"LOOK AT THE NUMBER ON THE LEFT AND ROUNDIT TO THE NUMBER OF DIGITS REQUIRED"+ 23:305::+ 3000:,( :::"F YES":17:22:"INCREASE LAST":22:"DESIRED DIGIT BY 1"~* PNĺ"IF NO":17:22:"KEEP LAST DESIRED":22:"DIGIT THE SAME"* N((N$,1,D1)):PNNN(10(D))* :14:23:N;:PN2ĺ"0"* 1:23:305:PN:+ :::"ROUNDING PRACITICE PROBLEMS:14:3:N$:4D:"^"::14:3:(N$,1,D1)~)w 20:1::"IS THE DIGIT AFTER THE LAST DESIRED ONE":"GREATER THAN 4 (Y/N)?";)y IP$:IP$"Y"IP$"N"2425)| (PNIP$"Y")(PNIP$"N")ĝ:22:1:"TRY AGAIN":24239*~ 22:1::10)::11:22:PNĺ"I(m N$N$(((1)5)5)B(o A$(((1)100)):CC(A$):N$N$A$(r 11::1:19):21:19):L51:L619:H512:H617:397:L521:L639:397::18:1:19):21:19)(t 11:1:"CURRENT NUMBER OF":"DIGITS = ";C:17:"DESIRED NUMBER OF":"DIGITS = "D,)u ERE ARE SOME EXAMPLES OF HOW TO ROUND":"NUMBERS TO A DESIRED NUMBER OF DIGITS":34,9:e'g PN02:'h D10((1)5):N((1)D)D:N$(N):D(N$)1:PNN$N$(((1)4)):DD1:PN2N$N$"9":DD1'i D2408(j CD1:PNN$N$(((1)5)):2415&y L3L2L1AN$AN$"0":2423'&{ DP0k&| T$AN$:AN$"":I1(T$):A$(T$,I,1):A$"."AN$AN$A$:2430z&} DP(T$)I&~ I:15::10(M1$):M1$:3:"X";:10(M2$):M2$:3:"-------"& 192(AN$):I1(AN$):(AN$,I,1);" ";:I@' 900:18::H513:H621:397f%o M1((1)10000)100:M2((1)M1100)100:ANM1M2:M1$(M1):M2$(M2):AN$(AN)w%p AN.012415%r L1(M1$)(((M1))):M1(M1)L1L11%t L2(M2$)(((M2))):M2(M2)L2L21%w L3(AN$)(((AN))):AN(AN)L3L31AT THE MULTIPLICATION PROBLEM":"BELOW. USE THE <- AND -> KEYS TO PLACE":"THE ARROW UNDER WHERE YOU THINK THE"$h "DECIMAL POINT SHOULD BE IN THE ANSWER":"PRESS THE . KEY AFTER YOU HAVE CHOSE":"THE DECIMAL POINT LOCATION."$j 34,12:%m L51:L639:2$)1:(DS$,1,(M2$)2):700:750{# 23:1::"WOULD YOU LIKE ANOTHER EXAMPLE (Y/N)?";:IP$:IP$:IP$"Y"IP$"N"2310# ::IP$"Y"2303# #` :::"PRACTICE - INSERTING DECIMAL POINT":39)#c L31:L439:H34:H411:395o$e 5:1::"LOOK 9):1::34,3["4:"NOW LET'S LOOK AT AN EXAMPLE OF HOW TWO":"DECIMALS ARE MULTIPLIED."z" L53:L638:H57:H621:397" M1$(((1)10000)1001):M2$(((1)(M1$)100)1001):X15:Y10:Y:X(M1$)1:M1$:X(M2$)1:M2$"# Y1:5:"X":X(MESE TWO":"NUMBERS TOGETHER":!"5-PLACE THE DECIMAL":"POINT IN YOUR":"ANSWER SO THAT":"THAT MANY DIGITS":"COME AFTER THE":"DECIMAL POINT"!:14:23:1.37046;:31:"<-";::5!23:305: ":::"EXAMPLE - MULTIPLICATION OF DECIMALS":3R":"OF DIGITS AFTER":"THE DECIMAL POINT":"IN THE MULTIPLIER":h 9:31::"<-";::2:530::1:12 "3-COUNT THE NUMBER":"OF DIGITS AFTER":"THE DECIMAL POINT":"IN THE MULTIPLICAND" 8:31::"<-";::3:S11:537:395!7:1::"4-ADD THTION":"JUST AS YOU WOULD"j"WITH WHOLE NUMBERS":"AND IGNORE THE":"DECIMAL POINT FOR":"THE MOMENT.":8:24:1.506:23:"X .91":23:"------":25:150623:13554:23:"------":23:137046S11:537:395A 7:1::"2-COUNT THE NUMBE"Y"IP$"N"2110'A::IP$"Y"2103-C\:::"DECIMAL POINT LOCATION":39)::1}4:2:"RULE";17);"EXAMPLE"L31:L419:H36:H416:L521:L639:H56:H616:395:3977:1::"1-WHEN MULTIPLYING":"DECIMALS, PERFORM":"THE MULTIPLICA:L635:H57:H620:397u;M1$(((1)94)5):M2$(((1)(M1$))1):X10:Y10:Y:X(M1$)1:M1$:X(M2$)1:M2$<Y1:X(M2$)1:"X":X(M2$)1:(DS$,1,(M2$)2):700:750>23:1::"WOULD YOU LIKE ANOTHER EXAMPLE (Y/N)?";:IP$:IP$:IP$HIS UNIT YOU WILL":"BE ABLE TO:"b10:"<1> CORRECTLY MULTIPLY ANY TWO DECIMAL":5:"NUMBERS."q23:305:4:::"REVIEW - MULTIPLICATION":39):1::34,374:"LET'S REVIEW THE MULTIPLICATION OF WHOLENUMBERS. LOOK AT THIS EXAMPLE"9L53ED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)FIP$"Y"İ63000:1005YIP$"N"1000c2000m2100w2200230024002500$2600':IP1000,2700,1999:::"OBJECTIVES":39)!:4:1:"AFTER COMPLETION OF TJN1C(J1)ĢYI3:XJI1:S(I,J1)-6PS8f:19:18PS2:"^";:18PS2:A$:A$"."ı(A$)8PS8ĝ:19:18PS2:" ":PSPS1(A$)21PSĝ:19:18PS2:" ":PSPS1903:" ":::" "::,:10::"DO YOU NE)" = ";::C(1J);I#M2:Y:X17::"!":Y1:X1:"<-----CARRY------"%KY2YI3:K:X18:"!":K:YI3:X1:"<-PARTIAL PRODUCT"(23:305*Y:X1(J):M1(J):YI3:XJI:S(I,J):J1(M1$)ĢY1:X1(J1):C(J1)-YI3:X1:17)'/)MIY1YN25:X1:I:18):I:YN25:X2:"<-TOTAL PRODUCT":23:305xAN0:IN1N2101:ANAN10ST(I):ID1D2ANAN(10(D1D2)):AN$(AN):YN26:X(AN$)1:AN$;" PUT IN DECIMAL POINT" :Y1:X5:C(J)" + "M2(I)" X "M1(J):I I0N1N21:ST(I)0:IRI0N2:J0N11:ST(IJ)ST(IJ)S(I,J):J,II0N1N21:A(ST(I)10):ST(I)ST(I)A10:ST(I1)ST(I1)A:II0N1N21:YN25:XI:ST(I):I:ST(I)ĢVN25:XI:ST(I)YN24:XN2N1:(DS$,1,N1N21ES AHEAD.221:"THAT IS CORRECT "L$"!"U23:"YOUR HORSE MOVES AHEAD."_!5000( GO TO SUBROUTINE THAT MOVES HORSE AHEAD.+2300. IF HORSE CROSSES FINISH LINE, THAT PLAYER HAS WON. GO TO END OF PROGRAM.0X35X3530005CT, GIVE THE CORRECT ANSWER. HORSE DOES NOT MOVE.: f 21:"SORRY, "L$". THE ANSWER IS "C"."23:"YOUR HORSE DOES NOT MOVE."5000 THE PLAYER WITH THE WHITE HORSE IS GIVEN A PROBLEM.600  IF ANSWER IS CORRECT, THE HORSE MOVBY,4: LACHLAN ARNOTT 1988 Y4:************************* P4)"REFER TO THE BLUE HANDBOOK WHICH COMES ":"WITH THIS DISK."4{23:301:::T3{23:301:::?3:*************************f3: THIS VERSION 3: MODIFIED AND AUGMENTED 3: FOR THE 3:COMPUTER EDUCATION CENTRE 4: , ":"AND THEN TEACHES YOU HOW TO PLACE THE"b2!"DECIMAL POINT, CORRECTLY, IN THE ":"ANSWER.":2":"HOW TO USE THIS UNIT":2':"FOLLOW THE DIRECTIONS AS THEY APPEAR ON":"THE SCREEN. IF YOU HAVE ANY PROBLEMS,"3)"PLEASE SPEAK TO YOU TEACHER."DS$"---------------------------------------"419Y1:::"INSTRUCTIONS":302:34,3}1:"WHAT IS THIS UNIT ABOUT?":1:"BEFORE USING THESE UNITS, YOU HAVE ":"ALREADY LEARNED THE RULES OF MULTIPLI-",2"CATION. THIS UNIT REVIEWS THOSE RULES"%0:L31:L4(EW$)2:H31:H44:395\0 ":HE$(2)"DECIMALS":HE$(3)"LEARNING UNIT ":HE$(4)"MULTIPLICATION"/1HE$HE$(3)04VE$"":DA$"I)"0":J>. ((1)2)(N$(I))7N$(I)N$(I)(((1)9)1)Y. N(I)(N$(I)):I3040~. J0I1:N(I)N(J)JI:J:3028. J. I. CA((1)4):N(CA)AN:N$(CA)AN$. :8:I03:22:"<";I1;"> ";N$(I):I/ :6:22:"WHICH (1-4)?";:IP$:$):W1$:4:"X";:12(W2$):W2$:4:"--------":- I03{- N(I)AN10(((1)5)(1((1)2))):N(I)ANN(I).013028- N$(I)(N(I)):((1)2)N$(I)N$(I)(((1)9)1)- (N$(I))6N$(I)(N$(I),6) . N6(N$(I))((1)3):J0N:N$(I)N$(W2.01AN.013003A, A$(AN%):L3(AN$)(A$):ANAN%L3L31a, L3L1L2AN$AN$"0":3013, 4:4::"SELECT THE CORRECT ANSWER":L33:L419:H36:H414:395:L521:L637:H56:H614:397, 6:4::"PROBLEM #";PN:7:4:"MULTIPLY"/- 10:12(W1:H623:397:1:2::"TEST YOUR SKILLS"w+ W1((1)1000)100:W2((1)W1100)100:W1%W1:W2%W2:W1$(W1):W2$(W2)+ A$(W2%):L2(W2$)(A$):W2%W2L2L21+ A$(W1%):L1(W1$)(A$):W1%W1L1L11+ ANW1W2:AN$(AN):AN%AN, W1.01OLLOWING OPTIONS:"4*5 11:"<1> REVIEW THIS UNIT":W*7 "<2> GO ON TO ANOTHER UNIT":n*: "<3> END FOR NOW"*< 20:1::"WHICH (1-3)?";:IP$:IP$:IP(IP$)::(IP1IP3)2620*A * ::* (4);"RUN WW"* '+ PN110:::L51:L639:H52"EXIT ROUTINES":39)::4:1)+ "IN THE PRECEDING EXERCISES YOU SELECTED":"THE CORRECT ANSWER ";RD;" OUT OF 10 TIMES.":"BASED UPON THIS SCORE YOU SHOULD")- RD8ĺ"REVIEW THIS UNIT AGAIN.":2610)0 "GO ON TO THE NEXT UNIT."*2 9:"YOU HAVE THE FEACH OF THE FOLLOWING PROBLEMS TO":"TEST YOUR UNDERSTANDING OF THE IDEAS"( "WHICH WERE JUST PRESENTED"::"LOOK AT THE PROBLEM ON THE LEFT AND"( "SELECT THE CORRECT ANSWER FROM THE":"BOX ON THE RIGHT"( 23:305:::RD0( 3000:)( :::18DP2:"."::15:12:PSDPĺ"WRONG! CORRECT ANSWER IS":2438Y' "CORRECT!";::10)' 23:1::"WANT MORE PRACTICE (Y/N)?";:IP$:IP$"Y"IP$"N"2438' IP$"Y"2410' ' :::"MULTIPLICATION PRACTICE PROBLEMS":39)J( :1:4:"TRY z#?     !ă."҃"ԃ9ă+ Ѓàחנ Ã7ă-ă- ă028! 28,30Y3 ! 26,30Y7! Y13Ġ1:21,3410=! |! THE FIRST PLAYER TO CROSS THE FINISH LINE IS THE WINNER.! :22::"YOU WIN "L$"!!":! 5000! 3020! :22::"YOU WIN "M$"!!":! 5000! 40000 " 22:"DO YOU WANT TO PLAX13Ġ1:6,2010 $ k THIS SUBROUTINE MOVES THE WHITE HORSE AHEAD WHEN A CORRECT ANSWER IS GIVEN.s YYz 0 Y,Y126 Y4,Y28 28,30Y3 26,30Y I13 YYI 2000 I YY 15 Y,Y126! Y4,Y SUBROUTINE MOVES THE BLUE HORSE AHEAD WHEN A CORRECT ANSWER IS GIVEN. QXXX0fX,X110tX4,X12 12,14X3 10,14X I13 XXI 1000 I XX 6 X,X110 X4,X12 12,14X3 10,14X  4,X12B12,14X3%L10,14X+j THIS SUBROUTINE MOVES THE WHITE HORSE ACROSS THE SCREEN.rYYz15Y,Y126Y4,Y2828,30Y3 26,30Y0 Y,Y126*Y4,Y28428,30Y3>26,30YI THISHAT PLAYER HAS WON. GO TO END OF PROGRAM.@Y35Y353005X GO TO BLUE HORSE.a500 THIS SUBROUTINE MOVES THE BLUE HORSE ACROSS THE SCREEN.XX6X,X110X4,X1212,14X310,14X$0.X,X110 8X GIVEN A PROBLEM.v500O{ IF ANSWER IS CORRECT, THE HORSE MOVES AHEAD.Uv21:"THAT IS CORRECT "M$"!"23:"YOUR HORSE MOVES AHEAD."5000 GO TO SUBROUTINE THAT MOVES HORSE AHEAD.2500, IF HORSE CROSSES FINISH LINE, TOVES HORSE AHEAD.*lOD(C)OD(D)6400mn IF ANSWER IS NOT CORRECT, GIVE THE CORRECT ANSWER. HORSE DOES NOT MOVE.q21:"SORRY, "M$". THE ANSWER IS "C"."r23:"YOUR HORSE DOES NOT MOVE."s5000u THE PLAYER WITH THE BLUE HORSE IS NUMBER_DR0605Ma LET C EQUAL THE ANSWER TO THE DIVISION PROBLEM.ZbCDIVDRf PRINT THE PROBLEM. PLAYER ENTERS HIS ANSWER.g23:DIV"/"DR"=":23:15:D$:D$"0"(D$)0615hD(D$)k IF ANSWER IS CORRECT THEN GO TO LINE THAT M GO TO WHITE HORSE.:600XW THE PLAYER WITH THE WHITE HORSE IS GIVEN A PROBLEM.^XY21:M$", ENTER YOUR ANSWER."\ GO TO SUBROUTINE THAT GENERATES DECIMALS FOR DIVISION PROBLEM.]53 ^ IF THE DIVISOR = 0 THEN GO BACK AND SELECT NEW BY2 : LACHLAN ARNOTT 1989 _ :************************* );" ";: 255:34,0:E :*************************l : THIS HELLO : PROGRAMMED : FOR THE :COMPUTER EDUCATION CENTRE  : Z2)L$L$" " ZZ(L$)2* 160:23d Z1(L$)2:1:(L$,ZZ1Z,1);:40:(L$,ZZZ,1);:l 65 Z123VZZ:: 225 Z1ZZ:V:1:(L$,ZZ1Z,Z);:41Z:(L$,ZZ1,Z);:24:: Z120ZZ:V:Z:" ";(L$,ZZ);:41ZZZ:(L$,ZZZ(16336)(16336):ZQ150::T :22:"PLEASE WAIT - PROGRAM LOADING"::255i (4);"RUN WW" 235:Z(Z$):Z2(Z2)Z$Z$" ":ZZ1 Z10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: 34,V ZZ(L$):ZZ2(ZLTON":190:V10:Z$"VICTORIA, 3054, AUSTRALIA":190: xV15:Z$" DISC PREPARED ":190:V16:Z$"FOR THE C.E.C.":190:V17:Z$" BY LACHLAN ARNOTT 1989":190 :V21:L$"C.E.C. COLLECTION DISC 42":59300: ZZ11500:ZZ" Z124::Z`  :?" "::49234,0:X039O((1)16)](X,39XXn2X,47X39X<39X,X47XF47X,XXPXZ(16384)136ī32d6 n:V8::Z$"COMPUTER EDUCATION CENTRE":190:V9:Z$"P.O. BOX 209 NTH. CAR     ?";:IP$::IP(IP$)(IP1IP242402::8>XSb(4);"RUN WW"YlV:9:31:"WRONG":::22:"ANSWER WAS:"::22::"1.08":R(3)0:W(3)1'Y:23:"<3> 1/8"0HE$(2)" ":HE$(3)"DECIMALS":HE$(4)" TEST "01HE$HEOR NOW."J23:301g)hD$(4):Im:"EXIT SELECTIONS":302:s:"NOW THAT YOU HAVE FINISHED WITH THIS":"TEST..... YOU HAVE THREE CHOICES:":|"<1> GO ON TO THE LEARNING PROGRAMS":"<2> END FOR NOW"23:1::"WHICH ONE (1-2):"FLASHING ARROW RECOMMENDS LEARNING UNIT":bI06:R(I)(R(I)1I5)H5I27:I7:I:4120iIs4125396:417019:"CONGRATULATIONS! YOU HAVE SHOWN YOU DO ":"NOT NEED ANY OF THE TEACHING PROGRAMS ":"YOU MAY STILL CHOOSE OR END F14:322:L121:322:L128:322F7:I06:17:R(I);:24:W(I)::Ix7:I06:31:R(I)1(I4R(I))ĺ"YES":4053"NO":I23:305:34,20::5::" " L329:L439:H36:H420:395-5:ZZ$"N"40500&&lZZ$:"EXEC WB":E&4:10:7::"'BYE NOW"::x&`24:"PRESS TO GO ON, TO END ";&jIN$:(IN$)160010&t(IN$)(27)3070&~(IN$)1360010&:&:*************************':LS IN THE DIVIDEND ??"::>%`'" 1,2,3 0R 4 ?? -----> ";A%S%e'A%1A%410050]%j'NNN2c%*%@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$%ZZ$"Y"Ĭ%֜::6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":&ZZ$:MLY FROM ":"1 TO 4 DECIMALS IN THE DIVIDEND."`$.'16::"YES OR NO ?? Y/N ----> ";ZZZ$:~$8'ZZZ$"N"ZZZ$"NO"11000$B':6::"HOW MANY DECIMALS IN THE DIVISOR ??"::$L'" 1 OR 2 ?? -----> ";B%$Q'B%1B%210050%V'12::"HOW MANY DECIMA':4::"DO YOU WANT TO SELECT THE NUMBER":"OF DECIMAL PLACES USED IN THE ":"TEST PROBLEMS YOU WILL GET ?? ":3$$'9:"IF YOU CHOOSE 'N' THE COMPUTER ":"WILL RANDOMLY CHOOSE FROM 1 TO 2":"DECIMALS IN THE DIVIDING NUMBER ":"(DIVISOR), AND RANDOY AGAIN?"8" 23:"PRESS Y FOR YES AND N FOR NO.":S$S" S$"Y"S$"N"ī3020d" S$"Y"ī430j" " 22:"THANKS FOR PLAYING COLT RACE."" 40150"60000:"'J$"N"J$"NO"10004"'23::"PRESS RETURN TO CONTINUE ";XZ$::10010"'x#Z:33,(20Z)2:::Z124:::X,(20Z)2:::Z124:::ING":9 14:1:"5 - DECIMALS 5: MULTIPLICATION":d 16:1:"6 - DECIMALS 6: DIVISION": 18:1:"7 - DECIMAL TEST 1": 20:1:"8 - DECIMAL TEST 2": !22:1:"9 - DECIMAL DIVISION HORSE RACE": +::" 24:Z1901:32, A$"8"ĺD$;"RUN DP"2 A$"9"ğ:545:P A$"9"ĺD$;"RUN DDHR"Y 255 6:1:"1 - DECIMALS 1: CONVERSION": 8:1:"2 - DECIMALS 2: ADDITION": 10:1:"3 - DECIMALS 3: SUBTRACTION": 12:1:"4 - DECIMALS 4: ROUND485:$ YA$"3"ĺD$;"RUN SD"9 cA$"4"ğ:495:V mA$"4"ĺD$;"RUN ROD"k wA$"5"ğ:505: A$"5"ĺD$;"RUN MOD" A$"6"ğ:515: A$"6"ĺD$;"RUN DOD" A$"7"ğ:525: A$"7"ĺD$;"RUN ADT" A$"8"ğ:535: 545" 24:13::16368,0E "SELECT A NUMBER :";:A$:A$;W :A$(26)Āg A$"9"ī80x A$"0"ī80 A$(27)ī80  'A$"1"ğ:465: 1A$"1"ĺD$;"RUN DC" ;A$"2"ğ:475: EA$"2"ĺD$;"RUN AOD" OA$"3"ğ:!X(0)P58300::MU"****************************************"k_NA$"PROGRAMS ON DISC 42"i1(20(NA$)2):s3:NA$:}23112,192:23104,193D$(4)465475485495505515525 535     SULTS":302:320M:"SKILL TESTED RIGHT WRONG HAS SKILL"::320d"1. CONVERT":320w"2. ADD":320"3. SUBTRACT":320"4. ROUND OFF":320"5. MULTIPLY":320"6. DIVIDE":320"7. PER CENT":320H16:H220:L1P$::4:P1$:AN$"1.25":. R(6),W(6),TY$(6) TY$(0)"CONVERSION":TY$(1)"ADDITION":TY$(2)"SUBTRACTION":TY$(3)"ROUNDING OFF" TY$(4)"MULTIPLICATION":TY$(5)"DIVISION":TY$(6)"PERCENTAGE"  I06:W(I)0:R(I)0:I:PN0: ::"TEST REP$"3.00 - 0.25 ":5:4:P$:AN$"2.75":U( P$"3.55 + 1.7 ":5:4:P$:AN$"5.25":Z P$"1.44 + 2.32 ":5:4:P$:AN$"3.76": P$"CONVERT 1/8 ":P1$"TO A DECIMAL ":5:4:P$:4:P1$:AN$".125": P$"CONVERT 1-1/4":P1$"TO A DECIMAL ":5:4:1.25 ":5:4:P$:4:P1$:AN$"4.5":t. P$"DIVIDE 1.414":P1$"BY .7 ":5:4:P$:4:P1$:AN$"2.02":` P$"1.4 X 1.4 ":5:4:P$:AN$"1.96": P$"3.0 X 4.9 ":5:4:P$:AN$"14.7": P$"2.27 - 1.91 ":5:4:P$:AN$"0.36":( $"4.6":KfP$"24 IS WHAT %":P1$"OF 48?":5:4:P$::4:P1$:AN$"50%":P$"ROUND 1.075 ":P1$"TO 2 PLACES ":5:4:P$::4:P1$:AN$"1.08":P$"ROUND 21.193":P1$"TO 2 PLACES ":5:4:P$:4:P1$:AN$"21.19":*P$"DIVIDE 5.625":P1$"BY 2650,2700,27503:615:625:A7$"Y"İ650:2010K665:14:30::AN$17:30::(IP$)(AN$)ĺ"RIGHT":R(TY)R(TY)1:2048"WRONG":W(TY)W(TY)121:302:23:305I2: 4P$"23% OF 20 =?":P1$"(1 DEC. PLACE)":5:4:P$:4:P1$:ANIP$"Y"İ63000:1004)IP$"N"10005:3000A:2000K84000]=IP7000,1999gB7000o:3500:I2013:::600:TY((13I2)2):PNPN11:4::PN;". ";TY$(TY)PN2100,2150,2300,2350,2400,2450,2200,2250,2500,2550,2600," ":I:14:20:"-----> "J :I1117:I:26:" ":I:37:" ":I I2637:I:11:" ":17:I:" ":I:11:27:"ANSWER IS:" 17:3:" YOUR ANSWER IS:":: :" ":: 10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)" ":17:I:" ":I. {11:6:"ANSWER OKAY?"F |13:6:"Y/N";:A7$L w :I913:32:I:" ":I:14:20:13) I1117:3:I:" ";:19:" ":I:I419:11:I:" ":17:I:" ":I:6:26:7):I1216:3:I 10):I: :I914::I:32:":I:37:" ":I:4:26:11):8:26:11):4:29? _"ANSWER"G b: g:IP$"":6:27:I61(AN$):G$:G$;:IP$IP$G$:I6:: mA7$"Y"ı qI913:32:I:"I":I:14:20:"<-----------+" v:I1117:3:I:" ":I:19:" ":I:I419:11:I::".":I: A :H3:T1L4L31:JH3H4:L3:T1)::J::_ H5:30::"<<====--"::o X:::1:2 Y20):::39):::22:39): Z:I222:I:" ":39:I:" ":I: ]L33:L419:H34:H48:3951 ^:6:20:"----->"::I48:I:26:" 6:"WHICH ONE (1-5)? ";:IP$:IP$:IP(IP$)::F 7X:Y:"--->":Z 8X:Y:"<---":r 9:X:Y:"--->":: ::X:Y:"<---":: ;:X:Y:"--->":: <:X:Y:"<---":: @"---------------------------------------": BH1:IH1H2:L1"::::255:D$(4):ZZ(0)7D$;"NOMONC,I,O"F::62000P 1000j, 301-995 BLACK BOXESs-305.:39):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%1603094306516368,0:::2         ЍźŠŠŠŠĠח׍̠Š΍:::" "::":" "::d10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)~IP$"Y"İ63000:1005IP$"N"100020002100220022502300250024002600:IP1000,2700,1999F2:G$:G$;:DI$DI$G$:K:Tg:IP$"":V:H:J1F1:G$:G$;:IP$IP$G$:J:J0:hN$"":V:L:I1I%:G$:G$;:N$N$G$:I:q:16368,0:615::vIP$:IP$::IP(IP$)::7:35(N$):N::31:"----"::35(D$):D:VD:HD::" "2V(1):H(1)::"NO - ANSWER IS":531:V(1):H(1)::15):3V(1):H(1)::"CORRECT!!":531:V(1):H(1):"BETTER ANSWER IS":531:X23:305::23:1:39):I1N::J1200:J,I:eK1F2:V:L1K:G$:G$:DI$DI$G$:KfDI$"":V:L2:K11):H(1)::"RIGHT! GO ON!":531:V(1):H(1)::13):~V(1):H(1)::"WRONG":531:V(1):H(1)::10)::V:H:(IP$)):'V(1):H(1)::"WRONG-TRY AGAIN":531:V(1):H(1)::15)::V:H:(IP$)):1V(1):H(1)::"NO - ANSWER IS":531::<:".";:::.H16:XR:I012:".";:::V:IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::I12500:I:39)::39)::39)::I13:19:20):::J12500:J:I11000:I:6V(:H1:XL:I112:".";::H2:XL:I112:".";:::H1:IH1H2:XR:".";:XR12:"."::H1:XR:I112:".";::H2:XR:I112:".";:::H1:IH1H2:XL6:".":I:L521:L639:397::12:23:"THE ANSWER WAS:" H16:XL:I012 ":# LEFT SQUARE SUBROUTINET" ":L521:L637:H56:H610:397:: USER ANSWER BOX :6:25:"NUMERATOR?":::24:6:"DENOMINATOR?"::4H1:IH1H2:XL:".";:XL12:".": ": LY:I15:X:" ":I:Y2:X1:" ":X3:" ":X1:" ":R}Y:X:" ":I301:XI:" ":I:Y:I15:X:" ";:X3:" ":I:Y:I13:X1:" "::I:Y:I15:X3:" ":I:Y:X:" ":X:" ":X:" 437 Y:X:4)::"gY:I12:X:" ";:X2:" ":I:X:" ":X2:" ":X2:" ":mY1:X1:" "::X1:" ":Y:I13:X:" "::I:Y1:X:" "::X3:" ":Y:X2:" "::X1:" "::X2:"< Y:X:" ":X3:" ":X1:" ":X:" ":X:" ":\ IX1X3:I:Y4:995::g :421r :427x  I312:YI:X1:" ";:X3:" ":I:X2:" ":  Y:I04:X3:" ":I:Y:X:" "::X1:" "::X:" "::IH51H61:I:L5:" ";:L6:" ":::/ i Y:X:4)::I13:X:" ";:X3:" ":I:X:4)::o  Y1:X1:" ":X:3)::X1:" ": :412  Y:X1:" ":I13:X2:" ":I:X1:" ":  Y2:X1:" ": H1H2:L1:"."::4 CH1:L1:IL1L2:".";:::Q DIH1H2:I:L1:".":: 322:323:TH1:H1H2:323:H1T:TL1:L1L2:322:L1T: ".";:L2:"." I: :JH3H4:J:L3:L4L31):J:: :T1L6L51:H5:L5:T1):H6:L5:T1)) TINUE... ";:16368,06 2G%(16384):G%160306J 516368,0:::z 6L17:L219:H15:H217:390:L121:L233:390 7:313 8 9Y:X:"--->": ::316 ; <Y:X:"<---": @"---------------------------------------": BH1:I(R$))  I09Z (NPM(I))NPM(I)(DPM(I))DPM(I)NNPM(I):DDPM(I):133c I: TX6:Y6:440::1:11:" ":Y14:X1:410:X10:400 , 301-995 BLACK BOXES -305 .:40)::: 11::"** PRESS TO CON5:::255::ZZ(0); 2,3,5,7,11,13,17,19,23,29PI09:PM(I):I_::62000i 1000z 62000:1000cdR$(((1)999)1)f(R$)100iI12:(R$,1)"0"R$(R$,(R$)1):InP$"."R$sD$(10(R$)) xN$(                   24:"PRESS RETURN ";WQ$0550Y936:20:"SIGN OFF PLEASE ...";WQ$_NGAIN ";NAME$;"."24:"PRESS RETURN ";WQ$550936:20:"SIGN OFF PLEASE ...";WQ$NT OF 0.001, 0.002 0.003,";A$2gA$"0.003"II1_l17:"LARGER OF 0.011 AND 0.012 ";A$uqA$"0.012"II1v20:"YOU SCORED ";I;"/7."24:"PRESS RETURN ";WQ$I7700936:10:"TRY THE TEST AGAIN ";NAME$;"."'AND 0.2 ?";A$)?A$"0.2"II1VD9:"LARGEST OF O.01, 0.02, 0.4 ?";A$jIA$"0.4"II1N11:"SMALLEST OF 0.001 AND 0.002 ";A$SA$"0.001"II1X13:"SMALLEST OF 10, 10.2 AND 1.22 ";A$]A$"1.22"II1b15:"LARGES LACHLAN ARNOTT 1988 G :************************* :I-:*************************T: THIS VERSION : MODIFIED AND AUGMENTED : FOR THE :COMPUTER EDUCATION CENTRE : BY :AN$"B"20000!<]AN$"B"310005 AFTER YOU HAVE COMPLETED ALL OF THE"K" PROBLEMS, FOLLOW THE DIRECTIONS ON "L" THE SCREEN TO GET YOUR SCORE. THEAS YOU LIKE BY TYPING A 'N' AFTER "R6" YOU SEE THE QUESTION 'ANSWER OKAY.'"};:"<4> IF YOU ARE READY TO HAVE THE "<" COMPUTER CHECK YOUR ANSWER TYPE 'Y'"=" WHEN YOU SEE THIS QUESTION. YOU ">" BE SHOWN THE CORRECT ANSWER A".," AND PENCIL TO SOLVE EACH PROBLEM."=023:305:i1"<3> ENTER YOUR ANSWER BY TYPING THE "2" CORRECT NUMBERS OR SYMBOLS ON THE "3" KEYBOARD. AFTER YOU SEE YOUR ANSWER"4" ENTERED, YOU MAY CHANGE IT AS OFTEN"#5" DECIMALS. "1&" YOU SHOULD NOT FEEL BADLY"]'" IF YOU DO NOT DO AS WELL AS YOU "t(" MIGHT LIKE."):"<2> THERE ARE FOURTEEN (14) QUESTIONS "*" (PROBLEMS) THAT YOU WILL BE ASKED "+" TO SOLVE. YOU ARE FREE TO USE PAPERI)b17:1:VE$;39(VE$)(DA$));DA$8l23:305:A:9c:::"DECIMALS DIAGNOSTIC"n302:x34,5:"HOW TO TAKE THIS TEST"::""<1> THIS TEST IS DESIGNED TO HELP YOU"#" FIND OUT WHAT YOU KNOW ABOUT USING" $" $(2): SET TO LONGEST B4VE$"":DA$""f:L31:L4(EW$)2:H31:H44:395Q1$"A"WR1(HQ1$"0"8502R936O\"QUESTION 2":::::wf"THE DECIMAL 0.8 IS EQUAL TO "p:z" 8"" A. --"" 10"" 8"" B. ---"" 100"" C. 8" OUT YOUR SCORE"@"AFTER YOU HAVE ANSWERED ALL FIVE."::::s"HOW DO WE WRITE TWO TENTHS AS A DECIMAL"::" A. 0.2" " B. 0.02"" C. 2.0" " D. 2.2"*:::"ANSWER (A/B/C/D) ?";Q1$4Q1$"A"RIGH -- = 1 "$" 10"U:::"HOW MANY TENTHS IN ONE WHOLE ?";Q$oQ$"10"Q$"TEN"710Q$"10"Q$"TEN"704936:"THINK CAREFULLY NOW ...":650936"THE NEXT FIVE QUESTIONS ARE A TEST."::"I'LL PRINT ....":::7v"IF A WHOLE IS DIVIDED INTO TEN PARTS"Z{"EACH PART IS ONE TENTH."::"THINK HOW MANY TENTHS ARE NEEDED TO MAKE UP THE WHOLE AGAIN!"::"THE ANSWER ... TEN TENTHS!":::"SO WE HAVE "" 10"" H" 4 9"AJ" -- = O.4 -- = 0.9"^L" 10 10"dNP" 5 "R" -- = 0.5"T" 10"V::"PRESS RETURN KEY FOR TEN TENTHS ";Q$XQ$"0"610b936 l"THINK ABOUT THIS -- = 0.6".4" 10 10"46Q8" 2 7"v:" -- = 0.2 -- = 0.7"<" 10 10">@" 3 8"B" -- = 0.3 -- = 0.8"D" 10 10 "F:" D: 19 ";::"ANSWER (A,B,C OR D)? ";Q$KQ$"B"550[Q$"A"530kQ$"C"530{Q$"D"530936:"BAD LUCK,HAVE ANOTHER GO.":420&936:"SO FAR YOU HAVE LEARNT -":0" 1 6"2" -- = 0.1 00Q$"D"4103936:"WELL DONE ";A$:420P936:"TRY AGAIN.":280:::::"LET ME SEE IF I CAN TRICK YOU."::"HOW MANY TENTHS ARE THERE IN 0.9?"::" A: 90 ":" B: 9 ":" C: 0.9 " ,"WHAT IS SIX TENTHS?"::: 6:" A: 0.07 "V @:" B: 6.0 "r J:" C: 60 " T:" D: 0.6 " ^::"ANSWER(A,B,C OR D)? ";Q$ hQ$"D"400 rQ$"A"410 |Q$"B"410 Q$"C"410Q$"D"4:::4 "TYPE THE DECIMAL FOR 0NE TENTH ?";Q$N Q$"0.1"Q$".1"260j Q$"0.1"Q$".1"255s 200} 936 "GREAT WORK ";A$;" !" :::"YOU NOW KNOW ONE TENTH IS 0.1":: ""ALSO TWO TENTHS IS 0.2"::: 1", " --"I " 10"| ::"IT CAN ALSO BE WRITTEN AS A DECIMAL":: " 0.1" :::"USE THE FULL STOP KEY (THIRD FROM RIGHT ON BOTTOM ROW) TO TYPE THE DECIMAL POINT.":+ "ONE '*' = ONE TENTH OF THE SET"^ 24:"ONE TENTH OF THE SET= * (YES OR NO)?";Q$p Q$"YES"199 Q$"YES"195 936:"READ THIS AGAIN -"::::155 936 :::"ONE TENTH CAN BE WRITTEN AS A FRACTION"  " * * * * * * * * * * "A t22:"HOW MANY IN THE SET ? ";Q$R xQ$"10"148d }Q$"10"128 936:"COUNT THEM AGAIN !"::::115 936 "CORRECT!"::: "THERE ARE TEN IN THE SET ":::" * * * * * * * * * *" ::: A$(400),Q$(30)<936:"COUNT THEM AGAIN -:GOTO115FZ936h:::" DECIMALS":" --------"n::" (LESSON AND GAME 1)"p24:"TYPE YOU FIRST NAME ?";A$r936 s"THIS IS A SET -"::::"$"B"31000=yI=@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$Z=:ZZ$"Y"Ĭ=֜:18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":=ZZ$::ZZ$"Y"ĺ"RUN WW"=4:10:7::"'BYE NOW"::>A16336:P1(CHAR$ ";O$FO$"YES"13900PO$"YES"1380\d936:"THINK AGAIN .....":1240:::un936:"OK."::::x"SIX TENTHS PLUS THREE TENTHS ="" NINE TENTHS"::"0.6 + 0.3 = 0.9"::::#"ANOTHER RACTION 5 -- EQUALS"1" 10"7O"THE DECIMAL 5.3 "W :"THIS IS TRUE BECAUSE THEY BOTH HAVE ""5 UNITS AND 3 TENTHS."#:::(202" 8"<"5.8 = 5 -- (YES/NO) "A" 10 ::0"TO REVISE WHAT WE HAVE DONE SO FAR;":::Z"PRESS THE RETURN KEY ";O$936:" REVISION"" --------":"I WILL USE 5.3 AS AN EXAMPLE."" 3""THE F: 47" #" B: 4.7")$C." C: 4.07 "I8bB" D: 0.47"jL:V"ANSWER (A,B,C OR D)? ";O$`O$"B"1150jO$"0"1140t936:"TRY AGAIN!":::::1010~936:"GOOD WORK ";P$::::::: C: 86 "f*p" D: 8.06 "Qz::::"ANSWER(A,B,C OR D) ?";O$bO$"A"1000sO$"0"950936:"HAVE ANOTHER GO.":810936:"CORRECT.":::::"WHAT DECIMAL HAS 4 UNITS AND 7 TENTHS?"::" A:"ANSWER (A,B,C OR D) ?";O$.O$"C"800?O$"0"750\936:"TRY AGAIN.":645 936:"GOOD WORK!!!":::::*"WHAT NUMBER HAS 8 UNITS AND 6 TENTHS?"::::4" A: 8.6 ">H" B: 6.8 "R \" "1::"NOW THINK ABOUT THIS QUESTION..."::T"DOES 2.8 HAVE THE VALUE"\:" A. 2 TENS AND 8 UNITS"" B. 2 HUNDREDS AND 8 UNITS"" C. 2 UNITS AND 8 TENTHS "" D. 8 UNITS AND 2 TENTHS "24ES"600?O$"YES"580BD936:"TRY AGAIN ....":::::520vX936:"YES ,";P$;" 53 IS DIFFERENT TO 5.3"::b"5.3 IS READ AS 'FIVE POINT THREE' AND MEANS FIVE UNITS AND THREE TENTHS."::l" 3"q" 5 -- = 5.3"v" 10 ::::@"NOW LOOK CLOSELY AT THESE TWO NUMBERS.":::k" 53 (MEANS 5 TENS AND 3 UNITS)"u::&" 5.3 (MEANS 5 UNITS AND 3 TENTHS)"020:"DO 53 AND 5.3 HAVE THE SAME VALUE?"::5" ANSWER (YES OR NO)? ";O$:O$"Y " A: 100 " 9 " B: 1000 "? Y " C: 0.1 "_ x " D: 10 " ::: " ANSWER (A,B,C OR D) ?";O$ O$"D"500 O$"0"490 936:"TRY AGAIN ";P$:370936:"GOOD WORK ";P$ 6" D: 0.8 "& @:::D J"ANSWER(A,B,C OR D) ";O$T TO$"C"350e YO$"0"360 ^936:"YOU REMEMBERED WELL ";P$:370 h936:"HAVE ANOTHER TRY ";P$:260 r::::"HOW MANY TENTHS IN ONE (=1 OR 1.0) ?" |:::  10" :; "PRESS RETURN KEY TO CONTINUE ";O$L O$"0"250z 936:"TWO QUICK REVISION QUESTIONS ..." :::"HOW MANY TENTHS IN 0.8 ?" :: " A: 18 "  "" B: 80" ' ," C: 8" 13 -- = 0.8"4 " 10 10": Y " 4 9" " -- = 0.4 -- = 0.9" " 10 10" " 5 10" " -- = 0.5 -- = 1.0" " 10 1 6"= " -- = 0.1 -- = 0.6"^ " 10 10 "d " 2 7" " -- = 0.2 -- = 0.7" " 10 10" " 3 8" " -- = 0. P$(40),O$(40)b936%c9J12:" DECIMALS "n13:" -------- "15:" (LESSON AND GAME 2) "22:"TYPE YOUR FIRST NAME?";P$936"MAKE SURE YOU KNOW THESE FACTS - " " )>(CHAR$,P,1);-> SOUND(A)(A)(A)9> Y160A>:G>M>y>:*************************>: THIS VERSION >: MODIFIED AND AUGMENTED >: FOR THE ?:A LINE **"20/" 7.8 -"J" 3.2"e" ---"" ";A$A$"4.6"5400936:"WORK SLOWLY AND CAREFULLY ......":5290936:5"" 9.9 -"," ";A$936:5<" 2.3 - 5.9 -"c" 2.1 1.2 "" --- ---"" 0.2 4.7" 12:"REMINDER .... SUBTRACT AS USUAL ....":"** KEEP THE DECIMAL POINTS IN 3 = 1.2"P936:67Z" 1.8 -"Pd" 1.2"in" ---"x" 0.6"13:"18 TENTHS - 12 TENTHS = 6 TENTHS"" 1.8 - 1.2 = 0.6"24:"PRESS RETURN " ";A$(A$"0.2"5130X936:"LOOK CAREFULLY ...........":5000f 936:10" 1.5 -"" 0.3"(" ---"2" ?"<" ---"F22:" 1.5 - 0. ---"$" 0.5";" ---"b"THIS IS REALLY EASY ISN'T IT? ":"SUBTRACT AS USUAL - BUT KEEP THE ":"DECIMAL POINTS UNDER EACH OTHER !!"20:"WHAT IS 0.7 -"" 0.5"" ---"" C: 7.1"3" D: 1.7"T24:"ANSWER (A/B/C/D) ?";A$e\A$"D"4900wA$"D"4800936:"HAVE ANOTHER CRACK AT IT.":4420$936:"GREAT WORK ";NAME$5:" 0.8 -"" 0.3" " 0936:"TRY AGAIN!":4100T0936:"CORRECT,NOW SEE IF YOU CAN GET THE NEXT"f:"ONE RIGHT."D8:" 0.9 +"N:" 0.8"X:" ---"14:" A: 0.017"" B: 0.17"DD 0.5 +"*" 0.9"B" ---"J 14c"A. 0.14"i"B. 1.4""C. 4.1"""D. 14.0"h24:"ANSWER (A/B/C/D) ?";A$A$"B"4400A$"B"438." T 21)W " 0.8 +"FY " 0.7"c[ " ---"\ " ";A$ A$"1.5"4000H A$"0.5"3800936:"HAVE ANOTHER TRY.":18001800936:"GREAT WORK ";NAME$5:"A ---"+ 4" 1.6"G " ---"w ` 15:"ONE IMPORTANT POINT TO REMEMBER WHEN" "ADDING AND SUBTRACTING DECIMALS IS THAT" ( "YOU MUST PUT THE DECIMAL POINTS UNDER" "EACH OTHER,LIKE I HAVE SHOWN YOU ABOVETHS AND "& "7 TENTHS = 16 TENTHS."W :"10 TENTHS MAKE 1.0 AND 6 TENTHS REMAIN."w :"THIS IS HOW WE GET 1.6" @20:"PRESS THE RETURN KEY TO CONTINUE.";A$ 936 5: b" 0.9 +" " 0.7" " 7" y! ~"D. 7.7"C 24:"ANSWER (A/B/C/D) ?";A$T A$"C"1190f A$"C"1185 936:"TRY AGAIN .........." 1108 936:"OK. NOW FOR SOME NEW WORK ....." 7:"0.9 + 0.7 = 1.6" x10:"THIS IS TRUE BECAUSE 9 TEN"10920 D936:"TRY AGAIN ";NAME$::::1010R L936:"WELL DONE ";NAME$;"!"p T7:"WHAT IS 0.4 +" U" 0.3" V" ---" [14 `"A. 7.0" e j"B. 0.07" o t"C. 0.REVSION QUESTIONS TO BEGIN......"E 10:"HOW MANY TENTHS IN 1.9 ?"O ::f " A: 19"l  " B: 1.9"  " C: 0.9"  $" D: 91" .24:"ANSWER (A/B/C/D) ?";A$ 8A$"A"1100 BA$"A4 NAME$(30),A$(10),F$(10),S$(10),T$(10),FT$(10)@ Y$(10)JZ936o10:" DECIMALS"" --------"13:" (LESSON AND GAME 3)"23:"PLEASE TYPE YOUR FIRST NAME ?";NAME$936! "TWO COMPUTER EDUCATION CENTRE YOUR ANSWER (A/B/C/D) .......< >"2128NA:N$"ZERO":600NB:N$"ONE":600NC:N$"TWO":600 ND:N$ЭQ1Q3Q5Q7Q9Q11Q13Q15Q17Q19474hQ2Q4Q6Q8Q10Q12Q14Q16Q18Q20482LE$"A. "P$GAP$LG$"B. "Q$GAP$LI$"C. "R$GAP$LK$"D. "S$GAP$2128(LE$,53)"A. "P$ (LG$,53)..< > YOUR ANSWER (A/B/C/D/) .......< >"DaQ1Q3Q5Q7Q9465Q2Q4Q6Q80Q10468LC$"HOW DO YOU WRITE 0."(X)" IN WORDS?"GAP$(LC$,53)"HOW DO YOU WRITE 0."(X)" IN WORDS?":1)GAP$"LG$"B. "(QQ)GAP$>LI$"C. "(RR)GAP$ZLK$"D. "(SS)GAP$`~(LE$,53)"A. "(PP)(LG$,53)"B. "(QQ)(LI$,53)"C. "(RR)(LK$,53)"D. "(SS)>"YOUR ANSWER (A/B/C/D) .....>LC$"WHAT DECIMAL IS ZERO POINT "PA$" ?"GAP$:7060}(LC$,53)"WHAT DECIMAL IS ZERO POINT "PA$" ?":7060Q1Q3Q5Q7Q9Q11Q13Q15Q17Q19440Q2Q4Q6Q8Q10Q12Q14Q16Q18Q20450LE$"A. "(PPX(10)X.1500+X.1X.2510?X.2X.3520SX.3X.4530gX.4X.5540{X.5X.6550X.6X.7560X.7X.8570X.8X.9580X.9590Q1Q3Q5Q7Q9424Q2Q4Q6Q8Q10430S?":'Q11Q13Q15Q17Q19156IQ12Q14Q16Q18Q20160LC$"HOW DO YOU WRITE "(Z)" IN WORDS ?"GAP$:(LC$,53)"HOW DO YOU WRITE "(Z)" IN WORDS?":AI:BI1:CI2:DI3:EI4:FI5:GI6:HI7:JI8:KI9,EL616000WSEL717000#X10+dI04i200^nQ7Q9Q11Q13Q15Q17Q19118pQ6Q8Q10Q12Q14Q16Q18Q20124vLC$"HOW DO YOU WRITE "(X)".0 IN WORDS?"GAP$:|(LC$,53)"HOW DO YOU WRITE "(X)".0 IN WORD P TO PRINT YOUR HOMEWORK."GJ23:"TYPE P ";PRIN$VKD$;"PR#1"^LE$M"LEVEL ";SEL;" .....HOMEWORK FOR.....";NAME$;"........";DT$NNM$QSEL14000RSEL27000SSEL38000TSEL49000USEL515000 VSNOW BE GIVEN 20 QUESTIONS":59910] 412:CHAR$"NO MARKS WILL BE GIVEN UNTIL THE END":59910 623::"PRESS RETURN TO BEGIN ";XS$: <A$"N"81 F::3:"PLEASE SWITCH THE PRINTER ON": G::"(PRESS THE 'POWER' SWITCH ONCE)" H13:"TYPE E TODAY'S DATE ...FOR EXAMPLE:":"24 TH JUNE 1989 ===> 24.6.89":i &21:"TODAY'S DATE ? -----> ";DT$ (936:"WHAT LEVEL ARE YOU UP TO ........?"::5:16: -23:"YOUR SELECTION ?";SEL: .A$"H"70! 2:10:CHAR$"YOU WILL "WHEN WILL YOU BE DOING THESE ...":::"H. HOMEWORK"::"N. NOW (ON THE SCREEN)"c 23: "YOUR SELECTION (H OR N ??) --> ";A$: !A$"H"A$"N"10 "::13:"PLEASE TYPE YOUR FIRST NAME ":::" -------> ";NAME$C $::13:"TYP LEVEL 2 (WORDS TO DECIMALS)":R " 3. LEVEL 3 (FRACTIONS <-> DECIMALS)":} " 4. LEVEL 4 (ADD/SUBTRACT X.X)": " 5. LEVEL 5 (ADD/SUBTRACT XX.XX)": " 6. LEVEL 6 (DIVISION)": " 7. LEVEL 7 (MULTIPLICATION)": Y (50),CC$(50),P$(50),Q$(50),R$(50),S$(50)V X$(5),NAME$(30),PRIN$(10),A$(10),DT$(20)c X$"0.0" COUNTER0:936:2:3:45995 CHAR$"A TEST OF YOUR SKILL WITH DECIMALS"::59910: 8:30 " 1. LEVEL 1 (DECIMALS TO WORDS)":! " 2. 7E$""::NM$"" D$""aGAP$" "LA$(80),LB$(80),LC$(80),LD$(80),LE$(80),LF$(80),LG$(80),LH$(80),LM$(80),LN$(80),LO$(80),LP$(80),LQ$(80)( PA$(20),PB$(20),PC$(20),ANS$(50),AA$(50),BB$                 6PS2:" ":PSPS1903`:10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)zIP$"Y"İ63000:1005IP$"N"100020002100220024002500$2600':IP1000,2700,1999:::"OBJECTIVES":MU%;:X10::TP%"/"DM" = "MU%:23:305:X$(MU%):H1H1(X$):V1V13:AN$AN$X$:V119Ģ23:305:yX1%H1X10745PS8:16:26PS2:"^";:26PS2:A$:A$"."ı(A$)8PS8ĝ:16:26PS2:" ":PSPS1(A$)21PSĝ:16:2X1%770YMU%X1%DM:N9MU%DM:T$(N9):N8(T$):XS2:V1:"-";:XS:N8N7ĖXSN7N8eTP%X1%N9;" ";::"("MU%" X "DM")"::X1%(X1%N9)10:Z1:"------":Z1:N7N8Z1Z1N7N8:Z1X1%;" ";::"REMAINDER"::N7((X1%)):XSZ1dY1:H1::X10:X1%"/"DM" = "MU%:H1H1(X$):X1%(X1%MU%DM)10:23:305ZAN$AN$(MU%)"."tY1:H1:".":H1H11MU%Z1Z1(((MU%)(10))1)Z1Z11:X1%DMX1%X1%10:Y1:H1:0;:X10::X1%"/"DM" = "0:H1H11:23:305:X1%745 :IP(IP$):>AN$"":3:1:"NOTE: '/' MEANS 'DIVIDED BY'"yY:X:"--------":X4:DM;:X:")";NM;:NM(NM)ĺ"."XSX1H1X1:V1Y2:X1%NM:(NM10)H1H11N7((NM)):(NM)H1H11Z1XCMU%X1%DM:X$(MU%):Y1:H1:MU%;@V(1):H(1)::"RIGHT GO ON!":531:V(1):H(1)::17):V(1):H(1)::"WRONG! TRY AGAIN!":531:V(1):H(1)::17):V:H:(IP$)):g:IP$"":16368,0:V:H:J1F1hG$:G$;:IP$IP$G$:J:J0:q:16368,0:615:: vIP$:IP$:20):::K12500:K:1M11000:M:CX1250:X:L31:L419:H36:H410:L521:L639:H56:H610:395:397:L31:L419:H312:H418:L521:L639:H512:H618:395:397:23:305::23:1:40):34,5:33,19:24:J1S::532:J::13:X1:" ":I93ĺ I9:+:4811oY:I915:X3:" ":I9:Y:X:" ":X:" ":X:" ":z:491:IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::39)::39)::39):: I13:19::451 8Y:X2:" "::X1:" "::X2:" ":>Y:I915:X:" ":I9:Y2:X1:" ":X3:" ":X1:" "::461Y:X:" ":I9301:XI9:" ":I9::471Y:I915:X:" ";:X3:" ":I9:Y:I9а:431 :437 , Y:X:4)::2 y Y:I912:X:" ";:X2:" ":I9:X:" ":X2:" ":X2:" ": :441  Y1:X1:" "::X1:" ":  Y:I913:X:" ":I93ĺ I9:Y1:X:" "::X3:" ": :421g I9X1X2:Y2:I9:996:I9:I9Y3Y4:X:I9:996:I9:I9X1X3:I9:Y4:996:I9:r :427x  I9312:YI9:X1:" ";:X3:" ":I9:X2:" ":  Y:I904:X3:" ":I9:Y:X:" "::X1:" "::X:" ": :401 4 Y1:X1:" ":X:3)::X1:" ":? :412E { Y:X1:" ":I913:X2:" ":I9:X1:" ":  Y2:X1:" ":  Y:X:" ":X3:" ":X1:" ":X:" ":X:" ": I9X1X3:I9:Y4:995:I9: 1L2:322:L1T:# ".";:L2:".", I:Z :T1L4L31:JH3H4:J:L3:T1):J:: :T1L6L51:H5:L5:T1):H6:L5:T1) I3H51H61:I3:L5:" ";:L6:" ":I3::  Y:X:4)::I913:X:" ";:X3:" ":I9:X:4):: : 7:313 8( 9Y:X:"--->":3 ::3169 ;M <Y:X:"<---":k BH1:IH1H2:L1:".":: CH1:L1:IL1L2:".";::: DIH1H2:I:L1:".":: |23:305::1:23:39):S8:34,11:537: 322:323:TH1:H1H2:323:H1T:TL1:L(::62000 1000+dG$:(G$):F, 301-995 BLACK BOXESO-305a.:40):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%160306416368,0::516368,0::: 64025:530:I:24:305:                     :"FLASHING ARROW RECOMMENDS LEARNING UNIT":bI06:R(I)(R(I)1I5)H5I27:I7:I:4120iIs4125396:417019:"CONGRATULATIONS! YOU HAVE SHOWN YOU DO ":"NOT NEED ANY OF THE TEACHING PROGRAMS ":"YOU MAY STILL CHOOSE OR END F14:322:L121:322:L128:322F7:I06:17:R(I);:24:W(I)::Ix7:I06:31:R(I)1(I4R(I))ĺ"YES":4053"NO":I23:305:34,20::5::" " L329:L439:H36:H420:395-5:SULTS":302:320M:"SKILL TESTED RIGHT WRONG HAS SKILL"::320d"1. CONVERT":320w"2. ADD":320"3. SUBTRACT":320"4. ROUND OFF":320"5. MULTIPLY":320"6. DIVIDE":320"7. PER CENT":320H16:H220:L1P$::4:P1$:AN$"1.25":. R(6),W(6),TY$(6) TY$(0)"CONVERSION":TY$(1)"ADDITION":TY$(2)"SUBTRACTION":TY$(3)"ROUNDING OFF" TY$(4)"MULTIPLICATION":TY$(5)"DIVISION":TY$(6)"PERCENTAGE"  I06:W(I)0:R(I)0:I:PN0: ::"TEST REP$"3.00 - 0.25 ":5:4:P$:AN$"2.75":U( P$"3.55 + 1.7 ":5:4:P$:AN$"5.25":Z P$"1.44 + 2.32 ":5:4:P$:AN$"3.76": P$"CONVERT 1/8 ":P1$"TO A DECIMAL ":5:4:P$:4:P1$:AN$".125": P$"CONVERT 1-1/4":P1$"TO A DECIMAL ":5:4:1.25 ":5:4:P$:4:P1$:AN$"4.5":t. P$"DIVIDE 1.414":P1$"BY .7 ":5:4:P$:4:P1$:AN$"2.02":` P$"1.4 X 1.4 ":5:4:P$:AN$"1.96": P$"3.0 X 4.9 ":5:4:P$:AN$"14.7": P$"2.27 - 1.91 ":5:4:P$:AN$"0.36":( $"4.6":KfP$"24 IS WHAT %":P1$"OF 48?":5:4:P$::4:P1$:AN$"50%":P$"ROUND 1.075 ":P1$"TO 2 PLACES ":5:4:P$::4:P1$:AN$"1.08":P$"ROUND 21.193":P1$"TO 2 PLACES ":5:4:P$:4:P1$:AN$"21.19":*P$"DIVIDE 5.625":P1$"BY 2650,2700,27503:615:625:A7$"Y"İ650:2010K665:14:30::AN$17:30::(IP$)(AN$)ĺ"RIGHT":R(TY)R(TY)1:2048"WRONG":W(TY)W(TY)121:302:23:305I2: 4P$"23% OF 20 =?":P1$"(1 DEC. PLACE)":5:4:P$:4:P1$:ANIP$"Y"İ63000:1004)IP$"N"10005:3000A:2000K84000]=IP7000,1999gB7000o:3500:I2013:::600:TY((13I2)2):PNPN11:4::PN;". ";TY$(TY)PN2100,2150,2300,2350,2400,2450,2200,2250,2500,2550,2600," ":I:14:20:"-----> "J :I1117:I:26:" ":I:37:" ":I I2637:I:11:" ":17:I:" ":I:11:27:"ANSWER IS:" 17:3:" YOUR ANSWER IS:":: :" ":: 10::"DO YOU NEED INSTRUCTIONS (Y/N)?";:IP$:IP$:IP(IP$)" ":17:I:" ":I. {11:6:"ANSWER OKAY?"F |13:6:"Y/N";:A7$L w :I913:32:I:" ":I:14:20:13) I1117:3:I:" ";:19:" ":I:I419:11:I:" ":17:I:" ":I:6:26:7):I1216:3:I 10):I: :I914::I:32:":I:37:" ":I:4:26:11):8:26:11):4:29? _"ANSWER"G b: g:IP$"":6:27:I61(AN$):G$:G$;:IP$IP$G$:I6:: mA7$"Y"ı qI913:32:I:"I":I:14:20:"<-----------+" v:I1117:3:I:" ":I:19:" ":I:I419:11:I::".":I: A :H3:T1L4L31:JH3H4:L3:T1)::J::_ H5:30::"<<====--"::o X:::1:2 Y20):::39):::22:39): Z:I222:I:" ":39:I:" ":I: ]L33:L419:H34:H48:3951 ^:6:20:"----->"::I48:I:26:" 6:"WHICH ONE (1-5)? ";:IP$:IP$:IP(IP$)::F 7X:Y:"--->":Z 8X:Y:"<---":r 9:X:Y:"--->":: ::X:Y:"<---":: ;:X:Y:"--->":: <:X:Y:"<---":: @"---------------------------------------": BH1:IH1H2:L1"::::255:D$(4):ZZ(0)7D$;"NOMONC,I,O"F::62000P 1000j, 301-995 BLACK BOXESs-305.:39):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%1603094306516368,0:::2AUGMENTED .=: FOR THE [=:COMPUTER EDUCATION CENTRE {=: BY=: LACHLAN ARNOTT 1988 =:************************* DLCR:NCF(I)F(I,0)F(I,1):CR(N10):S1F(I,0):S2F(I,1):ICF(I1)CR:765YCW(0)CRNNCR10:XH:YV:N1400,410,420,430,440,450,460,470,480,490:TTN(10(I1)):IĢ23:XD:" "X4X:IX4X43:XX37V19:HXW(I):CLCR:NCW(I)X4):;XX6:I01:YY(I)4::Y:X:" ":I:XDX:XX3gI0E:XX5:J01:YY(J):E(J)I720F(I,J)1400,410,420,430,440,450,460,470,480,490:XF(I)XJ,I17:X4):I02:CF(I)0:CW(I)0:I:T0:CR0:CL0:LV19:HXF(I):C0)W(I,1)ĂI:712LXX5:J01:(I0W(I,J))(I1W(1,J)W(0,J))707YY(J):W(I,J)1400,410,420,430,440,450,460,470,480,490:XW(I)XJ,II201:F(I,0)F(I,1)EIEI1J01:F(I,J)E(J)I1E(J)IJI:E0Ģ17:G! TRY AGAIN!":531:V(1):H(1)::17):V:H:(IP$)):^g:IP$"":16368,0:V:H:J1F1hG$:G$;:IP$IP$G$:J:J0:q:16368,0:615::vIP$:IP$::IP(IP$):X1:E2:Y11:405:Y(0)5:Y(1)11E(0)3:E(1)3I101:W(I,L31:L419:H36:H410:L521:L639:H56:H610:395:397:yL31:L419:H312:H418:L521:L639:H512:H618:395:397:23:305::23:1:40):J1S::532:J:V(1):H(1)::"RIGHT GO ON!":531:V(1):H(1)::17):9V(1):H(1)::"WRONI012:".";:::4H16:XR:I012:".";:::\:IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::39)::39)::39)::I13:19:20):::K12500:K:K11000:K:X1100:X::EFT SQUARE SUBROUTINErH1:IH1H2:XL:".";:XL12:"."::H1:XL:I112:".";::H2:XL:I112:".";:::H1:IH1H2:XR:".";:XR12:"."::H1:XR:I112:".";::H2:XR:I112:".";:::H1:IH1H2:XL6:".":I:H16:XL:9:Y2:X1:" ":X3:" ":X1:" ":0^Y:X:" ":I9301:XI9:" ":I9:dY:I915:X:" ";:X3:" ":I9:Y:I913:X1:" ":I93ĺI9:Y:I915:X3:" ":I9:Y:X:" ":X:" ":X:" ": LX:" ";:X2:" ":I9:X:" ":X2:" ":X2:" ":=bY1:X1:" "::X1:" ":hY:I913:X:" ":I93ĺI9:Y1:X:" "::X3:" ":Y:X2:" "::X1:" "::X2:" ":*Y:I915:X:" ":I6:I9:I9X1X3:I9:Y4:996:I9:0 :4276 p I9312:YI9:X1:" ";:X3:" ":I9:X2:" ":v  Y:I904:X3:" ":I9:Y:X:" "::X1:" "::X:" ": :431 :437  Y:X:4):: 7Y:I912:9 Y:X1:" ":I913:X2:" ":I9:X1:" ":? V Y2:X1:" ":\  Y:X:" ":X3:" ":X1:" ":X:" ":X:" ": I9X1X3:I9:Y4:995:I9: :421% I9X1X2:Y2:I9:996:I9:I9Y3Y4:X:I9:99 H5:30::"<<====--"::I :T1L6L51:H5:L5:T1):H6:L5:T1)v IH51H61:I:L5:" ";:L6:" ":::|  Y:X:4)::I913:X:" ";:X3:" ":I9:X:4):: :401  Y1:X1:" ":X:3)::X1:" ": :412 IH1H2:L1:"."::6 CH1:L1:IL1L2:".";:::S DIH1H2:I:L1:".":: |23:305::1:23:39):S8:34,11:537: 322:323:TH1:H1H2:323:H1T:TL1:L1L2:322:L1T: ".";:L2:"." I: :JH3H4:J:L3:L4L31):J::64025:530:I:24:305::' 7:313- 8A 9Y:X:"--->":L ::316R ;f <Y:X:"<---": =20::"DENOMINATOR SQUARE #2=";:IP$:IP$ @"---------------------------------------": A"=======================================": BH1:g*::::255:ZZ(0))::620003 1000DdG$:(G$):_, 301-995 BLACK BOXESh-305z.:40):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%160306416368,0::516368,0:::                 I02:BN(I)0:I:T0:BR0:BL0:I04:J01:T(I,J)N(I,J):J,I:{V19:HXN(I):S3I:S1N(I,0):S2N(I,1):S1S2770S3S31:BN(S31)1:N(S31,0)N(S31,0)10:T(S3,0)N(S3,0):N(S3,0)N(S3,0)1:N(S3,0)0763!I7S3I:YY(0):XXN(I7):NN(I7,01&J01:N(I,J)E(J)I1E(J)I-JFI:E2Ģ17:X4):zXX6:I01:YY(I)4::Y:X:" ":I:XDX:XX3I2E:XX5:J01:YY(J):E(J)I720N(I,J)1400,410,420,430,440,450,460,470,480,490:XN(I)XJ,I17:X4):E4:Y13:435:Y(0)5:Y(1)11-E(0)5:E(1)5QI01:N(I,0)N(I,1)ĂI:712XX5:J01:(I0N(I,J))(I1N(1,J)N(0,J))707YY(J):N(I,J)1400,410,420,430,440,450,460,470,480,490:XN(I)XJ,II421:N(I,0)N(I,1)EIEIIGHT GO ON!":531:V(1):H(1)::17):{V(1):H(1)::"WRONG! TRY AGAIN!":531:V(1):H(1)::17):V:H:(IP$)):g:IP$"":16368,0:V:H:J1F1hG$:G$;:IP$IP$G$:J:J0:q:16368,0:615::vIP$:IP$::IP(IP$):X1:E):::K12500:K:-K11000:K:?X1100:X:|L31:L419:H36:H410:L521:L639:H56:H610:395:397:L31:L419:H312:H418:L521:L639:H512:H618:395:397:23:305::23:1:40):J1S::532:J:)V(1):H(1)::"R112:".";:::2H1:IH1H2:XL6:".":I:TH16:XL:I012:".";:::vH16:XR:I012:".";::::IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::39)::39)::39)::I13:19:20X3:" ":I9:Y:X:" ":X:" ":X:" ":8:491W LEFT SQUARE SUBROUTINEH1:IH1H2:XL:".";:XL12:"."::H1:XL:I112:".";::H2:XL:I112:".";:::H1:IH1H2:XR:".";:XR12:"."::H1:XR:I112:".";::H2:XR:IY:I915:X:" ":I9:Y2:X1:" ":X3:" ":X1:" ":K:461QY:X:" ":I9301:XI9:" ":I9::471Y:I915:X:" ";:X3:" ":I9:Y:I913:X1:" ":I93ĺI9::481-Y:I915:X:" ";:X2:" ":I9:X:" ":X2:" ":X2:" ":B:441HmY1:X1:" "::X1:" ":sY:I913:X:" ":I93ĺI9:Y1:X:" "::X3:" "::451Y:X2:" "::X1:" "::X2:" ":@6:I9:I9X1X3:I9:Y4:996:I9:0 :4276 p I9312:YI9:X1:" ";:X3:" ":I9:X2:" ":v  Y:I904:X3:" ":I9:Y:X:" "::X1:" "::X:" ": :431 :437  Y:X:4):: 7Y:I912:9 Y:X1:" ":I913:X2:" ":I9:X1:" ":? V Y2:X1:" ":\  Y:X:" ":X3:" ":X1:" ":X:" ":X:" ": I9X1X3:I9:Y4:995:I9: :421% I9X1X2:Y2:I9:996:I9:I9Y3Y4:X:I9:99 H5:30::"<<====--"::I :T1L6L51:H5:L5:T1):H6:L5:T1)v IH51H61:I:L5:" ";:L6:" ":::|  Y:X:4)::I913:X:" ";:X3:" ":I9:X:4):: :401  Y1:X1:" ":X:3)::X1:" ": :412 IH1H2:L1:"."::6 CH1:L1:IL1L2:".";:::S DIH1H2:I:L1:".":: |23:305::1:23:39):S8:34,11:537: 322:323:TH1:H1H2:323:H1T:TL1:L1L2:322:L1T: ".";:L2:"." I: :JH3H4:J:L3:L4L31):J::64025:530:I:24:305::' 7:313- 8A 9Y:X:"--->":L ::316R ;f <Y:X:"<---": =20::"DENOMINATOR SQUARE #2=";:IP$:IP$ @"---------------------------------------": A"=======================================": BH1:*::::255:ZZ(0))::620003 1000DdG$:(G$):_, 301-995 BLACK BOXESh-305z.:40):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%160306416368,0::516368,0:::                         :II02:BN(I)0:I:T0:BR0:BL0:I04:J01:T(I,J)N(I,J):J,I:V19:HXN(I):S3I:S1N(I,0):S2N(I,1):S1S2770S3S31:BN(S31)1:N(S31,0)N(S31,0)10:T(S3,0)N(S3,0):N(S3,0)N(S3,0)1:N(S3,0)0763%I7S3I:YY(0):XXN(I7):NN(EI1*J01:N(I,J)E(J)I1E(J)I1JJI:E2Ģ17:X4):~XX6:I01:YY(I)4::Y:X:" ":I:XDX:XX3I2E:XX5:J01:YY(J):E(J)I720N(I,J)1400,410,420,430,440,450,460,470,480,490:XN(I)XJ,I17:X4)1:E4:Y13:435:Y(0)5:Y(1)111E(0)5:E(1)5UI01:N(I,0)N(I,1)ĂI:712XX5:J01:(I0N(I,J))(I1N(1,J)N(0,J))707YY(J):N(I,J)1400,410,420,430,440,450,460,470,480,490:XN(I)XJ,II421:N(I,0)N(I,1)EI:"RIGHT GO ON!":531:V(1):H(1)::17):V(1):H(1)::"WRONG! TRY AGAIN!":531:V(1):H(1)::17):V:H:(IP$)):g:IP$"":16368,0:V:H:J1F1hG$:G$;:IP$IP$G$:J:J0:q:16368,0:615::vIP$:IP$::IP(IP$):X20):::K12500:K:1M11000:M:CX1250:X:L31:L419:H36:H410:L521:L639:H56:H610:395:397:L31:L419:H312:H418:L521:L639:H512:H618:395:397:23:305::23:1:40):J1S::532:J:-V(1):H(1):R:I112:".";:::6H1:IH1H2:XL6:".":I:XH16:XL:I012:".";:::zH16:XR:I012:".";::::IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::39)::39)::39):: I13:19:5:X3:" ":I9:Y:X:" ":X:" ":X:" ":<:491[ LEFT SQUARE SUBROUTINEH1:IH1H2:XL:".";:XL12:"."::H1:XL:I112:".";::H2:XL:I112:".";:::H1:IH1H2:XR:".";:XR12:"."::H1:XR:I112:".";::H2:XDY:I915:X:" ":I9:Y2:X1:" ":X3:" ":X1:" ":O:461UY:X:" ":I9301:XI9:" ":I9::471Y:I915:X:" ";:X3:" ":I9:Y:I913:X1:" ":I93ĺI9::4811Y:I9112:X:" ";:X2:" ":I9:X:" ":X2:" ":X2:" ":F:441LqY1:X1:" "::X1:" ":wY:I913:X:" ":I93ĺI9:Y1:X:" "::X3:" "::451Y:X2:" "::X1:" "::X2:" "::996:I9:I9X1X3:I9:Y4:996:I9:4 :427: t I9312:YI9:X1:" ";:X3:" ":I9:X2:" ":z  Y:I904:X3:" ":I9:Y:X:" "::X1:" "::X:" ": :431 :437  Y:X:4):: ;Y:I92 = Y:X1:" ":I913:X2:" ":I9:X1:" ":C Z Y2:X1:" ":`  Y:X:" ":X3:" ":X1:" ":X:" ":X:" ": I9X1X3:I9:Y4:995:I9: :421) I9X1X2:Y2:I9:996:I9:I9Y3Y4:X:I9 H5:30::"<<====--"::I :T1L6L51:H5:L5:T1):H6:L5:T1)z I3H51H61:I3:L5:" ";:L6:" ":I3::  Y:X:4)::I913:X:" ";:X3:" ":I9:X:4):: :401  Y1:X1:" ":X:3)::X1:" ": :41IH1H2:L1:"."::6 CH1:L1:IL1L2:".";:::S DIH1H2:I:L1:".":: |23:305::1:23:39):S8:34,11:537: 322:323:TH1:H1H2:323:H1T:TL1:L1L2:322:L1T: ".";:L2:"." I: :JH3H4:J:L3:L4L31):J::64025:530:I:24:305::' 7:313- 8A 9Y:X:"--->":L ::316R ;f <Y:X:"<---": =20::"DENOMINATOR SQUARE #2=";:IP$:IP$ @"---------------------------------------": A"=======================================": BH1:4.::::255:ZZ(0))::620003 1000DdG$:(G$):_, 301-995 BLACK BOXESh-305z.:40):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%160306416368,0::516368,0:::                         J0N1::Y:X1(J):M1(J):Y1:X2(I):M2(I)mMM1(J)M2(I)C(J):M1(M10):M2MM110:C(J1)M1:S(I,J)M2J1(M1$)ĢY1:X1(J1):C(J1)YI3:XJI:S(I,J);:JN1C(J1)S(I,J1)C(J1):XJI1:S(I,J1)800J:Y1:X2(I):M2(I(M2$):D10:D20:Z1(Z1)716LI(M1$)11:(M1$,I,1)"."I0:I:716[D1D11:ImZ2(Z2)720I(M2$)11:(M2$,I,1)"."I0:I:720D2D21:IIN119:X1(I)X1(I1)1:I:I0N2::Y1:4:X):J09:C(J)0:J,:IP(IP$):fN11:I(M1$)11:(M1$,I,1)"."N1N11:X1(N1)XI(M1$):M1(N1)((M1$,I,1))mIN21:I(M2$)11:(M2$,I,1)"."N2N21:X2(N2)XI(M2$):M2(N2)((M2$,I,1))II09:J09:S(I,J)0:J,IZ1(M1$):Z2@V(1):H(1)::"RIGHT GO ON!":531:V(1):H(1)::17):V(1):H(1)::"WRONG! TRY AGAIN!":531:V(1):H(1)::17):V:H:(IP$)):g:IP$"":16368,0:V:H:J1F1hG$:G$;:IP$IP$G$:J:J0:q:16368,0:615:: vIP$:IP$:20):::K12500:K:1M11000:M:CX1250:X:L31:L419:H36:H410:L521:L639:H56:H610:395:397:L31:L419:H312:H418:L521:L639:H512:H618:395:397:23:305::23:1:40):34,5:33,19:24:J1S::532:J::R:I112:".";:::6H1:IH1H2:XL6:".":I:XH16:XL:I012:".";:::zH16:XR:I012:".";::::IH11H16:I:XL1:5):I:: :IH11H16:I:XR7:5):I:::39)::39)::39):: I13:19:5:X3:" ":I9:Y:X:" ":X:" ":X:" ":<:491[ LEFT SQUARE SUBROUTINEH1:IH1H2:XL:".";:XL12:"."::H1:XL:I112:".";::H2:XL:I112:".";:::H1:IH1H2:XR:".";:XR12:"."::H1:XR:I112:".";::H2:XDY:I915:X:" ":I9:Y2:X1:" ":X3:" ":X1:" ":O:461UY:X:" ":I9301:XI9:" ":I9::471Y:I915:X:" ";:X3:" ":I9:Y:I913:X1:" ":I93ĺI9::4811Y:I9112:X:" ";:X2:" ":I9:X:" ":X2:" ":X2:" ":F:441LqY1:X1:" "::X1:" ":wY:I913:X:" ":I93ĺI9:Y1:X:" "::X3:" "::451Y:X2:" "::X1:" "::X2:" "::996:I9:I9X1X3:I9:Y4:996:I9:4 :427: t I9312:YI9:X1:" ";:X3:" ":I9:X2:" ":z  Y:I904:X3:" ":I9:Y:X:" "::X1:" "::X:" ": :431 :437  Y:X:4):: ;Y:I92 = Y:X1:" ":I913:X2:" ":I9:X1:" ":C Z Y2:X1:" ":`  Y:X:" ":X3:" ":X1:" ":X:" ":X:" ": I9X1X3:I9:Y4:995:I9: :421) I9X1X2:Y2:I9:996:I9:I9Y3Y4:X:I9 H5:30::"<<====--"::I :T1L6L51:H5:L5:T1):H6:L5:T1)z I3H51H61:I3:L5:" ";:L6:" ":I3::  Y:X:4)::I913:X:" ";:X3:" ":I9:X:4):: :401  Y1:X1:" ":X:3)::X1:" ": :41IH1H2:L1:"."::6 CH1:L1:IL1L2:".";:::S DIH1H2:I:L1:".":: |23:305::1:23:39):S8:34,11:537: 322:323:TH1:H1H2:323:H1T:TL1:L1L2:322:L1T: ".";:L2:"." I: :JH3H4:J:L3:L4L31):J::64025:530:I:24:305::' 7:313- 8A 9Y:X:"--->":L ::316R ;f <Y:X:"<---": =20::"DENOMINATOR SQUARE #2=";:IP$:IP$ @"---------------------------------------": A"=======================================": BH1:Z,::::255:ZZ(0))::620003 1000DdG$:(G$):_, 301-995 BLACK BOXESh-305z.:40):::11::"** PRESS TO CONTINUE... ";:16368,02G%(16384):G%160306416368,0::516368,0::: !! ! ! ! ! !!!!!!!!!          OBLEM.CDIVDRI PRINT THE PROBLEM. PLAYER ENTERS HIS ANSWER.23:DIV"/"DR"=":23:15:D$:D$"0"(D$)0515D(D$) IF ANSWER IS CORRECT THEN GO TO LINE THAT MOVES HORSE AHEAD.OD(C)OD(D)5404  IF ANSWER IS NOT CORREE IS GIVEN A PROBLEM.?21:L$", ENTER YOUR ANSWER." GO TO SUBROUTINE THAT GENERATES DECIMALS FOR DIVISION PROBLEM.53 IF DIVISOR = 0 THEM GO BACK AND SELECT NEW NUMBERDR0505 LET C EQUAL THE ANSWER TO THE DIVISION PRIF THE NUMBER IS 1 THEN THE BLUE HORSE IS FIRST.?R1500w IF THE NUMBER IS 2 THEN THE WHITE HORSE IS FIRST.R2600 IF THE NUMBER IS LESS THAN 1 OR GREATER THAN 2, THEN SELECT AGAIN.R0R2470 THE PLAYER WITH THE BLUE HORSL$""440B16:"WHO IS THE JOCKEY FOR THE WHITE HORSE?":M$QM$L$440`M$""450i100 SELECT RANDOM NUMBER (1 OR 2) TO DETERMINE WHICH PLAYER GOES FIRST (SO THAT THE SAME HORSE DOES NOT ALWAYS START THE GAME.)R(9)1022 AND N FOR NO.":K$/K$"Y"K$"N"ī400@K$"N"ī400M::434 SET X AND Y TO 5 (SAME POSITION AS HORSES AT STARTING GATE.)10000::X5:Y5 ASK FOR PLAYER'S NAMES.8:"WHO IS THE JOCKEY FOR THE BLUE HORSE?":L$ S THE".11:"FINISH LINE IS THE WINNER."]13:5:"THE QUOTIENT WILL BE ROUNDED OFF"14:"TO 4 DECIMAL PLACES. YOU WILL NEED"15:"SCRATCH PAPER TO WORK THE PROBLEMS.":10000:17:"ARE YOU READY TO BEGIN? PRESS Y"18:"FOR YESERS. EACH PLAYER CHOOSES A HORSE"S5:"TO RACE. IN ORDER FOR YOUR HORSE TO"6:"MOVE, YOU MUST CORRECTLY ANSWER THE"7:"DIVISION PROBLEM. IF YOU ANSWER"8:"INCORRECTLY, YOUR HORSE WILL NOT MOVE."10:5:"THE FIRST HORSE TO CROS, THEN GO ON TO ENTER JOCKEY NAMES.+|750,127l21:1:"WELCOME TO DECIMAL DIVISION HORSE RACE"|50,255:23"DO YOU NEED DIRECTIONS ?? Y/N ---> ";J$J$"N"J$"NO"ī432:3:5:"THIS RACE IS A GAME FOR 2"$4:"PLAYY2000A^ REGRAPH THE STARTING LINE AFTER HORSES CROSS IT.\_X14Y14Ġ1:6,3410chIq GRAPH HORSES BACK AT STARTING GATE.r100%w ASK IF THE PLAYERS NEED DIRECTIONS TO PLAY. IF SO, THE DIRECTIONS WILL APPEAR ON THE SCREEN. IF NOTSE 28,303,  NECK & LEG 2ND HORSE9 "26,306? #H '100a , PRINT PROGRAM NAMEg 1s 350,127 621:1:"WELCOME TO DECIMAL DIVISION HORSE RACE" 850,255 ? HORSES RUN DOWN THE TRACK. @I132 JX5I OY5IT1000 H COLTS  6& HEAD 1ST HORSE2 6,710G BODY 1ST HORSES 2,612l BACK LEG 1ST HORSEy 12,143 NECK & LEG 1ST HORSE 10,146 15 HEAD 2ND HORSE 6,726  BODY 2ND HORSE 2,628  BACK LEG 2ND HOR2DRMD(B) LB%1B%267& P< d GRAPH RACETRACKB i\ j TRACK FOR 1ST HORSEc n4o x0,398| 0,3916 TRACK FOR 2ND HORSE 0,3924 0,3932 1 STARTING GATE 6,3410 FINISH LINE 6,3435 GRAP ;A%1DIVLD(A)* <A%2DIVMD(A)? =A%3DIVND(A)T >A%4DIVOD(A)f @A%1A%454 B GENERATE RANDOM NUMBERS 1-2 TO SELECT NUMBER OF DECIMALS IN DIVISOR. DR = DIVISOR. CB(9):NNN272 FB%(9)102 HB%1DRLD(B) JB% 4 DIGIT DECIMAL7 2OD(A)(A104.5)(104.5)m 3 GO TO SUBROUTINE TO GRAPH RACETRACK AND HORSES.} 445995:295 5 GENERATE RANDOM NUMBERS 1-4 TO SELECT NUMBER OF DECIMALS IN DIVIDEND. DIV = DIVIDEND. 6A(9):NNN259 7A%(9)102  NNN0(O* DEFINE FUNCTIONS TO SELECT 1,2,3, OR 4 DIGIT DECIMALSe+ 1 DIGIT DECIMAL,LD(A)(A101.5)(101.5)- 2 DIGIT DECIMAL.MD(A)(A102.5)(102.5)/ 3 DIGIT DECIMAL0ND(A)(A103.5)(103.5) 1"" " " " " """""""""