L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`î)_zu uԱqԱu_(7|]ӠĠԠРŠŠT}dede0dededededed ed e_}d ed ed ededededeLdede)&@9lu`;@r$vu`@*#r9()@*#r9()$xu'vuca(ŠҠԧҠΧ)c_bu%xuq`@*#r9()$uqCzucS(נȠŬΠӬϠՠԠҠȠ)'Ա@u`Աd$uca(ŠҠŠӠΠԠɺFucHuP JuUVW Kua()GLuYMucNuUVW YWXuM6o a(ϠՠԠŠԠҠǠӬҠϠŠԿ)c[bua(ԠŠ)a(ΠϠŠ)cS(ŠԠҠΠĠӠΧŠˠ)*@p()]̭Ġ*a@E(Π)Q/u]0u\}N@"rB:uKM6oP UVWa()GYccPa(Ƞ)cjDu]Ӡ Ԡ٠ĠĠΠˢԠ ҠɽϠԠ$?*`@*#r9()$((`@*#r9()$D*(?*ca(ŠҠӠҠϮ)c_0* D*ccP_8N* 8/?rrrN*a()_*X*a()_*b*a(РΠΧ)_*l*a()_*v*a(Šՠ)_**a()_**a($*d6?e\*`$*\'_*(*Td6?e`%\8'`%\'*Y[%*]ŠӠ6&*M6Po a(ҠŠӠ)FE(ԠƠ)Fc?0*Pa(ϠՠԠϠ٠ά)P a(ӠҠϩ)R@>:*`;@r%\8')`%\')Y[Q)q/? rq/? rM6o PbE()FE()G`$*d6?e\*`$*\'_*(*Td6?e`%\8'`%\'*Y[S*q/? rq/?rM6o PbE()FE()G`~'" 'M A T H S K I L L S'"8<(K17500:K@F(SPF*S,4098,76118,76F)'134,76134,10158,10158,40134,40158,40158,76n.'188,16194,10194,76184,76202,763'220,16226,10232,16232,70226,76220,70220,16r'1s'24t': WAS PRINT "'M A T H S K I L L S' BY PHIL BERRIE" 'VISION PROBLEMS";%A$/%(A$,1)"Y"WH1W%:"THANK YOU FOR THE INFORMATION!"|&%::"HOPE YOU DO WELL, ";N$;"!"0%K11500:K%' AEA LOGO''2'58,7658,1082,1082,4058,4082,4082,76$'118,1098,1098,40109,40981)"N"ī9390"$"(Y OR N)":93608$(C$,1)"Y"CL1>$f$"MAY NEGATIVE NUMBERS BE USED?";A$$(A$,1)"Y"(A$,1)"N"ī9450$"(Y OR N)":9410$(A$,1)"Y"NEG1$O4ī9500$:"DO YOU WANT WHOLE NUMBER ANSWERS"$"FOR ALL DI (2 BY 3)"8^$" '5' FOR VERY DIFFICULT (3 BY 3)"Ph$D:D5D1ī9350wr$:"BETWEEN 1 AND 5 PLEASE!":9260}$$"DO YOU WANT TO RECEIVE PARTIAL CREDIT":"FOR CLOSE ANSWERS?"$:"(COULD BE IMPORTANT!)":$C$ $(C$,1)"Y"(C$,PE A NUMBER BETWEEN 1 AND 5":9130($O,$"CHOOSE THE LEVEL OF DIFFICULTY:"W1$:6$"PRESS '1' FOR VERY EASY (1 BY 1)"@$" '2' FOR EASY (1 BY 2)"J$" '3' FOR MEDIUM (2 BY 2)" T$" '4' FOR DIFFICULT OU LIKE?";M#::#"CHOOSE THE TYPE OF OPERATION:":X#"PRESS '1' FOR ADDITION"y#" '2' FOR SUBTRACTION"#" '3' FOR MULTIPLICATION"#" '4' FOR DIVISION"#" '5' FOR MIXED"#O:O5O1ī9230"#:"PLEASE TYO THE SECOND"2 "DECIMAL PLACE AFTER ROUNDING."Z :"BEST OF LUCK TO YOU, ";N$;"..."`#l #20:22##"ARE YOU READY?";A$$#(A$,1)"Y"ī8999%#K14500:K:8995'#:255:(# PICK UP INFORMATION# #"HOW MANY PROBLEMS WOULD YMINUTE AND WORK 24 HOURS PER DAY, HOW MANY"Ju" YEARS WILL IT TAKE?":Rx:0u\}N@"rB:uKM6oP UVWa()GYccPa(Ƞ)c?DuP a(٠ĠĠΠ)cP UVWa()GYcNuUVW YWXuM6o a(ϠՠԠŠԠҠǠӬҠϠŠԿ)[Rlmnlmnghlmnlmn[Llmnghlmnghlmn[Llmnghlmnghlmn[/u]mnghghgh[rghijklmnijklmnijkgh[#ijklmn[2lmnijklmnlmnlmnghlmnlmn[Iijklmnijklmn[=ijkijklmnlmn[dijkijklmnljklmnijklmngh[.pijklmnlmn[6zlmnijkijk[Llmnghlmnghlmn[Rghlmnlmnijk[=Hlmnijkijklmn[9Rijkijkijklmn[0\lmnijkijka[cfghiŠҠˠ!lmngh[bijk[/ ]ӠԠӠΠaghijklmnijkghgh[Y*ghghֵn[^BlmnijklmnijkijkG[&]ŠӠΠ_ghijklmnijkghgh[&[]ijklmnijk)gh[J.ijkghghghlmn[_8lmnlmnUVWXijkYlmn=lmlmn lmn[Fijklmnghghgh[eijkghijklmnijkgh[^$ijklmnklmn[4ghlmnijk[lghijklmnghghghijk[SghghUVWXijkY9()$`@*#r:()$M6_'ca(ŠҠӠҠ)c_=cca(ӠҠǠҠȠ)oPa()a(Π)Q/]ӠԠӠΠIijklmnijq\ _:q\ 8 rq\ 8 r_Tq \ 8drq\ 88dr rq\ 8 r%UϹVW\YϹKM6o &S(ϠՠԠϠ٠Π)&@:`@*#rrq\ 8 rH_f=Rq q\ 8drq\ 88dr r\q\ 8 rf@p(Ԡ)qq9pf/?rUVW\ <@*#rrqY/zqf/?r`c$` $ԠΠĠٮ)A`$ `$PbE(ŠǮ)_ Pa(ŠӠǮ)_ 'Pa(ՠԠ̠͠ԡ)' Lf/?r`c$R` $>*qq\ 4_f7>qq\ 8 de`[r$+-rq2?r8زrS`-rز%-rqز`-r%-rq q8rqq-rq q `%\`%\ dqqq\ dqòa()UVW-rq`.?6@r$d6?eUVW  o8rMuY"UVWo8rMuYo8r1a(̬)E@E(Ġ)E@E(ŠՠĠή) MNQ`.?6?͠)q/?rq/?r`$qqq!`$qزq`$qزq!`$qزq `$q/?r_q q\ d qq\ 8rrra(Ԡ) `Y!eo8 rP8ra@E(Ӡ)-jo8rP8ra(‡̇ǡ‡Շԇԇχ·) oo8 rP8ra@E()sòq+to8rP8ra(҇Ňć‡Շԇԇχ·)~o8rP8 r9o8rP8ra(ĠŠҠϠŠҠӠΠӠTN\dede0dededededed ed e_X\d ed ed ededededeLdedede`[kb\]ŠϠנ̠ϠŠԠӠǠĠĠϠΠ\a(ŠΠҠϠȠάΠӠŠΠٮ)Y\ca(̠ӠԠŠĠΠ̠ͮŠ̠ŠӠϮˮ)5\ccca(ŠҠҠԠŮ)cPR@&\UVW0\-rq/?r :\YD\_Vlm'n;[f qUVWi8rj8rkqY[PUVWa()GYc*[Pa(ӬŠĠԠ) [q2[PUVWq\Va()Gq\VY"[UVWԱqY[KM6oD[q8<@*#rrrT[Y^[`;@r$h[_r[ h[q[%r[q 8<@*#rrr|[`;@r$[_[ [q[([q<@*#rrq[/[cS(ҠҠӠΠ)&@_xZ [M6L"[fij'kq ZUV8;@rrWX6Z`<@*#rr$ZZq Zq8<@*#rrrZY Zq[[[q`$^[ [q "[UV8rWX6,[`<@*#rr$T[6[q *@[`8<@*#rrr$[J)sZa(Π)QYxZq`;@r$Zca(ŠҠҠΠӠΧ)P S()&@_xZ Z`@9()%[#Zq`@*#r9()%q6ZUVW8;@rrZ`@*#r9()$[ZY.Z`;@r8;@r<@*#rrr$[ ZZa(ՠĠŠŠŮ)ca(ΠŠ͠άҠנҠҠǠŠ)ZZ_nZEdZa(٠ŠԬΠŠˠĠΠŠ͠ή)FnZcccPa(Ϡ٠άŠΧ)Pa(ĠӠPa(ՠԠ̠Ӡԡ)<Zqq2UVW\VUVWYYZ_nZZ(Zoa(ՠŠĠ)FE(Ӡ٠ԠƠ̠ƠԠӮ)"2Zcc`$FZa(ԠĬ)E@2310g"WRONG. THE REPEATING BLOCK IS: ";wC1SSP1(N$,A(C1)1,1);C1:"WHAT IS THE SMALLEST NUMBER OF DIGITS" "NEEDED TO MAKE ONE COMPLETE BLOCK?"E 7100D"GOOD. WHAT IS THE SMALLEST NUMBER OF"]N"DIGITS NEEDED TO MAKE UP ONE COMPLETE"X"BLOCK? DON'T FORGET TO HIT "b"AFTER YOU TYPE IN YOUR ANSWER"lEvEP2100EP(EP)2000"THAT IS NOT THE SMALLEST NO YOU SEE A REPEATING BLOCK OF DIGITS?"K"TYPE Y FOR YES, N FOR NO : ";TGT$]GT$cuGT$"Y"1860GT$"N"1720N112310"WELL. LOOK FOR THIS: ";C1SSP1(N$,A(C1)1,1);C1&:0N1N11:1BC11B3AA10)B(C1)A7Q(AB)DA(C1)QS"A(AQB)[,C1i6C11B3z@C2C11B3JB(C1)B(C2)1640TC2^C1hSC1rPC2C1|C11S3P1(N$,A(C1)1,1);C1"..."'"DNED. PLEASE" "TRY AGAIN.") 1310W "THE DENOMINATOR MUST BE LESS THAN 100."z "PLEASE RETYPE YOUR NUMBERS." 1310 N10 936 "THE DECIMAL REPRESENTATION OF THE" "FRACTION "A1"/"B" IS :" (AB);".";AA(AB)" "MUST BE < 100." N615 N$"0123456789"? S50E N A,BX (A1Al 2A999999.1370 <"THE NUMERATOR MUST BE LESS THAN 999999." F"TRY AGAIN." P1310 ZB01400 dB1001460 n1430 x"DIVISION BY ZERO IS UNDEFI , "WHEN THE QUESTION MARK APPEARS,"U "SUPPLY TWO NUMBERS SEPARATED BY A" "COMMA. THE FIRST IS THE NUMERATOR AND" "THE SECOND THE DENOMINATOR OF" "THE FRACTION. THE NUMERATOR MUST BE" "LESS THAN 999999, AND THE DENOMINATOR j"THE FORM A/B, A AND B BEING INTEGERS."[ t"FOR EXAMPLE, .25 AND 8/7 ARE RATIONALS." ~"THE LONG DIVISION INVOLVED IN CHANGING" "FRACTIONS TO DECIMALS IS SOMETIMES" "RATHER TEDIOUS, SO THIS PROGRAM WILL" "DO THE DIVISION FOR YOU."************************************ 1 B(300)A BL300:BC0M $A(500)] .AL500:AC0k 8:936: B" DECIML " L"CHANGES RATIONAL FRACTION TO A DECIMAL " V:: `"A RATIONAL NUMBER CAN BE WRITTEN IN"+J *****************************************************************  * THE FOLLOWING REMARK IS FROM THE ORIGINAL TIMESHARE VERSION. *  * REVISED: 7/74 (M. OLSON) * %  ***************************** }]ΠٺŠ }]ұ!}]ŠӬ}]źΠŠ ϠŠ)Ta(ҠԮΠՠŠŠ)a(ҠԠŠ̠ΠΠ)Ba(Ů)ca(ΠՠȠϠРŠŠ)a(٠ٮ)<o8rP8ra(ԠŠΠ٠Π٠Ϡή)R@[QdYo8rP8rMu[+UVW-rq-rqY%S(ϠՠԠŠӿ)&@`@9()$Mo8rP8r-a(ՠĠĠ̠ŠȠƠ).a(נҠΠӠԠ)+a(ϠΠr.?r.?rY (\2_&2o8rP88r r<b-r&Fo8rP88r r%Pq-r-r Zb&do8rP88r r"nbd-rE()xUVWq\ da() Y_"o8rP88rr\ `-r$a(҇ɇLJȇԇχ·)-rq-r\2_~8a(ǡ٠Ρ)-rq-r.q6?UVWdӲq.? J  I:::+ PRINT TABLEAU: I1 M2jJ1N1:QZA(I,J):" "(QZ100.5)100;:Jt: I:" TO CONTINUE HIT ANY KEY AND RETURN";: Z$:: 360 CHECK FOR FEASIBLE SOLUTION A(M2,N1)1.E03 790  820RAA(I,N1)A(I,JS)' RATE 5406TERA:ISI> I]& PERFORM PIVOT OPERATIONw0PIA(IS,JS):KS(IS)JS: J1 N1DA(IS,J)A(IS,J)PIN JX I1 M2b ISI 660lFACA(I,JS)v J1 N1:A(I,J)A(I,J)FACA(IS,J):P2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES).  WAS PRINT "BY A COMMA, FOLLOWED BY A ." P1310t "PLEASE CONSULT YOUR TEACHER." I12000 I WAS END D$"": CTRL D ENTERED$ D$;"RUN MTH-PAK". 2330 e}:<><> CONVERTED FROM HZ$"N"2320P WAS PRINT "TRY ANOTHER FRACTION. TYPE THE ""TYPE THE NUMERATOR AND DENOMINATOR, SEPARATED BY A COMMA, FOLLOWED BY A ." WAS PRINT "NUMERATOR AND DENOMI NATOR, SEPARATED" F, "A1"/"B","&"THE PERIOD IS "P"."DS50P1A(SP)02250MS51S}"DECIMALS WITH A REPEATING BLOCK OF""ZERO ARE CALLED ";"TERMINATING DECIMALS."N662320"WANT TO TRY ANOTHER FRACTION? Y OR N"Z$*EP23104N6N61,>N622170XH"THAT IS RIGHT. THE NUMBER OF DIGITS"R"NEEDED TO MAKE ONE COMPLETE BLOCK IS"\"CALLED THE PERIOD. FOR YOUR FRACTION,"f""A1"/"B", THE PERIOD IS "P"."p2190 z"RIGHT. FOR YOUR FRACTION1,Y(X1)X,Y(X)X+"ANOTHER RUN ";3A$G(A$,1)"Y"70MJ141592 OY79.5A2(C2)(X12798X2(X1)39S&NY79.5A2(P2X2C2)d0X1,OYX,NYn:OYNYDY(X)Y(X)NY79.5XXb:::g3l"THE SUM OF THE TWO WAVES"q"WILL NOW BE PLOTTED."vJ11000:JX1279XX1,Y(X1)X,Y(X) X$ :::+ 2T "INPUT PARAMETERS FOR SECOND WAVE:"m "AMPLITUDE (0-1) ";u A2 A0A21440 A2A239.5 "WAVELENGTH (>1) "; P2 P21470 P23.141592P22 "PHASE "; C2 C2C223.LITUDE (0-1) "; "A1* ,A10A112809 6A1A139.5R @"WAVELENGTH (>1) ";Z JP1h OP11320} TP13.141592P12 ^"PHASE "; hC1 kC1C123.141592 mY(0)79.5A1(C1) rX1279 |X1(X1)39 Y(X)79.5A1(P1X1C1) " <A$:(A$)060! F:::* Z:39 d0,0279,0J x0,39279,39[ 0,79279,79l 0,80279,80 0,120279,120 0,159279,159 0,00,159 J128039 J,0J,159 J 1 "INPUT PARAMETERS FOR FIRST WAVE:" "AMP"AFTER PLOTTING THE TWO WAVES,"F -"THE COMPUTER WILL PLOT THE SUM"_ 2"OF THE TWO WAVES." 4:"THE WAVES WILL BE PLOTTED ON A GRID" 5"WITH THE X-AXIS ACROSS THE CENTER AND" 6"THE Y-AXIS ALONG THE LEFT SIDE." 7::"HIT ANY KEY TO BEGIN.SE"& "PARAMETERS FOR EACH WAVE:":: " AMPLITUDE"O " WAVELENGTH"a #" PHASE": $"THE PHASE IS MEASURED IN WAVELENGTHS." %"FOR EXAMPLE, A PHASE OF 0.5 WILL SHIFT" &"THE ENTIRE WAVE TO THE LEFT BY 1/2" '"WAVELENGTH.": (O WRITTEN BY SCOTT H.7 COSTELLO, TIES, 12/78V PRELIMINARY VERSION. FORs DEMONSTRATION USE ONLY <><><><><><><><><><><><>Y(279)J110::J "THIS PROGRAM WILL ALLOW YOU TO PLOT" "TWO SINE WAVES BY INPUTTING THE     (͠ŠҠӨҠө)'$S(ҠԠҧӠź)&@%$S(ҠĠҧӠź)&@.M8UVW-Bo8rP88rra(Ԡ)-Lo8rP88rra(̠)/Vo8rP884rD4rC@"rC@"r\M*a(ȠƠŠǠϠՠԺ) ca() ca() ca() ca(ŠƠ̠)(S(ŠŠҠƠҠſ)'`$0S8rP8ra()Go8rP8ra()[9o8rP8ra()Go8rP8ra()[]Į:o8rP8ra()Go8rP8ra()[]Ԯ=o8rP8ra()Go8rP8ra()[]ԮΠO4rD4r*Oa()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o M0_,do8rP8ra()Go8rP8ra()[,no8rP8ra()Go8rP8ra()[,xo8rP8ra()Go8rP8ra()[,o8rP8ra()Go8rP8ra()[,o8rP8re8.?>rrde.??r8.?>rr_mm  ii е $H$#i h$`ZdJedKe dede d<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBedCeM6;dmm  ii е $H$#i  h$`) i> i` e! `Hi  hLXn*UU*ժ !!""##( (!!(""(##P P!!P""P## Lwh%h$` #8 "P" N  h `H(   `$i! `,0 %# `HhH`h` % N ȹN m  $e   `)iѩ$"%  $H%H$%%#  Lw h%h$`  #8 "P" N ȹN Hmhm$e }M ee` HHH`) N OI,hhh (,H hH h hɛɍ  `ɛL3L L Lb L Lj `Hhh`HH(h`  ` edCeM6;de8.?>rrde.??r8.?>rr_ HH6: 06: 6,P,W,Rhh`HH6,Q,Thh`ɍ Ɋ ɒɓ L| ,X  L)@ &ee% N LLL3 ` ``l6  L j LB b LX LpL !A```ZdJedKe dede d<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBnZdJedKededed<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBe0dCeM6;de8.?>rrde.??r8.?>rr_,T ,U HL        (10)1): C1 760"C1: 760LC1MS100(10):C1CC1:RRC1: 500x :" MAX ELEVATION IS 89 DEGREES": 5304:" MIN ELEVATION IS 1 DEGREE": 530H:" TARGET OUT OF RANGE": 670\:" THE TARGET HAS DESTROYED YOU!": 670NVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). 1590"""TIME'S UP TRY ANOTHER.",,1370;6E01710P@(N1E)L11630`J"RIGHT ON"jT1370^(N1E)L21680hK21690r"TRY AGAIN."|K21470"CLOSE. VERY GOOD.""TRUE VALUE ";N11370t}:<><> COIT, B = RETURN TIME, E = INPUT VARIABLE. C:EE$"":B0:16368,0e:BB1:BR50B12800:1540~:(16384)1281500:AA(16384)128:AA131540:EE$EE$(AA):(AA);:16368,0:BB2:1500:36,0:BB50:E(EE$)B256HIT ANY KEY WHEN YOU ARE READY TO BEGIN"3 ": ";< (GT$F 2936O <R10Y FL1.2c PL2.5i Zo dw nK1 xN(100(1))2 N321400 X1N "-"; X N1NN9  "ESTIMATE: ";): ENTER ROUTINE, R = TIME LIM YOU NEED TO ADJUST MY MEASUREMENTS"* < "----------"B p "USE YOUR RULER TO MEASURE THIS LINE IN" "CENTIMETERS. TYPE THIS MEASUREMENT" "FOLLOWED BY A "; N9 N9N910: <><><> N9 IS CALIBRATION FACTOR.( 23:"GMENT IN CENTIMETERS. TYPE YOUR"P t"ANSWER AFTER THE WORD ";::"ESTIMATE:";[ ~:"." "DON'T FORGET TO HIT ";::"RETURN"; :" AFTER" "ENTERING YOUR ESTIMATE. ANSWER WITH 0" "FOR ESTIMATE TO STOP THE PROGRAM." :$ "FIRST:14)"OPTIMAL SOLUTION":MI1M:14);:"X ("KS(I)") = "A(I,N1):IS'1 M27J1N1:QZA(I,J):" "(QZ100.5)100;:JA: Ix:" TO CONTINUE HIT ANY KEY AND RETURN";: Z$:: 820 PRINT MAXIMAL OBJECTIVE FUNCTION AND SOLUTION::" MAXIMUM VALUE OF THE OBJECTIVE":" FUNCTION IS "A(M1,N1)ERA:ISI I1 PERFORM PIVOT OPERATIONSKPIA(IS,JS):KS(IS)JSq J1 N1:A(IS,J)A(IS,J)PI: J8 I1 M1B ISI 1140LFACA(I,JS)V J1 N1:A(I,J)A(I,J)FACA(IS,J): Jt I~ PRINT TABLEAU::: I 12505 CHECK FOR UNBOUNDED OBJECTIVE FUNCTIONC I1 MY A(I,JS)0 960a Ik 460 SELECT SMALLEST POSITIVE PIVOT RATIOIS0:TE1.E10 I1 M A(I,JS)0 1020RAA(I,N1)A(I,JS) RATE 1020 T.::" NO FEASIBLE SOLUTIONS EXIST": 9999^* SUPPRESS THE ARTIFICIAL VARIABLE COLUMNSi4NNNK> SEARCH FOR A NEGATIVE INDICATOR IN THE Z ROWHTE1.E06:JS0R J1 NN\ A(M1,J)TE 880fJSJ:TEA(M1,J)p Jz JS0 )] UVW Y_ N Na(Π)QN]Šˢ N]Ġ٠̠ʮNJN]ŠĠO]٠ŊO]ȠŠO]ŬϠ)'ccS(ŠҠ)'q/?r M6 qa(Ӡ)FGTo.?%rP `$"q8r`/?dr%q6`6%a(Ϡ)`%a(Ϡ)q\P_ a(ՠԠԠΠ)FE()a( KM6N@" ro UVWdY@p(Š)UV WX6 (P8r 2a@*#rG<UVWxYFYK\PUVWY_PUVW2Zq.?6?r.?6?r_UVWYdYn[/M6oS(ˠҠ͠  ҭ)GPa(ҭҭ)GPa(ҭҭ)SUVWcPbG\ `$qqqqqq P8 rbE(Ϡ)FGPa@G P8² rb²E(Ϡ)F±GPa()G"P8 rbE(Ϡ)F)@p()X`$a()E@E()Ա@p()Բ@p()Գ@p()@p()Na@E@Fo Pa@E()GPa@EԱ@GPa@EԲ@GPa@EԳ@>Pa(ΠϠ)GPa(ΠϠ)GPa(ΠϠ)>Pa(ҭP a@GO`$a()E@E()Ա@p()Բ@p()Գ@p()@p()]`$a()E@E()Ա@p()Բ@p()Գ@p()@p()T`$a@E()Ա@p()Բ@p()Գ@p([a@G+`de dededea@E@Gea()fa(ӽ)ga(ͽ)ha(Ľ)ta()\~`@9()$``@9()$UVW%`@*#r9@*#r$ Y_`"a@Mo`($@_1a()Gde[ \0uM N@"rC@"cr@p()@a@E@E@E()GUVWPoa@*#rGYUVWYa@@p(د)ùq׹qqqqqVq\"YOU LOSE"fW1p+z"YOU WIN"4W1:IN02230TNNP^2080gW0ms}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.md}:<><>PP01990 2020="APPLE WINS BY FORFEIT"FW1L]P(P)2040g2080xP(A)2070PN2130 2080PB2100 "ILLEGAL MOVE, REENTER IT: ";*19504NNP>N02130H2200RM12170 PLE TAKES ";N;" AND LOSES" .NB18507W1Y&"APPLE TAKES ";N;" AND WINS"_0q:PQC(QC)DP(A)1880NPAXPB1900bPBlNNPv"APPLE TAKES ";P;" AND LEAVES ";NW0:"YOUR MOVE : "; PROCESSING JOINT BOARD (TIES). CҠԠҠӮ) ^q_+*ca(ՠԠԠΠ)FE(Ӯ) a()cc"a(ϠՠԠϠ٠ο)GR@`@*#r9()$@p()a@E(Π)Qq+c,a(ԠР)GT6a(ĠР)GTr^q0?r0?rt`6$v`$ x`$,a(٠ҠӠĠ٠ҠӮ)_.a(٠ҠӠҠԠҠӮ)_-a(٠ҠӠa(ҠРӮ) ca()+a(ԭƠՠˠՠ)'a(٠ҬҠҠӠҠ)a(ȪРӮ)cc-a(ɧ͠ǮǮLJ)("a(ȡɠŠҭĠˡ)#q/?cr $ˠҠƠ)'a(ҠӠҠҠҠ)(a(ҠϠРӮƠɠ)*a(ՠԠՠŠĠ٠))a(ԠӠԠ٠ҠӠ))a(ҠРӠҠԇ)'a(٠ҠӠŠŠӠŠƠ)KUVWcYdN@"rN@" r%na(ϠՠԠӿ)GR@x`@*#r:()$0ca(ɠ̠ˠƠҠ͠Ϡ)(a(٠ϠӠ٠ҮҠ)$a(Ӯɧ̠̠ՠƠ)&a(ŠĠ٠  q(UVW\VUVWYY Yq/YccS(ӠΧϠŠ)&@M6/Y`$(ZoPa(ì)E@E()[Zqq2UVW\VUVWYYUVWdԱqY. ZccȠŠԠ)F-rE()F-rE()3Ya(ȠӠҠ)a(ŠΠſ)YcPR@\xZYq6d-rY`1?r $Y:YccPa(ԠҠӠ)FdG`8dr$YYa()F1?dr_YRYcccPa()q-r$tY`Y-rq/?r jY_VY*tYccS(ӠΧϠŮ)&@T~Yd"eM6cPa(ҠŠԠ)Pa(ŠΠӺ)c)YPa(٠)F-rE(ؠ)F-rccXYa(ԠӠŠŠƠŠǠ@Y\xZ)Yq8d8- r- r- rrr- r$Y`1?r $BY:.YccPa(ԠҠӠ)FdG`8dr$VY8Ya()F1?dr_VYYBYcccPa(Ԭ)E@E()qq(UVW\VUVWYY LYqVY`)qq(UVW\VUVWYY XqWXccS(ӠΧϠŮ)&@M6a(ΠԠԠЧӠΠŞ̌)2Xa(ĠԠŠحŠƠЧӠ)F- r2YcPS(ԠӠŠ٭ŠƠЧ)&@ZXd"eM6Pa(ԠӠŠŠƠ)Pa(ԠȠ̧ӠŠ٭ӿ)XcPR@\xZXq8d- rr- rX`1?r $X:XccPa(ԠҠӠ)FdG`8dr$XXa()F1?dr_XRXcccPa(q8d- rr- rfX`1?r $X3pXca(ԠҠӠ)FdG`8dr$XzXa()F1?dr_X\XccPa(ԧӠԬ)E@qq(UVW\VUVWYY Xq)XccS(ӠΧϠŮ)&X- rq/?r  X_ X)*XccS(ӠΧϠŮ)&@Y4XM6cPa(Ş̌ӠŠκ)cPb- rE(ؠ)F- rE(٠)F- r/>XccPa(ԠӠŠŠƠؠԠ)'HXPS(̧ӠŠحӿ)&@RX\xZ\XrW`1?r $W3Wca(ԠҠӠ)FdG`8dr$WWa()F1?drW_WQWccPa(ԡ)qq(UVW\VUVWYY WqW`- r$ XW- rq/?r X_W X`- r$*X)FdG bW`d$Wa()F1?drlW_WPvWccPa()qq(UVW\VUVWYY WqBWccPa(ԠӠŠ٭)Pa(ƠŠŠſ)WcPS()&@W\xZWq8d- rr-ӠΧϠŮ)&@OWM6oPa(ԠӠŠŠƠ)Pa(ŠŠΠӺ)0&WccPb-rE(ؠ)F-rE(٠)F- r0WccPS()&@:W\xZDWq86d-rr-rNW`1?r $vW$XWcca(ԠҠӮVccPS()&@V\xZV`8d-rr$V$Vcca(ԠҠӠ)F-rV_VZVccPa(ԧӠԬ)E@qq(UVW\VUVWYY VqV`-r$WV-rq/?r W_V+WcccS(ұa()qq(UVW\VUVWYY Vq+VcccS(ӠΧϠŮ)&@XVM6oPa(ԠӠŠŠƠ)Pa(ԠŠŠΠӺ))VccPa(٠)F-rE(ؠ)F-rrE()U6VccPa(ԠӠŠŠƠŠ)Pa(ǠȠŠӿ)c @VPR@JV\xZ+TVq88-r-rrdr8-r-rr^V`1?r $|V1hVca(ԠҠӠ)FdG`d$VrVa()F1?dr_VP|VccP0 \N\N@"rC@" rC@"rD4rC@"r M6_[$ NUVWԱqY[VdedeM[V`-r-r$,VV-rq/?r "V_VX,VM6ccca(ΠŠӠ)F-rE()F-rE(Ġ)F-rE()F-              $Ta()E@G#Tq.?r`$de0^`$h`$hw_h`$|0ra@E()E@E@Gq@B;@rrp()|`$`$/\Za@Gq@B;@rrp@q@E()E@E@Gqq `%q_1`$`$a()Gqq6-q`'$q`Թ$xqԹdeq[,@p()qde 1q@`$Ja@E@GJ``%a@E@G`%a()E@G>q.?6@r`$d6?e`$a()G_`$X`$\Za@Gq 8rq` $_`$w_b`$aª@a(ĠȮׯͯ)(_Zq8ra_ñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[+dqdeqqq xq&Ŭ٬C]Ҡ̠ҠŠƬ٬C ]ĠΠΠ̠ԬϬƮC ]٠͠ΠC ]C]Ԡ٠ӠƠŠ֮ƠC]ĠƮŠԮƠΠC]ҠŠ֠àC]Ġ٠Š̠ƠC]C]̠C]C]٠Π                 gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4    zed{e`d|e[d}eUfd~e deSdeEdeCdeTdeOdeRdeSde LgdeFdeRdeEdeEdedededel[z_ed`e}daedbe Ucdceddedeedfedgedhe~diedjedkeUddle dmedne doedpedqedredsedte`Ueduedvedwe%dxe dye"ddDe8dEedFeLdGeU`dHedIe dJedKedLedMe|dNedOedPeUadQedRe}dSedTedUedVedWedXedYeUbdZed[ed\ed]e|d^edd)ed*e d+ed,eU]d-ed.ed/ed0ed1ed2ed3ed4e d5eU^d6ed7e d8ed9ed:ed;e d<ed=ed>eU_d?ed@eLdAe-dBedCededededeUZdededededededededeU[dededededeLd ed!ed"ed#eU\d$ed%eMd&ed'ed(e+]ŠŠԠŠĭ̤ a(ΠɬϬ)M6\Xa(ӠˠӠ)GM(a()2QUXdededede|dedede}dede UYd ed ed ed ed e    'K ?'M6B'a(Π)Q'$F_='`=>r$d5q.?6?rq.?6?rq.?6?rq.?6?rq.?6?rqq/?r_dUVWXghY[ Lfgh'L'UVW$'f.'lm'n8'Y='UVW Y>] M6 Ld6?e f UV(W/ ij'kYf qUVWX(\ 2q<YFqqPqqdfgh nf gh xqq q`/$F`=>r $`  gW'  `^ :F Y %^LǏLZ^[_\Z][` 1 8tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?AVENTION 80 L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&* we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us andààH /Ѽdd`c_cPa(Ǡ)G a(ŠԠҠӇ)Fca(٠),c@q_ c. a(Ԡ)4_Š)G a()a(Π)Q M6oc q/? r q/? r `$ qPa(נȠӠ)FE()FG (a()GT<`6$F`6$Z P`$ dq`$xca(Ǭ٠·)) c a(ƠՠԠ)G a(ŠΠ). ca(ϠŠ͠Ϡ͠) a(ŠΠ)' ca(ϠԠ͠ŠΠ)c$ Pa(ȠϠՠԠ)GR@ `@9()$Z _M6o Pa(ӠΠĠ)  a(ՠŠŠΡ)( a(ՠ̠ŠԠҠԠ)# a(ӠԠŠԠҮ) ca(Ҡ)G#& a(Ӡՠ̠ŠΠ)0 a(ԠҮ): cX a(ƠՠԠ)Gl a(ŠΠԠ)cq_dcPa(Ǡ)G a(ŠԠҠӇ)Fca(٠)cq_| Q oP  a(ŧӠ) cUVW'a()GY* a(Ӡ̠͠ԠϠ) a(ť N@" r M6_  ZM6_o dq/? r q/? r ,q|Pa(נȠӠ)FE()FG a()GT`6$`6$ `$q`$cXa(Ǭ٠·)c_|c0a(     dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍeʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$edeLdedede`[kb\]ŠϠנ̠ϠŠԠӠǠĠĠϠΠҠӠΠӠ`;@r$`@*#r9()$na(Π)Q$ NUVWԱqY[VdedeM[TN\dede0dededededed ed e_X\d ed ed edededa(Ġ)GYcca(Ƞ)FH(Ԡ)FJ`2$^q88rra(ȯΠ)FE()F_`d$_ q_`$^q88rdr_"ca(ϠՠԠϠ٠ο)S(ӠҠϩ)&@&0 \N\N@"rC@" rC@"rD4rC@"r+dM86rPa(ΠǠ)ncS(נ٠)' x^q UVW ^q/?r`$de2de(Ma(̠)G_ ^qdede(M   L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  F_LFqca(ԠΠҠŠ)S(ŠͧϠΠϠ)&@P`@9()$Z_Za(Π)QF?rYa(ǠҠՠ٬٠)_DM6M6M6a(٬ՠԠŠԠҡ)qD(q8dr`F%q`P%q`Z%q=2a(ҠŠӠ)FE(ԠƠ)FE(Ӯ)cq<` $ŬM6o4a(נ٠ӠҠǠ)Tqqq/? rq/? rP bE()FE()q%UVW`.?6@r$Y_Td6?e `$UUVWq.?6?r.?6?r.?6{ N@"r KM6(]٢٠'] ˠ']٬]ЮЮ̮ŮĠ']͠٠Š]ȠŠ(]   ŠŠz#?Xð à РҮƠɠ̠ ŠŠԠ ̠ɠŠ ǮӠ ՠؠŠӠ ĮԮŠ ŠӠ ŠӠ !Ƞ̠ȠڠҠȠӠȭˠ٠ ̠ŠҠҧӠ à* Š٠ ӠҮʰԮԠԮҠԮ͠   ̠ӠȠ Š à  ȠàӠҠ Ϡ ŠƠӠ Ҡ "ҠȠ" ŠΠӠΠΠǠ)FE()G\d Tq^`$hq׹q׹rPa@E()E@E()E@E()|`$Ma@0a@E(ͮ)ca()E@E(ŠŠ)ca(ϠĠҠծ)4oa@E(ԧӠԠή)UVW Y$Fx_ qq1q86r`$F_ qq1q86r`$F_ qq1q86r`$F&ca()FE()E@*#rE(%q"Թq̹q Թq\ <dea@ >a@E()(Ade dedede'o !Fq/?rq/?±r²%K`/?r%q6`/?r%q6P_Z8r( Zqq1dq86r`Y'qNa@E()E@GoP 4a@E@FE(Ƞ)a(Ҡ)G@oP%\`@9()$q<@r`$9oPqa@E()E@E(נ٠)#a(ҠͿ)GԹq\d`HOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). PHKC(KC)2150RC'\K;" ";.fK4p>z1170D}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.>d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCA CC1X0"THERE ARE ";C;" PRIMES"L"BETWEEN ";D;" AND ";BV1170p PRIME NUMBER LIST"PRIME NUMBERS BETWEEN ";A;" AND ";B;" :"A22090 "2 ";D3 2100*D(A)((A2)A2)4KDB2>C3(K)2D2N1 ND(ND)1820'D5D," * 1"?1170JNNDX&N11860c0D"*";m:1780tDD~N1170X PRIME NUMBER COUNT bDAlD11930vC01940C1XDBA2(X)XA(XA)1990MON MULTIPLE (LCM)hN1&rMBN;|MA(MA)1690FNN1P1650uM;" IS THE LCM OF ";A;" AND ";B1170 COMPLETE PRIME FACTORIZATIONNA"THE PRIME FACTORIZATION OF ";N;" IS "N11770" 1 * 1"1170  MD(MD)1510 D! + 11707 D;" ";A 1480h  GREATEST COMMON FACTOR (GCF) "GCF OF ";A;" AND ";B;" IS "; DA AD(AD)1590 "DD1 ,1560 6BD(BD)1610 @1570 JD T1170^ LEAST COM30 <8 F"ENTER NUMBER FOLLOWED BY ";::"RETURN":? PAE ZP dA(A)f nA0A50001420 x"CHECK ENTERED NUMBER" 1340 P1430,1530,1630,1710,1880,2030,2180  FACTOR LIST MA "THE FACTORS OF ";M;" ARE "; D1M P P P1P711002 P1P41340@ P72180F q "ENTER NUMBERS SEPARATED BY A COMMA," "AND FOLLOWED BY ";::"RETURN"  A,B  A(A) B(B) A0ABB10001420 ("CHECK ENTERED NUMBERS" 212/ 8" FACTOR PACKAGE "7 B:P L:"1 = FACTOR LIST"_ V"2 = GCF"n `"3 = LCM" j"4 = COMPLETE PRIME FACTORIZATION" t"5 = PRIME NUMBER COUNT" ~"6 = PRIME NUMBER LIST" "7 = STOP" :"OPTION? TYPE 1-7 : ";ORESMAN CAMP SERIES * x  * REVISED TIES, DECEMBER 1973 *  ******************************************************************* $:936: ." FACPAC "? L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * FACTOR PACKAGE * -  * ADAPTED FROM SCOTT-F     0 770+ CHECK FOR UNBOUNDED OBJECTI9 I1 MO A(I,JS)0 480W I::" THE OBJECTIVE FUNCTION IS UNBOUNDED ABOVE": 9999 SELECT SMALLEST POSITIVE PIVOT RATIOIS0:TE1.E10 I1 M A(I,JS)0 540ABLE A BASIC VARIABLE$" I1 M8, LS(I)0 340b6 J1 N1:A(M2,J)A(M2,J)A(I,J): JjT I^ SEARCH FOR A NEGATIVE INDICATOR IN THE Z(M) ROWhTE1.E06:JS0r J1 N| A(M2,J)TE 400JSJ:TEA(M2,J) J JS:" CONSTRAINT "I" LS(I): I2 :::::@ ::::_ ::15)"SIMPLEX TABLEAU"n  I1 M2 J1N1:QZA(I,J):" "(QZ100.5)100;:J : I :" TO CONTINUE HIT ANY KEY AND RETURN";: Z$:: MAKE EACH ARTIFICIAL VARI I1 M :b :" NEXT ENTER THE SUBSCRIPT OF THE SLACK OR ARTIFICIAL VARIABLE IN ROW "Ir KS(I): I| :: :" NEXT ENTER 0 IF THE CONSTRAINT DOES NOT REQUIRE AN ARTIFICIAL VARIABLE," " 1 IF IT DOES"::: I1 M TRY 1 FOR AN":" ARTIFICIAL VARIABLE COLUMN, 0 OTHERWISE"; :" NOW YOU WILL HAVE TO ENTER THE":" COEFFICIENTS OF EACH OF YOUR EQUATIONS":: I1 M2 J1 N1 :" NOW ENTER COEFFICIENT "J" OF ROW "I A(I,J) J I :" THE COEFFICIENTS OF THE ARTIFICIAL":" VARIABLES MUST OCCUR IN THE COLUMNS" " IMMEDIATLY PRECEEDING THE COLUMN OF CONSTANTS" :" THE Z ROW CONTAINS THE COEFFICIENTS AND CONSTANT OF THE OBJECTIVE FUNCTION.": :" THE Z(M) ROW HAS ENLUDING SLACK, SURPLUS":12)"AND ARTIFICIAL VARIABLES"x u:" K = NUMBERS OF ARTIFICIAL":" VARIABLES" M,N,K M1M1:M2M2:N1N1 :::::" THE "M1" ROW WILL BE THE Z ROW" :" THE "M2" ROW WILL BE THE Z(M) ROW"Q U::::O2:::" SOLUTION OF LINEAR PROGRAMMING":" SIMPLEX METHOD"ld A(12,15),KS(10),LS(10)i::" PLEASE ENTER M,N,K":r:" WHERE M = NUMBER OF CONSTRAINT":12)"EQUATIONS"s:8)"N = TOTAL NUMBER OF VARIABLES;"6 t12)"INC  @p()@p()@p()@p()@p()Eu@p()@p()@p()@p()FuNԱ@"(rCԲ@"(rCԳ@"(r:Nuq6@q6?q6?]٭άҬҭvuq q!q"q#\v@p()@p()v[*]ӠŠӠ̠pq_ 4 q q±q ²qqdq_  q6_  [']ԠNca@E(Π)60uqرٱñòN@"rD;uq±²q6q.q,0Du@p()qq±q²qq@q _ 4 q q±q ²qqdq_  q6_ 4 qq±q²qqq_ 4 qq±q²qq$q_ 4 qq±q²qq@qqq _ 4 qZq ±q ²qq2q _ 4 qZq ±qZ²q qq _  q6_ 4 qq±q²qqq_ 4 qq±q²qq$q _ 4 _ 4 q q±q ²qqq _ 4 qZq ±q ²qq2q _ 4 qZq ±qZ²q qq _  q6_ 4 q q±q ²qq q_ 4 q q±q ̹qc)oa@E()E@E(ϠՠԠŠ)Gq \ `;@r%`@*#r9()$Ea@E@E@E()@p(Ϡ)UVWPa@*#rYo&_N _8r  4 q q±q ²qq q_qùqùPa@E()E@E()E@E()`($ `̹$FMoa@oa@E(ՠԠ) a@E()Go a()FE()8a()G`8r%a()F8dr8rE()Gca()F8rE() * Y . ******************************************************************* g 8:936: B" ESTMAT " L"PRACTICE IN ESTIMATING METRIC LENGTHS " V:: `"ESTIMATE THE LENGTH OF EACH LINE"! j"SECE IN ESTIMATING METRIC LENGTHS BY * x  * PRODUCING LINE SEGMENTS OF RANDOM LENGTH. *  * VARIABLES: R-RESPONSE TIME, L1-CORRECT ANSWER RANGE, *  $ * L2-CLOSE ANSWER RANGE. L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * D. HOLZNAGEL - 4/22/71 * -  * PROGRAM GIVES PRACTI       INSTRUCTIONS FOR MORE DETAILS."*j " IF YOU ARE FINISHED, TYPE '1' AND THE 'RETURN' KEY."p (1=YES, 0=NO)";l Q6-m Q60 3383yCz " *****"I{| " WOULD YOU LIKE TO TRY NEW VALUES OF A AND B (1=YES, 0=NO)";~ Q1 Q10 199$:" TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND 'RUN'. SEE THE G TIME TO RUN"[ V20+\ H1(BA)D1=] D1(D1.5)P^ I0 (D11)d` Y1Y(AIH1)b V2V23.14159Y1Y1H1d Ifh" FOR "D1" CYLINDERS THE VOLUME IS "(V21000.5)1000jk " WOULD YOU LIKE TO TRY AGAIN?  Q51 377DR " HOW MANY CYLINDERS WOULD YOU LIKE TO TRY";MS D1^T D11 343U " NUMBER OF CYLINDERS MUST BE GREATER THAN ZERO"V 338W D1600 347X " THIS IS A VERY LARGE NUMBER OF CYLIN- DERS AND MAY TAKE A LON))V1?6" ";D;13);(V1000.5)1000;31);(P1000.5)1000P8 P.5 330Z9 318};" ";D;13);(V1000.5)1000> V1V@ NJMN " WOULD YOU LIKE TO TRY YOUR OWN 'NUMBER OF CYLINDERS' (1=YES, 0=NO)";P Q5 QMES IN SUM "= " --------- ---------------- --------"H V10X Y(X)X2g N1 10} D((2(N1)).5) H(BA)D  V0  I0 (D1)  YY(AIH) " VV3.14159YYH , I 1 V10 3153 P100((VV1H THE 'RETURN' KEY." 500$  :" WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST: A,B)";: A,B: AB 214 :" A MUST BE SMALLER THAN B!": 200 " NUMBER OF SUM OF % CHANGE" " CYLINDERS CYLINDER VOLU " FOR EXAMPLE, TO USE THE FUNCTION Y=X^2 YOU WOULD TYPE:"I a " 1 GOTO 200" " 220 DEF FNY(X)=X^2 " RUN" " YOU MIGHT TRY THAT AS YOUR FIRST EXAMPLE. END EACH LINE, INCLUDING " " 'RUN', WIT."T ::" FOR FURTHER INSTRUCTIONS, HIT ANY KEY AND RETURN.";: Z$:::::: " TO INPUT YOUR FUNCTION OF X (Y=F(X)) TYPE AS FOLLOWS:" " 1 GOTO 200" " 220 DEF FNY(X)=...(YOUR FUNCTION)" " RUN" C EVOLUTION":c s " THIS PROGRAM USES CYLINDRICAL DISCS TO APPROXIMATE THE VOLUME OF A SOLID" u " OF REVOLUTION. THE SOLID IS GENERATED BY ROTATING ABOUT THE X-AXIS THE AREA" " BOUNDED BY Y=F(X), THE LINES X=A AND X=B, AND THE X-AXISr  - VOLSOL: VOLUME OF SOLID OF REV3N( CONTRIBUTED PROGRAM2 COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN< VOLSOL, Q J O'CONNOR 8/1/68F REVISED 8/24/70 (D PESSEL) n:::" VOLUME OF A SOLID OF R     RM(2E57.3)):K1(K): K1D 6505 l KD 720F v KD 740P  999w :" *** TARGET DESTROYED ***": 5 D1K: K1 ND100:K1(10): K: 410 :" SHORT OF TARGET BY "K1" YARDS":745 :" OVER TARGET BY "K1" YARDS"C(2UR GUN IS "M" YARDS"5  K1 M10000:K1(10): KV R.95M.6M(10):N0: 520f  RM 840}  R(M2.5) 860 :" TARGET RANGE IS "R" YARDS" :" ENTER ELEVATION";: E & E0 840 0 E89 800 : E1 820% DNN1:K(S WHEN YOU FIRE AT THE TARGET.";L " MAXIMUM RANGE IS AT 45 DEGREES."::j :" READY";: A$:::: J:" ENTER SPEED";: S: S1 S100 330 r:" ENTER DISTANCE";: D: D0 D10000 370 M10000075000(10)::" THE MAX RANGE OF YO":Y " TO THE QUESTION 'ENTER DISTANCE' ENTER THE MAXIMUM DISTANCE YOU CAN HIT FROM" " THE TARGET AND STILL DESTROY IT. THIS IS THE KILL RADIUS, AND 5000 IS" " SUGGESTED FOR STARTERS."::" ELEVATION IS THE EVELATION OF YOUR GUN IN DEGREE" BEFORE IT DESTROYS YOU OR MOVES OUT OF RANGE. THE TARGET WILL MOVE RANDOMLY.": " TO THE QUESTION 'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100. THIS IS THE" " RELATIVE SPEED OF THE TARGET, WHERE 1 IS THE SLOWEST AND 100 IS THE FASTEST.  120 N1 77" "N" POUNDS EXPENDED":Z" ****** DIRECT HIT ******":x:::" GUNNER"::" DO YOU REQUIRE INSTRUCTIONS";: A$: A$"NO" 330:" THIS GAME TESTS YOUR ABILITY TO HIT A MOVING TARGET. YOU MUST DESTROY IT"T  A NEW FUNCTION YOU NEED ONLY RETYPE LINE 300 AND 'RUN'. SEE THE" " INSTRUCTIONS FOR MORE DETAILS. IF YOU ARE FINISHED, TYPE '1' AND HIT THE 'RETURN' KEY."3 405@" ";E;17);(S1000.5)1000;32);(W1000.5)1000R W.01 420\ 407" ";E;17);(S1000.5)1000 S1S N: " WOULD YOU LIKE TO TRY NEW END POINTS (1=YES, 0=NO)"; Q1 Q10 220C:" TO ENTER1 N1 9 6 E2(N1)+ @ H(QP)E5 J S0G T I0 (E1)e ^ GY(PIHH)Y(PIH) h MY(PIHH)Y(PIH) r L3.14159G(MMHH) | SSL E(E.5)  I  S10 405  W100((SS1))((SS1)2) S10,Q)"; P,Q" P Q 250O : " P CANNOT BE GREATER THAN Q!": 220 : " NUMBER OF SUM OF % CHANGE" " SUBINTERVALS APPROX. AREAS IN SUM"  " ------------ ------------- --------"  S10:E10 , Y(X) X2 Y THAT AS YOUR FIRST RUN.":" END EACH LINE, INCLUDING 'RUN', WITH THE 'RETURN' KEY.";c 999 COMPUTATION SECTION OF PROGRAM ::: : " WHAT ARE THE ABSCISSAS OF THE END POINTS OF THE SECTION TO BE CONSIDERED (SMALLER FIRST: PHE X AXIS, AS FOLLOWS:":e " 1 GO TO 200": " 300 DEF FNY(X)=...(YOUR FUNCTION OF X)": " RUN" : " FOR EXAMPLE, TO USE THE FUNCTION Y=X^2 YOU WOULD TYPE:": " 1 GO TO 200": " 300 DEF FNY(X)=X^2": " RUN"Y : " YOU MIGHT TRF SURFACE OF REVOLUTION":p n " THIS PROGRAM APPROXIMATES THE AREA OF A SURFACE OF REVOLUTION BY COMPUTING" x " LATERAL AREAS OF FRUSTUMS OF CONES OF REVOLUTION. TYPE IN YOUR FUNCTION OF X" " (Y=F(X)), WHOSE GRAPH WILL BE ROTATED ABOUT T. SURFAC: AREA OF SURFACE OF REVOLUTIONI CONTRIBUTED PROGRAM COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN( AREA OF A SURFACE OF REVOLUTION2 Q J O'CONNOR 7/12/68< REVISED 8/21/70 D PESSEL d:::::" AREA O     OWER OF DISKS FROM THE LEFT NEEDLE TO THE RIGHT NEEDLE."s:" LEGEND SAYS THAT WHEN THEY HAVE":" FINISHED MOVING THIS 64 DISK TOWER, THE WORLD WILL END. HOW MANY MOVES WILL",t" THEY HAVE TO MAKE TO ACCOMPLISH THIS? IF THEY CAN MOVE 1 DISK PER ENEATH THE CITY OF HANOI." op" THEY POSSESS THREE LARGE TOWERS OR":" NEEDLES ON WHICH DIFFERENT SIZE GOLD"q" DISKS MAY BE PLACED. MOVING ONE AT A TIME AND NEVER PLACING A LARGER ONE ON":r" A SMALLER DISK, THE MONKS ENDEAVOR TO MOVE THE T1 3: T(K,J)0 1330/ Z(T(K,J)2));B  V1 T(K,J)L"*";T V_( 1340n2 Z);"*";y<ZZ13FJPZKdn:" THANKS FOR THE GAME!": GAME3 1400o:" LEGEND HAS IT THAT A SECRET ORDER OF MONKS LIVE BTIONS! WONDERFUL! GREAT!"Mt:" YOU HAVE PERFORMED THE TASK IN "M" MOVES."y~:" TRY ANOTHER ONE (YES OR NO)";: A$ A$"NO" 1390 A$"YES" 90:" 'YES' OR 'NO' PLEASE";: A$: 1160 *** PRINT SUBROUTINEK15:Z6 JCK IF DONEMM1&R15:C12= T(R,C)0 1090I$ C: RT8 1120fBM2S3480L:" SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN "2S3" MOVES":" USING ONLY "S" DISKS.":1400`M221140j:" CONGRATULAW13:T(V,W)D930 W: VN *** LOCATE FIRST EMPTY SPACE ON NEEDLE NhU15:T(U,N)0970p U *** MOVE DISK AND SET OLD LOCATION TO 0UU1T(U,N)T(V,W): T(V,W)0 *** PRINT OUT CURRENT STATUS 1230  *** CHE*** CHECK IF DISK TO BE PLACED ON A LARGER ONE<ER511WF D;"T("R;N")=";T(R,N)lH DT(R,N) 880R:" YOU CAN'T PLACE A LARGER DISK ON TOP OF A SMALLER ONE. IT MIGHT CRUSH IT! NOW,";: 480W Rk *** RELOCATE MOVED DISKpV15: YOU HIT THE WRONG KEY THIS TIME. BUT WATCH IT, I ONLY ALLOW ONE MISTAKE.": 705 :" I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN. BYE, BYE, BIG SHOT.": 1400  *** LOCATE DISK TO BE MOVED R15:T(R,N)0840* R> 880.C  T(Q,C)0 660' T(Q,C)D 680/ Q9 700:" THAT DISK IS BELOW ANOTHER ONE. MAKE ANOTHER CHOICE.": 480E0:" PLACE DISK ON WHICH NEEDLE";: N  (N1)(N2)(N3)0 800EE1: E1 780T:" I'LL ASSUMEL ENTRY...YOU MAY ONLY TYPE 3,5, 7,9,11,OR 13.":EE1: E1 560L & 500 0:" STOP WASTING MY TIME. GO BOTHER SOMEONE ELSE.": 1400 D *** CHECK IF REQUESTED DISK IS BELOW ANOTHER NR15:C13:T(R,C)D640 l C: R  QR 1 1MPT TO MOVE THEM TO NEEDLE 3."::" GOOD LUCK!":;  215H Y5:D11[  XS 1 1x T(Y,1)D:DD2:YY1: X  1230 :" WHICH DISK WOULD YOU LIKE TO MOVE";:E0  D  (D3)(D5)(D7)(D9)(D11)(D13)0 580B :" ILLEGAT SIZE, 7 THE NEXT, AND SO ON, UP"{ r" TO 11. IF YOU DO THE PUZZLE WITH 2 DISKS, THEIR CODE NAMES WOULD BE 9 AND"; |" 11. WITH THREE DISKS, THE CODE NAMES WOULD BE 7, 9, 11, ETC. WE WILL START";1 " WITH THE DISKS OF NEEDLE 1, AND ATTEGAME RIGHT, I'LL JUST TAKE MY"K @" PUZZLE AND GO HOME. SO LONG.": 1400z T *** STORE DISKS FROM SMALLEST TO LARGEST ^" IN THIS PROGRAM, WE SHALL REFER TO":" DISKS BY A NUMERICAL CODE. 3 WILL" " h" REPRESENT THE SMALLEST DISK, 5 THE NEXLLER DISK.":: 350S " HOW MANY DISKS DO YOU WANT TO MOVE (5 IS MAXIMUM)";a S::M0u Q15:QS400}  Q EE1: E2 310 ":" SORRY, BUT I CAN'T DO THAT JOB FOR YOU": 215 6:" ALRIGHT, WISE GUY, IF YOU CAN'T PLAY THE T PGAME0UT(5,3)2Z:::E0:GAMEGAME1SD15:N13:T(D,N)0:N:Dy::" TOWERS OF HANOI PUZZLE":" YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT TOWER, ONE AT A TIME" " NEVER PUTTING A LARGER DISK ON A":" SMA     1190 D$C$1190 C$"L"* 11900  }:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.*d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA FER TO ONLY COUNT." C$"C"/ C$"C"13105 @ I1NR (T3(10(1))a 2T341380r <C$"C"1360| F"H"; PHH1 Z1400 dC$"C"1400 n"T"; xI C$"C"1430   "HEADS "H;20);"TAILS "NH  N39D COUNT : "; tC$:C$) ~C$"C"1170O C$"L"ĺ"TYPE C OR L : ";:1140Y D$C$_ g H0 "HOW MANY TIMES DO YOU WANT TO FLIP" "THE COIN ? (TYPE 0 TO STOP) "; N N01500 C$"L"1290 N391290  "I PRE *Q . *******************************************************************_ 8:936: B" HORT: COIN TOSS SIMULATION " L: V"DO YOU WANT TO COUNT, OR LIST AND COUNT THE RESULT? "; `"TYPE C FOR COUNT, L FOR" j"LIST ANTHE TOSSING OF A COIN *s  * THE RANDOM NUMBER GENERATOR IS USED TO GET A DIGIT 0 - 9 *  * IF THE DIGIT IS 0 - 4 A HEAD IS GENERATED * $ * IF THE DIGIT IS 5 - 9 A TAIL IS GENERATED +K ******************************************************************* * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. * * HEADS OR TAILS - D. HOLZNAGEL, TIES. *)  * THIS PROGRAM SIMULATES  PEED, AND THE CAR AT 1/2 THE"hc" SPEED OF THE PLANE."::" WHAT WAS THE TOTAL DISTANCE COVERED";: AwhANSD: 50r:" DO YOU WANT ANOTHER PROBLEM";: Z$: Z$"NO" 20DNTESTANT #13'S TRACK RECORD:"::T" FAST SPRINT TO THE CAR":" "T1" HRS DRIVING THE CAR":" "T2" HRS FLYING THE PLANE":" "T3" HRS RIDING THE TRAIN"::^" AS THE TRAIN PUTTERED ALONG AT "TR" MPH,":" THE PLANE WAS ABLE TO TRAVEL AT 3 TIMES THAT S)(T3TR) i @:::::" CONTESTANTS IN AN UNUSUAL RELAY RACE WERE REQUIRED TO RUN TO A CAR, DRIVE" E" IT A CERTAIN DISTANCE, HOP IN A PLANE AND FLY TO ANOTHER LOCATION, WHERE THEY";!J" WERE TO CATCH A TRAIN HEADED FOR BOSTON":" HERE IS CO FAST IS THE":" TRAIN TRAVELLING";:A6 ANSVT: 50r :" DO YOU WANT ANOTHER PROBLEM";: Z$: Z$"NO" 20|  400 , *** FIND DISTANCE 6T1((1)5)1: T2((1)5)1: T3((1)5)1: TR35((1)20): PLTR3: CAPL2 ;D(T1CA)(T2PL :::::" A CAR AND TRAIN START FROM THE SAME LOCATION. THE TRAIN IS GIVEN A "TT " MINUTE HEAD START BEFORE THE CAR TAKES OFF IN THE SAME DIRECTION. IF THE CAR"& " TRAVELS AT "VC" KM/HR AND OVERTAKES THE":" TRAIN IN "TC" MINUTES, HOWAIN TRAVELLING AT "T" MPH."::" HOW LONG DOES THE TRIP TAKE BY CAR";:AW ANSV: 50 :" DO YOU WANT ANOTHER PROBLEM";: Z$: Z$"NO" 20 400 *** FIND SPEED TT((1)20)10: TC((1)20)30: VC((1)20)75: VTVCTC(TCTT) [. YOU WERE OFF BY "E" PERCENT.":" CORRECT ANSWER IS "ANS::C PW d *** FIND TIME nC((1)25)40:D((1)15)5 :T((1)19)20:VDT(CT) x:::::" A CAR TRAVELING "C" MPH CAN MAKE A":" CERTAIN TRIP IN "D" HOURS LESS THAN"H " A TR9 :::::" TIME - SPEED - DISTANCE EXERCISE"KX((1)31)a X 100,200,300( *** SUBROUTINE TO FIGURE PERCENT OF ERROR2E(((ANSA)100A).5)7 E5 70<:" GOOD! ANSWER WITHIN "E" PERCENT!":::80= F:" SORRY     0# "A = ";A;" B = ";B;" C = ";C4 W13000:W? N:30T@  936M1:3 MM1-(N1M1M2AMMNN:B2MN:CMMNN`<A1A:B1B:C1CoFC175100PA12A1:B12B1:C12C1Z70dA1150B1150130nA1A12:B1B12:C1C12x100:936:22 0,150B1,150B1,150A10,15RN";: Z$ H"JJ1:: 25S:" TOTAL JOBS PERFORMED THUS FAR:"J:: 25 :" EXIT"::" TOTAL JOBS PERFORMED:"J ER::" I IS "I" AMPS"::25W:" SQUARE ROOT TABLE "::" TO WHAT NUMBER";: W nE0: W101 705" CAN'T GO TO "W:700 H1 W: EE1: E,(E) H20 H40 H60 H80 710 720 " TO CONTINUE HIT ANY KEY AND RETU3" g 601Cv:" E=I*R":" ENTER VALUES":" I";: I:" R";: Rh{EIR::" E IS "E" VOLTS"::25:" R=E/I":" ENTER VALUES":" E";: E:" I";: IREI::" R IS "R" OHMS"::25:" I=E/R":" ENTER VALUES":" E";: E:" R";: RINS AND ROUTINE CATALOG";4" 100 EXIT PROGRAM"J"9999 STATUS"V&::25|X:" OHM'S LAW CALCULATION":JJ1Y:" UNKNOWN";: U] U1 630^ U2 660_ U3 690b" CAN'T FIND "U:" IF E TYPE 1, IF R TYPE 2, IF I TYPE " 1 POLAR TO RECTANGULAR CONVERSION"Z" 2 RECTANGULAR TO POLAR CONVERSION"" 3 COMPUTE REACTANCE (XL&XC)"" 4 COMPUTE RESONANT FREQUENCY"" 5 OHM'S LAW"" 6 SQUARE ROOT TABLE"" 10 INSTRUCTIOX::" THIS IS A CATALOG OF PROBLEM SOLVING ROUTINES AVAILABLE IN THIS PROGRAM."" WHEN THE PROGRAM ASKS 'OPTION?' ENTER THE NUMBER OF THE ROUTINE YOU WANT."::" ****************CATALOG***************"::" OPTION" 20)"ROUTINE":+APACITANCE REACTANCE IS "X2" OHMS"- m: 25\ :" RESONANT FREQUENCY CALCULATION":JJ1 :" ENTER CAPACITANCE IN FARADS";: C3 " ENTER INDUCTANCE IN HENRIES";: L3 R51(2P(L3C3)) :" THE RESONANT FREQUENCY IS "R5" HERTZ"::25& @" ENTER FREQUENCY IN HERTZ";: E1P E" ENTER INDUCTANCE IN HENRIES";: L1 JX12PF1L1::" INDUCTIVE REACTANCE IS "X1" OHMS" O: 25 ^" ENTER FREQUENCY IN HERTZ";: F2 c" ENTER CAPACITANCE IN FARADS";: C2" hX21(2PF2C2)::" C B0 B4270 220: B4(BA): B4B4(180P)Y :" CONVERTED IS "B2","B4c :25 ,:" REACTANCE CALCULATION":JJ1 1:" XL OR XC? IF XL TYPE 1, IF XC TYPE 2";: A1 6 A11 320 7 A12 350 ;:" CAN'T FIND "A1::305(B) p (B2).0001 B207 q (B4).0001 B40R }:" CONVERTED IS "B2;^ "," B4i : 25 :" RECTANGULAR TO POLAR": JJ1 :" ENTER COORDINATES A,B ":" A";: A:" B";: B B2((A2)(B2)) A0 215 B0 B490 ! O3 300 " O4 400/ # O10 500? $ O5 600O % O6 700b & O9999 791} (" CAN'T FIND "O::25 d:" POLAR TO RECTANGULAR":JJ1 i:" ENTER DISTANCE,ANGLE (A,B)":" A";: A:" B";: B kBB(P180) nB2A(B):B4A r ::" THIS SUPER PROGRAM SOLVES VARIOUS MATH PROBLEMS FOR ELECTRONICS": :" IF YOU NEED HELP TYPE 10.":" TO EXIT THIS PROGRAM TYPE 100.":::P3.141593:J0::" OPTION";: O: O1 100 O2 200 O100 800     S21630T1560:^"REMEMBER TO HIT ";::"RETURN";Uh:" AFTER YOUR MOVE."[rf|CABtS21700~1730W113101940W113101680QNM11760QQ1M11810N(A)1850W1"AP COMMAS"."AND FOLLOWED BY ";::"RETURN";::" ";CA,BIWAB1450eA11450vA(A)15401450B(B)15601450"ENTER START OPTION - 1 APPLE FIRST, """2 YOU FIRST : ";,S6S:@S11630 J :"ENTER PILE SIZE : ";" (N( 26 <N02250G FN(N)1370Q P1310_ ZN11310 d"ENTER WIN OPTION - 1 TO TAKE LAST," n"2 TO AVOID LAST : "; xM M: M11450 M21450 1380"ENTER MIN AND MAX, SEPARATED BYF OBJECTS WHICH CAN BE REMOVED AT ONE"S "TIME. TYPING '0' FOR YOUR MOVE WILL" "CAUSE A FORFEIT, AND TYPING '0' FOR THE" "PILE SIZE WILL CAUSE THE TERMINATION" "OF THE GAME." 24:"PRESS ANY KEY TO CONTINUE : "; GT$ 936ERNATELY BY YOU AND THE MACHINE."L "YOU MUST SPECIFY WHETHER WINNING IS"w "DEFINED AS TAKING OR NOT TAKING THE" "LAST OBJECT, THE ORIGINAL NUMBER OF" "OBJECTS IN THE PILE, WHO GOES FIRST," "AND THE MINIMUM AND MAXIMUM NUMBER"& "O/ 8" THIS PROGRAM PLAYS BATTLE OF NUMBERS "7 B:X L"IF YOU NEED INSTRUCTIONS,"r V"TYPE Y FOR YES : ";{ `II$ jII$"Y"1300 t936::: ~" THE GAME IS PLAYED WITH A PILE OF" "OBJECTS, SOME OF WHICH ARE REMOVED"! "ALT**** 7/31/69 ***** *x  * PLAYS BATTLE OF THE NUMBERS *  ******************************************************************* $:936: ." BATNUM "n L ******************************************************************* * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. * * ***** BATNUM ***** DEMONSTRATION PROGRAM ***** *-  * ***** VERSION 1 *     -1,0,1  3,4,0,2%  -2,1,1,05  -1,1,-1,1; ' ,KX)0::0 *** MULTIPLY A X B, AND PRINT CN ::" SOLUTION MATRIX":] IX1 Il KX1 K JX1 J:C(IX,KX)C(IX,KX)(A(IX,JX)B(JX,KX)): JX J1C(IX,KX) " "(J1100.5)100;:KX : IX  2,3,3,4  1,-2,3 E INNER DIMENSIONS OF THE MATRICES MUST BE THE SAME": 9999V *** READ A MATRIX IX1 I: JX1 J: A(IX,JX):: *** READ B MATRIX JX1 J: KX1 K: B(JX,KX):: *** SET C MATRIX TO ZERO IX1 I: KX1 K:C(IX10 DATA 1,-2,3":" 920 DATA -1,0,1"q :" 930 DATA 3,4,0,2":" 940 DATA -2,1,1,0":" 950 DATA -1,1,-1,1" <::" ENTER YOUR DATA AND MATRICES, THEN TYPE 'RUN'.": 9999 d *** READ MATRIX DIMENSIONS n I,J,J1,K x JJ1 150> :" THTEMENT"i 4" SHOULD CONTAIN THE DIMENSIONS OF THE TWO MATRICES. EXAMPLE:"::" 900 DATA 2,3,3,4": 6" FOR A 2 X 3 MATRIX AND A 3 X 4 MATRIX. THE FOLLOWING DATA STATEMENTS SHOULD"% 8" CONTAIN THE ELEMENTS OF THE 2 MATRICES. EXAMPLE:"::" 9=& *** MULTIPLICATION OF MATRICESG A(10,10),B(10,10),C(10,10)::" MATRIX MULTIPLICATION"::" DO YOU REQUIRE INSTRUCTIONS (YES/NO)": Z$( Z$"NO" 100 2::" ENTER YOUR DATA AND MATRICES BEGINNING IN LINE 900. THE FIRST DATA STA     ()@p()v[*]ӠŠӠ̠(XXX OYYY ERR0ī5507 OPT0ēOX,OYXX,YYI OPT1ēXX,YYS &OXXX] 0OYYYf :RS0m DIs N~ 1520 NXLXIXSCNS XNX Y(X) 216,0 320 STARTI1 JJ16 "" JJ 216,0 "290 , 6990 @ERR0, JXX(XLX)180XSC50F TYY(LYY)159YSC159V rXX0ī410` |ERR1i XX0r 440 XX279ī440 ERR1 XX279 YY0ī480 ERR1 YY0 510 YY159510 ERR1 YY159 RS0ī540 OIVE ME THE RANGE OF X"! LX,HX? "GIVE ME THE RANGE OF Y"J LY,HYX XSCHXLXf YSCHYLYz A50180LXXSC B159159LYYSC A50ī252 A230ēA,0A,159 B0ī256 B159ē50,B230,B START0 "RS1 ,ISTARTNS 0 TO", F"# OF STEPS, WHICH IS REQUESTED"L P"BY THE PROGRAM LATER ON."j Z"WHEN YOU'RE READY TYPE"s d" " n" RUN 140" x 3 "OPTION=? 0 CONNECTED POINTS, 1 POINTS." OPT "GIVE ME THE # OF STEPS" NS "G0"GRAPH -- PROGRAMMED BY WILLIAM M. SMITH"W" AT THE U OF I, 3/10/80"`" "f "TYPE 1000 X=SOME FUNCTION""TYPE 1010 Y=SOME FUNCTION"(" "2"NOTE THESE MAY BE FUNCTIONS OF I, WHICH" <"AUTOMATICALLY VARIES FROMALID EXPONENT": 520# X X1 ST- b 1005 l Xx v::" SOLUTION OF "D" BY "D" MATRIX":" TO THE "S" POWER"::  I1 D  J1 D QZA(I,J) " "(QZ100.5)100;  J : I  1,2,3  4,5,6  7,8,9 '4 MATRIX)": DN  I1 D: J1 D: A(I,J):B(I,J)A(I,J):C(I,J)0: J: I ::" TO WHAT POWER (MUST BE A POWER OF 2, IE, 2,4,8,16,32,64,....)": S ST1:QS  Q2 600 QQ2:STST1  Q2 600 & ST20 530 0::" INV(A(I,J)B(J,K)): J K# Ie *** CHANGE MATRICES A & B INTO C(SOLUTION) - SET C TO ZERO} I1 D: K1 D A(I,K)C(I,K):B(I,K)C(I,K):C(I,K)0 K: I  ::" WHAT IS THE DIMENSION OF THE MATRIX?":" (ENTER 4 FOR A 4 X A 3 X 3 MATRIX MIGHT LOOK LIKE THIS:":::" 900 DATA 1,2,3":" 910 DATA 4,5,6":" 920 DATA 7,8,9" 2::" ENTER YOUR MATRIX, THEN TYPE 'RUN'": 9999 d *** MULTIPLY MATRIX A BY MATRIX B n I1 D x K1 D J1 D:C(I,K)C(I,K)  *** SQUARING OF MATRICESA A(10,10),B(10,10),C(10,10)::" SQUARE A MATRIX"::" DO YOU REQUIRE INSTRUCTIONS (YES/NO)": Z$# Z$"NO" 500(::" ENTER YOUR MATRIX IN DATA STATEMENTS BEGINNING IN LINE 900. FOR EXAMPLE,"i -"     " ,P 6"WANT TO RETURN TO THE 'MENU' OF PROGRAMS?"X 9B$h <B$"N"400q @255 JD$"": CTRL D ENTERED ^D$;"RUN MTH-PAK" h330 D$;"RUN MTH-PAK" h330 ONS ARE COMPLETED AND YOU ARE READY TO USE THE PRINTER, TYPE THE COMMAND:"T v "CALL 775 "| "KEY IN A COMMAND (RUN, LIST, ...) TO USETHE PRINTER." "WHEN FINISHED USING THE PRINTER, TYPE:"  "PR#0 RE NOW A CABLE CONNECTING YOUR APPLE TO A DECWRITER(PRINTER)?"I A$O _ A$"Y"190 "INSTALL THE CONNECTING CABLE." "IT MUST BE ONE WHICH REVERSES THE IMPULSES FOR PINS 2 AND 3. 200 N "WHEN THESE INSTRUCTIPF THESE DIRECTIONS ARE ONLY FOR A DECWRITER TELEPRINTER OR ITS EQUIVALENTVP\Zd" WHAT YOU NEED TO DO TO USE A DECWRITER AS A PRINTER FOR YOUR APPLE DEPENDS ON THE EQUIPMENT YOU HAVE."in"TURN THE PRINTER ON."sA x"IS THE0;:J : I 0,1,1,1,0/ 1,0,1,0,1? 1,1,0,1,0O 1,0,1,0,0_ 0,1,0,0,0e'23: 500& PP7 P13:P24: 500/$ PPJ *** ADD THE MATRICES}:::" SOLUTION MATRIX -- SUM OF MATRICES": I1 D J1 DMS(I,J)0 PP1 P:MS(I,J)MS(I,J) MX(PP,I,J): PPQZMS(I,J) " "(QZ100.5)10E LARGEST POWER YOU WANT THE MATRIX MULTIPLIED TO": Pi I1 D: J1 D: MX(1,I,J): J: Ix PP2 P PP2 P11:P21: 500 PP3 P11:P22: 500 PP4 P12:P22: 500 PP5 P12:P23: 500  PP6 P13:P)MX(PP,I,K) (MX(P1,I,J)MX(P2,J,K)): J;QZMX(PP,I,K)Y" "(QZ100.5)100;:Kd&: I0:::" TO CONTINUE HIT ANY KEY AND RETURN": Z$: *** MAIN PROGRAM:::" WHAT IS THE DIMENSION OF YOUR MATRIX": D9:" ENTER THENT IN 100." e ::::" NOW EITHER RUN THE SAMPLE, OR START ENTERING YOUR OWN DATA IN 5000."p 9999  *** SUBROUTINE TO MULTIPLY :::" MATRIX TO THE "PP" POWER":  I1 D  K1 D MX(PP,I,K)0) J1 D: MX(PP,I,KON FOR"F " INSTRUCTIONS, '5' FOR DIMENSIONS, AND '4' FOR POWER." ::::" THE LARGEST THIS PROGRAM IS SET UP FOR IS A 5 X 5 MATRIX TO THE 7 POWER." :" IF YOU NEED A LARGER DIMENSION, LIST STATEMENTS 1-100, AND CHANGE THE DIM STATEMOF YOUR MATRIX. IN THIS CASE, ENTER 5." } :" THEN YOU WILL BE ASKED THE POWER THAT YOU WANT THE MATRIX MULTIPLIED TO." :::" FOR MORE INSTRUCTIONS, TYPE 'GO'": Z$ :::" FOR A SAMPLE RUN USING THE DATA SHOWN, ANSWER 'NO' TO THE QUESTIIX IN DATA STATEMENTS BEGINNING IN LINE 5000. FOR EXAMPLE:":^ " 5000 DATA 0,1,1,1,0"| " 5010 DATA 1,0,1,0,1" " 5020 DATA 1,1,0,1,0" " 5030 DATA 1,0,1,0,0" " 5040 DATA 0,1,0,0,0"( :" YOU WILL BE ASKED THE DIMENSION 5)l n:::" SUM OF MATRIX TO A POWER"::" DO YOU REQUIRE INSTRUCTIONS? (YES/NO)": Z$: Z$"NO" 1000 x:::" THIS PROGRAM TAKES A MATRIX TO A POWER, THEN SUMS ALL THE RESULTING MATRICES UP TO AND INCLUDING THAT POWER."@ :" ENTER YOUR MATRg ' *** TAKE MATRIX TO A POWER, ANDM *** THEN SUM ALL THOSE MATRICESX *** |( *** MX(P,I,J) WHERE MX=MATRIX2 *** P=POWER OF MATRIX< *** I=ROW, J=COLUMNF ***P *** MS(I,J) IS SOLUTION (SUM)Z *** d MX(7,5,5),MS(5,     / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00        1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:c dD$;"BRUN MENU"z  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:B:A$:D  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC. URVE C# VOLSOL D# SURFAC5 E# ELECTRONICS MATHD F# ESTIMATEQ G# GUNNER] ' QUITc ' PLS /# SQUARE ROOTS- 1# SQUARE BINOMIALS: 2# FACPACF 3# LINESZ 4# BEGINNER MATHk 5# MATH DRILLz 9# MULTIPLY :# FACPAC ;# DECIMAL <# TRAP =# PRNTR INSTR'NS ># BEGINNER ADDSUB ?# COIN TOSSING @# SPD.DST.TIME B# NORMAL C CTRL D ENTERED& D$;"RUN ";P$(M)0 99997  = E 15_  WAS SPEED=15t "M A T H P A K"} 255  15 " A E A 1 0" 6 (# BESTLINE )# MATH SKILLS *# ALGEBRA 2 +# TWR.OF HANOI ,# PYTHAG.TR$,I,1);". ";P$(I);24);(A$,I1,1);". ";P$(I1)6 xI> :D L 22x "SELECT THE PROGRAM YOU WISH TO RUN:";~ Z$ Z$(A$,NP1,1)ī9999 I1NP Z$(A$,I,1)240 I "NOT AVAILABLE!!" 140 MI D$"": e( PROGRAM NAMES IN LINES 9000-9999=D$(4): CTRL DW MATHPAK MENU DRIVERcP$(36)lNP0x2I136<P$(I)>P$(I)"QUIT"80ANPNP1FIP2000ZA$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"dI1NP12/ n4);(A    E"v "WILL APPEAR FOR YOU!"$ * K "PRESS ANY KEY TO CONTINUE"` G$:G$""ī8340h : "CLOSE ANSWERS WILL BE CONSIDERED" "FOR PARTIAL CREDIT IF YOU WISH. ALL" "ANSWERS WILL BE COUNTED CORRECT IF"  "THEY ARE ACCURATE TS IF YOU WISH."9: "IF YOU DECIDE TO TRY ONLY DIVISION"aD "PROBLEMS, YOU HAVE THE OPTION OF"N "WORKING PROBLEMS THAT HAVE WHOLE"X "NUMBER ANSWERS -- (I.E. DIVIDES EVENLY!)"b "IF YOU RECEIVE A SCORE OF"l "75% OR BETTER, A SPECIAL MESSAGMIXTURE OF ALL FOUR."=:"YOU MAY ALSO CHOOSE THE NUMBER"d "OF DIGITS THAT YOU WISH TO WORK" "WITH -- 1 DIGIT PROBLEMS ARE EASIEST" "AND 3 DIGIT PROBLEMS ARE THE HARDEST!"& :"YOU ALSO HAVE THE CHOICE OF"0 "USING 'NEGATIVE' NUMBER"OF THE 'MATH SKILLS' PROGRAM";(A$>(A$,1)"N"8999h:"THIS PROGRAM IS DESIGNED TO GIVE""YOU PRACTICE IN YOUR BASIC ARITHMETIC""SKILLS. YOU MAY SELECT 'ADDITION',""'SUBTRACTION', 'MULTIPLICATION',""'DIVISION', OR A ";:CRXY:" /";$Y0Y1/CRXYC(CR)CRī7200SWH17200]YY1g7114m @ INSTRUCTIONSAJ"WHAT IS YOUR NAME";^N$ch"THANK YOU, ";N$;" !"rSP"WOULD YOU LIKE A DESCRIPTION" NEG0(O2O5)YXī6023&60506SX:XY:YSEY0ī6050SX;:7000aY;" = ";hAnW~X OPERATIONbSOlO5ī7040vS((1)4)1S7050,7070,7090,71107200" + ";:CRXY:" - ";:CRXY: " X(CRA).1(CR)ī5100)ACR:SHAKY135999D PRINT 00PSL22a"XXX WRONG ";CRgopX((1)D1): SELECT #zY((1)D2){NEG0ī6020|Q((1)3)}Q0ī6020~XXQ((1)3)Q0ī6020YY1,25:32,26:$. 22,2436:36,26:B` I180:BZ(16336):I:H N c ^GOOD^ ROUTINEk22~SHAKY0ī4500ACAC1"<<< CLOSE ";CR4999CIRCIR1"*** RIGHT ***" ^TOO BAD^ ROUTINECL1ī510025,14:13,1426:27,14:10,1428:O1,422:23,241:2,424:4,25:1,426:q 22,268:9,1026:22,2611: 22,2615:22,2418:16,1722:16,1724: 22,2522:22,23:22,2424:22,25:22,2526: $ 22,2629:22,2432:30,3122:30,3124:3I039 0,39I I+ ((1)15)25 2200? 2220I *2222S 42300] >2310s H2320:2330:2340} R2350 f2400 2998 10,149:10,14:13,1411:12,14:10,1413: 17,2010:11,1417:18,2014:11,1320:"10,1424:15000:K rB75İ2000# x22) zC "WANT TO TRY MORE?";I Q A$g (A$,1)"N"ī999~ (A$,1)"Y"ī900 CIR0:AC0:SHAKY0 NEG0:CL0 WH0  210 :D$(4):D$;"RUN MTH-PAK":  GRAPHICS  1  4B1(ACM)100:B1Z(B1)> >B2((MCIRAC)M)100:B2Z(B2)i H"OUT OF ";M;" PROBLEMS YOU ANSWERED:"q R: \CIR;" CORRECTLY FOR ";25);B;" %" a fAC;" ALMOST CORRECT FOR ";25);B1;" %" h kMCIRAC;" WRONG FOR ";25);B2;" %" nK3D1100 TD4D5D110000 ^D1D2D210D hD3D4D2100U rD5D21000d  RUN LOOPj u I1M SHAKY0 6000 CRZ(CR) AZ(A) &ACRİ5000 0ACRİ4000 I K13000:K  *B(CIRM)100:BZ(B) CHANGE LINE 50 TO SP=75 FOR USE WITH ELEMENTARY STUDENTSB M 2SP150X d10000^ nw 8000: INSTRUCTIONS 9000: PICK UP INFORMATION , SET ROUNDING FUNCTION 1P100 6Z(W)(WP.5)P @ SET DIGITS JD1D110 OD2DH 5000'S WRONG ANSWER8 7000'S OPERATION PRINTX 9000'S GATHER INFORMATIONr 8000'S INSTRUCTIONS 6000'S SELECT RANDOM NUMBERS <1000 DRIVER PART OF PROGRAM 4000'S CORRECT ANSWER AND CLOSE ANSWERS 10000'S AEA LOGO<           hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  C%0 C%1 1710% C%0 18004936:120TD$(4):D4;"RUN MATHPAK":DTH OF SCREEN =";N;"*PI RADIANS"&EVJ "TO CONTINUE, TYPE 1; TO STOP, TYPE 0";C%oT C%0 C%1 1610^ C% 0 1800hNN2r 1510| 1600 B$"YES" 1300:"TO GO TO ANOTHER LESSON TYPE 1" "TO STOP TYPE 0";C%WANT TO TRY THIS WITH ANOTHER EQUATION (YES OR NO)";B$B 1700L936VN 2a 1510l 1600 : 1: 0,3919 7: X 0 39Y (19(N3.1416(X39)))Y 19Y X,Y: X" @ "PLOT OF Y = SIN(X)": "WI DZ "COEF. OF X^";D1I;)d C(I)1n INx "CONSTANT TERM";C(D1)h "WHAT VALUE OF X";RsPC(1) I2 (D1)PPR C(I) I: "(";R;",";P;")": "WANT ANOTHER VALUE (YES OR NO)";A$ A$"YES" 14107 "PAGE 202)"b : "TO FIND VALUES OF Y CORRESPONDING TO GIVEN VALUES OF X WHEN: (FOR EXAMPLE)" (: " Y = AX^3 + BX^2 + CX + D" 2: "WHAT IS THE DEGREE (<=9) (THE HIGHEST POWER OF X)"; < D F: "TYPE IN THE COEFFICIENTS."P I 1 TO GO TO ANOTHER LESSON, TYPE '1' TO STOP, TYPE '2'"T ~B%:B%0Č936:1000i B%1Č936:120{  B%2 1190  1130  WAS PRINT "RUN MATHPAK": STOP D$"": CTRL D ENTERED D$;"RUN MTH-PAK" 1200  936:"( $M AEBD8 . M0 "NO UNIQUE SOLUTION": 1130G 8N1CEBFV BN2AFCDj L: "SOLUTION:" V 7) "(";N1;"/";M;", ";N2;"/";M;")" `: 4) "OR (";N1M;", ";N2M;")" j: "TO DO ANOTHER OF THESE PROBLEMS, TYPE '0'": t " A%1 1000# A%2 13005 A%3 1500? 180I 936  "(PAGE 109)":: "FOR A SYSTEM OF TWO LINEAR EQUATIONS:" : 7) "AX + BY = C"  7) "DX + EY = F" : "TYPE A,B,C,D,E,F (INTEGERS OR DECIMALS)"  A,B,C,D,E,FOLLOWING DO YOU WANT?"Y : "1.: SOLUTION OF 2 LINEAR EQUATIONS IN 2 VARIABLES"_ "2.: FINDING ORDERED PAIRS FOR POLYNO- MIALS BY 'SYNTHETIC SUBSTITUTION'" "3.: GRAPH OF Y=SIN(X) : "(TYPE 1, 2, OR 3)";A%V  2 A$ (3)!3 B$ (3)+c936}d "COMPUTER ACTIVITIES FOR ALGEBRA 2 ---------------------------------"n: "FROM'ALGEBRA AND TRIGONOMETRY, STRUCTUREAND METHOD, BOOK 2,' DOLCIANI, ET.AL. HOUGHTON MIFFLIN" x: "WHICH OF THE F      ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ 120 INSTRUCTIONS ; 130 TO 220 MAIN LOOPA Y 200 TO 260 ENDINGG105 (Q$,1)"N"2309 D$"":D$;"RUN MATHPAK": }778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240 }788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3 }798,96: 100 TO0:190F D255:P255:25:"WRONG THE ANSWER IS ";((P%)100.5)100W I11500:I] :10:"YOU GOT ";R;" OUT OF ";N;" RIGHT" :"OR ";(RN100.5);"%" I11500: "DO YOU WANT TO TRY AGAIN ?";Q$ 255 (Q$,1)"Y"R0::ND YOU CAN WORK IT OUT TO THE NEAREST HUNDREDTH ON SCRATCH PAPER, TYPE IN YOUR ANSWER AND I'LL TELL YOU IF YOU ARE RIGHT OR WRONG." I1500: K1N P%100((1)) :10:8:"SQUARE ROOT OF ";P%;" = ";:A A((P%)100.5)100İ5T":I13:25:I 7RR1:T d10:14)"SQUARE ROOTS":19)"BY":15)"DAVID COOK"] i100 nI11500:I::10:5:"HOW MANY PROBLEMS DO YOU WANT ";N p:10:N1Ā rN100ĺ"THAT WOULD TAKE FOREVER":110 s:10 x"I'LL GIVE YOU A NUMBER AZ MORE REMARKS AT END!3 32000 TONESJ 100 MAIN PROGRAM| 25 SUBROUTINE TO PLAY TONES 50 RIGHT SUBROUTINE 32000:::255:100776,P:777,D:778: 2P20:D20:I13:25:I