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`5154X"THE DATA WILL BE READ FROM DISK.":T1:615F]NP0MP165wb:"THE DATA WILL BE WRITTEN TO DISK."::T0g(3):958:"ENTER THE NAME OF THE FILE.":"FILE NAME = ";E$::"ARE YOU SATISFIED WITH THE NAME":P$;E$;P$:"(Y, N, OR MENU) ? ";M$;"COSINE":510:10);"MAGNITUDE";25);"PHASE(DEGREES)"D34,8t:"ENTER ORDER TO BE EDITED: ";J:JN3515J0X(X):1000 :JJ1:170::X(37):"CHANGE THIS ITEM (Y/N) ? ";M$:(M$,1)"Y"515(X):958:75:MPMP(JMP)(JMP):, OR":" 2) MAGNITUDE AND PHASE FORM?"\(8):958:"SELECTION (1,2) ? ";T:T1T2490(3):958:"THE DC COMPONENT IS ZEROTH ORDER.":"THE FUNDAMENTAL IS FIRST ORDER.":"ENTER ORDER < 0 TO RETURN TO MENU.":"ORDER";:T1ĺ12);"SINE";29)J1X(X):1000]:170::X(37):"CHANGE THIS ITEM (Y/N) ? ";M$:(M$,1)"Y"465(X):958:75:MPMP(JMP)(JMP):465(N3(NP)1:"EDIT FREQUENCIES OF ORDERS 0-";N3::"WILL DATA BE ENTERED IN"::" 1) SINE/COSINE COEFFICIENT FORMJJ1:435T3MP1295'10009NP0MP165GNP0485T4:"EDIT WAVEFORM SAMPLE POINTS 1-";NP;"."::"(ENTER POINT < 1 TO RETURN TO MENU.)"::"POINT";12);"REAL";27);"IMAGINARY":34,6:"ENTER POINT TO BE EDITED: ";J:JNP465$:(M$,1)"Y"1010N:"INITIALIZING ARRAYS.":J1N2:P(J,0)0:P(J,1)0::J1:T3ĺ"ZERO ORDER IS DC COMPONENT.":"FIRST ORDER IS FUNDAMENTAL FREQUENCY." 75:MPJ::"PRESS FOR MAIN MENU.":"PRESS ANY OTHER KEY TO CONTINUE.":40:JN35UT3ĺ" SEQUENTIAL SAMPLES OF THE REAL":" MAGNITUDE OF THE WAVEFORM.":415" SEQUENTIAL SAMPLES OF THE COMPLEX":" MAGNITUDES OF THE WAVEFORM.":" A REQUIRED TOTAL OF ";N3;" POINTS."(10):958:"IS THIS CORRECT (Y/N) ? ";MY, THEY MAY REPRESENT"l"UNREALISTIC CONDITIONS IN OUR WORLD.";M$;M$;" GOOD LUCK, AND HAVE FUN!":10:D$(4):ESC$(27):I$(9):D$;"PR#1":(12):ESC$;"Q";(40):5LMAT HAS ON THE WAVEFORM. SOME";M$;"COMBINATIONS OF SINE AND COSINE ENTRIES";M$;"MAY PRODUCE BOTH REAL AND 'IMAGINARY'""COMPONENTS OF THE WAVEFORM IN TIME";M$;"DOMAIN, AND BOTH WILL BE PLOTTED.";M$;"ALTHOUGH SUCH RESULTS ARE CORRECT";M$;"MATHEMATICALL=1, AND LET ALL OTHER ENTRIES";M$;"BE ZERO. THEN MOVE THIS TO THE TIME";M$;"DOMAIN AND PLOT THE WAVEFORM. TRY THE";M$;"SAME EXPERIMENT WITH OTHER ARRAY GROUPS"v"TO SEE THE EFFECT OF THE ARRAY SIZE.";M$;"SET SIN=1 AND COS=0 TO SEE WHAT EFFECT";M$;"TH OR SAVED";M$;"ON DISK.":10" THE BEST WAY TO GET A GRASP OF THE";M$;"BEHAVIOR OF THE FFT IS SIMPLY TO TRY A";M$;"FEW SIMPLE INPUTS AND OBSERVE THE";M$;"RESULTS. FOR EXAMPLE, USING ARRAY GROUP#6, ENTER THE FIRST ORDER HARMONIC AS""SIN=0, COS LIST MAY BE SAVED TO DISK IF YOU";M$;"WISH.":10" REQUESTING A 'MOVE FROM FREQUENCY TO";M$;"TIME DOMAIN' WILL CAUSE THE PROGRAM TO";M$;"CREATE AND STORE SAMPLES OF THE""RESULTANT WAVEFORM. THE DATA ARE THEN";M$;"READY TO BE PLOTTED, LISTED,IN MENUYOU MAY EDIT, LIST, AND/OR PLOT THE";M$;"DATA. FINALLY, CALL THE 'FILL COMPLEX";M$;"CONJUGATE FREQUENCIES' OPTION TO"1"COMPLETE THE ENTRY OF THE HARMONIC DATA.(THIS OPTION SHOULD ALWAYS BE USED AFTERANY FREQUENCY DATA ARE EDITED.) NOW THEDATAAND SET";M$;"THE SINE (OR THE MAGNITUDE) TO WHATEVER";M$;"AVERAGE VALUE YOU MAY WANT.";M$;M$;"CONTINUE TO ENTER THE COEFFICIENTS OF";M$;"THE FUNDAMENTAL FREQUENCY (HARMONIC OF"}"ORDER 1) AND THE HIGHER HARMONICS AS YOUWISH. AFTER YOU RETURN TO THE MA10" THE FIRST DATUM REQUESTED IS THE";M$;"ZEROTH HARMONIC. THIS CORRESPONDS TO";M$;"THE AVERAGE VALUE OF THE WAVEFORM: WHAT";M$;"AN ELECTRONICS ENGINEER WOULD CALL THE";M$;"DIRECT CURRENT COMPONENT. SET THE""COSINE (OR THE PHASE) TO ZERO, F THE EQUIVALENT SINEPLUS COSINE COMPONENTS. AND AGAIN, YOU";M$;"MUST SELECT AN ARRAY GROUP THAT CAN HOLDTHE NUMBER OF HARMONIC COMPONENTS YOU""WILL ENTER AND/OR THE NUMBER OF WAVEFORMSAMPLES YOU WISH TO CREATE. VERIFY YOURCHOICES WHEN REQUESTED."::(A$,1)"Y"ĀhD$(4)::"REVIEW CATALOG FIRST (Y/N) ? ";A$:(A$,1)"Y"ė:D$;"CATALOG":30:740r850::"THE PLOT DATA WILL BE WRITTEN TO DISK.":$ :"ENTER THE NAME OF THE FILE: ";E$:"ARE YOU SATISFIED WITH '";E$;"' ?":"(Y, N, RS(I,J)PO(J):+PO(I)(RT(I)B)S(I,I):F OUTPUT THE SOLUTION.m::"NODE, X, Y, POTENTIAL":34,1J1NO::J;5);X(J);23);Y(J):23);PO(J)::"REPEAT LIST (Y/N) ? ";A$:34,0:(A$,1)"Y"710:"SAVE OUTPUT TO DISK (Y/N) ? ";A$S(J,K)::B(S(I,J)B)S(J,J):S(I,J)B:S(J,I)B:jB0:K1I1:LS(I,K):BBLL::S(I,I)(S(I,I)B):RT(1)RT(1)A:I2NO:B0:J1I1:BBS(I,J)RT(J):RT(I)(RT(I)B)S(I,I)::PO(NO)RT(NO)S(NO,NO)K2NO:B0:INO1K:JI1NO:BBU"h5)"D) END":)r"CHOICE ? ";5wD$(4)I|A$:A$"D"ė:jA$"C"ĺD$;D$;"BRUN B.MENU"A$"B"ĺD$;D$;"RUN FEMPLT"A$"A"310A$"D"310D$;D$;"RUN FEM":"PRESS ANY KEY TO CONTINUE";A$::HER DATA DIRECTLY TO THE PRINTER."""OTHER USERS CAN EITHER IGNORE THESE PRINT OPTIONS OR REPLACE THE CODE WITH SOMETHING OF THEIR OWN.",5006:10@"PRESS APPROPRIATE LETTER":J5)"A) FEM"T5)"B) FEMPLT"^5)"C) B.MENAND 72 ELEMENT PROBLEM AT THE UPPER LIMIT OF THE FEM PROGRAM'S CAPABILITIES.":"" THE FEMPLT PROGRAM CONTAINS CODE THATWILL ALLOW THE USER WITH A GRAPPLER IN- TERFACE CARD AND AN EPSON MX-80 PRINTER TO SEND THE HIGH RESOLUTION SCREEN PLOT AND OTSITION IT IS""PROBABLY BECAUSE THE ELEMENTS OF THE MESH ARE TOO FEW IN NUMBER OR ARE POORLYPLACED FOR ACCURATE SIMULATION. THIS ISTHE CASE FOR THE SIMPLE EXAMPLE SUGGEST-ED ABOVE. THE DISK FILE 'FEM.COMPLEX"S"EXAMPLE' ILLUSTRATES A 50 NODE dPZ] QUIT THE PROGRAM."::X(37)1k%3"SELECT A MENU ITEM BY LETTER (A-Z): ";M$:T((M$" ",1)):T90ė:%8T65T75Ģ(X):958:1075%=T68ĥ60%B:T641100,600,605,1095,350,450,230,700,100,110,290%GLPLP:1010&LD$"CATALOG":35:1000 LIST THE DATA FILE.":$MP1ĺ"[H] PLOT THE DATA FILE."N$MP(NP)1067$$NP0ĺ"[I] MOVE FROM TIME TO FREQUENCY DOMAIN.":1070$)NP0ĺ"[J] MOVE FROM FREQUENCY TO TIME DOMAIN."$+MP1NP0ĺ"[K] FILL COMPLEX CONJUGATE FREQUENCIES."!%."[ "OFF."#:"[A] READ THE DISK CATALOG.":"[B] READ A DATA FILE FROM DISK.":NP0MP0ĺ"[C] WRITE THE DATA FILE TO DISK."#"[D] TOGGLE THE PRINTER.":"[E] INITIALIZE NEW FILE AND ENTER DATA.":NP01070$"[F] EDIT THE DATA FILE.":MP0ĺ"[G]$"PR#0"P"::"FAST FOURIER TRANSFORM PROGRAM MENU"::(NP)21015,1020,1025""THE DATA ARE IN FREQUENCY DOMAIN.":1030""NO DATA LIST IS PRESENT.":1030""THE DATA ARE IN TIME DOMAIN."":"THE PRINTER IS ";:LPĞ:"ON";::".":1040 #U1191(W1W2):T(U1W1)::3:0,T279,T!N3279NP:N20:J1NP:V1(W1P(J,0))U1:V2(W1P(J,1))U1:N2,V1:N2,V2:N2N2N3:!35:LP01000!::"PRINTING THE PLOT.":D$"PR#1":ESC$;(12):I$"GDR2"!ESC$;(2):I$"25L"::E$:"216,0:D1(.1512NP):W2191(T)::3y I0:J2N3:U1P(J,0):U2P(J,1):U1(U1U1U2U2)W2:I,191(U1)I,191:IIW1::760 "SETTING UP TO PLOT WAVEFORM.":W20:W10:J1NP:TP(J,0):TW1W1T TW2W2T TP(J,1):TW1W1T TW2W2T)!:MP1I:P(J,0)0:P(J,1)0:_D$;"CLOSE"::MP;" COMPLEX POINTS WERE TRANSFERRED.":35:1000qNP0MP265NP0730N31NP2:T0:"SETTING UP TO PLOT FREQUENCY SPECTRUM.":J2N3:U1P(J,0):U2P(J,1):U2U2U2U1U1:TT(U2T)(U2T): W:M$(M$,1):M$"M"1000)lM$"Y"615OqE$"FFT."E$:D$;"OPEN";E$:T640vD$;"DELETE";E$:D$;"OPEN";E$:D$;"WRITE";E$:{MP:OP:NP:J1MP:P(J,0):P(J,1)::650D$;"READ";E$:MP,OP,NP:MP0āJ1MP:P(J,0),P(J,1):I(NP):MPIāJ0:::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,B1979":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(R8010351040LL360(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ĺ650K18UE.";G$;G$;G$;G$;G$:30::d*L):YL189(YHYL):_3:IE1NE:I1N%(1,IE):I2N%(2,IE):I3N%(3,IE):AX(X(I1)):BY(Y(I1))A,BX(X(I2)),Y(Y(I2))X(X(I3)),Y(Y(I3))A,BX((X(I1)X(I2)X(I3))3),Y((Y(I1)Y(I2)Y(I3))3)::"PLOTTING COMPLETED.":"PRESS ANY KEY TO CONTINTS WERE WRITTEN TO DISK.":oR:"THE LAST DISK-RELATED COMMAND":"PRODUCED ERROR CODE # ";(222):216,0:730uXLX(1):YLY(1):XHXL:YHYL:I2NO:JX(I):XHXH(JXH)(JXH):JXLXLJJY(I):YHYH(JYH)(JYH):JYLYLJ:XH277(XHXETURN) ? ";A$:A$(A$,1):A$"R"7305A$"Y"780 E$"FEM."E$:A$E$",V0":D$;"OPEN";A$:D$;"DELETE";A$:D$;"OPEN";A$:D$;"WRITE";E$*NO:NE:J1NO:X(J):Y(J):PO(J)::J1NE:N%(1,J):N%(2,J):N%(3,J):4D$;"CLOSE";E$::"ALL DATA POIN,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,-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) 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 MOCO 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,1 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#958,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 REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED KNAPP  (**********************IWN, A TABLE IS PROVIDED WHICH LISTS"P"THE B-VALUES OF MANY COMMON OBJECTS."Z::"PRESS TO CONTINUE ";Z$&********************** DONATED TO APPLE PI  JULY, 1980  BY JAN BYBEE AND SCOTTURE "0"TIMES PRINTED IN A TABLE OF COMMON "["F-STOPS, OR THE EXPOSURE TIME FOR A"q"SINGLE F-STOP.":"IN ORDER TO PHOTOGRAPH AN OBJECT, ITS""BRIGHTNESS VALUE (B-VALUE) MUST BE""KNOWN. IF AN OBJECT'S B-VALUE IS UN-"$"KNOWHICH"'|"YOU WANT TO PHOTOGRAPH ";B-R(10)::"PROGRAM DESCRIPTION"::"THIS PROGRAM PROVIDES THE USER WITH ""EXPOSURE TIMES FOR PHOTOGRAPHING COMMON""CELESTIAL OBJECTS. THE USER MAY ""CHOOSE THE OPTION OF HAVING EXPOS"0.000002"6,:"MIDDLE OF ORION NEBULA";27)"0.001"Y6:"MOST NEBULAE";27)"0.0001"~@:"MIDDLE OF M-31";27)"0.0001"J:"MOST GALAXIES";27)"0.00001"T:"MILKY WAY";27)"0.00001"^1650h240r:"ENTER THE B-VALUE OF THE OBJECT "INNER CORONA";28)"50"9:4)"MIDDLE CORONA";29)"5"\:4)"OUTER CORONA";29)"0.5":4)"ECLIPSE SKY";29)"0.O1":4)"HORIZON (ECLIPSE)";29)"O.5"1650240::(10):"DEEP SKY OBJECTS": ":"PERFECT COUNTRY SKY";27)"n:"MARS";31)"60"2x:"JUPITER";31)"30"K:"SATURN";31)"10"c:"URANUS";32)"4"m1650v240::(16):"SUN"::"SOLAR DISK";20)"10,000,000":"SOLAR ECLIPSE FEATURES:":4)"PROMINENCES";27)"100":4) :;4)"FULL MOON";32)"200"C:;4)"EARTHSHINE";32)"0.01"d(:"LUNAR ECLIPSE FEATURES:"2:;4)"EDGE OF UMBRA";32)"0.05"<:;4)"MID TOTALITY (VARIES)";32)"0.005"F1650P240Z::(14):"PLANETS":d:"VENUS";29)"200015603:"PLEASE RE-ENTER WITH A NUMBER BETWEEN"E"1 AND 4 ";NO1200g::(15):"MOON":~:"LUNAR PHASES:":;4)"CRESCENT MOON (2-3 DAYS)";32)"10":;4)"CRESCENT MOON (4-5 DAYS)";32)"20" :;4)"QUARTER MOON";32)"40":"BRIGHTNESS VALUES"::Ej"FOR WHICH CELESTIAL OBJECT WOULD YOU"[t"LIKE VALUES?":j~"1. MOON"|"2. PLANETS""3. SUN""4. DEEP SKY OBJECTS"::"ENTER THE NUMBER OF YOUR SELECTION. ";NN1N41220N1250,1370,1450,"1/"(G)8"----------------------------------------">PG2001İ1030[:740r(Q$,1)"Y"ī1090"WOULD YOU LIKE TO PRINT THIS TABLE?";Q$(Q$,1)"Y"ī1100$1.A$"M"ī4308A$"S"ī840B0LV`:(10)OT PRACTICAL (LOWER ASA)":)T609301T0a"----------------------------------------":(13):"EXPOSURE TIME":"----------------------------------------""MINUTE(S)";14)"SECOND(S)";28)"FRACTION":(M);14)(T);28)OSURE VALUE (ASA) ";E"E0120*:8F0800O "ENTER F-STOP ";FW:e B0820}*"ENTER B-VALUE ";B4A$"S":Q$"N">670HR:"ASA= "E\:"F-STOP= "Ff:"B-VALUE= "BpG2001910z::"EXPOSURE N5,2.8,2,1.8,1.4,0:380@:(13):(13):"ADIOS AMIGO!!!"Fx M=MINUTES T=SECONDS G=FRACTION OF SECONDSTF2(EB)MT60G1T:(14)::"EXPOSURE TIME"::"TO EXIT PROGRAM ENTER 0 FOR ASA.":"ENTER EXPF0600670 G2001560(:Z:"VALUES NO LONGER PRACTICAL (LOWER ASA)":e&:600t0T60580|:T0DF;9)(M);20)(T);31)"1/"(G)NIX"----------------------------------------"bl1030v 22,16,11,8,5.6,3.A$"M":Q$"N"@ :"----------------------------------------"r :"ASA= "E;13)"EXPOSURE TABLE";32)"B= "B: "----------------------------------------" "F/STOP";9);"MINUTE(S)";20)"SECOND(S)";31)"FRACTION" : I113 F13)::"EXPOSURE TIMES":# T::g ^ F=F-STOP OF LENS, E=ASA OF FILM,B=RRIGHTNESS VALUE OF OBJECT" h"TO EXIT PROGRAM ENTER 0 FOR ASA." r:: |"ENTER EXPOSURE VALUE (ASA) ";E E0120 B0ī420 "ENTER B-VALUE OF OBJECT ";B NTED IN A"- 5)"TABLE OF COMMON F-STOPS."Z :5)"2. THE EXPOSURE TIME PRINTED FOR"~ 5)"AN F-STOP OF YOUR CHOICE." "::"ENTER THE NUMBER OF YOUR CHOICE ";O ,O1O2ĺ:"PLEASE RE-ENTER WITH A 1 OR A 2.":290 6O320,720 @ J(" 5)"SINGLE F-STOP."- :5)"4. END"[ ::"ENTER THE NUMBER OF YOUR CHOICE ";N N1N4ĺ:"PLEASE RE-ENTER WITH A NUMBER FROM 1 TO 4.":210 N1110,320,720,650 ::"YOU NOW HAVE TWO OPTIONS:" :5)"1. EXPOSURE TIMES PRI:(20)::"MENUE"::::8 "THESE ARE YOUR OPTIONS:h :5)"1. A TABLE WHICH LISTS B-VALUES FOR" 5)"COMMON CELESTIAL OBJECTS." :5)"2. EXPOSURE TIMES PRINTED IN" 5)"A TABLE OF COMMON F-STOPS." :5)"3. THE EXPOSURE TIME FOR A)  :5$I120:10)"*";::CI112:10)"*";29)"*":[(I120:10)"*";:w27:16::"EXPOSURES":<:(20):"BY"F:(16):"JAN BYBEE"P(19):"AND":(15):"SCOTT KNAPP"::Z:(18):"1980":I12500:dn1680 x            "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS0,(P(12)Q)35X"2'S=";P(2);11)"5'S=";P(5);21)"8'S=";P(8);31)"11'S=";P(11)"3'S=";P(3);11)"6'S=";P(6);21)"9'S=";P(9);31)"12'S=";P(12)"4'S=";P(4);11)"7'S=";P(7);21)"10'S=";P(10);31)"R=";R&23: (7)Q)190,(P(7)Q)20$780,(P(8)Q)22L0,(P(8)Q)23S4g0,(P(9)Q)25{0,(P(9)Q)26130,(P(10)Q)280,(P(10)Q)2990,(P(11)Q)310,(P(11)Q)3210,(P(12)Q)34 1 0,(P(2)Q)430,(P(2)Q)5:9M0,(P(3)Q)7`0,(P(3)Q)8h13|0,(P(4)Q)100,(P(4)Q)1140,(P(5)Q)130,(P(5)Q)1470,(P(6)Q)160,(P(6)Q)172 0,(P29)PC "::C '"2'S=";P(2);12)"6'S=";P(6);24)"10'S=";P(10)v ("3'S=";P(3);12)"7'S=";P(7);24)"11'S=";P(11) )"4'S=";P(4);12)"8'S=";P(8);24)"12'S=";P(12) *"5'S=";P(5);12)"9'S=";P(9) ,:"HIT SPACE BAR";::R$:(4) @QR175E12)"P4=";P(4)R;29)P45 12)"P5=";P(5)R;29)P5R 12)"P6=";P(6)R;29)P6o 12)"P7=";P(7)R;29)P7 12)"P8=";P(8)R;29)P8 12)"P9=";P(9)R;29)P9 12)"P10=";P(10)R;29)PA 12)"P11=";P(11)R;29)PB 12)"P12=";P(12)R;0)1 X11P(11)P(11)14 X12P(12)P(12)1M R500(R500)100S Y "# ROLLS";12)"ACTUAL";29)"THEORETICAL" "=======";12)"======";29)"===========" (7) R;12)"P2=";P(2)R;29)P2 12)"P3=";P(3)R;29)P3 nXGH: p"LEFT = ";G;" RIGHT = ";H;" SUM = ";XD sRR1Y xX2P(2)P(2)1n X3P(3)P(3)1 X4P(4)P(4)1 X5P(5)P(5)1 X6P(6)P(6)1 X7P(7)P(7)1 X8P(8)P(8)1 X9P(9)P(9)1 X10P(10)P(1 ROLLING PROBABILITIES" % 14M "APPLE WILL THROW DICE 500 TIMES."u (:::"HIT SPACE BAR";::R$:(4) ZP(12) _P2136:P3236:P4336:P5436:P6536:P7636:P8536:P9436:PA336:PB236:PC136 dG(6(1))1 iH(6(1))1: THIS PROGRAM GENERATES A NEW COLOR HISTOGRAM AFTER EACH 500 COMPUTER "ROLLS" OF A PAIR OF DICE. THE TEXT DISPLAYS BOTH THEORETICAL PROBABILITIES AND ACTUAL DISTRIBUTION ACHIEVED.==========================936::: 7)"DICE    1"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-------------------------"%&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-------------------------".L218018030?B909015I1000pB;10);L2;20);D1;30);D2;36);R2 CHECK THE LINE COUNTERKK1K55485BL22502000"LAT. LONG. MI K/M DEG"----------380rS$"7"9999w400$|Q~3:5);"ENTER NEW LOCATION CORRDINATES"Z168d2000"GREAT CIRCLE COORDINATES CENTERED ON ";W$"PROGRAMMED FOR ";N$"LATITUDE LONGITUDE MILES KILOMETERS DEG.""---------------" 5. BEARINGS AND DISTANCE TO USER"I)" SELECTED POINTS":m," 6. ENTER NEW LOCATION":1" 7. TERMINATE THE PROGRAM...."36S$@S$"1"400JS$"2"515TS$"3"605YS$"4"510^S$"5"700hS$"6"ANCES TO MAJOR"4" US AND WORLD CITIES":]" 3. BEARINGS & DISTANCE TO DX"" LOCATIONS FROM THE ARRL" " COUNTRIES LIST - LISTED BY"!" CALL PREFIX":$" 4. BOTH US CITIES AND DX LIST"&('J0 F0 2000P "SELECT THE FUNCTION YOU WANT AND ENTER THE NUMBER"V  :" 1. GLOBAL GRID CENTERED ON YOUR" " LOCATION (LAT. EVERY 15 DEGREES" " & LONG EVERY 30 DEGREES" " 2. BEARINGS AND DIST10:W$ : 3:5);"AKRON,OHIO -- 41.0 N. -81.7 N B 10q "WHAT IS THE LATITUDE OF THIS LOCATION? "w 10:A COVERT A TO RADIANS A1A3.14159180 20 "WHAT IS THE LONGITUDE OF THIS LOCATION?" 10:L1 DEGREES WITH DECIMAL PARTS"F :5);"-- NO MINUTES AND SECONDS --"_ 24:PAUSEI14000: "TO CONTINUE HIT ANY KEY-";:A$ :10 "WHAT IS YOUR NAME AND CALL? " :10:W$ 15:"WHAT IS YOUR LOCATION (HOME QTH) ?"  BETWEEN"1 n:"YOU AND THE REST OF THE WORLD."7 sf x:"LATITUDES IN THE NORTHERN HEM ARE (+)" "AND IN THE SOUTHERN HEM. ARE (-)":: "LONGITUDES IN THE EASTERN HEM. ARE (+)" "AND IN THE WESTERN HEM. ARE (-)":: 3);"ALWAYS USE*********" 2B 4 PROGRAMMED BY JAN A. HEISE, WA4V1D, NOV. 77N :24:A$} <"DO YOU NEED INSTRUCTIONS? - Y/N - ";:A$ ?A$"N"168 K:3 P15);"THIS PROGRAM": Z"CALCULATES GREAT CIRCLE BEARINGS,": d"STATUTE MILES, AND KILOMETERS916368,0::1800O 3:"***************************************"V8"G R E A T C I R C L E B E A R I N G S":18);"A N D"#(::3);"D I S T A N C E S P R O G R A M" -21:"******************************                        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"     ...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";:    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:"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===  ==     z#???XIJ    àӠŠҠΠӠƠӠ ӠӠҠ ŠԠҠӠ  ԠҠ̠ͮ͠ؠŠͮŠŠͯԠΠԠ ԠŠӯ;ΠˠðӠ̠Ԡ ٠ϠӠàӠҠ ŠǠӠ ԠҠ͠ՠ "ԠҠӠ Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)  ATING VALUE OF X = ?";I:"ENDING VALUE OF X = ?";F:"HOW MANY DIGITS OF ACCURACY";Q:Q8Ą"HOW MANY SUBREGIONS SHOULD THE REGION BE DIVIDED INTO ?";W::112"TOO MANY-- MUST BE LESS THAN 8":1530} *COPYRIGHT 1978 BY APPLE COMPUTER,INC.* FOR WHICH F(X) IS ZERO (I.E., THE ZEROES OR ROOTS OF THE FUNCTION).":" TO USE THE PROGRAM, THE FUNCTION MUST BE ENTERED AT LINE 200, WHICH YOU SHOULDHAVE ALREADY DONE."1:"WHAT IS THE RANGE OF X YOU WISH TO FINDRELATIVE EXTREMA OVER?":"STAR0:K1K:D1:Y10T1:1150) T1:1150 :"THIS PROGRAM WILL LOCATE 'INTERESTING' VALUES OF X FOR ANY FUNCTION OF X.":"SPECIFICALLY, IT WILL LOCATE THE VALUES OF X AT WHICH RELATIVE MAXIMUMS AND"F"MINIMUMS OF F(X) OCCUR, AND THE VALUES OF XX1K1:R1:880# ~Y1Y:X1X:XXK11 XF12007 F K1M1220O 880d (Y)(Y1)1300 " ZERO",:Y10:100:K1K:D1T0:1150 T1:1150 Y1Y:X1X:1230 2" MAX",:100:K1K:D1:Y10T1:1150 nT0:1150 " MIN",:10..": T11050 Y1300/ D11010= Y01200R (Y)(Y1)1150a T1:1070o Y01200 (Y)(Y1)1150 T0:1100 R1R0:1150 $T1100 .YY11150 8K1M1330 B1120 LYY11150 VK1M1410 `X1CTION IN LINES 200 TO 700* Y1E307108 IF1490E T2940R T3750` T3:1150n YY1870| YY1830 D1:Y10T1:1070 *T1:960 >D1:Y10810 RT0:1100 fK1M910 pK1K12:XX1K1:1180 :"NO CHANGE.. THIS PROGRAM AGAIN.":c dPY((Y1)10Q.5)10Q(Y1):PX((X1)10Q.5)10Q(X1):PY,PX: p"POINT-TYPE","F(X)","X": K(FI)W:K1K:Q5(.4343(.5((I)(F)))):M.5(10(Q5Q)):F1FK:R0:XIK:T2 Y(X) ,--USER MAY PUT HIS FUNR ::"HAVE YOU ENTERED YOUR FUNCTION (Y/N) ?";A$:A$"Y"A$"YES"A$""1490"PLEASE ENTER YOUR FUNCTION AT LINE 200, IN THE FORM:":"200 Y= F(X)":"WHERE F(X) IS YOUR FUNCTION. EXAMPLE:" "200 Y=SIN(X)"::"AFTER ENTERING YOUR FUNCTION, RUN      LINES(L): ";S$ 2A1:B.7- <:3:140,96< FR0200D^ PXR(R):YR(R):XXA:YYB ZXX140:YY96:X0X280Y0Y192ī140 dS$"D"ī120 nX,Y:130 xX,Y R Q$:(Q$)13ĉ::30 ::A ::12:6);"***** ARCHIMEDES SPIRAL *****":DE12000:DE12:958:"WHEN DONE PUSH 'RETURN' TO CONTINUE OR 'ESC' TO QUIT":DE12000:DE12:958:"SEPARATION OF POINTS IN DEGREES: ";D:DD57.29578 (12:958:"DO YOU WANT DOTS(D) OR (2QC))2 ZZ0E31:< Y3QQ(ZZ)(QBX3QE)(2QC)G E30:d ZZQBX3QE:ZZ0E31:& Y3(QAX32QDX3QF)ZZ0 E30: BOBBY DEEN 629 WINCHESTER RICHARDSON,TX 75080 (214)235-4391 X((139SX)SI)2139SX(139SX)SI:40:FEO1:F0:QC02030QQ1:X(139SX)((139SX)SI)2(139SX)SI:40:X((139SX)SI)2139SX(139SX)SI:40:16368,0:Q$:: QC03100  ZZ(QAX32QDX3QF)QC((QBX3QE)tT5ıKyX(2)9999999Y(2)9999999X(4)9999999Y(4)99999991160~X(2)SX139.5,Y(2)SY95.5X(4)SX139.5,Y(4)SY95.5X3X2:3000:E2E3:Y2Y3:F0:EO1:QQ1:T1:X(139SX)((139SX)SI)2(139SX)SI:40:X0:40.04MX2XO1SX:1500ANE20ēX2SX139.5,Y2SY95.5:1104QOX2XO:Y2YOePX(T)X2:Y(T)Y2oVTT1~`T41140eX(1)9999999Y(1)9999999X(3)9999999Y(3)99999991140jX(1)SX139.5,Y(1)SY95.5X(3)SX139.5,Y(3)SY95.5 1100 UF0ēX0,Y0:F1:1006 ZAF0ēX0,Y0:100A _X0,Y0V dXOX:YOY:EOE:d E11100u SI1391010 X2X1SX:1500 E211010 X2SX139.5,Y2SY95.5XSX139.5,YSY95.5:XX2:YY2 X(T)X:Y(T)Y 1110LSI13911SX,100:R I0(95SY)IY:134,ISY95144,ISY95:134,95ISY144,95ISY:s XO139SX:X3XO:3000:YOY3} 2000 (X3X:3000:EE3:YY3 2X0XSX139.5 <Y0YSY95.5 PY00Y0191F0:100 QX02X027784 SEOEİ1000 TE(X)L(X)H "OVERLAY EXISTING GRAPH? (DEFAULT=N) ";Q$:(Q$,1)"Y"đ| X(4),Y(4):I14:X(I)9999999:Y(I)9999999: 16304,0:16297,0:16302,0:3:0,95279,95:139,0139,191 I0(139SX)IX:ISX139,90ISX139,100:139ISX,90139I "HOW ACCURATE? (1=ACCURATE & SLOW, 2=GOOD GUESS, 3=QUICK&DIRTY) (DEFAULT=2) ";A$:A2:(A$)0A(A$):A1SI139 A2SI69.5 A3SI17.375 IX1 IY1 "A,B,C,D,E,F ";QA,QB,QC,QD,QE,QF F(X)Q(X):QC0ĸF TRY A DIFFERENT SETOF NUMBERS. F IS OFTEN NEGATIVE, SO IF IT IS DEGENERATE, TRY A NEGATIVE F" "FOR STARTERS, TRY 2,0,5,0,0,-81. THIS WILL BE AN ELLIPSE": "HOW MANY Y UNITS? (DEFAULT=10) ";SY$ SY10:(SY$)0SY(SY$) SY95SY:SXSY AF0:SI34.75::6:"CONIC SECTIONS GRAPHER":11:"BY BOBBY DEEN"::"THE GENERAL FORM OF A CONIC IS:":"A*X^2+B*X*Y+C*Y^2+D*X+E*Y+F=0":_ "IF B <> 0, THE GRAPH WILL BE ROTATED":"THE CONIC MAY BE DEGENERATE (NO SOLUTION). IF IT IS,     TS. AGAIN YOU START WITH"x"THE 'INITIALIZE NEW FILE AND ENTER DATA'OPTION. WHEN THE SUB-MENU APPEARS YOU";M$;"MUST DECIDE WHETHER IT IS MORE";M$;"CONVENIENT FOR YOU TO ENTER EACH";M$;"HARMONIC IN TERMS OF ITS MAGNITUDE AND"}"PHASE OR IN TERMS OA COPY OF THE HIGHRESOLUTION SCREEN BY REQUESTING 'TOGGLE";M$;"THE PRINTER' BEFORE REQUESTING A PLOT.":10s" SUPPOSE THAT INSTEAD OF ANALYZING A";M$;"KNOWN WAVESHAPE, YOU WANT TO COMBINE";M$;"SEVERAL HARMONICS TO SEE WHAT SORT OF";M$;"WAVEFORM RESULAIN A LIST OF"i"COEFFICIENTS OF THE HARMONICS THAT MADE";M$;"UP THE WAVEFORM. THESE ALSO MAY BE";M$;"LISTED, PLOTTED, OR SAVED TO DISK.";M$;"USERS WITH AN EPSON PRINTER AND AN"jn"ORANGE MICRO 'GRAPPLER' CARD IN SLOT #1";M$;"WILL BE ABLE TO PRINT ' OR TO 'PLOT THE DATA FILE'";M$;"TO CHECK YOUR ENTRIES.":10d" IT IS A GOOD IDEA TO 'WRITE THE DATA";M$;"FILE TO DISK' BEFORE GOING FURTHER.";M$;"ONCE IT HAS BEEN SAVED, YOU CAN 'MOVE";M$;"FROM TIME TO FREQUENCY DOMAIN'. NOW THEDATA FILE WILL CONTHE EDITOR WILL REQUEST YOU TO";M$;"ENTER BOTH A 'REAL' AND AN 'IMAGINARY'";M$;"COMPONENT OF THE SAMPLE. ENTER THE"=_"CORRECTED DATUM AS THE REAL PART, AND";M$;"SET THE IMAGINARY PART TO ZERO. YOU CANRETURN TO THE MAIN MENU TO 'LIST THE";M$;"DATA FILE OF THE";M$;"INCORRECT ENTRY YOU CAN EDIT IT LATER.";M$;"AFTER ALL THE SAMPLES ARE ENTERED THE";M$;"PROGRAM WILL RETURN AUTOMATICALLY TO THEMAIN MENU.":10sZ" IF YOU KNOW ANY POINTS THAT ARE IN";M$;"ERROR, USE THE 'EDIT THE DATA FILE'";M$;"OPTION. TED.";M$;M$;" ENTER THE SAMPLES OF THE WAVEFORM"P"AMPLITUDE SEQUENTIALLY. IF YOU ENTER A";M$;"SAMPLE INCORRECTLY AT THIS STAGE IT IS";M$;"BETTER TO GO RIGHT ON TO THE NEXT SAMPLETHAN TO EXIT BACK TO THE MENU. IF YOU"U"MAKE A NOTE OF THE NUMBERTHE PROGRAM'S MAIN";M$;"MENU. SELECT 'INSTANTANEOUS WAVEFORM";M$;"SAMPLES IN REAL AMPLITUDE FORM' FROM THESUB-MENU. SELECT AN ARRAY GROUP"1K"CONTAINING THE NUMBER N OF WAVEFORM";M$;"SAMPLES YOU WISH TO ENTER, AND VERIFY";M$;"YOUR CHOICES WHEN REQUESTAM WILL ACCEPT N = 4, 8, 16, 32,"A"64, 128, 256, OR 512. THE NUMBER OF";M$;"FREQUENCY COMPONENTS THAT CAN BE";M$;"IDENTIFIED WILL BE NO LARGER THAN HALF";M$;"THE VALUE CHOSEN FOR N.":10F" NEXT, SELECT 'INITIALIZE NEW FILE ANDENTER DATA' FROM ORM ON PAPER TO MAKE DATA ENTRY";M$;"EASIER. DIVIDE THE WAVEFORM INTO N";M$;"INTERVALS EQUALLY SPACED IN TIME AND"!<"MEASURE SAMPLES OF THE HEIGHT OF THE";M$;"WAVE AT THE BEGINNING OF EACH SAMPLE.";M$;"N MUST BE AN INTEGER POWER OF TWO; THE";M$;"PROGRONENTS, THE PROGRAM WILL";M$;"COMBINE THEM AND SHOW YOU THE RESULTANT" 2"WAVEFORM. (THIS IS LIKE PLAYING THE";M$;"NOTES TOGETHER TO SOUND THE CHORD.)":10s 7" FIRST, TAKE THE CASE OF ANALYZING A";M$;"WAVESHAPE. IT IS BEST TO GRAPH THE";M$;"WAVEFE SHAPE OF A REPEATING";M$;"WAVEFORM, THE PROGRAM CAN ANALYZE THAT";M$;"SHAPE TO DETERMINE WHAT FREQUENCIES"F -"COMBINED TO MAKE IT. (THIS IS ANALOGOUSTO SEPARATING THE CHORD OF MUSIC INTO";M$;"ITS INDIVIDUAL NOTES.) IF YOU SPECIFY";M$;"FREQUENCY COMP, AND WE CANNOT EVEN";M$;"BEGIN TO SUMMARIZE THE TOPIC HERE. ALL" #"THIS MONOGRAPH CAN DO IS TO OUTLINE A";M$;"WAY TO USE THE PROGRAM AND TO ENCOURAGE";M$;"YOU TO DO FURTHER STUDY.":10l (" THE PROGRAM WILL PERFORM TWO TRICKS.";M$;"IF YOU KNOW THTELY IDENTIFY EACH";M$;"INDIVIDUAL NOTE THAT WAS PLAYED. THE";M$;"FAST FOURIER TRANSFORM (FFT) IS A";M$;"MATHEMATICAL ALGORITHM THAT PERFORMS A"B "SIMILIAR FUNCTION. THERE IS A VAST";M$;"LITERATURE ON THE FOURIER TRANSFORM AND";M$;"ITS VARIOUS GUISES.::M$(13):A16384:B128:C16368:20= (A)B10LC,0:::" USING THE FFT512 FAST FOURIER";M$;" TRANSFORM PROGRAM";M$;M$;" SOME MUSICIANS WITH SO-CALLED";M$;"'PERFECT PITCH' CAN HEAR A CHORD OF" "MUSIC AND IMMEDIA          OP,0):N2NP:N3NP:T3N31NP2:NPNP:"THE DATA ARRAY IS INITIALIZED FOR:"::T1ĺ" HARMONIC FREQUENCIES IN TERMS OF":" SINE AND COSINE COEFFICIENTS.":415T2ĺ" HARMONIC FREQUENCIES IN TERMS OF":" MAGNITUDE AND PHASE VALUES.":41"6w(12):958:"SELECTION (1-4) ? ";T:T1T4375|:"ARRAY HIGHEST WAVEFORM":"GROUP HARMONIC SAMPLES"::X4:J29:P(J,0)X:" ";J;13);X2;26);X:XXX:(13):958:"ENTER ARRAY GROUP (2-9): ";OP:OP2OP9385'NPP(DATA WILL BE ENTERED:":m"HARMONIC FREQUENCY COMPONENTS IN":" 1) SINE/COSINE COEFFICIENT FORM, OR":" 2) MAGNITUDE AND PHASE FORM."r:"INSTANTANEOUS WAVEFORM SAMPLES IN":" 3) REAL AMPLITUDE FORM, OR":" 4) REAL AND IMAGINARY AMPLITUDES."SUPPLYING COMPLEX CONJUGATE FREQUENCIES.":MPNP:L2MP:L1MP2z,J2L1:P(L2,0)P(J,0):P(L2,1)P(J,1):L2L21::1000^NP0MP0360c:"ERASE DATA NOW IN FILE?":::"(Y/N) ? ";M$:(M$,1)"Y"1010h:E$" ":NP0:MP0:OP0:"WHAT KIND OF HASE(DEGREES)"m (4):T3:"THE DC COMPONENT IS ZEROTH ORDER.":"THE FUNDAMENTAL IS FIRST ORDER."::N31234,3:LPN1N21:N2MP:280N1N21:N2N1N3:N2MPN2MPJN1N2:170::40:N2MPė:N316:2751000"MP2NP065?':THER KEY TO CONTINUE.":35,21::LPĺD$;"PR#1":I$;"5L":::E$::T3ĺ12);"WAVEFORM SAMPLES":"POINT";12);"REAL";27);"IMAGINARY"::27010);"HARMONIC FREQUENCIES":"ORDER";:T1ĺ12);"SINE";29);"COSINE":26510);"MAGNITUDE";25);"PU2(P(J,1)):U2EPEPU2*:EPEP1E7HN20:NP0T3:N316:245"DO YOU WISH TO SEE"::" 1) SINE/COSINE COEFFICIENTS, OR":" 2) MAGNITUDE AND PHASE?"::"(1 OR 2)? ";T:T1T2ė:240A(23):"PRESS FOR MAIN MENU.":"PRESS ANY O25U20205-W1(U1):W20:U10220BU1W1:U2ZM:225qW1(U1U1U2U2):W2ZD(U2U1):U10220U20W2ZMW2:220W2W2ZMU1W1:U2W2I;7);U1;25);U2:NP0MP165EP0:J1MP:U1(P(J,0)):U1EPEPU1V1U1:U1U1W1U2W2:U2U2W1V1W2::`NP0āI1N3:P(I,0)P(I,0)N3:P(I,1)P(I,1)N3:qNPNP:1000U1P(J,0):(U1)EPU10:P(J,0)0U2P(J,1):(U2)EPU20:P(J,1)0IJ:T3IJ1T2225U10U1(U2):U2ZN(U2):2:130a JJK::L11:L1OP:L2L1:L1L1L1:U11:U20:W2PIL2:W1(W2):W2T(W2):7:L;"/";OP J1L2:IJN3L1:I1IL2:V1P(I1,0)U1P(I1,1)U2:V2P(I1,1)U1P(I1,0)U2 P(I1,0)P(I,0)V1:P(I1,1)P(I,1)V2:P(I,0)P(I,0)V1:P(I,1)P(I,1)V2:*";P(J,1): dNP065& iT1:1158 nT1:NP065P sN3(NP):MPN365w u"PROCESSING DATA WITH TRANSFORM." xN2N32:N1N31:J1:I1N1:KN2:5:I }IJXP(J,0):P(J,0)P(I,0):P(I,0)X:XP(J,1):P(J,1)P(I,1):P(I,1)X KJJJK:KK2INE COEFFICIENT = ";P(J,1): U"ABSOLUTE MAGNITUDE = ";U1:"PHASE ANGLE (DEGREES) = ";U2:U2U2ZD:P(J,0)(U1)(U2):P(J,1)(U1)(U2): Z"FOR WAVEFORM SAMPLE # ";J;", ENTER:":"REAL AMPLITUDE = ";P(J,0):T3P(J,1)0: _"IMAGINARY AMPLITUDE = UEST ";M$;" IS ABORTED.":::"EITHER THE DATA FILE IS EMPTY, OR":"TOO FEW DATA POINTS ARE PRESENT, OR":"THE DATA IS FROM THE WRONG DOMAIN." F35:1000 K:T290 P"FOR HARMONIC ORDER = ";J1;", ENTER:":T1Ą"SINE COEFFICIENT = ";P(J,0):"COS08 D$(4):P$(34):E$" ":ESC$(27):I$(9):B$(7)L P(512,1):1000` #B$;B$;B$;B$;B$z (X(16384):X12840 -16368,0:X155ı 21000 7::::::1000 <::"DISK I/O RELATED ERROR # ";(222)::216,0:35:1000 A::"REQ2 MENU DRIVEN FAST FOURIER TRANSFORM PROGRAM] CODED BY JOE WALSTON, JULY 17, 1982. PLOTS MAY BE PRINTED ON AN EPSON PRINTER EQUIPPED WITH AN ORANGE MICRO GRAPPLER CARD. PI3.141592654:ZN90:ZMZNZN:ZDZMPI:EP1E20:NP0:MP0:OP0:LP          LC OUTPUT":K<I1NP:J1NV:A(I,J);" ";:J:" ";Y(I);" ";C(I):I_ N).":j5"ENTER N: ";A$:NV(A$):NV2NVMXĺ:"CAN'T DO IT -- TRY 1 N)."5:"THE COEFFICIENTS, A(I,J), AND THE":"OBSERVABLES, Y(J), ARE TO BE ENTERED":"AND THE SOLUTIONS, X(I), ARE":"CALCI1NV:J1NV:S(I)S(I)VC(I,J)Y(J):J,IB3::"SOLUTIONS:":e3I1NV:"X(";I;") = ";S(I):I3:"TRY AGAIN ?";A$:(A$,1)"Y"5003:8::"SESSION TERMINATED"::3::5);"SIMULTANEOUS EQUATIONS SOLVER":12);"BY GARY LITTLE":4"I,C)03402@AB(I,C)X2JK1NV:B(I,K)B(I,K)B(C,K)A:VC(I,K)VC(I,K)VC(C,K)A:Ka2TI,C2^"PRESS 'RETURN' FOR SOLUTIONS: ";A$2h:"SIMULTANEOUS EQUATIONS:":2rI1NV:J1NV:J1ĺ" + ";2|A(I,J);"*X(";J;")";:J:" = ";Y(I):I*3C1NV#1ICNV:B(I,C)0260A1I:"NOT INVERTIBLE":420N1IC290m1K1NV:AB(C,K):BVC(C,K)1B(C,K)B(I,K):VC(C,K)VC(I,K):B(I,K)A:VC(I,K)B:K1"AB(C,C):A13101,K1NV:B(C,K)B(C,K)A:VC(C,K)VC(C,K)A:K 26I1NV:ICB(0 MX10:LIMIT OF UNKNOWNSK0A(MX,MX),VC(MX,MX),B(MX,MX),Y(MX),S(MX)T05000VC IS FIRST SET EQUAL TO THE IDENTITY MATRIX0I1NV:J1NV:VC(I,J)0(IJ):B(I,J)A(I,J):J,I0THE B MATRIX IS INVERTED AND THE INVERSE IS THE VC MATRIX1     ECTION OF THE PLOTTED LINES CAN CHANGE ONLY AT THE"?500 "EDGES OF THE TRIANGULAR ELEMENTS. NO ATTEMPT SHOULD BE MADE TO SMOOTH THE CURVES, BECAUSE THEY WILL ACT AS AN ERROR CRITERION. IF THE LINES APPEAR UNREALISTIC IN SHAPE OR POAY BE ROTATED 180 DEGREES TO FILL THE SCREEN. WHEN SPEC- FYING A DISK FILE, OMIT THE 'FEM.' PRE- FIX.":6" SOMETIMES THE PLOTTED EQUIPOTENTIAL LINES APPEAR ANGULAR AND JAGGED WHERE THE USER HOPED FOR A SMOOTH CURVE. THISIS DELIBERATE. THE DIR DISK THE OUTPUT RECORDED BYTHE FEM PROGRAM AND THEN TO PLOT LINES OF CONSTANT POTENTIAL THROUGH THE SPACE OF THE MESH. (FOR A HEAT FLOW PROBLEM,"j"THESE WOULD BE LINES OF CONSTANT TEMPER-ATURE.) AGAIN, THE PLOT AXES WILL BE SCALED AND THE PLOT M" NODE POTENTIAL"2" 6 0"K" 7 0"T500:" REMEMBER TO SAVE THE ANSWERS TO DISK!COMPARE YOUR RESULTS TO THOSE STORED IN 'FEM.SIMPLE EXAMPLE'.":" A SECOND PROGRAM, FEMPLT, CAN BE USEDTO READ FROM" NODE #1 NODE #2 NODE #3 SOURCE":" 1 2 3 1.0 2 4 3 1.0 3 4 5 0"" 4 7 6 0 4 6 5 0":ORD."o" 1 0 0":" 2 1 0":" 3 0 4"" 4 1 4":" 5 0 4.5":" 6 3 4.5":" 7 3 4":ION-ING OF SOME ARRAYS IS DELAYED UNTIL AF- TER THE PLOTS ARE FINISHED IN ORDER TO AVOID DESTROYING DATA."x" TO GET AN IDEA OF THE PROGRAM OPERA- TION, ENTER THE FOLLOWING DATA AS THEY ARE REQUESTED:"}500:" NODE X COORD. Y COIS WISE TO KEEP THE"d"PRINTER ON DURING THE RUN IF A LARGE AMOUNT OF DATA IS ENTERED. THIS MAKES CORRECTING ERRORS EASIER."kn" HIGH RESOLUTION PLOTS ARE SCALED TO OCCUPY THE FULL SCREEN, EVEN THOUGH THISMAY DISTORT THE PICTURE. THE DIMENSAND LIST THE PO- TENTIAL AT EACH PROCESSING BY THE FEMPLTPROGRAM."KU500Z" TO SAVE SPACE, THE PROGRAM GIVES ONLYMINIMAL PROMPTING. ANYTIME IT PAUSES ATTHE END OF A DISPLAY IT IS USUALLY WAIT-ING FOR SOMEONE TO PUSH THE SPACE BAR TOCONTINUE. IT S FOR ANY NODES THAT MAY BE CLAMPED TO A FIXED POTENTIAL. (FOR A HEAT FLOW PROBLEM, THESE WILL BE THEBP"TEMPERATURES OF ANY NODES THAT ARE TO BEKEPT AT A FIXED TEMPERATURE.) AFTER ALLDATA ARE ENTERED AND CORRECTED, THE PROGRAM WILL SOLVE FOR <"MENT WILL BE ANY HEAT ACTUALLY GENERATEDWITHIN THAT ELEMENT.) UP TO 75 ELEMENTSARE ALLOWED. AT THIS POINT, THE USER WILL BE ENCOURAGED TO REVIEW THE DATA ENTERED AND TO CORRECT ANY ERRORS."j F"FINALLY, THE USER MUST GIVE THE POTEN- TIAL VALUE 2"OF THE ELEMENT MESH. UP TO 50 NODES AREALLOWED. THEN HE MUST DEFINE EACH ELE- MENT BY GIVING THE THREE NODES THAT MAKEUP ITS CORNERS, AND THE SOURCE (IF ANY) WITHIN THE ELEMENT. (IF HE IS SOLVING" 7"FOR HEAT FLOW, THE SOURCE FOR EACH ELE-" L DEMONSTRATION PROGRAMINTO THE APPLE." (:" THE PROGRAM FEM SOLVES POISSON'S EQUATION IN TWO DIMENSIONS WITHIN A SPACE MODELLED BY A MESH OF FIRST ORDER TRIANGULAR ELEMENTS. THE USER MUST INPUT THE X-Y COORDINATES OF EACH NODE" -500AGNETIC FIELD DISTRIBUTIONS, ANDHEAT FLOW THROUGH SOLIDS. THE MEMORY REQUIREMENT FOR MOST PRACTICAL PROBLEMS"' "IS SO GREAT THAT THE FEM IS ORDINARILLY USED ONLY ON LARGE COMPUTERS, BUT BY REDUCING THE ALGORITHM TO ITS BARE BONESWE CAN PUT A SMAL#::13)"FEM/FEMPLT NOTES": " IN RECENT YEARS, THE FINITE ELEMENT METHOD (FEM) HAS PROVED A VERY POWERFUL COMPUTER ALGORITHM FOR THE SOLUTION OF"p "SUCH DIVERSE PROBLEMS AS STRESS IN MECH-ANICAL STRUCTURES, ELECTROSTATIC AND ELECTROM     E MATRIX EQUATION: S * PO = RTg]:"NOW SOLVING EQUATIONS.":"(APPROX. SECONDS = ";(.144NONO);")"bA(S(1,1)):S(1,1)A:BS(2,1)A:S(1,2)B:S(2,1)B:S(2,2)(S(2,2)BB)lI3NO:BS(I,1)A:S(I,1)B:S(1,I)B:J2I1:B01vK1J1:BBS(I,K) MATRICES OF THIS ELEMENT IN THE GLOBAL S MATRIX.tA4SO(IE):I1NV:KN%(I,IE):C%(K)S(K,K)1:RT(K)PO(K):510J1NV:LN%(J,IE):C%(L)RT(K)RT(K)SM(I,J)PO(L):500S(K,L)S(K,L)SM(I,J)RT(K)RT(K)TM(I,J)A::IEX SOLVE TH)TM(L,L):^I11:I22:I33:M1NV:B((X(J)X(I))(X(K)X(I))(Y(J)Y(I))(Y(K)Y(I)))A2SM(I2,I2)SM(I2,I2)B:SM(I2,I3)SM(I2,I3)B:SM(I3,I2)SM(I3,I2)B:SM(I3,I3)SM(I3,I3)BLI1:I1I2:I2I3:I3L:LI:IJ:JK:KL:1 EMBED THE SM AND TMER TRIANGULAR ELEMENT.]:"NOW SETTING UP EQUATIONS.":"(APPROX. SECONDS = ";(10NE);")"IE1NE:IN%(1,IE):JN%(2,IE):KN%(3,IE):A((X(J)X(I))(Y(K)Y(I))(X(K)X(I))(Y(J)Y(I))):BA24 L1NV:M1NV:SM(L,M)0:TM(L,M)B::TM(L,L)TM(L,LNODE # = 0 TO STOP.":J1CJ:"NODE #, POTENTIAL = ";I,A:I1360xTNOIĺ:"NODE # > ";NO;". ENTRY IGNORED.":330^C%(I)1:PO(I)A:J0:330hJĺ:"AT LEAST ONE ENTRY IS REQUIRED.":330 CONSTRUCT THE SM AND TM MATRICES FOR EACH FIRST ORDE(IENE):N%(1,IE)I1:N%(2,IE)I2:N%(3,IE)I3:SO(IE)I:L1:262[34,0::L0İ2000:240,C%(MO),PO(MO),RT(MO),S(MO,MO),SM(NV,NV),TM(NV,NV)6I1NO:PO(I)0:C%(I)0:RT(I)0:J1NO:S(I,J)0::@::"INPUT NODES WITH FIXED POTENTIALS.":"SET 1:(A$,1)"Y"262F IEMEĺ"ELEMENT IS OUT OF RANGE.";G$:30:262N%(1,IE);6);N%(2,IE);12);N%(3,IE);23);SO(IE):"NEW N1,N2,N3,SOURCE = ";I1,I2,I3,II1NOI2NOI3NOI11I21I31I1I2I2I3I3I1ĺ"INCORRECT NODE.";G$:30:262?NEN12);N%(2,J);18);N%(3,J);24);SO(J):::"REPEAT LIST (Y/N) ? ";A$:(A$,1)"Y"25834,0:::"CORRECTIONS FOR ELEMENTS":"(ENTER ELEMENT = 0 TO QUIT.)":34,3:"ELEMENT = ";IE:IE1278IENE268 "ADD A NEW ELEMENT (Y/N) ? ";A$:IENEȭI112549NOI1ĺ"NODE IS OUT OF RANGE.";G$:30:248|"X = ";X(I1):"Y = ";Y(I1):"NEW X,Y = ";X(I1),Y(I1):L1:24834,0:::"LIST ELEMENTS (Y/N) ? ";A$:(A$,1)"Y"260::"ELEMENT, NODES, SOURCE":34,2S:J1NE:J;6);N%(1,J);A$:(A$,1)"Y"246@ ::"NODE, X CO-ORD., Y CO-ORD.":34,2 :J1NO:J;5);X(J);23);Y(J):::"REPEAT LIST (Y/N) ? ";A$:(A$,1)"Y"244 34,0:::"CORRECTIONS FOR X-Y NODE POSITIONS":"(ENTER NODE = 0 TO QUIT.)":34,3 :"NODE = ";I1:OR. ENTRY IGNORED.";G$:205X NEMEĺ:"TOO MANY ELEMENTS. FATAL ERROR.";G$:34,0: NENE1:SO(NE)A:N%(1,NE)I1:N%(2,NE)I2:N%(3,NE)I3:205 34,0:NE1200 :"DISPLAY MESH (Y/N) ? ";A$:(A$,1)"Y"İ2000 :L0:"LIST NODES (Y/N) ?"; ::"NOW INPUT THE ELEMENT LIST.":"SET ALL NODE #'S = 0 TO STOP.":34,3: :"ENTER NODES AND SOURCE FOR ELEMENT #";NE1;".":"N1, N2, N3, SOURCE = ";I1,I2,I3,A:I11I21I31225 I11I21I31I1NOI2NOI3NOI1I2I2I3I3I1ĺ"NODE ERR8 SO(I)SO(I)1:NONO(INO)(INO):X(I)J:Y(I)K:130} K0::I1NO:JSO(I):J1ĺ"NODE ";I;" WAS OMITTED.":KK1:180 J1ĺ"NODE ";I;" WAS ENTERED ";J;" TIMES." SO(I)0::NO1ĺ:120 K0ĺK;" NODES WERE OMITTED.";G$;G$;G$;G$;G$:30N30 #16368,0:? d INPUT THE MESH OF TRIANGULAR ELEMENTS._ nI1ME:SO(I)0::NO0:NE0 x:"ASSIGN NODE X-Y COORDINATES.":"SET ALL NODE #'S = 0 TO QUIT." :"NODE #, X, Y = ";I,J,K:I1160 IMOĺ:"NODE > ";MO;" ENTRY IGNORED.":130o FINITE ELEMENT SOLUTION OF POISSON'S EQUATION IN TWO DIMENSIONS, USING FIRST ORDER TRIANGULAR ELEMENTS. :MO50:ME75:NV3X(MO),Y(MO),SO(ME),N%(NV,ME)X(J)XH(JXL)1:Y(J)YL(YHJ)1G$(7):100: CTRL-G (16384)128       LOTS (Y/N) ? ";A$:(A$,1)"Y"995( j :B$:"DO YOU WANT TO PRINT THIS PLOT (Y/N) ?";A$:A$"Y"ı D$"PR#1":ES$;(12):I$"GDR2":ES$;(2):I$"20L" ::"FILE: ";E$:D$"PR#0":MJ(POP3)(P1P3):XAJ(X1X3)X3:YAJ(Y1Y3)Y3vPOP2J(POP3)(P2P3):XBJ(X2X3)X3:YBJ(Y2Y3)Y3:2535J(POP2)(P1P2):XBJ(X1X2)X2:YBJ(Y1Y2)Y2 XA,YAXB,YB :POPODP:POPL1.052005 B$:35::3000" "REPEAT P50DP50qDP1DP1SDP(PHPL)(DP1):POPHDP::3:J1NO:X%(J),Y%(J):EL1NE:I1N%(1,EL):P1P(I1):POP12540I3N%(3,EL):P3P(I3):POP32540I2N%(2,EL):P2P(I2):X1X%(I1):X2X%(I2):X3X%(I3):Y1Y%(I1):Y2Y%(I2):Y3Y%(I3)3):I3N%(3,EL):X%(I1),Y%(I1)X%(I2),Y%(I2)X%(I3),Y%(I3)X%(I1),Y%(I1)(X%(I1)X%(I2)X%(I3))3,(Y%(I1)Y%(I2)Y%(I3))3::B$:35::3000 l::"THE NEXT PLOT WILL GIVE ISOPOTENTIALS.":"HOW MANY POTENTIAL LINES";B$:"DO YOU WANT (1-50) ? ";DP:DP);25);P(J):::B$:35:34,0M::"ELEMENT NODE POTENTIAL"::34,2:J1NE:" ";J;12);N%(1,J);18);P(N%(1,J)):12);N%(2,J);18);P(N%(2,J)):12);N%(3,J);18);P(N%(3,J)):::B$:35:34,0:D$"PR#0"F:3:EL1NE:I1N%(1,EL):I2N%(2,EL"P(MAX) = ";PH:"P(MIN) = ";PLB$:"DO YOU WANT TO PRINT THE DATA (Y/N) ? ";A$:(A$,1)"Y"ĺD$"PR#1":I$"10L":ES$;(12):I$"60P"::"FILE : ";E$::"NODE COORDINATES POTENTIAL":11);"X Y"::34,3:J1NO:J;7);X(J);15);Y(JYL::XHXHXL:YHYHYL} YHXH1.02āJ1NO:IXHX(J):X(J)Y(J):Y(J)I(I0)::IXH:XHYH:YHI:"MESH ROTATED 90 DEGREES." XL278XH:YL189YH:J1NO:X%(J)(XLX(J)1):Y%(J)(YL(YHY(J))1)::"X RANGE = 0 TO ";XH:"Y RANGE = 0 TO ";YH::EL1NE:I11:I22:45:I23:45:I12:45: XLX(1):YLY(1):PLP(1):XHXL:YHYL:PHPL:I2NO:JX(I):XHXH(JXH)(JXH):JXLXLJ JY(I):YHYH(JYH)(JYH):JYLYLJ JP(I):PHPH(JPH)(JPH):JPLPLJ :J1NO:X(J)X(J)XL:Y(J)Y(J)ɫ556 sE$"FEM."E$:D$;"OPEN";E$;",V0":D$;"READ";E$~ xNO,NE:J1NO:X(J),Y(J),P(J)::J1NE:N%(1,J),N%(2,J),N%(3,J): }D$;"CLOSE";E$:216,0::"THE MESH HAS ";NO;" NODES.":"THE MESH HAS ";NE;" ELEMENTS.":J(J)* :"SORTING ELEMENT DATA.":M DISK.":"DO YOU WANT TO SEE THE DISK CATALOG?";B$:"(Y/N) ? ";A$:(A$,1)"Y"ė:D$;"CATALOG":35:100 iB$:"ENTER THE NAME OF THE FILE: ";E$:"ARE YOU SATISFIED WITH '";E$;"' ?";B$:"(Y, N, OR END) ? ";A$:A$(A$,1):A$"E"Ā nA$"Y"105 pMO) 100" #(16384)128352 (16368,0:Z -I3N%(I1,EL):P(I3)P(N%(I2,EL))ı 2N%(I1,EL)N%(I2,EL):N%(I2,EL)I3: 7:B$;"THE LAST DISK-RELATED COMMAND":"PRODUCED ERROR CODE # ";(222):216,0:h d:::"THE MESH DATA MUST BE READ FRO ^ PLOTTING ROUTINE FOR FEM OUTPUT DATA. USES EPSON PRINTER AND GRAPPLER INTERFACE CARD.u :MO50:ME75:NV3D$(4):G$(7):I$(9):ES$(27):B$G$G$G$G$G$: CTRL-D, CTRL-G, CTRL-I, , BELLS X(MO),Y(MO),P(MO),N%(NV,ME),X%(MO),Y%(          16368,0: :. LAURICH" @"DATE: 7-79"N J::"THIS PROGRAM WILL CALCULATE TRANSISTOR"} T"PARAMETERS NEEDED FOR GIVEN INFORMATION" ^20:"PRESS ESC TO END" h:"<>" 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"