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( +,SCI.NOTATION1B !K /NEW.SUBTRACTIONU.A.DIVISION.DRILLn)A;.ADDITION.DRILL-)A *SIGN.DRILLA.DEC.ESTIMATION %A'%COINS-B CW.MATH' &PRODOS }<!),BASIC.SYSTEM((!  )TITLE.PAK=h !a9 RUNPACKC!`9 'STARTUPE !A" $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 SOFTSWAP MENU .A$(20),RN$(20);49168,0\NP:N1NP:A$(N),RN$(N):Nl(1800:1820}2::V1:255<ND$"COURSEWARE MATH":1700F:23:4:"USE ARROW KEYS AND PRESS ";:P9 ZN1NP:8N:20(A$(N))2:A$(N);:." > ":K 17:" THIS DISK MAY BE FREELY COPIED AND"z 18:" GIVEN AWAY, BUT MAY NOT BE SOLD" 19:" OR INCLUDED AS PART OF ANY " *20:" COMMERCIAL PACKAGE WITHOUT " 421:" WRITTEN PERMISSION FROM CUE, INCDFR Z : , -- TITLE PAGE --C PAUSE3:(SECONDS)Y P1PAUSE700:P_ y ND$"COURSEWARE MATH" 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 `*% d:V8:20(A$(V))2:A$(V);@ nK(16384):K128110l x16368,0::V8:20(A$(V))2:A$(V); K136K139VV1:V0VNP K149K138VV1:VNP1V1 K141100 K141VNP4ĉ:::(4)"RUN"RN$(V) K141VNP4ĴV(NGIJKLMNOPQRS TEACHERS IN "" 1978."N:" CUE HAS OVER 7000 MEMBERS THROUGHOUT"x" THE U.S., CANADA, AND IN SEVERAL "" FOREIGN COUNTRIES."1000:3:15::"ABOUT CUE":5:" THE GOALS OF CUE ARE:":" * TO PROMOTE THE DEVELOPMENT "3R " "=1000H: i -- ABOUT CUE & SOFTSWAP --:3:15::"ABOUT CUE":5:" COMPUTER-USING EDUCATORS, INC., IS A"" NON-PROFIT EDUCATIONAL CALIFORNIA "" CORPORATION FOUNDED BYAND VERIFYING"= " CHANGE COMBINATIONS. "G% 1000* :" ";::"SCIENTIFIC NOTATION:";::" GAME OF "4 " GAME OF SPEED TO CONVERT A NUMBER IN"> " STANDARD FORM TO/FROM SCIENTIFIC "H " NOTATION (POWERS OF 10). ICULT LEVELS REQUIRE ANSWER "P " ESTIMATION AS WELL AS DECIMAL COUNT."} " " :" ";::"COINS:";::" CHANGE MAKING DRILL GAME." " COIN VALUES INDICATED BY LETTERS. " " MAKING CHANGE PROBLEMS IONS "6 " OR COMBINATIONS. "c " " :" ";::"DECIMAL ESTIMATION";::" GAME TO PLACE" " DECIMAL IN ANWER TO A PROBLEM. " " USER HAS CHOICE OF 5 LEVELS OF PLAY."# " DIFF" BASIC FACTS">: " AND DIVISION PRACTICE (1-12). "Hl 1000v 3:" ";::"SIGN DRILL:";::" GIVEN A PROBLEM, THE" " USER GIVES THE SIGN OF THE ANSWER. " " HORIZONTAL FORMAT, WHOLE AND DECIMAL"  " PROBLEMS. USER CHOOSES OPERATEST. TIMING FASTER/ "D " SLOWER FOR RIGHT/WRONG ANSWERS. "} :" ";::"NEW SUBTRACTION:";::" DRILL AND " " PRACTICE IN A NEW APPROACH TO WHOLE " " NUMBER SUBTRACTION WITH BORROWING. " & :" ";::"DIVISION DRILL:";::z1000 : 1 ABOUT THESE PROGRAMS U :3:12::"COURSEWARE MATH": 5:" THERE ARE 7 PROGRAMS ON THIS DISK.": :" ";::"ADDITION DRILL:";::" ADDITION FACTS " " (1-12). VERTICAL FORMAT. PRE-TEST," " DRILL AND POST-TREDITS":>6;H:" FOR APPLESOFT AFICIONADOS, THE"jR:" COURSEWARE PROGRAMS HAVE MANY USEFUL"\:" SUBROUTINES. "f:::p" CONVERSION TO PRODOS AND 3.5 INCH "u" VERSIONS BY HAL GIBSON (SOFTSWAP). " AMS FIRST APPEARED IN HIS"W :" PUBLICATION ";::" COURSEWARE MAGAZINE ";::"." :::" NOT ONLY DO THESE PROGRAMS PROVIDE " :" ENJOYABLE PRACTICE, THEY ARE ALSO " :" MODELS OF STRUCTURED PROGRAMMING. " *1000 43:15::"C:ZZ  : .  -- SET WINDOW --: :1806X 32,1:33,38:34,1:35,21c ": s  CREDITS :3:15::"CREDITS": 6:" PROGRAMS ON THIS DISK WERE OBTAINED" :" FROM THE GENEROSITY OF DAN ISAACSON." :" THESE PROGR4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$P ZZ6ĢZZ:21(ND$)2:ND$X ZZ^ i :  -- SCREEN SETUP -- ::ZZ140:1:ZZ:" ";:ZZ ZZ223:40:ZZ:" ";:ZZ ZZ4011:ZZ:23:" ";:ZZ ZZ2311:1:ZZ:" ";P4)2000,4000,3000# VNP50+ :6 : O  -- SCREEN CLEAR --\ 23:3: " PRESS ANY KEY TO CONTINUE "; 49168,0:Z$:: :  -- MENU BANNER -- :ZZ37:3:ZZ:" "0 ZZ AND "b"" GROWTH OF THE USE OF COMPUTERS":" AND OTHER TECHNOLOGIES":" IN EDUCATION.",:" * TO MAKE A SUBSTANTIAL CONTRIBUTION"6" TOWARD DEVELOPING AND PROVIDING "@" INFORMATION, MATERIALS, AND" J" SOFTWARE APPLICATIONS TO ALL"-T" INTERESTED PERSONS; AND"\^:" * TO PROMOTE THE PROFESSIONAL GROWTH"h" OF ITS MEMBERS AND ALL FELLOW "r" EDUCATORS."|1000:3:15::"ABOUT CUE":5:" OVER 2500 CUE MEMBERS ATTEND THE "" STATEWI15:11:" ORIGINAL VERSION"A 16:9:"(C) COPYRIGHT 1984 BY"n 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." J11500: ========== INITIALIZERESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:6:"N E W S U B T R A C T I O N" 6:"-----------------------------" * SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS TVWXYZ[\]^_`abcdefghijkl *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* NEW SUBTRACTION *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * SION.DRILL(u SIGN DRILL,SIGN.DRILLPv DECIMAL ESTIMATION,DEC.ESTIMATIONbx COINS,COINSz SCIENTIFIC NOTATION,SCI.NOTATION +--- C R E D I T S ----+,Z  ! ABOUT CUE & SOFTSWAP !,Z ! ABOUT THESE PROGRAMS !,Z  +------ Q U I 94026"4:" FOR A COMPLETE CATALOG, WRITE:":G" SOFTSWAP"_" PO BOX 271704"" CONCORD, CA 94527-1704" 1000: p 11q ADDITION DRILL,ADDITION.DRILLr NEW SUBTRACTION,NEW.SUBTRACTION t DIVISION DRILL,DIVIF NEW "" DISKS."%1000H:3:12::"ABOUT SOFTSWAP":x5:" DO YOU HAVE SOMETHING TO CONTRIBUTE?":" SEND INQUIRIES OR DISKS TO:":" SOFTSWAP CHAIRPERSON"" CUE, INC."" P O BOX 2087" " MENLO PARK, CANC., AND IS NOT IN THE PUBLIC "S" DOMAIN. IT MAY BE FREELY COPIED AND"" GIVEN AWAY, ";::"BUT NOT SOLD";::".":" SOFTSWAP IS A NON-PROFIT SERVICE. "" ALL PROCEEDS BEYOND COSTS ARE PLOWED" " BACK INTO THE DEVELOPMENT ONAL SOFT-"90" WARE AND DATA, TO SCREEN AND CLEAN "f:" THE DONATIONS, AND TO DISSEMINATE "D" COPYABLE DISKS TO EDUCATORS AT LOW"N" COST."X1000b:3:12::"ABOUT SOFTSWAP":l5:" THIS DISK IS COPYRIGHTED BY CUE, "&v" ION, CALL"&:" (415) 328-2248"01000S:3:12::"ABOUT SOFTSWAP":5:" SOFTSWAP IS A SERVICE OF CUE, INC., "" AND HAS BEEN OPERATING SINCE 1978. ":" SOFTSWAP'S MISSION IS TO SOLICIT THE" &" DONATION OF USEFUL EDUCATIODE CONFERENCES HELD EVERY"B" FALL AND SPRING, AND RECEIVE "o" THE CUE NEWSLETTER SIX TIMES A YEAR."::" TO JOIN CUE, SEND $22 TO:":" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026" ::" FOR MORE INFORMATI ========== TI02 P$(1)"THAT'S RIGHT"H P$(2)"EXCELLENT"] P$(3)"RIGHT ON"s P$(4)"VERY GOOD" P$(5)"GOOD JOB" P$(6)"WAY TO GO" ==== MENU ==== :7 ZTMR0 10);"NEW SUBTRACTION"10);"---------------"10+10):"(1) TUTORIAL"E10);"(2) PRACTICE"\10);"(3) DRILL"r10);"(4) QUIT"x:17:10:"ENTER CHOICE (1-4): ";ZB$"14":ZL1:8400: GET RESPONSE. GT$"1"295:TUTORIALGT$"2"895:PRACTICE *4000:EF$"B"6500/9000:EF$"B"828G46000:EF$"B"828W97000:5000h<EF$"B"785w>=========CEXAMPLE 5H=========M:2R" HOW ABOUT LARGER NUMBERS?"WMAX1000:MIN111:LIM698:D200\2000 aH112:H27:V1N:H1H2:"!":18N:H1H2:"^":P5.20:8200:NTV22:H1H2:(M1(2)10)M2(2)^9000oEF$"B"650~=========EXAMPLE 4 =========:2" WATCH ONCE MORE:"LIM69:MAX100:MIN11:D20 2000:GENERATE RANDOM NUMBER1)(M2(1)1)%9000:EF$"B"767+:dN12:19N:H1:"!":18N:H1:"^":P5.20:8200:NV22:H1:M1(1)(M2(1)1)9000:EF$"B"767:19:18:M1(2)10;"-";M2(2);"=";(M1(2)10)M2(2)9000:EF$"B"767:1N12:19V11:H1H21:"1"+9000:EF$"B"7671:J11:28:"ADD 1 TEN"uN112:11:27N:"<-":P5.15:8200:V21:H1:"1"9000:EF$"B"767:X12:M(X)0M(X)M(X)119:2:M1(1);"-(";M2(1);"+1)=";M1(1);"-";M2(1)1;"=";M1(=========:2C" AND HERE'S A SHORTHAND NOTATION:"kM1(1)A1:M1(2)A2:M2(1)A3:M2(2)A4H114:H29:V18:V2124000:EF$"B"4959000:EF$"B"767:7:28:"ADD 10 ONES"N14:7:27N:"<-":P5.15:8200:15:8200:,SV2:32:M2(1)1;38);M2(2)GXV21:31:"---------"^]9000:EF$"B"632rb7000:SUBTRACTxd:gI12l5000:PRINT ANSWERnEF$"B"632qH132vIw:xEF$"B"495:EF$"E"215{=========EXAMPLE 36:V111:V214&+4000:EF$"B"632=09000:EF$"B"632C2:`5V11:16:"ADD 10 ONES":N111:V1:N15:"->":P5.15:8200:?V1:32:M1(1);37);"1";M1(2)D9000:EF$"B"632IV21:16:"ADD 1 TEN" NN111:V2:N15:"->":P5."---- ----";30);"---- ----"* 9000;EF$"B"360nA10M1(1)A1:M1(2)A2:M2(1)A3:M2(2)A4:550t:LIM69:MAX100:MIN11:D202000:GET RANDOM NUMBER!A1M1(1):A2M1(2):A3M2(1):A4M2(2):STORE DIGITS IN A1-A4#:&H17:H214:5000:EF$"B"477I/EF$"B"360>=========MEXAMPLE 2\=========tA10:A20:A30:A40}:2" HERE'S AN INTERESTING WAY TO ADD":"TEN TO EACH OF TWO NUMBERS:"8:5:"TENS ONES";30);"TENS ONES" 5);"->":P5.15:8200:;V1:14I4:M1(1)I;" ";M1(2)10E9000VEF$"B"477\:tV21:H16:"+ 10"N14:V2:N5H1:"->":P5.15:8200:V2:14I4:M2(1)I1;" ";M2(2)V21:14I3:"-----"9000:EF$"B"477H1H1)0:DIGITS OF EXAMPLE MINUEND94000:PRINT PROBLEMJEF$"B"477b9000:PRESS RETURNEF$"B"477:EF$"E"2157000:SUBTRACTION5000:PRINT ANSWEREF$"B"477:I12V11:H16:"+ 10"N14:V1:N5H1: THE ":*w"DIFFERENCE BETWEEN THEM."4|9000E~EF$"B"295_9:1:"FOR EXAMPLE:"yN120:N2((1)4)163000:STORE DIGITS OF THE NUMBERS IN ARRAYS M1 & M2H14:H22:V112:V215:HORIZONTAL AND VERTICAL SCREEN TABS M1(1)2:M1(2ARE PROBABLY USED TO."::KJ" YOU MIGHT FIND THIS METHOD FASTER":^O"AND EASIER."hT9000yVEF$"B"215Y=========^EXAMPLE 1c=========h:2m" YOU KNOW THAT ADDING TEN TO EACH OF": r"TWO NUMBERS DOES NOT CHANGEGT$"3"1210:DRILL.GT$"4"1445:QUIT7260I"============[#INTRODUCTIONm$============v':26"OBJECTIVE:"::;" THIS PROGRAM WILL SHOW YOU A WAY TO":@"SUBTRACT NUMBERS WHICH IS DIFFERENT":E"FROM THE ONE YOU 8:V212!f4000:EF$"B"7858k9000:EF$"B"888Op6000:EF$"B"888_u7000:5000pxEF$"B"845z=========PROBLEM 1=========A16:A21:A32:B12:B23:B39:C$"":2"CAN YOU SUBTRACT FROM LEFT TO RIGHT?"'8:8:A1:8:14:A2:20:8:A3:MINUENDD9000:EF$"B"845:BACKJ:12:6:"-":12:8:B1:12:14:B2:12:20:B3:SUBTRAHEND14:6:"----------------"9000:EF$"B"1057:ER07:19::ZB$"09":ZL1:8400:GT$"1"E:SUBTRAHEND!,N1N2D2010+,30006,N2CU,M2(N)0M2(N)((1)9)1\,Nb,:m,N2C,M1(N)M2(N)M1(N)((1)M2(N)),N, , ================, BREAK UP THE NO., ================, S1$(N1):S2$(N2) - L "F+GT$"Y"Ģ15:23:" ":1245Y+GT$"N"1430b+215+:12:"END OF PROGRAM."+19999+=================+GENERATE RND. NO.+=================+N1((1)MAX):MINUEND,N2((1)LIM)MINRD !!"*iBTIMETTIME*:G*23:6:" "i*13:23:" "t*22:6*TIME0*"ANOTHER GAME? (Y/N) "*22:26:ZB$"YYNN":ZL1:8400*13:12:" "+22:6:" EF$"B"1220)M:<)PX914:X:5:" ";:r)U15:23:" ":13:12:" "z)VPR)WTTIMETIME:ZTMR0)XBTIME0BTIMETTIME:1410)YBTIMETIME1410)[:)\====)]CODA)^====*d15:23:"A NEW RECOC$)N31345B(-15:22:"PLEASE TRY AGAIN.":9000:EF$"B"1220e(715:22:" "(913:12:" "(:22:958(<1283(A:(BZTMR0(DWN((1)61)(F15:23:P$(WN);(HWN3ĺ"."(IWN3ĺ"!")K9000:DISPLAY THE PROBLEM8'X13:9:12(2X):M1(X):XI' 11:11:"-"l' X13:11:12(2X):M2(X):X' 12:13:"-------"':'X13:GET USERS RESPONSE'13:12(2X)::ZB$"09":ZL1:8400:'C$C$GT$'X' :'#N3N1N2 (((E:&TRYTRY12&TRY1İ9000:EF$"B"1220\&8:23::"TIME: 0";::" "|&P1:MAX999:MIN100:LIM999&:&PR15:5 PROBLEMS&ZTMR1&22:868&23:868&2000:3000:9:6:PR;:".":PROBLEM NUMBER&:'C$"": %:2%TIME0:ZTMR0K%"HOW FAST CAN YOU SUBTRACT FIVE 3-DIGIT"w%4:"NUMBERS USING THIS NEW METHOD BUT"%6:"WITHOUT USING PAPER OR PENCIL?"%9000:EF$"B"1075%19:21::"BEST TIME ":&:20:21::" SO FAR: ";BTIM17:9:" "W$19:29:" "a$1152g$:m$:$WN((1)61)$19:28:P$(WN);"."$9000$EF$"B"1075$===============$5 PROBLEM DRILL$===============%BT0:TRY0#e13:6:"-"(#jX15: SUBTRAHEND@#o13:4(5X):M2(X)G#tXc#y15:6:X125:"-";:Xi#:s#C$""~#X15#17:4(X5)::8400:#C$C$GT$#X#:#N3N1N2:(C$)N31195#19:29:"TRY AGAIN":9000:EF$"B"1203-$SEE IF A CHANGE WILL":4L"="BE FORCED BY THE TOP NUMBER IN THE NEXT":6k"B"PLACE TO THE RIGHT.":10"G9000:EF$"B"905:EF$"E"215"LMAX99999:LIM99999:MIN10000:D0:2000:3000"P:"QX15: MINUEND"V9:4(5X):M1(X)"[X#b:8:" "+!9421!:;!MIN0Q!MIN0:MAX6:LIM6d!WN((1)61)y!18:25:P$(WN);!WN3ĺ"."!WN3ĺ"!"!9000!!EF$"B"905!$=========!)PROBLEM 2!.=========!3:2"8"OK. LOOK AHEAD TO :8400: C$C$GT$ X& :O (C$)N3ī1045:RESPONSE IS CORRECTY C$""_ : 18:25:"PLEASE TRY AGAIN":9000:EF$"B"1057 7:13:" " 11:8:" " 18:22:" ""!16:R111:14::8400:.GT$"1"ER1C7:13::8400:VGT$"1"ER1k11:8::8400:~GT$"1"ER1:ER11030:INCORRECT-EXCHANGE DIGIT(S)N3612239:CORRECT ANSWERX13:GET RESPONSE FROM USER 16:26X:(S1$):C0- :- CC1^- M1(C)((S1$,C,1)):STORE DIGITS OF NUMBERS IN ARRAYS M1 & M2v- M2(C)((S2$,C,1))- CLī3020- -_CL3020-===============-DISPLAY PROBLEM-===============-N1C.V1:H2(N1)H1:M1(N):MINUEND.N'.9000:EF$"B"4065-.:@.V2:H12:"-"K.N1Cr.V2:H2NH1H2:M2(N):SUBTRAHENDy.N.:.N1(C1)H23.V21:H1N2:"-":UNDERLINE.N..==============.DISPLAY ANSWER.============== /* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS mopqrstuvwxyz{|}~ *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* DIVISION DRILL *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * &6d#Q197215:ESCAPE BACK TO MENU.06i#902066n#:G6s#22:1:958M6t#h6NRETURN TO MENU OR END~6 N:(4)"RUN MENU"6*N57#22:8:"PRESS ";::"RETURN";::"..TO CONTINUE,"s5:#14::"B";::"..GO BACK ";::"E";::"..TO EXIT";5<#Q(16384)5A#7300:UPDATE TIMER5F#Q1419070:RETURN5K#:5P#Q1949060:NOT "B"5U#EF$"B"5Z#90705_#:6a#Q197ZTMR0!:4k!ZQ$(27)8590*4p!GT$""8590;4u!ZK1(GT$)O4z!" ";(8);(8);W4!ZKb4!GT$""h4!:z4!ZTMR1İ73004!84254&#===================4(#SUBR - PRESS RETURN4*#===================4-#EF$""52#16368,0:CLEAR KEYBOARD BUFFER.7ZK3!(GT$)ZLZF1 3!:/3 !ZF18500?3%!GT$GT$ZQ$I3*!ZQ$;O3/!:d34!ZQ$(13)8520u39!GT$""85553>!" ";:3C!:3H!ZQ$(8)85553M!" ";(8);3R!(GT$)085553W!(GT$)1GT$""3\!(GT$)1GT$(GT$,(GT$)1)3a!ZQ$;4f=========2 SUBR - GET+2 ==========<2 ZQ(16368)G2 GT$""M2 :^2 ZQ(16384)2 ZQ127ZQ(16368):ZQ$((16384)):84502 :" ";::(8);2 85902 :2!ZF12!ZK1(ZB$)22 !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF03!============!1ZTMR07350M1TB(37):TA(36):SAVE CURSOR LOCATION^1TITI1:TC0{18:23::"TIME: ";TI;:1TA1:TB1:RESTORE CURSOR LOCATION11 ============1 SUBR - PAUSE1 ============1 K61700P5::1 : 2 =V11:H11NH2:"1"40V21:H1(N1)H2:"1"M09000:EF$"B"ī6035T0NZ0k0V===========|0XSUBTRACTION0Z===========0bNC110gM1(N)M2(N)M2(N1)M2(N1)1:M1(N)M1(N)100lN0v0============0SUBR - TIMER1N1C /V22:H2(N1)H19/M1(N)M2(N)05030M/N1ĺ" ":5027W/"0";a/5040r/M1(N)M2(N)/9000:EF$"B"5045/N//n=======================/pDISPLAY EXCHANGE DIGITS/r=======================/zNC1110RESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:7:"D I V I S I O N D R I L L" 7:"---------------------------" 15:11:" ORIGINAL VERSION"= 16:9:"(C) COPYRIGHT 1984 BY"j 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 9000 NP10:NO. OF PROBLEMS TO BE SOLVED." SCPS1225,1255,12453LE2(LE2)LELE1MLE2(LE2)LELE2W1255]:iLELE1o:uLE2LE2LE251400===================TOP LEVEL COMPLETED=================== LE(5(5)10):SET DIFFICUL0: TIME & LEVEL BOX.[4:20:LE;:25:S;8]1:1[^NA(PN)D:N$(N):N=DIVIDEND.`5000:PROBLEM, GET ANSWER & GIVE RESPONSEe9000:PRESS RETURNjPN====================CHANGE LEVEL OR STOP====================:KK1 $:)KKPN1100R.A(PN)A(KK)1090:DIFFERENT QUOTIENT ASSURED.q3A(PN)((B1L11)(5)L1)z8KK0=:BKKKK1G1065J=================LPRINT ONE PROBLEMN=================PANA(PN)Q:(PN);"."V600N - D R I L L"#5300:HEADING-9000]LE(5(5)10):DIFFICULTY LEVEL TO START.kSC0:T90D(LE2):D$(D):D=DIVISOR.S6:C7:K6:LE2(LE2)S4:C5:K4PSSC:SAVE SCORE:PN13A(PN)((B1L11)(5)1):ZTMR0:8400<uGT$"N"SF4:SET SELECTION FLAG TO RUNkzGT$"Y"SF2:SET SELECTION FLAG TO DRILLS1SC:T1T9:SAVE SC & T9 FOR POST TESTSF21990 ================DIVISION - DRILL================HH$"D I V I S I O LL ME!"!C9000:PRESS RETURN'H:KM:"PLAYER: ";NA$;31)"PRETEST"UP5400kR7000:SCOREBOARDW13:12:SC;:23:T9;:30:NA;\9000a:10:1f"WOULD YOU LIKE TO PRACTICE":k"MORE PROBLEMS ANYWAY? (Y/N) ";pZB$"YYNN":ZL1=======================@ NO DRILL NEEDED. SCORE >=80%]"=======================y%:"GOOD JOB, ";NA$;"."'5400:CALCULATE PERCENT*:"YOU GOT ";NA;"% CORRECT."/:"YOU ALREADY KNOW HOW TO DO THIS STUFF." 4:"WHY DIDN'T YOU TEOU NEED TO PRACTICE SOME ";NA$;"."K:"YOU ONLY GOT ";NA;"% CORRECT."U9000k7000:SCOREBOARD13:12:SC;:23:T9;:30:NA;9015:PRESS RETURNS1SC:T1T9:SAVE SC & T9 FOR POST TESTSF2:SET SELECTION FLAG TO DRILL990DIVIDEND, DIVISOR, AND QUOTIENTQg5000:PRINT PROBLEM, GET ANSWER & RESPONSEij9000:PRESS RETURNqlPNqSCT9.8800=======================NEED DRILL. SCORE < 80%=======================5400:CALCULATE PERCENT$:"Y ARE TIMED."::" - IF YOU TAKE TOO LONG TO ANSWER,":c" CORRECT ANSWERS WILL NOT COUNT":::"STARTING TIME IS ";::6;:!" SECONDS":&9000:PRESS RETURN8====XTESTZ====]PN1NP_:(PN);"."!b5200:FIND A ETSF(GT$)%SF1SF34084SF1990A=======NPRETEST[=======~C0:K100:SET TIMER CONSTANTSHH$"P R E - T E S T":53006:1:NA$;", YOU WILL BE ASKED "NP: "QUESTIONS IN THIS PRE-TEST."::8 " - QUESTIONS=======K:3:7:"HELLO ";NA$;"!!":7:7:"WHAT DO YOU WANT TO DO?"r11:10:"<1> DIVISION: PRE-TEST"13:10:"<2> DIVISION: DRILL"15:10:"<3> DIVISION: POST-TEST"18:7:"ENTER CHOICE (1-3): ";ZB$"13":ZL1:OT0:8400:G" THEN PRESS THE ";::"RETURN";::" KEY TO GO ON."^JS6:INPUT TIME ALLOWED TO RESPOND.O6:12:"";:ZB$"AZ":OT0:ZL10:8400:GET NAME.mNA$GT$rNA$"QUIT"400w:12:"END OF PROGRAM."|1619999=======M E N U L11:B112:RANGE OF QUOTIENT.D L21:B212:RANGE OF DIVISOR.V *============h ,INTRODUCTIONz .============ 6::17:"HI!" ;:7)"TYPE YOUR FIRST NAME IN HERE" >22:" (TO END GAME, TYPE ";::"QUIT";::" FOR NAME)"6@10:3:TY LEVEL.:"CONGRATULATIONS ";NA$;"!!!"X6:"YOU HAVE MADE IT CLEAR TO 25!!!"#:"DO YOU WISH TO DRILL SOME MORE?"(ZL1:ZB$"YYNN":8400:GET Y OR N-GT$"N"Q211:1500<v=============xSET NEW LEVELz=============}"NEW LEVEL: ";LEAS6:C7:K7:LE2(LE2)S4:C5:K5e:"NEW TIME : ";S;" SECONDS."7:8:"WHAT DO YOU WISH NOW?"10:11:"<1> CONTINUE":11:"<2> TAKE POST-TEST":11:"<3> STOP"::8:"ENTER YOUR CHOICE (1-3)20(((HH$))2) *:1:H);:*X1(HH$):"=";::G*H);HH$N*Hh*X1(HH$):"-";::n**=================*CHANGE TO PERCENT*=================*NA(SCT9100.5)*"*n================*pTIME & LEVEL BOX+r=============&)PCALCULATE PROBLEM=)R=================n)UAN((B1L11)(5)L1):A=QUOTIENT (ANSWER))ZD((B2L21)(5)L2):D$(D):D=DIVISOR)_NAND:N$(N):N=DIVIDEND.)s)=============)PRINT HEADING)=============*H9":8400:GET ANSWER.4((GT$)AN5075:CORRECTI(16:18:"WRONG"s(5095:ADD 1 TO NO. OF PROBLEMS TRIED}(5095(OT1Ģ16:16:"CORRECT"(OT1SCSC1:5095(16:3:"CORRECT BUT NOT IN TIME. NO SCORE."(T9T91()N===="' 9000:PRESS RETURN!' 8'=================O'SUBR-THE QUESTIONf'================='ZTMR1:SET TIMER ON.'T0:TC0'9:18)"--------":'18(D$));D$;")";'22(N$));N$'8:22((AN)));':(OT1:ZL4:ZB$"0 TEST";27)"TIMING RATE:"4&o NA$;27)"6 SECONDS"`&t SCS3:T9T3:5400:SCORE FROM POST TEST|&y 7000:PRINT SCOREBOARD&~ 13:12:SC;:23:T9;:30:NA;& 9000& ==========& NEW PLAYER& ==========' :10:"PLEASE CALL THE NEXT PLAYER.FOR PRETEST0%3 13:12:SC;:23:T9;:30:NA;:%8 9000@%= :O%B T202410m%G :"PLAYER:";17);"DRILL"v%L NA$%Q SCS2:T9T2:5400:SCORE FROM DRILL%V 7000:PRINT SCOREBOARD%[ 13:12:SC;:23:T9;:30:NA;%` 9000&j :"PLAYER:";14)"POST."($ :"PLEASE PRESS WHEN"I$ :"YOU ARE READY TO GO ON."a$ 9015:PRESS RETURNp$ T102370$ :"PLAYER:";16)"PRETEST";27)"TIMING RATE:"$$ NA$;27)"6 SECONDS"$) SCS1:T9T1:5400:SCORE FROM PRETEST %. 7000:PRINT SCOREBOARD ";NA$;", YOU DID THE SAME":J#"AS LAST TIME. DID YOU DRILL ENOUGH?"T#2280Z#:#:7:1:"WELL ";NA$;", YOU GOT A LOWER":#"SCORE THIS TIME. WHAT HAPPENED?":#"YOU GOT A ";NA;"%."#:#9000$ :6:"STAND BY FOR SCORE BOARDS02305:NO PRETEST TAKEN.6"5400: GET A PERCENTG"SCS12240u":7:1:"GREAT ";NA$;"!! YOU IMPROVED":""FROM THE PRETEST. YOU GOT A ";NA;"%":""THIS TIME. KEEP UP THE GOOD WORK!!""2280":"SCS12260#:7:1:"WELL !C5200:FIND A DIVIDEND, DIVISOR AND QUOTIENTa!H5000:PRINT PROBLEM, GET ANSWER & RESPONSEk!M9000s!RPN!WS3SC:T3T9:SAVE POST TEST SCORE!=============!FINAL RESULTS!=============!S202410:NO PREV. TEST OR DRILL."S1:M " - QUESTIONS ARE TIMED."::" - IF YOU TAKE TOO LONG TO ANSWER":y " CORRECT ANSWERS WILL NOT COUNT.": ::"STARTING TIME IS ";::6;::" SECONDS.": 9000 2======== 4THE TEST 6======== 9PN1NP!>:(PN);"."1T TESTSF330000==================HDIVISION POST TEST`==================sS6:C0:K1000SC0:T90HH$"P O S T - T E S T"5300:HEADING SUBR6:NA$;", YOU WILL BE ASKED ";NP: "QUESTIONS IN THIS POST-TEST.":$:"PLAYER: "NA$;31);"DRILL"@5400:FIND THE PERCENTV7000:SCOREBOARDy13:12:SC;:23:T9;:30:NA;9000:PRESS RETURN(Q128)"S"1600SF41990@S2SC:T2T9:STORE DRILL SCOREJSF3:SET SELECTION FLAG = POS: ";(16368,0:CLEAR INPUT BUFFER[P5.2:8210:Q(16384):16368,0:Q1271438r(Q128)"1"1465(Q128)"3"1500(Q128)"2"1500:14001025===================TERMINATE/POST TEST===================================+z1:17<+;"+-----+----+---------+"_+17);"!LEVEL!TIME!TIME LEFT! +17);"+-----+----+---------+"+17);"! ! ! !+17);"+-----+----+---------+++N==========+XSCOREBOARD+Z==========,]7:1-,b7);"+----------+---------+----+"T,g7);"!NO. RIGHT ! ! !"{,l7);"!WITHIN !NO. TRIED! % !",q7);"!TIME LIMIT! ! !",v7);"+----------+---------+----+",{7);"! ! ! !"-7);"! ROGRAM":~19990*=========8 M E N UG=========w:6:" HI ";NA$;"! WHICH DO YOU WANT?"9:8:"<1> ADDITION - PRE-TEST"11:8:"<2> ADDITION - DRILL"13:8:"<3> ADDITION - POST-TEST"17:5:"ENTER YOUR THEN, PRESS WHEN DONE"R @22:" (YOU CAN TYPE TO STOP)"w E10:" TYPE YOUR FIRST NAME: "; JS6:INPUT TIME ALLOWED TO RESPOND. OZB$"AZ":OT0:ZL10:8400:GET NAME. mNA$GT$ rNA$"QUIT"400 w |16:"END OF P2 21:4:" BY COMPUTER USING EDUCATORS, INC."< 9000e NP10:NO. OF PROBLEMS TO BE SOLVED. L11:B112:RANGE OF ADDEND. L21:B212:RANGE OF ADDEND 2 *============== , INTRODUCTION .============== 6::16:"HI!"% >18:"============= x:@ }9:7:"A D D I T I O N D R I L L"j 10:7:"---------------------------" 15:12:" ORIGINAL VERSION" 16:12:"(C) COPYRIGHT 1984" 17:12:"BY DILITHIUM PRESS" 20:4:"REVISED VERSION (C) COPYRIGHT 1987""%* BILL BOTZONG *; &* CHAS SWANSON, PH.D. *Y (* *w )* ALL RIGHTS RESERVED. * ** * ,************************ .: d: i==================== n T I T L E P A G E  s=======ERSION *- * (C) COPYRIGHT 1987 *K * BY COMPUTER USING *i * EDUCATORS, INC * * * !* DESIGN, DOCUMENTATION* "* AND PROGRAMMING * #* SUPERVISION BY * $* DAN ISAACSON, PH.D. *  ************************= * *[* ADDITION DRILL *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY DILITHIUM PRESS ** * * REVISED V1(#SUBR-PRESS RETURN/1*#==================1-#16368,0r12#23:8:"PRESS ";::"RETURN";::" TO CONTINUE"17#K1(16384):K114190151<#16368,01A#8:8681F#1NRETURN TO MENU OR END1 N:(4)"RUN MENU"1*N!ZK0!GT$""0!:.0!ZTMR1TKİ860080!8425H0!==========X0!SUBR-TIMERh0!==========0!TB(37):TA(36):SAVE CURSOR LOCATION0!TT.1:TC00!4:34:((CT));0!TA1:TB1:RESTORE CURSOR LOCATION0!1&#=================8520/9!GT$""8555+/>!" ";:TSOT01/@!7/C!:K/H!ZQ$(8)8555Z/M!" ";(8);m/R!(GT$)08555/W!(GT$)1GT$""/\!(GT$)1GT$(GT$,(GT$)1)/a!ZQ$;/f!:/k!ZQ$(27)8590/p!GT$""8590/u!ZK1(GT$)/z!" ";(8);(8);0Q(16368):ZQ$((16384)):84509. :" ";::(8);E. RF(1)O. 8590U. :^.!ZF1q.!ZK1(ZB$)2. !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0.!ZK.!(GT$)ZLZF1.!:. !ZF18500.%!GT$GT$ZQ$.*!ZQ$;./!:/4!ZQ$(13) ! ! !">-7);"+----------+---------+----+"D-V- ============h- SUBR - PAUSEz- ============- K61700P5:K6:- ==========- SUBR - GET- ==========- ZQ(16368)- GT$""- :- ZQ(16384)$. ZQ127ZCHOICE (1,2,3): ";6ZB$"13":ZL1:OT0:8400:GETDSF(GT$)WSF1SF3408fSF1990u========= PRETEST=========C0:K100:SET TIMER CONSTANTSHH$"P R E - T E S T":53006:1:NA$;", YOU WILL BE ASKED "NP:& "QUESTIONS IN THIS PRE-TEST."::I " -QUESTIONS ARE TIMED."::u" -IF YOU TAKE TOO LONG TO ANSWER,":" CORRECT ANSWERS WILL NOT COUNT.":::"STARTING TIME IS ";::6;:!" SECONDS":&9000:PRESS RETURN8======X=== ADDITION POST TEST8====================KS6:C0:K1000YSC0:T90uHH$"P O S T - T E S T"5300: HEADING SUBR6:NA$;", YOU WILL BE ASKED ";NP:"QUESTIONS IN THIS POST-TEST.":" - QUESTIONS ARE TIMED.":*FIND THE PERCENT)7000:SCOREBOARDL13:12:SC;:23:T9;:30:NA;d9000:PRESS RETURN|(Q128)"S"1600SF41990@S2SC:T2T9:STORE DRILL SCOREJSF3:SET SELECTION FLAG = POST TESTSF33000=================8210:Q(16384):16368,0:Q1271438A(Q128)"1"1465X(Q128)"2"1500o(Q128)"3"3000y14001025=====================TERMINATE - POST TEST=====================:"PLAYER: "NA$;31);"DRILL"5400:: ";S;" SECONDS."88:" YOUR CHOICES ARE:":`:" <1> CONTINUE DRILL":" <2> TAKE POST-TEST":" <3> STOP HERE"::" PRESS YOUR CHOICE (1-3)16368,0: CLEAR INPUT BUFFER*P5.2:#:"DO YOU WISH TO DRILL SOME MORE?"O(ZL1:ZB$"YYNN":8400:GET Y OR Nh-GT$"N"Q211:1500n<v===============x SET NEW LEVELz===============}1:"NEW LEVEL: ";LES6:C7:K7:LE2(LE2)S4:C5:K5:"NEW TIME LELE1:'LE2LE28LE251400S=====================m TOP LEVEL COMPLETED=====================LE(5(5)10):SET DIFFICULTY LEVEL:"CONGRATULATIONS ";NA$;"!!!"6:"YOU HAVE MADE IT CLEAR TO 25!!!")5000:PROBLEM, GET ANSWER & GIVE RESPONSEEe9000:PRESS RETURNMjPNg====================CHANGE LEVEL OR STOP====================:SCPS1225,1255,1245LE2(LE2)LELE1LE2(LE2)LELE21255: 1L11)(5)L1)8KK0!=:-BKKKK17G1065PJ===================hL PRINT ONE PROBLEMN===================PANA(PN):AN$(AN)Q:(PN);"."V6000:TIME & LEVEL BOX[4:20:LE;:25:S;]1:1^NA(PN)D:N$(N):-` TO START.SC0:T900D(LE2):D$(D)[S6:C7:K6:LE2(LE2)S4:C5:K4qPSSC:SAVE SCOREw:PN13A(PN)((B1L11)(5)1)KK1$:)KKPN1100.A(PN)A(KK)1090:DIFFERENT ADDEND ASSURED.3A(PN)((B23:T9;:30:NA;\9000AaSF4:SET SELECTION FLAG TO RUNQSF21990j ================== ADDITION - DRILL==================HH$"A D D I T I O N - D R I L L"5300:HEADING9000 LE(5(5)10):DIFFICULTY LEVEL A ";NA;"%.">/:"YOU ALREADY KNOW HOW TO DO THIS STUFF."_4:"WHY DIDN'T YOU TELL ME!">::"PRESS ANY KEY TO CONTINUE..."C9000:PRESS RETURN H:M:"PLAYER : ";NA$;31)"PRETEST"P5400R7000:SCOREBOARDW13:12:SC;:PRESS RETURN8S1SC:T1T9:SAVE SC,T9 FOR POST TEST^SF2:SET SELECTION FLAG TO DRILLg990===================== NO DRILL. SCORE >=80%"=====================%:"GOOD JOB, ";NA$;"."'5400: CALCULATE PERCENT*:"YOU GOT======%5400:CALCULATE PERCENTQ:"YOU NEED TO PRACTICE SOME ";NA$;"."n"YOU ONLY GOT ";NA;"%."x90007000:SCOREBOARD13:12:SC;:23:T9;:30:NA;19::"PRESS RETURN WHEN YOU WISH TO RUN""DRILL ADDITION"9000: TESTZ======!]PN1NP2_:(PN);"."Ob5200:MAKE UP A PROBLEMg5000: PRINT PROBLEM, GET ANSWER & RESPONSEj9000: PRESS RETURNlPNqSCT9.8800======================NEED DRILL SCORE < 80%================" - IF YOU TAKE TOO LONG TO ANSWER":U" CORRECT ANSWERS WILL NOT COUNT."::"STARTING TIME IS ";::6;::" SECONDS.": 90002==========4 THE TEST6==========9PN1NP>:(PN);"."C5200:MAKE UP A PROBLEM. H5000:PRINT PROBLEM, GET ANSWER & RESPONSE8 M9000@ RPNf WS3SC:T3T9:SAVE POST TEST SCORE{ ===============  FINAL RESULTS =============== S202410:NO PREV. TEST OR DRILL. S102305:NO PRETEST TAKEN.!5400:GET A PEZF18500.%!GT$GT$ZQ$%.*!ZQ$;+./!:@.4!ZQ$(13)8520Q.9!GT$""8555e.>!" ";:TSOT0k.@!q.C!:.H!ZQ$(8)8555.M!" ";(8);.R!(GT$)08555.W!(GT$)1GT$"".\!(GT$)1GT$(GT$,(GT$)1).a!ZQ$;.f!:/k!ZQ$(27)859(16368)- GT$""- :.- ZQ(16384)^- ZQ127ZQ(16368):ZQ$((16384)):8450s- :" ";::(8);- RF(1)- 8590- :-!ZF1-!ZK1(ZB$)2- !ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0-!ZK-!(GT$)ZLZF1-!: . !;"! ! ! !"G,7);"! ! ! !"n,7);"+----------+---------+----+"t,, ==============, SUBR - PAUSE, ==============, K61700P5:K6:, ============, SUBR - GET, ============ - ZQ=======+X SCOREBOARD,+Z============6+]7:1]+b7);"+----------+---------+----+"+g7);"!NO. RIGHT ! ! !"+l7);"!WITHIN !NO. TRIED! % !"+q7);"!TIME LIMIT! ! !"+v7);"+----------+---------+----+" ,{7)=============&*p TIME & LEVEL BOX>*r==================I*z1:17g*"+-----+----+---------+"*17);"!LEVEL!TIME!TIME LEFT! *17);"+-----+----+---------+"*17);"! ! ! !*17);"+-----+----+---------+* +N=====)======================3)H20(((HH$))2)B):1:H);\)X1(HH$):"=";::i)H);HH$p)H)X1(HH$):"-";::))===================) CHANGE TO PERCENT)===================)NA(SCT9100.5))"*n=====(T9T91(0(N======================L(PSUBR-CALCULATE PROBLEMh(R======================(UAN((B1L11)(5)L1):AN$(AN)(ZD((B2L21)(5)L2):D$(D)(_NAND:N$(N)(s(======================) SUBR - PRINT HEADINGER ':4'OT1:ZL4:ZB$"09":8400:GET ANSWER.P'(GT$)N5075:CORRECTe'16:18:"WRONG"'5095:ADD 1 TO NO. OF PROBLEMS TRIED'5095'OT1Ģ16:16:"CORRECT"'OT1SCSC1:5095(16:3:"CORRECT BUT NOT IN TIME. NO SCORE."SS RETURN& *&===================B& SUBR-THE QUESTION[&===================u&ZTMR1:SET TIMER ON.&T0:TC0&9:(22(AN$)):AN$&10:(22(D$)):;D$&10:18:"+";&11:18:"-----"'12:(22(N$)):POSITION FOR ANSW400:SCORE FROM POST TEST7%y 7000:PRINT SCOREBOARDZ%~ 13:12:SC;:23:T9;:30:NA;d% 9000v% ============% NEW PLAYER% ============% :10:"PLEASE CALL THE NEXT PLAYER"% 17:"PRESS WHEN YOU WISH TO START" & 9000:PRET202410)$G :"PLAYER";17);"DRILL"2$L NA$Z$Q SCS2:T9T2:5400:SCORE FROM DRILLv$V 7000:PRINT SCOREBOARD$[ 13:12:SC;:23:T9;:30:NA;$` 9000$j :"PLAYER";14)"POST TEST";27)"TIMING RATE:"$o NA$;27)"6 SECONDS"%t SCS3:T9T3:5 ON."# 9000:PRESS RETURN.# T102370_# :"PLAYER";16)"PRETEST";27)"TIMING RATE:"x#$ NA$;27)"6 SECONDS"#) SCS1:T9T1:5400:SCORE FROM PRETEST#. 7000:PRINT SCOREBOARD FOR PRETEST#3 13:12:SC;:23:T9;:30:NA;#8 9000#= : $B RILL ENOUGH?""2280":H":"WELL ";NA$;", YOU GOT A LOWER":r""SCORE THIS TIME. WHAT HAPPENED?":""YOU GOT A ";NA;"%."":"9000" :6:"STAND BY FOR SCORE BOARDS."" :"PLEASE PRESS ANY KEY WHEN"# :"YOU ARE READY TO GORCENT!SCS12240@!:"GREAT ";NA$;"!! YOU IMPROVED":n!"FROM THE PRETEST. YOU GOT A ";NA;"%":!"THIS TIME. KEEP UP THE GOOD WORK!!"!2280!:!SCS12260!:"WELL ";NA$;", YOU DID THE SAME":""AS LAST TIME. DID YOU D0/p!GT$""8590%/u!ZK1(GT$)9/z!" ";(8);(8);A/!ZKL/!GT$""R/!:h/!ZTMR1TKİ8600r/!8425/!============/! SUBR-TIMER/!============/!TB(37):TA(36):SAVE CURSOR LOCATION/!TT.2:TC0/!4:34:((CT));#0!TA1:TB1:RESTORE CURSOR LOCATION)0!B0&#===================Z0(# SUBR-PRESS RETURNs0*#===================0-#16368,002#23:8:"PRESS ";::"RETURN";::" TO CONTINUE"07#K1(16384):K114190150<#16368,00A#8:8680F#1NRETURN(GT$)S(GT$)#S810105:7:10:PP$S12:1:"END OF PROGRAM."[ 21f 19999{===============GET NAME ANDNO. OF PROBLEMS===============8:5:"PLEASE TYPE IN":5)"YOUR FIRST NAME: "; ZB$"IPLICATION":(07)"4. DIVISION":Q07)"5. ADDITION AND SUBTRACTION":}07)"6. MULTIPLICATION AND DIVISION":07)"7. ALL OPERATIONS":07)"8. QUIT"23:10:"ENTER CHOICE (1-8): ";:ZB$"18":ZL1:10080:GET RESPONSE " 150 POINTS EACH." 010000/:GT15609W====CXMENUMY====Sb~gGC0:HS200:HT1000:CLEAR VARIABLES l2:10:"SIGN DRILL MENU"v10:"---------------"::07)"1. ADDITION":07)"2. SUBTRACTION":07)"3. MULT SAY IF THE ANSWER IS:":;10:" + POSITIVE (P) OR"Y10:" - NEGATIVE (N)."u10000:GET A KEY-PRESS{::13);"* CORRECT ANSWERS ARE"14);" WORTH 100 POINTS EACH."10000::13);"* WRONG ANSWERS COST"&14);============#INTRODUCTION5============;f24:10:"PRESS TO CONTINUE";l:2:15:"SIGN DRILL"15:"----------"6:10:"YOU WILL SELECT A TYPE OF":10:"ARITHMETIC PROBLEM. YOU WILL":10:"YOU WILLINITIALIZE ==========5 M1(6),M2(6),P$(6); :T P$(1)"THAT'S RIGHT"l P$(2)"GOOD " P$(3)"CORRECT " P$(4)"VERY GOOD " "P$(5)"FINE " ,P$(6)"WAY TO GO " E: JVL$(1)"N" TVL$(2)"P" ^VL$(3)"P"AL VERSION"1 16:9:"(C) COPYRIGHT 1984 BY"^ 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." 24:8:"PRESS TO CONTINUE ";RT$ ========== RESERVED. *+ +* *I ,************************O .:l b ===================== d T I T L E P A G E f ===================== x }7:11:"S I G N D R I L L" 11:"--------------------" 15:11:" ORIGIN* 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 *  ************************= * *[* SIGN DRILL *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * TO MENU PROGRAM&1 N(4)"RUN MENU",1*NAZ":ZL16:10080:GET RESPONSE,NA$GT$2:`13:5:"HOW MANY PROBLEMS DO YOU WISH":$5)"IN THIS GAME, ";NA$;" (1-50)";."? ";(8);(8);8ZB$"09":ZL2:10080BNP(GT$)GNP1NP501050J:2L23:1:"PRESS ";::"RETURN";::"..TO CONTINUE ";::"E";::"..TO EXIT"=`10000RjGT2110,610,610c4===========t>GAME SCREENH===========MNC0:NT0:SC0:TMR1:CLEAR VARIABLESR\"+--------------------+"f"! SCORE: !"p"! GT2:10040:BACK0"+'Q197GT3:10040:EXITB".'Q20910020H"8'X"V'==========h"`'SUBR - GETx"j'=========="t'ZQ(16368)"~'GT$"""':"'ZQ(16384)"'ZQ127ZQ(16368):ZQ$((16384)):10190"':" ";::(8);"'RF(1)#'$"+":V(N1N2)2:0!S$"-":V(N1N2)2:J!S$"*":V(N1N2)2:d!S$"/":V(N1N2)2:y!' ==============!''PRESS RETURN'!'==============!'16368,0:CLEAR KEY BOARD BUFFER!$'Q(16384)!)'Q141GT1:10040:RETURN"*'Q194ANSWER l==============4 vN1((1)1998)998L N2((1)1998)998v S7130,7140,7150,7160,7090,7100,7110 R((1)2)1:R7130,7140 R((1)2)1:R7150,7160 R((1)4)1:R7130,7140,7150,7160 CHECK IF NUMBER IS + OR -!S0000:GT16200=:)`18:1:958Kj20:9:"DO YOU WISH TO TRY":h9)"TO BEAT YOUR SCORE"9)"AND TIME? (Y/N) ";2ZB$"YYNN":ZL1:10080dGT$"N"600GT$"Y"21256400X==============bSELECT NUMBER gAND GET SCORE !!";]:H^:HF(1)0:HF(2)0:NA0:TURN HIGH SCORE FLAGS OFFN_:yp9:20:"WRITE YOUR AVERAGE SCORE AND"8)" AVERAGE TIME PER PROBLEM ON":8)" YOUR SIGN DRILL SCORE SHEET";24:10:"PRESS ";::"RETURN";::" TO CONTINUE";81):HF(1)1%T(SCNT)HS15974=UHS(SCNT):HF(2)1LVGC25982W:HF(1)1Ģ14:9:" A NEW BEST TIME, ";NA$;" !!";:NA1:NAME AND NAME FLAGZHF(2)1NA0Ģ16:10:" A NEW HIGH SCORE, ";NA$;" !!";:5982 \HF(2)1Ģ16:10:" A NEW HIGH --+"%D21:"!BEST AVG SCORE !"Dv21:"!SO FAR : !"c21:"! !"21:"+-----------------+" :3:31:HT;>9:31:HS;:C:HGT36250:CHECK IF GAME WAS ENDED EARLYJ(TMRNT)HT5972 LHT(TMRNTMRNT);"\10:14:(SCNT);:1GC259607:@I32bJ1:21:"+-----------------+"|21:"!BEST AVG. TIME !"21:"!SO FAR : !"21:"! !"21:"+-----------------+":&7:21:"+--------------- !"#"!PROBLEM FOR !"?"!THIS GAME : !"[0"+------------------+"a5:]7:"+------------------+"b"!AVG. SCORE PER !""!PROBLEM FOR !""!THIS GAME : !""+------------------+" :4:14:(T::"E";::"..TO EXIT"$ 100005 22:1:958L GT2480,2475,4100} 13:25:" "; G=====RECAP=====6GT3GCGC1:GAME COUNTERh1:"+------------------+""!AVG. TIME PER VL$(V)Ģ13:25:"INCORRECT";:EF1:2430Gj 13:25:P$(((1)6)1)St NCNC1Yy :e~ NTNT1y 2:17:" "; SC(NC100)((NTNC)150) 2:17:SC; 4:17:NT; 5:17:NC; 22:1:"PRESS ";::"RETURN";::"..TO CONTINUE "; : 11:1:I140:" ";:= EF0:TURN ERROR FLAG OFFQ$ 11:10:G;".";^. 14:N1;k8 20:S$;xB 23:N2;L 30:"= ";::" ";(8);:Q :V ZL1:ZB$"PPNN":ZTMR1:10080:ZTMR0Y :[ GT$"P"GT$"N"2385] 18:1:958*` GT$ ";::"E";::"..TO EXIT")10000:21:1:958I=========XPLAY GAMEg=========s G1NP 18:7:"PRESS ";::"P";::"...FOR POSITIVE ANSWER," :13:"N";::"...FOR NEGATIVE ANSWER." 7010:GET NUMBERS FOR PROBLEM !"-z"! NO. TRIED : !"K"! NO. RIGHT : !"i"+--------------------+"o:1:27:"+------------+"2:27:"! TIME: !"3:27:"+------------+":21:1:"PRESS ";::"RETURN";::"..TO CONTINUE 10470#':#'ZF1*#'ZK1(ZB$)2X#'ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0`#'ZKu#'(GT$)ZLZF1{#(:# (ZF110290#(GT$GT$ZQ$#(ZQ$;#((:#2(ZQ$(13)10330#<(GT$""10400#F(" ";:#P(:#Z(ZQ$(8)10400 $d(" ";(8);$n((GT$)0104002$x((GT$)1GT$""T$((GT$)1GT$(GT$,(GT$)1)^$(ZQ$;d$(:z$(ZQ$(27)10470$(GT$""10470$(ZK1(GT$)$(" ";(8);(8);$(ZK$(GT$""$(:$(ZTMR1İ10490:TIMER$(10130%(============$:1:"DO YOU WISH (3-25)? ";B868:ZL2:ZB$"09":4400jNP(GT$):CONVERT STRING TO NUMBERNP3NP25(NP$)24204200:BACK,EXIT OR CONTINUEGT$"B"300GT$"E"ė:1745=======================SELECT DIFFICULTYYOU CAN.",T4200:BACK,EXIT OR CONTINUE=YGT$"B"100R^GT$"E"ė:1745i=================SELECT NUMBER OFPROBLEMS PER GAME=================22:1:958:CLEAR RETURN WINDOW:16:1:"HOW MANY PROBLEMS PER GAME"TO GO"'============,,INTRODUCTION>1============G6:2j;9:"DECIMAL POINT ESTIMATION"@9:"========================"E7:6:"THE OBJECT OF THE GAME IS TO PLACE"J:"THE DECIMAL POINT IN THE RIGHT LOCATION" O:"AS FAST AS TIME IS 0+ SF0:GAME HAS NOT STARTEDJ NGAME0:NO GAME COMPLETEDb BS$(8):BACKSPACE} Z$"0":BK$" ":AR$"^" : P$(1)"THAT'S RIGHT" P$(2)"EXCELLENT" P$(3)"RIGHT ON" P$(4)"VERY GOOD" P$(5)"GOOD JOB"P$(6)"WAY ON") 16:9:"(C) COPYRIGHT 1984 BY"V 17:6:"SCHOOL & HOME COURSEWARE, INC." 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." J11500: ========== INITIALIZE ========== TI0:RESERVED. *+ +* *I ,************************O .:j d===================== f T I T L E P A G E h===================== x }7:12:"DECIMAL ESTIMATION" 12:"------------------" 15:11:" ORIGINAL VERSI* 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 *  ************************= * *[* DECIMAL ESTIMATION *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * N:(4)"RUN MENU"&*N%(SUBR - TIMER%%(============7%(ZTMR010506E%)TMRTMR1r%)TB(37):TA(36):SAVE CURSOR LOCATION.%)TT1:TC0:ADD 1 TO SECONDS%)2:39(((TMR))):(TMR)%)TA1:TB1:RESTORE CURSOR LOCATION.% )%NRETURN TO MENU OR END& LEVEL%=======================+H11:"DIFFICULTY LEVELS"g11:"=================": :5:"(1) 2 DIGIT NUMBERS ( 1-99)"11:"4 DIGIT ANSWERS":5:"(2) 2 DIGIT NUMBERS ( .01-99)"11:"4 DIGIT ANSWERS"%!:5:"(3) 3 DIGIT NUMBERS ( .01-999)"@&11:"6 DIGIT ANSWERS"n+:5:"(4) 3 DIGIT NUMBERS ( .001-999)"011:"8 DIGIT ANSWERS"5:5:"(5) 4 DIGIT NUMBERS (.0001-9999)":11:"8 DIGIT ANSWERS"?:D11:"ENTER CHOICE (1-5): ";"IZI$;:RIGHT JUSTIFIES+ hAVT$(AVT(I1))G mJ44(AVT$):J401655w rZ31J4:AVT$BK$AVT$:Z3:RIGHT JUSTIFIES w11HT:AVT$ |SUMSUMAVT(I1) I1 HT20:J211:J3NGAME J : 20:5:"AVERAGE OF ";!NGAMES1ĺ"THIS ";::"AME10J11:J3NGAME:1595,6J12:J310Q;HT0:SETS HTAB INCREMENTER TO 0n@J21:START WITH GAME #1zEJ1J1J6:10HT:"AV. TIME"O10HT:"--------"T1HT:"GAME ";YI1J2J3^I110Ė6HT:I1;:1640 cI$BK$(I1):6HT: ";%NP10NP$BK$(NP):15503 NP$(NP);NP_12:"DIFFICULTY LEVEL : ";LVe:PRINT THE AVERAGE TIME FOR EACH COMPLETED GAME":'INPAVT(NGAME)AV:AVG TIME FOR THIS GAME,SUM0:INITIALIZE ACCUMULATOR OF AVT'S1NGY :6INP825:MORE PROBLEMS TO PLAY IN GAMEC=======PSUMMARY]=======INPNGAMENGAME1:A COMPLETE GAMENGAME0ī1745:NO SUMMARY IF NO GAME COMPLETED:SUMMARY::"SUMMARY:";:12:"NUMBER OF PROBLEMS:1AN$"."(DA$,AD2):1385B_DPLMAN$(DA$,DP1)".":1385gdAN$(DA$,DP1)"."(DA$,LMDP)i2500:VERIFY ANSWERnRF1RF0:1410:RIGHT ANSWER,EXIT LOOPs:x1210:GET ANSWER UNTIL RIGHT}:GT$"E"1500:EXIT THROUGH SUMMAR9:DXDP1?(BK$;BS$;BS$;BS$;AR$;BS$:MOVE ARROW TO LEFTY-8:DXDP1:BK$;BS$;e2DPDP278:DXDP1:".";:MOVE DECIMAL TO RIGHT<1400A:FGT$"E"1365:NOT "E"K1410:EXIT,GET ANSWER LOOPP:UGT$(13)1400ZDPM14009:DXDP1CBK$;BK$;AR$;BS$;:MOVE ARROW TO RIGHT]8:DXDP1:BK$;BS$;iDPDP28:DXDP1:".":MOVE DECIMAL TO RIGHT9:DXDP1 1400:GT$(8)135011:1:868:13:868:15:868DP11400#;===============-GET USER ANSWERB===============P16368,0V:mGT$"":X(16384)X127GT$(X128):16368,0:1245TC1100:TC2000:1220:GT$(21)130011:1:868:13:868:15:868DPLUT DECIMAL(DA$DA$BK$(AN$,I2,1)0$I2@)DA$DA$BK$U.AN(AN$):AN$""z3DX$N$(1)" X "N$(2)" = "DA$8MG((40(DX$))2)=8:868:MG:DX$BDXMG(N$(1))(N$(2))7GDP1L8:DXDP1:".";BS$;Q9:DXDP1:AR$;BS$J==============+DISPLAY ANSWER?==============OPN(1)N(2)\AN$(P)t(P)PAN$AN$"."AN$AN$Z$Z$Z$Z$Z$Z$Z$L3AD1 AN$(AN$,L3)DA$""I21L3:ADD EMBEDDED SPACES (AN$,I2,1)"."1060:TAKE OC6:1:868:I;".""HJ12?MX((1)10ND):X0845ZRY((1)10):YND850lWN(J)X(10Y)\N(J)LON(J)HI845aN$(J)(N(J))f(N(J))N(J)N$(J)N$(J)"."kN$(J)N$(J)Z$Z$Z$pN$(J)(N$(J),ND1)uN(J)(N$(J))z"..GO BACK";4230;GT$"B"500:DIFFICULTY LEVELOGT$"E"ė:500e================{ GENERATE PROBLEM%================*I0:INITILIZE PROBLEM COUNTER/TI0:AV0:REINITIAL TIMER4:9II1>3000:PLAY INSTRUCTIONS4LO.001:HI999:AD8:ND3:645GLV5LO.0001:HI9999:AD8:ND4ULMAD21h============={PLAYING FRAME=============:2:2::"TIME: 0";24:"AVG TIME: 0":3000:PLAY INSTRUCTIONS" ";::"B";::L1:ZB$"15":4400:GET RESPONSE0NLV(GT$)CSLV1LV5585IX:j]4200:BACK,EXIT OR CONTINUE~bGT$"B"ė:415gGT$"E"ė:1745lLV1LO1:HI99:AD4:ND2qLV2LO.01:HI99:AD4:ND2:645vLV3LO.01:HI999:AD6:ND3"{LV1";::" GAME:";::1695D!"THESE ";::NGAMES;::" GAMES:";:X!(SUMNGAME):^!:q!NGAME201745w!:!23:10:"ANOTHER GAME? (Y/N) ";!ZL1:ZB$"YYNN":4400:GET RESPONSE!GT$"Y"800!GT$"N"1720:ANSWER NOT VALID": ":9:57""D E C I M A L E S T I M A T I O N"Q"16:"END OF PROGRAM"`"21:19999r"============"SUBR - TIMER"============"TB(37):TA(36):SAVE CURSOR LOCATION"TITI1"2:2::"TIME: ";TI;:#TA1:TB1:RESTOR *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* COINS *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * -*N4,h(GT$)1GT$"":,j(GT$)1GT$(GT$,(GT$)1)D,lZQ$;J,n:_,pZQ$(27)4478p,rGT$""4478,tZK1(GT$),v" ";(8);(8);,xZK,zGT$"",|:,~ZTMR1İ2000:TIMER,4410,NRETURN TO MENU OR END- N:(4)"RUN MENU"+HZK1(ZB$)2C+JZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0K+LZK`+N(GT$)ZLZF1f+P:u+RZF14442+TGT$GT$ZQ$+VZQ$;+X:+ZZQ$(13)4450+\GT$""4464+^" ";:+`:+bZQ$(8)4464+d" ";(8);,f(GT$)0446""ı#*4240:NO VALID ANSWER9*.================O*0SUBROUTINE - GETe*2================v*4ZQ(16368)*6GT$""*8:*:ZQ(16384)*<ZQ127ZQ(16368):ZQ$((16384)):4422*>:" ";::(8);*@RF(1)*B4478*D:+FZF1): )Q1944270:NOT "B"<)GT$"B":16368,0:4290B):d)Q1974290:NO VALID ANSWER)23:1:958:CLEAR TEXT WINDOW)8);"REALLY QUIT NOW (Y/N) ? ";:ZL1:ZB$"YYNN":4400)GT$"N"GT$"":4200)GT$"E":16368,0:4290*GT$ETURN(k============*(m19:1:958M(r23:8:"PRESS ";::"RETURN";e(w:"..TO CONTINUE,"(|14::"E";::"..TO EXIT ";(:"B";::"..GO BACK";(GT$""(16368,0:CLEAR KEYBOARD BUFFER(Q(16384))Q141GT$(13):42902:2::"TIME: ";TI;2' 24:"AVG TIME: ";AV:u' 19:3:"USE ";::"ARROWS";::" TO MOVE DECIMAL RIGHT/LEFT,"' 21:1:" THEN PRESS ";::"RETURN";:' " WHEN DONE.""' 24:16::"E";::"..TO EXIT";' 'c============(hPRESS R&d 21:1:868#&i 22:1:868B&n 23:1:868:5:"PRESS ";S&s :"RETURN";n&x :"..TO CONTINUE "t&} :& 4230:CONTINUE OR EXIT& RF1:RIGHT ANSWER FLAG& & =================& PLAY INSTRUCTIONS& =================& ' NSWER %( AV(TII):AVG TIMEF%- 2:24:868::"AVG TIME: ";AV:L%2 :_%7 PRINT PRAISESr%< WN((1)61)%A 11:1:868%F 15:1:868:" ";%K 13:1:868:23:P$(WN);%P WN3ĺ".";%U WN3ĺ"!";%Z :%] 19:1:868&_ 20:1:868ER$;"% OFF""$ ER1000ER1000,$ PEER]$ 13:11:868:"PENALTY: ";PE;" TIME UNITS";j$ TITIPE$ 15:11:868:"CONTINUE USING ";$ :"ARROWS";::" PLEASE"$ 9:DXDP1:AR$;BS$;$ 8:DXDP1:".";BS$;$ AN$"":$ :%# RIGHT AE CURSOR LOCATION#3# ====================M# SUBR - VERIFY ANSWERg# ===================={# (AN$)AN2595# WRONG ANSWER# ER((AN(AN$)))AN# ER(ER100):ER$(ER)# ER1000ER$"MORE THAN 1000" $ 11:11:868:"YOU ARE ";* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS LEVEL3LEVEL3&==========6DIRECTIONSF==========O:2"YOU WILL SEE ";LIMIT;" QUESTIONS ABOUT COINS.":"TRY TO ANSWER EACH ONE CORRECTLY.":7:4:" COIN VALUE SYMBOL ",J1C58):CLEAR TO BOTTOM OF SCREENCxZB$"09":ZL2:300:GET ANSWER`(GT$)2(GT$)201390f:LIMIT(GT$):STORE VALUE OF LIMIT:CHECK INITIAL CONSTRAINTS FOR CORRECTNESSZSPED1ZSPED1ZSPED3ZSPED3LEVEL1LEVEL1"YOU MISSED THIS TIME"2:C<GET NAME,NUMBER,GIVE DIRECTIONSoF:10:"HI. WHAT'S YOUR FIRST NAME? ";:PZB$"AZ":ZL10:300:GET ROUTINEZN$GT$:STORE NAMEd:n14:1:"HOW MANY PROBLEMS WOULD":p:" YOU LIKE? (2-20) "; r(9$CH$SP$CH$(J):CONCATENATE LETTER TO STRING7J=:bZB$(20),P$(6):DIMENSION ARRAYSh:FEEDBACK RESPONSESP$(1)"THAT'S RIGHT"P$(2)"CORRECT" P$(3)"GOOD JOB"P$(4)"SORRY"P$(5)"NO, THAT'S NOT CORRECT"(P$(6)RECORD`:3jCOUNT AND READ DATA INTO ARRAYSPtCC1:INCREMENT COUNTERo~C$(C),CH$(C),CV(C),CI$(C)C$(C)"XXX"1140:CC1:SUBTRACT COUNT OF TERMINAL-DATASP$" ":CH$"":CREATE CHOICE PROMPTSJ1C:FOR EACH COIN0CH, 3=FAST:9$LEVEL3:DIFFICULTY LEVEL (1,2 OR 3)P.1=EASIER 3=HARDERV8:BPENNY,P,01," .01",NICKEL,N,05," .05",DIME,D,10," .10"LQUARTER,Q,25," .25",HALF-DOLLAR,H,50," .50",DOLLAR,$,100,"1.00"VXXX,XXX,0,XXX:THIS MUST BE LAST DATA ZQ$(13)ZR0#fZQ$"B"ZR15pZQ$"E"ZR2CzZR3840I]==============p MAIN PROGRAMINITIALIZATION==============E$" ":ZSPED3:SPEED OF TIMER(1,2 OR 3) :1=SLOW8E$(1)"PRESS ..TO CONTINUE"T:E$(2)E$(1)(13)" ..BACK"<E$(3)E$(1)(13)" ..BACK ..EXIT>23:5:E$(I);@:BZQ(16384):ZQ127ZQ$(ZQ128):ZP(16368):860HZTMR1İ700R834W:\(((TI))))):(TI):UPDATE CLOCK)STB1:TC1::RESTORE CURSOR LOCATIONYk============} PRESS RETURN"============*ZR3:ZP(16368):CLEAR KEYBOARD BUFFER6E$(0)"PRESS ..TO CONTINUE"(13)" ..EXIT"($""565ZK1(GT$)/!" ";(8);(8);7&ZKB+GT$""H0:Y5ZTMR1İ700b:370t============SUBR - TIMER============TITI(ZSPED10)(TI)TI760TC(36):TB(37):STORE CURSOR LOCATION#4:((39:ZF1480#GT$GT$ZQ$-ZQ$;3:GZQ$(13)500WGT$""535e" ";::k:~ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1) ZQ$;:ZQ$(27)565 GTQ(16368) ^GT$"" h:/ rZQ(16384)^ |ZQ127ZQ(16368):ZQ$((16384)):430s :" ";::(8); RF(1) 565 : ZF1 ZIĞ ZK1(ZB$)2 ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0 ZK (GT$)ZLZF1COPYRIGHT 1984 BY"A 17:6:"SCHOOL & HOME COURSEWARE, INC."r 20:4:"REVISED VERSION (C) COPYRIGHT 1987" 21:4:" BY COMPUTER USING EDUCATORS, INC." I1:800 1000 *================ ,SUBROUTINE - GET .================ 6ZRESERVED. *+ +* *I ,************************O .:i d==================== f T I T L E P A G E h==================== x }7:16:"C O I N S" 16:"---------" 15:11:" ORIGINAL VERSION" 16:9:"(C) -65);C$(J);20);"$";CI$(J);33);CH$(J)38:@JXJI3:800: PRESS xTZR1340,3330: BACK, EXIT\==============^MAIN GAME LOOP`==============h3400:DRAW INITIAL BOARDrI3:800:PRESS SUBROUTINE|ZR1340,3330:BACK, EXITA23:1:E$:E$;:ERASE MENUG:kNQ1LIMIT:FOR EACH QUESTION:B((1)LEVEL1):SELECT QUESTION TYPE:GENERATE AN AMOUNTA$"":RESET AMOUNT VARIABLEA((1)4001):SELECT AMOUNT OF MONEY);:PRINT PRAISEB( (1).4ĺ", ";N$;:PRINT NAME OCCASIONALLYL( "!";r( NCNC1:INCREMENT NUMBER CORRECT( 2860:SCORE ROUTINE( :( CORRECT BUT TOO MANY COINS( WW1( 20:1:958( W22820:SKIP IF FIRST TRY( SCSC4() 21:" TRY AGAIN.";:I0:800:PRESS E'P ZR23330:EXIT OPTIONd'Z 3800:ERASE ANSWER WINDOWn'd 2860'n ================'x FOR RIGHT ANSWER'} ================' (R$)(A$)2760:CHECK FOR TOO MANY COINS' 20:1:958( 20:1:P$(JSKIP IF CORRECT(& ================>& FOR WRONG ANSWERT& ================^& WW1o& 10:1:958& 20:1:P$(J3);".":PRINT CONSOLATION MESSAGE&2 B3W2:2860:IF QUESTION TYPE 3&< W2Ģ21:1:"THE CORRECT ANSWER IS ";A$;:2880)'F I:SUM VALUE TO TOTAL!% J+% 2520Q% GT$A$RA:SET CORRECT RESPONSE|% GT$A$R0:A1:SET INCORRECT ANSWER% ===============% SCORING ROUTINE% ===============% J((1)31):RANDOMLY SELECT A 'PRAISE' MESSAGE& R(A)2680:===============($V EVALUATE RESPONSE?$` =================f$j B32500:SKIP IF QUESTION TYPE 3$t R0:R1$"":CLEAR STORAGE$~ J1(R$):FOR EACH ENTRY$ R1$(R$,J,1):GET FIRST COIN$ I1C:FOR EACH TYPE COIN$ R1$CH$(I)RRCV(I)%:35::" 0"::ERASE TIMEH# W0TI1:RESET TIMER IF NOT 2ND TRYb# ZTMR1:TURN TIMER ON#$ 17:10:PUT CURSOR AT ANSWER WINDOW#. B3Ė20:POSITION DIFFERENTLY FOR CASE 3#8 ZI1:300:ZI0:GET ANSWER#B R$GT$:SET RESPONSE VARIABLE$L =========="GET ANSWER*"==========K"ZB$"":CLEAR LAUNDER STRINGv"B3ZB$"YYNN":ZL1:2310:FOR CASE 3"J1C:FOR EACH COIN"ZB$ZB$CH$(J)CH$(J):MAKE UP LAUNDER STRING"J"ZL20:ALLOWABLE LENGTH OF INPUT STRING":# 4!===============*!QUESTION TYPE 3?!===============x!10:1:"YOU GIVE A STORE CLERK $";A2$;" TO PAY FOR"!:"SOMETHING THAT COSTS $";A1$;". THE CLERK"!:"GIVES YOU THIS CHANGE: ";R$!20:" IS THIS CORRECT (Y/N) ? " "==TYPE 2 T===============R \10:1:"YOU GO INTO A STORE AND MAKE PURCHASES" ^:"TOTALING $ ";A1$;".";" YOU GIVE THE CLERK" f:"$";A2$;".00. WHAT CHANGE SHOULD YOU RECEIVE?" p20:" (CHOICES: ";CH$;")"; z:!2230:SKIP CASE 30,2130,2190:GOTO QUESTION ROUTINE9(===============N*QUESTION TYPE 1c,===============412:1:"WHAT COINS ARE NEEDED TO MAKE $";A1$;" ?">20:" (CHOICES: ";CH$;")";H2230:SKIP OTHER CASESP=============== RQUESTION ORRECT ANSWER FOR CASE 3XJ((1)(A$)1):J(A$)JJ1:SELECT RANDOM POSITIONfJ12030(1).5R$(A$,J)(A$,(A$)J1):2060:ADD EXTRA COINR$(A$,J1)(A$,(A$)J):OR DELETE RANDOM COIN A$"N":SET ANSWER:$ B209ORRECT ANSWER0A$"":CLEAR ANSWER VARIABLES3900:CONSTRUCT ANSWER STRINGY:wB22080:SKIP IF CASE 2(A$)41730:MAKE UP NEW PROBLEM:R$A$:SET PROMPT VARIABLE(1).5A$"Y":2080:SELECT 50%:CREATE AN INCOSC0(A1$)FP1A1$A1$"0":FP0:ADD SINGLE ZERO, RESET FLAGL:FP0RD:NA2$"10":SELECT AN AMOUNT TENDERED ($1, $5, OR $10)XA100A2$"1"b(1).3A2$"5"l:vB12080:SKIP IF CASE 1A(((A2$)(A1$))100.5):COMPUTE C%3900:CONSTRUCT ANSWER STRINGMA1$(A100):MAKE STRING OF ANSWERS:kFIND DECIMAL POINT{J1(A1$)(A1$,J,1)"."FPJ:SET FLAG TO DECIMAL POINT LOCATION IN NUMBERJ:&FP0A1$A1$".00":1850:ADD DECIMAL AND ZER1:"THE CORRECT ANSWER IS ";A$;:2860.) :o) 20:1:P$(J);", BUT CAN YOU":" DO IT USING FEWER COINS ?";) I0:800:PRESS RETURN TO CONTINUE) ZR23330:EXIT OPTION)" 3800:ERASE ANSWER WINDOW*, W1(RA(R$)(A$))2080:2ND TRY LOOP*6 :*@ INCREMENT SCORES?*J W0SCSC10:CORRECT ANSWERc*T W1SCSC5:RIGHT SECOND TIME*^ W2SCSC1:NEVER RIGHT*h W2TI40SCSC(40TI).5:TIME BONUS ADDED*r W0:RESET WRONG FLAG*| ZTMR0:TURN TIMER OFF+ 3700:UPDATE SCOREB *- * REVISED VERSION *K * (C) COPYRIGHT 1987 *i * BY COMPUTER USING * * EDUCATORS, INC. * * * * ORIGINAL VERSION * * DESIGN,DOCUMENTATION * * AND PROGRAMMING *  ************************= * *[* SCIENTIFIC NOTATION *y* ** ORIGINAL VERSION ** (C) COPYRIGHT 1984 ** BY SCHOOL & HOME ** COURSEWARE, INC. * * 0/5dA1A1CV(J):SUBTRACT VALUE FROM ANSWER[5nA$A$CH$(J):ADD COIN TO ANSWER STRINGe5x3930l5Jr55NRETURN TO MENU OR END5 N:(4)"RUN MENU"5*NR WINDOW4J4:=4 19:1:(958):ERASE PROMPT LINE[4F1:3400:F0:REDRAW BOXa4z4:===================4<BUILD ANSWER STRING4>===================4FA1A:SET COUNTING VARIABLE4PJC11:FOR EACH COIN TYPE5ZA1CV(J)0397NQ03790:SKIP IF NO QUESTIONS ASKEDe32:((39(((TTNQ))))):(TTNQ);:UPDATE AVG TIMEm3:3===================3ERASE ANSWER WINDOW3===================3W03850:SKIP IF 2ND TRY39:13J16 4E$:ERASE ANSWE2tUPDATE SCOREBOARD.2v=================42|U2~5:16:NQ;:NUMBER OF TRIESu26:16:NC;:NUMBER CORRECT26:((39(((SC106)))))2(SC106):PRINT SCORE23:16:LIMIT;:PRINT MAX NO QUESTIONS2TTTTTI:INCREMENT TOTAL TIME*3 0" 1z 5:2:"NUMBER TRIED:"51 6:28:"SCORE:"P1 6:2:"NUMBER RIGHT:"y1 L$L$" ":CONSTRUCT ANSWER LINE1 3700:DISPLAY INITIAL SCORES1 :1DRAW ANSWER BOX1J131(15J):91$:L$:1.J1j2r================= ONLY0\ :CLEAR SCREENK0^ L$" ":BORDER, BACKGROUNDV0` J18w0b :L$;::" ";:RIGHT SIDE0d :L$::LEFT BOX0f J0h :0i 0j 2:2:"QUESTIONS"0l 3:2:"THIS GAME:"0n 2:25:"AVG TIME: 0"1p 4:29:"TIME: T0:SC0:NQ0:W0:NC0:RESET TO4/ 1640:REPLAYA/ =======N/ E X I T[/ =======n/ :10:12:PN$/ 12:1:"END OF PROGRAM.":/ 19999/F ==================/H DRAW INITIAL BOARD/J ==================0R F13590:REDRAW ANSWER BOX. J175::PAUSEF. 16:" *** A NEW BEST AVERAGE TIME ***"[. J175::PAUSEb. Iu. BT(TTLIMIT){. :. 20:1:"DO YOU WANT TO PLAY AGAIN? (Y/N) ";. ZB$"YYNN":ZL1:300:INPUT ROUTINE. GT$"N"3330:EXIT. :"/ TI0:TT0:N ***"&-& J175::PAUSEZ-0 14:"*** A N E W H I G H S C O R E ***"o-: J175::PAUSEv-D I-N BSSC-X :-b (TTLIMIT)BT3260:SKIP IF NOT BEST TIME-l I19:LOOP 9 TIMES.v 16:1:" *** ***"LIMIT)1, :" BEST SCORE: ";(BS107)T, "BEST AVERAGE TIME: ";(BT);, GAGA1:GA1BSSC:BTTTLIMIT:3260:SKIP IF FIRST GAME, :, SCBS3170:SKIP IF NOT BEST SCORE, I19:LOOP 9 TIMES- 14:1:"*** OARD!+ I0:800:PRESS RETURN=+ ZR23330:EXIT OPTION\+ 3800:ERASE ANSWER WINDOWs+ NQ:NEXT QUESTION+ ==============+ ENDING ROUTINE+ ==============+ + 7:1:" PRESENT SCORE: ";(SC107) , " AVERAGE TIME: ";(TT* SUPERVISION BY *; * DAN ISAACSON, PH.D. *Y !* BILL BOTZONG *w "* CHAS SWANSON, PH.D. * #* * $* REVISED BY DON BECK * %* FOR CUE, INC. 1987 * (* * ** ALL RIGHTS LINESV:HG(TS$,1((NL1)LL),LL);:SELECT STRING TO PRINT\VV1:NEXT LINEdNLnVULCt>============@ERASE WINDOWB============ERS40RS39:J1JWLBLFL:LINE NO. TO LINE NO.TWL:LS:(ER$,RSLS1);:PR41497"PRPR3MNU$(NU$,PR1)","(NU$,(NU$)PR1)W1475]t=================PRINT TEXT STRING=================ULCV:ULC IS UPPER-LEFT-HAND CORNER OF TEXT WINDOWNL1((TS$)LL):NUMBER OF TEXT Y$(J):PB$".":#J$J$PB$:V:H(J$)1:J$;@Zv====================txFORMAT OUTPUT COMMASz====================PR(NU$):POINTERPRPR1PR01472(NU$,PR,1)"."14721455:PR0PR(NU$)1K$;vUV1:RH:KK$;x%z:===============OPRAISE/SYMPATHYd===============vJ((1)5)1|:PS01250:SYMPATHYJ$PR$(J):PB$"!"RANDOMLY ADD NAME 1/5 OF TIME((1)5)11J$J$", "N$1257J$SER$,39); J120:J:PAUSE(J5.EJ=================\LDRAW WINDOW FRAMEsN=================y[`KK$(KH$,RHLH1)eUV:LH:KK$;:HORIZONTAL LINEShLV:LH:KK$;oKK$(KV$,(LVUV1)3):VERTICAL LINEStUV1:LH:K$"YYNN":ZL1:300=BL24:FL24:1600:ERASE BOTTOM LINENGT$"N"810T:bZB1:ZE1h==================SUBROUTINE - FLASH==================J51FH:J52(J52)1018V:H:FS$;1022 V:H:( FLAGk(Q)"B"ZB1ZR17p(Q)"E"ZE1ZR2iqZR3840:LOOP UNTIL CHARACTER IS ACCEPTABLEor:sBL24ZBZE:FL24:LS1:RS40:1600:ERASE WINDOWtZR2899:"E" NOT SELECTEDv24:2w"DO YOU REALLY WISH TO QUIT? (Y/N) ";~ZBPTABLEA:24ZE:180B"B";::"..BACK";6C:YDZE0840:EXIT NOT ACCEPTABLEgE:24:18~F"E";::"..EXIT";G:HQ(16384)128:GET A CHARACTER (ASCII VALUE)RQ0870WZTMR1İ700\881a:fQ13ZR0:SET RESPONSE((T1))1:T1;:PRINT TIMER=TB1:TA1:RESTORE CURSORCU============g PRESS RETURNy"============*ZR3416368,0:CLEAR INPUT BUFFER>24ZBZE:7?"PRESS ";::"RETURN";::"..TO CONTINUE";@ZB0836:BACK NOT ACCE(27)565GT$""565-ZK1(GT$)A!" ";(8);(8);I&ZKT+GT$""Z0:k5ZTMR1İ700t:370==================SUBROUTINE - TIMER==================T1T11TA(36):TB(37):STORE CURSOR LOCATION3:37(GT$)ZLZF1:%ZF14805GT$GT$ZQ$?ZQ$;E:YZQ$(13)500iGT$""535w" ";::}:ZQ$(8)535" ";(8);(GT$)0535(GT$)1GT$""(GT$)1GT$(GT$,(GT$)1) ZQ$;: ZQ$============ 6ZQ(16368)* ^GT$""0 h:A rZQ(16384)p |ZQ127ZQ(16368):ZQ$((16384)):430 :" ";::(8); RF(1) 565 : ZF1 ZIĞ ZK1(ZB$)2 ZQ$(ZB$,ZK,1)ZQ$(ZB$,ZK1,1)ZF0 ZKION"* 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." 800 3000 *================ ,SUBROUTINE - GET .====RESERVED. *+ +* *I ,************************O .:i d==================== f T I T L E P A G E h==================== x }7:11:"SCIENTIFIC NOTATION" 11:"--------------------" 15:11:" ORIGINAL VERSgERASE COLUMN 40:DhJ1Ĺ128WLRS(984((WL1)8))895,160LrWLR|n======================GENERATE/DISPLAY PROB.======================L((1)6)2: 2<=L<=7 LENTH OF MANTISSA MA$(((1)9)1): MANTISSA,1ST DIGIT NON-ZERO:J1L1TMA$MA$(((1)10)):DIGIT VALUE BETWEEN 0 AND 9[Ja: CH((1)12)4:CHARACTER BETWEEN -4 AND 7Z0$"0000000"ST$MA$CH0ST$(Z0$,(CH))ST$:ADD ZEROS TO LEFT CHL2ST$ST$(Z0$,CHL2=============%(DRAW GAME WINDOW;(================A(W(GG1:WHICH GAME(UV1:LV16:LH1:RH39:1100:DRAW WINDOW((2:19:(KV$,15);:DIVIDE UP WINDOW(4:2:(KH$,37);(7:2:(KH$,37);()LL10:V2:H2:TS$"PROBL==============6'SM30:MAXIMUM NUMBER OF PROBLEMS<'h'11:1:"HOW MANY PROBLEMS DO YOU WISH"'13:1:"IN THIS GAME (1-";SM;") ? ";(8);(8);'$ZL2:ZB$"09":300')NP(GT$)'.NP1NPSM3615'LZB1:ZE1:800:ZR3570,5610(===ANDARD NOTATION."5& 12:8:"3) MIXED PRACTICE."M& 14:8:"4) QUIT."r& 17:12:"ENTER CHOICE (1-4): ";& ZB$"14":ZL1:300& M(GT$)& M45610& ZB1:ZE1:800:ZR3500,5610& ===================& GET NO. OF PROBLEMS' =====AZ":300%H N$GT$,%R 800:ZR3355,56106% ====@% MENUJ% ====P% g% 3:12:"M E N U";~% 4:12:"-------";% 6:8:"1) STANDARD NOTATION"% 7:12:"TO SCIENTIFIC NOTATION.";% 9:8:"2) SCIENTIFIC NOTATION";& 10:12:"TO ST$ CH(I1)212ĺ"0";!$ '$ :B$ 19:21(CH2)1:".";]$ 20:21(CH2)1:"^";t$ 800:ZR3100,5610$ ==============$ GET FIRST NAME$ ==============$ $ 10:$% "PLEASE TYPE IN""$* :"YOUR FIRST NAME: "; %> ZL12:ZB$"^ MARKER TO LOOK"+# :" LIKE THIS:";W# 19:HL18:I$;:DISPLAY MANTISSA AGAINg# CH03340# I15212:ADD ZEROS TO LEFT# 19:I# CH((I1)26)5ĺ"0"# # :# CH03349# I(L11)21372:ADD ZEROS TO RIGHT$ 19:IC NOTATION ":@" :" WILL BE SHOWN. YOU MUST FIND THE":k" " LOCATION OF THE DECIMAL PLACE IN"" ::4:" STANDARD NOTATION ";::". FOR EXAMPLE:";" VL13:HL5:M2:2000:GENERATE AND DISPLAY PROBLEM" 17:1# " YOU WILL MOVE THE TATION ";::"."::" FOR EXAMPLE:"_!l VL15:HJ14:M1:2000:GENERATE AND DISPLAY PROBLEM~!n 14:HJ(SC$)4::" ";:!v 18:14! "YOUR RESPONSE: ";CH! 800:ZR3100,5610! :! ! "OR"! "--"" "2. A NUMBER IN ";::" SCIENTIFI ===================== & : 0 "SCIENTIFIC NOTATION"U : "-------------------" D :"1. A NUMBER IN ";::" STANDARD NOTATION ": N :" WILL BE SHOWN. YOUR TASK IS TO GIVE" X :" THE EXPONENT (POWER OF TEN) IN"'!b ::4:" SCIENTIFIC NO KH$(ER$,40):HORIZONTAL AND VERTICAL STRINGSY J123:KV$KV$" "(10)(8):Jv J15:PR$(J),SY$(J):J GOOD,TOO BAD,OK,MISSED IT,CORRECT,INCORRECT RIGHT,AW SHUCKS,GREAT,SORRY ===================== INSTRUCTIONS/EXAMPLES VL3:MK:"^";P R(MK1)210:CALCULATE DECIMAL LOC. FROM MARKER POSITIONV :\ q =============== INITIALIZATIONS =============== G0:WHICH GAME PR$(5),SY$(5) ZB1:ZE1 ER$"":J160:ER$ER$" ":J:ERASE STRING31:HL(SC$)'CH;:CHARACTERISTICFINSERT SPACES IN MANTISSAuI$"":J1(MA$)1:I$I$(MA$,J,1)" ":I$I$(MA$,1)VL2:HL16I$;:DISPLAY MANTISSAMKHL(((1)(L1))1)215:RANDOM MARKER POS.VL2:MK:"."; 1)" X 10"*HM32150:MIXED PRACTICE3RTPM=\2160sfTP((1)2)1:RANDOMLY GENERATE TYPE OF PROBLEMyk:pTP22210:SCIENTIFIC TO STANDARD NOTATIONVL:HJ(ST$)1ST$;" = ";SC$;2330VL:HLSC$;" =";VL):ADD ZEROS RTG*J1(CH(CH)2)2:J2(ST$)J1:FIND LOC OF DECML~4ST$(ST$,J1)"."(ST$,J2):ADD DECIMAL TO ANSWER6NU$ST$:1400:ST$NU$:FORMAT OUTPUT COMMAS=SC$ IS SCIENTIFIC NOTATION "FORM" OF ANSWER >SC$(MA$,1)"."(MA$,(MA$)EMS THIS GAME:":1500P)LL13:V5:H2:TS$"PROBS. COMPL:NO. OF TRIES:":1500e)3:20:"TIME:";)LL12:V5:H20:TS$"AVG TIME PER PROBLEM: ":1500)3:17((NP))1:NP;:# PROBS IN GAME)5:17:"0";:PROBLEMS COMPLETED*6:17:"0";:NA0:NUMBER TRIES0*3:37:"0";:T10:TIMERN*ZB0:ZE1:800:ZR25610^*==========n*GAME IS ON~*==========*WP1NP:CURRENT PROBLEM*9:4((WP))1:WP;")";*"VL12:HJ14:HL4:SET PRINT LOCATIONS FOR PROBLEM+,2000:GENERAr7)"NOTATION' RECORD SHEET. THEN":8|ZB0:ZE0:800[8BL22:FL24:LS1:RS40:1600822:8:"WOULD YOU LIKE TO TRY TO";823:9:"BEAT YOUR SCORE WITH";824:10:"ANOTHER GAME? (Y/N) ";8ZB$"YYNN":ZL1:3008GT$"Y"40008:97V14:H1:FH11:LL12R7FS$"A NEW, LOWER AVERAGE TIME PER PROBLEM!!":1000X7:k7(CABA)5470u7BACA7V16:H1:FH11:LL127FS$"A NEW, FEWER TRIES PER PROBLEM!!":10007:7^22:17h"WRITE THESE RESULTS ON YOUR 'SCIENTIFIC"'81:RH39661100:DRAW WINDOW FRAME FOR BEST SCORESS6(3:22:"AVG. TIME PER";k624:22:"PROBLEM:";6<4:38((BT)):BT;6F:6P6:22:"AVG. NO. ATTEMPTS";6Z7:22:"PER PROBLEM:";6d7:38((BA)):BA;6n:6xCTBT52907BTCTENT SCORES(53:2:"AVG. TIME PER";?54:2:"PROBLEM:";X54:18((CT)):CT;^5:~56:2:"AVG. NO. ATTEMPTS";57:2:"PER PROBLEM:";57:18((CA)):CA;5:5 G1BTCT:BACA:547051:22:"BEST-SO-FAR:"; 6UV2:LV8:LH2RCH4260:TRY AGAIN IF ANSWER INCORRECT34[WPk4]CA(NANP10)10:AVG. NUMBER ATTEMPTS PER PROBLEM~4=============4RECAP OF GAME4=============441:2:"THIS GAME:";4UV2:LV8:LH1:RH19 51100:DRAW WINDOW FRAME FOR CURR0:ERASE PROBLEM WINDOWO3BL17:FL24:LS1:RS39:1600:ERASE PRAISE WINDOWf3 700:UPDATE TIMERp349403V18:H39:PS0:1200:SYMPATHY3T1T17:ADJUST TIMER3$:3.TP149403B11:HJ(SC$)4:" ";:ERASE RESPONSE WNDOW3G:+4LERASE AVG. TIME WINDOW426:37((CT))1:CT;:2:a2RCH4890:IF RESPONSE INCORRECTw2ZTMR0:TIMER OFF2V18:H39:PS1:1200:PRAISE25:17((WP))1:WP;:PROBS. COMPLETED2ZB0:ZE1:800:ZR235003BL8:FL15:LS2:RS38:16011:HJ(SC$)4I1zZL3:ZB$"09++--":300:GET RESPONSE CHARACTERISTICj1BL18:FL18:LS1:RS39:1600w1R(GT$)}1:1NANA1:INCREMENT NUMBER TRIES16:17((NA))1:NA;1CT(T1WP10)10:AVG. TIME PER PROBLEM 26:31:" ";:NSE CHARACTERISTIC&0*14:MK:".";80415:MK:"^";>0>:R0CC$(13)42790HBL22:FL24:LS1:RS39:1600:ERASE PROMPT0f47600k:0p9:7:"ENTER POWER OF TEN VALUE:";:PRINT PROMPT0uVTAB 11: HTAB HJ + LEN (SC$) + 4: PRINT " "1wRASE MARKER=/R14600:MARKER NOT TO LEFT OF 1ST DIGITe/14:MK1:" ";:ERASE LEADING ZEROk/:/RL24630:MARKER NOT TO RIGHT OF 2ND TO LAST DIGIT/ 14:MK3:"0";:PRINT TRAILING ZERO/:/MKMK2:MARKER POSITION0 RR1:RESPO:!.vMKMK2:MARKER POSITIOND.RR1:RESPONSE CHARACTERISTICV.14:MK:".";h.15:MK:"^";r.4675x.:.C$(21)4675:NOT RIGHT.R84675:MARKER AT RIGHT EDGE OF WINDOW.14:MK:" ";:ERASE DECIMAL POINT /15:MK:" ";:EFT EDGE OF WINDOW;-&14:MK:" ";:ERASE CURRENT MARKERM-015:MK:" ";~-:RL14440:MARKER NOT TO RIGHT OF MANTISSA-N14:MK1:" ";:ERASE TRAILING ZERO-XR04470:MARKER NOT TO LEFT OF 2ND DIGIT-l14:MK3:"0";:PRINT LEADING ZERO.q,16368,0:CLEAR INPUT BUFFERE,C(16384)128:GET CHARACTERS,C04320j,700:UPDATE TIMERt,4280z,:,BL18:FL18:LS1:RS39:1600,C$(C),T1T12:ADJUST TIMER, :,C$(8)4525:NOT LEFT-R94510:MARKER AT LETE AND DISPLAY PROBLEMI+6TP2Ģ9:7:"PLACE DECIMAL IN THIS NUMBER:"^+ZTMR1:TIMER ONd+:s+TP14720+22:5:"USE ";::"ARROWS";::" TO MOVE ^ LEFT/RIGHT":PRINT PROMPT+24:7:"THEN PRESS ";::"RETURN";::" WHEN DONE";,:"BL21:FL24:LS1:RS40:1600=912:14:"END OF PROGRAM";C9N9p19999T9':o9NRETURN TO MENU OR END9 N:(4)"RUN MENU"9*NT -------+,Z