' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`CAN SAMOA,32,,,,,,,,49108&B KH8,SEE KS6,,,,,,,,,4930[&V KV,VIRGIN IS.,8,,,,,,,,4950z&j KP2,SEE KV,,,,,,,,,4970&~ KW,WAKE IS.,31,,,,,,,,4990 & KH9,SEE KW,,,,,,,,,5010& KX,MARSHELL IS.,31,,,,,,,,5030' KZ,CANAL ZONE,7,,,,,,,KP4,PUERTO RICO,8,,,,,,,,4790E% KH5K,KINGMAN REEF,31,,,,,,,,4810r% KH5,PALMYRA.JARVIS IS.,31,,,,,,,,4830% KP6,SEE KH5 & KH5K,,,,,,,,,4850% KS4,SERRANA BANK AND RONCADOR CAY,7,,,,,,,,4870% KP3,SEE KS4,,,,,,,,,4890&. KS6,AMERI,,4630-$* KH6,HAWAIIAN IS.,31,,,,,,,,4650P$> KH7,KURE IS.,31,,,,,,,,4670v$R KJ,JOHNSTON IS.,31,,,,,,,,4690$f KH3,SEE KJ,,,,,,,,,4710$z KL7,ALASKA,1,,,,,,,,4730$ KM,MIDWAY IS.,31,,,,,,,,4750$ KH4,SEE KM,,,,,,,,,4770% ,,44904# KC6,WESTERN CAROLINE IS.,27,,,,,,,,4510\# KG4,GUANTANAMO BAY,8,,,,,,,,4530{# KG6,GUAM,27,,,,,,,,4550# KH2,SEE KG6,,,,,,,,,4570# KG6R,MARIANA IS.,27,,,,,,,,45590# KG6S,SEE KG6R,,,,,,,,,4610$ KG6T,SEE KG6R,,,,,,,,,,,,,4350*" WH1,SEE KH1,,,,,,,,,4370P"& KP1,NAVASSA IS.,8,,,,,,,,4390r": NP1,SEE KP1,,,,,,,,,4410"N WP1,SEE KP1,,,,,,,,,4430"b KC4,SEE CE9AA & KP1,,,,,,,,,4450"v KC4,SEE KP1,,,,,,,,,4470# KC6,EASTERN CAROLINE IS.,27,,,,,, JX,JAN MAYEN,40,,,,,,,,4210>! JY,JORDAN,20,,,,,,,,4230X! K,USA,,,,,,,,,4250w! KA1,SEE JD,,,,,,,,,4270! KH1,BAKER.HOWLAND & PHOENIX IS.,31,,,,,,,,4290! KB,SEE KH1,,,,,,,,,4310! AH1,SEE KH1,,,,,,,,,4330 " NH1,SEE KH1,,,,4050#  JR,SEE JA,,,,,,,,,4070M  JD,MINAMI TORISHIMA,27,,,,,,,,4090p  JD,OGASAWARA,27,,,,,,,,4110 " KA,SEE JA,,,,,,,,,4130 6 JD,OKINO TORI-SHIMA,27,,,,,,,,4150 J JT,MONGNLIA,23,,,,,,,,4170 ^ JW,SVALBARD,40,,,,,,,,4190!r,,,,,,,,3890,F J3,GRENADA,8,,,,,,,,3910KZ VP2G,SEE J3,,,,,,,,,3930mn J6,ST.LUCIA,8,,,,,,,,3950 VP2L,SEE J6,,,,,,,,,3970 JA,JAPAN,25,,,,,,,,3990 JE,SEE JA,,,,,,,,,4010 JG,SEE JA,,,,,,,,,4030  JH,SEE JA,,,,,,,,,,,3730* HS,THAILAND,26,,,,,,,,3750K HV,VATICAN,15,,,,,,,,3770q HZ,SAUDI ARABIA,21,,,,,,,,3790 I,ITALY,15,,,,,,,,3810 IT,SEE I,,,,,,,,,3830  IS,SARDINIA,15,,,,,,,,3850 J2,DJIBOUTI,,,,,,,,,3870 2 FL8,SEE J2,,,,,,,,3590/ HK0,BAJO NUEVO,8,,,,,,,,3610T. HK0,MALPELO IS.,9,,,,,,,,3630B HK0,SAN ANDRES AND PROVIDENCIA,7,,,,,,,,3650V HL,KOREA,25,,,,,,,,3670j HM,SEE HL,,,,,,,,,3690~ HP,PANAMA,7,,,,,,,,3710 HR,HONDURAS,7,,,,,,,,,,3450/ HB,SWITZERLAND,14,,,,,,,,3470W HB0,LIECHTENSTEIN,15,,,,,,,,3490y HC,ECUADOR,10,,,,,,,,3510 HC8,GALAPAGOS IS.,10,,,,,,,,3530 HH,HAITI,8,,,,,,,,3550 HI,DOMINICAN REP.,8,,,,,,,,3570  HK,COLOMBIA,9,,SEE GU & GJ,,,,,,,,,3310: GM,SCOTLAND,14,,,,,,,,3330\ GU,GUERNSEY,14,,,,,,,,3350|* GW,WALES,14,,,,,,,,3370> H4,SOLOMON IS.,28,,,,,,,,3390R VR4,SEE H4,,,,,,,,,3410f H5,BOPHUTHATSWANA,38,,,,,,,,3430 z HA,HUNGARY,15,,,LIN,39,,,,,,,,3170Cv FW,WALLIS AND FUTUNA IS.,32,,,,,,,,3190f FY,FR.GUIANA,9,,,,,,,,3210 G,ENGLAND,14,,,,,,,,3230 GD,ISLE OF MAN,14,,,,,,,,3250 GI,NORTHERN IRELAND,14,,,,,,,,3270 GJ,JERSEY,14,,,,,,,,3290 GCFO,CLIPPERTON IS.,7,,,,,,,,3050G FO,FR. POLYNESIA,32,,,,,,,,3070w FP,ST.PIERRE AND MIQUELON,5,,,,,,,,3090& FR,GLORIOSO IS.,39,,,,,,,,3110: FR,JUAN DE NOVA.EUROPA,39,,,,,,,,3130N FR,REUNION,39,,,,,,,,3150b FR,TROME FC,CORSICA,15,,,,,,,,2910?r FG,GUADELOUPE,8,,,,,,,,2930f FG,SAINT MARTIN,8,,,,,,,,2950 FS,SEE FG,,,,,,,,,2970 FH,MAYOTTE,39,,,,,,,,2990 FK,NEW CALEDONIA,32,,,,,,,,3010 FM,MARTINIQUE,8,,,,,,,,3030 ,,,,,,,,2770/ ET,ETHIOPIA,37,,,,,,,,2790O F,FRANCE,14,,,,,,,,2810r FB8W,CROZET,39,,,,,,,,2830" FB8X,KERGUELEN IS.,39,,,,,,,,28506 FB8Y,SEE CE9AA,,,,,,,,,2870J FB8Z,AMSTERDAM AND ST PAUL IS.,39,,,,,,,,2890^ ,,,,7230/6R VU7,LACCADIVE IS.,22,,,,,,,,7250J6f W,SEE K,,,,,,,,,7270h6z XE,MEXICO,6,,,,,,,,72906 XF4,REVILLA GIGEDO,6,,,,,,,,73106 XT,UPPER VOLTA,35,,,,,,,,73306 XU,KHMER,26,,,,,,,,73506 XV,VIETNAM,26,,,,,,,,73707 XW,LAOS,CAIRN IS.,32,,,,,,,,709065 VR8,SEE T2,,,,,,,,,7110V5 VS5,BRUNEI,28,,,,,,,,7130y5 VS6,HONG KONG,24,,,,,,,,71505 VS9,SEE 8Q,,,,,,,,,71705 VS9K,KAMARAN,21,,,,,,,,71905* VU,INDIA,22,,,,,,,,72106> VU7,ANDAMAN AND NICOBAR IS.,26,,,,ND IS.,13,,,,,,,,695054: VP9,BERMUDA,5,,,,,,,,6970V4N VQ9,CHAGOS,39,,,,,,,,69904b VR1,BRIT. PHOENIX IS.,31,,,,,,,,70104v VR1,GILBERT AND OCEAN IS.,31,,,,,,,,70304 VR3,LINE IS.,31,,,,,,,,70504 VR7,SEE VR3,,,,,,,,,70705 VR6,PITRKS AND CAICOS IS.,8,,,,,,,,6830A3 VP8,SEE CE9AA,,,,,,,,,6850g3 VP8,FALKLAND IS.,13,,,,,,,,68703 VP8,SOUTH GEORGIA IS.,13,,,,,,,,68903 VP8,SOUTH ORKNEY IS.,13,,,,,,,,69103 VP8,SOUTH SANDWICH IS.,13,,,,,,,,69304& VP8,SOUTH SHETLAA.BARBUDA,8,,,,,,,,6690A26 VP2V,BRIT. VIRGIN IS.,8,,,,,,,,6710c2J VP2D,DOMINICA,8,,,,,,,,67302^ VP2M,MONTSERRAT,8,,,,,,,,67502r VP2K,ST KITTS.NEVIS,8,,,,,,,,67702 VP2L,SEE J6,,,,,,,,,67902 VP2S,ST VINCENT,8,,,,,,,,6810 3 VP5,TU9,MELLISH REEF,30,,,,,,,,6550B1 VK9,NORFOLK IS.,32,,,,,,,,6570c1 VK0,SEE CE9AA,,,,,,,,,65901 VK0,HEARD IS.,39,,,,,,,,66101 VK0,MACQUARIE IS.,30,,,,,,,,66301 VP1,BELIZE,7,,,,,,,,66501 VP2E,ANGUILLA,8,,,,,,,,66702" VP2A,ANTIGU,SABLE IS.,5,,,,,,,,6410<0 VE1,ST PAUL IS.,5,,,,,,,,6430b02 VK,AUSTRALIA,29.30,,,,,,,,64500F VK,LORD HOWE IS.,30,,,,,,,,64700Z VK9,WILLIS IS.,30,,,,,,,,64900n VK9,CHRISTMAS IS.,29,,,,,,,,65100 VK9,COSCOS IS.,29,,,,,,,,65301 VK TR,GABON,36,,,,,,,,62508/~ TT,CHAD,36,,,,,,,,6270]/ TU,IVORY COAST,35,,,,,,,,6290|/ TY,BENIN,35,,,,,,,,6310/ TZ,MALI,35,,,,,,,,6330/ T2,TUVALU,31,,,,,,,,6350/ VE,CANADA,1.5,,,,,,,,6370/ VO,SEE VE,,,,,,,,,63900  VE190". TA,TURKEY,20,,,,,,,,6110D. TG,GUATEMALA,7,,,,,,,,6130g. TI,COSTA RICA,7,,,,,,,,6150. TI9,COCOS IS.,7,,,,,,,,6170.. TJ,CAMEROUN,36,,,,,,,,6190.B TL,CENTRAL AFRICAN EMPIRE,36,,,,,,,,6210.V TN,CONGO,36,,,,,,,,6230/jETE,20,,,,,,,,59506-R SV,DODECANESE,20,,,,,,,,5970[-f SV,MOUNT ATHOS,20,,,,,,,,5990{-z SP,POLAND,15,,,,,,,,6010- ST,SUDAN,34,,,,,,,,6030- ST0,SOUTHERN SUDAN,34,,,,,,,,6050- SU,EGYPT,34,,,,,,,,6070. TF,ICELAND,40,,,,,,,,60HELLES,39,,,,,,,,57907, S8,TRANSKEI,38,,,,,,,,5810Y, S9,SAO TOME,36,,,,,,,,5830x, CR5,SEE S9,,,,,,,,,5850, SK,SWEDEN,14,,,,,,,,5870, SL,SEE SK,,,,,,,,,5890, SM,SEE SK,,,,,,,,,5910,* SV,GREECE,20,,,,,,,,5930-> SV,CR,BRAZIL,11,,,,,,,,5670D+: PY0,FERNANDO DE NORONHA,11,,,,,,,,5690w+N PY0,ST. PETER AND PAULS ROCK,11,,,,,,,,5710+b PY0,TRINDADE AND MARTIM VAZ IS.,11,,,,,,,,5730+v PZ,SURINAM,9,,,,,,,,5750+ S2,BANGLADESH,22,,,,,,,,5770, S7,SEYCA NEW GUINEA,28,,,,,,,,5530@* PA,NETHERLANDS,14,,,,,,,,5550^* PD,SEE PA,,,,,,,,,5570|* PE,SEE PA,,,,,,,,,5590* PI,SEE PA,,,,,,,,,5610* PJ,NETH.ANTILLES,9,,,,,,,,5630* PJ,ST.MAARTEN SABA ST.EUSTATIUS,8,,,,,,,,5650+& PY370,) OK,CZECHOSLOVAKIA,15,,,,,,,,5390M)" ON,BELGIUM,14,,,,,,,,5410o)6 OR4,SEE CE9AA,,,,,,,,,5430)J OX,GREENLAND,40,,,,,,,,5450)^ XP,SEE OX,,,,,,,,,5470)r OY,FAROE IS.,14,,,,,,,,5490) OZ,DENMARK,14,,,,,,,,5510* P2,PAPU5210"(n M1,SEE 9A,,,,,,,,,5230=( N,SEE K,,,,,,,,,5250[( OA,PERU,10,,,,,,,,5270|( OD,LEBANON,20,,,,,,,,5290( OE,AUSTRIA,15,,,,,,,,5310( OH,FINLAND,15,,,,,,,,5330( OH0,ALAND IS.,15,,,,,,,,5350) OJ0,MARKET,15,,,,,,,,5,5050$' LA,NORWAY,14,,,,,,,,5070B' LB,SEE LA,,,,,,,,,5090a' LF,SEE LA,,,,,,,,,5110'  LG,SEE LA,,,,,,,,,5130' LJ,SEE LA,,,,,,,,,5150'2 LU,ARGENTINA,13,,,,,,,,5170'F LX,LUXEMBOURG,14,,,,,,,,5190(Z LZ,BULGARIA,20,,,,,,,,,,,,,9610)F% UK2R,SEE UR2,,,,,,,,,9630HF%UK2T,SEE UR2,,,,,,,,,2930hF% UK2G,SEE UQ2,,,,,,,,,9670F% UK2Q,SEE UQ2,,,,,,,,,9690F% UK2B,SEE UP2,,,,,,,,,9710F& UK2P,SEE UP2,,,,,,,,,9730F& UK5O,SEE UO5,,,,,,,,,9750G*& UK8M,SEE UM8,,,,,$ UJ8,TADZHIK,17,,,,,,,,9470>E% UL7,KAZAKH,17,,,,,,,,9490_E&% UM8,KIRGHIZ,17,,,,,,,,9510E:% UO5,MOLDAVIA,16,,,,,,,,9530EN% UP2,LITHUANIA,15,,,,,,,,9550Eb% UQ2,LATVIA,15,,,,,,,,9570Ev% UR2,ESTONIA,15,,,,,,,,9590 F% UD6,AZERBAIJAN,21,,,,,93102Dr$ UA9,ASIATIC RUSSIAN,18.19,,,,,,,,9330SD$ UB5,UKRAINE,16,,,,,,,,9350zD$ UC2,WHITE RUSSIAN,16,,,,,,,,9370D$ UF6,GEORGIA,21,,,,,,,,9390D$ UG6,ARMENIA,21,,,,,,,,9410D$ UH8,TURKOMAN,17,,,,,,,,9430D$ UI8,VSBEK,17,,,,,,,,9450E# 9U,BURUNDI,36,,,,,,,,9190>C# 9V,SINGAPORE,28,,,,,,,,9210]C$ 9X,RWANDA,36,,,,,,,,9230C"$ 9Y,TRINIDAD AND T0BAGO,9,,,,,,,,9250C6$ UA,EUROPEAN RUSSIAN,15.16,,,,,,,,9270CJ$ UA1,FRANZ JOSEF LAND,16,,,,,,,,9290D^$ UA2,KALININGRADSK,15,,,,,,36,,,,,,,,9030.BZ# 9K,KUWAIT,21,,,,,,,,9050SBn# 9L,SIERRA LEONE,35,,,,,,,,9070zB# 9M2,WEST MALAYSIA,28,,,,,,,,9090B# 9M6,EAST MALAYSIA,28,,,,,,,,9110B# 9M8,SEE 9M6,,,,,,,,,9130B# 9N,NAPAL,22,,,,,,,,9150B# 9Q,ZAIRE,36,,,,,,,,9170C0!A" 8P,BARBADOS,8,,,,,,,,8890EA" 8Q,MALDIVE IS.,22,,,,,,,,8910cA" 8R,GUYANA,9,,,,,,,,8930A" 8Z4,SAUDI ARABIA/IRAQ,21,,,,,,,,8950A # 9A,SAN MARINO,15,,,,,,,,8970A# 9G,GHANA,35,,,,,,,,8990A2# 9H,MALTA,15,,,,,,,,9010BF# 9J,ZAMBIA, @" 6W,SENEGAL,35,,,,,,,,8730@@." 6Y,JAMAICA,8,,,,,,,,8750d@B" 7O,SOUTH YEMEN,21,,,,,,,,8770@V" 7P,LESOTHO,38,,,,,,,,8790@j" 7Q,MALAWI,37,,,,,,,,8810@~" 7X,ALGERIA,33,,,,,,,,8830@" 7Z,SEE HZ,,,,,,,,,8850A" 8J,SEE CE9AA,,,,,,,,,887 ?z! 5R,MALAGASY,39,,,,,,,,8570C?! 5T,MAURITANIA,35,,,,,,,,8590a?! 5U,NIGER,35,,,,,,,,8610~?! 5V,TOGO,35,,,,,,,,8630?! 5W,WESTERN SAMOA,32,,,,,,,,8650?! 5X,UGANDA,37,,,,,,,,8670?! 5Z,KENYA,37,,,,,,,,8690@" 6O,SOMALI,37,,,,,,,,8710&> 4U,UNITED NATIONS,5,,,,,,,,8410D> 4W,YEMEN,21,,,,,,,,8430c>! 4X,ISRAEL,20,,,,,,,,8450>! 4Z,SEE 4X,,,,,,,,,8470>*! 5A,LIBYA,34,,,,,,,,8490>>! 5B,CYPRUS,20,,,,,,,,8510>R! 5H,TANZANIA,37,,,,,,,,8530>f! 5N,NIGERIA,35,,,,,,,,85502,FIJI IS.,32,,,,,,,,8250<=N 3D6,SAWZILAND,38,,,,,,,,8270\=b 3V,TUNISIA,33,,,,,,,,8290{=v 3X,GUINEA,35,,,,,,,,8310= 3Y,BOUVET,,,,,,,,,8330= 4K,SEE CE9AA,,,,,,,,,8350= 4S,SRI LANKA,22,,,,,,,,8370> 4U,I.T.U. GENEVA,14,,,,,,,,8390CO,14,,,,,,,,8110B< 3B6,AGALEGA AND ST BARNDON,39,,,,,,,,8130b< 3B7,SEE 3B6,,,,,,,,,8150< 3B9,RODRIGUEZ IS.,39,,,,,,,,8170< 3B8,MAURITIUS,39,,,,,,,,8190< 3C,EQUATORAL GUINEA,36,,,,,,,,8210<& 3C0,ANNOBON,36,,,,,,,,8230=: 3D,,,7970);6 ZM7,TOKELAUS,31,,,,,,,,7990J;J ZP,PARAGUAY,11,,,,,,,,8010o;^ ZS,SOUTH AFRICA,38,,,,,,,,8030;r ZS2,PRINCE EDWARD AND MARION IS.,38,,,,,,,,8050; ZS3,SOUTHWEST AFRICA,38,,,,,,,,8070; 1S,SPRATLY IS.,,,,,,,,,8090< 3A,MONAK1,SOUTH COOK IS.,32,,,,,,,,7850I: ZK1,NORTH COOK IS.,32,,,,,,,,7870g: ZK2,NIUE,32,,,,,,,,7890: ZL,NEW ZEALAND,32,,,,,,,,7910: ZL,AUCKLAND AND CAMPBELL IS.,32,,,,,,,,7930: ZL,CHATHAM IS.,32,,,,,,,,7950;" ZL,KERMADEC IS.,32,,,,,RALTAR,14,,,,,,,,7710292 ZC,SEE 5B,,,,,,,,,7730V9F ZD7,ST HELENA,36,,,,,,,,7750}9Z ZD8,ASCENSION IS.,36,,,,,,,,77709n ZD9,TRISTAN DA CUNHA AND GOUGH IS.,38,,,,,,,,77909 ZE,RHODESIA,38,,,,,,,,78109 ZF,CAYMAN IS.,8,,,,,,,,7830 : ZUA,7,,,,,,,,755008 YO,RUMANIA,20,,,,,,,,7570P8 YS,SALVADOR,7,,,,,,,,7590s8 YU,YUGOSLAVIA,15,,,,,,,,76108 YT,SEE YU,,,,,,,,,76308 YV,VENEZUELA,9,,,,,,,,76508 YV0,AVES IS.,8,,,,,,,,76708  ZA,ALBANIA,15,,,,,,,,76909 ZB,GILB26,,,,,,,,7390,7 XZ,BURMA,26,,,,,,,,7410P7 YA,AFGHANISTAN,21,,,,,,,,7430r7 YB,INDONESIA,28,,,,,,,,74507. YC,SEE YB,,,,,,,,,74707B YI,IRAQ,21,,,,,,,,74907V YJ,NEW HEBRIDES,32,,,,,,,,75107j YK,SYRIA,20,,,,,,,,75308~ YN,NICARAG15550,15560,15570+Vx<:P$"AUSTRALIA":850GV ";AVn ";R4T( ";XTS;X15340,15350,15360,15370kS;:P$"GREECE":850S;P$"CRETE":850S ";W(R;W15280,15290,15300LR;:P$"FERNANDO DE NORONHA":850sR;P$"ST. PETER AND PAULS ROCK":850R;P$"TRINDADE AND MARTIM VAZ IS.":850S;:2:15:"SV COUNTRIES":8:15:"1. GREECE":10:15:"2. CRETE":12:15:"3. DODECANESE":14:> ";VQt;V15230,152406Q~;:P$"NETH.ANTILLES":850cQ;P$"ST.MAARTEN SABA ST.EUSTATIUS":850Q;:2:15:"PY0 COUNTRIES":8:7:"1. FERNANDO DE NORONHA":10:7:"2. ST.PETER AND PAULS ROCK":12:7:"3. TRINDADE AND MARTIM VAZ IS."R;20:15:"WH"WHICH ONE ? > ";U,P8;U15170,15180,15190MPB;:P$"MINAMI TORISHIMA":850ePL;P$"OGASAWARA":850PV;P$"OKINO TORI-SHIMA":850P`;:2:15:"PJ COUNTRIES":8:7:"1. NETH.ANTILLES":10:7:"2. ST.MAARTEN SABA ST.EUSTATIUS"Qj;20:15:"WITCH ONE ? 00,15110,15120,15130/O::P$"BAJO NUEVO":850IO;P$"MALPELO IS.":850rO;P$"SAN ANDRES AND PROVIDENCIA":850O;P$"KS4":850O$;:2:15:"JD COUNTRIES":8:7:"1. MINAMI TORISHIMA":10:7:"2. OGASAWARA":12:7:"3. OKINO TORI-SHIMA"P.;20:15:P$"JUAN DE NOVA.EUROPA":8503N:P$"REUNION":850JN:P$"TROMELIN":850N::2:15:"HK0 COUNTRIES":8:7:"1. BAJO NUEVO":10:7:"2. MALPELO IS.":12:7:"3. SAN ANDRES AND PROVIDENCIA":14:7:"4. SEE KS4"N:20:15:"WHICH ONE ? > ";TO:T151S LINE,1E33,,,,,,,,,10730M::2:15:"FR COUNTRIES":8:15:"1. GLORIOSO IS.":10:15:"2. JUAN DE NOVA.EUROPA":12:15:"3. REUNION":14:15:"4. TROMELIN"M:20:15:"WHICH ONE ? > ";SM:S15030,15040,15050,15060M::P$"GLORIOSO IS.":850N:,,,10570'L^) UW4,SEE UA,,,,,,,,,10590FLr) UW5,SEE UA,,,,,,,,,10610eL) UW6,SEE UA,,,,,,,,,10630L) UN1,SEE UA,,,,,,,,,10650L) UK1,SEE UA1,,,,,,,,,10670L) ?,ABU AIL,,,,,,,,,10690L) ??,JABAL AT TAIR,,,,,,,,,10710M) ,DO NOT CHANGE THIUA2,,,,,,,,,104100K( UK1,SEE UA,,,,,,,,,10430OK( UK3,SEE UA,,,,,,,,,10450nK( UK4,SEE UA,,,,,,,,,10470K( UK6,SEE UA,,,,,,,,,10490K) UV,SEE UA,,,,,,,,,10510K") UW1,SEE UA,,,,,,,,,10530K6) UW2,SEE UA,,,,,,,,,10550LJ) UW3,SEE UA,,,,,,B5,,,,,,,,,102500J( UA0,SEE UA9,,,,,,,,,10270PJ2( UK9,SEE UA9,,,,,,,,,10290pJF( UK0,SEE UA9,,,,,,,,,10310JZ( UV9,SEE UA9,,,,,,,,,10330Jn( UV0,SEE UA9,,,,,,,,,10350J( UW9,SEE UA9,,,,,,,,,10370J( UW0,SEE UA9,,,,,,,,,10390K( UK2F,SEE ,,,,,,10090,I~' UK2I,SEE UC2,,,,,,,,,10110MI' UK2L,SEE UC2,,,,,,,,,10130nI' UK2O,SEE UC2,,,,,,,,,10150I' UK2S,SEE UC2,,,,,,,,,10170I' UK2W,SEE UC2,,,,,,,,,10190I' UK5,SEE UB5,,,,,,,,,10210I' UT5,SEE UB5,,,,,,,,,10230J ( UY5,SEE U,,9930&H& UK6O,SEE UF6,,,,,,,,,9950FH& UK6Q,SEE UF6,,,,,,,,,9970fH' UK6V,SEE UF6,,,,,,,,,9990H' UK6C,SEE UD6,,,,,,,,,10010H.' UK6D,SEE UD6,,,,,,,,,10030HB' UK6K,SEE UD6,,,,,,,,,10050HV' UK2A,SEE UC2,,,,,,,,,10070 Ij' UK2C,SEE UC2,,,,,,,9770(G>& UK8N,SEE UM8,,,,,,,,,9790GGR& UK7,SEE UL7,,,,,,,,,9810gGf& UK8J,SEE UJ8,,,,,,,,,9830Gz& UK8R,SEE UJ8,,,,,,,,,9850G& UK8,SEE UI8,,,,,,,,,9870G& UK8H,SEE UH8,,,,,,,,,9890G& UK6G,SEE UG6,,,,,,,,,9910H& UK6F,SEE UF6,,,,,,,* JOE DEMATTIA *.f* *Hf* BY *bf* *}f* 5-BAND DXCC * f* *f********************P0 AUGUST 1979 **e* *De* 1-714-429-0075 *^e* *xe*SAN DIEGO CA 92154*e* *e* 1023 OUTER RD #60*e* *e* N6AFD *e* *fTd?:2:15:"4U COUNTRIES":9:15:"1. I.T.U. GENEVA":11:15:"2. UNITED NATIONS"td?20:15:"WHICH ONE ? > ";Qd?Q16380,16390d?:P$"I.T.U. GENEVA":850d@P$"UNITED NATIONS":850d********************d* *e* 1 > ";O%c?:P$"NETH. ANTILLES":850Rc?P$"ST.MAARTEN SABA ST.EUSTATIUS":850c?:2:15:"3Y COUNTRIES":9:15:"1. BOUVET":11:15:"2. ANTARCTICA"c?20:15:"WITCH ONE ? > ";Pc?P16330,16340c?:P$"BOUVET":850c?P$"ANTARCTICA":850bR?20:15:"WHICH ONE ? > ";N8b\?N16230,16240,16250Rbf?:P$"ARGENTINA":850kbp?P$"ANTARCTICA":850}bz?P$"VP8":850b?:2:15:"PJ COUNTRIES":11:7:"1. NETHERLANDS ANTILLES":13:7:"2. ST MAARTEN,SABA,ST EUSTATIUS"c?20:15:"WITCH ONE ?9:15:"1. NORWAY":11:15:"2. ANTARCTICA"La ?20:15:"WHICH ONE ? > ";M_a*?M16180,16190va4?:P$"NORWAY":850a>?P$"ANTARCTICA":850aH?:2:15:"LU COUNTRIES":8:15:"1. ARGENTINA":10:15:"2. LU-Z (SEE CE9AA)":12:15:"3. LU-Z (SEE VP8)"850g`>:2:15:"KC6 COUNTRIES":9:12:"1. EASTERN CAROLINE IS.":11:12:"2. WESTERN CAROLINE IS."`>20:15:"WHICH ONE ? > ";L`>L16130,16140`?:P$"EASTERN CAROLINE IS.":850` ?P$"WESTERN CAROLINE IS.":850,a?:2:15:"LA COUNTRIES":16030,16040&_>:P$"GUADELOUPE":850A_>P$"SAINT MARTIN":850_>:2:15:"FO COUNTRIES":9:15:"1. CLIPPERTON IS.":11:15:"2. FR. POLYNESIA"_>20:15:"WHICH ONE ? > ";K_>K16080,16090_>:P$"CLIPPERTON IS.":850`>P$"FR. POLYNESIA":80,15990%^X>:P$"SOUTH AFRICA":850>^b>P$"ANTARCTICA":850i^l>P$"PRINCE EDWARD AND MARION IS.":850^v>P$"SOUTHWEST AFRICA":850^>:2:15:"FG COUNTRIES":9:15:"1. GUADELOUPE":11:15:"2. SAINT MARTIN"^>20:15:"WHICH ONE ? > ";J _>JERMADEC IS.":850*]0>P$"ANTARCTICA":850]:>:2:15:"ZS COUNTRIES":7:7:"1. SOUTH AFRICA":9:7:"2. ZS1 ANTARCTICA":11:7:"3. ZS2 PRINCE EDWARD & MARION IS.":13:7:"4. ZS3 SOUTHWEST AFRICA"]D>20:15:"WHICH ONE ? > ";H^N>H15960,15970,159IS.":10:7:"3. CHATHAM IS.":12:7:"4. KERMADEC IS."S\=14:7:"5. ANTARCTICA"s\=20:15:"WHICH ONE ? > ";F\=F15880,15890,15900,15910,15920\>:P$"NEW ZEALAND":850\>P$"AUCKLAND AND CAMPBELL IS.":850\>P$"CHATHAM IS.":850]&>P$"K":8:15:"1. SOUTH COOK IS.":10:15:"2. NORTH COOK IS."Z[=20:15:"WHICH ONE ? > ";Em[=E15820,15830[=:P$"SOUTH COOK IS.":850[=P$"NORTH COOK IS.":8507\=:2:15:"ZL COUNTRIES":6:7:"1. NEW ZEALAND":8:7:"2. AUCKLAND AND CAMPBELL INDIA":10:10:"2. (VU7) ANDAMAN & NICOBAR IS.":12:10:"3. (VU7) LACCADIVE IS."rZ|=20:15:"WHICH ONE ? > ";DZ=D15760,15770,15780Z=:P$"INDIA":850Z=P$"ANDAMAN AND NICOBAR IS.":850Z=P$"LACCADIVE IS.":850:[=:2:15:"ZK1 COUNTRIES@=:2:15:"VR1 COUNTRIES":9:10:"1. BRIT. PHOENIX IS.":11:10:"2. GILBERT AND OCEAN IS."~YJ=20:15:"WHICH ONE ? > ";CYT=C15710,15720Y^=:P$"BRIT. PHOENIX IS.":850Yh=P$"GILBERT AND OCEAN IS.":850RZr=:2:15:"VU COUNTRIES":8:10:"1.20:15:"WHICH ONE ? > ";BFX&_8025r&c18:"IS ALL THE INFORMATION CORRECT? (Y/N)";I$&hI$"Y"8046&m8000&n20:15::"WORKING":&rX1550&wDXCC$(X,1)P$DXCC$(X,3)CU$8070'|DXCC$(X,1)"O"DXCC$(X,1)"ENDMENU.":XW$:500%5007%@ EDIT PREFIX W/C STATUS=%El%J8:"TYPE PREFIX YOU WANT EDITED";:35:P$%K10:"IN WHAT COUNTRY IS ";P$;"? ";:CU$%O12:"HAVE YOU WORKED ";P$;" (Y/N)";:35:W$%TW$"Y"W$"N"8025%U8015&Y14:"HAS ";P"========================================"l$DXCC$(X,1);:7:DXCC$(X,2);:15:DXCC$(X,3);:36:DXCC$(X,4)$C11ĺ:"HIT ANY KEY TO CONTINUE.";:IE$$C11C0:7005$7035$:"THATS ALL OF THEM."$C0:Y0%"HIT ANY KEY TO RETURN TO REFIXES ";::"CONFIRMED"::*#{XY550D#|DXCC$(X,6)"Y"CC1N#}YY1k#DXCC$(X,6)"Y"C17050#DXCC$(X,6)"0"DXCC$(X,6)"END"7090#DXCC$(X,6)"Y"7060##5:"PRFX";:8:"CONTINENT";:22:"COUNTRY";:36:"DEGR"#""*$);:36:DXCC$(X,4)@"C11ĺ:"HIT ANY KEY TO CONTINUE.";:IE$T"C11C0:6005^"6035z":"THATS ALL OF THEM.""C0:Y0""HIT ANY KEY TO RETURN TO MENU.":XW$:500"X LIST PREFIXES CONFIRMED"YC0:Y1"Z7090"]#b2:12:"PX,5)"Y"C16050;!DXCC$(X,5)"0"DXCC$(X,5)"END"6090T!DXCC$(X,5)"Y"6060Z!!5:"PRFX";:8:"CONTINENT";:22:"COUNTRY";:36:"DEGR"!""!"========================================""DXCC$(X,1);:7:DXCC$(X,2);:15:DXCC$(X,3 PREFIX AGAIN BUT INPUT IT DIFFERENTLY."9 C0:X0:Y0b :"HIT ANY KEY TO RETURN.":P$:500} p LIST PREFIXES WORKED qC0:Y1 r6090 u z2:14:"PREFIXES ";::"WORKED":: XY550 DXCC$(X,5)"Y"CC1 YY1!DXCC$(#CC15(C10ĺ:"HIT ANY KEY TO CONTINUE.";:P9$C)C10C0M-5022iP:"THATS ALL OF THEM."U"HIT ANY KEY TO RETURN TO MENU."ZX0:C0:Y0[II15:1:"";:_P$:500) :15::PR$;::" IS NOT IN MY FILE.":"PLEASE TRY YOUR": "">:"========================================"]6:15:"FOUND ";::PR$:d8"PREFIX";:15:"COUNTRY";:32:"DGR";:37:"W/C"10""DXCC$(X,1);:10:DXCC$(X,3);:32:DXCC$(X,4);:37:DXCC$(X,5);"/";DXCC$(X,6)Y1XY550YY18DXCC$(X,1)"O"C05200WDXCC$(X,1)"END"C05200DXCC$(X,1)"O"DXCC$(X,1)"END"5200(DXCC$(X,1),2)PR$C05100(DXCC$(X,1),2)PR$C05150500(2):(12)::"SEARCH BY PREFIX 0 C0139"ENTER THE CALL YOU WISH LOCATED";BPR$TPR$"I"5020fPR$"G"5020xPR$"F"5020PR$"K"5020PR$"W"5020PR$"N"5020(PR$)15020PR$(PR$,2):13:13:"SEARCHING FOR ";::PR$:O4835,.7985,1.4530,.7854e'1.4530,.7723,1.4661,.7679,1.4639,.7614,1.4595,.7614,1.4486,.7679,1.4399,.7505,1.4573,.7287,1.4268,.7243,1.3766,.7461,1.3788,.7548,1.3570,.7570,1.3439,.7548,1.3308,.7592,1.3330,.7701j'1.3090,.7854,1.2479,.7854}9,91,1.5184,.8116,1.4835,.8159,1.4835,.8116,1.4704,.8116,1.4573,.8028,1.5053,.8028,1.5315,.7592,1.5293,.7330,1.5250,.7265`'1.5206,.7265,1.5053,.7418,1.5053,.7505,1.5097,.7636,1.5075,.7650,1.5097,.7700,1.5053,.7745,1.5053,.7810,1.4923,.7898,1.4923,.7810,1.,2.0944,.8552,2.0071,.8552V'1.9199,.8552,1.8326,.8552,1.7453,.8552,1.6602,.8552,1.6602,.8618,1.6559,.8618,1.6537,.8508,1.6166,.8465,1.5970,.8378,1.5882,.8412,1.5642,.8378,1.6057,.8159v['1.5882,.8203,1.5839,.8138,1.5359,.8290,1.5446,.8159,1.5359,.8186610,2.1598,.6807,2.1642,.6981,2.1709,.7069,2.1664,.7156,2.1686,.7330,2.1729,.7483Q'2.1686,.7636,2.1642,.7854,2.1642,.8028,2.1735,.8203,2.1773,.8378,2.1773,.8443,2.1424,.8399,2.1402,.8290,2.1467,.8247,2.1380,.8268,2.1380,.8378,2.1424,.8552,2.1293,.855228,.5716,2.0442,.5672,2.0464,.5760,2.0551,.5847,2.0660,.5890,2.0682,.5934,2.0857,.6000,2.1031,.6021,2.1053,.6130,2.1271,.6327,2.1293,.6392,2.1271,.6392,2.1271,.6458,2.1337,.6458RL'2.1380,.6589,2.1315,.6545,2.1358,.6632,2.1293,.6632,2.1380,.6654,2.1380,.0,.4887,1.6930,.4712,1.6973,.4538,1.7017,.4516,1.7039,.4538,1.7148,.4538B'1.7301,.4603,1.7388,.4647,1.7586,.5105,1.7715,.5192,1.7911,.5192,1.7999,.5061,1.8217,.5149,1.8435,.5345,1.8588,.5541,1.8879,.5541,1.8879,.5469,1.9388,.5469G'2.0042,.5672,2.001DXCC$(X,5);"/";DXCC$(X,6)ZAND GOOD LUCK":Q1DXCC$(X,5);"/";DXCC$(X,6)000%D$(4)0%965020%D$;"OPEN DXCC FILE"M0%D$;"DELETE DXCC FILE"f0%D$;"OPEN DXCC FILE"0%D$;"WRITE DXCC FILE"0%X15500%Y160%DXCC$(X,Y)0%Y:X0%D$,"CLOSE DXCC FILE"0%5000':(13):(13):"BYE AND GOOD LUCK": TYPE (Y/N) ";:AN$:AN$2/^$AN$"Y"AN$"N"9320A:ZA:XX1XX0:704QZ999999ī950_A$:Y$A$mB$:X$B${C$:W$C$D$:V$D$ PRINT DATA RECORDZ;" ";Y$;15);X$;" ";W$;23);V$:CNTCNT2CNT22ı("PRESS SPAM$(A$,1,1)540522,720:522L& PRINT LOG ENTRIES BY BAND(:::"ENTER BAND (160,80,75,20,15,10) ";M$:800.7000A9999999502M$X$5708558:720:558X PRINT ALL LOG ENTRIESZ::\800^700b5 - K5ABC - 5 )":+:17):"";M$:800K((M$))47((M$))58ī520T700fA999999950~M$(Y$,(M$))514506720506 PRINT LOG BY AREA NUMBER 700A999999950M$(A$,3,1)540M$(A$,2,1)540N2N1 ="LOG ENTRIES BETWEEN ";N1;" AND ";N2::800F700XZ999999950mZN1ZN2420v412720412 PRINT LOG ENTRIES BY CALL SIGN:::"ENTER ALL OR PART OF CALL OR AREA NUMBER""EXAMPLE: ( K - WA - WB|X$""D$X$G18:" ";M;" DATA ";A;",";A$;",";B$;",";C$;",";D$22:"COPY OVER THE DATA STATEMENT, THEN RUN.":17: PRINT LOG ENTRIES BY DATE::"ENTER FIRST DATE (YYMMDD) ";N1:"ENTER NEXT DATE (YYMMDD) ";N2::N20A$ d8:"BAND : ";B$?f10:"MODE : ";C$^h12:"NAME /QTH : ";D$oj4P:16:X$lX$""A(X$)n6P:16:X$pX$""A$X$r8P:16:X$tX$""B$X$v10P:16:X$xX$""C$X$z12P:16:X$256)ĺ:" **** ";M$;" ENTRY NOT FOUND ****"::300 ]:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":352 ^:1:"ENTER DATA OR RETURN FOR THE FOLLOWING." `4:"DATE : ";Ab6:"CALL : ";M((123))(((124))256)" <314- @MM10R EA000000:A$"":B$"":C$"":D$""[ F350d H390 J:::"ENTER THE ENTRY NUMBER TO BE CHANGED."::M LM$(M) T U:L0 XXX1:700 YM((123))((124)256)3445 ZM((123))((124)LOG ENTRIES .::B 0"ADDING LOG ENTRIES BY DATA STATEMENTS"t 2:"----------------------------------------" 4:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.": 6I$:I$:I$"2"P1:330 8P0:I$"1"300 :XX1:700:Z999999320 ;# " 6. PRINT ALL LOG ENTRIES") B " 9. END PROGRAM.k :"ENTER FUNCTION NUMBER ";:F$:F$| F$"1"ī300 F$"2"ī400 F$"3"ī500 F$"4"ī850 F$"5"ī550 F$"6"ī600 F$"9"ĺ"SAVE LOG": 100 , ADD ONE OF THE FOLLOWING FUNCTIONS"::A n" 1. ADD LOG ENTRIES"G pn s" 2. PRINT LOG ENTRIES BY DATE"t v x" 3. PRINT LOG ENTRIES BY CALL SIGN" z }" 4. PRINT LOG ENTRIES BY MODE" " 5. PRINT LOG ENTRIES BY BAND" ( 800326,WB5TRY,20,SSB,MESQUITE TX. T WRITTEN BY CHUCK ZAPPALA WA7VZRZ  CHANGED BY JOHNNY GRAHAM WB5TRY FOR THE APPLE II *************************d:" A M A T E U R R A D I O L O G"$ i:"SELECT         E D********************P N6AFD *+* *E* 1023 OUTER RD #60*_* *y*SAN DIEGO CA 92154** ** 1-714-429-0075 ** ** 10 AUGUST 1979 * * *,,880z 40,,,,,,890',,,,,,1E33A********************[* *u* 5-BAND W.A.Z. ** ** BY ** ** JOE DEMATTIA ** ** ,,,,,,740 26,,,,,,750- 27,,,,,,760? 28,,,,,,770Q  29,,,,,,780c 30,,,,,,790u  31,,,,,,800* 32,,,,,,8104 33,,,,,,820> 34,,,,,,830H 35,,,,,,840R 36,,,,,,850\ 37,,,,,,860f 38,,,,,,870p 39,,,, 11,,,,,,600 b 12,,,,,,6102 l 13,,,,,,620D v 14,,,,,,630V  15,,,,,,640h  16,,,,,,650z  17,,,,,,660 18,,,,,,670  19,,,,,,680  20,,,,,,690  21,,,,,,700  22,,,,,,710  23,,,,,,720  24,,,,,,730  254:7:"REVISE OR CONTINUE ? > ";J$6 J$"R"Ā> 70a  1,SAMPLE INFO,,KL7H,,,500r  2,,,,,,510  3,,,,,,520  4,,,,,,530  5,,,,,,540 & 6,,,,,,550 0 7,,,,,,560 : 8,,,,,,570 D 9,,,,,,580 N 10,,,,,,590 X------------------" 250, P$A$İ330; P$A$360D 210L A$T D$\ E$d F$l "G$t ,H${ 6I ;I1E3365 @ J4:19:A$ T10:25:D$ ^25:E$ h25:F$ r25:G$ |25:H$ 16:34:I 255:( 2-----"# x4:4:"ZONE NUMBER--> "H 8:11::"BAND CONFIRMATIONS":a :12:"80-METERS ="x 12:"40-METERS =" 12:"20-METERS =" 12:"15-METERS =" 12:"10-METERS =" :8:"DATA STATEMENT IS LINE >" :3:"------------------ZONE NUMBER NOT FOUND":12:6:"CHECK ZONE NUMBER AND REENTER ":PAUSE12500:PAUSEs F::10:14:"ENTER ZONE" P:14:"NUMBER" Z:12:"WHICH ZONE ? > ";P$ d:4:">*<";:15:"5-BAND WAZ";:35:">*<" n3:"-------------------------------  2551:I239:1:I:"*":23:I:"*":XI222:I:1:"CQ":I:39:"CQ":(5:16:"FIVE BAND":8:18:"W.A.Z":11:17:"RECORDS"214:19:"BY":17:14:"JOE DEMATTIA":20:18:"N6AFD"<PAUSE12500:PAUSE=70U A:10:11:"      *-* JOE DEMATTIA *G* *a* BY *{* ** 5-BAND W.A.S. ** *********************P AUGUST 1979 *)* *C* *]* 1-714-429-0075 *w* **SAN DIEGO CA 92154** ** 1023 OUTER RD #60** ** N6AFD **VIRGINIA,,,,,,9501 WA,7,WASHINGTON,,,,,,960T WV,3,WEST VIRGINIA,,,,,,970s WI,9,WISCONSIN,,,,,,980 WY,7,WYOMING,,,,,,990DC,3,SEE MD,,,,,,1000,1E33,,,,,,,1010********************* ** 10f PA,3,PENNSYIVANIA,,,,,,870@p RI,1,RHODE ISLAND,,,,,,880cz SC,4,SOUTH CAROLINA,,,,,,890 SD,0,SOUTH DAKOTA,,,,,,900 TN,4,TENNESSEE,,,,,,910 TX,5,TEXAS,,,,,,920 UT,7,UTAH,,,,,,930 VT,1,VERMONT,,,,,,940 VA,4,E,,,,,,780* NJ,2,NEW JERSEY,,,,,,790I  NM,5,NEW MEXICO,,,,,,800g* NY,2,NEW YORK,,,,,,8104 NC,4,NORTH CAROLINA,,,,,,820> ND,0,NORTH DAKOTA,,,,,,830H OH,8,OHIO,,,,,,840R OK,5,OKLAHOMA,,,,,,850\ OR,7,OREGON,,,,,,960A,1,MASSACHUSETTS,,,,,,7008 MI,8,MICHIGAN,,,,,,710W MN,0,MINNESOTA,,,,,,720w MS,5,MISSISSIPPI,,,,,,730 MO,0,MISSOURI,,,,,,740 MT,7,MONTANA,,,,,,750 NE,0,NEBRASKA,,,,,,760 NV,7,NEVADA,,,,,,770   NH,1,NEW HAMPSHIR,7,IDAHO,,,,,,610/l IL,9,ILLINOIS,,,,,,620Lv IN,9,INDIANA,,,,,,630f IA,0,IOWA,,,,,,640 KS,0,KANSAS,,,,,,650 KY,4,KENTUCKY,,,,,,660 LA,5,LOUISIANA,,,,,,670 ME,1,MAINE,,,,,,680 MD,3,MARYLAND,,,,,,690 MZONA,,,,,,520*  AR,5,ARKANSAS,,,,,,530I  CA,6,CALIFORNIA,,,,,,540f & CO,0,COLORADO,,,,,,550 0 CT,1,CONNECTICUT,,,,,,560 : DE,3,DELAWARE,,,,,,570 D FL,4,FLORIDA,,,,,,580 N GA,4,GEORGIA,,,,,,590 X HI,6,HAWAII,,,,,,600b ID13:C$ 10:25:D$" 25:E$. 25:F$: 25:G$F 25:H$U 16:34:I` 255: 24:7:"REVISE OR CONTINUE ? > ";J$ J$"R"Ā 50  AL,4,ALABAMA,SAMPLE INFO,,N6AFD/4,,,500  AK,7,ALASKA,,,,,,510  AZ,7,ARI8:"DATA STATEMENT IS LINE >"N }:3:"------------------------------------"W 150g P$A$İ205v P$A$230 130 A$ B C$ D$ E$ F$ G$ H$ I B1E3345 4:19:A$ 4:36:B 6:------------"* K4:4:"ABBREVITION--> "H P:4:23:"CALL ZONE--> "_ U6:4:"STATE--> " Z:11::"BAND CONFIRMATIONS": _:12:"80-METERS =" d12:"40-METERS =" i12:"20-METERS =" n12:"15-METERS =" s12:"10-METERS =" x:ABBREVIATION NOT FOUND":12:7:"CHECK ABBREVIATION & REENTER":PAUSE12500:PAUSEs 2::10:14:"ENTER STATE" 7:14:"ABBREVIATION" <:12:"WHICH STATE ? > ";P$ A:4:">*<";:15:"5-BAND WAS";:35:">*<" F3:"------------------------ ( :I239:1:I:"*":23:I:"*":OI222:I:1:"CQ":I:39:"CQ":5:16:"FIVE BAND":8:18:"W.A.S":11:17:"RECORDS"14:19:"BY":17:14:"JOE DEMATTIA":20:18:"N6AFD"PAUSE12500:PAUSE#255(50S -:10:10:"     z #?    ҠҠŠڠ!Ҡ٠ŠӠ "ҠӠӠӠڠӠ Ǡ ԠҠɠ ҠȠ ǠŠŠǠҠϠРӠŠӠ ҠҠŠҠϠ àϠŠà`àŠ;àŠȠҠàҠ+#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    ,,,,,2630)Z EA,SPAIN,14,,,,,,,,2650Rn EA6,BALEARIC IS.,14,,,,,,,,2670y EA8,CANARY IS.,33,,,,,,,,2690 EA9,CEUTA AND MELILLA,14,,,,,,,,2710 EI,IRELAND,14,,,,,,,,2730 EL,LIBERIA,35,,,,,,,,2750  EP,IRAN,21& DA,WEST GERMANY,14,,,,,,,,2490D DF,SEE DA,,,,,,,,,2510b DJ,SEE DA,,,,,,,,,2530 DK,SEE DA,,,,,,,,,2550 DL,SEE DA,,,,,,,,,2570 DM,EAST GERMANY,14,,,,,,,,25902 DT,SEE DM,,,,,,,,,2610 F DU,PHILPPINES,27,,,GAL,14,,,,,,,,23305. CT2,AZORES,14,,,,,,,,2350XB CT3,MADEIRA,33,,,,,,,,2370{V CX,URUGUAY,13,,,,,,,,2390j D2,ANGOLA,36,,,,,,,,2410~ D3,SEE D2,,,,,,,,,2430 D4,CAPE VERDE,35,,,,,,,,2450 D6,COMOROS,39,,,,,,,,2470 CE0Z,JUAN FERNANDEZ,12,,,,,,,,2190F CM,CUBA,8,,,,,,,,2210d CO,SEE CM,,,,,,,,,2230CN,MOROCCO,33,,,,,,,,2250 CP,BOLIVIA,10,,,,,,,,2270 CR3,GUINEA-BISSAU,35,,,,,,,,2290 CR9,MACAO,24,,,,,,,,2310 CT,PORTU C6,BAHAMAS,8,,,,,,,,2050E C9,MOZAMBIQUE,37,,,,,,,,2070e* CE,CHILE,12,,,,,,,,2090> CE9AA,ANTARCTICA,0,,,,,,,,2110R CE9AN,SEE VP8,,,,,,,,,2130f CE0A,EASTER IS.,12,,,,,,,,2150z CE0X,SAN FELIX,12,,,,,,,,2170(,21,,,,,,,,18902v A9X,BANREIN,21,,,,,,,,1910U AP,PAKISTAN,21,,,,,,,,1930w BV,TAIWAN,24,,,,,,,,1950 BY,CHINA,23.24,,,,,,,,1970 C2,NAURU,31,,,,,,,,1990 C3,ANDORRA,14,,,,,,,,2010 C5,GAMBIA,35,,,,,,,,2030 $"R"Ā130J A2,BOTSWANA,38,,,SAMPLE INFO,,A2ABC,,9K2ABC/A2,1770f AA,SEE K,,,,,,,,,1790 A3,TONGA,32,,,,,,,,1810&A4X,OMAN,21,,,,,,,,1830:A5,BHUTAN,21,,,,,,,,1850NA6X,UNITED ARAB EMIRSTES,21,,,,,,,,1870b A7X,QATARTA LINE D1E33170-4:20:A$<:14:B$:J"8:23:DW6:18:EfJ10:36:F^14:24:G$:24:H$:24:I$:24:J$:24:K$r:33:L255::23:17:" "24:7:"REVISE OR CONTINUE (R/C) ? > ";K$K1690P$B$İ1530&P$B$169001150CA$: : PREFIXU B$: COUNTRYdD:: ZONEv2E: : SHORTFF: : LONG ZG$: : 80 MTRSnH$: : 40 MTRSI$: : 20 MTRSJ$: : 15 MTRSK$: : 10 MTRSL: : DA = " 12:"40-METERS = "4 12:"20-METERS = "L 12:"15-METERS = "d .12:"10-METERS = " B:8:"DATA STATEMENT IS LINE > " V:3:"------------------------------------" j23:17:::"SEARCHING": ~1270 P$A$İ1530P$A$";:15:"5-BAND DXCC";:35:"]*["P f3:"------------------------------------"i z4:10:"PREFIX--> " :4:"COUNTRY-> " :16:"ZONE > " :4:"SHORT PATH > ";:24:"LONG PATH > " :10::" BAND CONFIRMATIONS ": :12:"80-METERSbP$"VU"15730$ vP$"ZK1"15790D  UK2T,SEE UR2,,,,,,,,,9650X P$"ZL5"15840k P$"FG"16000~ P$"FO"16050 P$"KC6"16100 P$"LA"16150 P$"LU"16200 P$"PJ"16260 *P$"3Y"16300 >P$"4U"16350! R:4:"]*[^P$"VK9"15430$ rP$"JD"151408 P$"VK0"15430K P$"PJ"15200_ P$"VP8"15580s P$"PY0"15250 P$"VR1"15680 P$"SV"15310 P$"ZS"15930 P$"ZS1"15930 &P$"ZS2"15930 :P$"ZS3"15930 NP$"VU7"15730 3:"PREFIX NOT FOUND":12:9:"CHECK PREFIX AND REENTER "U PAUSE12500:PAUSEx ::10:10:"ENTER PREFIX OR" :10:"NAME OF DX..." :16:"COUNTRY > ";P$ P$"VE1"15380 "P$"FR"15000 6P$"VK"15430 JP$"HK0"15070 ^( :I239:1:I:"*":23:I:"*":OI222:I:1:"CQ":I:39:"DX":25:16:"FIVE BAND":8:17:"D X C C ":11:18:"RECORD"F14:20:"BY":17:15:"JOE DEMATTIA":20:19:"N6AFD"nPAUSE12500:PAUSE255210< :10:1                              ōĠӮ΍΍ʍōԍ΍΍ˍō΍΍΍ō͍΍΍؍ήč΍΍ɍήč΍΍ٍōŠӮ΍΍ڍōˍ΍΍ōӍ΍΍вנӮ΍΍ض̠Ӯ΍΍ōٍ΍΍ՍӮ΍΍؍ōǍ΍΍ڍō΍΍ӮՍ΍΍ĵ΍΍΍ōō΍΍ȍōč΍΍ȰΠӮ΍΍̷ή΍΍Ͷ٠Ӯ΍΍дήϠύ΍΍гήˍ΍΍˰ήˍ΍΍Ӷͮ΍΍бήΠӮ΍΍׶΍΍׍ōč΍΍؍ōΠ΍΍΍ٍ΍΍΍¶Ҡ̧Ġ΍΍΍бήӮ΍΍öŮŠӮ΍΍ǴήϠٍ΍΍Ȳ͍΍΍ʶӍ΍΍Ӎč΍΍֍ō΍΍΍ڍɠ΍΍ڍɠ΍΍ɍōٍ΍΍ԍōٍ΍΍Ӎō΍΍͍ō΍΍΍΍΍ԍ΍°ō΍΍΍ÍӮҍ΍΍øӮӠӮ΍΍ȍήɍ΍΍ɍήΠЮ΍΍ˍӮ΍΍̍΍΍͍΍΍Ѝή΍΍ҍή΍΍ٷӮҮɍ΍΍Ǎōč΍΍čōŠƠ΍΍΍̍ōȠč΍΍͍ōč΍΍׍ōӍ΍΍ōٍ΍΍Ǎōٍ΍΍ōč΍ȸϠӮ΍΍¸ϠӮ΍΍¸נ΍΍̸Үč΍΍ͷΠō΍΍иήԮŠΠӮ΍΍ǍήԠ΍΍΍׸ӠӮ΍΍٠Ӯ΍΍ɍōč΍΍̍΍΍Ѝ΍΍΍ƍōō΍΍¸׍ԠӮ΍΍¸ڍ͠Ԡ̠Ӯ΍΍Íō΍΍Ƿήͮō΍ōٍ΍΍ձήĠӍ΍΍̍ōٍ΍΍͍ō٠͠Ѝ΍΍ԍōΠ͠Ю΍΍ՍŠӮ΍΍؍ŠӮ΍΍ō΍΍΍ōàӍ΍ԲōӍ΍΍ԳӮ΍΍؍Ӯٍ΍΍IJ΍΍Ҷ΍΍ĴÍŠŠӮ΍΍ҴŠŠӮ΍΍ōٍ΍΍ʍōٍ΍΍ˍΠڍ΍΍Ű؍ӮΠ؍΍΍͍ή΍΍ύ΍΍ЍӮ΍΍΍ύ΍΍ҍԠ΍΍ҵϠō΍΍ҸԠҍ΍΍ҹύō΍΍õŠ΍΍ijŠ΍΍öήͮӍ΍΍зήͮӍ΍΍ù͍ō΍΍ōӮō΍΍ŹӮ΍΍ŰӮҠӮ΍΍ŰڍӮҍ΍΍дэҍ΍΍΍΍΍д΍΍΍Ѝ΍΍΍֍΍΍΍ٍ΍΍òРƠՍ΍΍˹РƠՍ΍΍óō΍΍؍΍΍Ӎ΍΍΍΍΍΍΍΍ Ӎ΍΍ӹ΍΍õ΍΍΍д͍΍΍΍ҵӍ΍΍дč Ӎ΍΍                          PUTER AWARDS"&::20(H$)2);H$J$:9);"AN HONORARY COMPUTER":a.:20(C$)2);C$k8::BI180:"*";:I9999'HIPPERTON,FO89999D"AND NOW, YOUR CERTIFICATE SUITABLE FOR"g"FRAMING....................":"PREPARE PRINTER FOR PRINTING THE":"CERTIFICATE. WHEN READY, HIT 'RETURN' ";R$2:4 I180:"*";:I 7);"APPLE II COMA,EL,THE GAMBIA,C5K YO,RUMANIA,LIECHENSTEIN,HB0,ASCENSION,ZD8,A3,TONGA JT,MONGOLIA,BRITISH PHEONIX,VR1,JY,JORDAN,NAVASSA,KC4 ST,SUDAN,GREECE,SV,VP1,BELIZE,ANDORRA,C31 VU,INDIA,IVORY COAST,TU,FORMOSA,BV2,TURKEY,TA  AP,PAKISTAN,CLAL ZONE,COLOMBIA,HK,PY,BRAZIL,SPAIN,EA\ OE,AUSTRIA,AUSTRALIA,VK,HB,SWITZERLAND,JA,JAPAN CE, CHILE, FINLAND, OH, KL7,ALASKA,NETHERLANDS ANTILLES,PJ HC, ECUADOR,BULGARIA,LZ,ZS,SOUTH AFRICA,URUGUAY,CX FC,CORSICA, GW,WALES,LIBERI";H$1\"NOW, GO WORK SOME REAL DX ON 20 CW!!!";f9999vp GUANTANAMO BAY, KG4,CANADA,VE,TI,COSTA RICA,FRANCE,Fz KP4,PUERTO RICO,LU,ARGENTINA,G,ENGLAND,BELGIUM,ON XE,MEXICO,FEDERAL REPUBLIC OF GERMANY,DK,YV,VENEZUELA,ITALY,I& KZ5,CANONFIRMED RECORD. FB!!"B*"YOU RETIRE WITH ";W;"/";X;" WORKED/"T/"CONFIRMED."Z14"SINCE YOU DID SO WELL,";H$;", WHY"9"HAVEN'T YOU MADE DXCC FOR REAL?">"NO, YOU CAN'T DO IT ON 2 METERS."CI12000:IH:1020MR"73, :" PRESS RETURN TO CONTINUE";R$U:4:"AFTER CAREFUL SCRUTINIZATION OF YOUR""APPLICATION, THIS APPLE II TAKES GREAT""(HA! HA!) PLEASURE IN AWARDING YOU" C$;"."YXW100 "YOU HAVE ACHIEVED A ";Y;" % WORKED/"%"CORRECT, NICE GUESS!"WW1(XX1Z"YOU NOW HAVE ";W;"/";X;" WORKED/CONFIRMED."b:nP0.9N|XP755I"LID!! SUPPOSE YOU TRY NEXT LOWER CLASS""OR TAKE UP COMPUTER PROGRAMMING. ""BETTER YET, GO CB!!"850$. TRY AGAIN."XL$(1)"SURE YOU WOULDN'T RATHER TRY FOR WAS? THE CORRECT ANSWER IS:"`W0hX0sI1N~Q$,A$T0&Q$0G$:A$G$650DT0ĺL$(0)NT1ĺL$(1);XTT1bT1550lA$vWW1680"CN27 445 N38 445) N552 :3` "IF THE COUNTRY IS AN ISLAND, THEN THE " "WORD ISLAND IS NOT IN THE NAME." "ALL COUNTRY NAMES ARE TAKEN FROM THE" "ARRL'S DXCC LIST."  L$(0)"WRONG,LID! THERE IS A BAND OPENINGRAL DXCC, ADVANCED DXCC,EXTRA CLASS DXCCV 6"WHICH CLASS OF DXCC DO YOU WANT TO TRY" ;"FOR (ENTER THE CLASS EXACTLY AS LISTED" @"ABOVE)"; JC$ TC$S$(1)380 ^C$S$(2)400 hC$S$(3)420 rC$S$(4)440ELSE310 |N16 445 0 COUNTRIES" = "THE NUMBER CONFIRMED IS THE NUMBER "h "RIGHT. DXCC WILL BE AWARDED FOR 90%" "CORRECT. YOU WILL GET TWO CHANCES TO" "ANSWER CORRECTLY. GOOD LUCK!!!" S$(4) I14 S$(I) "I( , NOVICE DXCC, GENELLOWING NUMBER/"- "NUMBERS OF COUNTRIES:"S :" PRESS RETURN TO CONTINUE";R$\ :2 2);"NOVICE DXCC ------- 15 COUNTRIES" 2);"GENERAL DXCC ------ 25 COUNTRIES" 2);"ADVANCED DXCC ----- 35 COUNTRIES" 2);"EXTRA CLASS DXCC -- 5EFIXES"5 Z"AND COUNTRIES THAT MAY BE WORKED ALONG"b d"THE WAY TOWARD RECEIVING THE AMERICAN" n"RADIO RELAY LEAGUES'S COVETED DX" s"CENTURY CLUB AWARD. YOU MAY SELECT THE" x"CLASS OF DXCC THAT YOU WANT TO TRY FOR" "ACCORDING TO THE FO :59 "DXCC PROGRAM--ONLY FOR THE ARDENT DX'ER"b"MODIFIED BY LARRY ANDERSON WB5EIN":"QRZ? (WHAT IS YOUR NAME)";(H$2B1500<BF:10P"OK, ";H$;". THIS IS A GAME DESIGNED TO" U"TEST YOUR ABILITY TO IDENTIFY PR     XCC$(X,2)"O"DXCC$(X,2)"END"3275<T DXCC$(X,2)CN$3250BX M :(2)r (12)::"CONTINENT";" ";CN$:: CC1:"" "========================================": "PRFX";:(15):"COUNTRY";:(37):"W/C";:(30):"DEGR":: DXCC$(X,RETURN TO MAIN MENU" D "TYPE IN A NUMBER FROM 1 TO 7 ";:CNX CN1CN73000 CN3510,3520,3530,3540,3550,3560,500 500 SEARCH DXCC$ ARAY FOR CONTINENT Y1! XY550" YY1& DXCC$(X,2)CN$CC1+ C13200#S DBY CONTINENT":A :"========================================"o " WHICH CONTINENT DO YOU WANT LISTED?"w : "1. NORTH AMERICA": "2. SOUTH AMERICA": "3. ASIA": "4. EUROPE": "5. AFRICA": "6. OCEANIA": "7. OPERATION OF THIS PROGRAM.&*:::Q4"HIT ANY KEY TO REPEAT INSTRUCTIONS."w9"HIT RETURN TO GO BACK TO MENU.":II13:1:"";:>P$CP$(13)500H2000 SEARCH BY CONTINENT  "" 3000 (2):(12)::"SEARCH IME. AGAIN JUST FOLLOW INSTRUCTIONS AS THEY ARE GIVEN."@"THE BEAM HEADINGS ARE FOR THE CENTER OF THE CONTINENTAL UNITED STATES. ANY CHANGES IN GEOGRAPHICAL LOCATION SOULD BE ALLOWED FOR.":%"GOOD LUCK IN YOUR DXING AND IN THE ORMATION."::: "HIT ANY KEY TO CONTINUE.";:O0$@`14::"INSTRUCTIONS"::::"WHEN YOU FIRST GET THIS PROGRAM A N/N ISGIVEN IN THE W/C (WORKED/CONFIRMED) COLUMNS. PROVISIONS HAVE BEEN MADE TO ALLOW YOU TO UPDATE THIS AT ANY TWITH ONLY ONE LETTER. THESE ARE 'K,N,W,F,G,I. FOR EXAMPLE; IF YOU""WERE TO WANT TO LIST FRANCE AND TYPED IN 'I6FKK' THE COMPUTER WOULD NOT BE ABLE TO FIND IT FOR YOU. HOWEVER, IF YOU TYPED IN ONLY THE LETTER 'I' YOU" "WOULD GET YOUR INF:3:14::"INSTRUCTIONS":::"WHEN SERCHING BY PREFIX YOU MAY ENTER ALL OR ANY PART OF A STATIONS CALL. THE COMPUTER WILL THEN LIST ALL THE PREFIXES IN ITS FILE THAT COME CLOSE."C"THERE ARE ONLY 6 EXCEPTIONS. THE CALLS THAT START WAS WORKED AND IFYOU HAVE THAT PREFIX CONFIRMED.":"WITH THIS PROGRAM YOU WILL BE ABLE TO ADD UP TO 50 NEW PREFIXES. THIS WAY YOUWILL BE ABLE TO KEEP YOUR DXCC LISTING UP TO DATE AT ALL TIMES.":::"HIT ANY KEY TO CONTINUE.":P$!ALL'S PREFIX, COUNTRY, ORCONTINENT. ALL THAT IS NECESSARY IS TO INPUT THE INFORMATION THE COMPUTER ASKS ";4"FOR. THE COMPUTER WILL THEN LIST THE PROPER INFORMATION. FOR EACH PREFIX YOUWILL GET THE CONTIENT, THE COUNTRY, BEAMHEADING, IF THE PREFIX FILE"X X1550:DXCC$(X,1),DXCC$(X,2),DXCC$(X,3),DXCC$(X,4),DXCC$(X,5),DXCC$(X,6):r D$;"CLOSE DXCC FILE"y 0 :(3): (INSTRUCTIONS) "" (14)::"INSTRUCTIONS"::::k "THIS PROGRAM WILL SEARCH FOR A LISTING BY INPUTING A C 2000 + ""8. ADD NEW PREFIXES?": 9000O %"9. END PROGRAM?"::: 9999 v &"TYPE A NUMBER FROM 1 TO 9 ";:M +M1M9500 0M3000,4000,5000,6000,7000,8000,2000,9000,9999 DXCC$(550,6) 1040 "OPEN DXCC FILE" "READ DXCC"1. SEARCH BY CONTINENT?": 3000G "2. SEARCH BY COUNTRY?": 4000j "3. SEARCH BY PREFIX?": 5000 "4. LIST PREFIXES WORKED?": 6000 "5. LIST PREFIXES CONFIRMED?": 7000 "6. EDIT (W/C) STATUS?": 8000 !"7. REPEAT INSTRUCTIONS?":XCC ARRAYE (21):"DO YOU WANT INSTRUCTIONS? (Y/N) ":I$V #I$"Y"2000_ (500v :2: MAIN MENU 500 (19)::"MENU":: "========================================" 5 "WHICH FUNCTION WOULD YOU LIKE?": # )% *******BY BURT WAGNER********+9 (7):(8)["THIS IS A HAM DXCC PROGRAM"(10):"WRITTEN BY BURT WAGNER"(16):"'WB9ZRA'"ZL12315:17::"LOADING"::ZL1:2515:17::"LOADED":"":30 1000: LOAD D                      S "AWG GAUGE ";G: X(G3)392D D(460(92X))MN 8)"DIA = ";D;" MILS"\ RES CALCq "NO OF FEET ";N R(10371(DD))(1000N) 8)"RESISTANCE = ";R;" OHMS" WT CALC W(.0030269(DD))(1000N) 8)"WEIGHT = ";W;" LBS" )%XX(1((6.2832W)D)).'100WLX0I*C.0885419((ELW)D)W/CC(1X)m "CAP = ";C;" PF"s  WIRE TABLES BY J HUFFMAN ENTRY ROUTINE 1096 8)"WIRE CALCULATIONS"  DIGITS3 DIA CALCULATIONS0DIGITS3/"PERMITTIVITY OF INSULATION ";E["DIST BETWEEN PLATES , IN OR CM ";D,D$qD$"IN"DD2.54 "LENGTH OF PLATES , IN OR CM ";L,L$L$"IN"LL2.54"WIDTH OF PLATES , IN OR CM ";W,W$W$"IN"WW2.54 XD(3.1416W5N01082+8L(NNRR)(9R10ND)?:X(5DL)(RR)P<Y((9R)L)e>N((XX)(YY))o?NNXwA:B10)"INDUCT = ";L;" UH "D10)"N0. TURNS = ";NGHI CAP OF PARALLEL PLATES BY JIM HUFFMAN1096 5\F6.2832LCf8251kF1(6.2832FX1):p825LYX26.2832FTFY]825rF1(6.2832CF){825 INDUCT OF SINGLE LAYER COIL"NO OF TURNS ? ";N$"RADIUS ? ";R."SPACING ? ";D3"INDUCT DESIRED (UH) ? ";L A$"C"CA A$"L"LA2 A$"XC"X1AD A$"XL"X2AW A$"CALC"800` 700 "DESIRED VALUE (X,F,C,OR L)" %A$ *(A$)88850 /(A$)67875 1(A$)76900 4F1(((CL))6.2832) 9A$;" = ";F >RA$"XC"92S" %C. &C200,10,100,640,1000,2000,3020G I"ENTER 0 TO QUIT";FU JF04000` N:500f x  RLC PROGRAM "ENTER FLC XC OR XL THEN COMMA" "THEN ENTER NUMERIC DATA" 8)"CALC 0 STARTS PRGM" "ENTRY" A$,A A$"F"FAIGN CALCULATIONS":A12000:A( 936C 10)"WHICH PROGRAM ?"] 10)"1--RES DIVIDER"u 10)"2--P-P TO RMS 10)"3--RMS TO P-P !10)"4--AC CIRCUITS" "10)"5--SINGLE LAYER COIL" #10)"6--CAP OF PARA PLATES" $10)"7--WIRE TABLE20450 @XE1R2(R1R2)< E"THE DESIRED NUMBER IS ";XD J:X ^XR2(E1E2)E2a h325w wX(E2R1)(E1E2) |325 X(E2(R1R2))R2 325 "THE TOTAL RES IS ";R1R2;" OHMS"   ELECTRONICS CALC 15:7:"ELECTRONICS DES2R;" = P-P " :+ VOLTAGE DIVIDERK "SOLUTION FOR RES NETWORK"b :"ENTER R1 OR 0"j R1 :"ENTER R2 OR 0" R2 :"ENTER E TOTAL OR 0" E1 :"ENTER E OUT OR 0" "E2 ,R10350 1R20375 6E10400 ;E 9365001 ELECTRONICS CALCULATORM"TO CONVERT P-P TO RMSSf("P-P VOLTS ?"m2Es7<.707(E2);" RMS"Fd RMS TO PEAK AND P-Pn"CONVERT RMS":x"VALUE ?"RRR1.414:R;" = PEAK " :     ILLIAM R. DIALb LAST MOD. SEPT. 1979 FOR APPLE CORE OF SAN FRANCISCO..h}$ 'NOTCH FILTER'.C!"! PROGRAM BY WA4HUUB 73 MAGAZINE JAN,'79 PG100b SUBMITTED BY WM. R. DIAL AKRON APPLE USER GROUP GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY: APPLE USER GROUP BY WTCH FILTER IS NOT":"EFFECTIVE AT THE HIGHER FREQUENCIES!"_l"DO YOU STILL WANT THIS HIGH A"}q"FREQUENCY? (Y OR N)";Z$Z$"Y"120100 I1500%I*"ANOTHER DESIGN? (Y OR N)";M$M$"Y"100936:10:15);"GOODBYEWILL MAKE CALCULATIONS":450OCT$"FOR CONSTRUCTION OF A NOTCH FILTER.":450s&21:" PRESS THE 'ESC' TO END"+22:"< PRESS THE SPACE BAR TO CONTINUE...>"0(16384)1554905(16384)160550:16368,0::::X"BE ADVISED--THE NO   TITLE PAGE ROUTINEB 3:CT$"* NOTCH FILTER *":450e CT$"PROGRAMED BY WA4HUU":450 CT$"JANUARY 1979":450 CT$"DONATED BY WILLIAM R. DIAL":450 CT$"AKRON APPLE USER GROUP":450 CT$"SEPTEMBER 1979":450:CT$"THIS IS ";(R4):T T"THESE VALUES SHOULD BE ROUNDED TO THE":"NEAREST STANDARD VALUES"] ^900z R31(23.141592654NC) 290  PRINT CENTER ROUTINE 20(CT$)2 CT$ ""  16368,0:::10:CT$"* * * THE END * * *":450TO THE COMPUTED VALUE OF C.":' 800S "TO CORRECT THIS, WHAT IS THE NEAREST"p "STANDARD VALUE OF C";C R31(23.141592654NC1E6) ""THE VALUE OF R IS ";(R3) 'C22C ,"THE VALUE OF 2C IS ";C2 6R4R32 @"THE VALUE OF R/2 ." R% C1(23.141592654NR)C "THE VALUE OF (C) IS ";Co "IS THIS A STANDARD VALUE (Y OR N)";A$ A$"Y"400 "THE NOTCH DEPTH DEPENDS ON THE ACTUAL":"VALUES OF THE COMPONENTS. IT IS" "DESIRABLE TO GET AS CLOSE AS POSSIBLE":"FEEDING?";R2 1 "SELECT A VALUE FOR R.": "WHEN SELECTING R, THE SOURCE AND LOAD":"RESISTANCE MUST BE CONSIDERED. THE R" "SHOULD BE AT LEAST => THE SOURCE":"RESISTANCE (R=>RS) AND 0.1 OR LESS" "THAN RL. THE RATIO SHOULD BERSC6BUTLRP:C6A(C6)OH"18. ENERGY COST/YEAR =";C6fRC7LRNC:C7A(C7)\"19. LAMP COST/YEAR =";C7fC8RLLR:C8A(C8)p"20. RELAMPING COST/YEAR =";C8zC9CONL:C9A(C9)"21. CLEANING LABOR COST/YEAR =";C9C2WCTL:C2A(C2)?"14. WIRING AND DISTRIBUTION COST =";C2VC3CLNL:C3A(C3)~"15. INSTALLATION LABOR COST =";C3C4NCNU:C4A(C4) "16. NET INITIAL LAMP COST =";C4C5C1C2C3C4:C5A(C5)  50,63*"17. TOTAL INITIAL COSLR(BUNU)A2:LRA(LR)G"12. NO. OF LAMPS REPLACED/YEAR =";LRe::::::::::::"HIT ANY KEY TO CONTINUE...";: A$ " *** COST DATA ***"C1CLNL:C1A(C1)"13. NET LUMINAIRE COST =";C1A(SH) 7"9. SPACING TO MT. HEIGHT RATIO =";SHa&:"HIT ANY KEY TO CONTINUE...";: A$g0m:s?D " *** OPERATING DATA ***"N:X"10. BURNING HOURS/YEARS =";BUbl"11. REPLACEMENT METHOD---SPOT OR GROUP"v "5. AREA/LUMINAIRE =";AL# < LS(ANL):LSA(LS)e "6. AVERAGE LUMINAIRE SPACING =";LSk  TLKLNL:TLA(TL) "7. TOTAL LIGHTING LOAD =";TL  SF(TL1000)A:SFA(SF) "8. TOTAL WATTS/SQUARE FOOT =";SFSHLSCD:SH: 6NL(ALM)(LLCUMFLU), @NLA(NL)P J"1. NUMBER OF LUMINAIRES =";NLV Tc ^NULLNLq hNUA(NU) r"2. NUMBER OF LAMPS =";NU | "3. MAINTAINED FOOTCANDLES =";LM  "4. TOTAL AREA LIGHTED =";A  ALANL:ALA(AL)5 1000:"KW/LUMINAIRE INCLUDING BALLAST LOSS";KLc 1000:"COST OF WIRING AND DISTRIBUTION" "PER KW LIGHTING LOAD";WC  1000:"ELECTRICAL RATE/KW-HOUR";RP  1000:"RELAMP COST/LAMP";RL   ":10:"*** SYSTEM DATA ***" ,000:"FOOTCANDLE LEVEL MAINTAINED";LMP 1000:"AVERAGE LAMP LIFE (HOURS)";A2e 1000:"AREA";A 1000:"CAVITY DEPTH";CD 1000:"CLEANING COST/LUMINAIRE";CO 1000:"LIFE OF INSTALLATION (YEARS)";LI 1000:"BURNING HOURS/YEARS";BU;LL# Z 1000:"COST/LUMINAIRE";CLG d 1000:"MAINTENANCE FACTOR";MFs n 1000:"COEFFICIENT OF UTILIZATION";CU x 1000:"MAXIMUM SPACING-TO-MOUNTING-HEIGHT":"RATIO";MH 1000:"NET COST PER LAMP";NC 1000:"INITIAL LAMP LUMENS";LU% 1  A(X)(X100.5)100#) W:::" *** SYLVIA SIMULATION ***"::3:"SYLVANIA ECONOMIC ANALYSIS PROGRAM"(:::10:"*** DATA ENTRY ***"2 34,11: 35,23< I1 400: IF 1000 P"NUMBER OF LAMPS/LUMINAIRE"     ";M$:800!Z700:A9999999509\M$(W$,(M$))870Ba858Pf720:858d END OF REPORTl:"END OF REPORT. PRESS M FOR MENU. ";:XX$::100} 999999,9,9,9,9,9,9FCE FOR NEXT PAGE, M FOR MENU";:XX$:XX$<XX$"M"Į:100G800:[  REPORT HEADERa!"" DATE CALL BAND MODE NAME QTH"$N139:"=";:N:"="%CNT4&R PRINT LOG ENTRIES BY MODE T:::"ENTER MODE (CW,SSB,RTTY,SSTV) 720d606# READ DATA FILE>A:ZA:XX1XX0:704QZ999999ī950_A$:Y$A$mB$:X$B${C$:W$C$D$:V$D$ PRINT DATA RECORDZ;" ";Y$;15);X$;" ";W$;23);V$:CNTCNT2CNT22ı("PRESS SPAM$(A$,1,1)540522,720:522L& PRINT LOG ENTRIES BY BAND(:::"ENTER BAND (160,80,75,20,15,10) ";M$:800.7000A9999999502M$X$5708558:720:558X PRINT ALL LOG ENTRIESZ::\800^700b5 - K5ABC - 5 )":+:17):"";M$:800K((M$))47((M$))58ī520T700fA999999950~M$(Y$,(M$))514506720506 PRINT LOG BY AREA NUMBER 700A999999950M$(A$,3,1)540M$(A$,2,1)540N2N1 ="LOG ENTRIES BETWEEN ";N1;" AND ";N2::800F700XZ999999950mZN1ZN2420v412720412 PRINT LOG ENTRIES BY CALL SIGN:::"ENTER ALL OR PART OF CALL OR AREA NUMBER""EXAMPLE: ( K - WA - WB|X$""D$X$G18:" ";M;" DATA ";A;",";A$;",";B$;",";C$;",";D$22:"COPY OVER THE DATA STATEMENT, THEN RUN.":17: PRINT LOG ENTRIES BY DATE::"ENTER FIRST DATE (YYMMDD) ";N1:"ENTER NEXT DATE (YYMMDD) ";N2::N20A$ d8:"BAND : ";B$?f10:"MODE : ";C$^h12:"NAME /QTH : ";D$oj4P:16:X$lX$""A(X$)n6P:16:X$pX$""A$X$r8P:16:X$tX$""B$X$v10P:16:X$xX$""C$X$z12P:16:X$256)ĺ:" **** ";M$;" ENTRY NOT FOUND ****"::300 ]:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":352 ^:1:"ENTER DATA OR RETURN FOR THE FOLLOWING." `4:"DATE : ";Ab6:"CALL : ";M((123))(((124))256)" <314- @MM10R EA000000:A$"":B$"":C$"":D$""[ F350d H390 J:::"ENTER THE ENTRY NUMBER TO BE CHANGED."::M LM$(M) T U:L0 XXX1:700 YM((123))((124)256)3445 ZM((123))((124)LOG ENTRIES .::B 0"ADDING LOG ENTRIES BY DATA STATEMENTS"t 2:"----------------------------------------" 4:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.": 6I$:I$:I$"2"P1:330 8P0:I$"1"300 :XX1:700:Z999999320 ;# " 6. PRINT ALL LOG ENTRIES") B " 9. END PROGRAM.k :"ENTER FUNCTION NUMBER ";:F$:F$| F$"1"ī300 F$"2"ī400 F$"3"ī500 F$"4"ī850 F$"5"ī550 F$"6"ī600 F$"9"ĺ"SAVE LOG": 100 , ADD ONE OF THE FOLLOWING FUNCTIONS"::A n" 1. ADD LOG ENTRIES"G pn s" 2. PRINT LOG ENTRIES BY DATE"t v x" 3. PRINT LOG ENTRIES BY CALL SIGN" z }" 4. PRINT LOG ENTRIES BY MODE" " 5. PRINT LOG ENTRIES BY BAND" ( 800326,WB5TRY,20,SSB,MESQUITE TX. T WRITTEN BY CHUCK ZAPPALA WA7VZRZ  CHANGED BY JOHNNY GRAHAM WB5TRY FOR THE APPLE II *************************d:" A M A T E U R R A D I O L O G"$ i:"SELECT     .5598,.5256,1.5598,.5192,1.5642,.5149,1.5533,.5105,1.5598,.5061,1.5752,.5192,1.5730,.5083,1.5795,.5105,1.5861,.5083,1.6057,.5192H='1.6101,.5149,1.6319,.5192,1.6637,.5149,1.6537,.5192,1.6581,.5171,1.6559,.5127,1.6755,.4996,1.6842,.4996,1.6821,.4952,1.6934203,.4494,1.4268,.4538,1.4290,.46253'1.4333,.4625,1.4377,.4712,1.4443,.4800,1.4443,.4887,1.4421,.5040,1.4661,.5256,1.4704,.5256,1.4857,.5171,1.5010,.5280,1.5097,.5301,1.5315,.5280,1.5359,.5367,1.5381,.5294,1.5621,.52658'1.5752,.5301,1.5772,.5256,14,1.3701,.5912,1.3788,.5869,1.3810,.5781,1.3963,.5694,1.4093,.5716,1.4115,.5607,1.4181,.5541,1.4224,.5410,1.4224,.5323,1.4195,.5236$.'1.4115,.5061,1.4050,.4974,1.4072,.4931,1.4050,.4887,1.3984,.4734,1.3963,.4669,1.3984,.4538,1.4028,.4407,1.4159,.4385,1.1.3308,.6676,1.3308,.6850,1.3264,.6894$'1.3352,.6850,1.3352,.6719,1.3308,.6632,1.3308,.6458,1.3264,.6443,1.3221,.6327,1.3395,.6283,1.3221,.6283,1.3221,.6218,1.3286,.6174,1.3352,.6174,1.3374,.6109)' 1.3308,.6109,1.3352,.6065,1.3446,.6065,1.3614,.593345,1.2217,.7265,1.2326,.7265,1.2326,.7287,1.2414,.7243,1.2457,.7288,1.2479,.7221,1.2741,.7199,1.2850,.7156&'1.2959,.7069,1.2915,.7069,1.2915,.6981,1.3090,.6807,1.3177,.6916,1.3104,.6778,1.3104,.6698,1.3264,.6479,1.3221,.6632,1.3243,.6632,1.3264,.6676,,1.1825,.7963' 1.1708,.7854,1.1694,.7832,1.1868,.7767,1.2043,.7723,1.2108,.7679,1.2217,.7658,1.2348,.7505,1.2370,.7481,1.2348,.7439,1.2392,.7374,1.2348,.7374,1.2326,.7330,1.2305,.7287,1.2239,.7287k' 1.2239,.7330,1.2261,.7330,1.2261,.7345,1.2239,.7bYR1(C)lvl'DATA STATEMENTS CONTAIN LONGITUDE AND LATITUDE OF OUTLINE OF US MAP IN RADIANS '1.2479,.7854,1.2457,.7898,1.2348,.7898,1.2261,.8028,1.2217,.8159,1.2161,.8203,1.2086,.8288,1.2043,.8241,1.1912,.8268,1.1868,.8244,1.1825,.823000CC(C1)HL1Z5000*\CK6C8IZ5500BCCIQCZ5500\CK6Cbm|CK2C~CK36000DCCK6pJZ65008R1F(GD1)(H2ED2)j7000dJK16700R1FED17000,R1F1DXXR1(C) APDK34100CZ%42000DK6D96CK3GhDM4300SmD1(D)_rD2(D)iw5000uP1(P)D2A1P1A2(P)(L1)DC(D2)DM4500SK10D1(D)C1(P1A1D2)(A2D1)C1K14300C1K143VR2)O2  SZ" ( L1LLO4 L1K33000A L1L1K6K T 5400\ L1K34000i  L1L1K6v B1(L1) B1T4050 D(AP) DM4300 D1(D) D2(D) CZ PA5000 CK3 5000 (K3B1)T4250DK3000 1000 L S20$ P+ 34 S20= L,PK L97030U 2000_ 1000h &510r 1500 S201100 X1,Y1  LX1,Y1 VS21 ` W279 V191 R220 O1138 O294 X1(XVR2)O1 Y1(YZMUTH THE OBSERVER IS"< "FACING,FROM 0 TO 2PI RADIANS ";C IR ,MC(EH2)f 6GE(H2E(M))o @R10 JFR(E(M)) T400 ^M3.14159 hR10 rF1RM  :16302,0 500 2 PK2K2.1745 LK3K3.1745 2 OF PROJECTION?" . " 0 PERSPECTIVE"4 U " 1 MODIFIED PERSPECTIVE"[ | " 2 AZMUTHAL EQUIDISTANT" "ENTER THE NUMBER ";J J2350 "ENTER HEIGHT OF OBSERVER IN KM: ";H H2EH  " ENTER THE A WILLIAM D. JOHNSTON"6 " BYTE,JUNE 1979"F I1500:IN : "ENTER THE LATITUDE OF THE MAP CENTER IN RADIANS: ";A A1(A) A2(A) "ENTER THE LONGITUDE OF THE MAP CENTER IN RADIANS: ";LO  "WHICH TYPE # C(I)(I(II1))1.5708.E63787K11H(K21.5707963Y2K33.1415927j<K66.2831853wFT.00015PZ0Zd:10n" MAP GENERATION PROGRAM"s" BY GARY KELTZ"x:"BASED ON SUBROUTINES BY" }"             WHAT YOUR SOLVING FOR (Y/N)?";C$:3*C$"Y"230M/ SOLVE FOR REACTANCES4 $"X(C)"P5$J$"F USING C"P6-800LP390,430,470,510,550,590~"L","HENRIES","X(L)","OHMS","F USING L","HZ""F USING C","HZ","C","FARADS","X(C)","OHMS"B$,A$B$J$770730 # "DO YOU WANT TO CHANGE(6.28FX(3))620+&"ENTER F AND C"40F,CG:M1(6.28FC)PD620hN"ENTER C AND X(C)"tXC,X(3)bM1(6.28CX(3))l710qJ$;"=";M;" ";A$vJ$"L"P1J$"X(L)"P2J$"F USING L"P3J$"C"P4 JL) AND F." X(4),F?  -M IS THE SOLUTION TO THE PROBLEM.S MX(4)(6.28F)\ 620q "ENTER F AND L"z F,L M6.28FL 620 "ENTER X(L) AND L" X(4),L MX(4)(6.28L) 620 "ENTER F AND X(C)" F,X(3) M1VE REACTANCE)" Y" "B ^"X(C)(MEANING CAPACITIVE REACTANCE)"L c" " h"F USING L (FREQUENCY USING INFO. ON INDUCTANCE)" m" " r"F USING C (FREQUENCY USING INFO. ON CAPACITANCE)" sJ$""230 w" " |J$"X(C)"P5 "ENTER X((L)"430 J$"F USING L"4700 J$"C"510C "J$"X(C)"550[ ,J$"F USING C"590e -J$"" 6"THIS PROGRAM WILL SOLVE FOR:" ;" " @"L (MEANING INDUCTANCE)" E" " J"C (MEANING CAPACITANCE)" O" " T"X(L) (MEANING INDUCTICAPACTIVE REACTANCE IN OHMSD X(L) = INDUCTIVE REACTANCE IN OHMSr X(3) AND X(4) APPLY ONLY TO THE PROGRAM TO EXIT PRESS CTRL C DIGITS3 PROGRAM STARTS HERE "WHAT DO YOU WANT TO SOLVE FOR ?";J$ J$"L"390 J$"XR15000::0 F HOBBY COMPUTER HANDBOOK 1979H d PROGRAM **REACT**g n BY LARRY FREIDMAN WB2AHN p JE MUSGRAVE K8UCN q HOBBY COMPUTER HANDBOOK 1979 x C - CAPACTANCE IN FARRADS L= INDUCTANCE IN F= FREQUENCY IN HZ X(C) = Ty ::8:5::" ";::" SILVERCREEK APPLE USERS ";::" ":5:" ";::;8)"AKRON OHIO";9);::" ":5:;29):::;10)"SOLVE FOR REACTANCE":;7)"BY LARRY FREIDMAN, WB2AHN":(;9)"MODIFIED FOR APPLE BY"2;16)"JE MUSGRAVE" <     G$"GOLD"G$"5%"+ G$"SILVER"G$"10%"C G$"NONE"G$"20%"I O x , "BLABROREDORAYELGREBLUVIOGRAWHI" ^I12000:I:P":99? a"THE RESISTANCE IS "A;B;(W$,1,(Y6));" MEGOHMS":99y b"THE RESISTANCE IS "A;B;(W$,1,(Y3));" KILOHMS":99 c:" THE TOLERANCE IS ";G$: dX1303 (C$,3)(T$,X,3)200 (T$,X,3)(C$,3)202 Y(X1)3 X :"FOURTH COLOR ";G$ X2251 Y:::Y195= ZY596J [Y697Z \Y3Y498f ]Y294 ^"THE RESISTANCE IS "A;P$;B;" KILOHMS":99 _"THE RESISTANCE IS "A;B;(W$,1,Y);" OHMS":99 `"THE RESISTANCE IS "A;P$;B;(W$,1,(Y5));" MEGOHMSYELLOW","GREEN","BLUE","VIOLET","GRAY","WHITE"N *:"FOR FOURTH COLOR USE":l +:"NONE","GOLD","SILVER"r , 2"FIRST COLOR ";C$ 3:100 4AY 7"SECOND COLOR ";R$ 8C$R$ <:100 =BY K"THIRD COLOR ";S$ PC$S$ V100 W 936::( T$(30),C$(36)3P$".";T$NW$"000000000"x" RESISTOR COLOR CODE":350!::"936#::" TYPE COLORS AS REQUESTED":(" USE FOLLOWING COLORS". ):"BLA