8(@@START.BATBAT38 START c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 2 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-SBreakI/O-Error 170Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Ver. 6.4plus RUN:Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SY}=ON;RUN"D:PROGRAM.BAS"  L*ʅȥe˅ BECF-m gUr gUȦ 3LؠU!g!XABCXXXXXXR ,}  A(}**(" ******************-}*****************(" *** The Trigonometry Machine *****(" *** (C) 1985 by Donald B. Lee ***-*(" *****************.}****************-((!( 1) Make a Trig Table.!(-# ( 2) Pythagorean Theorem.#(2 ( 3)  3-sides given. (7*'(/} 4)  2-sides 1-included angle*(<-*(" 5)  2-sides 1-unincluded angle.-(F$!( 6)  1-side & 2-angles.$(K( 0} 7) Quit.((P( @($( Which one(Q"@ AR"@ A S"@ A1}0T"@ A@U"@ APV"@ A`W"@Z ( @*2}******************** TRIG TABLE *********************;@, (}6-##(This module 3}will generate a$$(trigonometric table of Sine,""(Cosine, and Tangent values%%(for angles from 0-360 degrees$4}*'(in increments that you specify.*(8 AB&"(Angle increment please - &L!A` AV A5}(}`# ( Table of Values#(j**(" ANGLE SIN COS TANt/,($-------- ------ ------ -6}-----/(~-A`) 6-G:,6- Ap"6-)SINE+ 6-E:,6- Ap"6-+COSINE17}6-G:,'E:,6-! Ap'6-1TANGENT+!@ A+ASYMPTOTE CHECK.( $(+.8} A (#(+# A (!(+! A(  A&9}"(Make another table? (Y/N)& 4Y B A% B A8 A( $:}.(+8 A (!(+! A( %6-@0% A (;} A!!***************************!!*** PYTHAGOREAN THEOREM ***!!***************************;@<}, (}))(!This routine uses the Pythagorean&&(Theorem to compute the missing))(!sides of any right triang=}le given(in the following form:  (  (  (A   C C^2=A^2+B^2*(  4(  >>}( (H ( B(M'6-6-'6-R/ A!@!(What is side A%/ A!P\6-?}6-@f/ A!`!(What is side B%/ A!pp6-6-@z/ A!!(What is side C@}%/ A!% B6-%6-@ B%"@*%"% A"0%"@*%"A}% A"P%"@*%"% A"p4(*(There is nothing here to solve?4 A"2 A$(6-M:#B}@&#@,2 Ap$(A=B=C=$ A"2 A$(6-M:#@&#@,2 Ap$(A=C}B=C=$ A"2 A$(6-M:#@%#@,2 Ap$(A=B=C=$ A"1(-(!Do yD}ou want to do another? (Y/N) 1 4Y A  %` T B(2(*** ERROR - Negative Side ***F-@E}AJ T A  ********************* *** Solve 3-sides *** *********************  A0;@F}, B  '6-6-'6-  AINPUT PROMPT % A00!(What is side A%G} % A0@!(What is side B% % A0`!(What is side C% B  6-6-6-  !6-H}6-6-  !6-6-6-  !6-6-6- A5 *** COSINE LAW *** 556-+#@%#@I}&#@,'+@$$, -!6-D:M:@&#@,',-ARCCOSINE  6-A% *** SINE LAW ***J} 6-'G:,RATIO VALUE " 6-'"SINE OF SECOND ANGLE +!6-D:'M:@&#@,,+ARCSINE %6-A&&K}%THE THIRD ANGLE  "6-  "6-  "6-  "6-  "6-  "6-  "6- L} "6-*  "6-4  (} (((>  A@(H 3( Side A=Angle a=%6-/ Ap3(R 3( SidM}e B=Angle b=%6-/ Ap3(\ 3( Side C=Angle c=%6-/ Ap3(a ( A4@f )%(Would you liN}ke to do another)p  B4Y A0z % 0 (} (-(That Triangle is Impossible!0( J(( Side1^2 + SO}ide2^2 > Largest Side<-@A@ J A0*************************** Solve 2-Sides & ****** P}1-Included Angle *************************** A@;@, BK6-6-'6-Q}36-?6-K6- APROMPT INPUT% A@@!(What is Side A%% A@P!(R}What is Side B%9 A@P+(What is included angle c/9 A@`M B#!A)C(*** ERRORS} c<=0 OR c>180 ***M A@P##6-M:$%$&@$$$E:,,6-'G:,RATIO VALUE8 6-')6-D:'M:@&#@T},,8SECOND ANGLE 6-A%6-A&& (} A@"3( Side A=Angle a=%6-U}/ Ap3(,3( Side B=Angle b=%6-/ Ap3(64( Side C=6-" Ap4( Angle c=@(V} AAJ)%(Would you like to do another)T 4Y A@^ B% ************************** W}*** Solve 2-Sides & *** *** 1-Unincluded Angle *** ************************** AP;@, X}BK6-6-'6-36-?6-K6- APROMPT INPUT% AP@!Y}(What is Side A%% APP!(What is Side C%9 APP+(What is included angle a/9 AP`M BZ}#!A)C(*** ERROR a<=0 OR a>180 ***M APP6-'G:,RATIO VALUE9 6-'6-@# [}06-6@96-O:,G!@(=(&*** This Triangle is not possible. ***G AQ`4%6-$+D:'M:@&\}#@,,,4SECOND ANGLE 6-A%!6-A&&!THIRD ANGLE6-$G:,SIDE B (}6-]} A@ 3( Side A=Angle a=%6-/ Ap3(G( Side B=6-" Ap3( Angle b=96-^}C ApG(3( Side C=Angle c=%6-/ Ap3("@ AQ` 46-A&+A&,&4OTH_}ER POSSIBLE ANGLE!%6-$G:+A&,,%NEW SIDE B"6-A&#4(( --- OR ---(*6-@4 AQ0(`}( AQ2)%(Would you like to do another)< 4Y APF B%p$$***************************a}***q$$*** Solve 1-Side & 1-Angle ***r$$******************************t A`;@,u BzK6-b}6-'6-36-?6-K6- APROMPT INPUT% A`@!(What is Sidec} B%0 A@E"(What is Angle b&0 A`PM B#!A)C(*** ERROR b<=0 OR b>180 ***M d}A`@9 A``+(What is included angle c/9 A`pM B#!A)C(*** ERROR c<=0 OR c>1e}80 ***M A`P!6-A&&!THIRD ANGLE6-'G:,RATIO VALUE6-$G:,SECOND SIDE6-$G:,THIf}RD SIDE (} A@F( Side A=6-" Ap2(Angle a=86-B ApF(3( Side B=Angle bg}=%6-/ Ap3(4( Side C=6-" Ap4( Angle c=( Aa)%(Would you like to do anotheh}r)$ 4Y A`. B%X************************Y*** ROUNDING ROUTINE ***Z****************i}********[b6-O:P:$B,,l6-O:P:$A,,v=&+$@,!@36-+%@,'A= Ap5xj}6-'A{"6-$   6-$+6@, 6- $@**********************A*** Triangk}le Input ***B**********************J (}T''(Please use the following format^(%(when answering the questions.l}((h(  r( c  b|(B   A A  C( a b c a( m} ( C B(($ D:TRIG.BAS;'-%@('-%@('$' -('-%@('-%@(o}'$$' -(%'-%@(&'-%@(''$.' -(/'-%@(p}0'-%@(1'$8' -(9'-%@(:'-%@(;'$B' -(q}C'-%@(D'-%@(E'$ D:DICE.BASS! Pay toll of $ 6-% $ H:, &P:,$* % Construction ahead!% AV4 4(  Slow down! - speed limit 3s}5 MPH.46-@5> $R H:, &P:,$\ 6-P:%H:,$&,f 6* "You were just clocked by Radar at 6  MPH.p  t}!% A# $q  No ticket this time!z $ P:,A5 H:, ?PA5  $ H:, &P:,$u} 6, $Weighing station open - trucks stop!6 AVP J+ #Scale weighs truck with cargo, fuelJ and the driver inside atv}  ))6-P:B%%$%@%$+H:,$,,   pounds. 6-P:&B, &  # You're O.K. Go ahead.&$ w}"A606-H:,$%6-P:$,' 8% Overweight fine is $200 plus 8  cents/pound6-%%+$,'  Pax}y fine of $%+$,'$$.8B. &You are not allowed to enter LouisianaB with that load.BF& Take a 200 mile dey}tour throughF Arkansas with 45 MPH limit.Lv6-@Ev67++&,$@!,%+$@!$@%,<++&,$@!,%+$@!z}$@%,%,.Arkansas County RoadsV/-@@%+68<,-8<,%$/ `68,-8,%j$~H:, &P:,{}$6-P:H:,$,B$ A rock slide has blocked theB Alleghany tunnel entranceG+ #The highway department will have|} itG  cleared in  hours.5 6-% AVP"%6-&$+5 A8 & !6-P:'%?P,& A7p}} 6- !6- A7 !6-' 6-%7) While waiting you got  hours7  of sleep. A!~}$:* "You ran out of fuel while waiting.06-: A%@$ ! $H:, &P:,$(L* "The trailer refr}igeration unit hasL failed endangering the cargo.2=* "Repairs will take 2 hours and will= cost you $100.<*6-%+H}:,$,6-%"6-%*6-%F A! AVPP$ AV+ -%%  C R A S H ! !- -2}@%2-0 -00 ! 22@! 8 2-@6(2}0-4 8  K")+"@%* @e,A You fell asleep at the wheel.K AA0R"@P1 Yo}u drove off the road into aH snow filled ditch.R AA0I ".  You rear-ended a pick-up with no?  tail lights.I} AA0.!@e$  SPEED KILLS !!. AA0I !& You hit a slick spot and? skidded of the road.I AA0}8' A drunk driver rammed your rig!8  Tough luck!!"  AVP,+(  You lose your truck and profits.+ 6&" }Do you want to start over&@ 4N&J 6- + A -+-@`  Welcome to New} York!!-@`  -AP + A! .6-&P:'@$,. )!@!AQ@F. }&The warehouse is closed for the night.F Come back tomorrow. -6-@$&6-%# AVP- A!' 6-P:'}@$,'6-&@$$,, You completed the trip in  days( ! and  hours.2!! Trip expenses totale}d $<H6-@$%@H (Truck payments, insurance & taxes cost $F 6-% PAR ASAS`d}$6-+&,$+H:,$,!$6-%nb !( Your oranges have spoiled.K Haul them to the garbage dump.X6-6@Pb }ATx?) !Collect 6 and 1/2 cents per pound? for good oranges.06-?e$0 Total for the load is: $ }AT:$ Part of the load is damaged.:  Subtract $%6-&$' AT:6-?P$: $Collect }5 cents a pound for freight. Total for the load: $ @AT; 6-1 #You're late!! Subtract 10% pe}nalty.; ARK- %Postmaster pays 4.75 cents per pound.;6-?u$A6-K AR$ 6-&6-%$ ATp}"(( Your net profit this trip is $,)!A)  G O O D W O R K !!60 !0 Your average profit has been} $'@? )' AP? %You'd make more money washing dishes!J3  /  Do you want to make another trip3T}0NAU&^## BAD TRIP... You lost $O:,hAT0r You are bankrupt!!| AVP7 7 ,You}'re rig has been repossessed by the bank!   & -$ $-A $F# 21,2850P#((90,BARSTOW,I}-15 in California,7.80Z#&&225,NEEDLES,I-40 in California,1d#((440,FLAGSTAFF,I-40 in Arizona,3.65n#$$620,GALLUP,I-40 in }Arizona,5.5x#--760,ALBUQUERQUE,I-40 in New Mexico,3.35#((930,TUCUMCARI,I-40 in New Mexico,1#&&1040,AMARILLO,I-40 in T}exas,7.80#--1155,OKLAHOMA Border,I-40 in Texas,5.50#..1305,OKLAHOMA CITY,I-40 in Oklahoma,2.65#001530,MISSOURI Borde}r,Oklahoma Turnpike,2.4#''1815,ST. LOUIS,I-44 in Missouri,0#++1980,TERRE HAUTE,I-70 in Illinois,5.5#))2050,INDIANAPO}LIS,I-70 in Indiana,0#((2115,OHIO Border,I-70 in Indiana,1#$$2220,COLUMBUS,I-70 in Ohio,5.5#--2350,WHEELING West Va,}I-70 in Ohio,4.25#002410,NEW STANTON,I-70 in Pennsylvania,6.75#002570,HARRISBURG,Pennsylvania Turnpike,3.75$772760,N}EW JERSEY Border,Pennsylvania Turnpike,2.95$112840,HOLLAND TUNNEL,I-70 in New Jersey,2.40$&&9999,NEW YORK,New York Stre}ets,0'$ 18,2710,$((90,BARSTOW,I-15 in California,7.806$++245,LAS VEGAS,I-15 in California,7.80@$''365,UTAH Border,I-}15 in Arizona,0J$,,500,end of Interstate,I-15 in Utah,3.2T$""555,SALINA,US-89 in Utah,4.5^$**760,GRAND JUNCTION,I-70 in} Utah,3.75h$''1010,DENVER,I-70 in Colorado,3.75r$--1190,NEBRASKA Border,I-76 in Colorado,1|$%%1450,OMAHA,I-80 in Nebras}ka,5.5$%%1590,DEMOINES,I-80 in Iowa,4.75$++1750,ILLINOIS Border,I-80 in Iowa,5.6$$$1910,GARY,I-80 in Illinois,2.5$},,2050,OHIO Border,Indiana Turnpike,2.45$''2215,CLEVELAND,Ohio Turnpike,2.80$002280,PENNSYLVANIA Border,I-80 in Ohio,4}.16$552615,EAST STROUDSBURG,I-80 in Pennsylvania,3.33$442675,WASHINGTON BRIDGE,I-80 in New Jersey,2.20$&&9999,NEW YO}RK,New York Streets,0$ 25,3120$**75,PALM SPRINGS,I-10 in California,0$%%225,BLYTHE,I-10 in California,1%##375,PH}OENIX,I-10 in Arizona,0%""495,TUCSON,I-10 in Arizona,9%((650,LORDSBURG,I-10 in Arizona,5.75&%&&795,EL PASO,I-10 in Ne}w Mexico,00%965,PECOS,I-10 in Texas,1:%!!1080,ODESSA,I-20 in Texas,0D%%%1250,ABILENE,I-20 in Texas,3.80N%!!1439,DAL}LAS,I-20 in Texas,0X%..1610,LOUISIANA Border,I-20 in Texas,5.00b%((1785,VICKSBURG,I-20 in Loiusiana,0l%//1965,ALABAMA B}order,I-20 in Mississippi,1v%**2100,BIRMINGHAM,I-20 in Alabama,4.25%++2200,GEORGIA Border,I-20 in Alabama,0%$$2255,AT}LANTA,I-20 in Georgia,0%//2320,CAROLINA Border,I-85 in Georgia,5.75%112565,GREENSBORO,I-85 in North Carolina,3.80%66}2680,VIRGINIA Border,I-85 in North Carolina,7.85%&&2775,RICHMOND,I-85 in Virginia,0%--2880,WASHINGTON D.C.,I-95 in Virg}inia,0%**2920,BALTIMORE,I-95 in Maryland,2.30%222990,NEW JERSEY Border,I-95 in Maryland,2.25%223110,HOLLAND TUNNEL,N}ew Jersey Turnpike,2.40%&&9999,NEW YORK,New York Streets,0'Y+ 3 $You are driving an 18-wheel tractor-Y !trailer }combination that can hold'H- %50,000 pounds of cargo (10,000 poundsH over the legal limit).$'R+ #You are buying your }truck through aR "bank loan that requires payment of.'O) !$1,955 per month, or $85 for eachO !working day. This amount }includes8'K) !reserves for taxes and insurance.K  Your truck has a 200-gallonB'P(  fuel tank and gets 4.5 miles perP} #gallon of diesel fuel. Your mileageL'M* "decreases when you drive faster orM slower than 55 miles per hour.V'S- %Yo}ur fuel gauge is accurate to withinS !5 gallons and your speedometer is`',, $accurate to within 5 miles per hour.j' B}P*0+ 0 !It is extremely unlikely that you+M' will be involved in an accidentM !in good weather if you drive} at a +V- %reasonable speed and get enough rest.V $The danger increases dramatically if+O) !you drive at an excessive }rate ofO !speed, fail to slow down in a fog +Q* "or a blizzard, or continue drivingQ "after you have become fatigued. A}n*+Q+ #exhausted driver speeding through aQ !snow storm is asking for trouble!4+Q'  There is always the danger ofQ }%losing time due to a flat tire. This>+P+ #danger can be reduced by purchasingP  retreads or more expensive tiresH+Q* }"before you start your trip, and byQ "promptly replacing your spare tireM+ after a flat tire.R+ BP.Z+ 3} $The speed limit is 55 miles per hourZ "unless otherwise posted. Generally.U, $Smokey will allow some leeway beforeU }$pulling you over, but the faster you.Q- %go the more likely you are to attractQ his attention. There are also a.M, }$couple of places along the way whereM a radar speed trap may be in/R* "operation with strict enforcement.R # Whene}ver you get a traffic ticket/Q) !you will lose time as you wait toQ #pay your fine at the Justice of the/L) !Peace. I}f you receive more than 3L traffic tickets, you lose your&/<& Interstate Commerce Commision < drivers' license.:/ } BP2W+ 1 "Every three or four hours you willW !approach a truck stop. Each stop2S) !will take at least one} hour whileS %you get coffee, fuel and a spare tire2G* "if necessary. The price of dieselG fuel and tires will vary}2++ #unpredictably, but diesel fuel will2I% average about $1.00 a gallon.I  Truck stops are also the only2Q+ #pl}aces where you can sleep. You mayQ !choose when to sleep, but, if you2T, $attempt to sleep during the day, youT #will }be disturbed by traffic noise."3 BP,3J+ 4 %You have a choice of 3 routes to takeJ crossing the U.S.3S* "}The Northern route is the shortestS $but also the riskiest. The danger of3L* "bad weather is high, and the speedL lim}it is vigorously enforced.X4W- % The Middle route is longer than theW %Northern route, but has fewer Smokies4R+ #watc}hing your speed and the weatherR "conditions are much more favorable 5\+ #than the Northern route. There are,M however}, more truck scales in\  operation.5R+ # The Southern route is the longestR "but has the best weather and fewer5!! }smokies and truck scales.L6 BP:$:K-@"9 %Press any key when ready to continue.KAdAU: } F:Ad,"AUBP:AdAU$ D:TRUCKER.UDLJYb&DOS SYSb*START BATBC+PROGRAM BAS