' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`F  d ֠z# u`ժժՊ x? 8` ժժժ   ժժժժՂ py ?@s ժժժժժՂ p? @ac ?@sLq@ ԪժժՊ `?~ap>pnqLc~ P Ъ   ժժ `?p?  ժժժ @~``~s~pc~ P*U*U*U*U ժժժ p 3 `syaxx ժժժ   ժժժժՂ p @ ԪժժժժՂ p? @sc 3@LqL Ԫժժժ `?~ap>pnqLc~ P Ԫ   ժŪժ `?p?  ժժՊ `~``3~s~pc~ @*U*U*U*U ժժժ p  `syc??|yA ժժժ   ժժժՂ  @ ԪժժժժՂ p 3c 3@LqL Ԫժժժ `9f` `0n0@c ~ UPP Ԫ   ժժժ @  ժժՂ `|``3~c~p|c~ @*U*U*U* ժժժ p ? `syc?@|yA ժժժ   ժՊԪՂ  @ ЪժժժժՂ 0Nq ?xc?@|yO Ԫժժժ `9f` `0n0`a f (U*PT ժ   ժժժ   ժժՂ `98``3^A6`xA< @*U**U* 00:16368,0::AS=";R;" FLUID OUNCES" d#820J ':4:I;" MILLILITERS=";R;" PINTS(LIQ)"S '820 B':4:I;" MILLILITERS=";R;" QUARTS(LIQ)" L'820 N:A" LITERS=";R;" PINTS(LIQ)"#b820J:4:I;" LITERS=";R;" PINTS(DRY)"S820{@:4:I;" LITERS=";R;" QUARTS(LIQ)"J820r:4:I;" LITERS=";R;" QUARTS(DRY)"|820(#:4:I;" LITERS=";R;" GALLONS(LIQ)"2#820 Z#:4:I;" MILLILITER8209:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(LIQ)"B820u:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(DRY)"~820p:4:I;" CUBIC CENTIMETERS=";R;" GALLONS"z820:2:I;" CUBIC CENTIMETERS=";R;" FLUID OUNCES"820X:4:I;IC METERS=";R;" CUBIC INCHES"& 820P :4:I;" CUBIC METERS=";R;" BUSHELS"Y 820 :4:I;" CUBIC METERS=";R" GALLONS(LIQ)" 820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(LIQ)"820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(DRY)" MILLILITERS"820B::4:I;" PINTS(LIQ)=";R;" MILLILITERS"KD820xl:4:I;" QUARTS(LIQ)=";R;" MILLILITERS"v820:4:I;" CUBIC METERS=";R;" CUBIC YARDS"820:4:I;" CUBIC METERS=";R;" CUBIC FEET"820:4:I;" CUBINTS(LIQ)=";R;" LITERS" 820G@:4:I;" PINTS(DRY)=";R;" LITERS"PJ820xr:4:I;" QUARTS(LIQ)=";R;" LITERS"|820:4:I;" QUARTS(DRY)=";R;" LITERS"820:4:I;" GALLONS=";R;" LITERS"820 :4:I;" FLUID OUNCES=";R;"820:F:2:I;" QUARTS(LIQ)=";R;" CUBIC CENTIMETERS"CP820vx:2:I;" QUARTS(DRY)=";R;" CUBIC CENTIMETERS"820:4:I;" GALLONS=";R;" CUBIC CENTIMETERS"820:I;" FLUID OUNCES=";R;"CUBIC CENTIMETERS"820:4:I;" PV820+j:*DATA AND LOOP SETUP..200-300*U~:4:I;" BUSHELS=";R;" CUBIC METERS"^820:4:I;" GALLONS=";R;" CUBIC METERS"820:2:I;" PINTS(LIQ)=";R;" CUBIC CENTIMETERS"820:2:I;" PINTS(DRY)=";R;" CUBIC CENTIMETERS"050,3000,3050,4000,4050,5000,5050,6000,6050,7000,7050,8000,8050,9000,9050,10000,10050,11000,11050:4:I;" CUBIC YARDS=";R;" CUBIC METERS"820:4:I;" CUBIC FEET=";R;" CUBIC METERS"$820L:4:I;" CUBIC INCHES=";R;" CUBIC METERS"E TO BE CONVERTED";MI'RI777Ā6WI888500c\:EQUATION FOR CONVERSION OF INPUT VALUEaRIC(N):C(N)OBTAINED FROM ARRAY LOOPafN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2"METRICS FOR AREA".20:"PRESS ESC TO END"Y:"<>"p"(16384)271600,756:(16384)3215006:16386,0:@:AS SPACE BAR TO CONTINUE..>>"3(16384)271500Q756:(16384)321400c:16368,0:k:NFVW@Y d6?eKa()2QԪժժՊ `~ap>pnq|c~ P U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* KM6a(Πìɬ)a(ƠŠŠ)!d6?ed6?ed6?eUժժ `?p? P ԪժժѪ f` `3n0` f P*U*U*U*U :"THIRD HARMONIC":16009::"FOURTH HARMONIC":1600Y::"FIFTH HARMONIC":1600c,2000@HH1: ROUTINE FOR PLOTTING HARMONICSJK02694TXK(0.75360)6.283185^YA(H)(HX)B(H)(HX)hY(1T)YSm(Y)796000rK<YA0A(1)(X)B(1)(X)A(2)(2X)B(2)(2X)A(3)(3X)B(3)(3X)A(4)(4X)B(4)(4X)A(5)(5X)B(5)(5X)FY(1T)YSK(Y)796000PK,79YnK6::"FIRST HARMONIC":1600::"SECOND HARMONIC":1600:AND CALCULATION CONSTANT TO ZEROr::"PLOT OF INPUT DATA CALCULATED TO FIFTH HARMONIC. Y AT 100= ";T:y30,79279,79(0,00,159)0,79S5,79S*0,79S5,79S+269,77269,812K026947XK(.75360)6.28318531{TERM #10":1200%k"TERM #11":1210/l1250Q" ";A(H);" SIN(";H;"X)":t" ";B(H);" *COS(";H;"X)": OK NON GRAPHICS TO HERE ALSO CHAGE 1132 GOTO 1132"DO YOU WANT A PLOT (Y/N)? ";A$A$"N"6010  S70:H0: SETTING SCALE "TERM #1-(WILL BE ZERO IF GRAPH IS SYMMETRICAL)"?a" ";A0Xb"TERM #2":H1:1200mc"TERM #3":1210d"TERM #4":H2:1200e"TERM #5":1210f"TERM #6":H3:1200g"TERM #7":1210h"TERM #8":H4:1200i"TRERM # 9":1210j"I15 @A(I)Y(IX)A(I)4 JB(I)Y(IX)B(I); TIE ^NN1X hT(Y)T(Y)a 210 A0(A0N): CALCULATE COEFFICIENT AVERAGES I15 A(I)(A(I)N)2 B(I)(B(I)N)2 I L V"TERMS OF THE FOURIER SERIES ARE:"0`:TYPE 'DONE,DONE'"R :"ARE X DATA POINTS EQUAL STEPS DEGREES(D) OR RADIANS(R)?"f D$:D$"D"R1 :" INPUT DATA AS X,Y" X$,Y$ X$"DONE"1000 ,X(X$):Y(Y$) - CALCULATE SUMS OF COEFFICIENTS 1A0YA0:RX(X360)6.28318 6PH ARE SYMETRICAL, X,Y VALUES FOR ONE FULL CYCLE MUST BE ENTERED."i z"START AT DATA POINT #1 (NOT #0)"o { }"---HIT ANY KEY AND RETURN TO CONTINUE---":Q$ :2:"INPUT X,Y VALUES OF POINTS ON GRAPH UNTIL ALL INPUTTED. AFTER LAST ENTRY <" (B)THERE IS ONLY ONE VALUE OF Y FOR EVERY VALUE OF X."} F" (C)Y HAS ONLY A FINITE NUMBER OF MAXIMA OR MINIMA." d n"MAKE A TABLE OF X,Y VALUES PICKED FROM THE GRAPH FOR EACH SECTION."B x"EVEN IF THE FIRST AND LAST HALVES OF THE GRA=JUNE 9,1979===3 :5:13:"HARMONIC ANALYSIS": "THIS PROGRAM CALCULATES THE COEFFICIENTS OF FOURIER SERIES TO THE FIFTH HARMONIC" "OF PERODIC FUNCTIONS F(Y)=F(X)" ("FUNCTIONS MUST MEET THIS CRITERIA:" 2:" (A)YIS NOT INFINITE."? - ***HARMONIC ANALYSIS FOR THE APPLE***N ***BY CHARLES B. PUTNEY***l ***1085 UNGUOWA ROAD*** ***FAIRFIELD ,CT. 06430*** ---AS PUBLISHED IN THE MAY 1979--- ---ISSUE OF 'MICRO'--- ===ENTERED BY JUDD ELLMERS===  ==  EIGHT""20:"PRESS ESC TO END"M:"<>"d(16384)271800756:(16384)321700:16368,0::A0(@:6:I;" MILLIGRAMS=";R;" POUNDS"1J620Xr:6:I;" MILLIGRAMS=";R;" GRAINS"a|6205:"METRICS TEMPERATURE & WEIGHT":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAM DOES METRIC CONVERSIONS""FOR TEMPERATURE AND WDS" 6202F:6:I;" KILOGRAMS=";R;" OUNCES";P620ax:6:I;" KILOGRAMS=";R;" POUNDS"j620:6:I;" METRIC TONS=";R;" TONS(SHORT)"620:6:I;" METRIC TONS=";R;" POUNDS"620:6:I;" MILLIGRAMS=";R;" OUNCES"62OUNDS=";R;" KILOGRAMS"$620GL:6:I;" POUNDS=";R;" METRIC TONS"PV620w~:6:I;" POUNDS=";R;" MILLIGRAMS"620:6:I;" TONS(SHORT)=";R;" METRIC TONS"620:6:I;" GRAMS=";R;" OUNCES"620:6:I;" GRAMS=";R;" POUNILLIAM R. DIALb LAST MOD. SEPT. 1979 FOR APPLE CORE OF SAN FRANCISCO..h}$ 'NOTCH FILTER'."!"! PROGRAM BY WA4HUUB 73 MAGAZINE JAN,'79 PG100b SUBMITTED BY WM. R. DIAL AKRON APPLE USER GROUP GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY: APPLE USER GROUP BY WTCH FILTER IS NOT":"EFFECTIVE AT THE HIGHER FREQUENCIES!"_l"DO YOU STILL WANT THIS HIGH A"}q"FREQUENCY? (Y OR N)";Z$Z$"Y"120100 I1500%I*"ANOTHER DESIGN? (Y OR N)";M$M$"Y"100936:10:15);"GOODBYEWILL MAKE CALCULATIONS":450OCT$"FOR CONSTRUCTION OF A NOTCH FILTER.":450s&21:" PRESS THE 'ESC' TO END"+22:"< PRESS THE SPACE BAR TO CONTINUE...>"0(16384)1554905(16384)160550:16368,0::::X"BE ADVISED--THE NO   TITLE PAGE ROUTINEB 3:CT$"* NOTCH FILTER *":450e CT$"PROGRAMED BY WA4HUU":450 CT$"JANUARY 1979":450 CT$"DONATED BY WILLIAM R. DIAL":450 CT$"AKRON APPLE USER GROUP":450 CT$"SEPTEMBER 1979":450:CT$"THIS 16368,016304,0# 2220Kp"PLOT IS OFF SCALE...TRYING AGAIN"orSS10: SHORTEN VERTICAL SCALE}tK11000vKx1300z C.B.PUTNEY,FAIRFIELD CONN.,VERSION 3/1/79":2100'::"FIFTH HARMONIC":2100Q:"CONSTANT = ";A0;" Y AT 100 = ";Ts:"HIT SPACE BAR FOR REVIEW"*H0:22004A(H),B(H)>HH1: REVIEW ROUTINE(16384)127222016368,016303,0(16384)1272270 ,79Y |K;:H1: SETTING UP COEFFICIENT TABLEc5:" COEFFICIENT TABLE"::" SINES"," COSINES":"FIRST HARMONIC":2100::"SECOND HARMONIC":2100::"THIRD HARMONIC":2100::"FOURTH HARMONIC * g KILOBAUD/ *<h MICROCOMPUTING *Xi *tj ADDAPTED BY *k WILLIAM A. VORBAU *l MARCH7,1979 *m *n *********************0.198K(11.65VO)A1: V1VO((A2X(I)A1)X(I)1.003)@ \ ` *********************x a * b ORIGINAL PROGRAM BY * c DAVID S. DIXON * d * e APPEARING IN THE *f MARCH, 1979 EY ";::" <<<": &33,40J 0:756: WAIT FOR A KEY TO BE PRESSED Q :IW Dh NB117.6VO2 XB2.05K(1.6VO)B1 bB3.1815K(11.2VO)B2 lY1((B3X(I)B2)X(I)B1)X(I)2 vY(Y11.5)X(I)  A1.0823K(1.45VO) A23,40:12:"DATA INVALID AT THIS RANGE":530d :"DROP (INCHES) ";U:8:" " "REMAINING VEL. (FT/SEC) ";V:10:" " :"CORRECTION (MOA) ";J:12:" " :: :">>> ";::" PRESS ANY KGE ";I;15); T:X(I)5 ^X(I)1X(I)10000330I h::X(I)X(I)100P rIX |:d I1L%m 590 ::U(YD)X(I) :650 ::VV11000 ::RX(I)100 ::JU(X(I)1.05) :::: 33,35 ::"RANGE",R::+ V1000Ĺ3 VO0VO100000190% VOVO10008 K1(CVO.75)] "NUMBER OF RANGES ";L%q L%1L%20230| X(L%) "ZERO RANGE (YDS) ";X(1) X(1)1X(1)10000260 X(1)X(1)100 "I1 ,590 6DY @I1L% J:"RANx,5::" "]5:" ";::" EXTERIOR BALLISTICS ";::" "5:" "::::"INPUT PARAMETERS"::"BALLISTIC COEFFICIENT ";CC0C1170"MUZZLE VELOCITY (FT/SEC) ";VO     -------------------------"%&KK10+JJ1X/ READ DATA % CHECK FOR END OF FILEe0M$,B,L2{5M$"ENDATA1"5979 GO PERFORM THE CALCULATIONS:1000?J;4);M$;25);D1;31);D2;38);R2AK10585BK0:A:5EI550N20 - 515 IS ENTRY POINT FOR CITIES ONLY (F=0 PRESET)<2000m"CITIES LISTING CENTERED ON ";W$;" FOR ";N$s "BEARINGS AND DISTANCES TO MAJOR US CITIES"" CITY";13);"LAT/LONG";26);"MI";32);"K/M";37);"DEG."!"---------------------------------------------"(475] NUMBERED STATEMENTS READ THE FIRST SET OF DATA WHICH CONTAINS THE US CITIES DATA AND PRINTS LIST F IS A FLAG TO SEE IF BOTH CITIES AND DX LIST ARE DESIRED. IF YES ENTER AT 510 & F=1F12ϠҠŠƠӠ٠Ԡ̮Š=^]ԠĮԮҠӠŮr]Ƞŧ|QΠӬĠϠή:]ƠՠϠŠ͠ԠԠ̠٠Ԡr]Š̠͠ԠΠӠĠΠϠŠՠŠՠ٠Šή@]tJ]ΠϠŠŠƠΠҪL]ԠԠՠŠĠȠŠƠȠ͠ՠĠŠϠW]ԠԠՠŠĠȠŠƠȠ͠ՠĠŠϠϠ{]ΠƠՠĠՠ̠ԠΠӮՠ̠Ԡ%_"`%_,`%_ 6`%_@_|d6?eK_UpUVWY[XLbq/?rgflUVW'vij'kY[]٠Ԡ ]Š"]Ӡklmnijkijk lmn ghlmn (gh2lmn<ijkFlmnPlmn Zghlmn  g h gh ^q` $|`ŠŠӠ`%_a(٬ԧӠ)\pL_\Xq/?r`%_ flmnlmn  gh gh g hi jklmn i j a(٬ԧӠ) L \p _  q/?r`%_ q/?r`%_)q6?q.?r.?r.?r.?r.?rbE()FE()GTG]ՠϠԠŠϠŠΠŠҠΠŠΠ+]ҠӠϠq6?q.?r.?r.?r.?r.?r qbE()FE()GT`%_ a(٬ԧӠ)L\p _ q/? r `%_  q/?r) q6?q.?r.?r.?r.?r.?r q bE()FE()G T `%_KM6o P a(ŠĠ)Q q/?r`%_ q/?r)q6?q.?r.?r.?r.?r.?r qbE()FE()GT`%_$a(٬ԧӠ))L.\p8_ q/?r`%_ q/?r)a()a(Ԡ)c!a(ȠĠՠŠϠ)a(ҠҠ)GT`$`$`$ `$`$`$Z`$Z/]·ććŮ9d6?eALa(ƠՠϠΠӬӠŠԠٮ)Ma(ՠΠР)&Na(͠٠Ǡ̠ç)Oa() P\p\pUM6qoZa(ՠΠź)da()na()xa() d6?eKM6!]Ԡʠ̠Š a()a(Ƞ)a(Š)(a(٠Ԫ)2a(ʮ̠)<a(Š)Fa() Kcccc     8010351040LL360(11005 LL360CL01100LX1oL - CONVERT L AND B TO RADIANSVB1B3.14159180[LL3.14159180_ - COMPUTE THE DISTANCE ANGLE`P(L)(A1)(B1)(A1)(B1)eP1((1PP)P)jP2OTHER POINTS CALCULATED? YES OR NO"*2T$DT$"YES"705M250 - 1000 SERIES SUBROUTINE PERFORMS ALL CALCULATIONSLL2L1 - X IS A FLAG FOR TESING LX0 - BRING L WITHIN RANGE -180 TO 180L1801025L1T POINT."B?"ENTER LONGITUDE OF DISTANT POINT."GL2Q1000W"DISTANCE FROM ";W$;" TO ";M1$;" IS ";D1;" MILES.""THAT DISTANCE IS ";D2;" KILOMETERS.""BEARING TO ";M1$;" IS ";R2;" DEGREES."$ "DO YOU WANT K0:6502000"640(1250 THE 700 NUMBERED STATEMENTS MAKE UP THE ROUTINE TO CALCULATE USER ENTERED COODINATES ONE AT A TIME10"ENTER DISTANT LOCATION DESIGNATION"M1$ "ENTER LATITUDE OF DISTANG."3"----------------------------------------">KK1IJJ1VM$,B,L2lM$"ENDATA2"696v1000J;5);M$;15);B;"/";L2;25);D1;31);D2;37);R2K18ľZ$:K5ĺK18K0:K10ĺK15ĺ650K181"614b605f2000Pg"BEARINGS TO DX LOCATIONS ON ARRL COUNTRIES LIST"l"DEL - MEANS A COUNTRY DELETED FROM ARRL LIST"qv"DX LISTING CENTERED FROM ";W$;" FOR ";N${" DX PREFIX";15);"LAT/LONG";26);"MI";32);"K/M";37);"DE00 S5409T IS FLAG SET FOR BOTH CITIES AND DX LISTFUF1614LVUW250X 600 NUMBERED STATEMENTS READ THE SECOND SET OF DATA WHICH IS THE DX COUNTRIES LIST DATA[ 605 TO 610 FIND THE END OF THE FIRST DATA]M$,B,L2`M$"ENDATAӠ͠ΠϠŠŠƠΠϠҠŠƠӠ٠Һ٠ήS]ŠĠΠ٠٠Š٠ή7]͠ĠàΠ+q.?6@rd6?e`$`%Q`@:()$q`$UVW̱-rqY_-]!]͠٠٠]]ӮƮŠ]Šϧ ]3+KM6o P a(ŠĠ)Q{] -rq-r q`$ q q`@9()%bE()G"`$ͱ-rqbGq`ıIJ$`@9()%bE()GıqıIJa()Gͱ-rq-rq b-rG q`$ ̱qccr6Ͳ-r $lkq`$d_l`@9()$xnͱ-rq<ͱ@*#rrr`ͱ-rͱ-r $x-rq-rͱ-rͲ-r q q`$l q`$< qq-rq-rq8-r-r r@9()$ S()'Ͳ@pͱ@qIJqı̲q̱_- S(Ġҿ)&Ͳ@"IJq̲q;Ͳ@r$`Ͳ@*̲#̲r9()$(#&IJqIJ̲q̲`̲$$ 'IJq (̲q;Ͳ@r -q /q2q̲<q̱FqqdͲ-rq<Ͳ@*#rri`Ͳ-٠٠Πٮ̠àϠĮ)`.?6@r$d6?e M6S(ԠҠп)&@UVW-rqYS(Ԡҿ)&ͱ@ıq̱q;ͱ@r`ͱ@*̱#̱r9()$*ıqı̱q̱`̱$ıq ̱q;ͱ@r(` M6-Nͱ@"1rCͲ@"1rD4rDͱ4rDͲ41r"Pa(٠Ϡ)c(Pa(ҠŠҠϠ)c! Pa(ՠ٠Š)c" Pa(ԠΠԩ)c) Pa(ԠҠȠΠŠ)c8 Pa(Ƞ     1979":1650"!D(16384)1551690!I(16384)1601855"N16368, * * *":1650  2  TITLE PAGE ROUTINE_ 3:CT$"* GREAT CIRCLE BEARINGS *":1650} CT$"BY JOHN HEISE":1650 CT$"NOVEMBER 1977":1650 CT$"DONATED BY WILLIAM R. DIAL":1650 !CT$"AKRON OHIO USER GROUP":1650 !#CT$"SEPTEMBER 530R22701700$R290.1700A@(L)1781640OEBA1630YJR20cT1700o^R2180yc1700hBA1630m1610r PRINT CENTER ROUTINEw20(CT$)2|CT$"" 16368,0:::10:CT$"* * * THE ENDR3(L)(A1)(B2)(B2)(A1)8R4((1R3R3)R3)QR6(B2)(L)(R4)_X11240t(R6)(R)1230R2360(R2)1700R2180(R2)1700(R6)(R)1255R2180(R2)1700R2(R2)1700X11(1RR))D -CONVERT BEARINGS TO DEGREES ROUNDED TO NEAREST INTcR2((R11803.14159).5) - DETERMINE WHAT QUADRANT THE BEARING ANGLE IS IN AND ADJUST THE DEGREES(R).9999981500(R).001741600B2(B.1)3.14159180P11803.14159En - DISTANCE ANGLE MUST BE POSITIVE IF NOT ADD 180ToP201145^t1150myP2P2180} - COMPUTE DISTANCE~D1(P2601.15152.5)D2(D11.6093.5) - COMPUTE THE BEARING ANGLER(B1)(L)(P1) R1(RƠӠ٠Һ٠ήQ]ŠĠΠ٠٠Š٠ή7]͠ĠàΠ٠٠Ϡ)_F3KM6o P a(ŠĠ)Q]]ΧQ] ]͠٠٠L]ӮƠŠŭ~]{]Ӡ͠ΠϠŠŠƠΠϠҠŠϰ)G Aq BqD_:bUVWd`$g`-r%Yl`$ va()G`$`-r%-rq-r b-rG`$`%q`$Ycc%`%a( -rq-r_T`̱$!ı-rqı-r ı-r_0ı-rqı-r ı-r UVW̱$ı-rqı-r'Y*ı-̱rqı-̱r0Y 1a()G2qq4`$b 7a()G:`$b >a(TUV̱WX6ı-rqı-rӲ-r`ı-r6%Y`$`$ı-rqı-r ı-rqı-rYUV̱WX6ı-rqı-rӲ-r`ı-r $ı-rqı-r ı-rqı-rY̲ıIJ "̱q̲,UVW6-rqı-rIJ-r@`-r %-rq  Tq^UV̱WX6hӲ-rq8-rIJ-rr r`ı-r $|wӲ-rq-rIJ-r_|q8-rIJ-rr Y`$-rq-r_ ̱q̱UVW̱ı-rqı-rYZUV̲WX6IJ-rq<IJ@*#rr`<IJ@*#rr%Q`IJ-r6IJ-r %Y`$`<IJ@*#rr$ IJq̲ ̲q̲ UVW̲IJ-rqIJ-rYZqq`$PKq.?6@r`$KMM6qPS(Ŀ)&ı@ZS(ҿ)&IJ@dıqIJqṉq;ı@r̲q;IJ@rxUV̱WX6ı-rq<ı@*#rr`<ı@*#rr%Q`ı-r6ı-r %Y`$ ıq̷ M6(a(ԠԠȠΠŠ)c-a(Π͠ϠԠà)(ca(Ҡ٠ҠϠ)cc 6q5<Nı@"crCIJ@"crD4rDIJ4crDı4rDӲ4crDS(Ơî)'FUVWı-rqYJ    ) ISTANBUL,41,29.) JERUSALEM,31.8,35.2K) JOHNANNESBURG,-26.2,28b) LISBON,38.8,-9.1v) LONDON,51.5,0) MADRID, 40.4,-3.7,MANILA,14.6,121,MEXICO CITY,19.3,-99.1) MONTREAL,45.5,-73.5,MOSCOW,55.8,37.7) NEW DELHI,28.6,77.2* KOK,13.8,100.79( BELGRADE,44.8,20.4,BERLIN,48.8,13.3 N( BOGOTA,4.5,-74( BRUSSELS,50.9,4.4,BUENOS AIRES,-34.5,-58.5( CAIRO,30,31.2,CALGARY,51,-114( CARACHAS,10.5,-67( COPENHAGEN,56,12.5( GENEVA,46.2,6.1( GENEVA,46.2,6.12'{ ST. LOUIS-MO,38.7,-90.3>' SALT LAKE CITY,40.8,-112^' SAN FRANCISCO,37.8,-122.4{' SEATTLE-WA,47.6,-122.4' WASHINGTON-DC,38.9,-77' WICHITA-KA,37.7,-97.4' AMSTERDAM,52.4,4.9' ANCHORAGE, 61,-150( ATHENS,37.95,23.7,BAN0&N NEW YORK-NY,40.7,-746&S NORFOLK-NC,37,-76.3X&X OKLAHOMA CITY-OK,35.5,-97.5p&] OMAHA-NB,41.3,-96&b PHILADEPHIA-PA,40,-75.2&g PHOENIX-AZ,33.2,-112&l PITTSUBUR-PA,40.4,-80&q PORTLAND-OR,45.5,-122.7'v RAPID CITY-IA,44,-103. LITTLE ROCK-AR,34.7,-92.3:%! LOS ANGELES-CA,34,-118.2Y%& LOUISVILLE-AR,38.2,-85.7s%+ MIAMI-FL,25.8,-80.5%0 MINOT,48.2,-101.3%5 MINN-ST.PAUL,45,-93.1%? NASHVILLE-TN,36.1,-86.8%D NEWINGTON-ARRL,41.7,-72.7&I NEW ORLEANS-LA,30,-9INES, 41.6,-93.6($ DETROIT, 42.6,-83G$ GREAT FALLS, 47.5,-111.3c$ HOUSTON-TX,29.8,-95.6$ INDIANAPOLIS-IN,39.8,-86.1$ JACKSONVILLE-FL,30.3,-81.6$ KANSAS CITY-KA,39.1,-94.6$ KNOXVILLE,36,-84$ LAS VEGAS-NV,36.1,-115.1% IRMINGHAM,33.5,-86.8?# BOISE-ID,43.6,-116.2,BOSTON,42.4,-71[# CHARALOTTE,35.2,-80.8u# CHEYENE,41.2,-104.8# CINCINNATI,39.1,-81# CLEVELAND,41.5,-81.7# COLUMBIA-SC,24,-81# DALLAS,32.8,-98.8# DENVER, 39.7,-105$ DES MO0:::L" - THIS ROUTINE PRINTS BLANK LINES AFTER EVERY 55 LINES OF DATAR"X"^"d"j"p"v"|""K0""3:5);"LOS ANGELES -- 34 N. -118.2 N"" ANCHORAGE,61,-150,ATLANTA,33.75,-84.4# BANGOR-ME,44.8,-68.8,BҠŠƠӮR]ŠĠΠ٠٠Πή5]͠ĠàΠ$]%M6Y bG \ [ ]٠ϠŠ ]ԠέŠ \ UVW Y []ǠŠ a()G[]]ǠΧ]V]Ӡ͠ΠϠŠŠƠΠϠ8r%b-rGu\ zYoPa(͠)Fo \ \ S(ҠͿ)&@`;@r$`@*#r9()$n M6KQ!]ԠͬԠ]ԠԠUVW` r q UVW*q -r 4q >q HqM`$zRoPbGT\  Wq#\oPq\#aoPa()G\ "foPq\p`q<@*#rr` $-8rrq&Y XM6*]oPUVWa()GYboP8rla@GvPa()GUVW b-rGY\\ &q8-r -rr -r q-Ġ͠Ϡ)_ ,UVW6q<@*#rr@` $J-rqTY ^-rqS(ҽ)&@ q;@r`$+a(ŠŠҠϠҠŠ)_-rq UVW ]Ǡ]dN@" rD4 rD4r nKM6xS(ԠҠ׿)&@`;@r$x q`@*#r9()%q`@*#r9()%q`$xS(Ľ)&@ q;@r` $,0a(Š  7,16,61.5,FH8MAYOT,11,43,FH8COMD6,11,43n/ FK8,-22,167,FL8,11,42.5,FM8,14.5,-61,FO8-CLIP,10.3,-109.5/ FO8-TAHITI,-17.5,-149.5,FO8-GAMB,-23.5,-135/ FP8,46.5,-55.5,FR7-GL,-11,47,FR7/J.DE.N,-20,40 0  FR7-EU,-22.5,40.5,FR7-REUM,-21,56,FRWEST,50.5,8,DM-EAST,53,13,DU,15,121Z. EA,40.5,-4,EA6,39.5,3,EA8,28,-17,EA9-CEUTA,36,-7. EA9/R-DEL,25,-14,EA9/S-DEL,25,-14,EA0->3C,1,10. EI,53,-7,EL,6,-10.5,EP,36,51,ET,9.5,39,F,49,3. FB8Z,-38,77.5,FB8W,-46,51,FB8X,-49,70,FC,41.5,9./F633,-8,CP,-16,-68.5,CR3,12,-16L- CRA->D4,15,-24,CR5,.3,7,CR6->D2,-13.5,16|-CR7C9M,20,35,CR8Ʌ,9,125,CR9,22.5,114.5- CR10-DEL,-9,125,CT,38,-9.5,CT2,37,-27 ,CT3,33,-18-CX,34.5,56.5,D2A,13.5,16,D5,15,24,D6,11,43#. DL-DEL,50.5,8,DA-U,27,89,AC4-DEL,29.5,91.5,AP,29,69Z, BV,25,121.5,BY-N,40,116,BY-CTR,36,104,BY-S,22,115, C21,-.5,168,C31,42,2,C5A,13,-17.5,C6A,25,-77.5, C9M,-20,35,CE,-33,-70,CE9-ANTR,-90,-90, CE0A,-27,-109.5,CE0X,-26,-80,CE0Z,-34,-80- CM,23,-82,CN,YDENY,-33.9,151.1;+TOKYO,35.8,139.8,TORNONTO,43.6,-79.3f+VANCOUVER, 49.2,-123.1,WARSAW,52.2,21+WELLINGTON-NZ,-41.5,174.8+$WINNIPEG,49.9,-97.1+ ENDATA1,1,1+ A2,-24,26,A35,-20,-174,A4,23,58,A6,25,50,A7,25,51", A9,27,50.5,AC3->VOSLO,59.9,10.85* PARIS,48.9,2.3,PEKING,39.8,116.5 ]* PRAGUE-CZ,50.1,14.4,QUITO,-.5,-78}* RIO DE JANERIO,-22.9,43.2* ROME,41.9,12.5* SAIGON,10.8,107* SAN JUAN,18.3,-66* SANTIAGO,-33.5,-71,SEOUL,37.6,127+STOCKHOLM,59.4,18,SӠԠ٠)a(Š)oa(ӠàϠ)*ca(ӠŠҠϠŮ)`.?6@r$XM6`.?6@r $p M6[ XM6Q[]٠ҠϠ͢UVWde.?r Y M6["poa(àɠϠ)%zca(٠ Р͠Ϡ)a(ź)&cca(Ӡ͠Πàɠ)&a(Ϡ  Y []ŠUVWdede`%de Yde `%q`%qq\qq de *Y4[ ]Π q UVWX61 q.?r.?r q `$  q q de q8r$de.q 8YB[]Π qUVWX6+q.?r.?r q`$  q qrE()G!UVW` $:0`.?r %a()G:b.?rG DYNcXQ]ΠqqUVWq.?rqq\`%\`%\qq6*qq-r\`%\`$ ,Y]ԠŠccBa(ŠŠƠɠϠ)F8drE(̠Ӻ)cb.? `$2qdq8r!2qq q0-<qqq qq6FO4r-rq-rqd]Π}UVW \ \qq=]ŠɠΠٺ )]͠ϠϠǠǯԬM6\p3M6o Pa(נ٠ӠϠՠ)G=]ӠӠӬҠ٠ҠԠԡ T M6q    58,UI8,41,69E7UJ8,39,69,UL7,43.5,77,UM8,43,75,UO5,47,29,UP2,54,25|7 UQ2,57,24,UR2,59.5,24.5,VE/VO1,48,-55,VE1,46,-637 VE2,46,-71,V02,53,-60,VE3-CTR,50,-86,VE4,50,-977 VE5,52,-107,VE6,54,-113,VE7,55,-125,VE8-NE,70,758 VE8-W,65,-125,VE,11,TL,5,19,TN,-5,15,TR,0,10,TT,12,16d6 TU,5.5,-4,TY,6,2,TZ,15,-3,UA1-F.J.L.,80,55,UA-MSCW,56,336 UA2,55,20.5,UA9,57,60,UA0-NOVOS.,56,92,UA0-IRKUT.,52,114,UA0-YAKUTSK,62,130,UB5,50.5,30.5,UC2,54,27.5 7 UD6,40.5,50,UF6,42,45,UG6,40,44.5,UH8,38,Y0-ST.P,.5,-29.5,PY0-TR,-21,-29,PZ,6,-55Z5 S2,23.5,90.5,SM,59,18,SP,52.5,20.5,ST,16,325 SU,30,31,SV-CRETE,34.5,25,SV-GR,38,24,SV5,35.5,285 SY-MT.A,41,25,TA-CTR,40,32.5,TA1-EUR,41,295 TF,65,-21,TG,15,-90.5,TI,10,-84,TI9,5.5,-87%6 TJ,44.5,-59,LX,50,7,LZ,43,23,MI-SEE-9A,44,12W4r OA,-13,-77,OD5,34,35.5,OE,48,16,OH,60,254w OH0,60,20,OJ0,61,20,OK,50,14.5,ON,51,4,OX,73,-404| OY,62.5,-8,OZ,55.5,12,P29,-9,147,PA,53,5,PJ,12,-694PJ8,18.5,-63,PY,-16,-47,PY0-F.DM.,-3.5,32.5(5 P,28,-178,KJ6-JOHN,17,-168,KL7,61.2,-149.8X3Y KM,28,-178,KP4,18.5,-66.5,KP6-KIN,6,-1623^ KP6-PAL,7,-162,KR6-DEL,26,128,KS4-SWAN->HK0,17,-833c KS4-SERR,14,-80,KS6,-15,-169,KV4,19,-64.53hKW6,19.5,167,KX6,9,168,KZ5,9,-79.5,LA,60,10.5(4m LU,-3,71,-9,JY,32,36,K1-K2,42,-74[2@ K3,40.5,-76,K4,34,-82,K5,33,-97,K6-SF,37,-122,K7,40,-1442EPAUSEI14000::"TO CONTINUE HIT ANY KEY";:A$2J KC6-EAST,10,139,KC6-WEST,8,160,KG4,20,-752O15:"WHAT IS YOUR LOCATION (HOME QTH) ? "W$)3T KH-KURF78,HK0-MAL,4,-81F1' HK0-SAN-A,12,-82,HL,38,128,HP,9,-80,HR,13.5,-87x1,HS,13.5,100.5,HV,41.5,13,HZ,24.5,47,I,41.5,1311 IT,38,13,IS,39,9.5,JA,35.5,140,JD-OGA,27,13716 JD-M-T,24,154,JD-OKINO,25,132,JT,48,107,JW-SVAL,77,142; JW-BEAR,75,19.5,JX7-TROM,-16,5570 VK5,-34,139,VK6,-31,116,VK7,-43,147s0 GJ,49.5,-3,GC,49.5,-3,GD,54,-5,GI,55,-6,GM-SCOT,56,-30 GM-SHET,60.5,-1,GW,51,-4,HA,47,19,HB9,46.5,8.50 HB0,46,10,HC,-.2,-79,HC8,0,-90,HH,19,-72,HI,19,-701" HK,4.5,-74,HK0-BAJO,16,-Ԡ)Ha(͠ؠϠàĠ)Roa(ӠàϠ)*\ca(ӠŠҠϠŮ)f`.?6@r$pM6`.?6@r $  zM6[ M6Q?x]Ԡ̠٠Ġ Π%q<@r -rqY`-r;@r%[UIJVW;@r-IJrq-IJr @BIJrp@*-IJr#-IJrrYIJ q [ oa(ؠà)*ca(٠Ġ)4a(ź)$>cca(Ӡ̠c_F&`%q[0]:UIJVWX6D-IJrq-IJrNYIJX_b`$lUױVW-ױrqYױv[UױVW-ױrqYױ[UVW;@r@p@*#r`<@r%q<@r`<@rñq`%qq1?r q ıq!q-rqı`$ oP&M6da(àϠ)GPbñE()G`ñ$0UIJVWX6a@*-IJr#-IJrrGYIJq\&M6Y`%q oP:"M6da(ؠϠ)GPaر@E()G`%a()G,`ر@:()$@6a()_J@bJq\&M6qT_F ^qhc)rS(̠ҠϠŠ)'|\b )r$Zxc.S(̠ҠϠŠ)&@`@:()$ر@p@_ر@p@\ q;@r UVWq 8r@p@*#r`<@r%q<@r`<@r%q<@rqM6\  M6qd"eo]٠Ġ Ϊ!(N@"rC@"rD4r2O4rCر@"r<@p() FqPa(ȠةҠĠé)Zq.?6@r`$Zdd6?e`<()r$^n`<(   3X,9.5,-14,3Y,-54.5,3,4M->YV,10.3,-67Y>q 4S7,7,80,4U-ITU,46.5,8,4W,15.5,44,4X4,32,35>v 5A,33,13,5B4,35,33,5H1,-7,39.5,5H3,-8,35>{ 5N,6,3,5R8,-19,48,5T5,18,-16,5U7,13,2> 5V7,6,1,5W1,-13,-171,5X5,.5,32,5Z4,-1,37? 6O6,1.5,45,6W8,15,-17,/=S ZL-ANT,-50,179,ZM7,-9.5,-171,ZP,-24.5,-58i=X ZS,-34,19,ZS2-MAR,-47,37,ZS2-P.E.,-46,38,ZS3,-22,18=] 1S,15,115,3A,44,8,3B7,-16,59.5=b 3B8,-20.3,55,3B9,-20,63,3C,11,-17,3CO,-2,6=g 3D2,-18.5,179,3D6,-26,31,3V8,37,10.3,3W8->XV,10.3,107'>l3,ZD3->C5A,13,-17,ZD7,-16,-6Q5B4,35,3-4,55.5*:VR1-PH.,-4,-171,VR1-GI,-4,176S:  VR2->3D2,-18.5,179,VR3/VR7,-1,-156t: VR4,-9.5,160,VR6,-25.5,130:VS5,5,114,VS6,22.5,115,VS90->8Q,4,73,VS9K-DEL,15,41: VU-BOMBAY,19.5,73,VU-ANA,12,92,VU-LACC,11,72;! VX/VY-VE,43,-60,XE,19.5,-VP2E,19,-63,VP2G,12,-61,VP2L,14,-61P9VP2M,17,-62,VP2S,13.5,-61,VP2V,19,-64.59VP5,21.5,-71,VP6->8P6,27,-78,VP7->C6A,25,-77.59 VP8-FA,-51.5,-59,VP8-GA,-53.5,-37,VP8-OR,-61,-45: VP8-SA,-58,-27,VP8-SH,-63,-55,VP9,32,-65,VQ9-CH,-7,71,VQ9-SEY,1-SABLE, 43,-60,VK,-34,151W8 VK2-LOARD-N,-32,160,VK3-NEL,-38,145,VK4-WILLIS,-16,1508 VK8,-12,131,VK9N,-29,169,VK9X,-11,1068 VK9Y,-12,97,VK9-MELLISH,-34,179,VK0-HEARD,-54,738 VK0-MACO,-54,159,VP1,17.5,-88,VP2A,18,-62,VP2D,15.5,-61.5#9Ҡ)a(ź)$cca(Ӡ̠͠)'a(Ӡ͠ŠŠϠ)oa(ӠàϠ)*ca(ӠŠҠϠŮ)`.?6@r$M6`.?6@r $ M6[ M6Q-rq-rY-rq-rUVWX6`-r$-rq-r-rqY[9 S(Ǡ٬ŠĠΠϠ٠)'_!oa(ҠŠ)ca($T@Brp()@Brp@*r@Brp@*ra(ҠӠ)E@_QN`%q`%q`$q-rqq8rUVWX6WX6`-r$D@Brp()Y DqN@Brp@*rS\XYbUVWX6$l@Brp@*rv@Brp()Y@p@`$,`$6-rqqqY_@p()[q qE`8r%\UVWX6\5UV`$ `DZ@$2q1?DZDZrq_,q8 r\YqUVW-rqY%UVWX6`@r$FACq` $ 7FUVWX6@p@*r@Brp()5ZUVWX6`@9@*r$@Brp()YNqqDZqDZq DZM6\FN@"rC@"rC@"rC@"rD4r M6\k(S(ҠՠԠĿ)&@S(ӠŠ)'S(ĠŠŠՠԠԠϠ)'=Aqq;@rq`<   CO FOR USE OF MEMBERS BY.. WILLIAM R. DIAL SEPTEMBER 1979..]A.'A8' LAST MOD. SEPT 1979 TO MEET CONVENTIONS.. BY LEROY LARSEN..AB'AL' 'GREAT CIRCLE'Aj'5,9U,-3,29.5B@ 9V1-SING,1,104,9X,-2.5,30,9Y4-TR & TOB,10.5,-61T@ ENDATA2,2,2Z@'s@' PROGRAM WRITTEN BY@' WA4VID, JOHN HEISE @' SUBMITTED BY@' WM. R. DIAL@' AKRON USER GROUP@'WA$' GIVEN TO APPLE CORE OF SAN FRANCIS6Y5,18,-77,7O-ADEN,12.5,44.5I? 7O-SOC,12,54,7P8,-29.5,28,7Q7,-15.5,36x? 7X,36,3,8P6,12.5,-59.5,8Q,4,73,8R1,7,-59?8Z,29,47,9A1,44,12,9G,5.5,0,9H,36,14,9J,-16,28? 9K,29,48,9L1,8,-13.5,9M-EAST,1.5,110.5 @ 9M-WEST,3,101.5,9N,27,85,9Q,-5,1CY = ";F;" GHZ" "::1 ,"ZO = ";ZO;" OHMS"7 1T 6"THETA = ";T;" DEGREES"Z ;x @"LINE LENGTH = ";L;" CM"X ZO(100ZO.5)100$ :::O "TRANSMISSION LINE IMPEDANCE MATCHER"Y :: "R IN = ";RI;" OHMS X IN = ";XI;" OHMS" "R OUT = ";RO;" OHMS X OUT = ";XO;" OHMS"  "PERCENT PROPAGATION VELOCITY = "VP  "FREQUEN (R,X) ";RO,XO< n"ENTER PERCENT PROPAGATION VELOCITY ";VPF x::V ARI2XI2f BRO2XO2 ZO((AROBRI)(RIRO)) T((ZO(RORI))(XIROXORI)) TT1803.14159 LT30VP180100F T(100T.5)100 L(100L.5)100GTH OF A"3 2"TRANSIMISSION LINE THAT IS USED TO"a <"MATCH A SOURCE AND LOAD IMPEDANCE. THE" A"IMPEDANCES MUST BE IN THE SERIES FORM." F:: P"ENTER FREQUENCY (GHZ) ";F Z"ENTER INPUT IMPEDANCE (R,X) ";RI,XI d"ENTER OUTPUT IMPEDANCEy :936;::"COPYRIGHT (C) JULES H. GILDER 1978"c:"ALL COMMERCIAL RIGHTS RESERVED"sX13000: 936:" TRANSMISSION LINE IMPEDANCE MATCHER"::"THIS PROGRAM WILL CALCULATE THE CHA-" ("RACTERISTIC IMPEDANCE AND LEN    :::5 "FOR A ";X;" BY ";Y;" INCH LOOP ANTENNA"; j ""THE LENGTH OF WIRE NEEDED IS ";L;" FEET"p ' ,"AND "N;" TURNS ARE NEEDED." XARE AS POSSIBLE. DIMENSIONS"@ "SHOULD BE ENTERED IN INCHES."F l "PRESS ANY KEY TO CONTINUE";:A$ ::"ENTER HEIGHT OF LOOP ";Y :"ENTER WIDTH OF LOOP ";X AXY N242.3(A) L(20N(XY)12.5)10 N(10N.5)10 NO.20 OR LARGER (SMALLER NUMBER) WIRE."U x"A 365 MFD VARIABLE CAPACITOR SHOULD BE" "CONNECTED IN PARALLEL WITH THE LOOP TO" "PERMIT TUNING." :"THE LOOP SHOULD BE MADE AS LARGE AS" "POSSIBLE AND SHOULD BE AS CLOSE TO" "BEING SQUNTENNA TO IMPROVE A-M RADIO RE-"L <"CEPTION. THIS ANTENNA IS INDUCTIVELY"x F"COUPLED TO THE RADIO BY PLACING THE " P"TWO OF THEM CLOSE TOGETHER." Z:"THE ANTENNA CAN BE HIDDEN IN A WALL IF" d"DESIRED AND SHOULD BE CONSTRUCTED FROM"' n" :936;::"COPYRIGHT (C) JULES H. GILDER 1978"c:"ALL COMMERCIAL RIGHTS RESERVED"sX13000: 936:14)"LOOP ANTENNA":"THIS PROGRAM WILL CALCULATE THE NUMBER"("OF TURNS THAT ARE REQUIRED TO MAKE A" 2"LOOP A    L:$";TT X  ' G ' WRITTEN BY TONY HUGHES, SAN FRANCISCO X TOTAL WILL APPEAR." LE V"TO LIST ALL YOUR ENTRIES, ENTER L"K ` j"TOTAL WAS WRITTEN BY TONY HUGHES OF SAN FRANCISCO" t ~"ENTER EACH FIGURE TO BE TOTALED"  TT0 X1MX A$(X); 30 TTTT(A$(X)):"TOTA8  "TOTAL" & X1380 $"-";6 .? 8"-" B"THIS PROGRAM WILL TOTAL A LIST OF FIG- URES ENTERED BY THE USER. A DESCRIPTION CAN BE ENTERED TO THE RIGHT OF THE FIG- URE. WHEN YOU HAVE ENTERED ALL THE FIG- URES, PRESS RETURN AND THEI 1000: PRINT DESCRIPTION'X0;A$(100),A(100)EXX1U":";A$(X)i((A$(X))0100-A$(X)"L"İ3000:302A(X)(A$(X))<MXXFTTA(X)P25dn"TOTAL $";Tx PRINT DESCRIPTION 1   z#   àӠàŠ ؠ֠ ȠҠ  ԠŠ; حàҠ àɠϠӠ ǠΠ Π ٠ ȠŠ ҠӠ ŠӠƠӠ!Ԡ"ԠҠ͠ ̠РŠŠ ҠŠҠ  ӠӠȠàŠӠΠӠŠԠӭӠ̠ΠϠ àˠϲ#ҠŠӠ ҠӠΠԠ...8 r PROGRAM CLASSIFIED - PUBLIC DOMAIN -> |)"Ā  CONTROL C X2 ":"JOB DONE."::8 'K , BY ED HANLEYY 6 BOX 437r @ CARTHAGE, TN 37030x J T 'QUADRATIC SURFACE' ^ h THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR: ED HANLEY" X "," Y ","F(X,Y)"/ "---","---","------"? YYSYFSYf FAB1XB2YB3X2B4Y2B5XY ROUND F TO 2 PLACES F(F100.5)100 X,Y,F II1 I21ĺ"(HIT ANY KEY.)":T$:I0 T$""Ā: 'CONTROL C' Y A$:A$"B4 n"B5";:B5 s? x GET LIMITS ON X,Y ACROSS SURFACEi "X DIRECTION (E-W): FROM,TO";:XS,XFz "STEP";:SX "Y DIRECTION (N-S): FROM, TO ";:YS,YF "STEP";:SY CALCULATE VALUES, 1 E-W ROW AT A TIME XXSXFSX I0 ? s"THIS PROGRAM WILL GIVE POINT VALUES":"AT REGULAR INTERVALS OVER A QUADRATIC":"SURFACE, DEFINED BY:"(:"F(X,Y)=A+B1X+B2Y+B3X^2+B4Y^2+B5XY"2 GET VARIABLES7:<"A";:AF"B1";:B1P"B2";:B2Z"B3";:B3 d"B4";:#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "      AUTHOR:.......................Zx# PROGRAM CLASSIFIED - PUBLIC DOMAIN -`# 4400&NN1N20 1200J:"HEX RESULT = ";D$(0);D$(1);D$(2);D$(3)fD:"PRESS ANY KEY": Q$lNr@x(#P# JUDD ELLMERSZ# 'CONVERSION PROGRAM'd#%n# THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BYAY BE POSITIVE OR A SMALL"D"NEGATIVE DISPLACEMENT. IF YOU WANT"r"THE NEGATIVE RESULT, ENTER THE SMALLER""NUMBER FIRST. FIRST HEX #= ";N$:N0 2200:N1N:" SECOND HEX #=";N$:N0 2200:N2N: (N1N2)0 N256(N1N2): T HEX NUMBER IS ": N$:N0% 22000N1N:T"SECOND HEX NUMBER IS ";N$:N0_ 2200jNNN1u 1200:"RESULT= ";D$(0);D$(1);D$(2);D$(3):"PRESS ANY KEY": Q$936::::"HEXADECIMAL SUBTRACTION""THE RESULTS Ml " A 10 1010"8v " B 11 1011"U " C 12 1100"r " D 13 1101" " E 14 1110" " F 15 1111" "PRESS ANY KEY":Q$ 936::::"HEXADECIMAL ADDITION":"FIRS 1 1 0001"3  " 2 2 0010"P & " 3 3 0011"m 0 " 4 4 0100" : " 5 5 0101" D " 6 6 0110" N " 7 7 0111" X " 8 8 1000" b " 9 9 1001"7);"STATUS REGISTER"( "FLAG ";17);:P 50,63:"N V B D I Z C": 50,255t "BIT ";17);"7 6 5 4 3 2 1 0" "------------------------------------" "HEX DECIMAL BINARY" "--- ------- ------"  " 0 0 0000"  "R?";N$  2200& :"DECIMAL= ";NB :"PRESS ANY KEY": Q$H X L(N$):N0f  I1 Lw S$(N$,I,1)  2500 NNA(16(LI))  I N(N.2): (S$)57 2530 A(S$)48 A(S$)55 936 1I0  J3 0 14 E(16J.2):D1 (NE)?  1500R NND1E:II1Z  J` r  D19 1520 D$(I)(48D1):  D115 D10 D$(I)(55D1): 936::::"HEX TO DECIMAL CONVERSION" :"WHAT IS YOUR HEX NUMBE "WHICH OPTION ";:O) O0 9000L O 1000,2000,3000,4000,4300U 20 936::::"DECIMAL TO HEX CONVERSION" :"WHAT IS YOUR DECIMAL NUMBER";N  1200 :"HEX= ";D$(0);D$(1);D$(2);D$(3) :"PRESS ANY KEY": Q$  b  D$(4)1936:::"CONVERSION PROGRAM"K(:"TABLE OF OPTIONS"e2"----------------":z7" 0 FINISHED"<" 1 DECIMAL TO HEX"F" 2 HEX TO DECIMAL"P" 3 NYBBLE TABLE"Z" 4 HEX ADDITION"d" 5 HEX SUBTRACTION"    p M6(o a(ɮîˠ)o Pa()UVWY a(Π)Qpqժժժ p ? `syc?@|yA ժժժՂ  8` ժՀ  ? ЪժժժժՂ 0Nq ?xc?@|yO Ԫժժժ `9|` ``n0p`f @*U*U U* ЪժժՀ   ժժժ   ժժՀ `9`3 *U*(U* ժժժժ p 3 `sc 3@s|q@ ժժժՂ x 8` Հ   ժժժժՂ 0Ny 3xc?@|yO Ԫժժժ `9x` `@n08`f @*U*U*U* ЪժժՊ   ժժժ   ժժ `9`3 (U*U* ժժժժ p 3 @sc @sLq@ ժժժՂ x? 8`    ժժժժՂ py 3xa@sxx Ԫժժժ <`` `n0` f P*U*U*U* ԪժժՊ   ժժժ   ժժ `9p?  U U* ժŪժժժ p? @ac ?@sLq@ ժժՊ x? 8` T   ժժժժՂ py ?@s 1!6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<r rdBedCe de.?>rde.??rM6_ U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*`\ap>` natA<            TO";::*"'";X;"' DEGREES FAHRENHEIT"09900C1000NT0`x:5:"CALCULATOR"|:"BY KEVIN ARMSTRONG""DATE: 7-79"::"THIS PROGRAMS USES YOUR APPLE AS""A POCKET CALCULATOR"20:"PRESS ESC TO END":"<"T*C10:C20:C30]4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:TOTAL = ";E1900600$R THIS ROUTINE DOES SQUARE ROOTXbQ10k:5"SQUART ROOT IS THE FUNCTION"::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 D"TOTAL = ";D1N900#W500)XZY THIS ROUTINE DOES ECPONENTIATION`ZrbE10:LSTE20{l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2 "400 4 THIS ROUTINE DOES DOVISION:JD10:D20S:5s"DIVISION IS THE FUNCTION"}::&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D20 300 A  THIS ROUTINE DOES MULTIPLICATIONG W M10:M20` :5 "MULTIPLICATION IS THE FUNCTION" :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 ";A1 "900 +200 ,K - THIS ROUTINE DOES SUBTRACTIONQ .a 6S10:S20j @:5 J"SUBTRACTION IS THE FUNCTION" T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 90:"ENTER CORRECT SYMBOL PLEASE"* 1150 [ THIS ROUTINE DOES ADDITIONa q A10:A20z :5 "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL = E TO END THE PROGRAM"# s8 x" ";:F$N (F$,1)"+"ī200d (F$,1)"-"ī300z (F$,1)"*"ī400 (F$,1)"/"ī500 (F$,1)"^"ī600 (F$,1)"S"ī700 (F$,1)"A"ī800 (F$,1)"T"ī1000 (F$,1)"E"Ā! * FOR MULTIPLICATION"6 d" / FOR DIVISION"\ n" ^ FOR EXPONENTIATION" o" S FOR SQUARE ROOT" p" A FOR THE AREA OF A CIRCLE" q" T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": r" E  :+ DONTATED BY KEVIN ARMSTRONGe THIS PROGRAM WILL FUNCTION AS A CALCULATORks5:("ENTER THE FUNCTION YOU WISH TO PERFORM"2<F" + FOR ADDITION"P" - FOR SUBTRACTION" Z"       IS ";(R4):T T"THESE VALUES SHOULD BE ROUNDED TO THE":"NEAREST STANDARD VALUES"] ^900z R31(23.141592654NC) 290  PRINT CENTER ROUTINE 20(CT$)2 CT$ ""  16368,0:::10:CT$"* * * THE END * * *":450TO THE COMPUTED VALUE OF C.":' 800S "TO CORRECT THIS, WHAT IS THE NEAREST"p "STANDARD VALUE OF C";C R31(23.141592654NC1E6) ""THE VALUE OF R IS ";(R3) 'C22C ,"THE VALUE OF 2C IS ";C2 6R4R32 @"THE VALUE OF R/2 ." R% C1(23.141592654NR)C "THE VALUE OF (C) IS ";Co "IS THIS A STANDARD VALUE (Y OR N)";A$ A$"Y"400 "THE NOTCH DEPTH DEPENDS ON THE ACTUAL":"VALUES OF THE COMPONENTS. IT IS" "DESIRABLE TO GET AS CLOSE AS POSSIBLE":"FEEDING?";R2 1 "SELECT A VALUE FOR R.": "WHEN SELECTING R, THE SOURCE AND LOAD":"RESISTANCE MUST BE CONSIDERED. THE R" "SHOULD BE AT LEAST => THE SOURCE":"RESISTANCE (R=>RS) AND 0.1 OR LESS" "THAN RL. THE RATIO SHOULD BERS>" r(16384)27400 |756:(16384)32300 :(R1R2) <R(R1R2)(R1R2): FI1(V0.7)(RB(R4R5))H PV1VI1RT ZI2I1Bc dV2SI2R3u nV3I2(R4R5) xD0.025I22 GR3(R4D) TB(R4D) N(RT)(RT) B,G B ,5:"TRANSISTOR PARAMETERS" 6:"BY L :300936 ::I"TRANSISTOR AMPLIFIER CALCULATIONS"s"ADAPTED FOR THE APPLE BY L LAURICH"{ : "ENTER VALUES OF VCC,R1,R2,R3,R4,R5, (IN OHMS)"S,R1,R2,R3,R4,R5::"BETA","GAIN"B1010010 2VSR2   E D"<>": (16384)273100X  756:(16384)323000j  :16368,0:|  :16298,0:I52010 GY95Y95& HY95Y954 L0X,95Y; ID 100J W 0:1095j 5:"SIN PLOT" :"BY WM. DIAL" "DATE: 7-79" ::"THIS PROGRAM USES H-GRAPHICS TO" "DISPLAY THE SIN FUNCTION" 20:"PRESS ESC TO END"# : XY50(RAD) 0X,95Y& I- 27 0,95F I18375P XI3e RADI1803.1416u Y50(RAD) 0X,95Y I 1010  1 0,95 I1837 1 XI3 RADI1803.1416 BY50(RAD) DY95Y9~:16298,0:3000=2 WRITTEN BY WM.R.DIAL,AKRON,OHIOt< SIMPLE DEMO OF GRAPHIC SIN PLOTING FUNCTION ON Szd10,95279,953120,90120,100240,90240,1003,0,95^I18375hXI3 RADI1803.1416   6:I;" SQ.METES=";R;" SQ.MILES"(P480Ox:6:I;" HECTARES=";R;" SQ.MILES"X480:6:I;" SQ.KILOMETERS=";R;" SQ.MILES"4805:"METRICS AREA":"BY MAX NAREFF""DATE: 7-79"::"THIS PROGRAM DOES CONVERSIONS TO"6:I;" SQ.CENTIMETERS=";R;" SQ.INCHES"0V480X~:6:I;" SQ.METERS=";R;" SQ.FEET 2a480:6:I;" SQ.KILOMETERS=";R;" SQ.FEET"480:6:I;" SQ.METERS=";R;" SQ.YARDS"480:6:I;" SQ.KILOMETERS=";R;" ACRES"480F:;" SQ.FEET=";R;" SQ.KILOMETERS"(\480L:6:I;" SQ.FEET=";R;" METERS"U480:6:I;" SQ.INCHES=";R;" SQ.CENTIMETERS"480:6:I;" SQ.INCHES=";R;" SQ.MILLIMETERS"480:6:I;" SQ.MILLIMETES=";R;" SQ.INCHES"$480'L::6:I;" SQ.MILES=";R;" SQ.KILOMETERS"/b480V:6:I;" SQ.MILES=";R;" HECTARES"_480:6:I;" SQ.MILES=";R;" SQ.METERS"480:6:I;" ACRES=";R;" SQ.KILOMETERS"480 :6:I;" SQ.YARDS=";R;" SQ.METEERS"*480R:6:ID"; II777Ā&I888300E:EQUATION FOR COMPUTATIONpRIC(N):C(N) OBTAINED FROM DATA LOOP :DIRECT PROGRAM TO PROPER UNIT FOR PRINTOUTN600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450&XMETERS-SQ.MILES"D24:5:"NOTE INDEX NUMBER.PRESS RETURN";:A$:g6:"TO END PROGRAM ENTER 777":4:"FOR INDEX ACCESS ENTER 888":3:"ENTER UNIT IDENTIFICATION NUMBER";NN777ĀN888300:10:"VALUE TO BE CONVERTE8:"(11)SQ.CENTIMETERS-SQ.INCHES"Cm8:"(12)SQ.METERS-SQ.FEET"gr8:"(13)SQ.KILOMETERS-SQ.FEET"w8:"(14)SQ.METERS-SQ.YARDS"|8:"(15)SQ.KILOMETERS-ACRES"8:"(16)SQ.METERS-SQ.MILES"8:"(17)HECTARES-SQ.MILES"8:"(18)SQ.KILOETERS")J8:"(6)SQ.FEET-SQ.KILOMETERS"HO8:"(7)SQ.FEET-SQ.METERS"nT8:"(8)SQ.INCHES-SQ.CENTIMETERS"Y8:"(9)SQ.INCHES-SQ.MILLIMETERS"^10:"AREA-(METRIC TO U.S.)"_10:"--------------------"c8:"(10)SQ.MILLIMETERS-SQ.INCHES"#hC(N): READS DATA TABLE"B,10:"AREA-(U.S.TO METRIC)"b-10:"--------------------"18:"(1)SQ.MILES-SQ.KILOMETERS"68:"(2)SQ.MILES-HECTARES";8:"(3)SQ.MILES-SQ.METERS"@8:"(4)ACRES-SQ.KILOMETERS"E8:"(5)SQ.YARDS-SQ.MSS RETURN FOR INDEX";:A$:> C(18):FOR CONVERSION FACTORS[ :DATA TABLE FOR FACTORS 2.59,259,2.6E+6,.0041,.836,9.0E-8 .093,6.45,645.2,.0016,.155,10.76,1.08E+7 1.196,247.1,3.86E-7,.0039,.386 :INDEX LOOP FOR DATA READ N118 ENTER"4 "ON REQUEST.YOU WILL THEN BE ASKED FOR"c "THE VALUE TO BE CONVERTED.TO STOP ENTER" "777,AND FOR ACCESS TO THE INDEX ENTER" "888 AT ANY INPUT LEVEL.THE VALUE REQUEST" "IS REPEATED UNLESS DIRECTED OTHERWISE." 24:10:"PREH,WEIGHT"5 "VOLUME,TEMPERATURE AND A COMPILATION"] "OF MEASUREMENTS FOR KITCHEN USE." :::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 2:"ON THE NEXT PAGE IS A LIST OF MEASURE-" "MENTS.NOTE THE INDEX NUMBER AND,SANFRANCISCO,CA.1979! A:15009 d14:"INTRODUCTION"Q i14:"------------" n2:"THIS IS ONE OF A SERIES OF PROGRAMS FOR" s"THE CONVERSION OF MEASUREMENTS TO AND" x"FROM THE METRIC SYSTEM.OTHERS IN THE" }"SERIES INVOLVE UNITS OF LENGTOF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED -:FROM A PROGRAM IN "SOME COMMON BASIC PROGRAMS",BY POOLE & BORCHERS,2ED.1978 2:PERMISSION FOR USE BY PUBLISHER 7:ADADM OSBORNE ASSOC.INC.BERKLEY,CA <:PREPARED BY MAX J.NAREFF:***********************=:***TABLE OF CONTENTS***\ :***INTRODUCTION.100-190*:***DATA ENTRY & LOOP.190-230*:***INDEX OF UNITS.300-400*:***COMPUTATION SETUP.415-530*:***ANSWERS*#:***********************@ (:ONE       :"PRESS ESC TO END"? :"<>"V(16384)272100t 756:(16384)322000*:16368,0:4:A" INCHES"v8326:I;"MILLIMETERS ";R;" INCHES"?832p:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.5:"METRICS LENGTH":"BY MAX J. NAREFF""DATE: 7-79"::"THIS PROGRAMS DOES METRIC CONVERSIONS""FOR LENGTH"20KILOMETERS ";R;"FEET"J832<r:I;"METERS ";R;" MILES"E|832c:I;"METERS ";R;" YARDS"l832:I;"METERS ";R;" FEET"832:I;"METERS ";R;" INCHES"832::I;"CENTIMETERS ";R;" FEET"D832 l:I;"CENTIMETERS ";R;T ";R;" CENTIMETERS"832<F:I;"INCHES ";R;" METERS"EP832ix:I;"INCHES ";R;" CENTIMETERS"r832:I;"INCHES ";R;" MILLIMETERS"832:I;"KILOMETERS ";R;" MILES"832:I;"KILOMETERS ";R;" YARDS"832@:I;"TERS")832:RETURNS FOR ANOTHER INPUTG:I;"MILES ";R;" METERS"P$832rL:I;"YARDS ";R;" KILOMETERS"{V832~:I;"YARDS ";R;" METERS"832:I;"FEET ";R;" KILOMETERS"832:I;"FEET ";R;" METERS"832:I;"FEE;9N>N777Ā$?N888510*@HC"VALUE TO BE CONVERTED";OHI\JI777ĀkKI888510xMRIC(N)RN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950:I;"MILES ";R;" KILOME9)CENTIMETERS TO INCHES"9*"(20)MILLIMETERS TO INCHES"o/22:"NOTE NUMBER,BUT FIRST PRESS RETURN.";:A$:4"TO END ENTER 777 AT ANY INPUT LEVEL"6:"TO RETURN TO LIST ENTER 888 AT ANY INPUT"7:"ENTER LIST NUMBER OF UNIT TO BE CONVERTED" TO MILLIMETERS"/"(11)KILOMETERS TO MILES"N"(12)KILOMETERS TO YARDS"l"(13)KILOMETERS TO FEET""(14)METERS TO MILES""(15)METERS TO YARDS""(16)METERS TO FEET" "(17)METERS TO INCHES""(18)CENTIMETERS TO FEET" "(1TO KILOMETERS"( "(2)MILES TO METERS"F 0"(3)YARDS TO KILOMETERS"` D"(4)YARDS TO METERS"} X"(5)FEET TO KILOMETERS" l"(6)FEET TO METERS" "(7)FEET TO CENTIMETERS" "(8)INCHES TO METERS" "(9)INCHES TO CENTIMETERS""(10)INCHES48,30.48,.0254,2.54,25.4,.6214D 1093.6,3280.8,.0006,1.094,3.281b 39.37,.0328,.3937,.0394 .6214,1093.6,3280.8,6.2E-4,1.094 3.281,39.37,.033,.394,.0394 I120:INDEX OF LOOP C(I):READS DATA THRU LOOP   "(1)MILES "& V"A REQUEST FOR THE VALUE TO BE"P W"CONVERTED WILL THEN APPEAR.PROCEED"} Z20:"PRESS ANY KEY FOR THE LIST";:A$: C(20):SETS DIM.FOR NUMBER OF CONVERSIONS :CONVERSION FACTORS TO BE USED 1.609,1609.35,.0091,.9144,.00031 .30MENTS", ("TO AND FROM THE METRIC SYSTEM."S 210:5:"HOW THE PROGRAM OPERATES"v 75:"------------------------" <:"THE NEXT COMMAND WILL PRESENT THE" F"LIST OF AVAILABLE MEASUREMENTS." P"NOTE THE NUMBER AND ENTER WHEN" U"CALLED FOR. & LOOP SETUP LINES 0-90,200-270I :LIST OF MEASUREMENTS LINES 510-800k :PROGRAM DRIVE LINES 820-850w :2000 10:"METRICS....LENGTH" 10:"-----------------" "THIS IS ONE OF A SERIES OF PROGRAMS" "FOR THE CONVERSION OF MEASURE W:ONE OF THE PROGRAM TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED FROM THE:BOOK'SOME COMMON BASIC PROGRAMS'.:BY POOLE & BORCHERS.:PERMISSION FOR USE BY PUBLISHER:ADAM OSBORNE & ASSOC.INC.,BERKLEY,CA. :INTROD.& DATA     DEX NUMBER".10:24:"PRESS RETURN";:A$:4 F%:PROGRAM ENDl*10:"TO END PROGRAM ENTER 777":/10:"FOR INDEX ENTER 888":4:4);"ENTER THE INDEX NUMBER OF THE DESIRED CONVERSION";9N>N777ĀCN888500H:10:"VALUTERS TO PINTS(DRY)"4"(33)LITERS TO QUARTS(LIQ)"U"(34)LITERS TO QUARTS(DRY)"w"(35)LITERS TO GALLONS(LIQ)""(36)MILLILITERS TO FLUID OUNCES""(37)MILLILITERS TO PINTS(LIQ)""(38)MILLILITERS TO QUARTS(LIQ)" 5:"SELECT THE INCUBIC CENTIMETERS TO PINTS(DRY)"L"(27)CUBIC CENTIMETERS TO QUARTS(LIQ)"x"(28)CUBIC CENTIMETERS TO QUARTS(LIQ)""(29)CUBIC CENTIMETERS TO GALLONS(LIQ)""(30)CUBIC CENTIMETERS TO FLUID OUNCES""(31)LITERS TO PINTS(LIQ)""(32)LI---------"1l"(20)CUBIC METERS TO CUBIC YARDS"Wq"(21)CUBIC METERS TO CUBIC FEET"v"(22)CUBIC METERS TO CUBIC INCHES"{"(23)CUBIC METERS TO BUSHELS""(24)CUBIC METERS TO GALLONS(LIQ)""(25)CUBIC CENTIMETERS TO PINTS(LIQ)" "(26)LLILITERS".S"(18)PINTS(LIQ)TO MILLILITERS"SX"(19)QUARTS(LIQ)TO MILLILITERS"]3:"IF THE CONVERSION WANTED IS ON THIS PAGE,NOTE ITS NUMBER,BUT WAIT UNTIL IT IS ASKED FOR.PRESS RETURN";:A$:g5:"VOLUME-METRIC TO U.S." h5:"-------------IQ)TO CUBIC CENTIMETES"D0"(11)FLUID OUNCES TO CUBIC CENTIMETERS"c5"(12)PINTS(LIQ)TO LITERS":"(13)PINTS(DRY)TO LITERS"?"(14)QUARTS(LIQ)TO LITERS"D"(15)QUARTS(DRY)TO LITERS"I"(16)GALLONS(LIQ)TO LITERS" N"(17)FLUID OUNCES TO MI! "(4)BUSHELS TO CUBUC METERS"G"(5)GALLONS(LIQ)TO CUBIC METERS"p"(6)PINTS(LIQ)TO CUBIC CENTIMETERS""(7)PINTS(DRY)TO CUBIC CENTIMETERS"!"(8)QUARTS(LIQ)TO CUBIC CENTIMETES"&"(9)QUARTS(DRY)TO CUBIC CENTIMETERS"+"(10)GALLONS(LARRAYN138(C(N):READS ARRAY.O:INDEX(LIST)OF MEASUREMENTSn5:"VOLUME-U.S.TO METRIC"5:"--------------------""(1)CUBIC YARDS TO CUBIC METERS""(2)CUBIC FEET TO CUBIC METERS""(3)CUBIC INCHES TO CUBIC METERS".0038,473.18,550.61,946.36,1101.23j3785.43,29.574,.4732,.5506,.9463,1.1012,3.785,29.57,473.167,946.331.308,35.31,61023,28.38,264.17,.0021,.0018,.0011,.0009,.0003,.03382.114,1.182,1.057,.908,.227,.0338,.0021,.0011:INDEX LOOP FOR DATA AND ENTER":" "ON REQUEST.":R "SUBSEQUENTLY THE USER ENTERS THE VALUE":l "TO BE CONVERTED.": 10);"PRESS RETURN FOR INDEX";:A$: C(38):DIMS CONVERSION FACTORS :DATA TABLE FOR CONVERSON FACTORS".7645,.0283,.00002,.0353,12000** 10:"HOW THE PROGRAM OPERATES"O 10:"-------------------------"| 5:"AN INDEX OF MEASUREMENTS IS LISTED" :"ON TWO PAGES.THE FIRST IS U.S.-METRIC.": "THE SECOND IS METRIC-U.S..SELECT THE": "DESIRED MEASUREMENT BY NUMBER.,BERKLEY,CA.A n:PREPARED BY MAX J.NAREFF,SANFRANCISCO,CA.1979] x:**TABLE OF CONTENTS**z }:*INTRODUCTION..50-200* :*DATA AND LOOP SETUP* :*LIST OF MEASUREMENTS...500-700* :*PROGRAM DRIVE..710-900* :*ANSWER PRINTOUT SETUP..1000-PILATION,KITCHEN METRICS."X U:ONE OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED Z:AND MODIFIED FROM THE BOOK"SOME COMMON BASIC PROGRAMS. _:AUTHORED BY POOLE & BORCHERS,1978 d:PERMISSION FOR USE BY PUBLISHER i:ADAM OSBORNE ASSOC.INC21 :16368,0+ 212:"INTRODUCTION"D 712:"-------------"r <5:"THIS IS ONE OF A SERIES OF PROGRAMS" A"FOR THE CONVERSION TO AND FROM THE" F"METRIC SYSTEM.OTHER PROGRAMS DEAL WITH" K"LENGTH,AREA,WEIGHT,TEMPERATURE AND A" P"COM:5:"METRIC VOLUME"5:"BY MAX J. NAREFF"G"DATE: 7-79"w::"THIS PROGRAM DOES METRIC CONVERSIONS" "FOR VOLUME" 20:"PRESS ESC TO END" :"<>" (16384)2720000 756:(16384)3       EN"v:"BY MAX J. NAREFF"/"DATE: 7-79"Z::"THIS PROGRAM DOES COMMON METRIC""CONVERSIONS FOR ITEMS IN THE KITCHEN"20:"PRESS ESC TO END":"<>"(16384)272000756:(16384)3219:5:I;"SQ.FEET=";R;" SQ.CENTIMETERS".740Z:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"c740vR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740l5:"METRICS KITCH740*:10:I;"POUNDS=";R;" KILOGRAMS"3740Y:10:I;"KILOGRAMS=";R;" POUNDS"b740:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740%MILLILITERS"740<:10:I;"PINTS=";R;" MILLILITERS"E740q:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"z740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"50,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850s:10:I;"TEASPOONS=";R;" MILLILITERS"|740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740 ~::I;"CUPS=";R;" NN777ĀN888500A:5:"VALUE TO BE CONVERTED";HIUI777ĀdI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUTH N1000,1050,1100,10OR NEXT PAGE">g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:T: TO END PROGRAMt"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NTIMETERS TO INCHES";I"(14)SQ.INCHES TO SQ.CENTIMETERS"`N"(15)SQ.FEET TO SQ.CENTIMETERS"S"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT": b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT F5)PINTS TO MILLILITERS"=!"(6)QUARTS TO CUBIC CENTIMETERS"Y&"(7)GALLONS TO LITERS"u+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CE ) :LIST OR INDEX OF MEASUREMENTS/ N 10:"KITCHEN-AID METRICS"m 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS""(OR NEXT PAGE";:A$:: C(18):DIM.FOR CONVESION FACTORSb :DATA TABLE FOR CONVERSION FACTORS 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N) LIST OF MEASUREMENTS IS PRESENTED"O P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"y U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOMMON MEASUREMENTS USED IN THE"N :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"~ ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------"# K3:"AED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*4 $:1900L (16:"INTRODUCTION"e -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE C'**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR     0,1600,1650- :6:I;" OUNCES=";R;" GRAMS"6*620\R:6:I;" OUNCES=";R;" KILOGRAMS"e\620:6:I;" OUNCES=";R;" MILLIGRAMS"620:6:I;" GRAINS=";R;" MILLIGRAMS"620:6:I;" POUNDS=";R;" GRAMS"620:6:I;" P CONVERTED";I I777Ā/I888450M:EQUATION FOR CONVERSIONvRIC(N):ENTERS FACTOR AND COMPUTES:DIRECTS PROGRAM FOR UNIT COMPUTATION AND PRINTOUT N800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,155UNDS"!0"(18)MILLIGAMS-GRAINS"TN24:"SELECT INDEX NUMBER.PRESS RETURN";:A$:xX6);"TO END PROGRAM ENTER 777"b:6:"FOR INDEX ENTER 888"l:5:"ENTER THE SELECTED INDEX NUMBER";vN{N777ĀN888450 :10:"VALUE TO BE"3:"WEIGHT..METRIC TO U.S.":"(10)GRAMS-OUNCES"R "(11)GRAMS-POUNDS"n"(12)KILOGRAMS-OUNCES""(13)KILOGRAMS-POUNDS""(14)METRIC TONS-TONS(SHORT)"!"(15)METRIC TONS-POUNDS"&"(16)MILLIGRAMS-OUNCES"+"(17)MILLIGRAMS-POOUNCES-GRAMS"("(2)OUNCES-KILOGRAMS"D"(3)OUNCES-MILLIGRAMS"`"(4)GRAINS-MILLIGRAMS"w"(5)POUNDS-GRAMS""(6)POUNDS-KILOGRAMS""(7)POUNDS-METRIC TONS""(8)POUNDS-MILLIGRAMS""(9)TONS(SHORT)-METRIC TONS"PAUSE11000:E FOR FACTORS628.35,.0284,2835,64.80,453.59,.4536^4.5E-4,453,.9072,.0353,.0022,35.272.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:INDEX LOOP FOR DATA READN118C(N):READ DATA TABLE3:"WEIGHT..U.S.TO METRIC" "(1)c:6);"ENTER CELSIUS VALUE";&hI<j:TO END OR INDEXImI777ĀXrI888190wR((95)I)32:EQUATION FOR CONVERSION|:I;"DEGREES CELSIUS=";R;"DEGREES FAHRENHEIT"355C(18):FOR THE 18 CONVERSION FACTORS :DATA TABL FAHRENHEIT VALUE";@I0A:TO END OR INDEX=BI777ĀLDI888190xER(I32)(59):EQUATION FOR CONVERSIONJ:I;"DEGREES FAHRENHEIT=";R;"DEGREES CELSIUS"T315Y^10:"TO END PROGRAM ENTER 777"`10:"FOR INDEX ENTER 888"5:"SELECT DESIRED MEASUREMENT BY LETTER"H:COMMAND DRIVE FOR INDEXk::10:"ENTER INDEX LETTER";qyA$A$"A"300A$"B"345"A$"C"400,15);"TO END PROGRAM ENTER 777"65);"FOR INDEX ENTER 888";:"ENTERPUT"4 "THE PROGRAM CAN BE STOPPED OR THE INDEX"E "RECALLED."e 10);"PRESS RETURN";:A$:k  6:17:"INDEX" 17:"-----" :10)"(A)FAHRENHEIT TO CELSIUS" :10)"(B)CELSIUS TO FAHRENHEIT" :10)"(C)WEIGHT" :* FIRST PAGE IS A GENERAL INDEX.SELECT"S "THE UNIT NEEDED.ENTER THE APPROPRIATE" "LETTER.(C)PRESENTS THE MORE DETAILED" "INDEX OF WEIGHT UNITS.WAIT FOR THE" "REQUEST FOR INDEX NUMBER AND THEN FOR" "THE VALUE TO BE CONVERTED.AT ANY INx"SYSTEM.THIS ONE DEALS WITH TEMPERATURE"W }"AND WEIGHT CONVERSIONS.OTHERS IN THE" "SERIES INVOLVE LENGTH,AREA,VOLUME AND" "A COMPILATION FOR KITCHEN USE. ::8:"HOW THE PROGRAM OPERATES" 8:"------------------------"& 1:"THELISHER0 P:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA.e U:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.1979q Z:1700 d14:"INTRODUCTION" i14:"-------------" n6:"THIS PROGRAM IS ONE OF A SERIES FOR" s"THE CONVERSION,TO AND FROM THE METRIC"+ " -:*UNIT CONVERSIONS..800-END*< 2:*ACKNOWLEDGEMENT..*e 7:SOME OF THE PROGRAMMING TECHNIQUES <:USED HAVE BEEN ADAPTED & MODIFIED A:FROM A PROGRAM IN "SOME COMMON F:BASIC PROGRAMS"BY POOLE & BORCHERS,1978 K:PERMISSION FOR USE BY PUB:**TABLE OF CONTENTS**; :*INTRODUCTION..100-190*[:*INDEX OF UNITS..190-220*:*INDEX COMMAND DRIVE..245-300*:*TEMP.U.S.-METRIC..300-345*:*TEMP.METRIC-U.S..345-390*#:*WEIGHT UNITS..400-590* (:*PROGRAM DRIVE..600-700*       IT ON A BENCH IF THERE IS ONLY ROOM FOR 2 AT A TIME?"A G M ^ SUBHEADINGd z ((40(ARG$))2) ARG$  X138  "-"; & 0 "-" : ATIONS OF N OB- JECTS TAKEN D AT A TIME."/ ? "EXAMPLE:"E  " 1) HOW MANY PERMUTATIONS AND COMBINA- TIONS CAN BE MADE OF THE 26 LETTERS OF THE ALPHABET, TAKING 5 AT A TIME?"; " 2) HOW MANY DIFFERENT WAYS CAN 12 PEOPLE SEN HEADING  2 BELL$(7): BELL SOUND= BELL$S ((40(ARG$))2)Y $c .ARG$i 8u BX138 L"-"; V `"-"    DISPLAY COMMENTARY ) "THIS PROGRAM COMPUTES THE NUMBER OF PERMUTATIONS AND COMBINAMORE THAN 9.9E32 PERMUTATIONS"( 2802 PPI9 Iq - COMPUTE INTERMEDIATE FACTORIAL FOR COMPUTATIONS| J2D CCJ J P;" PERMUTATIONS" PC;" COMBINATIONS"   - RESTART PROGRAM 40    SCRER SIZE OF SUBGROUP:";DQ Y SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP_ ZDN130z d"SUBGROUP TOO LARGE" n x40 P1 C1 IND1N - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 9.9E32IP190 ". ARG$"PERMUTATIONS & COMBINATIONS":1000T ARG$"OSBORNE & ASSOCIATES":3000t2000: PROGRAM DESCRIPTIONz"(ENTER 0 TO END PROGRAM)"#("ENTER TOTAL NUMBER OF OBJECTS:";N; - TEST FOR END OF PROGRAM<N0280 F"ENTE     SUBHEADING * ((40(ARG$))2)4 ARG$@ X138J "-";P& Y0 "-"_: A(ASSUME THE ODDS ARE FIFTY-FIFTY OR .5)".  "YOU MUST INPUT THE NUMBER OF TRIALS, OF SUCCESSES AND THE PROBABILITY EXPRESSED AS A DECIMAL BETWEEN 0 AND 1."  "FOR EXAMPLE, A 50% CHANCE OF GETTING A HEAD IS ENTERED AS '.5'."    PRINT EXPLANATION!  "THIS PROGRAM CALCULATES THE PROBABILITY OF OBTAINING A GIVEN NUMBER OF SUCCES- SES AFTER A GIVEN NUMBER OF TRIALS." ( "FOR EXAMPLE, HOW OFTEN WILL FLIPPING A COIN 10 TIMES RESULT IN EXACTLY 5 HEADS? L "IT'S TOO DEPRESSING TO THINK ABOUT TOTAL FAILURE. GOODBYE!";BELL$R "X ,^ s  SCREEN HEADINGy   BELL$(7): BELL SOUND BELL$ ((40(ARG$))2) $ .ARG$ 8 BX138 L"-"; V `"-"  TRIALS = DAMN UNLIKELY!"::50) AAJ/ = M(I)(A)C ~ - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY R(M(1)M(2)M(3)X(P)(NX)(1P)) "PROBABILITY OF ";X;" SUCCESSES IN ";N;" TRIALS = ";R 50 LITY OF SUCCESS:";PU sP1ĺBELL$;BELL$;BELL$;"*** ENTER A NUMBER FROM 0 TO 1":100p w - COMPUTE FACTORIALS{ xM(1)N M(2)X M(3)NX I13 M(I)0220 A1 J1M(I) A8.68E36ĺ:"PROBABILITY OF ";X;" SUCCESSES IN ";N;"`( ARG$"BINOMIAL DISTRIBUTION":1000S ARG$"ADAM OSBORNE & ASSOCIATES":3000]2000cmM(3)("(TO END PROGRAM, ENTER 0)"-2"ENTER NUMBER OF TRIALS:";NFN0270P"ENTER EXACT NUMBER OF SUCCE