8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( +.COUNT.CALORIES$B (SAMPLING~D2%HIRES!@C  !K# /TYPING.FRACTIONV^C/PT1.MEASUREMENTfC%/PT2.MEASUREMENTvC0-UNIT.TUTORIAL #B *UNIT.DRILLl%B$ -MICRO.MEASURE7CMEASUREMENT' &PRODOS }<!),BASIC.SYSTEM((!  )TITLE.PAK=h !a9 RUNPACKC!`9 'STARTUPE!B. $MENUH? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3   !"#$%&آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&  VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8 ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\ h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 .hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlll IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0lhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`, FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$хhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' >K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`H݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE@LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍OꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  IhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHƱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvHNNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@NȐ% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8@   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE 蝀 0Lm '    hLW(L $ ]` L  `$ i [  0 ] bȱ ]L]`ºԠōκԠō` i G ?橭 ) Ƨƨn  Т V b  u LLJR/H XLw u  u ʆ L   u ɉɛɈɋɕɊɍحa0ӭL  b 9 oXύX012)0120 X F)?i/  O O ] \ + L# L$0)Ħ 0e8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL')*+,-./0123456789:;j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` յ"GG~{౮Ꚛ"fg<|\sa`$qq?NNOON 88"xc{ccp~xյ"N`బ`""y8~~~~~UU""U"""`@ 5jjbbbjjdqdjd4 LՃ#`@@@ ꪫ "qq?c? ~յ#`xq99a9@y8yA@$ANG UU pxUU""U""" **""" **DD*DDDAḫ UUDDDpxx|UU"UՍ**@**D*@OUU<>?@AB`p****D*  UUxp``p```p~UU""U""" |**""" ?**DD*DDD UUDDDp`UU"U`յ ****D*:````M@ꪪL L@สL` #@  꺎`,UUUU# #U##,` **""" **DD*DDD |UUDDD`@UU"U LLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s8x88x`x~A@檪"ANG "?GGwgGcc;scꪪ@@@99p8q3L?LR յTR@@N`ꪫ`Kx @K@@K $@ ꛀx>EEEUőő 8 @`*  ꪪxU@`đđ" `"""*D DD  38000 A$(20),RN$(20);49168,0:D$(13)(4)\NP:N1NP:A$(N),RN$(N):Nl(1800:1820}2::V1:255<ND$"COURSEWARE MEASUREMENT":1700F:23:4:"USE ARROW KEYS AND PRESS ";:P9 ZN1NP:8N:20(A$(N))2:UE, INC." > ":R 17:" THIS DISK MAY BE FREELY COPIED AND" 18:" GIVEN AWAY, BUT MAY NOT BE SOLD" 19:" OR INCLUDED AS PART OF ANY " *20:" COMMERCIAL PACKAGE WITHOUT " 421:" WRITTEN PERMISSION FROM CDFR Z : , -- TITLE PAGE --C PAUSE3:(SECONDS)Y P1PAUSE700:P_  ND$"COURSEWARE MEASUREMENT" 6:21(ND$)2:ND$ 10:4:"COPYRIGHT 1987, CUE, INCORPORATED" 12:11:"ALL RIGHTS RESERVED"! 15:4::"  CUE BOOT PROGRAM . :49234,0::D$(4)QD$"BLOAD RUNPACK"j(D$"BLOAD TITLE.PAK"20,0:1,97:230,64:24576<2000:-- TEXT TITLE --FD$"RUN MENU" P SOFTSWAP TITLE GRAPHIC BY JOHN FORRESTER AND HIS MOM, ROXIE FORRESTE (0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``99`8A4LՍL~L յTNNNOO88|"`c{c|~յ#Nc꺺A#յp"y88x88xx`A@ƺ"GNA p"GG?wgGcc;scꪪp"@`@@ ?@ "?qqc? ݵյ#x`A99q9py8y@@$GNAյx"o;G8ఱꚚ"g <|\cs`$?qq ᰬ|Uxp|xđđ" յ"""*@D ర@@@DDDU~~~~~đđphhhjqq|`KDU~p```p``pxđđ ׍|* ` Uxpđđ"յ """*D~A DDDUx px|đđյp `*A$(N);:, d:V8:20(A$(V))2:A$(V);G nK(16384):K128110s x16368,0::V8:20(A$(V))2:A$(V); K136K139VV1:V0VNP K149K138VV1:VNP1V1 K141100 K141VNP4ĉ:::(4)"RUN"RN$(V) K141VNPGIJKLMNOPQRSTBOUT CUE & SOFTSWAP --6:3:15::"ABOUT CUE":f5:" COMPUTER-USING EDUCATORS, INC., IS A"" NON-PROFIT EDUCATIONAL CALIFORNIA "" CORPORATION FOUNDED BY TEACHERS IN "" 1978.":" CUE HAS OVER 7000 MEMBERS THROUGHOUT"'GREDIENTS. ";* " ANYONE WITH SOME PROGRAMMING SKILLSh4 " CAN MODIFY THE DATA LINES TO: "> :" --ADD MORE INGREDIENTS."H :" --LIST MAIN DISH INGREDIENTS TO "R " MAKE ANOTHER PROGRAM, ETC.";1000: -- AVE."; 1000Q 3:" ";::"COUNTING CALORIES:";::" ENTER INGREDIENTS,";| " QUANTITIES & SERVINGS OF A DESSERT" " RECIPE TO CALCULATE THE CALORIES" " PER SERVING.":: " THIS PROGRAM HAS A DATA LIST OF" " ABOUT 100 DESSERT INET AND/OR"' " READ MEASUREMENTS."d ::" ";::"SAMPLING:";::" COMPARISONS OF MEANS OF " " SMALL AND LARGE SAMPLINGS LET USERS " " SEE THE IMPORTANCE OF SAMPLE SIZE. " " HI-RES BAR GRAPH PLOT DEMONSTRATES " " BELL-SHAPED CURING/REPORTING. TUTORIAL & "KX " DRILL TO IDENTIFY SMALLEST UNIT OF "xb " ACCURACY. "v ::" ";::"MICROMETER MEASUREMENT:";::" USING A" " MICROMETER BARREL SIMULATED ON THE "  " SCREEN, YOU CAN CHOOSE TO S "1 :" PT.1: MEASURING GIVEN LINES. "^ :" PT.2: MAKING LINES TO SET LENGTH."h 1000& 3:" ";::"SMALLEST UNIT TUTORIAL & DRILL:"::" PRECISION OF REPORTED MEASUREMENT ": " IS AS ACCURATE AS SMALLEST UNIT USED"D " IN MEASUR TYPING FRACTIONS/MIXED NUMBERS "Q " INTO PROGRAMS HERE. (HI-RES PROGRAM)" :" ";::"PT.1 & 2- APPROXIMATE MEASURE:"::" DEMONSTRATES MEASUREMENT PRECISION" " USING RULERS WITH WHOLE, 1/2 & 1/4 " " INCH MARKINGS. (HI-RES PROGRAMS) " z1000 : 5 ABOUT THESE PROGRAMS _ :3:7::"COURSEWARE MEASUREMENT": 5:" THERE ARE 8 PROGRAMS ON THIS DISK.": :" ";::"TYPING FRACTIONS:";::" THIS IS A SHORT " " TUTORIAL/PRACTICE ABOUT THE FORMAT "$ " FOR:"CREDITS":>6?H:" FOR APPLESOFT AFICIONADOS, THE"nR:" COURSEWARE PROGRAMS HAVE MANY USEFUL"\:" SUBROUTINES. "f:::p" CONVERSION TO PRODOS AND 3.5 INCH "u" VERSIONS BY HAL GIBSON (SOFTSWAP). ROGRAMS FIRST APPEARED IN HIS"[ :" PUBLICATION ";::" COURSEWARE MAGAZINE ";::"." :::" NOT ONLY DO THESE PROGRAMS PROVIDE " :" ENJOYABLE PRACTICE, THEY ARE ALSO " :" MODELS OF STRUCTURED PROGRAMMING. " *100043:15:" ";:ZZ  : 2 -- SET WINDOW --> :1806\ 32,1:33,38:34,1:35,21g ": w  CREDITS :3:15::"CREDITS": 6:" PROGRAMS ON THIS DISK WERE OBTAINED" :" FROM THE GENEROSITY OF DAN ISAACSON." :" THESE PZZ4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$V ZZ6ĢZZ:21(ND$)2:ND$^ ZZd o : -- SCREEN SETUP -- ::ZZ140:1:ZZ:" ";:ZZ ZZ223:40:ZZ:" ";:ZZ ZZ4011:ZZ:23:" ";:ZZ ZZ2311:1:ZZ:4ĴV(NP4)2000,4000,3000* VNP502 := : U -- SCREEN CLEAR --b 23:3: " PRESS ANY KEY TO CONTINUE "; 49168,0:Z$:: : -- MENU BANNER -- :ZZ37:3:ZZ:" "6 " THE U.S., CANADA, AND IN SEVERAL "B" FOREIGN COUNTRIES."L1000j:3:15::"ABOUT CUE":5:" THE GOALS OF CUE ARE:":" * TO PROMOTE THE DEVELOPMENT AND """ GROWTH OF THE USE OF COMPUTERS":" AND OTHER TECHNOLOGIES":" IN EDUCATION."@,:" * TO MAKE A SUBSTANTIAL CONTRIBUTION"m6" TOWARD DEVELOPING AND PROVIDING "@" INFORMATION, MATERIALS, AND"J" SOFTWARE APPLICATIONS TO ALL"T" INTERESTED PERSONS; AND" ^:" * TO PROMOTE THE PROFESSIONA* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS UWXYZ[\]^_`abcd *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* TYPING FRACTIONS *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * ---+,ZSMALLEST UNIT DRILL,UNIT.DRILLK xMICROMETER MEASUREMENT,MICRO.MEASUREq zCOUNTING CALORIES,COUNT.CALORIES |SAMPLING,SAMPLING +--- C R E D I T S ----+,Z ! ABOUT CUE & SOFTSWAP !,Z ! ABOUT THESE PROGRAMS !,Z!+------ Q U I T ---- PO BOX 271704"4" CONCORD, CA 94527-1704"> 1000I: Qp12wqTYPING FRACTIONS,TYPING.FRACTIONrPT.1-APPROXIMATE MEASURE,PT1.MEASUREMENTtPT.2-APPROXIMATE MEASURE,PT2.MEASUREMENTuSMALLEST UNIT TUTORIAL,UNIT.TUTORIAL! vDO YOU HAVE SOMETHING TO CONTRIBUTE?"M:" SEND INQUIRIES OR DISKS TO:"n:" SOFTSWAP CHAIRPERSON"" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026":" FOR A COMPLETE CATALOG, WRITE TO:":" SOFTSWAP""2" GIVEN AWAY, ";::"BUT NOT SOLD";::"."a:" SOFTSWAP IS A NON-PROFIT SERVICE. "" ALL PROCEEDS BEYOND COSTS ARE PLOWED"" BACK INTO THE DEVELOPMENT OF NEW "" DISKS."1000:3:12::"ABOUT SOFTSWAP":'5:" TO DISSEMINATE "@D" COPYABLE DISKS TO EDUCATORS AT LOW"NN" COST."XX1000{b:3:12::"ABOUT SOFTSWAP":l5:" THIS DISK IS COPYRIGHTED BY CUE, "v" INC., AND IS NOT IN THE PUBLIC "" DOMAIN. IT MAY BE FREELY COPIED AND"25:" SOFTSWAP IS A SERVICE OF CUE, INC., "_" AND HAS BEEN OPERATING SINCE 1978. ":" SOFTSWAP'S MISSION IS TO SOLICIT THE"&" DONATION OF USEFUL EDUCATIONAL SOFT-"0" WARE AND DATA, TO SCREEN AND CLEAN ":" THE DONATIONS, ANDEWSLETTER SIX TIMES A YEAR."D::" TO JOIN CUE, SEND $22 TO:"[:" CUE, INC."s" P O BOX 2087"" MENLO PARK, CA 94026"::" FOR MORE INFORMATION, CALL":" (415) 328-2248"1000:3:12::"ABOUT SOFTSWAP":L GROWTH"8h" OF ITS MEMBERS AND ALL FELLOW "Mr" EDUCATORS."W|1000u:3:15::"ABOUT CUE":5:" OVER 2500 CUE MEMBERS ATTEND THE "" STATEWIDE CONFERENCES HELD EVERY"" FALL AND SPRING, AND RECEIVE "" THE CUE NRESERVED. *+ +* *I ,************************O .:Z F16384 Z(28672)32(28673)88ĺ:(4);"BLOAD HIRES,A$7000":LOAD HI-RES DRIVER \28672:HOOK UP HIRES d==================== f T I T L E P A G E h==================== x:F }7:6:"T Y P I N G F R A C T I O N S"p 6:"-------------------------------" 15:11:" Original version" 16:9:"(c) copyright 1984 by" 17:6:"School & Home Courseware, Inc." 20:4:"Revised version (c7070,CH$" "CH$"/"CH$"."İ73003Z9:DNO$""z(TC(C)0TC(C)4)SL0CH$"/":7300:/ EXPEC.TC(C)3SP0CH$"SPACE":7300:SPACE EXPECTED.TC(C)4PE0CH$".":7300:. EXPEC. AND NOT FOUND.:EF17185:AN WORK.bZ1(GT$)*gCH$(GT$,Z,1)VlCH$"0"CH$"9"7070:FOUND A DIGIT.hvCH$" "SPZ{CH$" "TC(C)3CH$"SPACE":7300:7070CH$"/"SLZCH$"/"(TC(C)0TC(C)4)İ7300:7070CH$"."PEZCH$"."TC(C)4İ7300:) when you type FRACTIONS":8H"into the computer."BK9000HM:f20:1:"END OF PROGRAM."z28672,0:3840019999V==============XLOCATE GARBAGEZ==============]NO$"NOT ":SP0:SL0:PE0:SPACE, SLASH, PERIOD LOCATION IN 715:ERROR FOUND.:A7600:PRAISE FOR CORRECT RESPONSE.aCC1:NEXT TYPE OF NUMBER.j620p:========== CONCLUSION"==========4:97:"GOOD JOB."::P51:8200>:"REMEMBER: Use typed notation":C"(one lineRROR FLAG.}):C;") Type a:":S4);NT$(C);" ";:SEE LINES 250-270.ZB$"09// ..":ZL6:8400:::GET THE RESPONSE.:(GT$)66584:"* Too many characters!"715:7000:LOCATE GARBAGE AND REPORT.EF0ted,' you'll need to respond to":S"questions by using typed notation form."Y:kV============}XMAIN PROGRAMZ============bC1:COUNTER FOR TYPED OF NUMBER.lC5İ9000:800:DONEq:v9000::xCLEAR SCREEN. {EF0:EExample: 3.25 .25 19.63":::b"Typed notation for ";I$" WHOLE NUMBERS "N$" is":"the same as printed notation"::" For Example: 1 345 57"9000::::" Because computers are 'typewriter":$"orien: FRACTIONS are typed on one line.":" Type the numerator, type '/'"::" and then the denominator."9000:PRESS RETURN.::::"Typed notation for "I$" DECIMALS "N$" is":"the same as printed notation"::*" For NS ";N$" IS":8"different from printed notation."S:" 1 "}" printed: 5- typed: 5 1/2"" 2 ":" 3"" printed: - typed: 3/4"" 4"u::"Notice===============:K7:1:" This program reviews and practices"j:" typed notation for:"::" - FRACTIONS"::" - DECIMALS"::" - WHOLE NUMBERS":9000: PRESS RETURN:::"Typed notation for "I$" FRACTIOR... greater than 1... but not an integer..."a:mTC(1)0yTC(2)2"TC(3)3'TC(4)4,TC(5)41:6LN12:MAX. SCREEN LINE.=====================INTRODUCTORY TUTORIAL======UMBER..."VNT$(2)"FRACTION... between zero and 1..."NT$(3)"MIXED NUMBER... greater than 1..." NT$(4)"DECIMAL NUMBER... between zero and 1..."[NT$(5)"DECIMAL NUMBEI$(14): INVERSE CHARS.==========>INITIALIZEN==========gNT$(5),TC(5),OK$(6)OK$(1)"THAT'S RIGHT"OK$(2)"GOOD"OK$(3)"CORRECT"OK$(4)"VERY GOOD"OK$(5)"FINE"OK$(6)"WAY TO GO": NT$(1)"WHOLE N) copyright 1987"D 21:4:" by Computer Using Educators, Inc."N 9000_ ::1:0:7k D$(4) B$(8): BACKSPACE J$(10): LINEFEED R$(13): RETURN L$(12): CONTROL-L LOWER CASE (INVERSE LETTER)N$(9): NORMAL CHARSERROR ALREADY FOUND.BC17185:NOT A FRACTION OR A DECIMAL.H:|SP1SP(GT$)PE(GT$)7143:SPACE BEG./END.SL1SL(GT$)7143:SLASH BEG./END.7400:EVALUATE RESPONSE (GT) FROM STRING FORMAT (GT$).SPSL1SP071438SPSL7148:SPACE TO LEFT OF SLASH OR NEITHER IN STRING.]EF1:4:"* Incorrect notation."~20);"TRY AGAIN.":::7185:C2C47160:NOT EXPEC. BETWEEN 0 AND 1.GT0GT17160EF1::4:"* Not between zero and 1."20);"Tr* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS eghijklmnopqrst *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* PT.1-APPROX MEASURE *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * :Q1419020%A#8:868"%F#A%N::RETURN TO MENU OR ENDW% N:(4)"RUN MENU"]%*N""8590$u!ZK1(GT$).$z!" ";(8);(8);6$!ZKA$!GT$""G$!:Y$!ZTMR1İ7300c$!8425u$&#============$(#PRESS RETURN$*#============$2#16368,0:CLEAR KEYBOARD BUFFER.$7#23:8:"(Press "I$" RETURN "N$" to Continue)"%<#Q(16384) !ZF18500#%!GT$GT$ZQ$(#*!ZQ$;.#/!:C#4!ZQ$(13)8520T#9!GT$""8555`#>!" ";:f#C!:z#H!ZQ$(8)8555#M!" ";(8);#R!(GT$)08555#W!(GT$)1GT$""#\!(GT$)1GT$(GT$,(GT$)1)#a!ZQ$;#f!:#k!ZQ$(27)8590 $p!GT$=========" ZC(16368)'" GT$""-" :>" ZQ(16384)n" ZQ127ZQ(16368):ZQ$((16384)):8450" I$" ";N$;(8);" 8590" :"!ZF1"!ZK1(ZB$)2" !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0"!ZK"!(GT$)ZLZF1"!:#: !:.!T$OK$(J):SWAP USED WITH LAST.A!OK$(J)OK$(RN)P!OK$(RN)T$V!:`!JJ1f! ~! ==================! SUBROUTINE - PAUSE! ==================! K61700P5::! :! ================! SUBROUTINE - GET " =======,(GT$)SL)( !(C$)0GT1.1:7489A $GT(A$)(B$)(C$)G A] ================s CORRECT RESPONSE ================ J0J6 RN(J(1))1 25:I$" "OK$(RN); : RNJ5ĺ"!"N$::7647:RANDOMLY USE '!'.!"."N$:=#SL0GT(GT$):7489:4.32?SP07445:NUMBER >1.ZB$(GT$,1,SL1):1/2.wC$(GT$,SL1,(GT$)SL)(C$)0GT1.1:7435GT(B$)(C$) 7489:A$(GT$,1,SP1): 5 1/2.B$(GT$,SP1,(GT$)SL) C$(GT$,SL1: ==============1REPORT GARBAGEE==============aEF1:SET ERROR FLAG=1.4:"* Your answer to this "6);"should ";NO$;"contain a "I$" "CH$" "N$:==================EVALUATE FRACTIONS=================y again.":::7185:BC3C57175:NOT EXPECTED > 1.QGT17175xEF1::4:"* Not greater than 1."20);"Try again.":::7185:GT(GT)7185 EF1::4:"* You typed an integer." 20);"Try again.":::7185 RESERVED. *+ +* *I ,************************O .:Z F16384 Z(28672)32(28673)88ĺ:(4);"BLOAD HIRES,A$7000":LOAD HI-RES DRIVER \28672:HOOK UP HIRES d==================== f T I T L E P A G E h==================== x:F }7:6:"APPROXIMATE MEASUREMENT: Part 1"p 6:"-------------------------------" 15:11:" Original version" 16:9:"(c) copyright 1984 by" 17:6:"School & Home Courseware, Inc." 20:4:"Revised version (c56J,202756J,30'5:J85:J;-32><J03Y>5656J,205656J,27t@5556J,205556J,27zBDF:KJ07M4228J,204228J,24O4128J,204128J,24QS====================SUBROUTINE - SE:::15:1:"Happy Measuring!&:09000D28672,0:38400N::Y19999q==================SUBROUTINE - RULER==================24,20279,20:279,5224,5224,20:25,5225,20J032856J,202856J,3027 a410f:F::5:" We can never really know an actual":" length ";I$;" EXACTLY ";N$;" ."::::" We can only report a measurement":" as close to the actual length as":" our measuring tool will allow.":9000 your measuring tool:":?>" the size and units marked.":EC:]D9000:PRESS RETURNzF8000:ERASE TEXT WINDOWG:H:::" Let's look at this phenomenon":M" again with a different segment.":R9000:PRESS RETURN\TXTX1:C1anged!":#9000:PRESS RETURN):F8000:ERASE TEXT WINDOWoTX1860:SKIP THIS PARA. 2ND TIME. :" You have just experienced one":%" property of measurement."::*:" All measurement depends on the":4" precision of ECT RESPONSE.,8000:ERASE TEXT WINDOW6CC1?420E:r:" You measured this segment to be"::" "ANS$(1);" inches, "::" ";ANS$(2);" inches, and":" "ANS$(3);" inches...": :" yet its length has not ch02 I650N:-X(GTVL)GPE(C)6506]EF1lb8000::" * Look closer. The segment is not":g" closest to '";GT$;"'.":i:495q:EF1435:BOTTOM OF LOOP.:ANS$(C)GT$:STORE RESPONSE.7600:PRAISE FOR CORR" * Answer again, please."89000:PRESS RETURN.V8000:ERASE TEXT WINDOW._650e:&7200:EVALUATE RESPONSE (GT$->GT).+:0GT(2GPE(C))(GT(2GPE(C)))6005EF1:8000::" * '";GT$;"' are incorrect units."<::5ZB$"09// ":ZL5:8400:GET RESPONSE.S7000:IS INPUT VALID? RETURNS EF=1.Y:gEF05508000::"* '";GT$;"' is not a valid answer.":C1502::" * Use this form of typed, mixed":" fraction: 2 3/4, etc.":F=0.EF08D:" Use the ruler to measure segment":~" AB to the nearest ";L$;I$;UNIT$(C);N$;" . ":::" What is your measurement of the":" length of line segment AB to the":" nearest ";I$;UNIT$(C);N$;" ? ";)JFR(1)5OFR(2)11&TFR(3)13,^:>============PMAIN PROGRAMb============pTX2900x:6600:DISPLAY SEGMENT TO BE MEASURED.C3700C6400,6460,6475:DISPLAY RULER AND ITS DIVISIONS.:REPEAT UNTIL E(2)"Good!"#OK$(3)"Correct!";OK$(4)"Very good!"NOK$(5)"Fine!"fOK$(6)"Way to go!"l:"UNIT$(1)" INCH "'UNIT$(2)" HALF-INCH ",UNIT$(3)" QUARTER-INCH "1:6TX1:C1:TX-TIMES THROUGH; C-RULER UNITS USED FLAG.E: (12):CTRL-L = LOWER CASE(INVERSE CHARACTERS).ON$(9):NORMAL CHARACTERSpI$(14):INVERSE CHARACTERS==============INITIALIZATION==============GPE(1).5GPE(2).25GPE(3).125:OK$(1)"That's right!" OK$) copyright 1987"D 21:4:" by Computer Using Educators, Inc."N 9000} ANS$(3),GPE(3),OK$(6),S$(4),UNIT(3),FR(3) :1:0:7 D$(4):DOS CONTROL CHARACTER B$(8):BACKSPACE J$(10):LINEFEED R$(13):CARRIAGE RET.0L$GMENT!====================EIN(2(1)1):WHOLE NO. PART.K:qFRFR(((1)31)):5, 11, OR 13.2:3:"A ";VLINFR16:LENGTH (DECIMAL).:7J1827,7JVL5628,7J2:VL87:"B"" V==============XCHECK VALIDITY/Y OF INPUTCZ==============VbEF0:SP0:SL0ggZK1(GT$){lCH$(GT$,ZK,1)qCH$"0"CH$"9"7050tCH$" "ZK1ī7040uCH$" "ZK(GT$)7040vCH$" "SP0SPZK:7050yCH$"/"ZK1ī7040* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS uwxyz{|}~ *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* PT.2-APPROX MEASURE *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * % N:(4)"RUN MENU"%*N $!8425$&#============0$(#PRESS RETURNB$*#============h$2#16368,0:CLEAR KEYBOARD BUFFER.$7#24:5:"Press to continue."$<#Q(16384):Q1419020$A#24:5:" ";$F#%NRETURN TO MENU OR END#W!" ";(8);$#\!(GT$)085659#a!(GT$)1GT$""[#f!(GT$)1GT$(GT$,(GT$)1)e#k!ZQ$;k#p!:#u!ZQ$(27)8600:NOT ESCAPE KEY#z!GT$""8600#!ZK1(GT$)#!" ";(8);(8);:ERASE WHOLE LINE#!ZK#!GT$""#!:$!ZTMR1İ700ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0+"!ZK@" !(GT$)ZLZF1F"%!:U"*!ZF18510"/!GT$GT$ZQ$:CONCATENATE NEW CHARACTER TO STRING"4!ZQ$;"9!:">!ZQ$(13)8530:RETURN KEY"C!GT$""8565"H!" ";:"M!:#R!ZQ$(8)8565:NOT DELETE KEYCHARACTERD! ZQ127ZQ$(ZQ128):ZC(16368):8460:FOUND ONE!a! ZSZS1:FLASHING CURSOR! ZS3ĺI$;" ";N$;B$;:8450:PRINT CURSOR! " ";(8);:ZS6ZS0:ERASE CURSOR!!8600!!:! !ZF1:SET ERROR FLAG ON!!ZK1(ZB$)2#"!ZQ$(: T8 ^)  ==================A  SUBROUTINE - PAUSEY ==================l  K61700P5:r  x : ============ GET RESPONSE ============ ZC(16368):CLEAR INPUT BUFFER GT$"" : ! ZQ(16384):LOOK FOR A ======CORRECT RESPONSE4================GRN(6(1))1]::25:OK$(RN);u9000:PRESS RETURN{>=================@ERASE TEXT WINDOWB=================J8:1 OZK116:" "SP0SL0GT(GT$):7270:INTEGER.<4SP0SL07230F97250r>WH$(GT$,SP1):NU$(GT$,SP1,SLSP1)CDE$(GT$,(GT$)SL):7264RNU$(GT$,SL1):DE$(GT$,(GT$)SL)`(DE$)0DE$"9"aGT(WH$)(NU$)(DE$)f==========zCH$"/"ZK(GT$)ī7040<{CH$"/"SL0SLZK:7050\EF1:7055:SET ERROR FLAG.b:jZKSQ0SL0EF1=============== EVALUATE ANSWER"===============*WH$"":NU$"":DE$"":WHOLE, NUMERATOR, DENOMINATOR.&/RESERVED. *+ +* *I ,************************O .:Z F16384 Z(28672)32(28673)88ĺ:(4);"BLOAD HIRES,A$7000":LOAD HI-RES DRIVER \28672:HOOK UP HIRES ^AF0:(637)255AF1:APPLE FLAG--0 FOR II+, 1 FOR IIE  d====================5 f T I T L E P A G EO h====================W x: }7:6:"APPROXIMATE MEASUREMENT: Part 2" 6:"-------------------------------" 15:11:" Original version" 16:9:"(c) copyright 1984 by" 17:6:"S;" be making an error of up to "I$" "GPE$(K1)" "N$:A:m" inch between the measurement you":" read and the actual, true length":" of the bar segment."ZR1:9000:Q210Q242870:8000K1=============z:8" WHY? The precision of your measuring":h" tool did not allow closer measurement."ZR1:9000:Q210Q242İ8000:835:80009:1:" If your measuring tool is marked":" in "I$;UNIT$(K1);N$" only, you could":2)2);" inches."::HW:" You reported both 'measured' 2 inches."W\ZR0:9000]a:gf8000k9:1:" By reporting 2 inches, you could make":p" an error of up to ";GPE$(K1)" inch from":u" the actual length of your segment.": " Use the ARROW KEYS to change."0%7556*:@48000H9K2N>:C9:1:" You made a bar segment approximately":H" as large as ";M$(M(K1,1)2)" inches.":M:" Then you made a one approximately":R" as small as ";M$(M(K1,$" LONGER "N$2C6DLL2$I$" SHORTER "N$8:U8000:ERASE TEXT WINDOW 10:1:" Your bar segment can be a little":" "L2$;" and still be closer to the":" 2-inch mark than to the":" "M$(M(K1,K2));"-inch mark."::':*" could be read as 2 inches.":0:@:2:1:ER$i:2:5:I$;" ";N$;:FIRST 3 UNITS :C649:LENGTH COUNT TO 46800:USER DRAWS SEGMENTDL141(56SIGN(K2)GPE(K1))(C6DL)4İ7600:820:CORRECT LENGTHC6DLL2$IMAIN PROGRAM!============>8000:ERASE TEXT WINDOWJK113Z:2:1:ER$K16400,6460,6475:DISPLAY RULER AND ITS DIVISIONS.:K212:10:1" Using the ARROW KEYS, make the"::" "I$;L1$(K2);N$" bar segment which"AWS SEGMENT.,?C6138C6144İ7600:7002N:PP8000:ERASE TEXT WINDOW.S:10:1:" You can make it closer to 2 inches.":X:" Continue using the ARROW KEYS.":b20:" Press when you are done."g565============." exactly 2 inches long by using:":\:" RIGHT ARROW to make it longer.":" LEFT ARROW to make it shorter."&:::" Press when you are done."0:12:1:ER$;22:5:I$;" ";N$;3C64956800:USER DR1/2"BM$(5)"2 1/4":M$(6)"1 3/4":M$(7)"2 1/8":M$(8)"1 7/8"P========^PRACTICEl========t:6400:DRAW RULER9:1:" DRAWING TO A MEASUREMENT":" ------------------------" " Please make the 'bar segment' "I$" "N$:ER$" "6E:McL1$(1)" LONGEST "eeL1$(2)" SHORTEST "kh:qn:rSIGN(1)1wSIGN(2)1|:M(1,1)1:M(1,2)2:M(2,1)3M(2,2)4:M(3,1)5:M(3,2)6M$(1)"3":M$(2)"1":M$(3)"2 1/2":M$(4)"1 GPE$(3)"1/8":0OK$(1)"That's right!"COK$(2)"Good!"YOK$(3)"Correct!"qOK$(4)"Very good!"OK$(5)"Fine!"OK$(6)"Way to go!":"UNIT$(1)" INCHES "'UNIT$(2)" HALF-INCHES ",UNIT$(3)" QUARTER-INCHES "1:0;B$(8):BACKSPACE,J$(10):LINEFEEDHR$(13):CARRIAGE RET.gN$(9):NORMAL CHARACTERSI$(14):INVERSE CHARACTERS==========INITIALIZE==========GPE(1).5:GPE$(1)"1/2"GPE(2).25:GPE$(2)"1/4"GPE(3).125:chool & Home Courseware, Inc."Q 20:4:"Revised version (c) copyright 1987" 21:4:" by Computer Using Educators, Inc." 9000 GPE(3),OK$(6),GPE$(3),L1$(2),SIGN(2),M(3,2),M$(8),UNIT$(3) :1:0:7 D$(4):DOS CONTROL CHARACTERSUMMARY PAGES'=============A:3:1:" SUMMARY:"S" --------"" In making your 2-inch bar segment":" using the three rulers with":" different markings, you found":" that a measurement made with a":' " more precise measuring tool gives":L" a smaller possible error.":[ZR0:9000a:m:3:1$26:"GREATEST")26:"POSSIBLE"*26:"ERROR"," REPORT RULER MARKING IN REPORT"." ------ ------------- ---------"&3"2 *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[*SMALLEST UNIT-TUTORIAL*y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * inue"7&8#ZR1Ģ24:8:" or to re-read";h&<#Q(16384):Q141((Q210Q242)ZR1)9030r&C#9020x&F#&NRETURN TO MENU OR END& N:(4)"RUN MENU"&*N= %J8:1+%OI117:(7I):1:ER$;:5%T9:1;%^S% ==================k% SUBROUTINE - PAUSE% ==================% K61700P5::%&#============%(#PRESS RETURN%*#============%2#16368,0&7#23:7:"Press to cont1,15:C6,8C6,15$&6820"$N8$================N$CORRECT RESPONSEd$================$8000:ERASE TEXT WINDOW$PN(6(1))1$20:23:OK$(PN)$ZR0:9000$$>=================$@ERASE TEXT WINDOW%B================#USER DRAWS SEGMENT2#==================@#16368,0k#Q(16384):Q136Q149Q1416820{#Q1416990#Q149C62006900#7#C61,8C61,15:C6,8C6,15#C6C62#Q136C6296820#4#C6C62$C61,8C60"2756J,202756J,300"5:J85:J;6"<"2B"7:I"<7T"=J03o">5656J,205656J,27"@5756J,205756J,27"D"F"K7"LJ06"M4228J,204228J,24"O4328J,204328J,24"S"U#==================2421132!:%!28672,0:38400P!::10:9:"E N D OF P R O G R A M"[!19999s!==================!SUBROUTINE - RULER!==================! 7!24,20279,20:279,5224,5224,20:25,5225,20!J03"2856J,202856J,3;N$;" we may":= " make (i.e. the greatest possible":i " difference between 'true' length": " and reported length) when we we": " use a ruler marked in inches,": " half-inches, quarter-inches, etc.": !ZR1:9000:Q210Qct":/t" error for any measurement we":Yy" make since we never can know a":|" segment's actual, 'true' length."~ZR1:9000:Q210Q2421100::3:1:" But we are able to state the": " "I$;" GREATEST POSSIBLE ERROR ",V" true length (which we can only":X[" approximate) and measured length":`" (the length to the nearest unit,":e" half-unit, quarter-unit, etc.)"jZR1:9000:Q210Q2421055k:l:3:1o" We can not compute the exa inches WHOLE inches 1/2-inch":R8"2 inches HALF-inches 1/4-inch":|="2 inches QUARTER-inches 1/8-inch"BZR1:9000:Q210Q2421000G:L::3:1:" The error of a measurement we":Q" report is the DIFFERENCE between":* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS RT"6"---- -- -------"N@"OF THE MEASUREMENT WAS ";::"1/16TH INCH";ZJ:")."wTI3:800:PRESS 'RETURN'^ZR5170,6810h:r:6:"IF WE READ A REPORTED MEASUREMENT OF"::8:"2 HOURS AND 17 MINUTES,"::"THE SMALLEST UNIT:4:" FOR EXAMPLE, IF WE READ A":\"REPORTED MEASUREMENT OF ";::"9 5/16 INCHES,"d:"THE RULER USED WAS PROBABLY MARKED IN":"16THS OF AN INCH (THAT IS, THE SMALLEST""32)"--------","UNIT OF MEASURE INDICATED BY THE REPOSEE A MEASUREMENT WRITTEN":I"DOWN, DOES IT TELL US WHETHER THE":x"SMALLEST UNIT MARKED ON THE MEASURING":"TOOL WAS WHOLE, 1/2 OR 1/4 INCHES?":"THE ANSWER IS...YES, IT CAN!"I3:800:PRESS 'RETURN'ZR5170,6810:'L, THE ":;P"SMALLER THE SIZE OF THE UNITS MARKED ON"`Z"------- --- -----"d"THE TOOL THE MORE PRECISELY WE CAN READ"n19)"---------"x"THAT TOOL."I3:800:PRESS 'RETURN'ZR5170,6810::11:" WHEN WE R(TI):RANDOMIZEA:12:"WHAT IS YOUR FIRST NAME? ";kZB$"AZ":ZN15:ZL13:RESPONSE LIMITS300:NA$GT$:GET NAME============MAIN PROGRAM============2:"TUTORIAL"<"--------" F" WHEN WE USE A MEASURING TOO ONE SECOND, .1 HOURS, .1 MINUTESWONE CENTIMETER, ONE METER, .1 METER, .01 METERlJ"NO MORE ITEMS"|==========INITIALIZE==========:OK$(6),A1$(4),A2$(3)I16:OK$(I):I04:A1$(I):I03:A2$(I)::VZR38265X23:1:958:CLEAR MESSAGE WINDOW;ZK==========[DATA ITEMSk==========" GREAT!! "," GOOD JOB! "," SUPER!! "" THAT'S IT! "," YOU GOT IT! "," CORRECT!! "#ONE HOUR, ONE MINUTE,R @826B:&DZQ$(13)ZR0BFZQ$"B"(I1I3)ZR1^HZQ$"E"(I2I3)ZR2mJZR2854L23:1:958:CLEAR MESSAGE WINDOWN" REALLY QUIT NOW? (Y/N) ";PZL1:ZB$"YYNN":300QGT$"Y"ī6810RGT$"N"ZR3T816BUFFER/023:1:958:CLEAR MESSAGE WINDOWY223:6:"PRESS TO CONTINUE "e424:126I1I3ĺ" BACK ";8I2I3ĺ" EXIT";:ZQ(16384):ZQ127Ĺ16368,0:ZQ$((16384)):836<:>ZQ(1):SEED RANDOM NUMBER GENERATOGT$,(GT$)1) ZQ$;:3ZQ$(27)565CGT$""565TZK1(GT$)h!" ";(8);(8);p&ZK{+GT$""0:5ZTMR1İ700:370============ PRESS RETURN"============*ZR3,.ZP(16368):CLEAR KEYBOARD )ZQ$(ZB$,ZK1,1)ZF0#ZK8(GT$)ZLZF1>:LZF1480\GT$GT$ZQ$fZQ$;l:ZQ$(13)500GT$""535" ";:::ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(======= ,SUBROUTINE - GET5 .================F 6ZQ(16368)Q ^GT$""W h:h rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565 : ZF1 ZIĞ ZK1(ZB$)2ZQ$(ZB$,ZK,1--"& 15:11:" ORIGINAL VERSION"J 16:9:"(C) COPYRIGHT 1984 BY"w 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." J11500: 1000 *=========RESERVED. *+ +* *I ,************************O .:i d==================== f T I T L E P A G E h==================== x }7:2:"SMALLEST UNIT OF MEASUREMENT-TUTORIAL" 2:"----------------------------------- OF MEASURE MARKED ON"<" -------- ---- -- -------"f"THE CLOCK PROBABLY WAS ONE MINUTE."I3:800:PRESS 'RETURN'ZR5360,6810::6:"IF WE READ A MEASUREMENT OF ";:"23.51 FEET":: "THE SMALLEST UNIT OF MEASURE MARKED ON"/" -------- ---- -- -------"X"THE RULER PROBABLY WAS .01 FOOT":z"(ONE HUNDREDTH OF A FOOT)."I3:800:PRESS 'RETURN'ZR5490,6810&:06860:PRINT QUESTION WINDOW:" 1) 3 HOURS 15 MINUTES":DI04NETURN'(oZR5960,6810 (r:4(|==============H(END OF PROGRAM\(==============(:6:12);"CONGRATULATIONS!!":7:(10)"YOU'VE JUST COMPLETED":::6815((11:4)"SMALLEST UNIT OF MEASURE TUTORIAL":12: )13)"END OF PROGR$"D"6730:NOT ANSWER 'D'L'""TO REPORT YOUR MEASUREMENT CORRECTLY,":s',"THEN, WE WOULD HAVE TO REPORT":'6:11:"167.40 METERS.":'@:'JI3:800:PRESS 'RETURN''TZR16430,5960,6810'^:'h6950:PRAISE'k:(mI3:800:PRESS 'R WAY WOULD ":-&"REQUIRE A REPORT OF":U&:7:"167 METERS 40 CENTIMETERS":[&:~&GT$"B"6680:NOT ANSWER 'B'&"YOUR MEASUREMENT, THEN, COULD ONLY BE":&"REPORTED AS ";::"167 METERS";:& " OR ";::"168 METERS":&:'GT$"E"6560:NOT ANSWER 'E'=%23:21)"SORRY, TRY AGAIN"G%6490M%:p%:3:"FOR A MEASUREMENT OF ";%:"167.4 METERS"::%"YOU ANSWERED ";::A2$((GT$)65)::%:%GT$"A"6640:NOT ANSWER 'A'&"TO REPORT A MEASUREMENT THISESS 'RETURN' $ZR5680,6810&$:G$6860:PRINT QUESTION WINDOWe$(" 3) 167.4 METERS":p$2I03$<11)(I65)". "A2$(I):$F$P11)"E. NONE OF THE ABOVE":$Z7050:GET USER RESPONSE$dGT$"C"6760:CORRECT ANSWER$n:%xGTS. ALTHOUGH 1/4":D#"EQUALS .25, ONE-FOURTH MEANS ONE PART":s#"OUT OF 4 WHILE .25 MEANS 25 PARTS OUT":#"OF 100.)"#:#I3:800:PRESS 'RETURN'#ZR15960,5680,6810:ASK QUESTION AGAIN#:# 6950:PRAISE# :$I3:800:PRNS.":"t:2"~GT$"D"6380:NOT ANSWER 'D'O":14)".25 GALLONS"::""TO REPORT A MEASUREMENT THIS WAY WOULD":""REQUIRE A TOOL MARKED IN ";::".01 GALLONS.":":"(1/4 DOES NOT MEAN THE SAME AS .25 IN":#"REPORTING MEASUREMENT:+!."THEN, WE WOULD HAVE TO REPORT":J!8:9:"3 GALLONS 1 CUP.":P!B:s!LGT$"C"6270:NOT ANSWER 'C'!V:14)"1/2 GALLON."::!`"OUR MEASUREMENT, THEN, COULD ONLY BE":!j"REPORTED AS ";::"3 GALLONS";:"o" OR ";::"3 1/2 GALLOGALLON."::= "TO REPORT THIS MEASUREMENT, WE NEED A":j "MEASURE MARKED IN ";::"1/4 GALLONS";| :" (1/4,": "2/4 OR 1/2, 3/4)." : GT$"B"6220:NOT ANSWER 'B' 14)"ONE CUP."::!$"TO REPORT OUR MEASUREMENT CORRECTLY,"25 GALLON":011)"E. NONE OF THE ABOVE":M7050:GET USER RESPONSES:uGT$"E"6410:CORRECT ANSWER:3:"FOR A MEASUREMENT OF ";:"3 1/4 GALLONS"::"YOU ANSWERED ";::GT$"A"6160:NOT ANSWER 'A' 9)"ONE SK QUESTION AGAIN*:+46950:PRAISE17:N9I3:800:PRESS 'RETURN'`;ZR5590,6810f>:H6860:PRINT QUESTION WINDOWR" 2) 3 1/4 GALLONS":\11)"A. ONE GALLON":f11)"B. ONE CUP":p11)"C. 1/2 GALLON":z11)"D. .:", THEN WE SHOULD":,"REPORT ";:GGT$"A"ĺ"3 HOURS.":wGT$"C"ĺ"3 HOURS 15 MINUTES 0 SECONDS.":GT$"D"ĺ"3.2 HOURS OR 3.3 HOURS.": GT$"E"ĺ"3 HOURS 15.0 MINUTES.":I3:800:PRESS 'RETURN' ZR15680,5590,6810:A:A1$;::".":@"TO REPORT THIS MEASUREMENT, WE NEED A":p"CLOCK FACE DIVIDED, AT THE LEAST, INTO":"MINUTES."I3:800:PRESS 'RETURN'ZR5590,6810::13:10:"IF THE SMALLEST UNIT OF":"MEASURE WERE ";::A1$;10)(I65)". "A1$(I): XCbZB$"AE":ZL1:RESPONSE LIMITS`l7050:GET USER RESPONSEfv:GT$"B"5940:NEXT QUESTION:5:"FOR A MEASUREMENT OF ";:"3 HOURS 15 MINUTES"::"YOU ANSWERED";A1$A1$((GT$)65)" ";:AM":21)19999/)=====================J)PRINT QUESTION WINDOWe)=====================):3:"WHAT IS THE MOST-LIKELY SMALLEST")25)"--------")"UNIT OF MEASURE IN THE FOLLOWING")"---- -- -------")"MEASUREMENT?":**========*&'PRAISE'+*0========>*DM1((1)6)1W*X21:21::OK$(M1):]*w*====================*LINE UP,GET RESPONSE*====================*7:14*300:GET USER RESPONSE*NRETURN TO MENU OR END+ N:(4)"RUN MENU "C" ";IY==========iDATA ITEMSy==========UNIT NAMES" HOURS2301/ MINUTES5902/ SECONDS5903/"" YARDS2306/ FEET0205/ INCHES1104/" " GALLONS2307/ QUARTS0308/ PI;$9ZF0ĺ", OR ...GO BACK";M>ZP(16368): CLEAR KEYBOARD BUFFERVCZR3HZQ(16384):ZQ127ZQ$(ZQ128):870\840a:fZQ$(13)ZR0pZF1ZQ$"B"ZR1zZQ$"E"ZR2ZR384023:1:" TB(37):STORE CURSOR LOCATIONF5:33::(TI);::UPDATE CLOCKpTB1:TA1::RESTORE CURSOR LOCATIONv============ PRESS RETURN"============%*23:1:"PRESS ...TO CONTINUE, "4" ...TO EXIT"  ZQ$;:%ZQ$(27)5655GT$""565FZK1(GT$)Z!" ";(8);(8);b&ZKm+GT$""s0:5ZTMR1İ700:370==================SUBROUTINE - TIMER==================TITI.1(TI)TI760!TA(36):K1,1)ZF0ZK*(GT$)ZLZF10:>ZF1480NGT$GT$ZQ$XZQ$;^:rZQ$(13)500GT$""535" ";:::ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1)UBROUTINE - GET' .================8 6ZQ(16368)C ^GT$""I h:Z rZQ(16384) |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565 : ZF1 ZIĞ ZK1(ZB$)2 ZQ$(ZB$,ZK,1)ZQ$(ZB$,Z1:" ORIGINAL VERSION"< 16:9:"(C) COPYRIGHT 1984 BY"i 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." J11500: "4000 *================ ,SRESERVED. *+ +* *I ,************************O .:i d==================== f T I T L E P A G E h==================== x }7:6:"SMALLEST UNIT OF MEASURE-DRILL" 6:"------------------------------" 15:1* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* SMALLEST UNIT DRILL *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * " +*NNTS0109/")" TONS2313/ POUNDS9914/"<" LITERS2312/M" CUPS2310/`" METERS2311/f:POSSIBLE COMBINATIONS7, 7, 7, 3, 1, 1, 1:DENOMINATOR TABLE1, 10, 100, 1000, 4, 8, 16:PROBABILITY TABLE50, 12, 8, 5, 13, 7, 5026, 16, 12, 9, 17, 11, 9M0, 25, 16, 8, 25, 16, 8S:`PRAISESGREAT, GOOD JOB, RIGHT ON, THAT'S IT, YOU GOT IT, SUPERJ"NO MORE ITEMS"==========INITIALIZE==========:,UN$(6),PC(6),PUNT(AMOUNT))DT(DN):ROUND NUMERATORV"8AMOUNT(AMOUNT):ROUND AMOUNT TO INTEGER\"B:n"LPS$U$(I)PS$"VFLAG0DN57550"`:"jPS$" "(NUMER)"/"(DT(DN))PS$"t:"~PS$" "(AMOUNT)PS$:ADD TO PROBLEM STRING#FLAG0:TURN 'PRIMARYHOLDING VARIABLE@!M1M2DNDN1:7410:CHECK NEXT CATEGORYF!:~! AMOUNT((1)UL(I)DT(DN)1):CHOOSE RANDOM AMOUNT!(AMOUNT10(AMOUNT10))DN47435!AMOUNTAMOUNTDT(DN)!DN57500:CHECK FOR FRACTION OR DECIMAL!$:(".NUMER(AMOAMOUNT((1)UL(I)1):CHOOSE RANDOM INTEGER FOR UNITC 7500I :d UAUA(I):STORE ANSWER M1((1)99):CHOOSE RANDOM RANGE NUMBER DN1:INITIALIZE DENOMINATOR SEARCH MARKER M20:HOLDING VARIABLE :!M2M2PT(LEVEL,DN):UPDATE 4)7220H:8RCOUNTERCOUNTER1:DECREMENT COUNTERg\FLAG1:INITIALIZE 'PRIMARY UNITS' FLAG ONfPS$"":CLEAR PROBLEM STRINGp:zICOUNTER01:REPEAT FOR NUMBER OF UNITS2IRCU$(I)"":7570RCRC2IFLAG17360:9 4,2)):STORE UNIT LIMITQUA(COUNTER)((UN$(UN),I2,2)):STORE UNIT ANS. #r M1I1:UPDATE STRING MARKERCOUNTERCOUNTER1:INCREMENT COUNTER I*:4RC((1)PC(UN)1):CHOOSE ACCEPTABLE RANDOM COMBINATION >LEVEL2(RC1RC2RCUNTER TO ZEROBM11:INITIALIZE STRING POSITION MARKER TO ONEH:I1(UN$(UN)):REPEAT FOR LENGTH OF UNIT NAME STRING(UN$(UN),I,1)"/"7200:SEARCH FOR SLASHU$(COUNTER)(UN$(UN),M1,IM14):STORE UNITUL(COUNTER)((UN$(UN),I0:"THEN A NUMBER: ";S5:25::"TIME: ":: CLEAR TIMER WINDOW:7:3:" !":ZTMR1:TURN TIMER ONUN((1)L(LEVEL)):CHOOSE RANDOM UNIT NAME ACCORDING TO LEVELCOUNTER0:INITIALIZE COX800:PRESS 'RETURN',bZR5130,87602l:UvSC0:INITIALIZE SCORE TO ZERO}TT0:INITIALIZE TOTAL TIME TO ZERO8:6PR1NP19:1:"TYPE A LETTER "" ":20 2. SECONDS 10. CUPS"EJ"D. .001 4. INCHES 11. METERS"tT"E. 1/4 5. FEET 12. LITERS"^"F. 1/8 6. YARDS 13. TONS"h"G. 1/16 7. GALLONS 14. POUNDS"::r"TYPE A LETTER"|"THEN A NUMBER: ";-------------------+-----------+"Q2:"! !"2:"+---------------------------------+":"10:1,"A. 1 1. HOURS 8. QUARTS"6"B. .1 2. MINUTES 9. PINTS"@"C. .01 3ZF0:800:PRESS 'RETURN'1ZR5130,87607:=l1:"SELECT THE SMALLEST UNITS OF MEASURE""USED IN MAKING THIS MEASUREMENT:"4:2::"+---------------------+-----------+"2:"! !TIME: !"#2:"+--RESPONSE2FNP(GT$):STORE NUMBER OF PROBLEMSWPNP1NP255130:CHECK RESPONSE]Z:gd:14n"HOW DIFFICULT? (1=EASY, 3=HARD): ";xZL1:ZB$"13":RESPONSE LIMITS300:GET USER RESPONSELEVEL(GT$)1:STORE DIFFICULTY LEVEL:;-ZB$"AZ":ZN15:ZL13:RESPONSE LIMITSH300:NA$GT$:GET NAMEZ============lMAIN PROGRAM~============ :"DRILL""-----":10:"HOW MANY PROBLEMS TO DO? (1-25): ";2ZL2:ZB$"09": RESPONSE LIMITS <300:GET USER T(2,7),DT(7),UA(2),UL(2),U$(2),L(2),OK$(6)2:HI06:UN$(I):I]I06:PC(I):IrI17:DT(I):I}I02J17:PT(I,J):JII16:OK$(I):IL(0)6:L(1)6:L(2)3ZTMR0:TIMER OFF:12:"WHAT IS YOUR NAME ? " UNITS' FLAG OFF#I#:5#TI0:CLEAR TIMERS#FLAG0:WRONG ANSWER FLAGu#:5:4:"MEASUREMENT #"PR"."#7:3:PS$:::PRINT PROBLEM STRING#(20:"THEN A NUMBER: ";:16#2ZL3:ZB$"AG09":RESPONSE LIMITS$<300:GET USER RESPONSE $F:$PM1((GT$,2))-$ZGT$(GT$,1)b$dGT$"A"GT$"G"M10M114Ė16:" ":20:7720h$n:$xDN(GT$)64UAM17970:WRONG ANSWER$SCSC1:INCREMENT SCORE$========$'PRAISE'$========%20:22:" "* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* M I C R O M E T E R *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * ."==============.-8":15:"END OF DRILL."4-":O-NRETURN TO MENU OR ENDe- N:(4)"RUN MENU"k-*N ":;,z!" YOUR SCORE WITH ANOTHER ":T,!6)" GAME? (Y/N) ";z,!ZB$"NNYY":ZL1:SET INPUT LIMITS,!300:GET USER RESPONSE,!GT$"N"8740:END,!GT$"Y"5310:ANOTHER GAME,!8600,"==============,$"END OF PROGRAM-TIME":+*!:-+4!FLAG108560:PLAY AGAIN`+>!18:1:" RECORD THE TIME AND SCORE FOR THIS"+H!:"GAME ON YOUR STUDENT RECORD SHEET, THEN"+R!ZF1:800:PRESS 'RETURN'+\!ZR28740:END OF PROGRAM+f!: ,p!18:1:" DO YOU WISH TO TRY TO BEAT FLAG108500:NO HIGH SCOREG* SCHSC8440:NOT A NEW HIGH SCOREe* HSCSC:UPDATE HIGH SCORE* :10:8:"A NEW":12:"HIGH SCORE !!":* :* T1BTIME8500:NOT A NEW BEST TIME*!BTIMET1:UPDATE BEST TIME + !:13:8:"A NEW":12:"BEST ! !SCORE: !";Q)N "+-----------------+ +-----------------+"v)l 5:15:T1:PRINT TIME THIS GAME)v 7:9:SC:PRINT SCORE THIS GAME){ GAME08500) GAME1HSCSC:BTIMET1:8500) :) 5:36:BTIME;) 7:30:HSC;) :* :,( ::"THIS GAME:"21)"BEST SO FAR:"]( "+-----------------+ +-----------------+";( "!AVG. TIME ! !AVG. TIME !";(& "!PER PROBLEM: ! !PER PROBLEM: !";(: "! ! ! !";!)D "!SCORE: N'*'ZR2PRPR1:FLAG10:8140:EXIT7'TTTTTIM'PR:NEXT PROBLEMS':c'GAMEGAME1n'=====y'RECAP'====='ZTMR0:TURN TIMER OFF'SC(100SC(PR1)):CALCULATE PERCENT CORRECT'T1(TT(PR1)):CALCULATE AVERAGE TIME(,&616:" SORRY TRY AGAIN.":ZR4:20A&@7720:TRY AGAINZ&J===================s&TGIVE CORRECT ANSWER&^===================&h19:18:" THE CORRECT "&r20:20:" ANSWER IS: "(DN64);&|UA&:'ZF1:800:PRESS 'RETUR%M1((1)6)13%20:22::OK$(M1);"!!":C%I12500:j%20:19:" "%8080:NEXT PROBLEM%============%WRONG ANSWER%============%"FLAG8040:GIVE CORRECT ANSWER&,FLAG1:SIGNAL 1ST TIME THROUGHRESERVED. *+ +* *I ,************************O .:i d==================== f T I T L E P A G E h==================== x }7:11:"M I C R O M E T E R" 11:"-------------------" 15:11:" ORIGINAL VERSION"( 16:9:"(C) COPYRIGHT 1984 BY"U 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 23:10:835 "3000 *================ ,SUBROUTINE - GET .RKS+\BMSE2150:IF AT EDGE OF SLEEVERaTS5:BM:"!";:BARREL SCALE MARKfTS6:BM((FS)):FS;:NUMBER ON BARRELpVL:SE3:NE;:NUMBER "ENGRAVED" ON SLEEVEz ========== INITIALIZE ==========  SB$" ! ! !  J((J5(J5))5.05):J MOD 5;*BD$(SB$,J1,20)T4FS0BMSE1521309ERASE BARREL DIVISION MARKS TO THE LEFT OF ZERO ON BARREL:>BD$(ER$,BM(SE19))(BD$,SEBM1)HDISPLAY MICROMETER:RTS4:SE19:(BD$,19);:BARREL DIV MAS5)@VERTICAL LINE NUMBER OF NUMBER "ENGRAVED" ON SLEEVE:^VLTS((((LS2)2),1))NUMBER "ENGRAVED" ON SLEEVE:NE((LS2)5)5NE((NE25(NE25))25.05):NE MOD 25 STRING WHICH STORES BARREL DIVISION MARKS:J(LS5)%===============2FS FIRST DIGIT SETTINGRLS LAST TWO DIGIT SETTING~SB$ SOURCE BARREL DIVISION MARK STRINGSE TAB VALUE OF SLEEVE EDGETS TAB VALUE OF TOP OF SLEEVE:HORIZONTAL TAB OF BARREL SCALE MARK:BMSE(LATHYPR$(J);6RANDOMLY ADD NAME 1/5 OF TIMEL((1)5)01237V",";kTS6:SE7:N$;u"!";1295SY$(J);".";:J1400:J:PAUSE=============== COMPUTE TABS,DISPLAY VALUES,DISPLAY SETTING;:HORIZONTAL LINES'hLV:LH:KK$;RoKK$(KV$,(LVUV1)3):VERTICAL LINESftUV1:LH:KK$;zvUV1:RH:KK$;xz===============PRAISE/SYMPATHY===============J((1)5)1TS5:SE7:PS01250:SYMP===============J51FH$:;J52(J52)1018KV:H:FS$;U1022kV:H:(ER$,39);J1LL:J:PAUSEJ5J=================LDRAW WINDOW FRAMEN=================[`KK$(KH$,RHLH1)eUV:LH:KK$23:1:958:CLEAR MESSAGE WINDOWM" REALLY QUIT NOW? (Y/N) ";fZL1:ZB$"YYNN":300xGT$"N"ZR3ZR382022:1:" "23:1:958: CLEAR MESSAGE WINDOW==================SUBROUTINE - FLASH===...TO CONTINUE";%D24:3DFI1I3ĺ"...GO BACK";pHZQ(16384):ZQ127ZQ$(ZQ128):870RZTMR1İ700\840a:fZQ$(13)ZR0pZQ$"B"(I1I3)ZR1zZQ$"E"(I2I3)ZR2ZR295022:1:" "'E CURSOR LOCATION+============= PRESS RETURNO"============X*ZR34ZP(16368):CLEAR KEYBOARD BUFFER923:1:958:CLEAR MESSAGE WINDOW;: VTAB 22: HTAB 4: PRINT "PRESS:"@23:3BI2I3ĺ"...TO EXIT ";C"700:UPDATE TIMER662(C$(C).F==================^SUBROUTINE - TIMERv==================T1T1.3(T1)T1760TA(36):TB(37):STORE CURSOR LOCATION3:37(((T1))):(T1);:UPDATETB1:TA1::RESTORZQ$(27)565"GT$""5653ZK1(GT$)G!" ";(8);(8);O&ZKZ+GT$""`0:q5ZTMR1İ700z:370=================GET ONE CHARACTER=================16368,0:CLEAR BUFFERC(16384)128C0667(GT$)ZLZF1:+ZF1480;GT$GT$ZQ$EZQ$;K:_ZQ$(13)500oGT$""535}" ";:::ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1) ZQ$;:================% 6ZQ(16368)0 ^GT$""6 h:G rZQ(16384)v |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565 : ZF1 ZIĞ ZK1(ZB$)2 ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0ZK ! "9 ER$"":J163:ER$ER$" ":J:ERASE STRINGl KH$(ER$,40):HORIZONTAL AND VERTICAL STRINGS J123:KV$KV$" "(10)(8):J J15:PR$(J),SY$(J):J GOOD,TOO BAD,OK,MISSED,CORRECT,OOPS RIGHT,SHUCKS,GREAT,SORRY( SE25:HORIZONTAL TAB LOCATION OF SLEEVE EDGEZ TS11:VERTICAL TAB LOCATION OF TOP OF SLEEVEp G0:GAME COUNTER U$"-----------------":UNDERLINE ============== GET FIRST NAME& ==============0 : 12:10D 10)"PLEASE TYPE YOUR"SLEEVE READING LOCATIONI*TS5:SE19:(ER$,19);:ERASE BARREL MARKy*TS6:SE20:(ER$,20);:ERASE # ON BARREL*FS04300:1ST DIGIT SETTING*BD$" "(BD$,19):4310:SHIFT RIGHT, BLANK TO FRONT+BD$(BD$,1)(BD$,19):SHIFT RIGHT, LASYVL:SE3:" ";:ERASE NUMBER "ENGRAVED" ON SLEEVEM)^LS0LS99:4210Y)hLSLS1_)m:y)rVLTSVLVL2:4260)|VLTS8:SET TO BOTTOM OF SLEEVE)NE0NE20:4260:SET NEW # FOR SLEEVE DISPLAY)NENE5):*VLTS24336:IF ABOVE 4600 (:/(22:1:"PRESS:":PRINT PROMPTY(" ...<=SMALLER LARGER=>"(" .....TO ACCEPT ANSWER";(":(JC$(8)4350:NOT TO MOVE SMALLER(TFS0LS04337:SMALLEST POSSIBLE SETTING(VT1T1.6:700:ADJUST TIMER7)":PRINT PROMPT;'" ...<=SMALLER LARGER=>"d'" .....TO ACCEPT ANSWER";'650:GET ONE CHARACTER':'M124100'TS:SE7:"YOUR";'TS1:SE7:"READING?";'TS3:SE7'ZL7:ZB$"09..":300:R(GT$)( DISPLAY SETTING&:T&IR0:NUMBER OF INCORRECT RESPONSES FOR CURRENT PROBLEMx&9:1:WP;") ";:WHICH PROBLEM&ZTMR1:TURN ON TIMER&M114050&TS2:SE7:"SET TO:";&TS3:SE7:ME$;" ";: ANSWER MEASUREMENT'22:1:"PRESS:100):LAST 2 DIGIT SETTING=%oJ$(LS):(J$)1J$"0"J$a%s(("."(FS)J$)ME).063930%x2000:COMPUTE TABS AND DISPLAY VALUES, DISPLAY SETTING%4000%:%FSFD:LSLD:SETTING EQUAL TO ANSWER&2000:COMPUTE TABS AND DISPLAY VALUES,M21LD((1)9010):3910:HARD>$<LD((1)4)25:EASYD$A:d$FJ$(LD):(J$)1J$"0"J$$JME("."(FD)J$):ANSWER MEASUREMENT$KME$((ME)"00",4)$PM113980$ZFS((1)3)1FD:1ST DIGIT SETTING$dFS0FS93930%nLS((1)(KV$,113)?#TS4:SE:"_";:SLEEVE READING LOCATION MARKE#z#3:17((NP)):NP;:NUMBER OF PROBLEMS IN GAME# 3:36:"0";:T10:TIME#==========#GAME IS ON#==========#WP1NP#(FD((1)10):FIRST DIGIT IN ANSWER$$2INDOW FRAMES$"LH21:RH39:11008"TS:SE1:"__"C"J14R"SE1)"_"b"SE1)"__"i"Jo""TS2:SE:(KH$,15):DISPLAY MICROMETER FRAME"TS:SE19:(KH$,19)"TS8:SE19:(KH$,19)"TS10:SE:(KH$,15) #TS1:SE:RAME!v===============3!~GG1:GAME COUNTER_!NC0:NUMBER OF CORRECT ANSWERS IN GAMEe!x!:" PROBLEMS"!" THIS GAME:"22)"TIME:"!:" PROBLEMS"22)"AVG. TIME PER"!" CORRECT:"22)"PROBLEM:""UV1:LV7:LH1:RH19:1100:DRAW W============4 SM10:MAXIMUM NUMBER OF PROBLEMS: $c .11:"HOW MANY PROBLEMS DO YOU WISH" 8:"IN THIS GAME? (1-";SM;") "; BZL2:ZB$"09":300 LNP(GT$) VNP1NPSM3620 `I3:800:ZR3600,5610 r===============!tDRAW GAME F! 12)"(BARREL MARKS ONLY)"> :9)"2) HARD PROBLEMS"c 12)"(BARREL AND SLEEVE MARKS)" ::12)"YOUR CHOICE (1-2): "; ZL1:ZB$"12":300:M2(GT$)I3:800:ZR3500,5610===================GET NO. OF PROBLEMS =======* 13)"MICROMETER.",4 :10)"3) QUIT."P> ::13)"YOUR CHOICE (1-3): ";qH ZL1:ZB$"13":300:M1(GT$)R M135610:END\ I3:800:ZR3300,5610 ===== MENU2 =====  6:12:"WOULD YOU LIKE:" :9)"1) EASY PROBLEMS"X :10)"FIRST NAME: ";2b ZL7:ZB$"AZ":300=l N$GT$Xv I3:800:ZR3100,5610c =====n MENU1y =====  3:13:"M E N U" 13)(U$,7) :10)"1) PRACTICE SETTING" 13)"MICROMETER." :10)"2) PRACTICE READING"T CHAR FRONT+:I+BMSEBMBM1:4331:BARREL MARK NOT AT SLEEVE+BMSE19:SET TAB VALUE OF BARREL SCALE MARK TO LEFT OF BARREL+FSFS1:FIRST DIGIT SETTING+:+TS4:SE19:(BD$,19);:BARREL DIV MARKS+BMSE4334,TS5:BM:"!";4,TS6:BM((FS)):FS;:1ST DIG. SETTING:,:j,VL:SE3:NE;:NUMBER "ENGRAVED" ON SLEEVEt,4540z,:,C$(21)4540:NOT TO MOVE LARGER,T1T1.6:700:ADJUST TIMER,FS10LS04540:IF AT LARGEST SETTING&-VL:SE3:" ":VTS3:SE7:(ER$,7);:ERASE RESPONSE WDOW6:W:a:XTS5:SE7:(ER$,8);:ERASE SYMPATHY|:ZTS6:SE7:(ER$,8);:\::`M12ĭGT$ME$IR34050:eM11ĭRMEIR34050:jWP:=============:RECAP OF GAME:=============;GAIN.";(9T1T13:700:ADJUST TIMERJ96:15((CP)):" ";CP;"%";9CT(T1WP10)10:CURRENT AVERAGE TIME PER PROBLEM96:30:" ";9 6:37((CT)):CT;9$M1149409.650:GET ONE CHARACTER9B4952:LI2:800:ZR256100ER$,8);:ERASE PRAISE WINDOW98TS6:SE7:(ER$,8);T8TS7:SE7:(ER$,8);8TS3:SE7:(ER$,8);:ERASE RESPONSE WDOW8TS:SE7:(ER$,8);:ERASE PROMPT8TS1:SE7:(ER$,8);849608:8TS5:SE7:"TRY"; 9TS6:SE7:"A4860$7TS5:SE7:"ANSWER ";<7TS6:SE7:"IS ";F7ME$;L7:d7I2:800:ZR256107TS4:SE19:(ER$,19);:ERASE BARREL:7TS5:SE19:(ER$,19);7TS6:SE20:(ER$,20);7VL:SE3:" ";: ERASE SLEEVE8TS5:SE7:(:(ER$,19);:ERASE BARREL::6TS5:SE19:(ER$,19);W6TS6:SE20:(ER$,20);z6VL:SE3:" ";:ERASE SLEEVE6FSFD:LSLD:2000:DISPLAY CORRECT SETTING6TS5:SE7:"THIS IS";6TS6:SE7:"CORRECT";6TS7:SE7:"SETTING";7(ER$,34);5:*5PS0:1200:SYMPATHYW5CP(NCWP100):CURRENT PERCENT CORRECTy56:15((CP)):" ";CP;"%";5CT(T1WP10)10:CURRENT AVERAGE TIME PER PROBLEM56:30:" ";56:37((CT)):CT;5M1148406TS4:SE19:(ER$,8);>4|TS3:SE7:(ER$,7);:ERASE RESPONSE WINDWH44960N4:4IRIR1:INCREMENT INCORRECT RESPONSE FOR PROBLEM4IR348904ZTMR0:TURN OFF TIMER4M114790421:1:(ER$,24);422:1:(ER$,26)4(ER$,34) 5);:ERASE BARREL:03\TS5:SE19:(ER$,19);M3fTS6:SE20:(ER$,20);p3kVL:SE3:" ";:ERASE SLEEVE3pTS5:SE7:(ER$,8);:ERASE PRAISE WINDOW3qTS6:SE7:(ER$,8);3uM1247503zTS:SE7:(ER$,8);:ERASE PROMPT 4{TS1:SE71:1200:PRINT PRAISEE2 CP(NCWP100):CURRENT PERCENT CORRECTg2%6:15((CP)):" ";CP;"%";2*CT(T1WP10)10:CURRENT AVERAGE TIME PER PROBLEM2/6:30:" ";246:37((CT)):CT;2>I2:800:ZR256103RTS4:SE19:(ER$,19ESPONSE NOT CORRECTD1M11ĭRME4760:IF RESPONSE NOT CORRECT_1ZTMR0:TURN TIMER OFF1 NCNC1:NUMBER PROBLEMS CORRECT1M114631121:1:(ER$,24);:ERASE PROMPT WINDOW122:1:(ER$,26)1(ER$,34)1(ER$,34);1:2PSTS5:BM:"!";?0TS6:BM((FS)):FS;:1ST DIG. SETTINGE0:u0VL:SE3:NE;:NUMBER "ENGRAVED" ON SLEEVE{0:0C$(13)İ650:41700J$(LS):(J$)1J$"0"J$0R("."(FS)J$):RESPONSE MEASURE0:1M12ĭGT$ME$4760:IF R194465/lBD$BD$" "$/o4470Y/qBD$BD$"!":BARREL DIVISION MARK AT SLEEVE EDGE_/t:|/vBMSE19BMBM1:4492/BMSE:SET BARREL SCALE MARK TO SLEEVE EDGE/FSFS1/:/TS4:SE19:(BD$,19);:BARREL DIV MARKS/BMSE44950:7.DVLTS44500:NOT AT SLEEVE READING LOCATIONc.ITS5:SE19:(ER$,19);:ERASE BARREL:.JTS6:SE20:(ER$,20);.NFS0BD$(BD$,19)(BD$,1):4470.XBD$(BD$,19).]ZERO ON BARREL, SHIFTING LEFT: /bBMSE4BMSE9BMSE14BMSE;:ERASE NUMBER "ENGRAVED" ON SLEEVE[-LS99LS0:4380:ROTATE SLEEVE SETTING MEASUREg-LSLS1m-:-VLTS8VLVL2:4420:NOT AT BOTTOM SLEEVE-&VLTS:SET TO TOP OF SLEEVE-0NE20NE0:4420-:NENE5:NUMBER "ENGRAVED" ON SLEEVE.?;1:2:"THIS GAME:";6;UV2:LV8:LH1:RH19f;1100:DRAW WINDOW FRAME FOR CURRENT SCORES;3:2:"AVG TIME PER";;4:2:"PROBLEM:";;4:18((CT)):CT;;:;6:2:"PERCENT PROBLEMS";;7:2:"CORRECT:";<7:18((CP)):CP; <:'< G1BTCT:BPCP:5470C<1:22:"BEST-SO-FAR:";]<UV2:LV8:LH21:RH39<1100:DRAW WINDOW FRAME FOR BEST SCORES<(3:22:"AVG TIME PER";<24:22:"PROBLEM:";<<4:38((BT)):BT;23:2:" ...TO CONTINUE,"C24:3:" ...GO BACK ...TO EXIT"ZQ$; : ZQ$(13)5000GT$""535>" ";::D:WZQ$(8)535f" ";(8);x(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1) ZQ$;:ZQ$(27)565GT$""565ZK1(GT$)!" ";(8)16384)7|ZQ127ZQ(16368):ZQ$((16384)):430L:" ";::(8);XRF(1)a565g:pZF1zZIĞZK1(ZB$)2ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0ZK(GT$)ZLZF1:ZF1480GT$GT$ZQ$:"REVISED VERSION (C) COPYRIGHT 1987"Y 21:4:" BY COMPUTER USING EDUCATORS, INC."i J11500: "1000:SKIP OVER STANDARD SUBROUTINES *================ ,SUBROUTINE - GET .================ 6ZQ(16368) ^GT$"" h:rZQ( E P A G E' h====================- xM }7:12:"COUNTING CALORIES"j 12:"-----------------" T$:9:20(T$)2:T$ 15:11:" ORIGINAL VERSION" 16:9:"(C) COPYRIGHT 1984 BY" 17:6:"SCHOOL & HOME COURSEWARE, INC."( 20:4RESERVED. *+ +* *I ,************************O .:l /======================= 0FOOD CATEGORY OF DISK 1PUT CATEGORY IN LINE 52 2======================= 4GT$"DESSERTS" <: d==================== f T I T L* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* COUNTING CALORIES *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * GT$"Y"3700!?GT$"N"ī3300'?:8?22:1:958W?23:14:"END OF PROGRAM";]?':x?NRETURN TO MENU OR END? N:(4)"RUN MENU"?*N!":1000>:>^17:5>>h"WRITE THESE RESULTS ON YOUR"c>r5)"'MICROMETER' RECORD SHEET."t>20:1:958>22:7:"WOULD YOU LIKE TO TRY";>23:7:"FOR A BETTER SCORE IN";>24:7:"ANOTHER GAME (Y/N) ? ";>ZB$"YYNN":ZL1:300?7:22:"CORRECT:";.=d7:38((BP)):BP;4=n:E=xCTBT5290O=BTCTh=V13:H1:FH11:LL20=FS$"A NEW, LOWER AVERAGE TIME PER PROBLEM!!":1000=:=CPBP5470=BPCP=V15:H1:FH11:LL20 >FS$"A NEW, BETTER PERCENT CORRECT!;/HZQ(16384):ZQ127ZQ$(ZQ128):8708\840>a:RfZQ$(13)ZR0lpZQ$"B"ZQ$"b"ZR1zZQ$"D"ZQ$"d"ZR2ZQ$"E"ZQ$"e"ZR3ZR4840====================INITIALIZE/MAIN LOOP====================&M25:MAX NUMBER OF INGREDIENTSdR$(M),R(M),U$(M),C(M):RECIPE INGRED,AMT,UNITS,CALS/UNITjG:LFIN0:'FINISHED' FLAGFI5000NI0:11:"ENTER RECIPE NAME: ";8);(ZL20:ZB$" Z":300:RN$GT$:CALL 'GET'sPRT0)x2:ZB$"09EE":300:NS(GT$)/ GT$"E"5000\ ::"YOUR RECIPE FOR "NS" SERVINGS OF " :" "RN$" CONTAINS "(SUMNS.5): :" CALORIES PER SERVING." :"=======================================" : OM$"N"3740!:(4);"PR#";PNUMBER? (E=EXIT) ";(8);(8);E$ZL2:ZB$"09EE":300:IN(GT$)W.GT$"E"5000l8INNIIN03610~=INNI1ZZ0BRN0:RW1:4000Q:VSUM0:I1NI:SUMSUMR(I)C(I):Io:t20:1:958:"NUMBER OF SERVINGS? (E=EXIT) "; ~ZL"Z 20);U$(J);25);(R$(J),15))\ J/u :9z CINJ? :p 20:1:"CORRECTIONS NEEDED? (Y/N/E=EXIT) "; ZL1:ZB$"YYNNEE":300 GT$"E"5000 CN0 GT$"Y"CN1:RF1:ZZ1 3350 :CN3670"20:1:"WHICH INGREDIENT I11NIMICI11:3370:SET REVIEW WINDOW RANGEB% MINNI:RF1L& 5:1b* 5:1:958:5:1hC :nD |H JCIMINR (BL$,6((J)));J;". ";S R(J)1ĺ" 0";:SP7:3415T R(J)10ĺ" ";:SP8:3415U SP9W R(J);(BL$,SP((R(J))));20(RN$)2:RN$:CENTER RECIPE NAME- 3 f :"IN #";::" ";::"QUANTITY ";::" "; :"UNIT";::" ";::"INGREDIENT NAME": : CIN1:CURRENT INGREDIENT NUMBER RF0:'REVIEW FINISHED' FLAG = FALSE : RF36001 C)" ZQ(16384):ZQ1412525C ZR1:SET SELECTION = ACKN RW=-1T# :j( ZR2ZR31900{ INNINIIN : FI4100 RN1 : RN4500:REVIEW NOT NEEDED~ ============= RECIPE REVIEW =============' :1:' ROUTINE'j ZR0ININ1:?t ZR3FIN1:XITN~ RW0:2600T :e 14:1:958 " THIS IS NOT INCLUDED IN CURRENT LIST OF": " INGREDIENTS. PLEASE CHECK YOUR SPELLING." :" PRESS TO TRY AGAIN." ZQ(16368:ZB$"..09":300:(GT$)1002150RR$(IN)N$:R(IN)(GT$):U$(IN)U$:C(IN)CUX:e:20:1 U$""ĺ" 1 "U$" "N$" = "CU" CALORIES "::2400 " 1 "(N$,(N$)1QF);" = "CU" CALORIES ":QF0:[ : ` 800: ',ACK,ONE,XIT?TA LIST+HN$GT$2110:KEEP SEARCHINGKR20:15:" ";\WU$""Q$""y\U$"#"U$"":Q$"":QF1a:c17:1:" (CHANGE FRACTIONS TO DECIMALS)"f15:1:"HOW MANY "U$Q$" NEEDED: ";kZZINNIĺ"("R(IN)"): ";:ZZ0$zZL6DELETE"2100INNI1900.INNI20904:A IӴI1yR$(I)R$(I1):R(I)R(I1):U$(I)U$(I1):C(I)C(I1) I%:*NINI1:IN0:ZR2:2600/:4:A$:RESET DATA POINTER9Q$"S " >N$,U$,CU:N$"END"2500:INGRED. NOT IN DA:1:"NAME OF INGREDIENT":"#"IN;" ("R$(IN)") : ";:1930_12:1:"INGREDIENT #"IN;:": ";ZL19:ZB$"AZ ":300:RETURNS W/ GT$=INPUT:GT$"D"2040ZR2:SET SELECTION TO DONEININ1:ADJUST INGRED. #2600:GT$"--- .75"!&28)"7/8 -- .875"'*B+1:9:I140:"=";:IHg:ul10:1:958:CLEAR LOWER HALF OF SCREENq22:1:I140:"=";:Iv23:6:"ENTER ";::"D";::" IF DONE AND PRESS ";{INM1NIM:3200::ZZINNIĢ11======3RW1900:REFERENCE WINDOW NOT NEEDEDc:"REFERENCE: 1/8 -- .125"| 25)"1/4 ----- .25"5)"1/3 -- .333 3/8 -- .375"22)"1/2 -------- .5"5)"2/3 -- .667 5/8 -- .625" !25)"3/4 --::"PRINT RECIPE TO PRINTER? (Y/N) ";^ZL1:ZB$"YYNN":300:OM$GT$:ZB$=LAUNDER STRINGOM$"Y"ĺ::"PRINTER IS IN SLOT #";PRT$:PRT(PRT$):IN1RW1CF0@CF4600:CORRECTION-FREE==========GET RECIPE====RT)!" ":31(RN$))(27)(14)RN$:l!" ING. # QUANTITY UNIT INGREDIENT "!" =========================================================="!J1NI:5:J;:16:R(J);:28:U$(J);:39:R$(J):":::" YOUR RECIPE FOR "NS" SERVINGS OF "RN$g"" CONTAINS "(SUMNS.5)" CALORIES PER SERVING.":::(4);"PR# 0""::"DO YOU WISH TO CHANGE THE NUMBER"::" OF SERVINGS OF YOUR RECIPE,"":":" "RN$"? (Y/N/E) ";"ZL1:ZB$"NNYYEE":300#GT$"E" *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* SAMPLING *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * ,CUP,54',1SWEET COND MILK,CUP,1008:,6VANILLA,TSP,8O,@WALNUTS,CUP,651h,JWHEAT FLOUR,CUP,499,TWHIPPED CREAM,OZ,20,^YEAST,OZ,80,hYOGURT,CUP,475,rEND,END,0,NRETURN TO MENU OR END, N:(4)"RUN MENU",*NE CRUST MIX,CRUST,960/+PINEAPPLES,CAN,140K+POWDERED SUGAR,CUP,462^+RAISINS,OZ,87u+RYE FLOUR,CUP,420+SEMI-SWEET CHOC,OZ,130+SKIM MILK,CUP,88+SOUR CREAM,CUP,480+"SUGAR,CUP,770+,SWEET BAKERS CHOC,OZ,140 ,.STRAWBERRIESCT,TSP,9"*nMARGARINE,CUP,1600>*xMASHED BANANAS,CUP,191W*MAYONNAISE,TBSP,100i*MILK,CUP,170*MOLASSES,TBSP,50*ORANGES,,89*PEACHES CANNED,CUP,190*PEANUTBUTTER CHIPS,OZ,150*PEANUTBUTTER,CUP,1680*PECANS,CUP,811+PI CREAM,CUP,838$) HONEY,CUP,1031>)INSTANT COFFEE,TSP,4Q)JELLO,CUP,160j)(KARO SYRUP,CUP,1080)2LEMON EXTRACT,TSP,14)<LEMON FROSTING,CAN,2040)FLEMON PIE FILLING,CAN,1080)PLEMON JUICE,TSP,3)ZLOWFAT MILK,CUP,122 *dMAPLE EXTRA(CRANBERRIES,CUP,512(CREAM CHEESE,OZ,100G(CRISCO,CUP,1760c(DIET MARGARINE,CUP,800w(EGG WHITES,,17(EGG YOLKS,,59(EGGS,,82(EVAP MILK,CUP,348(EVAP SKIM MILK,CUP,192(FLOUR,CUP,400(HALF & HALF,CUP,324)HEAVYERSCOTCH CHIPS,OZ,150/'8CAKE FLOUR,CUP,412D'BCHERRIES,LB,286d'LCHERRY PIE FILLING,CAN,660'VCHOC FUDGE FROSTING,CAN,1920'`CHOC PIE FILLING,CUP,340'jCHOCOLATE CHIPS,OZ,150'tCOCOA,OZ,120'CORN OIL,CUP,880(CORN STARCH,TBSP,35&BAKING POWDER,TSP,56&BANANA EXTRACT,TSP,15V&BANANA PIE FILLING,CAN,660h&BANANAS,,107~&BISQUICK,CUP,480&BLACKBERRIES,CUP,84&BLUEBERRIES,CUP,90&BRANDY EXTRACT,TSP,18&BROWN SUGAR,CUP,821&$BUTTER,CUP,1600'.BUTT%r==================='%uDESSERTSB%zALMOND EXTRACT,TSP,13b%ANGELFLAKE COCONUT,CUP,360|%ANISE EXTRACT,TSP,16%APPLE PIE FILLING,CAN,660%APPLES,,107%APPLESAUCE,CUP,180%APRICOT PIE FILLING,CAN,720&APRICOTS CANNED,CUP,200"YYNN":300"$ZGT$"N"FIN11$dRN0:CF17$:A$3100G$:Q$CF1W$:a$1600g$:q$1200w$:$:13:10:"COUNTING CALORIES"$16:11:"END OF PROGRAM"$20:1$19999$n===================%pDATA ON INGREDIENTS5000#GT$"Y"3700#:(#::J#"DO YOU WISH TO REVIEW THIS"g#:" RECIPE? (Y/N/E) ";#ZL1:ZB$"YYNNEE":300#GT$"E"5000#GT$"Y"4000#7:#<::#F"DO YOU WISH TO STUDY ANOTHER"#K:" RECIPE? (Y/N) ";$PZL1:ZB$* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS ph ";(14);" RAPIDLY ";(9)Q" Press to graph ";(14);" SLOWLY ";(9)_16368,0oQ(16384)Q210Q242İ6102:1100Q211Q24310601020$6102:ERASE TEXT WINDOW.)900.:LFL$"SUM ONLY"OK214QSX4:e #"C30:"---------";)SY$" "A6002:GET 5 SCORESWSX:32:"-----";SX1:28:"SUM ";(14);" "SUM" ";(9);12:27:"MEAN ";(14);" "SUM5" ";(9);P51:8202:6302:GRAPHING.23:1:" Press to gra=======*&::FL$"NOS.":LABEL AXES3(Y28B*K1811R/" ";(K9)Y4Kt>" + + +"C" 0 5 10 15"H6:26,126,147150,147:27,127,147f:pC0:SAMPLE NUMBERSX4SUM0CC1:1:30:"Sampler bars show more occurrences"::" - Shorter bars show fewer occurrences."::" Let's select a sample of any 5 scores""from our population, find their mean":"and graph that mean."9001:PRESS RETURN ======="FRAME 4 $:ZL1:8400,lGT$"1"515:REPEAT FRAME>qGT$"2"616K=======XFRAME 3e=======:::"Graphing data""-------------":" A bar (or frequency) graph shows"::"how often a score occurred in a sample.":R:" - Long"compare to the 5-score sample means?"1?:ZI" 1. It seems the same (and/or)"N" show me more means to compare."PS" 2. It is usually different from"X" the 5-score means."b24:18:"Choice (1-2): "; hZB$"12"68:ZZ:ZZ1600:ZZ:5:1> SY$"":" ";:6002:5 SCORESl" The mean is ";(14);" "SUM5" ";(9)r!:x&+" ";:60020" The mean is ";(14);" "SUM5" ";(9)5::)::"How does the overall mean, ";(14);" "AV" ";(9):",":::" Their ";(14);" MEAN ";(9);:" (";SUM"/100) is ";(14);" "AV" ";(9)i9001:PRESS RETURNv=======FRAME 2=======::"Here are two 5-score samples chosen"3:1:"at random from all scores:"ZZ12:32ZZ:1:8OSE A NUMBER/SUMSUMS(K):ACCUMULATE SUM6K<:\J1100:PRINT 100 NUMBERSkS(J)" ";tJ:z::" The ";(14);" SUM ";(9);:" of these scores is ";(14);" "SUM" ";(9)NO100:AV((SUMNO)10.5)10:ROUND TO TENTHSQurve distribution.";%@9000+J:;==========KPOPULATION[==========:::" Here is a ";(14);" population ";(9);:" of 100 scores":"chosen at random between 10 and 27:"::K1100S(K)((1)17.5)10:CHO of"::"100 scores. You will see that:"7::" - Large samples or a large number of"::" small samplings give means closer"::" to the overall mean."8::" - A bar graph of the means of many"::" 5-score samplings shows a"::" bell-cright 1987"> 21:4:" by Computer Using Educators, Inc."V 9000:PRESS RETURNj S(100),SCR(17)x FL$"NOS" ,============= .SAMPLING DISK 0=============+6:::" This disk compares large and small"::"samplings from a population L E P A G E) h====================1 x:O }7:13:"S A M P L I N G"j 13:"---------------" 15:11:" Original Version" 16:9:"(c) copyright 1984 by" 17:6:"School & Home Courseware, Inc." 20:4:"Revised Version (c) copyRESERVED. *+ +* *I ,************************O .:Z F16384 Z(28672)32(28673)88ĺ:(4);"BLOAD HIRES,A$7000":LOAD HI-RES DRIVER \28672:HOOK UP HIRES ^J18:29302J,7: d==================== f T I T PRINT VALUE :S1:14:"144 5-score sample MEANS "ZV19:"being graphed "~`14:"------------------------"b:eJ127375jK1112o6002:SUM 5 SCOREStSX:J1:SUM5;y6302:GRAPH THE MEAN{SXSX1~K1SXSX12J1:NEXT COLUMN'6102:K2:NEXT PAGE@:m6102:1:14:"If you were asked now to"14:"fold the graph down the"14:"MIDDLE, on which number "14:"would you fold it? ";ZB$"09":ZL2:8400: (AV(GT$>`0 ``f<8 >ff<~f`0 > 0`0 ff>ff>fffff>>>>|vf|fff~fff<<`````f<f66f Xʚhi 6hi76i}:7i;Lɉ H.h ɎH.hɠ_H)<=HH8< <<<&=<&=:e<<;e==(e$>)i>i>?i?hhhL666>>< (&20 *,  0```0**~'$7#Q(16384):Q141ZQ(1):90155$<#16368,0B$A#8:868H$F#c$NRETURN TO MENU OR ENDw$ N(4)"RUN MENU"}$*N)8600:NOT ESCAPE KEY)#z!GT$""8600:#!ZK1(GT$)`#!" ";(8);(8);:ERASE WHOLE LINEh#!ZKs#!GT$""y#!:#!ZTMR1İ700#!8425#(#============#)#PRESS RETURN#,#============#-#16368,0$2#23:8:"PRESS TO CONTINUE"RACTER TO STRING"4!ZQ$;""9!:C">!ZQ$(13)8530:RETURN KEYT"C!GT$""8565`"H!" ";:f"M!:"R!ZQ$(8)8565:NOT DELETE KEY"W!" ";(8);"\!(GT$)08565"a!(GT$)1GT$"""f!(GT$)1GT$(GT$,(GT$)1)"k!ZQ$;"p!:#u!ZQ$(278450:PRINT CURSOR >! " ";(8);:ZS6ZS0:ERASE CURSORH!!8600N!!:j! !ZF1:SET ERROR FLAG ON}!!ZK1(ZB$)2!!ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0!!ZK! !(GT$)ZLZF1!%!:!*!ZF18510"/!GT$GT$ZQ$:CONCATENATE NEW CHA=== GET RESPONSE) ============N ZC(16368):CLEAR INPUT BUFFERY GT$""_ : ZQ(16384):LOOK FOR A CHARACTER ZQ127ZQ$(ZQ128):ZC(16368):8460:FOUND ONE! ZSZS1:FLASHING CURSOR! ZS3ĺ(14);" ";(9);(8);(9);:SCR(Y).55Q$(32):SCR(Y)(SCR(Y))Q$(91)ISCR(Y)146350`Y:(SCR(Y).5)5tQ$" "ĺ(14);Q$;(9); ================== SUBROUTINE - PAUSE ================== K61700P5:K6: : =========MS(R)K+================AERASE RIGHT SIDEW================~Y420:Y:27:" ":Y2124:Y:1:39):Y========GRAPHING========X5Y((SUM5).5)YY9:Y19Y SCR(Y)"END OF PROGRAM..." l19999&o;p===============Pr5 RANDOM SCORESet===============ozSUM0zK15R((1)991.5):RANDOM NUMBER 1-100FL$"SUM ONLY"6028SY$""ĺS(R)" ";:6028SX:34:S(R)SXSX1SUMSU14);" "AV" ";(9);","814:"the actual population"I14:"mean."{21:"Do you wish to see a graph of another ""set of samples (Y/N)? ";0ZB$"YYNN":ZL1:8400:GT$"Y"āJ117:SCR(J)0::802D28672,0F38400N::12:1:))11700.13:20:" Our actual popula-"Z"20:"tion mean was ";(14);AV;(9);","x,20:"which was close to"620:"your choice of a ";20:"'middle'."J1800T:13:14:"Look again. Isn't the"14:"'MIDDLE' closer to ";(~f~~ffffffnnvffff>ff>6f>?@?|`````|"OO<`|f|>fff>||``|fff| ffff<080002f66f<f~~ff>ffffff>|ff|``>&~~`~ > l8fffvlfff<ff~~ff<~0 ~8  80~9qay~