' +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,&"@A H@Ah@A $`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+8-#?-,,+=- 4*,<;?24=)E(b ;$0h(   `h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ) B `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 BUFFERө wLqLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( q  Ϡ@跻~!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 ݲ` ܫ 3 / ED i / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  0L Ν 2`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 ~(` d Ӡz# u`"7"C3"(OHM$,2,1)"8"C10<(OHM$,2,1)"9"C15F"1200[,(OHM$)10C0p6(OHM$)20C0@(OHM$)21C8J(OHM$)22C11T(OHM$)23C9^(OHM$)24C13h(OHM$)25C4r(OHM$)26C6|(OHM$)2)"9"C15(OHM$)1ī1200)1180>(OHM$)1ī1350W(OHM$,2,1)"0"C0p(OHM$,2,1)"1"C8(OHM$,2,1)"2"C11(OHM$,2,1)"3"C9(OHM$,2,1)"4"C13(OHM$,2,1)"5"C4(OHM$,2,1)"6"C6(OHM$,2,1)3202M$"Y"ī11207<M$"N"ĉ::(4);"RUN HELLO"NF(OHM$,1)"1"C8fP(OHM$,1)"2"C11}Z(OHM$,1)"3"C9d(OHM$,1)"4"C13n(OHM$,1)"5"C4x(OHM$,1)"6"C6(OHM$,1)"7"C3(OHM$,1)"8"C10 (OHM$,1"5"C4$"GOLD")TL$"10"C4$"SILVER"v:21:(39(C1$)(C2$)(C3$)(C4$)3)2:C1$;"-";C2$;"-";C3$;"-";C4$ TL$"20"İ1860TL$""İ186022:14:OHM$;" OHMS ";TL$;"%"(24:8:"ANOTHER RESISTOR? (Y/N) ";:M$::M$"Y"M$"N"10)C:10,2212:10,2213:1870:C1$C$31460[C:10,2216:10,2217:1870:C2$C$e1580C:10,2220:10,2221:1870:C3$C$22:"ENTER TOLERANCE IN % (1,2,3,4,5,10,20) ";TL$1700C:10,2228:10,2229:1870:C4$C$TL$ñƱЄ(R";Z;") = ";ER;" V"7SE2ĺ"I(R";Z;") = ";IR;" A"23:"IT = ";IT;" A":23:20:"P(R";Z;") = ";PR;" W":24:"PT = ";PT;" W";24:20:"REPEAT? (Y/N) ";:A$::A$"Y"A$"N"4030YY((YY100).5)100:, PT ";PT$:PT(PT$):PT0ıX"ENTER POWER DISSIPATED IN R";Z;:" ";PR$:PR(PR$):ES0IT0PT0IR0PR0Ģ21::"INSUFFICIENT INFORMATION!"::4030:21:"RT = ";RT;" O":21:20:"R";Z;" = ";RZ;" O":22:"ES = ";ES;" V":22:20:SE1ĺ"EES$:ES(ES$):ES0ıU "ENTER TOTAL CIRCUIT CURRENT, IT ";IT$:IT(IT$):IT0ı SE1ĺ"ENTER VOLTAGE ACROSS R";Z;:" ";ER$:ER(ER$):ER0ı SE2ĺ"ENTER CURRENT THROUGH R";Z;:" ";IR$:IR(IR$):IR0ı"ENTER TOTAL POWER DISSIPATIONESISTOR DESIRED, R";Z:RZR(Z) :ZBĢ22::"CIRCUIT DOES NOT INCLUDE R";Z::23:"RE-ENTER RESISTOR DESIRED, R";Z:RZR(Z):ZBī3060  ES$"0":ER$"0":IT$"0"::PT$"0":IR$"0":PR$"0":ES0:ER0:IT0:PT0:IR0:PR0:"ENTER SUPPLY VOLTAGE, ES ";15:"R";Z;" = ";RZ:R(Z)RZ:G :21:"RT (TOTAL RESISTANCE) = ";RT: 23:"POWER, CURRENT, ETC.? ";:"(Y/N) ";:A$::A$"N"A$"Y"3020  :21::"NOTE"::21:5:": R IN OHMS, E IN VOLTS":22:7:"I IN AMPS, P IN WATTS":23:7:"ENTER R"ENTER R";N;:868:" = ";R$(N):R(N)(R$(N))J-R(N)0ZXİ2065:2095^.2097:SE1190l0SE2980y1NXĂN2SE13003SE21080 21:"R";Z;" UNKNOWN":23:"ENTER RT (TOTAL RESISTANCE) = ";RT$:RT(RT$): RZ0335 :21:N)!"::M24:"ANOTHER CALCULATION? (Y/N) ";:A$::A$"N"A$"Y"ī2070aA$"Y"ĉ::20g "R IN OHMS":NNX:23:19:"ENTER R";N;:868:" = ";R$(N):R(N)(R$(N)):2060:R(N)02092*NXĂN+-,ZN:NXNN1:NNX:23:19:22:"ENTER NUMBER OF ";:SE1ĺ"SERIES ";ESE2ĺ"PARALLEL ";s"RESISTANCES:";:" ";X:N1:BX:X02000 :21:"NOTE: ENTER ? FOR UNKNOWN RESISTANCE.":"(ONE UNKNOWN RESISTANCE/CALCULATION).":22::"(ONE UNKNOWN RESISTANCE/CALCULATIOXX1:RPR(X):YX1&VR(Y)0YY1P`RPRPR(Y)(RPR(Y)):YY1:Y0ī1160bjR(Y)0ī1190rtY0ī1160|~1110RZ((RTRP)(RPRT))30101200YY1:Y0ī1160R(Y)0ī11103020A$"N"ī1560A$"Y"ī350- ML;" DB"0>"MIN. INSERTION LOSS = ";MIL;" DB"@>"DB LOSS";k>X5X12ĺ"/STEP (1.3 DB/STEP MAX.)";yH?" = ";DB?DB0DBMILė:21:22:10::"NOT CONSTRUCTIBLE"::15900@t@N(DB(L10)):KN.5:YYN:160:NYY:YYK:160:KYY:13300814650#9"N = ";N;" K = ";K;4:9" ";A$:100z4:S(Z1Z2).5:BS((S2)1).5:ML20(B)L:X4X11ML20(S)L:YYML:150:MILYYZ2"::F1119508123:"Z2";:X6X13ĺ" (LOAD)";1" = ";Z2d2Z" COMBINER"*22:"SELECT (1-14) ";X3,:7:A(0):X3800,3500,2200,4400,2100,4400,3800,3700,3400,2200,4200,1700,4200,2200.21:"1) MATCH Z1":"2) MATCH Z2":"SELECT (1,2) ";:XX:XX1XX211800|.L1(10):.F0:21:"(Z IN OHMS):R$"20%":C42:B4$"(NONE)": C10C$"GRAY"H C15C$"WHITE"N VC0`1445h(23):4):"(NO TOLERANCE BAND INDICATES 20%)":R$"20%":C42:B4$"(NONE)":"XC8C$"BROWN"(bC11C$"RED"=lC9C$"ORANGE"SvC13C$"YELLOW"gC4C$"GREEN"zC6C$"BLUE"C3C$"VIOLET"C10C$"GRAY"C15C$"WHITE"C0118023:4:"(NO TOLERANCE BAND INDICATES 20%)"TL$"12.5"C3"TL$"20"C25TL$"30"C10?1250n&:22:TL$;"%";" TOLERANCE NOT AVAILABLE."023:"RE-ENTER TOLERANCE IN % (1,2,3,4,5,10,20) ",TL$:1700D23:5:"(NO TOLERANCE BAND INDICATES 20%)":TL$"20":NC0C$"BLACK7C3(OHM$)28C101(OHM$)29C15;1220KTL$""C2\TL$"1"C8nTL$"2"C11TL$"3"C9TL$"4"C13TL$"5"C13TL$"6"C6TL$"7"TL$"8"TL$"9"TL$"11"TL$"12"İ1830TL$"10"C15ƱƱNG MY INTERNAL TELEGRAPH CHARGE.":T7A$"QSK"T$"1) CONTINUE TRANSMISSION OF ALL TRAFFIC; I SHALL INTERRUPT YOU IF NECESSARY. 2) I CAN HEAR YOU BETWEEN MY SIG- NALS.":T5"A$"QSL"T$-A$"QSB"T$"YOUR SIGNAL IS FADING":T5]A$"QSD"T$"YOUR KEYING IS DEFECTIVE":T5A$"QSG"T$"TRANSMIT ... TELEGRAM(S) AT A TIME.":T5/A$"QSJ"T$"THE CHARGE TO BE COLLECTED PER WORD TO ... IS ... FRANCS, IN- CLUDI ... HOURS (ON ...KHZ OR MHZ). 2) PLEASE WAIT.":T5wA$"QRY"T$"YOUR TURN IS NUMBER...":T5A$"QRZ"T$"YOU ARE BEING CALLED BY ... (ON ... KHZ OR MHZ).":T5A$"QSA"T$"THE STRENGTH OF YOUR SIGNAL IS...":T8A$"QRT"T$"STOP TRANSMISSION.":T5TA$"QRU"T$"I HAVE NOTHING FOR YOU.":T5wA$"QRV"T$"I AM READY.":T5A$"QRW"T$"PLEASE INFORM ... THAT I AM CALL- ING HIM ON ... KH (OR MHZ).":T5IA$"QRX"T$"1) I WILL CALL YOU AGAIN ATT5*zA$"QRP"T$"DECREASE POWER.":T5d|A$"QRQ"T$"SEND FASTER (.... WORDS PER MIN.).":T5A$"QRR"T$"READY FOR AUTOMATIC OPERATION. SEND AT ... WORDS PER MINUTE.":T5A$"QRS"T$"SEND SLOWER (...WORDS PER MINUTE).":T5%R THAT OF ....) IS ....":T6ynA$"QRL"T$"I AM BUSY (OR I AM BUSY WITH ...). PLEASE DO NOT INTERFERE.":T5rA$"QRM"T$"I AM BEING INTERFERED WITH.":T5vA$"QRN"T$"I AM TROUBLED BY STATIC.":T5xA$"QRO"T$"INCREASE POWER.":UENCY VARIES.":T5hA$"QRI"T$" THEN TONE OF YOUR TRANSMISSION IS ... (1 = GOOD; 2 = VARIABLE; 3 = BAD).":T5jA$"QRJ"T$"I CANNOT RECEIVE YOU. YOUR SIGNAL IS TOO WEAK.":T5!lA$"QRK"T$"THE READABILITY OF YOUR SIGNAL (OPCESCTC(X):936:21:4:"VOLTAGE DROP ACROSS":21:24:"C":21:25:X:21:29:"EC = ";ECCT/C"^23:"SELECT CAPACITOR (C1, C2, ETC.): C";X::21:X10Ė11:"C":21:12:X:910{X9Ė10:"C":21:11:X21:14:"CAPACITANCE":21:28:"C = ";C(X):22:8:"TOTAL CAPACITANCE CT = ";CT:23:5:"ENTER SOURCE VOLTAGE ES = ";ES\EH23:"ENTER C":23:8:N:23:10:" = ";C(N):N>RCTC(X)_\XX1:CT1((1CT)(1C(X)))ofX10ī860p936:21:10:"CT (TOTAL) = ";CTz23:"VOLTAGE DROP ACROSS INDIVIDUAL CAPACITOR DESIRED? (Y/N) ";D$:D$"Y"Č936:21:12:"EC = ES * 5110,105:150,105264,105:13,1026,10513,108:257,102264,105257,1084127,110122,110122,100127,100:132,100137,100:134,100134,110>21:"ENTER NUMBER OF SERIES CAPACITORS ";X:C(X):N1X::21:" NUMBER OF SERIES CAPACITORS = ";X2,125132,130137,130137,135132,135132,133 105,80105,40115,40:155,40165,40165,80:115,55115,25155,25155,55115,55122,50147,30:142,30147,30147,35 135,20130,20130,10135,10:135,15130,15:145,20140,20140,10145,10H*6,10,6085,60:90,6095,6095,6590,6590,7095,70135,70130,70130,60135,60:140,60145,60145,70140,70:140,65145,65:225,70220,70220,60225,60,230,70230,60235,70235,60:127,135122,135122,125127,125:122,130127,130:137,127137,12513202175,80180,80:185,80190,80:195,80200,80205,80222,80:222,75222,85:232,75232,85:232,80270,80:269,79271,79271,81269,81269,791,801,130110,130:150,130270,130270,80.40,7035,7035,6040,60:45,6045,70:85,7080,7080936:21:10:"CT (TOTAL) = ";CT%:7:0,792,792,810,810,79:0,8035,80:35,7535,85:45,7545,85:45,8082,80:82,7582,85:92,7592,8592,80132,80:132,75132,85:142,75142,85:142,80170,80:175,80180,80:185,80190,80:195,80200,8.................. 2) HEIGHT OF CLOUDS ............ 3) GROUND WIND AT .... (PLACE OF OBSERVATION).................":T5&. A$"QUC"T$"THE NUMBER (OR OTHER INDICATION) OF THE LAST TELEGRAM I RECEIVED FROM YOU OR FRP MY STATION OPEN FOR FURTHER COMMUNICATION WITH YOU UNTIL FURTHER NOTICE (OR UNTIL ... HOURS).":T5,A$"QUA"T$"HERE IS NEWS OF ... (CALL SIGN).":T5-A$"QUB"T$" HERE IS INFORMATION REQUESTED: 1) VISIBILITY METERS) SO THAT MY FREQUENCY CAN BE MEASURED.":T5+A$"QTU"T$"MY STATION IS OPEN FROM ... TO ... HOURS.":T5+A$"QTV"T$"STAND GUARD FOR ME ON ... KHZ/MHZ/ METERS (FROM ... TO ... HOURS).":T5~,A$"QTX"T$"I WILL KEEATION BY MEANS OF THE IN- TERNATIONAL CODE OF SIGNALS.":T7y*A$"QTR"T$" THE CORRECT TIME IS ... HOURS.":T5>+ A$"QTS"T$" I AM GOING TO TRANSMIT MY CALL SIGN FOR ... MINUTES NOW (OR AT ... HOURS) (ON ..... KHZ/MHZ/ LEFT DOCK (OR PORT). 2) I AM AIRBORNE.":T5)A$"QTP"T$"1) I AM GOING TO ENTER DOCK (OR PORT). 2) I AM GOING TO ALIGHT (OR LAND).":T5B*A$"QTQ"T$"I AM GOING TO COMMUNICATE WITH YOUR ST ... DEGREES":T5f(A$"QTJ"T$"MY TRUE SPEED IS ...(MILES/KNOTS/ KILOMETERS PER HOUR).":T5(A$"QTL"T$"MY TRUE HEADING IS ... DEGREES.":T5(A$"QTN"T$"I DEPARTED FROM ...(PLACE) AT ... HOURS.":T54)A$"QTO"T$"1) I HAVE HIS CALL SIGN (REPEATED ... TIMES) (ON ... KHZ/MHZ/METERS).":T4'A$"QTH"T$"MY POSITION IS ... LATITUDE, ... LONGITUDE (OR ANY OTHER INDICATOR SUCH AS HOME OR STATION ADDRESS).":T5(A$"QTI"T$"MY TRUE TRACK IS OF TEN SECONDS EACH FOLLOWED BY MY CALL SIGN (REPEATED ... TIMES) (ON ... KHZ/MHZ/METERS)."T'A$"QTG"T1$" 2) I HAVE REQUESTED .... (CALL SIGN) TO SEND TWO DASHES OF TEN SECONDS EACH FOLLOWED BY .":T5%A$"QTF"T$"THE POSITION OF YOUR STATION ON THE BASIS OF BEARINGS TAKEN BY THE RADIO DIRECTION-FINDING STATION WHICH I CONTROL IS ... LATITUDE, ... LONGITUDE.":T7z&A$"QTG"T$"1) I AM GOING TO SEND TWO DASHES BEARING IN RELATION TO ... (CALL SIGNAL) IS ... DEGREES AT ... HOURS."%A$"QTE"T2$" 3) THE TRUE BEARING OF ... (CALL SIGN) IN RELATION TO ... (CALL SIGN) IS ... DEGREES AT ... HOURSUMBER.":T5T#A$"QTC"T$"I HAVE ... TELEGRAMS FOR YOU (OR FOR ...).":T5#A$"QTE"T$"1) YOUR TRUE BEARING IN RELATION TO ME IS ... DEGREES AT ... HOURS.\$A$"QTE"T1$" 2) YOUR TRUE ICE.":T5e"A$"QTA"T$"CANCEL TELEGRAM NUMBER ... AS IF IT HAD NOT BEEN TRANSMITTED.":T5 #A$"QTB"T$"I DO NOT AGREE WITH YOUR WORD COUNT; I SHALL REPEAT THE FIRST LETTER OF EACH WORD AND THE FIRST FIGURE OF EACH NQSX"T$"I AM LISTENING TO .... ON .... KHZ/MHZ/METERS.":T5!A$"QSY"T$"SHIFT TO TRANSMISSION ON ANOTHER FREQUENCY (OR ON ... KHZ/MHZ) WITHOUT CHANGING TYPE OF EMISSION.":T4 "A$"QSZ"T$"TRANSMIT EACH WORD OR GROUP TWTH CLASS ... EMISSION).":T5z A$"QSV"T$"TRANSMIT A SERIES OF V'S ON THIS FREQUENCY (OR ON ... KHZ/MHZ).":T5 A$"QSW"T$"I AM GOING TO TRANSMIT ON THIS FREQUENCY (OR ON ... KHZ/MHZ WITH CLASS ... EMISSION).":T5E!A$"SP"T$"I WILL RELAY TO ... FREE OF CHARGE.":T5A$"QSR"T$"THE DISTRESS CALL RECEIVED FROM ... HAS BEEN ATTENDED TO BY ...":T5 A$"QSU"T$"TRANSMIT (OR ANSWER) ON THIS FREQ- QUENCY (OR ON ... KHZ/MHZ/METERS WI" I AM ACKNOWLEDGING RECEIPT":T5A$"QSM"T$"REPEAT THE LAST TELEGRAM(S) OR TELEGRAM(S) NUMBER(S).... WHICH YOU TRANSMITTED TO ME.":T5A$"QSO"T$"I CAN COMMUNICATE WITH ... DIRECT- LY (OR THROUGH ....).":T5<A$"QXXX"1610 6D$CT$1410, ;D$CT$ī110J @CT1:CT((D$)100):1590j JCT$;" NOT LISTED."::1400!T0,ALGERIA,ENGLAND,GHANA,GUINEA,ICELAND,ISLE OF MAN,IVORY COAST,MALI,MAURITANIA,MOROCCO,NORTH IRELAND,NORTHERN IRELAND,MADEIRA,SCOTLAND,SENEGAL,S = ";ZX$;ZV$;ZZ;" HOUR";:ZZ1ĺ"S)":13593N")">O:215IP:620RZ640\d936n10:"WORLD TIME CONVERSION"::"***************************************"::x"CITY OR COUNTRY DESIRED: ";CT$:D$""D$(D$)0ī1600 D$"XTZ0TZ24TZ12XFTH;":";TM$;" ";TX$;TN$;" "ZX$;" = ";TZ;":";TM$;" ";TY$;TP$;" "ZY$GZXZY0ZZZXZY:ZZ$" - ":ZV$" + "HZXZY0ZZ(ZXZY):ZZ$" + ":ZV$" - "K"(";ZX$;" = ";ZY$;ZZ$;ZZ;" HOUR";:ZZ1ĺ"S)":1357L")"*M"(";ZY$;"TZ0TZ12TY$"A":TP$"M";TZ12TZ24TY$"P":TP$"M"[(TZ12TM0TY$"P":TP$"M"v*TZ24TY$"A":TP$"M"-TZ0TZTZ122TZ12TZ24TZTZ127TZ24TZTZ24:TH24TH0TH12<TH12TH24THTH12ATZ24TZTZ24DTX$"M":TN$""/TH12TH24TX$"P":TN$"M"NTH12TM0TX$"N":TN$""nTH12TM0TX$"A":TN$"M"~TZTHZXZYTZ0TY$"P":TP$"M"TZ0TZ24TM0TY$"M":TP$""TZ12TM0TY$"N":TP$"" TZ0TM0TY$"A":TP$"M"TM):TM0TM$"00".TX$"A"TG(TH100)TMCTX$"N"TG1200XTX$"M"TG2400}TX$"P"THTH12:TG(TH100)TMTH12TX$"A":TN$"M"TH12TX$"M"TH24TH24TM0TX$"M":TN$""TH24TM0TX$"A":TN$"M"TH0TM0T"ZX3`ZX$"PST"ZX4/jZY$"EDT"ZY0MtZY$"EST"ZY$"CDT"ZY1k~ZY$"CST"ZY$"MDT"ZY2ZY$"MST"ZY$"PDT"ZY3ZY$"PST"ZY4(T$,3,1)":"TH((T$,2)):TM((T$,4,2)):TX$(T$,7,1):1200TGMTCT:2200TM$(";ZY$h3ZY$"EDT"ZY$"EST"ZY$"CDT"ZY$"CST"ZY$"MDT"ZY$"MST"ZY$"PDT"ZY$"PST"ī10706:"======================================="8ZX$"EDT"ZX0BZX$"EST"ZX$"CDT"ZX1LZX$"CST"ZX$"MDT"ZX2VZX$"MST"ZX$"PD$::"ENTER TIME ZONE X (EDT, CST, ETC.) ";ZX$'ZX$"EDT"ZX$"EST"ZX$"CDT"ZX$"CST"ZX$"MDT"ZX$"MST"ZX$"PDT"ZX$"PST"ī1060):"ENTER TIME (HH:MM) SUCH AS 01:30 PM OR 12:00 N OR 12:00 M) ";:3000:T$A$.:"ENTER TIME ZONE Y M0ĺ" (PREVIOUS DAY)"(M0ĺ""W"(";TZ$;" = GMT - ";(GMTM)100;" HOURS)"bS5ı"======================================="TM:365:4:"CONVERT TIME ZONE X TO TIME ZONE Y":"***************************************"0GOOD"A,"ENGLISH","FRENCH","GERMAN","GREEK","ITALIAN","JAPANESE","NORWEGIAN","RUSSIAN","SPANISH"2f+"UNREADABLE","READABLE NOW AND THEN","READABLE, BUT WITH DIFFICULTY","READABLE","PERFECTLY READABLE"3p+"BARELY PERCEPTABLE","WEAK","FAIRLY GOOD","GOOD","VERY : ";A$::491'1270:A$;" = ";T$;T1$;T2$::T1T2İ20F1$'T3İ30W1)'T3T4İ40i1.'T5T9İ5018':22:868:"ANOTHER Q SIGNAL? (Y/N) ";:A$::A$"Y"A$"N"100401B'A$"N"ĉ:::(4);"RUN HELLO"1L'10000Y2*"(STATE WHICH LANGUAGE)"RS.":T7M04A$"QUK"T$"THE SEA AT ... (POSITION/PLACE) IS .....":T706A$"QUL"T$" THE SURGE AT ... (POSITION/PLACE) IS ....":T70:A$"QUM"T$"THE DISTRESS TRAFFIC IS ENDED.":T50(#T$""T$"NOT LISTED"0& 1':4:"Q SIGNAL TO ALIGHT (OR LAND) AT .... (POSITION/PLACE).":T5/,A$"QUH"T$"THE PRESENT BAROMETRIC PRESSURE AT SEA LEVEL IS....(UNITS).":T500A$"QUJ"T$"THE PROPER COURSE TO STEER TOWARD ME, WITH NO WIND, IS ... DEGREES AT ... HOUOM ... (CALL SIGN) IS ....":T5."A$"QUD"T$"I HAVE RECEIVED THE URGENCY SIGNAL SENT BY ... AT ... HOURS.":T7.&A$"QUF"T$"I HAVE RECEIVED THE DISTRESS SIG- NAL SENT BY ... AT ... HOURS.":T7;/*A$"QUG"T$"I SHALL BE FORCED,KANEOE,KAHUKU,ALASKA,ANCHORAGE,NOME,YUKONe0-11,GILBERT ISLANDS,THE GILBERT ISLANDS,WESTERN SAMOAu0-16,BRUNEI0 XXXX0TCTGMT:22000CTGMT2400İ21100CI$"":"WHEN IT IS "A$;" ";TZ$:"IT IS ";TH;":";0TM0ĺ"0";1TM;" ";TMTON//b-9,CALGARY,HERMOSILLO,NICARAGUA,DENVERM/l-8,VICTORIA,LOS ANGELES ^/v-9,PARAGUAY*0-10,COOK ISLANDS,THE COOK ISLANDS,TAHITI,HAWAII,HONOLULU,HILO,WAHIAWA,PEARL HARBOR,OAHU,KAUAI,MOLOKAI,NIIHAU,THE HAWAIIAN ISLANDS,HAWAIIAN ISLANDS,LUALUALEIBIA,DOMINICAN REPUBLIC,ECUADOR,HAITI,JAMAICA,PANAMA,PANAMA CITY,COLON,CRISTOBAL,BALBOA,PERU,LIMA,TURKS AND CAICOS ISLANDS,THE TURKS AND CAICOS ISLANDS,WASHINGTON D.C./X-6,BELIZE,WINNEPEG,COSTA RICA,EL SALVADOR,GUATEMALA,HONDURAS,MEXICO,MEXICO CITY,HOUSAINT CHRISTOPHER-NEVIS-ANGUILLA,ST. LUCIA,SAINT LUCIA-D-4,ST. VINCENT,SAINT VINCENT,TRINIDAD AND TOBAGO,VENEZUELA,VIRGIN ISLANDS,THE VIRGIN ISLANDS,WEST INDIES,WINDWARD ISLANDS,THE WINDWARD ISLANDS,THE WINDWARDS,WINDWARDS .N-5,BAHAMAS,TORONTO,COLOME FALKLANDS,FALKLANDS,FRENCH GUIANA,GUIANA,GAMBIA,GRENADA,:-4,GUADELOUPE,LEEWARD ISLANDS,THE LEEWARD ISLANDS,THE LEEWARDS,LEEWARDS,MARTINIQUE,MONTSERRAT,NETHERLANDS ANTILLES5-?-4,THE NETHERLLANDS ANTILLES,PUERTO RICO,ST. CHRISTOPHER-NEVIS-ANGUILLA,S-3,MONTIVIDEOu+0-4,ANTIGUA,BARBADOS,BERMUDA,BOLIVIA,CANADA,HALIFAX,CHILE,VERA CRUZ,CUBA,HAVANA,SANTIAGO,MANZANILLO+1-4,VENEZUELA,CARACAS,SANTIAGO+2-5,BOGOTA,LIMA9,5-4,GUANTANAMA,GUANTANAMA BAY,DOMINICA,FALKLAND ISLANDS,THE FALKLAND ISLANDS,TH12,NEW ZEALAND-* 12,WELLINGTON,AUCKLANDw*-1,AZORES,THE AZORES,AZORES ISLANDS,THE AZORES ISLANDS,GUINEA-BISSAU*-2,CAPE VERDE*!-3.85,GUYANA*&-3,ARGENTINA,BRAZIL,RIO DE JANERO,BUENOS AIRES,SAO PAULO,RECIFE,GREENLAND,URUGUAY,LA PAZ ++,JAPAN,NORTH KOREA,SOUTH KOREA,YAKUTSK,TOKYO,YOKAHAMA,KOBE,HIROSHIMA,NAGASAKI,SEOULe)9.3,ADELAIDE) 10,BRISBANE,GUAM,NEW GUINEA,PAPUA,SOLOMON ISLANDS,THE SOLOMON ISLANDS,TASMANIA)10,SYDNEY,VLADIVOSTOK,MELBOURNE)11,NEW CALEDONIA,MAGADAN*INGAPORE(8,AUSTRALIA,PERTH,CHINA,TAIWAN,HONG KONG,MALAYSIA,PHILLIPINES,PHILLIPINE ISLANDS,THE PHILLIPINES,THE PHILLIPINE ISLANDS,IRKUTSK,VIETNAM (8,LUZON,SAMAR,LEYETE,TACLOBAN,MANILA,DARWIN(?)(8,PEKING,CANTON,SHANGHAI,HO CHI MINH CITYS)9ALDIVE ISLANDS,MALDIVE ISLANDS,PAKISTAN,SVERDLOVSKA'5,KARACHIj'5.3,INDIA,SRI LANKA,CALCUTTA,BOMBAY'6,BANGLADESH,BHUTAN,NEPAL,TASHKENT'6.3,BURMA,RANGOON'7,CAMBODIA,INDONESIA,LAOS,MONGOLIA,NOVOSIBIRSK,THAILAND'7,JAKARTA(7.3,SUSSIA,SOVIET UNION,TANZANIA,UGANDA,ARAB REPUBLIC,YEMENn&3,ADDIS ABBA,BAGHDAD,LENINGRAD,MECCA,MOSCOW,TEHRAN&4,BAHRAIN,MAURITIUS,OMAN,QATAR,REUNION,SEYCHELLES,GORKI,UNITED ARAB EMIRATES&4,RAS ET TANURA&4.3,AFGHANISTAN2'5,MALDIVES,THE MSUEZ,ALEXANDRIA,HELSINKI,ATHENS,PALESTINE,BETHLEHEM,BUCHAREST,ANKARA,ISTANBUL,JOHANNESBURG,CAPETOWN,TEL AVIV6&|3,BURUNDI,THE COMORO ISLANDS,THE GRAND COMORO ISLANDS,GRAND COMORO,DJIBOUTI,ETHOPIA,IRAQ,KENYA,KUWAIT,MADAGASCAR,RWANDA,SAUDI ARABIA,SOMALIA,RRNE,DUBROVNIK,BELGRAD,SPLIT,SUPETAR$r2,BOTSWANA,BULGARIA,CYPRUS,EGYPT,FINLAND,GREECE,ISRAEL,JORDAN,LEBANON,LESOTHO,LIBYA,MALAWI,MOZAMBIQUE,NAMIBIA,SOUTHWEST AFRICA,ROMANIA,RUMANIA,SOUTH AFRICA,SUDAN,SWAZILAND,SYRIA,TRANSKEI,TURKEY,ZAMBIA l%w2,CAIRO,1,LUXEMBOURG,MALTA,MONACO,NETHERLANDS,NIGER,NIGERIA,NORWAY,POLAND,PORTUGAL,SAN MARINO,SAO TOME AND PRINCIPE,SPAIN,SWEDEN,SWITZERLAND,TUNISIA,VATICAN CITY,YUGOSLAVIA,ZAIRE #$m1,AMSTERDAM,COPENHAGEN,GDANSK,ROTTERDAM,LISBON,MADRID,BERN,BRUSSELS,GENEVA,LUCEATORIAL GUINEA,FAEROE ISLANDS,FRANCE,GABON,EAST GERMANY,WEST GERMANY,GIBRALTER,HUNGARY,ITALY,LIBERIA,LIECHTENSTEN"f1,PARIS,CHERBOURG,LE HAVRE,WEST BERLIN,EAST BERLIN,BERLIN,BREMAN,BUDAPEST,ROME,STOCKHOLM,NAPLES,GENOA,LIVORNO,PISA,SCICILY,CATANIA #hIERRA LEONE,TOGO,UPPER VOLTAY!Y0,BELFAST,CASABLANCA,DUBLIN,LIVERPOOL,LONDON,MANCHESTER!^1,ALBANIA,ANDORRA,ANGOLA,AUSTRIA,BELGIUM,BENIN,CAMEROON,CENTRAL AFRICAN REPUBLIC,CHAD,CONGO,CZECHOSLOVAKIA!a1,VIENNA,PRAGUE,TRIESTE,ZURICHq"c1,DENMARK,EQU5)PE20E10I10Z20DB0E2((E1(Z2.5))(DB(20A)))((E1I1).5)E20E10Z10Z20DB0E2((I1Z1)(Z2.5))(DB20A))(Z1.5)I10E10Z10I1E1Z1I10I20Z10Z20DB0I1(I2(Z2.5))((Z1.5)(DB(20A))NE10E20Z10I20DB0E1(E2(Z1.5))((E2I2).5)(DB(20A))E10I20Z10Z20DB0E1((I2Z2)(Z1.5))(Z2.5)(DB(20A))E20I20Z20E2I2Z2E20E10Z10Z20DB0E2((E1(Z2.5))(DB(20A)))(Z1./17:8:"ENTER VU = ";DB$:17:8:" ":17:8:"LINE LOSS (DB) = ";DB$:19:8:"EFFICIENCY (%) = ";EFF$:EFF(EFF$):I12:470:I:570:E10I10Z10E1I1Z1E10E20Z10Z20DB0E1(E2(Z1.5))(Z2.5)(DB(20A;DB$:17:7:" ":G17:7:"ENTER DBM = ";DB$:17:7:" ":dP26:15:14:"P2 = 6":17:7:"ENTER DBR = ";DB$:17:7:" ":15:8:"ENTER P2 = ";P2$:P2(P2$):15:8:" ":17:8:"ENTER DB = ";DB$:17:8:" ":921:958:21:"MORE? ";:A$::A$"Y"A$"N"1550WA$"N"ĺ(4);"RUN HELLO"_"12P1,32:772,192*Z773,136:774,208:775,5Ed776,206:777,1:778,3bn779,240:780,9:781,202x782,208:783,245:784,174785,0:786,3:787,76788,2:789,3:790,96:X(16384):16368,0:X1271510X160ĉX1411550SS 'RETURN' TO STOP TRANSMISSION."5I6I0:NN1DN491550h I6İ1500:MC$(32):II1:140wI0ī1330I15:X(I)((1)2665):I(II52MC$(X(I)):II1:140<A21360F770,173:771,48:772,192:1370 P770,173:77P100:DT:768,P:769,D:770:1240::'DIT'aP100:DT3:768,P:769,D:770:1240:: 'DAH'PAUSE0T2:PAUSE::ELEMENT SPACEPAUSE0T2:PAUSE::CHARACTER SPACE:N1"DC$"N"Ģ21:"PRESS SPACE BAR TO DISPLAY CHARACTERS.":"PREL870:1000:760:760:740::'W5LLJ'7VH37VV1H`V:H37H2WjH1:C$""rtMC$"#"C$" AR ":C$~MC$"$"C$" SK ":C$MC$"%"C$"CQ":C$MC$"&"C$"DE":C$MC$"*"C$"W5LLJ":C$HH(C$)MC$HH1:.0:1230:1230:1250:: '0'a$1220:1230:1220:1230:1220:1250:: 'AR':REM 'END OF MESSAGE'.1220:1220:1220:1230:1220:1230:1250:: 'SK':REM 'END OF TRANSMISSION'8670:810:: 'CQ':REM 'GENERAL CALL'B680:1220:: 'DE':REM'FROM''XX(XX).5XX(XX)1:400496XX(XX).5XX(XX)1_6XYXX100:XY(XY).60XXXX40m6CXXX6006XX100XX$"00"(XX)6XX100XX1000XX$"0"(XX)6XX1000XX$(XX)6GMT$XX$:A5: X(AB)(LAB)K5D SR(LO15)(C((X(XX1))1.5708)15):SUNRISE^5I SS0SS24SSs5N XXSR:4000:8095X SS(LO15)(C((X(XX1))1.5708)15): SUNSET5b SS0SS24SS5l XXSS:4000:8095 6456XX((XX)100)(60(XX(XX))):TITUDE: ";LA:DECIMAL DEGREES (+ IF NORTH, -IF SOUTH)q4 B3.14159180:C1803.14159:CONVERT RADIANS TO DEGREES4 "MONTH: ";MO:1 THRU 124 "DAY: ";DA:1 THRU 314& A23.5(B(100.988(DA30.3(MO1))))40 "DECLINATION OF SUN = ";A;" HOURS"A$((N)128):3 _3 :"CALCULATE FOR NEW ORLEANS? (Y/N) ";:A$::A$"Y"A$"N"30503 A$"Y"LO90:LA30:3080:N.O. LONG=90 DEGS. 04 MINS. 10 SECS., LAT=29 DEGS. 56 MINS 53 SECS.3 "ENTER LONGITUDE: ";LO: DECIMAL DEGREES54 "ENTER LATM$"AM"!2\CTGMT2400TM$"M"'2fE2T2400TT2400:TM$"AM"Z2T1200TM$"AM"2T1200T2400TT1200:TM$"PM"2T2400T0T1200:TM$"M"2T1200TM$"N"2TH(T100):TMT(TH100)23 64879:A$"":N512767:(N)141A$$;TD$;" IN ";CT$:CI$1D$"RUSSIA"D$"AUSTRALIA"D$"CANADA"D$"U.S."D$"UNITED STATES"D$"CHINA"D$"MEXICO"D$"SOVIET UNION"D$"U.S.A."D$"U.S.S.R."CI$"(CHECK INDIVIDUAL CITIES)"1*6401>TD$""1HCTGMT2400TD$" THE NEXT DAY"2RAKISTAN P 220,PANAMA N 110,PARAGUAY P 220,PERU N 220,PHILIPPINES N 115,POLAND S 220,PORTUGAL P 110-220,PUERTO RICO N 120\ RHODESIA P 220,RUMANIA X 220,RWANDA X 220,RUSSIA S 220f SAMOA N 120,SAUDI ARABIA S 120-230,SENEGAL S 125,SIERRA LEONE P 230,27-220,MONACO S 125,MONGOLIA X 999,MOROCCO S 115,MOZAMBIQUE P 220H NETHERLANDS P 220,NETHERLANDS ANTILLES N 120-220,NEW CALEDONIA S 220,NEW ZEALAND P 230,NICARAGUA N 117,NIGER X 220,NIGERIA P 220,NORTH KOREA X 999,NORWAY P 230M OMAN P 220xR P KENYA P 240,KOREA R 999,KUWAIT P 240n9 LEBANON S 110-190,LIBERIA P 120,LIBYA S 120,LUXEMBOURG S 120-208A> MALAGASY REPUBLIC X 127-220,MALAWI X 220,MALAYSIA P 240,MALI X 125,MALTA X 240,MARTINIQUE S 125,MAURETANIA X 220,MAURITIUS S 220,MEXICO N 1DBRAP = ";DB:19:17:" ":x' 13:31:P1:17:31:N:19:31:DB:22:" REPEAT ENTRY AND CALCULATION? (Y/N) ";D$:'*D$"N"ī10'4D$"Y"ī220DE2:15:12:I1:15:31:I2:17:12:Z1:17:31:Z2E&19:22:DB:T&D$"N"ī5e&D$"Y"ī190& 13:"ENTER (ACOUSTICAL POWER) P1 = ";P1:13:" ":P210E18:15:21:"P2(RAP) = ";P2'17:21:"ENTER N = ";N:17:21:" ":19:17:"ENTER 20:" ":)%E11:13:7:"E1 = 1":R%13:"ENTER E1 = ";E1:13:" ":%19:10:"ENTER DBV = ";DB:19:10:" ":%19:10:"ENTER DBU = ";DB:19:10:" ":%19:9:"ENTER DBVG = ";DB:19:9:" ":3&13:12:E1:13:31::"INSUFFICIENT INFORMATION! CHECK ENTRIES!"::8$:g$13:20:"ENTER E2 = ";E2:13:20:" "$15:"ENTER I1 = ";I1:15:" ":15:20:"ENTER I2 = ";I2:15:20:" " %17:"ENTER Z1 = ";Z1:17:" ":17:20:"ENTER Z2 = ";Z2:17:'#,DB0EFF0X(100EFF)A:DB10XC#.C$"K"DB0EFF0İ600I#0v#:E10E20I10I20Z10Z20DB0İ600|#<#?(P10P20)N0DB0İ600#B#DP10P20N0DB0İ600#I#N21::"INCORRECT ENTRIES! CHECK ENTRIES!"::1$X21:((E1I1).5))(E1(E2I2).5))e""DB0I10I20Z10Z20DB20A((I2(Z2.5))(I1(Z1.5)))"$DB0E10E20I10I20Z10Z20550"%554"&DB20A((E2((E1I1).5))(E1(E2I2).5))İ590"*EFF0DB0XDB10:EFF10010X0Z10Z20DB20A(((I2Z2)(Z1.5))(E1(Z2.5)))!DB0E10E20I10Z20DB20A((E2((E1I1).5))(E1(Z2.5)))!DB0E10E20Z10I20DB20A((E2(Z1.5))(E1(E2I2).5)))" DB0E10E20I10I20DB20A((E220A))))2Y Z20Z10I10E20DB0Z2((E2(Z1.5))((I1Z1)(DB(20A))))2 DB0E10E20Z10Z20DB20A((E2(Z1.5))(E1(Z2.5))) DB0I10E20Z10Z20DB20A((E2(Z1.5))((I1Z1)(Z2.5)))8!DB0E10I2Z2((I1((E1I1)).5)(DB(20A)))I2)2u Z20Z10E10I20DB0Z2(((E1Z1)(Z1.5)(DB(20A)))I2)2 Z20E10Z10E20DB0Z2((E2(Z1.5))(E1(DB(20A))))2 Z20E10I10E20DB0Z2((E2((E1I1).5))(E1(DB(DB0Z1((E1(Z2.5)(DB(20A)))(I2Z2))2yZ10E10E20I20DB0Z1((E1((E2I2).5)(DB(20A)))E2)2Z20E20I20Z2E2I2 Z20I10I20Z10DB0Z2((I1(Z1.5)(DB(20A)))I2)2* Z20E10I10I20DB0)2PZ10I10I20E20DB0Z1((I2((E2I2).5))(I1(DB(20A))))2Z10I10E20Z20DB0Z1(((E2Z2)(Z2.5))(I1(DB(20A))))2Z10E10E20Z20DB0Z1((E1(Z2.5)(DB(20A)))E2)2.Z10E10I20Z20)(Z2.5)PI20I10Z10Z20DB0I2(I1(Z1.5)(DB(20A)))(Z2.5)I20E10Z10Z20DB0I2((E1Z1)(Z1.5)(DB(20A)))(Z2.5)Z10E10I10Z1E1I1Z10I10I20Z20DB0Z1((I2(Z2.5))(I1(DB(20A))))))QI10I20Z10E20DB0I1(I2((E2I2).5))((Z1.5)(DB(20A)))I10E20Z10Z20DB0I1((E2Z2)Z2.5))((Z1.5)(DB(20A)))I20E20Z20I2E2Z2 I20I10E10Z20DB0I2(I1((E1I1).5)(DB(20A))ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ:4010'Y:(C$,I):X22X3:Y21:14010PA$CL$" LIST"(C$,I,1)" "(C$,I2,1)" "4070qA$P$" LIST"((C$,I1,3)" P "(C$,I1,3)" Y ")4070A$M$" LIST"(C$,I1,3)" M "4070A$S$" LIST"(C$,I1,3)" S "4070A$N$" LIST"(C$,I1,3)" N "4070IXX1 WEST GERMANY P 220: YEMEN X 220,YUGOSLAVIA P 220Y ZAIRE S 999,ZAMBIA X 230h END LIST A$"WORLD TV CONVERSION STANDARDS" :1:6:A$:X140:"-";:X::3 X3:3:LISTSC$:XX1:C$"END LIST"35I1(C$)3NIA P 230,THAILAND P 220,TOGOLESE REPUBLIC X 127-220,TRINIDAD AND TOBAGO N 117,TUNISIA S 117-220,TURKEY P 110-220 UGANDA P 220,UPPER VOLTA X 220,URUGUAY P 220,U.S.A. N 110,U.S.S.R. S 220 VENEZUELA N 110-220,VIETNAM U 120,VIRGIN ISLANDS N 115 SINGAPORE P 220,SOMALIA X 220,SOUTH AFRICA P 220,SOUTH KOREA N 100,SPAIN P 127-220,SPANISH SAHARA X 999,ST. KITTS N 220,SUDAN P 220,SURINAM N 115-127p SWAZILAND P 999,SWEDEN P 220,SWITZERLAND P 220,SYRIA S 115-220qz TAHITI S 999,TAIWAN N 100,TANZA   eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                 LOSS @ 60 DEGREES FARENHEIT6 xXH17.1375:X0X1Tf }START AT 60 DEGREES FARENHEIT AND SUBTRACT X190(X12.3):X1(((X110)5)10) X10X110ĺ" ";X1;" ";:150 X19ĺX1;" ";:150 X1;" "; V:T ?T9ĺT;" ";:70* AT0T9ĺT;" ";8 FV5455X _CONVERT MPH TO METERS/SEC p dVM(V1609.35)3600 iAIR-SKIN DIFFERENCE IN DEGREES CELSIUS nTC33((T32)(59)) pHEAT LOSS FORMULA sH(10.445(10(VM))VM)TCS v384.372=HEATA$"Y"A$"N"30& (:A$"Y"S2006 -A$"N"S0l 3BRIGHT SUN REDUCES HEAT LOSS BY ABOUT 200KG CAL. 5A$"WIND VELOCITY (MPH)":(40(A$))2:A$ 77 :V5455:V;" ";:V ;;:1:"T(F)" <T60255:2:T0T10ĺ" ";T;" ";:70 :D WIND CHILL, MICROCOMPUTING,NOV 1983,TEMPERATURE FILE FORMULA H=(10.45+10V^1/2-V)(33-T)=KG-CAL/M^2/HR. HEAT LOSS "WIND CHILL TEMPERATURE ":BRIGHT SUN REDUCES HEAT LOSS BY ABOUT 200KG CAL. "BRIGHT SUNLIGHT (Y/N): ";A$:   RUN HELLO"rA$"Y"8F25:"DEGREES C=";C+ @19:"DEGREES R=";RG J19:25:"DEGREES K=";K T21:"* RANKINE IS FAHRENHEIT ABSOLUTE SCALE":22:" * KELVIN IS CELSIUS ABSOLUTE SCALE" ^23:868:"ANOTHER CONVERSION? (Y/N) ";:A$::A$"Y"A$"N"350 hA$"N"ĺ(4);"! C59(R491.67):C$STE$(C):: RF459.67:R$(R):Y R(C95)491.67:R$(R):~ R95(K273.16)491.6:R$(R): KC273.16:K$(K): K59(F32)273.16:K$(K): K59(R491.67)273.16:K$(K): ,17:"DEGREES F=";F 617:R$""K$""İ180) _K$""C$""İ190@ `K$""F$""İ200W aK$""R$""İ210l bF$""C$""ī82u c300 dF(C95)32:F$(F): nFR459.67:F$(F): xF95(K273.16)32:F$(F): C59(F32):C$(C): CK273.16:C$(C):---------". PF(F$):C(C$):R(R$):K(K$)E RF$""C$""İ100\ SF$""R$""İ110s TF$""K$""İ120 UC$""F$""İ130 XC$""K$""İ140 YC$""R$""İ150 ZF$""C$""ī82 \R$""F$""İ160 ]R$""C$""İ170 ^-----------------------------"N (8:"ENTER TEMP. IN DEGREES FAHRENHEIT ";F$| 210:"ENTER TEMP. IN DEGREES CELSIUS ";C$ <12:"ENTER TEMP. IN DEGREES RANKINE ";R$ F14:"ENTER TEMP. IN DEGREES KELVIN ";K$ K15:"------------------------------6::4:"ENTER TEMPERATURE VALUES AS INDICATED." 936:1:10:"TEMPERATURE CONVERSION":2:"---------------------------------------"3:"ENTER ONLY ONE KNOWN TEMPERATURE VALUE."5:6:"ENTER '?' FOR UNKNOWN VALUES." #6:"----------     z#??    Ϡ ̠!!֠Π"ҠЮԠĠ̠ à* Үʰ Š٠ѠӠ-ŠӠ0Ӡ Ӡ ŠŠĮϠͧӠנ ŠŠҭĠӠ͠7 5"DISK 273B FOR APPLE //c ... READY!":: VD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    40$A$"N"ĉ::(4);"RUN HELLO"6A$"Y"ė:60LLEL":11:"CIRCUITS REFER TO PROGRAMS ENTITLED:":12:"'SERIES RESISTANCE' AND 'PARALLEL RESIS":13:"TANCE'"A$"Y"ė:60229D0DP229E21:11:E:21:30:I:22:11:R:22:30:PP0E0I0R0Ģ24::"INSUFFICIENT INFORMATION! CHECK ENTRIES!":24023:13::"INCORRECT ENTRY!":24:5:"ANOTHER CALCULATION? (Y/N) ";:A$::A$"N"A$"Y"ī2R(E2)P0I0P0R0I(PR).5:E(PR).5MR0E0I0REI:PEInR0E0P0R(E2)P:IPEP0E0I0PEI:REIP0E0R0P(E2)R:IERP0I0R0P(I2)R:EIRA0AE229B0BI229C0CR;P$:P(P$):DP:22:20:" "KU(E0I0R0P0)(IREEIP)229^Z100:220:240dE0I0R0EIR:P(I2)RnE0I0P0EPI:RP(I2)xE0P0R0E(PR).5:I(PR).5I0E0R0IER:P(E2)R I0E0P0IPE::"NOTE";::": ENTER ? FOR UNKNOWN VALUES."UF24:14:"ENTER E ";E$:E(E$):AEK936:21:" E = ";E:21:20:"ENTER I ";I$:I(I$):BIN21:20:" I = ";I:22:"ENTER R ";R$:R(R$):CR:22:" R =" P22:20:"ENTER P = ",V10H6,V4H38,V4:J 8H,VH,V10:H3,VH3,V:H3,V10H3,V10:n 9H,V3H5,V3:H,V7H5,V7: :H,V5H5,V5H5,VH,VH,V10: ;H5,VH,V10:-<21:8:"OHM'S LAW - DIRECT CURRENT":22:7:"(E=VOLTS, I=AMPERES, R=OHMS)":23:6::H208:56:H215:52:H20:V60:51:60^ 2H,V5H5,V5H5,VH,VH,V10:H2,V5H5,V10: 3H,VH6,V:H3,V3H3,V3:VV50:H,VH6,V: 4H3,VH,VH,V3H3,V3H3,V6H,V6: 6H5,VH,VH,V10H5,V10:H,V5H5,V5: 7H1,V5H26:H80:57:H90:58:H100:59:H110:54:H165:54:H175:57:H185:58:H195:59:H208:56 0H117:V110:58:H127:57:H140:56:H147:52:H157:50:H73:V130:56:H80:57:H90:55:H100:58:H110:59:H120:50& 1H165:50:H175:57:H185:58:H195:590 -H140:V1:50:H17:V80:54:H270:56:H122:V45:54:H132:57:H145:56:H153:50:H122:V80:58:H132:57:H142:54:H155:56 .H73:V60:56:H80:57:H90:54:H100:59:H110:50:H165:50:H175:57:H185:54:H195:59:H208:56Y /H73:V95:57,20120,15125,25130,15135,25140,15145,25150,15155,25160,15165,25168,20245,20245,70:245,70260,70260,100230,100230,70245,70 (245,70260,70260,100230,100230,70245,70:235,95255,75:250,76255,74255,80:245,100245,15040,15040,118 ::w 12:8:"OHM'S LAW (DIRECT CURRENT)"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH"PAUSE13000:936::7:30,6050,60:35,7045,70:30,8050,80:35,9045,90:30,10050,100:35,11045,110 40,6040,2011     240,155:H70:V122:94:95:H130:94:96:H190:94:97:H250:94:98:H0:94:100:2000mN1:2080:RTR(X)XX1:RT1((1RT)(1R(X))):X10ī10203015NX1:3020:A$"N"İ2070:440.A$"Y"İ470:3508:3000:RPR(X):YX1:R(X)05:868caH,80H,97H5,100H5,105H5,110H5,115H5,120H5,125H5,130H5,135H,138H,155:dH0:V98:84:H59:V79:84:H119:84:H179:84:H239:84:H0:V134:84:H59:V154:84:H119:84:H179:84:H239:84We1,1001,80240,80:1,1351,155T:4040:PTYY+>IR0SE2ES0IRESRZL@IR0SE2IT0IRITRTRZtBIR0SE2PT0IR((PTRT).5)RZDIR0SE2PR0IRPR(PRRZ).5FIR0SE1IRITHYYIR:4040:IRYYMR:H60:V80:865:H120:865:H180:865:H240:860IT0PTESIT5PT0IT0RT0PT(IT2)RTX PT0ES0RT0PT(ES2)RT*PT0SE1ES0PR0ER0PTESPRER4PT0SE1ES0ER0RZ0PTESERRZ6PT0SE2IR0PT((IRRZ)2)RT7PTOSE2PR0PTPRRZ 9YYPITPTES)IT0SE2IR0ITIRRZRTMIT0SE1PR0ER0ITPRERqIT0SE1ER0RZ0ITERRZIT0SE1PT0RZ0ER0RT0ITPTRZERRTIT0SE1PT0ER0PR0RT0ITPTERPRRTYYIT:4040:ITYY PT0EST2)RZ)PR0SE2ES0PR(ES2)RZPPR0SE2IT0PR((ITRT)2)RZrPR0SE2IR0PR(IR2)RZPR0SE2PT0PRPTRZYYPR:4040:PRYYIT0ES0RT0ITESRTIT0PT0RT0IT(PTRT).5IT0PT0ES00ERESRZRT#EROSE2ERESKER0PR0RT0ES0ERPRRTESaYYER:4040:ERYYPR0SE1ER0IT0PRERITPR0SE1ER0PT0ES0PRERPTESPR0SE1ER0ES0RT0PRERESRTPR0SE1IT0RZ0PR(IESERRTRZ']ES0SE2ER0ESER_bES0SE1ER0PT0RZ0IT0ESERPTRZIT2ugYYES:4040:ESYYlER0SE1IT0RZ0ERITRZvER0PR0RZ0ER(PRRZ).5ER0SE1PR0IT0ERPRITER0SE1ES0RZ0RT10H10,V5H15,V5H15,VH10,VH10,V2K&ES0IT0RT0ESITRTo0ES0SE2IR0RZ0ESIRRZ:ES0PT0IT0ESPTITDES0PT0RT0ES(PTRT).5NES0SE1PR0RT0ER0ESPRRTER XES0SE1ER0RT0RZ0RTRR:3010:240p ^3050::470:21:8:"ENTER ? FOR UNKNOWN VALUES.":23:3070::550:550:4015:A$"Y"350 A$"N"İ2070 A$"N"ĉ::(4);"RUN HELLO" 0:94:100,7:H5,V10H,V10H,VH5,V:H,V5H5,V5:H15,V8H15,V10H10,V020:A$"N"İ2070:440, A$"Y"İ470:3508 ,:3000\ @RSR(X):XX1:RRRRRS:X0320k JRTRR335t L340 O22::"INCORRECT ENTRY!"::"RT MUST BE";:RZ0ĺ"LESS THAN LOWEST PARALLEL R!":2070 R"GREATER THAN R1+R2+R3...+RN!":2070 TRZ0,V5H10,VH15,V:Q aH10,V10H15,V10H15,VH10,V:H10,V5H15,V5:z bH10,VH10,V10H15,VH15,V10: dH10,V10H16,V10H13,V10H13,V: 2000:200 N1 2080 RSR(X):XX1:RTRTRS:X0220 3015 XN:3,150:0,800,150100,150:H169:V149:84:H99:84 \H38:V70:94:95:H98:94:96:H158:94:97:H218:94:98:H128:V155:94:100:150 ^H,VH,V10H5,V10H5,V5H,V5:H2,V5H5,V: _H10,V10H10,V: `H10,V10H15,V10H15,V5H1"SELECT (1-2) ";:SE:SE1SE2407 2::7:SE180E ASE2850r PH0:85:H60:85:H120:85:H180:85:90 TH,VH2,VH2,V2H,V2H,V: UH,80H29,80H32,75H37,85H42,75H47,85H52,75H57,85H60,80:1 Z240,80278,80278,150170[ 16384:::12:15:"RESISTANCE"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE:10:14:"1) SERIES"::8:"(RT=R1+R2+R3.....+RN)":15:14:"2) PARALLEL"::4:"(RT=1/(1/R1+1/R2+1/R3...+1/RN)"# (23::          1MB15:10,2212:10,2213:15:10,2216:10,2217:15:10,2220:10,2221iL15:10,2228:10,2229oV{`:1050jC115:C215:C315:C415t21:"ENTER RESISTOR VALUE IN OHMS ";OHM$~(OHM$)11980(OHM$)21350(OHM$)2135X:"OR ";R1$;R2$;"0M OHMS ";R4$:G22:X:R1$;R2$;"00M OHMS ";R4$::15:1,816:2:10,228:8,3210:8,3222:10,2232:15:32,3916$2.8,3211:8,3212:8,3213:8,3214:8,3215:8,3216:8,3217:8,321888,3219:8,3220:8,322R3$;" OHMS ";R4$:22:X:"OR ";R1$;R2$;"0K OHMS ";R4$:22:5:R1$;",";R2$;R3$;" OHMS ";R4$:22:X:"OR ";R1$;".";R2$;"M OHMS ";R4$:22:5:R1$;R2$;R3$;" OHMS ";R4$:22:X:"OR ";R1$;R2$;"M OHMS ";R4$:!22:5:R1$;R2$;R3$;" OHMS ";R4$:22: ";R4$:,22:10:R1$;R2$;" OHMS ";R4$:Q22:10:R1$;R2$;"0 OHMS ";R4$:22:6:R1$;R2$;R3$;" OHMS ";R4$:22:X:"OR ";R1$;".";R2$;"K OHMS ";R4$:22:6:R1$;R2$;R3$;" OHMS ";R4$:22:X:"OR ";R1$;R2$;"K OHMS ";R4$:722:6:R1$;R2$;"C13RB$"GREEN"C5-\B$"BLUE"C6BfB$"VIOLET"C3VpB$"GRAY"C10kzB$"WHITE"C15B$"SILVER"C15B$"GOLD"C1322:10:"0.0";R2$;" OHMS ";R4$:22:10:"0.";R2$;" OHMS ";R4$:22:10:R2$;".0 OHMS$"BLUE"R$"6%"'B$"GOLD"R$"5%"AB$"SILVER"R$"10%"YB$"GRAY"R$"30%"rB$"BLACK"R$"20%"B$"WHITE"R$"10%" B$""C2 B$"BLACK"C0*B$"BROWN"C84B$"RED"C11>B$"ORANGE"C9HB$"YELLOW,000"%lB$"VIOLET"R$"0,000,000"DvB$"GRAY"R$"00,000,000"fB$"WHITE"R$",000,000,000"l}B$""İ2000B$"BROWN"R$"1%"B$"RED"R$"2%"B$"ORANGE"R$"3%"B$"VIOLET"R$"12.5%"B$"YELLOW"R$"4%"B"8"B$"WHITE"R$"9"5B$"SILVER"R$"10%"LB$"GOLD"R$"5%"Rh&B$"BLACK"R$""0B$"BROWN"R$"0":B$"RED"R$"00"DB$"ORANGE"R$",000"NB$"YELLOW"R$"0,000"XB$"GREEN"R$"00,000"bB$"BLUE"R$",000"Y"N$"N"390!N$"N"13406N$"Y"ĉ::130MB$"BLACK"R$"0"dB$"BROWN"R$"1"yB$"RED"R$"2"B$"ORANGE"R$"3"B$"YELLOW"R$"4"B$"GREEN"R$"5"B$"BLUE"R$"6"B$"VIOLET"R$"7"B$"GRAY"R$3$"SILVER"İ930:R1$"0"ī3901 h(R3$)0İ960D r(R3$)1İ970W v(R3$)2İ980j x(R3$)4İ990~ z(R3$)5İ1000 |(R3$)6İ1010 ~(R3$)8İ1020 (R3$)9İ1030 (R3$)10İ104024:8:"ANOTHER RESISTOR? (Y/N) ";:N$:N$660:790 ,R4$R$:C4C4 6C4:10,2228:10,2229 @21:((39(B1$)(B2$)(B3$)(B4$)3)2):B1$;"-";B2$;"-";B3$;"-";B4$ JX((R1$)(R2$)(R3$)(R4$)13) TR1$"0"B3$"GOLD"B3$"SILVER"İ950 YR1$"0"B3$"GOLD"İ940 ^R1$"0"B$:C1C" C1:10,2212:10,2213= 22:25:"BAND #2 ";B$R B2$B$:420:790b R2$R$:C2C~ C2:10,2216:10,2217 23:"BAND #3 ";B$ B3$B$:550:790 R3$R$:C3C C3:10,2220:10,2221 23:25:"BAND #4 ";B$: "B4$B$:VERT: ". d8:"1) COLOR BANDS TO RESISTANCE"U n8:"2) RESISTANCE TO COLOR BANDS" x:24:"SELECT (1 OR 2) ";:A$::A$"1"A$"2"120 A$"2"ī1120 1050 :21:14:"BAND COLORS":22:"BAND #1 ";B$ B1$B$:420:790 R1$RK BODY COLOR ARE ":"COMPOSITION, NON-INSULATED."x F:"RESISTORS WITH COLORED BODIES ARE ":"COMPOSITION, INSULATED." P:"WIREWOUND RESISTORS EXHIBIT A DOUBLE":"WIDTH 1ST DIGIT COLOR BAND." Z:"---------------------------------------":::"CON :::12:12:"RESISTOR COLORCODE"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE:R$(15),OHM$(12)210:"RESISTOR COLOR CODE"::"---------------------------------------"1 <:"RESISTORS WITH BLAC       H10E;" OHMS":L h"ANOTHER RESISTOR? (Y/N) ";:A$::A$"Y"A$"N"360\ |A$"Y"180| A$"N"ė:(4);"RUN HELLO" 1.0,1.1,1.2,1.3,1.5,1.6,1.8,2.0,2.2,2.4,2.7,3.0,3.3,3.6,3.9,4.3,4.7,5.1,5.6,6.2,6.8,7.5,8.2,9.1,10.0RR)))1:E0E02 RR10E:R1.1RS110E:3208 O X125:D:RX(X)D RDRLRX(X1):RHD:RS(10E)RX(R(RLRH)(X1)):320 ,X @"STANDARD RESISTOR = ";RS;" OHMS": JRHRRLRRH0ĺ"R(LOW) = ";RL10E;" OHMS"::"R(HIGH) = ";RVALUE OF THE":"READILY AVAILABLE STANDARD 5% TOLERANCE":"RESISTOR CLOSEST TO THE RESISTANCE DE-":"SIRED.": :" ":: :13:958 RS(25),RL(25),RH(25),RX(25) :"ENTER R IN OHMS: ";R: E((( :::12:9:"STANDARD RESISTOR VALUES"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE:d9:"STANDARD RESISTOR VALUES":::" "::n " THIS PROGRAM PROVIDES THE    "1) T (TAPER)";:22:"8) H (BAL. T)""2) BRIDGED T";:22:"9) BRIDGED H":"3) PI";:21:"10) O (BAL. PI)":"4) L";:21:"11) U (BAL. L)":"5) LADDER";:21:"12) BAL. LADDER"d"6) BRIDGE";:21:"13) BAL. BRIDGE":"7) SPLITTER/";:21:"14) LATTICE"::V54:1300:V109:1300BX7H65:V61:1500:V116:1500:5815VH20:V76:1500X2X5X7X9X12X14Z1:5820400H250:V77:1500Z15900500X4X1111800 11900p8:"NON-INDUCTIVE ATTENUATORS"$7:X13H133:1100G$X14ē139,9782,9782,110:H81:V109:1300:5200m139,97139,110:H138:V109:1300X7ē65,110215,110PX10X11X13X14ē139,110215,110X125700X55600|H65:V54:1300H65:V109:1300DH213X6X10X11X13X14ē139,55215,55;H138:V54:1300IX75500139,55139,66144,68134,73144,78134,83144,88134,93139,96139,97:H148:V77:1600:X2X9İ900:4820X1X3X8X10İ600:4820500:X5İ1000X8X9X1115,110:65,132180,132180,110:H65:V76:1300:V131:1300:4500J1000]0X5X124600n65,5575,5576,5587,5590,6095,50100,60105,50110,60115,50118,55139,55:H95:V37:1600:X3X10İ500:4630 400X7İ1000&\X3X4FX8X9X12İ1000&X744005X124300Hh65,11075,11076,11087,11090,11595,105100,115105,105110,115115,105118,110137,110:H95:V118:1600:X10İ500:4320400:X144400@X7ē139,55139,110:65,77180,77180,110260,110163,115168,105173,115178,105183,115188,105191,110215,110:H168:V118:1600:X8İ500:1000:3800~400:X9X12İ1000118,55160,55163,60168,50173,60178,50183,60188,50191,55215,55:H167:V37:1600:X1X8İ500:3910<4004,135204,110:H74:V109:1300:H203:1300KR H132:V143:1600:800:1000 75,5575,30122,30125,35130,25135,35140,25145,35150,25153,30204,30204,55:H74:V54:1300:H203:1300 H132:V12:1600:800:X9İ1000X73800nt137,1101139,550 H95:V7:1600:700:X12İ1000:3100l 20,11066,11066,120:H60:V122:1200:H19:V109:1300 142,40136,40139,44142,40 X53800 X123700*H 75,11075,135122,135125,140130,130135,140140,130145,140150,130153,13520:H138:V109:1300:4200< ` 76,10276,110:H75:V109:1300O X3X104000 ( 76,5576,45:204,55204,45:H75:V45:1300:H138:1300:H203:1300:V54:1300 H19:V54:1300:20,5520,2587,2590,3095,20100,30105,20110,30115,20118,25139,2500:V109:1300:H213:V77:1600:500:X12İ950> HX14İ500 H75:V54:1300:76,5576,6681,6871,7381,7871,8381,8871,9376,9676,102:H85:V77:1600:X3X10İ400:2300 X5X12İ600:X12H70:1100 X14İ500:76,102139,102139,110140139,140139,1103 H95:V148:1600:700:1000X l142,125136,125139,121142,125 76,11076,120:204,110204,120:H75:V118:1300:H138:1300:H203:1300/ 4204,55204,66209,68199,73209,78199,83209,88199,93204,96204,110:H203:V54:1312,V:H3,V3H9,V3:H6,V5:D H,VH2,VH2,V2H,V2H,V:e H,VH5,VH,V10H5,V10: @H,VH,V10:H,VH5,VH5,V5H,V5:H2,V5H5,V10: H19:V109:1300:20,11020,14087,14090,14595,135100,145105,135110,145115,135118,:H15,VH15,V10:O H15,VH10,VH10,V5H15,V5H15,V10H10,V10: H15,VH10,VH10,V10H15,V10H15,V5H10,V5: H18,VH23,V10 H23,VH18,V10:HH17:500: LV81:1300:H,82H13,82H13,92:HH19:V92! H,VHd16384::::60004YY((YY100).5)100:RYY((YY104).5)104:k:H11,VH11,V10:H10,VH15,VH15,V4H10,V4H10,V10H15,V10:XH10,VH15,VH15,V10H10,V10:H10,V5H15,V5: H10,VH10,V5H15,V5         673,114`r82,7787,7787,7282,7282,82:85,7787,82:92,7297,7297,8292,82:92,7797,77:129,55:131,55134,60:144,50144,60:178,77183,77183,72178,72178,82:180,77183,82:188,72193,72193,77188,77188,82193,82:h72,4072,5877,6067,6577,7067,7577,8067,8577,9067,9572,9772,115:71,4171,3973,3973,41:71,11471,11673,11119,35124,45129,35134,45139,35144,45149,35154,45156,40246,40T203,40203,58208,60198,65208,70198,75208,80198,85208,90198,95203,97203,115:202,41202,39204,39204,41:202,114202,116204,116204,114^129,60129,50134,50134,5522:17:"R1=";RD:23:7:"R3=";RF:23:26:"R2=";RE:RA(((RDRE)(RDRERF))100)100:RB(((RDRF)(RDRERF))100)100:RC(((RERF)(RDRERF))100)10021:"(R IN OHMS)":22:7:"R1=";RA:22:26:"R2=";RB:23:17:"R3=";RCFJ29,40117,40,77154,77154,72149,72149,82:151,77154,82:159,72164,72164,82159,82:159,77164,77:RD((((RARB)(RARC)(RBRC))RC)100)100:RE((((RARB)(RARC)(RBRC))RB)100)100:RF((((RARB)(RARC)(RBRC))RA)100)100521:"(R IN OHMS)":15:138,41138,39140,39140,41:138,114138,116140,116140,114:X30,115245,115:65,5570,5570,5065,5065,60:67,5570,60:80,5080,60200,55205,55205,50200,50200,60:202,55205,60:210,50215,50215,55210,55210,60215,60\1495,75220,78:29,4052,4055,3560,4565,3570,4575,3580,4585,3590,4592,40:92,40186,40188,35193,45198,35203,45208,35213,45218,35223,45225,40246,40B139,40139,58144,60134,65144,70134,75144,80134,85144,90134,95139,97139,17,39247,41245,41:30,11428,11428,11630,116:245,114247,114247,116245,116 25,7030,7025,8030,80:35,7035,80:235,70240,70235,80240,80:245,70250,70250,75245,75245,80250,80 40,7555,75:50,7255,7550,78:215,75230,75:220,7221"(R IN OHMS)":21:18:"R1=";RD:23:26:"R2=";RE:23:"ENTER R3 ";RF: x21:"(R IN OHMS)":21:18:"R1=";RD:23:26:"R2=";RE:23:7:"R3=";RF:PAUSE11000:PAUSE :260:140:150:180:200:210:5 :7P 30,3928,3928,4130,41:245,3924:"(R IN OHMS)":22:7:"R1=";RA:22:26:"R2=";RB:23:17:"R3=";RC:PAUSE11000:PAUSE Z:240:140:150:330:360:200:5 _ d21:"(R IN OHMS)":22:11:"ENTER R1 ";RD::21:"(R IN OHMS)":22:17:"R1=";RDG n23:20:"ENTER R2 ";RE::21:210:609 2A$"B"İ140:150:330:360:200:100:260: <21:"(R IN OHMS)":22:"ENTER R1 ";RA::21:"(R IN OHMS)":22:7:"R1=";RA:22:20:"ENTER R2 ";RB: F21:"(R IN OHMS)":22:7:"R1=";RA:22:26:"R2=";RB:23:11:"ENTER R3 ";RC:Y P213:"T-PI OR Y-DELTA":2:13:"TRANSFORMATIONS":4:"***************************************" 6:"INITIAL CONFIGURATION:":8:13:"A) T OR Y":9:13:"B) PI OR DELTA" 11:"SELECT (A/B): ";:A$::A$"A"A$"B"30 (A$"A"İ140:150:180:200:x16384:10O"ANOTHER T/PI TRANSFORMATION? ";:A$::A$"Y"A$"N"5qA$"N"ĉ::(4);"RUN HELLO"A$"Y"12 ::12:15:"TRANSFORM"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE\ ::1         5,70:260,80260,70265,80265,7021:"ENTER NUMBER OF PARALLEL CAPACITORS ";X:C(X):N1X::21:" NUMBER OF PARALLEL CAPACITORS = ";X23:"ENTER C":23:8:N:23:10:" = ";C(N):NCTC(X)XX1:CTCTC(X)X10ī67013,70:18,7022,70:20,7020,80JX75,8070,8070,7075,70:80,7080,80b135,80130,80130,70135,70:140,70145,70145,75140,75140,80145,80l195,80190,80190,70195,70:200,70205,70205,80200,80:200,75205,75!v255,80250,80250,702570:115,80125,80:120,80120,130b0180,20180,70:175,70185,70:175,80185,80:180,80180,130:240,20240,70:235,70245,70:235,80245,80:240,80240,130D15,2315,60:15,9015,127:12,2815,2318,28:12,12215,12718,122 N13,808,808,709279,190,1292,1292,1310,1310,129:0,130200,130:205,130210,130:215,130220,130:225,130230,130:235,130279,130:277,129279,129279,131277,131277,12960,2060,70:55,7065,70:55,8065,80:60,8060,130!&120,20120,70:115,70125,WJTE0C0W0Q0Ģ21::"INSUFFICIENT INFORMATION! CHECK ENTRIES!":Q^3acB$"N"ī10rhB$"Y"ī200xr:7:0,192,192,210,210,19:0,20200,20:205,20210,20:215,20220,20:225,20230,20:235,20279,20:279,19279,21277,21277,1EQ0E0W0Q2(WE)8C0E0Q0CQEYC0E0W0C2(W(E2))x"W0C0E0WC(E2)2,W0Q0E0WQE26E0C0Q0EQC@E0C0W0E(2WC)2EJ10:36:C:12:36:E:14:36:Q:16:36:ADS... C = ";C:10:" "12:"ENTER VOLTAGE IN VOLTS........ E = ";E:12:" ":14:"ENTER CHARGE IN COULOMBS...... Q = ";Q:14:" "16:"ENTER ENERGY IN JOULES........ W = ";W:16:" "X12:250:X:330Q0E0C0QCCITOR CHARGE AND ENERGY STORED":3:"----------------------------------------":5:4:"Q=C*E":5:27:"W=(C/2)*(E^2)":7:"----------------------------------------"8::"NOTE"::8:5:":ENTER 0 FOR ALL UNKNOWN VALUES.":10:"ENTER CAPACITANCE IN FAR1)9N0C0D0K0A0N1((CD)(0.2235KA))t10:35:N:12:35:K:15:35:D:18:35:A:20:35:CC0K0A0D0N0Ģ21::"INSUFFICIENT INFORMATION! CHECK ENTRIES!":3B$"N"ī10B$"Y"ī75::3:"CAPAK0A0D0N0C.2235((KA)D)(N1)b nC0K0A0D0N0C.2235((KA)D)(N1) xK0C0D0N0D0K(CD)(0.2235A(N1)) A0C0D0K0N0A(CD)(0.2235K(N1))D0K0A0C0N0D.2235((KA)C)(NNSTANT.... K = ";K Z12:" ":14:"ENTER DIELECTRIC THICKNESS":15:21:"(INCHES)..D = ";D:14:" ":17:"ENTER AREA OF ONE PLATE":18:17:"(SQ. INCHES)..A = ";A:17:" " _20:"ENTER CAPACITANCE (PICOFARADS)C = ";C:20:" ", dC0 FA$"4"ė:520! K:8:958 P3:"---------------------------------------":5:5:"C = 0.2235 * K * (A/D) * (N-1)":7:"---------------------------------------" U10:"ENTER NUMBER OF PLATES....... N = ";N:10:" ":12:"ENTER DIELECTRIC CO AND ENERGY STORED" #16:5:"3) SERIES CAPACITANCE AND":18:8:"VOLTAGE ACROSS SERIES CAPACITOR":20:5:"4) PARALLEL CAPACITANCE" (23:5:"SELECT CATEGORY (1 - 4): ";:A$::(A$)1(A$)440 -A$"1"ė:80 2A$"2"200 <A$"3"ė:700 "::5:8:"THIS PROGRAM ASSISTS IN" 6:10:"THE CALCULATION OF":7:9:"CIRCUIT CAPACITANCE":9::" ": 11:5:"1) CAPACITANCE (PARALLEL PLATE":12:8:"CAPACITOR)":14:5:"2) CHARGE5R22:"REPEAT ENTRY AND CALCULATION? (Y/N) ";:B$::B$"Y"B$"N"3X::12:15:"CAPACITANCE"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE:; 13:"CAPACITANCE":3::"           ERTZ = KHZ":12:"WAVELENGTH = METERS"[ 14:"---------------------------------------": X 8:"FREQUENCY VS. WAVELENGTH":3:"---------------------------------------":5:18:"VELOCITY OF LIGHT":6:5:"WAVELENGTH = -----------------"& 7:22:"FREQUENCY":9:"WHERE:":10:"VEL. OF LIGHT=C=299,792.5 KILOMETERS/SEC":11:"FREQUENCY = F = KILOH------"::"HZ = HERTZ":"KHZ = KILOHERTZ":"MHZ = MEGAHERTZ":"GHZ = GIGAHERTZ":"THZ = TETRAHERTZ":"A = ANGSTROM UNITS" P22:"ANOTHER FREQ./WAVELENGTH CONVERSION? ";:A$::A$"N"A$"Y"ī80 ZA$"Y"ī12 d:::(4);"RUN HELLO" ::1:----------------" HW;" METERS";:24:F1000;" HZ"::W100;" CM.";:24:F;" KHZ"::W3.2808399;" FT.";:24:F1000;" MHZ": JW39.3700788;" IN.";:24:F100000;" GHZ"::W1010;" A";:24:F100000000;" THZ"z L"---------------------------------E$"1"SE$"2"18- 16:958:SE$"1"30= SE$"2"40k 16:"ENTER WAVELENGTH (METERS) ";W:50 (16:"FREQUENCY (KHZ) ";F 2W0F0W299792.5F <F0W0F299792.5W F:"WAVELENGTH";:24:"FREQUENCY":"-----------------------] :: :12:15:"FREQUENCY"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE: 240:16:8:"1) WAVELENGTH TO FREQUENCY"::8:"2) FREQUENCY TO WAVELEMGTH": 12:"SELECT (1 OR 2) ";:SE$::S     PRIVATE OPERATING ENTERPRISE (OR BY THE GOVERNMENT ADMINISTRATION OF ....":T7^A$"QRD"T$"I AM BOUND FOR .... FROM ....":T5bA$"QRG"T$"YOUR EXACT FREQUENCY (OR THAT OF .... ) IS ....":T5dA$"QRH"T$"YOUR FREQR TAPE":T4ATA$"QRA"T$"THE NAME OF MY STATION IS ....":T4XA$"QRB"T$" THE APPROXIMATE DISTANCE BETWEEN OUR TWO STATIONS IS .... MILES.":T4aZA$"QRC"T$" THE ACCOUNTS FOR CHARGES OF MY STATION ARE SETTLED BY THE ..... OTHER FREQUENCY (OR TO ... KHZ) TO CLEAR TRAFFIC WITH ...":T2yHA$"QAV"T$"I AM CALLING ... (CALL SIGN).":T5JA$"QNZ"T$"ZERO BEAT YOUR SIGNAL WITH MINE.":T1NA$"QOD"T$"I CAN YOU SPEAK WITH YOU IN:":T3 PA$"QOI"T$"SEND YOURAFFIC FOR ....":T2K@A$"QNW"T$"HOW DO I ROUTE TRAFFIC FOR ...?":T1DA$"QNX"T$"1) YOU ARE EXCUSED FROM THE NET. (NET CONTROL STATIONS ONLY) 2) REQUEST TO BE EXCUSED FROM THE NET.":T1DFA$"QNY"T$"SHIFT TO AN"T$"I REQUEST PERMISSION TO LEAVE THE NET FOR ... MINUTES.":T1:A$"QNU"T$"THE NET HAS TRAFFIC FOR YOU. STAND BY.":T2<A$"QNV"T$"ESTABLISH CONTACT WITH ... ON THIS FREQUENCY. IF SUCCESSFUL, MOVE TO .... AND SEND HIM TNSWER ..... AND RECEIVE OR RELAY TRAFFIC.":T22A$"QNS"T$"1) FOLLOWING STATIONS ARE IN THE NET. (FOLLOW WITH LIST) (NET CONTROL ONLY) 2) REQUEST LIST OF STATIONS IN THE NET.":T1G6A$"QNTG THE NET.":T1e(A$"QNP"T$"1) UNABLE TO COPY YOU. 2) UNABLE TO COPY ... ":T1,A$"QNQ"T$"MOVE FREQUENCY TO ... AND WAIT FOR ..... TO FINISH HANDLING TRAFFIC. THEN SEND HIM TRAFFIC FOR .....":T240A$"QNR"T$"A"TRANSMIT MESSAGES FOR ... TO ... ":T1ZA$"QNL"T$"YOUR NET FREQUENCY IS LOW.":T1A$"QNM"T$"YOU ARE QRMING THE NET. STAND BY.":T2"A$"QNN"T$"NET CONTROL STATION IS ... (ON ... KHZ/MHZ).":T1&A$"QNO"T$"STATION IS LEAVININ. (NET CONTROL STATION ONLY) 2) I AM REPORTING TO THE NET. (FOLLOW WITH A LIST OF TRAFFIC OR QRU.)":T1A$"QNJ"T$"1) CAN YOU COPY ME? 2) CAN YOU COPY......?":T1(A$"QNK"T$TION).":T27 A$"QNE"T$"ENTIRE NET STAND BY.":T2l A$"QNF"T$"NET IS FREE (NOT CONTROLLED).":T1 A$"QNG"T$"TAKE OVER AS NET CONTROL STATION":T1 A$"QNH"T$"YOUR NET FREQUENCY IS HIGH":T1A$"QNI"T$"1) NET STATIONS REPORT A"T$"ANSWER IN PREARRANGED ORDER":T2\ A$"QNB"T$"ACT AS RELAY BETWEEN...AND...":T2 A$"QNC"T$"ALL NET STATIONS COPY. I HAVE A MESSSAGE FOR ALL NET STATIONS.":T1 A$"QND"T$"NET IS DIRECTED (CONTROLLED BY NET CONTROL STAOPED FOR":"COMMERCIAL MARITIME MOBILE USE.": <" QUESTIONS ARE ASKED BY TRANSMITTING":"A QUESTION MARK AFTER THE APPROPRIATE":"Q-SIGNAL (SUCH AS QSL? OR QRM?). @T7ĺ:A$;" NOT NORMALLY USED IN AMATEUR RADIO APPLICATIONS." D:' A$"QNSTANDARD Q-SIGNAL DEVELOPED FOR COM-":"MERCIAL MARITIME MOBILE USE AND ADAPTED":"FOR AMATEUR RADIO APPLICATIONS."{ *60 2T6āI15:R$:R$(I)R$:7:I;") ";R$(I):I 4T8āI15:S$:S$(I)S$:7:I;") ";S$(I):I. 7:" STANDARD Q-SIGNAL DEVEL":4:"IAL Q-SIGNALS NEED NOT BE FOLLOWED"m 4:"BY A QUESTION MARK, EVEN WHEN USED ":4:"AS A QUESTION." T2ĺ:4:"THE ";A$;" SIGNAL IS FOR USE BY NET":4:"CONTROL STATIONS ONLY!" : I09:L$:L$(I)L$:7:I;") ";L$(I):I::s (:"+p::12:16:"Q SIGNALS"::4:"AN AMATEUR RADIO UTILITY PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:} :10000* :4:"ARRL CW NET Q-SIGNAL USED ONLY IN":4:"IN CW NET COMMUNICATIONS! DO NOT USE":4:"IN VOICE COMMUNICATIONS. THESE SPEC-              12CX1ī2005/S5SS0ĺ"SUNRISE: ";KS5SS0ĺ"SUNSET: ";cGMT0ĺ"0000 GMT";GMT0GMT1000ĺ"0";GMT;" GMT";GMT1000ĺGMT;" GMT";TM10ĺ" = ";TH;":0";TM;" ";TM$" ";TZ$;:960" = ";TH;":";TM;" ";TM$;" ";TZ$;\TZ$"PST"TGMT800!aMT6fM1200TM$"AM"JpM1200TM$"N"ozM1200M2400TM1200:TM$"PM"M2400M0T1200:TM$"M"M2400TM1200:TM$"AM"M0T1200M:TM$"PM"TH(T100):TMTTH100:TH24THTH24TH0TH========================="|/TZ$"EDT"TZ$"EST"TZ$"CDT"TZ$"CST"TZ$"MDT"TZ$"MST"TZ$"PDT"TZ$"PST"ī8104TZ$"EDT"TGMTA100>TZ$"EST"TZ$"CDT"TGMT500HTZ$"CST"TZ$"MDT"TGMT600RTZ$"MST"TZ$"PDT"TGMT700P :8:"CONVERT GMT TO LOCAL TIME":"***************************************"("ENTER GREENWICH MEAN TIME (HHMMZ) SUCH ":"AS 0900Z OR 1815Z) ";GMT$)GMT(GMT$):SR0812*"ENTER LOCAL TIME ZONE (CDT,EST,ETC.)";:"";TZ$,"==============T0T1200ĺ"A ";.T0T2400ĺ"M ";HT1200T2400ĺ"P ";[T1200ĺ"N ";kT0ĺ"P ";GMT0GMT1000ĺ"0";GMT;"Z"GMT1000ĺGMT;"Z"GMT0ĺ"0000Z"TT100:T2400TT2400GMTGMT100TH12THTH12v823:"***************************************"|24:"ANOTHER CONVERSION ? (Y/N) ";:A$::A$"Y"A$"N"ī645A$"Y"ī30A$"N"ĉ::(4);"RUN HELLO"GMT2400GMT0000GMT2400GMTGMT2400TH;":";"00";:THTH1L---GMT LOCAL---GMT LOCAL---GMT":NY1:B13:A1118:A:Y:TH10ĖY1d700:A:YY13:BZ"======================================="]620b640l20:"NOTE: GREENWICH MEAN TIME IS INDICATED":"BY GMT, Z, OR U.T. (UNIVERSAL TIME)."A$;" ";TZ$;" = ";GMT;" GMT"Bc"(GMT = ";TZ$;" + ";TZ;" HOURS";sdZZ0ĺ" = ";ZY$;" + ";TZ(ZXZY);" HOURS";|e")"f"======================================="iS3ī1360jS41990kmGMTGMTTM:TTTM:TH12THTH12$r" LOCATZ$"EST"GMTT500,,TZ$"EDT"GMTT400?-TZ(GMTT)100R.GMT1000ī332k1GMT2400GMT0ī3406GMT2400GMTGMT2400:332JA$;" ";TZ$;" = ";GMT;" GMT":355LA$;" ";TZ$;" = 0";GMT;" GMT":355TA$;" ";TZ$;" = 0000 GMT":355^1)"N"T(100TH)TMH (A$,6,1)"P"(A$,6,1)"M"T(100TH)TM1200d S3TTG:TZ$ZX$:A$T$} TZ$"PST"GMTT800 TZ$"PDT"GMTT700 TZ$"MST"GMTT700 TZ$"MDT"GMTT600 TZ$"CST"GMTT600 TZ$"CDT"GMTT500"======" u120:365- x(A$,2,1)"."ī180? TH((A$,2))S TM((A$,4,2)) (A$,7,1)"A"(A$,7,1)"N"T(100TH)TM (A$,7,1)"P"(A$,7,1)"M"T(100TH)TM1200 220 TH((A$,1)) TM((A$,3,2)) (A$,6,1)"A"(A$,6,3050U d:8:"CONVERT LOCAL TIME TO GMT":"***************************************" n"ENTER LOCAL TIME (HH:MM) SUCH AS 01:30 PM OR 12:OO N OR 12:00 M ";:3000 s"ENTER LOCAL TIME ZONE (EDT,CST,ETC.)";TZ$ t"=================================TIME"::"3) CONVERT TIME ZONE X TO TIME ZONE Y"x +:"4) LOCAL TIME TO COUNTRIES OF THE WORLD"::"5) SUNRISE/SUNSET" -620 0:"***************************************" 216:"SELECT (1-5) ";:S$::S(S$):S1S550 <S100,800,1040,1380,E ZONES"::4:"AN AMATEUR RADIO UTILITY PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000: :"GREENWICH MEAN TIME/LOCAL TIME CONVERTER" #"***************************************"0 (::"1) CONVERT LOCAL TIME TO GMT"::"2) CONVERT GMT TO LOCAL .A$"300:20 52 E7 20 1A D6 90 21 A0 04 B1 9B C9 83 D0 19 18 A5 9B 69 04 85 7D A5 9C 69 00 85 7E A5 50 85 7B A5 51 85 7C A0 00 F0 02 A0 01 A9 00 20 F2 E2 60 N D9C6G"I1(A$):511I,((A$,I,1))128::72,0:144:11,0:12,3Z ::12:15:"TIM                   "G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"," "OB$(A)"3"W$(A)"THREE"5B$(A)"4"W$(A)"FOUR"QB$(A)"5"W$(A)"FIVE"lB$(A)"6"W$(A)"SIX"B$(A)"7"W$(A)"SEVEN"B$(A)"8"W$(A)"EIGHT"&B$(A)"9"W$(A)"NINE"0B$(A)" "W$(A)" ":TX"A","B","C","D","E","F",(A)"U"W$(A)"UNIFORM"5 B$(A)"V"W$(A)"VICTOR"S B$(A)"W"W$(A)"WHISKY"p B$(A)"X"W$(A)"X-RAY" B$(A)"Y"W$(A)"YANKEE" B$(A)"Z"W$(A)"ZULU" B$(A)"0"W$(A)"ZERO" B$(A)"1"W$(A)"ONE" B$(A)"2"W$(A)"TWO"W$(A)"LIMA") @B$(A)"M"W$(A)"MIKE"I JB$(A)"N"W$(A)"NOVEMBER"f TB$(A)"O"W$(A)"OSCAR" ^B$(A)"P"W$(A)"PAPA" hB$(A)"Q"W$(A)"QUEBEC" rB$(A)"R"W$(A)"ROMEO" |B$(A)"S"W$(A)"SIERRA" B$(A)"T"W$(A)"TANGO" B$HARLIE"$ B$(A)"D"W$(A)"DELTA"@ B$(A)"E"W$(A)"ECHO"_ B$(A)"F"W$(A)"FOXTROT"{ B$(A)"G"W$(A)"GOLF" B$(A)"H"W$(A)"HOTEL" B$(A)"I"W$(A)"INDIA" "B$(A)"J"W$(A)"JULIETTE" ,B$(A)"K"W$(A)"KILO" 6B$(A)"L"17:XX1:X:W$(A):X(W$(A))X:A[ P23:"ANOTHER WORD ? (Y/N) ";A$:A$"Y"A$"N"80y UA$"N"ĺ(4),"RUN HELLO" ZA$"Y"Ĺ34,13::40 d sAC2ĺW$(A):25 B$(A)"A"W$(A)"ALPHA" B$(A)"B"W$(A)"BRAVO" B$(A)"C"W$(A)"C):B$(A);" ";:200( AC2ĺW$(A):24A W$(A);:N15:NN15T B$(A)" "30d A:CC1:B "---------------------------------------" (13:"ENTER WORD TO BE SPELLED:"::"";A$ 2L(A$) <A1L:B$(A)(A$,A,1):200:A# FX0:A1L:Vx::12:12:"PHONETIC ALPHABET"::4:"AN AMATEUR RADIO UTILITY PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000::5:"AMATEUR RADIO PHONETIC CODE":"---------------------------------------" B$(27),W$(27) B312:B:N0:ACC2:B$(A     );"CATALOG"::WESTAR 6, WESTAR 3 TO BE MOVED."UPO3PO$"ANIK C2 MOVED WHEN G STAR 1 LAUNCHED"PO4PO$"TEMPORARY STORAGE LOCATION""BAND = ";BA$:PO$22:"ANOTHER SATELLITE? (Y/N) ";:A$::A$"Y"A$"N"500A$"Y"Į::40 ::(4"C((Z(ZZ1))1.5708)B2,L0AZIMUTHCI6L0AZIMUTH360Ce@"AZIMUTH = ";AZIMUTH:}J"ELEVATION = ";E:rBA0BA$"C"|BA1BA$"C/KU"BA2BA$"KU"PO1PO$"EXACT POSITION TO BE DETERMINED" PO2PO$"REPLACES 4* 10:"TVRO LOCATION LONGITUDE ";LO:M "TVRO LOCATION LATITUDE ";A:e PI3.14159:BPI180u LLOLS(SE) X(LB)(AB) D((X(XX1))1.5708)B Y((((90D)B)0.1513)((90D)B)) E((Y))B Z(1((AB)(DB)))a 22:"SELECT (1 - 31): ";SE::"SATELLITE: ";SN$(SE)::"POSITION: ";LS(SE);" DEG. W. LONG." SE2SE11SE19SE24SE28BA1 SE6SE10SE16SE18SE20SE22SE23BA2 SE11SE13PO1 SE12PO2 SE21PO3 SE23PO,"ANIK C1","ANIK C3","SPACENET 1","WESTAR 5","TELSTAR 303","COMSTAR D4","ASC 1","SATCOM 3R","GALAXY 1","SATCOM 1R","SATCOM 5" 67,69,72,74,76,77,79,83,86,87,89,91,91,93.5,96,99,103,104.5,105,109,110,111.5,112.5,117.5,120,123,125,127,128,131,134,139,143dLS(I): n"SATCOM 6","SPACENET 2","SATCOM 2R","GALAXY 2","COMSTAR D3","SATCOM KU 2","WESTAR 2","SATCOM 4","TELSTAR 302","SATCOM KU 1","SPACENET 3","WESTAR 6S","WESTAR 3","GALAXY 3","TELSTAR 301"} x"WESTAR 4","G STAR 2","ANIK B","ANIK C2","ANIK D2"VRO":"ANTENNA SYSTEM.":PAUSE13000:: (" SATELLITE POS. SATELLITE POS.":" (DEG.) (DEG.)" 2I131:SN$(I):I16ĢI12:21:70 <I4 FI;" ";SN$(I): PI131:LS(I):I16ĢI12:36:100 ZI4:16  :::SN$(31),LS(31)10:10:"SATELLITE LOOK ANGLE"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH") 17:"THIS PROGRAM PROVIDES THE ELEVTATION":"AND AZIMUTH OF A COMMUNICATIONS SATEL-":"LITE AS AN AID IN POSITIONING A T     1220:1220:1220:1220:1220:1250:: '5']1230:1220:1220:1220:1220:1250:: '6'1230:1230:1220:1220:1220:1250::'7'1230:1230:1230:1220:1220:1250:: '8'1230:1230:1230:1230:1220:1250::'9'1230:1230:1231230:1220:1220:1220:1230:1250::'-':REM 'BT':REM 'BREAK!n1220:1230:1230:1230:1230:1250:: '1'1220:1220:1230:1230:1230:1250::'2'1220:1220:1220:1230:1230:1250:: '3'1220:1220:1220:1220:1230:1250::'4'-230:1220:1220:1250:: 'Z'S1220:1230:1220:1230:1220:1230:1250:: '.'1220:1220:1230:1230:1220:1220:1250::'?':REM 'REPEAT'1230:1230:1220:1220:1230:1230:1250:: ','1230:1220:1220:1230:1220:1250::'/'>:1250:: 'S'&H1230:1250:: 'T'JR1220:1220:1230:1250:: 'U't\1220:1220:1220:1230:1250:: 'V'f1220:1230:1230:1250:: 'W'p1230:1220:1220:1230:1250:1250:: 'X'z1230:1220:1230:1230:1250:: 'Y'1230:1: 'L'$1230:1230:1250:: 'M'A 1230:1220:1250::'N'e1230:1230:1230:1250:: 'O' 1220:1230:1230:1220:1250:: 'P'*1230:1230:1220:1230:1250::'Q'41220:1230:1220:1250::'R':REM 'RECEIVED'>1220:1220:122020:1220:1230:1220:1250:: 'F'F1230:1230:1220:1250:: 'G'p1220:1220:1220:1220:1250:: 'H'1220:1220:1250:: 'I'1220:1230:1230:1230:1250:: 'J'1230:1220:1230:1250:: 'K'1220:1230:1220:1220:1250:1"ī130-lB$"2"NN1:N255MC$""ī1550?vB$"3"ī1280H100g1220:1230:1250:: 'A'1230:1220:1220:1220:1250:: 'B'1230:1220:1230:1220:1250:: 'C'1230:1220:1220:1250:: 'D'1220:1250:: 'E'"12030MC$"9"İ1040)&MC$"0"İ1050W0MC$"#"İ1060: 'AR':REM'END OF MESSAGE':MC$"$"İ1070: 'SK':REM 'END OF TRANSMISSION'DMC$"%"İ1080:'CQ':REM'GENERAL CALL'NMC$"&"İ1090:'DE':REM'FROM'XMC$"*"İ1100: 'W5LLJ'bB$"890MC$"Z"İ900'MC$"."İ9109MC$"?"İ920KMC$","İ930]MC$"/"İ940oMC$"-"İ950MC$"1"İ960MC$"2"İ970MC$"3"İ980MC$"4"İ990MC$"5"İ1000MC$"6"İ1010MC$"7"İ1020MC$"8"İ1MC$"L"İ760 MC$"M"İ7701 MC$"N"İ780C "MC$"O"İ790U ,MC$"P"İ800g 6MC$"Q"İ810 @MC$"R"İ820:'RECEIVED' JMC$"S"İ830 TMC$"T"İ840 ^MC$"U"İ850 hMC$"V"İ860 rMC$"W"İ870 |MC$"X"İ880MC$"Y"İ MC$:MC$(13)1550( 1110:P97: MC$"A"İ650L MC$"B"İ660^ MC$"C"İ670p MC$"D"İ680 MC$"E"İ690 MC$"F"İ700 MC$"G"İ710 MC$"H"İ720 MC$"I"İ730 MC$"J"İ740 MC$"K"İ750: 'GO AHEAD' N >B3Ģ21:868:"DISPLAY CHARACTERS? (Y/N) ";:DC$::DC$"Y"DC$"N"62] @DC$"N"đn FB$"1"ī120 PB$"3"ī1270 Z:2:"TYPE A WORD OR PHRASE THEN PRESS RETURN":"";MC$(1):N1 dMC$(MCT$(1),N,1) n140 x:2:"TYPE A CHARACTER" "A2ĺ"AMPLIFIER"" $6:958. (1340:a 28:868:"SPEED (10 TO 75): ";T:T10T7550l 7T85T <:"MODE:"::2:"1) INSTANTANEOUS"::2:"2) DELAYED"::2:"3) CODE PRACTICE" =19:868:"SELECT (1,2,3) ";:B$:TB$:B(B$):B1B361OM APPLE INTERNAL":13:"LOUDSPEAKER)": 2:"2) AMPLIFIER (CONNECT AUDIO AMPLIFIER":17:"INPUT TO APPLE CASSETTE":17:"DATA OUTPUT JACK)" 14:868:"SELECT (1 OR 2): ";:A$:A$:A(A$):A1A230 5:15:A1ĺ"APPLE INTERNAL LOUDSPEAKER"`y ::12:12:"MORSE CODE TRAINER"::4:"AN AMATEUR RADIO UTILITY PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000: :H2:V10( 12:"MORSE CODE TRAINER"::"----------------------------------------":"AUDIO OUTPUT:"::2:"1) APPLE (SOUND FR          19:N:'O17:25:DB:19:25:EFF:fT22:868:"REPEAT ENTRY AND CALCULATION? (Y/N) ";:D$::^D$"N"ė:(4);"RUN HELLO"hD$"Y"ī140rP21:15:14:"P2 = 1":|17:7:"ENTER DBK = ";DB$:17:7:" ":17:7:"ENTER DBW = "10N0P2P1N.6N0P10P20NP1P2J;DB0N0DB10A(N)q@DB0P10P20DB10A(P1P2)BP10P20DB0N0324C326DDB10A(N)DB10A(P1P2)İ590F575HJ13:19:P1:15:19:P2:17:19:DB:19: FOR ALL UNKNOWN VALUES":A1(10):^13:8:"ENTER P1 = ";P1$:P1(P1$):13:8:" ":19:8:"ENTER N = ";N$:N(N$):19:8:" ":I12:280:I:575:DB(DB$):N0DB0N(DB(10A))"P10P20N0P1NP2,P20P810ZC$"J"DB$"VU":12:240:9:"(P IN MW)":250:370:450:260:280:330:340:350C$"K"DB$"LINE EFFICIENCY":12:240:455:552:335:340:350$I922:I:" ":I:11::"NOTE":11:5::":ENTER '?'"(E=MICROVOLTS, I=MICROAMPS, Z=OHMS)":700:660:725:460:740:340:760C$"H"D$"DBVG":12:240:9:"(E=VOLTS, I=AMPERES, Z=OHMS)":710:660:730:460:740:340:760C$"I"DB$"DBRAP":12:240:9:"P (ACOUSTICAL POWER)=WATTS":780:270:800:280:330:340:350xC$"E"DB$"DB":12:240:9:"(P1 AND P2 IN LIKE UNITS)":250:430:440:260:280:330:340:350C$"F"DB$"DBV":12:240:9:"(E=VOLTS, I=AMPERES, Z=OHMS)":700:660:720:460:740:340:760IC$"G"DB$"DBU":12:240:9:":12:240:9:"(P=WATTS)":250:370:390:260:280:330:340:350C$"C"DB$"DBM":12:240:9:"(P=MILLIWATTS, Z=600 OHMS)":250:370:400:260:280:330:340:350C$"D"DB$"DBR":12:240:9:"(P=MILLIWATTS, Z=500 OHMS)":250:410:420:260:868:"SELECT CATEGORY (A THROUGH K): ";:C$:C$"A"C$"B"C$"C"C$"D"C$"E"C$"F"C$"G"C$"H"C$"I"C$"J"C$"K"130C$"A"DB$"DBK":12:240:9:"(P=KILOWATTS)":250:370:380:260:280:330:340:350BC$"B"DB$"DBW"SPECIFIC DAMPING CHARAC-":17:16:"TERISTICS. ELECTRICALLY"}18:16:"EQUIVALENT TO DBM IN SIN-":19:16:"GLE TONE MEASUREMENTS.)"~21:8:"K) EFF. = LINE EFFICIENCY"5:I1122:I:" ":I:35/23: ":I:11:8:"J) VU = 1 MILLIWATT IN 600 OHMS." n12:16:"(EMPLOYED IN COMPLEX SIG-":13:16:"NAL (VARYING IN BOTH FRE-":14:16:"QUENCY AND AMPLITUDE) LE-":14:16:"VEL MEASUREMENTS AS INDI-"=x15:16:"CATED ON A METER HAVING":16:16:ICRO-" P14:18:"VOLT/METER (.000001":15:18:"VOLT/METER)":17:8:"H) DBVG = VOLTAGE GAIN OR LOSS":19:8:"I) DBRAP = DB ABOVE 10E-18 WATT" Z20:18:"(REFERENCE ACOUSTICAL":21:18:"POWER)":57 dI1122:I:" 8:8:"D) DBR = DB ABOVE/BELOW 6 MW":19:18:"(.006 WATT) IN 500 OHMS"s <21:8:"E) DB = POWER LOSS OR GAIN":5 FI1122:I:" ":I:11:8:"F) DBV = DB ABOVE/BELOW 1 VOLT":13:8:"G) DBU = DB ABOVE/BELOW 1 M------------------------------------":/ 11[ #9:"DEFINITIONS AND REFERENCE LEVELS:" (11:8:"A) DBK = DB ABOVE/BELOW 1 KW":13:8:"B) DBW = DB ABOVE/BELOW 1 WATT"G 215:8:"C) DBM = DB ABOVE/BELOW 1 MW":16:18:"(.001 WATT) IN 600 OHMS":1 DB$"DB AND VU"s :1:(40(12(DB$)))2:DB$;" CALCULATION":2:"---------------------------------------" 4:8:"THIS PROGRAM ASSISTS IN":5:8:"THE SOLUTION OF PROBLEMS":6:(40(23(DB$)))2:"INVOLVING ";DB$;" CALCULATION."' 8:"---z::12:17:"DECIBEL"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE::3223:868:"CONTINUE DEFINITIONS? (Y/N) ";:A$::A$"Y"A$"N"5A$"N"ī130C$"J"A$"Y"3A$"Y"ı 936                    AII N 117,HOLLAND P 220,HONDURAS N 110-220,HONG KONG P 220,HUNGARY S 220  ICELAND P 220,INDIA X 230,INDONESIA P 220,IRAN S 220,IRAQ S 220,IRELAND P 220,ISRAEL P 230,ITALY P 127-220,IVORY COAST S 220* JAMAICA P 110,JAPAN N 100-200,JORDAN P 220'4240,FINLAND P 220,FRANCE S 115-230  GABON S 127-220,GAMBIA X 999,GERMANY W 999,GHANA X 230,GIBRALTAR X 230,GREAT BRITAIN P 127-220,GREECE S 110-220,GREENLAND U 220,GUAM N 110,GUATEMALA N 110-220,GUINEA X 127-220,GUYANA S 127H HAITI S 115-220,HAWCOSTA RICA N 110,CUBA N 120,CURACAO N 120,CYPRUS P 220Q CZECHOSLOVAKIA S 220 DAHOMEY X 220,DENMARK P 220,DOMINICAN REPUBLIC N 110 EAST GERMANY S 220,ECUADOR N 120,EGYPT S 220,EL SALVADOR N 110,ENGLAND P 127-220,ETHOPIA X 127 " FIJI X GIUM P 127-220,BERMUDA N 120,BOLIVIA X 115-130,BRAZIL M 220,BULGARIA S 220,BURUNDI X 2206 CAMEROON X 127-220,CANADA N 110-240,CANARY ISLANDS P 127,CENT. AFRICAN REP. X 220,CEYLON X 230,CHAD X 220,CHILE N 220,CHINA P 220,COLUMBIA N 110-220,CONGO S 220,B$"N"1900vB$"Y"30)B$"N"5 AFGHANISTAN P 220,ALBANIA S 220,ALGERIA P 127 - 220,ANDORRA X 220,ANGOLA X 220,ARGENTINA P 220,AUSTRALIA P 240,AUSTRIA P 220,AZORES Y 220 X BAHAMAS N 120,BAHRAIN P 220,BANGLADESH P 999,BARBADOS N 120,BELLTAGE = ";V$:CO$"JAMAICA"CO$"JAPAN"CO$"MEXICO"CO$"NETHERLANDS ANTILLES"CO$"SAUDI ARABIA"CO$"SURINAM"F$"50, 60"V$"UNKNOWN"F$V$"POWER LINE FREQUENCY = ";F$1900 l23:"ANOTHER COUNTRY? (Y/N) ";:868:B$::B$"Y"SOUTH KOREA":40EjV$(C$,(C$)((CO$)3)):V$"999"V$"UNKNOWN"etM$"U"L525:FI60:F$"50""COLOR SYSTEM = ";SY$:"NUM. OF LINES/FRAME = ";LI:"NUM. OF FIELDS/SEC. = ";FI:"NUMBER FRAMES/SEC. = ";FI2:"POWER LINE VO"W"1110FL6:"EAST OR WEST? (E/W) ";:B$::B$"E"B$"W"1100iQB$"E"CO$"EAST GERMANY":40TCO$"WEST GERMANY":40VM$"R"1130X6:"NORTH OR SOUTH? (N/S) ";:B$::B$"N"B$"S"1112[B$"N"CO$"NORTH KOREA":40^CO$"SY$"NTSC"!M$"X"SY$"NONE"Q$SY$"SECAM"SY$"PAL"LI625:FI50:F$"50"y.M$"M"M$"N"LI525:FI60:F$"60"8M$"Y"SY$"PAL":LI525:FI60:F$"50":M$"U"SY$"NONE":LI525:FI60:F$"50"?CO$"BARBADOS"CO$"CHILE"F$"50" BM$ 23:"EXAMINE NTSC LIST? (Y/N) ";:868:B$::B$"Y"B$"N"936T B$"N"35k A$N$" LIST":910 4:"COUNTRY: ";CO$: LI625:FI50:F$"50":M$(C$,L2,1) M$"P"SY$"PAL" M$"M"SY$"PAL M" M$"S"SY$"SECAM" M$"N" B$"N"924& A$P$" LIST":910h 23:"EXAMINE PAL M LIST? (Y/N) ";:B$::B$"Y"B$"N"924x B$"N"930 A$M$" LIST":910 23:"EXAMINE SECAM LIST? (Y/N) ";:868:B$::B$"Y"B$"N"930 B$"N"936 A$S$" LIST":910E LIST? (Y/N) ";:868:B$::B$"Y"B$"N"904@ B$"N"918S A$CL$" LIST"Y u :Y1:3030:4000:4000 23:"MORE? (Y/N) ";:B$::B$"Y"B$"N"914 B$"Y"912 23:"EXAMINE PAL LIST? (Y/N) ";:868:B$::B$"Y"B$"N"918A6A$N$ A$A$" LIST":910* 3030X #23:"COUNTRY? ";:868:"";CO$:CO$""5m (L(CO$):3020: 2C$:(C$,L)CO$1000 C$"END LIST"Ģ4:CO$;" NOT LISTED.":"CHECK SPELLING OR POSSIBLE NEW NAME.":904 500 23:"EXAMINE COUNTRY:"5) SECAM COUNTRY LIST"::"6) NTSC COUNTRY LIST":g 23:"SELECT (1-6): ";:B$::A(B$):B$""8v A1A68 P$"PAL":M$"PAL M":S$"SECAM":N$"NTSC":CL$"COUNTRY" A130 A2A$CL$ A3A$P$ A4A$M$ A5A$S$ 3|::12:14:"TV CONVERSION"::4:"AN ELEMENTARY ELECTRONICS PROGRAM":12:"BY PAUL J. YACICH":PAUSE13000:PAUSE:3020::5 "1) INDIVIDUAL COUNTRY"::"2) COUNTRY LIST"::"3) PAL SYSTEM COUNTRY LIST"::"4) PAL M SYSTEM COUNTRY LIST":!! ! ! ! ! !!!!!!!!!     deded ed eV}d ed ed edededeLdedede`[)_EM6\\@\oa()_UVWq2Y \}\[UVW2q2Y \}\dedeM[dedeM[T}dede0dededeoPa(Ҡ)XoS(ԠŠҬάé)'''oa()_.M6\\@oPa(Ҡ)moS(ԠŠҬάé)'''oa(qUVWX6UVWgY_*M6oPa()\\@FoP a(ӠΧϠԠ)oPS()&@`@:()%_`@9()%_1@o P bFE()FFE()FF\[.M6\\@loS(ԠԠŠҬάé)'''qqqoa()_V`%q`%q`<%q`<%q`<%q`<%q\@:oP a(ӠΠϠԠ)S()&@`@:()%_[ \_Mo P a()o P a(ҨөΨөèө)Oo P a()oP a()[)(o P a()[*xM6\\@oPa()[tqq2[3~`@:()%qqqqqq[qq[q q[qq [qq[qq [qq[qqq[qq<q[ `%qq;q< q[qq [qq[qq[qq([$qq2['.`@:()%qqqq[8qq[Bq q[Lqq [Vqq[`qq[jqq('` (2%\`  %\` @9()%\` %\`%\`@9()%\\@"`@9()%_`%_Y`@9()%__qq[q\.$`@9()%\,` %\8'6` (2%\B@` %\LJ`%\VT`(%\`^`(2%\jh`2<%\tr`<%\~"w`@9()%\|` %\)qqq UVW<UVW$Y`%q` %\'` (2%\` %\`%\`(%\`(2%\`2<%\$"`<@:()%)oP a(éҠ˭)%(oP a(ĩҠ)O2oS(ԠŠȠħ)&@`@:()@:()@:()@:()%_2F`@9()%_P`@9()%\Z`@9()%_xd`@9()%_:oP a(Ӡ̠çϠy M6W oP a()oP a()oP a(Ҡ)coP a()oP a()o Pa(Ӻ)o Pa()bo P a(Ҡ)oP a(©Ҡ"" " " " " """""""