L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` 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ޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&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[U"9:"1. START NEW FILE":11:"2. LOAD OLD FILE"S13:"3. DUPE CHECK"j15:"4. LIST LOG"|17:"5. END"19:" CHOICE? ";:A$:A$:A(A$)A6000,7000,4000,3000,80005090| >> HEADING <<: 10)"C O N T E "Y":L$" "O14:"DO YOU WANT TO LOG ANY REMARKS? ";:A$:A$yA$"N"IR$"Y":RE$" "15:"DO YOU WANT TO LOG THE TIME? ";:A$A$"N"IT$"Y":T$" "1000 >> MENU <<55007:17);"M E N ECT (Y OR N)? ";:A$:A$*hA$"N"4100<rA$"Y"4190b|:IS$"N":IL$"N":IR$"N":IT$"N"12:"DO YOU WANT TO LOG A SIGNAL REPORT? ";:A$:A$A$"N"IS$"Y":S$" "13:"DO YOU WANT TO LOG THE LOCATION? ";:A$:A$A$"N"IL$SSB, CW, ETC): ____"2,13:22:861:A$""4160F1A$(131)5000f6A$(A$" ",4):R2$R2$A$p;M$A$@14:"BAND (160, 75, 40, ETC): ___"J14:26:861:A$""4190OA$(131)5000TA$(A$" ",3):R2$R2$A$^16:"IS DATA CORR__________________,_________________________,____________________ _________________________,_________________________,_________________________,____________________ END,END,END,END,END ,______o _________________________,_________________________,_________________________,____________________ _________________________,_________________________,_________________________,____________________A _________________________,_______ ,DALLAS TX ,122-222-4567  GREG GRAHAM ,2014 BAMBOO ,MESQUITE TEX ,214 279-7453  _________________________,_________________________,_________________________,______________SARA GRAHAM ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453 t SNOOPY DOG ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453 4~ JOHN DOE ,405 DALLAS ST. (T$)(C$)):C$C$" ":'NNT:30007S$"Y":900Z >> CHANGE DATA STATEMENT <<i I1(C$) (NNI1),((C$,I,I))  ` JOHNNY GRAHAM ,2014 BAMBOO ,MESQUITE TEXAS ,214-279-7453 bj NNN:3000)8:12:"";C$:C$""2230Y(C$)(A$)āI1((A$)(C$)):C$C$" ":hNNA:300011:12:"";C$:C$""2260(C$)(CS$)āI1((CS$)(C$)):C$C$" ":NNCS:300014:12:"";C$:C$""2290(C$)(T$)āI1(DATA STATEMENTS <<>2007H(N$,5)"_____"ī2110=JUR5:"NAME:";12);N$p\8:"ADDRESS:";12);A$f11:"CITY/STATE:";12);CS$p14:"TELEPHONE:";12);T$z5:12:"";C$:C$""2200(C$)(N$)āI1((N$)(C$)):C$C$" ": :"NUMBER? ";DN"DN613002070(1200EN$"END"ī2070VDNRNī2030gDNRNī2070(N$,20)"____________________"2070S$"Y"400 900::DN;" NOT FOUND. PRESS KEY FOR MENU."; NN$:NN$:9004 >> ADD :N0::L02003(N$,5)"_____"1010K(N$,3)"END"1100T300^NN1h1010L23:"END OF FILE. PRESS SPACE FOR MENU. ";:C$:C$V900 >> CHANGE DATA <<:5"ENTER NUMBER OF THE DATA TO BE CHANGED.":"? ";:C$:C$6(C$)1000,2000,2100,600,510,980?900W216,0:S$"Y"990DOSĺ:"FILE BEING SAVED.....":D$;"SAVE ";PG$:990:"TO SAVE THE NEW DATA YOU WILL NEED TO SAVE THIS PROGRAM TO TAPE.":" B Y E"::b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵ i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDD> POKE SEARCH <<2#D$(4)4#ST16000:EDST6#SB$(211):SB$SB$(211):SB$SB$(194)` #768,0:76OT FOUND *****"[:"PRESS 'C' FOR CATALOG OR PRESS RETURN TO REENTER NAME ";:A$:A$kA$""7380}A$"C"7340D$"CATALOG":A$:A$216,0:7000@ >> END <<BF$""ĉ:EJD$"WRITE "F$",R0"LR$"":R$LC$:R$R$(N)R0" R$N((R$,7,2)).LC$(R$,6)=ED(N8)8PD$"CLOSE ";F$iD$"OPEN ";F$;",L56"ST16000:ED(N8(16000))216,05000 >> ERROR <<E(222)E8ĺ"***** I/O ERROR *****":7130"***** ";F$;" INDEX NTD$"OPEN ";F$;",L56"$5000>X >> LOAD OLD FILE <<Dbel10:"ENTER FILE NAME? ";F$vvF$""ī50007300::" READING DATA ":D$"BLOAD"F$".INDEX,A16000"D$"OPEN ";F$;",L56":D$"READ ";F$;",S T L O G"63:8);"BY: JOHNNY GRAHAM 'WB5TRY'"C5:5600M34,5Sl >> PRINT = LINE <<"=======================================":p >> NEW FILE <<z10:"ENTER FILE NAME? ";F$F$""ī5000N0:ST16000:EDS;"( A ZERO DELETES ALL COMMENTS )"B"< 'E' ENTERS EDIT MODE >"sN5%:868:HE$(IA%);" ";:150:AN$"K"2180AN$"E"2280AN$"0"ĢN5%:868:B$;B$;"OKAY (Y/N)? ";:150:AN$"Y"DA$(IA%)"0":2302180I1:CL%(DA$(IA%)):CL%0NCDA$(IA%);:CH%:" ";Z$:Z$""2180=DA$(IA%)Z$:230:2180D$"WRITE LOG BOOK,R"RW%:J112:DA$(J)::D$:N5%:B$;"ANOTHER RECORD (Y/N)? ";:150:AN$"N"1275AN$"Y"İ440:2180 ***IF COMMENTS ARE SELECTED***"N5%1:868:B$***********/34,0::"EDIT LOGBOOK"::34,2O400: GOSUB 'SEARCHFILE'mCZ$"D"DA$(IA%)"":2180N5%:958:B$;:"WHICH NUMBER? ";AN$:IA%(AN$):IA%132230IA%72270IA%13ĺPN$;:2180"N5%:868:B$;HE$(IA%);:CH%(36):A$(1):Z$:DA$(13):DA$(4):DA$(3):WA%:DA$(7):DA$(8):D$tN5%:868:B$;"ANOTHER (Y/N)? ";:150:AN$"Y"1000D$"WRITE LOG BOOK,R0":NR%D$"WRITE LOG BOOK COMMENTS,R0":NC%:D$:900  ON AN%=2, EDIT LOGBOOK  ***********!(F$(1))0DA$(13)"0":1250>NC%NC%1:DA$(13)(NC%)gI1K:AB%0:(F$(I1))0AB%NC%1D$"WRITE LOG BOOK COMMENTS,R"NC%:AB%:F$(I)NC%NC%1:AB%01250ID$"WRITE LOG BOOK,R"NR%:DA$(11):DA$(6);DA$(9):DA$(10):D ***WRITE RECORD TO FILE***%]ZA$"":L%(DA$(1)):I1L%:(DA$(1),I,1)" "1195wZA$ZA$(DA$(1),I,1)~I(DA$(5))4DA$(5)"0"DA$(5):1197(DA$(12))4DA$(12)"0"DA$(12):1199Z$DA$(5)"-"DA$(12)WA%(DA$(2))"$" (GAGE)";26);"MICROHENRIES",PG:G6282F" ";G;O365X300u27);(C01000.5)1000|GGP750KE PRESS ANY KEY":Z$R610%W:^\"CHANGE IN LOAD WITH CHANGE IN ANTENNA WIRE SIZE"daf"RESONANT FREQUENCY = ";F;" MHZ"k"LENGTH = ";L;" FT"p"CENTER TO COIL = ";B;" FT"uK11000:z"WIRE SIZE";25);"INDUCTIVE LOAD ";G;" GAGE"K11000:$QL* T%"TOTAL LENGTH";25);"INDUCTIVE LOAD"u*" FEET";26);"MICROHENRIES"/L(2.4B)(465F)(((230F)(2.4B))4)4(L100.5)100;9300>27);(C01000.5)1000CLHLQM:"TO CONTINU27);(C01000.5)1000!B)BQN"PRESS ANY KEY TO CONTINUE":Z$W610_:"LOAD CHANGE WITH CHANGE IN OVERALL AN- TENNA LENGTH:""CENTER TO COIL DISTANCE = ";B;" FT" "RESONANT FREQ. = ";F;" MHZ" "WIRE SIZE =TRICT NO:> ";DB 24:" >>> RETURN TO CITIES LIST Y/N ? > ";K$R K$"Y"960[ 105a  : THE DATA IS HERE AS AN EXAMPLE,ENTER YOUR OWN. :THE JAPAN CITIES WERE FOR EXAMPLE, USE YOUR OWN INFO.FF)A" ' 3000(( :8)"ONOJO"24)"SAGA"K) :8)"KUMAMOTO"24)"MIYAZAKI"U 3000w :8)"HACHINOHE"24)"MISAWA" :8)"AKITA"24)"YAMAGATA" :8)"NAGAI" 3000 :8)"SAPPORO"24)"KITAMI"S 3000T :8)"NONE" 22:12)"DISUKO"(:8)"OMI-HACHIMAN"24)"OSAKA"H:8)"SAKAI"24)"TOYONAKA"m:8)"KAWACHI-NAGANO"24)"KOBE" :8)"WAKAYAMA"24)"NISHINOMIYA" :8)"KAKOGAWA"_ 3000` :8)"KURASHIKI"24)"YONANGO" 3000 :8)"SAKAIDE"24)"TOKUSHIM*U*U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>*ATION: ";F$(1)4,B$:"LISTENER'S NAME: ";F$(2)Y,"PRINTER1":"TO S.W.L.: ";F$(1)k,"OP. ";F$(2),"THANKS FOR THE REPORT OF MY",DA$(9);" SIGNALS OF ";DA$(5);" AT",(DA$(6),4);" GMT ON ";DA$(8);" MHZ WHILE"-"WORKING ";DA$(2);"."WRITE LOG BOOK,R"RW%:DA$(1):D$'+d-+yT+z ON F1%=3, REPLY TO S.W.L. CARD{+{ ******************************+|34,0::"REPLY TO SWL CARD":34,2:400+B$;"SEND QSL CARD (Y/N)? ";:150:AN$"N"ī4000,N5%:958:B$;:"SHORT WAVE STNALS (RST) ";DA$(11);"."<* "MY RIG IS ATLAS 350XL, ABOUT"_*"150 WATTS OUT TO 3 EL. YAGI"n*"AT 15M."*((6)1ĺ"THANKS";*2(6)2ĺ"PLEASE";*<" YOUR QSL. VY 73,"*F::"VE3JRF"*P:*U"PRINTEROFF"!+ZZ$DA$(1)DA$(1)Z$:D$D CODE: ";:150:(AN$)1ĺB$;:5050C)Z$AN$(Z$,1):4:N2%:Z$a)"PRINTER1":"TO ";DA$(2)v):"OP. ";DA$(3))"I AM PLEASED TO CONFIRM OUR")"2-WAY ";DA$(9);" QSO OF ";DA$(5))"AT ";(DA$(6),4);" GMT ON ";DA$(8);" MHZ."*"YOUR SIGN5%:868:B$;"ENTER RECEIVE CODE: ";:150H(AN$""Z$(Z$,1)AN$f(6,((Z$,1)):4:N2%:Z$(N5%2:868:"('M' TAKES IT BACK TO MENU)"(N5%:868:B$;"SEND A QSL (Y/N)? ";:150:AN$"N"ı(AN$"M"ī4000$)N5%:958:B$;"ENTER SEN 'AN$"Y"ė:440:5005:4510*'40000'T' SUBROUTINE 'WRITE QSL CARD'x' ***************************'34,0::"ENTER RECEIPT CODE AND QSL":34,2:400'Z$DA$(1):21:"('RETURN' (ONLY) KEEPS PRESENT CODE)":AB%45:AD%8AB%61,(5005A&M::12:B$;B$;10)"****NO MORE!****":M12000::4000G&q& ON F1%=2, ENTER RECEIPT AND REPLY& *********************************&5000&L%(HS$(IN%)):N5%:958:B$;"ANOTHER HAM BY ";(HS$(IN%),L%3);" (Y/N)? ";:'150":I%rB$:"START AT WHICH RECORD NUMBER? ";AN$:IA%(AN$):IA%0IA%1%|B$:"END AT WHICH RECORD NUMBER? ";AN$:AC%(AN$):AC%0AC%NR%%AC%IA%AC%NR%%MIA%AC%:D$"READ LOG BOOK,R"M:QS$:D$&AD%((QS$,1)):AD%1AD%8RW%M:200:;::0$B$:"WHICH NUMBER? ";:150:F1%(AN$)L$F1%4200,4500,5500,900\$PN$;:4080b$@$J ON F1%=1, SEARCH FILE$T *********************$h34,0::2)"***SEARCH FOR CARDS TO SEND***":34,2%m::"TYPE RETURN FOR DEFAULT VALUE---J139:"*";:::"*";39)"*"Z#"* 1. SEARCH FOR CARDS TO SEND";39)"*":"*";39)"*"#"* 2. ENTER RECEIPT AND REPLY.";39)"*":"*";39)"*"#"* 3. REPLY TO SWL CARD.";39)"*":"*";39)"*"#"* 4. DONE!";39)"*":"*";39)"*"$J139:"*"IA%0CL%IA%:3145"X 31908"v (2046)1İ350:3210J" I5(I5)ĺ_" "PRINTEROFF":I" "PRINTER":(12):"PRINTEROFF":900"" ON AN%=4, PRINT QSL CARD" ************************"34,0::5)"***PREPARE QSL CARD***": #);RH$;TB$;(75);RM$;TB$;(81);QS$;P!? TB$;(85);FR;TB$;(93);MO$;TB$;(98);WA%`!D CL%03190f!E !F IF COMMENTS ARE INCLUDED!I "PRINTEROFF":D$"READ LOG BOOK COMMENTS,R"CL%:IA%,Z$:D$!N "PRINTER":TB$;(65)CL%;". ";Z$:(2046)1İ350"S INTEROFF"O IAB%AC%:D$"READ LOG BOOK,R"I:QS$:QS$"99"ĄDY$,Z$:D$:3180  ST$,QT$,NA$,DY$,ZA$,CL%,FR,MO$,WA%,RH$,RM$:D$  DY$(DY$,2)(DY$,3,3)(DY$,2) ! "PRINTER" & I;6)DY$;"/";ZA$;25)ST$;"!: TB$;(37);NA$;TB$;(50);QT$;TB$;(68LUE:"::5)"START: RECORD ONE":5)"END : LAST RECORD":i "---------------------------------------" ::"START AT WHICH RECORD? ";AN$:AB%(AN$):AB%0AB%1 B$:"END AT WHICH RECORD? ";AN$:AC%(AN$):AC%0AC%NR% "PRINTER1":350:"PR,R"CL%:LL%(I):F$(I):LL%(I)0CL%LL%(I):II1:2330I$ D$:220:2180O k ON AN%=3, PRINT LOG ******************* 34,0::12)"***PRINT LOG***": "---------------------------------------": B$:"TYPE RETURN FOR DEFAULT VA%NC%1:DA$(IA%)(NC%):2300rD$"READ LOG BOOK COMMENTS,R";CL%:LL%(I),F$(I):LL%(I)0CL%LL%(I):II1:2290D$:K1:700: EDIT COMMENTS KINC%NC%1:LL%(I)NC%:II1:2310 LL%(K)0:CL%(DA$(IA%)):I16 D$"WRITE LOG BOOK COMMENTSFD1(A$)# d(A$,FD,1)"S"3600 fFD:354> h140:354} :810::" ENTER FIRST OR FULL NAME."::810::M$ 800 120:A$"END"İ200:400 M$(N$,(M$))İ140 420  APPLE CORPS LIST M$"APPLE CORPS":800120 RESTORE :A$"1000"P "+++++ END OF SEARCH. ";E1;" ENTRIES. +++++":E0X 23 "PRESS M FOR MENU, SPACE FOR NEXT SEARCH";:M$:M$"M"ġ:10 ,I139:".";:I:: ^ STORE LIST `M$"STORE":800 b120:A$"END"İ200:350 cX(B$):39X);B$" C$"*"1809 X(C$):39X);C$} 5);"# ";((123))(((124))256);:E$"*"ĺ39(E$));E$:191 300 LL6:L16ı 300 23:"PRESS M FOR MENU, SPACE FOR NEXT PAGE.";:R$:R$"M"Į:10 800 TO END PROGRAM.") Z:M$:M$"1"4009 [M$"2"500I \M$"3"600Y ]M$"4"700i ^M$"5"900y _M$"6"350 `M$"7"450 aM$"8"650 cM$"9"998 d90 xA$,N$,B$,C$,D$,E$ yEE1 z PRINT LINE :N$;", ";D$ Y FIRST OR FULL NAME."::"2 LOOK UP BY LAST NAME.":Y T"3 LOOK UP BY HAM CALL.": U"4 TO ADD OR CHANGE AN ENTRY." V:"5 TO LIST ENTRIES." W:"6 TO LIST STORES." X:"7 TO LIST APPLE CORPS." Y:"8 TO LIST 'MARCS'."::"9_D *************************?* PHONE DIRECTORY III *^* *}* BY: JOHNNY GRAHAM ************************** :E0:81011);"PHONE DIRECTORY"R11);">> SELECT ONE <<":8107 S:"1 LOOK UP B                                    RD."45L':"FOR COMPLETE DOCUMENTATION, SEND $3.00"W5V'"TO COVER POSTAGE AND PAPER."{5`'::"PRINTER ROUTINES ARE FOR"5j'"'ELECTRONICS SYSTEMS' INTERFACE"5t'::"HIT ANY KEY ";:AN$::" 0. RECORD"B4" 1. STATION"," 2. QTH"," 3. NAME"," 4. DATE"a4':"FOR ASSISTANCE, WRITE"~4':"MIKE MACKAY, VE3JRF"4$'"14 PLAZA COURT"4.'"NEPEAN, ONTARIO, K2H 7W1"48':"FOR A 20 METER SKED."5B':"FOR SOME DOCUMENTATION, SEND A QSL CA 9. QTH:"C3`"10. NAME:","11. QSL:","12. ENDTIME:","13. COMMENT:"3j" 0. RECORD:"," 1. QSL:"," 2. STATION:"," 3. QTH:"," 4. NAME:"3t" 5. DATE:"," 6. TIME:"," 7. COMMENT:"," 8. FREQ'CY:"," 9. MODE:","10. POWER:"3~"11. RST HIM:","12. RST ME:"4:D$"CLOSE">2lD$"LOCK LOG BOOK":D$"LOCK LOG BOOK COMMENTS"n2v22:B$;"DONE!";37)"73!";:I1100::B$:t2Jz2K2L" 0. RECORD:"," 1. DATE:"," 2. POWER:"," 3. MODE:"," 4. FREQ'CY:" 3V" 5. TIME:"," 6. STATION:"," 7. RST HIM:"," 8. RST ME:","16368,0:IA%2116680I1IA%(CV%):IA%127Ĺ16368,0:IA%2116680P1I135,24:23:958:B$;"ANOTHER ";:L%(HS$(IN%)):(HS$(IN%),L%3);" (Y/N)? ";:150:AN$"N"9001":65801U1V ON AN%=7, EXIT1W ************** 2X34,0:OOK,R"RW%:QS$:QS$"99"ĺD$:6660I0J1IN%:Z$:J:Z$ZA$ĺD$:66600D$"READ LOG BOOK,R"RW%:QS$,ST$,QT$,NA$,DY$:D$:KK10K;". RECORD: ";RW%;17)"QSL: ";QS$;28)DY$:ST$;" ";NA$;" ";QT$:0(37)2066600IA%(CV%):IA%12766551";:150:IN%(AN$):IN%59004/IN%4ĺPN$;:6560_/CV%16384:K0:B$:HS$(IN%);:" ";ZA$/:23:5)"*** HIT 'S' KEY TO ABORT ***":5)"*** ANY OTHER TO CONTINUE ***";:3:8:"----";ZA$;"---":34,3:35,22/INR%11:RW%I"0D$"READ LOG B4000 .d6.n ON AN%=5, LIST PREVIOUS CONTACTS_.x ********************************.34,0::"***** LIST OF PREVIOUS CONTACTS ****":34,2.:"SEARCH MODES:":I1N1%:"-";:::.I14:HS$(I)::" 5. DONE!"/B$:"WHICH NUMBER? "%-"MY RIG IS ATLAS 350XL, ABOUT"I-"150 WATTS OUT TO 3 EL. YAGI."i-"THANKS YOUR QSL. VY 73,"-::"VE3JRF"::-"PRINTEROFF"-L%(HS$(IN%)):N5%:958:B$;"ANOTHER SWL BY ";(HS$(IN%),L%3);" (Y/N)? ";:150:AN$"Y"ė:440:5510.T LETTERS)"Z:810$\:16:M$-b800Jl120:A$"END"İ200:600cvM$(E$,(M$))İ140l620} LIST MARCSM$"MICRO USERS"800120:A$"END"İ200:650FD1(A$)(A$,FD,1)"M"668FD(E$,1)"+"662:A$"END"İ200:450$FD1(A$)<(A$,FD,1)"A"460IFD:454W140:454:810::" ENTER LAST NAME."::810::M$800120:A$"END"İ200:500M$(N$,(M$))İ140520 X:810::" ENTER CALL (ALL OR LAS$(K)C$(K1):N$(K)N$(K1):Q$(K)Q$(K1):T$(K)T$(K1):K:XX1:YY1:ZZ1:110VuBY N8AD, 73, OCT 80, P120CONVERTED BY WB1FOKR HE IS LOOKING FOR YOU":Q11QQ1T$(C)"":Q08VCB[Q0:C1Y1:T$(C)Q$(X)ĺC$(X);" CALL ";C$(C);" ";N$(C);" HE IS LOOKING FOR YOUR CITY":Q1Q1T$(C)"":Q0CQ0::"WHAT NUMBER DO YOU WANT TO DELETE";DPKDX:CX);"---";N$(C);" ";C$(C);" IN ";Q$(C);" CHECKED IN # ";C:R1WC:R1T$(X)"":1035Q0R0ĺ" NOT AVAILABLE YET ":5:"PRESS RETURN";G$: Q0:R0:5:"PRESS RETURN TO CONTINUE ";G$:LC1Y1:T$(C)C$(X)ĺC$(X);" CALL ";C$(C);" ";N$(C);"RRECT TRAFFIC? ";T$(N):T$(X)T$(N):C$(X)C$(N)::1000:T$(N)T$(X):T$(X)""S110C1Y1:T$(X)C$(C)ĺC$(X);"---";N$(C);" ";C$(C);" IN ";Q$(C);" CHECKED IN # ";C:Q1CQ1T$(X)"":1015C1Y1:T$(X)""ī1025<T$(X)Q$(C)ĺC$(NAME"" 3 QTH"'" 4 TRAFFIC":" 5 NOTHING"O"-------------"Z" ";HH1Ą"WHAT IS THE CORRECT CALL SIGN? ";C$(N)H2Ą"WHAT IS THE CORRECT NAME? ";N$(N)H3Ą"WHATI IS THE CORRECT QTH? ";Q$(N)JH4Ą"WHAT IS THE COANT TO DROP? ";F$OX1Y:F$C$(X)C$(X)C$(X)"*":Q$(X)"*"Q$(X):T$(X)""VX_110:NY:"WHAT NUMBER DO YOU WANT TO EDIT? ";N::C$(N);8)N$(N);18)Q$(N);30)T$(N)H5::"WHAT DO YOU WANT TO CHANGE?"" 1 CALL"" 2 ::"WHAT CALL SIGN ARE YOU LOOKING FOR? ";F$v]X1Y:F$C$(X)ĺN$(X);" "C$(X);" IN ";Q$(X);" CHECKED IN # ";X:Q1}bXgQ0ĺF$;" IS NOT AVAILABLE YET"l::5:"PRESS RETURN TO CONTINUE ";G$qQ0:110:"WHAT CALL SIGN DO YOU WINUE";G$:110: ::"WHAT CITY ARE YOU LOOKING FOR ";F$ X1Y:J1(F$):F$(Q$(X),1,J)ĺN$(X);" ";C$(X);" IN ";Q$(X);"CHECKED IN # ";X:Q1 J:X Q0ĺF$;" IS NOT AVAILABLE YET" :5:"PRESS RETURN TO CONTINUE ";G$ Q0:110-X)"TRAFFIC":I140:"-";:! ;XA @:"END OF LIST SO FAR ";G$N EW0:110 :"THIS IS A LIST OF ALL THE TRAFFIC WE ARELOOKING FOR":I140:"-";: X1Y T$(X)""420 T$(X);" ----- BY ";C$(X) X ::5:"PRESS RETURN TO CONT5 1000 :X! ZX:110p ,:"#";5)"CALL";12)"NAME";20)"QTH";30)"TRAFFIC":I140:"-";::X1Y 1X;4)C$(X);11)N$(X);19)Q$(X);30)T$(X) 6WW1:W20ĺ:5:"PRESS RETURN TO CONTINUE";G$:W0::"#";5)"CALL";12)"NAME";20)"QTH";30:"WHAT IS THE CORRECT CALL SIGN? ";C$:C$""C$(X)C$A 1100b :"WHAT IS THE NAME ";N$(X)| N$(X)""N$(X)"N/A" :"WHAT IS THE QTH ";Q$(X) Q$(X)""Q$(X)"N/A" 1200 :"WHAT IS THE TRAFFIC (NONE-RTN) ";T$(X) T$(X)""26 sC$(X) xC$(X)""115/ }C$(X)"X"1500B C$(X)"L"200U C$(X)"R"300h C$(X)"T"400{ C$(X)"F"500 C$(X)"C"600 C$(X)"D"700 C$(X)"E"900 YX:XX1 115 :XZY 17)C$(X) C$(X)"L"1107  INITIALIZE7C$(100),N$(100),Q$(100),T$(100)FdAMAIN PGMRiX1:Z1n:"L=END LIST","R=LIST ENTRIES":"T=LIST TRAFIC","C=LOOK FOR CALL":"F=FIND CITY","E=EDIT":"X=DELETE CHECK-IN":I140:"-";::"THIS IS A SCRATCH PAD FOR CHECK-INS"        TE ALLAN,2115 BAMBOO,MESQUITE 75150,H-279-9419,K5PD A,MITCH MAYBORN,4703 W. LOVERS LN,DALLAS TX 75209,H/351-1263 B/358-3456, A,DON RAY WILLIAMS,7830 GLENNEAGLE DR,DALLAS TX 75248,H/661-0415 B/661-6469, A,BOB MONAGHAN,PO BOX 2182 SMU,DALLA690-0847,\  A,RUDI OTTO,2111 COLUMBIAN CL DR.,CARROLLTON TX 75006,H/242-4956 B/369-0181,  A,CID NEWBERRY,3206 KNIGHTS HAVEN LN,GARLAND TX 75042,H/495-5493 B/634-4230, A,????? G. FRANK,1814 VILLANOVA,RICHARDSON TX 75081,H/234-5600,3 *,PE,H/363-1117 B/742-4411,j A,CURTIS IRWIN,1505 MEADOWVIEW DR,RICHARDSON TX 75080,H/238-9547 B/748-8511, *,SARA GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,279-7453,WB5UJU  A,HOWARD L. STROKES,2913 WHITEMARSH CIRCLE,RICHARDSON TX 75080,H/235-2227 B/Y GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,H/279-7453 B/634-4463,WB5TRY A,ROD LEHMAN,7185 KENDALLWOOD,DALLAS TX 75240,H/239-2966, A,THOMAS ROELKE,6814 PRESTONSHIRE,DALLAS TX 75251,H/369-9449, A,DAVID BOCK,5210 ROYAL CREST DR.,DALLAS TX 75229H/357-5904 B/357-1555,Z A,EDWARD KUEMIERZ,1405 HOMESTEAD,GARLAND TX 75042,H/495-8596, A,BOBBIE FERRELL,13551 CHALLABURTON,DALLAS TX 75234,H/243-6347 B/661-1211, A,DAVID LEMONS,1900 SAM BASS APT. H-6,DENTON TX 76201,382-1792,D AM,JOHNNROBERT D. BOWSER,1029 FORESTGROVE,DALLAS TX 75218,H/327-3274 B/350-8821, A,DAVE KNIGHT,5746 ENSIGN DR.,FT. WORTH TX 76119,H/478-9356,  A,BART GRAHAM,2014 BAMBOO,MESQUITE TX 75150,279-7453, A,JIM J. MAYS,3651 MID PINES DR.,DALLAS TX 75229,":"SAVE ADDRESS LIST"31023,0::"RUN HELLO"J DATA STATEMENTS A,ROBERT F. ZANT,906 LYNHURST,DENTON TX 76201,H 817/382-6353 B 788-2311, A,DAVID H. HARLOWE,8567 SOUTHWESTERN BLVD. #2226,DALLAS TX 75206,H/369-5022 B/651-5528,H A, THE DATA STATEMENT, THEN RUN.":17:\ :810:" SEARCH FOR >> ";M$;" <<":L1:810:u*I139:"-";:I:: LIST ALL ENTRIESM$"ALL"800120:A$"END"İ200:900140970:(1023)1Ģ10:" DATA BEING SAVED...$X$""B$X$$8P:16:X$6X$""C$X$H10P:16:X$ZX$""D$X$l 12P:16:X$~ X$""E$X$14P:16:X$X$""A$X$18:" ";M;" DATA ";A$;",";N$;",";B$;",";C$;",";D$;",";E$1023,1%22:"COPY OVERR THE FOLLOWING."/4:"NAME : ";N$M6:"ADDRESS : ";B$k8:"CITY / STATE : ";C$10:"PHONE # : ";D$12:"CALL : : ";E$14:"LOOK UP CODE : ";A$:7204P:16:X$X$""N$X$6P:16:X120(M((123))((124)256)744M((123))((124)256)ĺ:"  **** ";M$;" ENTRY NOT FOUND ****"::200:700:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":752:1:"ENTER DATA OR RETURN FO(124))256)!N2MMN2:715.NM:7109MM10aN$"":B$"":C$"":D$"":E$"":A$""j750s79022:"'A'=APPLE CORPS, 'S'=STORE, 'M'=MARCS"::810::"ENTER THE ENTRY NUMBER TO BE CHANGED."::810::MM$(M):L0140662H:810::"CHANGES OR ADDS MADE BY DATA STATEMENTS"S:300:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.":810:I$:I$"2"P1:740P0I$"1"700N1000120:A$"END"714 M((123))(( "O DR O ՕLMH!!V67h"H fh1╍ f `L ɍɉFH)h` f f`╍ fL67`) fV67`(!67`7  -4524,+ WD5DRI`*l A,JOHN M. SKINNER,2728 WELBORN #236,DALLAS TX 75219,H/526-7538 B/363-2223,*n A,STEVE MARRERO,1302 N SHILOH RD #152,GARLAND TX 75042,H/272-4906 B/234-5956,+p A,NORMA HORTON,RFD-3-BOX 92A,LEWISVILLE TX 75056,H/242-8079 B/386-240ICHARDSON TX 75081,H/231-7350,s)f A,SAM B. MARCUS,2355 STEMMONS FRWY #907,DALLAS TX 75204,H/361-1155 B/637-6700,)h A,C. COLLINS PIPPIN,2111 JUANITA DR,ARLINGTON TX 76013,H/265-3825 B/265-1351,*j 1130,GARY TURNER,2601 ARROYO #328,DALLAS 75219,522WETZEL,3311 BEVERLY DR.,DALLAS TX 75205,H/321-7515 B/742-7201,(` 1120,HOWARD CUNNINGHAM,5759 PINELAND APT.1076,DALLAS,369-0480,+ WD5DBC(b A,JAMES & ANNE CHASTAIN,130 OAKRIDGE,LEWISVILLE TX 75067,H/436-5460,)d A,CRAIG LARSEN,4 GREEN VIEW CIR.,R,+ WD5CVDc'X A,WALTER T. MCKAY JR,1428 CROSS BEND RD,PLANO TX 75023,H/423-7925 B/423-8323,W5SFP'Z A,B.C. HUNSUCKER,600 TRACY,GREENVILLE TX 75401,H/455-1863 B/455-4220,'\ A,SCOTT MIDDLETON,BOX 841,CORSICANA TX 75110,H/214/872-2481,>(^ A,OTTO D TX 75042,H/495-1757 B/658-2971,t&R A,TOMMY R. RODGERS,6631 ROUND ROCK RD,DALLAS TX 75248,H/233-2920 B/748-9421,&T A,WILLIAM P. SMITH,2032 HAYMEADOW,CARROLLION TX 75006,H/242-4308 B/238-5065, 'V 1110,EDDIE HILL,1704 WESTLAKE,PLANO 75075,423-6300JOHN L. SNIDER,5001 BOWSER #116,DALLAS TX 75209,H/528-8689,%L *M,PAUL EVANS,340 WILLOW WOOD DR.,PLANO 75074,424-8365,K5AT%N A,HAROLD WESTERHEIM,1905 WEST WAY,GARLAND TX 75042,H/276-4730 B/276-8382,!&P A,KENT A. KOEHLER,3110 TEAKWOOD DR,GARLANB5ABGW$D A,JACK P. MORGAN,P.O. BOX 35887,DALLAS TX 75235,H/351-6261 B/358-2431,W5LQR$F A,EARL BORN,4326 PINERIDGE DR,GARLAND TX 75042,H/276-2716 B/387-2755,$H A,BOB MATZINGER,P.O. BOX 13446,ARLINGTON TX 76013,H/817/275-2910 B/2665-8122,;%J A,75209,H/357-9708 B/689-2833,W5GITs#> A,JIM & DONNA HOLLOWAY,2419 WINTHROP,DALLAS TX 75228,H/328-1217 B/996-5952,#@ A,BOB R. PEEPLES,1604 DRAKE DR.,RICHARDSON TX 75081,H/690-4667 B/241-5182,$B *M,RANDY NORTHCUTT,BOX 254,ROXTON 75477,742-8438,W SANDER-CEDERLOF,2519 KLONDIKE,DALLAS TX 75228,H/327-3444 B/238-5051,"8 *M,SKIP BYNUM,6219 MARTEL,DALLAS 75214,821-4933,WD5AAZ": A,MIKE LAUMER,1832 SCHOOL RD.,CARROLLTON TX 75006,H/245-3927,!#< A,R.R. REMBER M.D.,4254 SHORECREST DR,DALLAS TX B]!0 A,RAY M. THOMPSON,1206 CHEROKEE PLACE,RICHARDSON TX 75080,H/231-0765 B/996-6337,W5OUS!2 A,TOM BONFIELD,7411 CARTA VALLEY DR.,DALLAS TX 75248,H/661-9530 B/573-2313,!4 A,N.C. DEALEY,3000 HOOD ST.,DALLAS TX 75219,H/528-8909 B/SAME,E"6 A,BOBH/522-6790,f * A,DR. J.H. NICHOLSON II,9230 CORAL COVE DRIVE,DALLAS TX 75231,H/341-3681 B/327-4375, , A,JOHN BRODERICK,8635 SHAGROCK,DALLAS TX 75238,H/341-8567 B/341-1635,!. *M,JOHN DASHNER,11621 DENNIS RD. APT.103,DALLAS 75229,243-2427,WA4CYIR.,DALLAS TX 75234,H/241-4696 B/631-5560,q$ *M,ROBERT W. FLATT,2610 PROVINCE LANE,DALLAS 75228,328-5510,*& A,FRANK A ST.CLAIRE,12123 SHIREMONT,DALLAS TX 75230,H/233-9639 B/651-1645, ( A,CAROL GLITSCH BURNETT,3525 PRINCETON,DALLAS TX 75205,966 B/892-9101,s A,PATRICIA & JOE ENTESARI,4004 RIDGLEA C/C DR. #203,FT. WORTH TX 76126,H/738-0118 B/266-4372,  A,ROBERT D. WHITTINGTON,7373 VALLEY VIEW LN #1014,DALLAS TX 75240,H/233-4504 B/243-6721,*" A,PAUL E ATKINSON,14223 CORAL HARBOVR CS TX 75275,B/692-2749,W5VCl A,MICHAEL SANTOVEC,3747 BROOKHAVEN CLUB DR #449,DALLAS TX 75234,H/247-6991, A*R,GREG GRAHAM,2014 BAMBOO,MESQUITE TX 75150,H-279-7453,WB5WGA A,DR. ANTHONY E. STEPHENS,AUSTIN COLLEGE,SHERMAN TX 75090,H/214/892-4  D$(4)*D$;"OPEN LOG BOOK,L100"FD$;"WRITE LOG BOOK,R0"T("0":"0"y2D$;"OPEN LOG BOOK COMMENTS,L35"<D$;"WRITE LOG BOOK COMMENTS,R0"F"0"PD$;"CLOSE"Z  SIMS,10412 VISTADALE,DALLAS,348-4623,R W5RYAr8 1470,LARRY HERRING,2415 INWOOD RD.,DALLAS 75235,350-9279,W5VAL8 1480,HUGH SPRINGFIELD,2320 EVERGREEN,CARROLLTON 75006,242-5849,WA5NOA9 1490,GEORGE SHANKS,13816 BRAEMAR DR.,FARMERS BRANCH 75234,2,RICHARDSON 75081,238-0773,+ W8TIFb7 1430,JIM SANDERS,9017 LARCHWOOD LN.,DALLAS,341-2883,AE5C7 1440,TOM ASCHENBRENNER,14720 CHERRY HILLS,FARMERS BRANCH,243-5068,WB5PUC7 1450,BILL CANTRELL,7642 LA SOBRINA,DALLAS,233-6507,WA5YPI-814460,JIM14,+ W5VKHO6n 1390,JOHN HOLMES,725 LAGUNA,GARLAND 75043,271-1688,+ WA5WXA6x 1400,MIKE EARLES,10616 GROVE OAKS,DALLAS 75217,286-1381,+ WA5YJQ6 1410,DAN YORK,2415 HILLGLEN,DALLAS 75228,327-5168,+ WB6QWB#7 1420,KARL KANALZ,641 TIFFANY TR. DALGREEN,DALLAS 75214,827-7958,+ WB5RZJr5P 1360,THEODORE BUELL,600 JOYCE DR.,GARLAND 75040,276-1493,+ WB5TBL5Z 1370,JIM CASON,910 ROAMING RD.,ALLEN 75002,727-5188,+ WB5UAS 6d 1380,SPARKY YOUNG,13656 LITTLECREST DR.,FARMERS BRANCH 75234,247-644( 1320,GENE TOBABEN,306 WATSON DR BOX 366,ALLEN 75002,727-3474,+ W5RQC42 1330,JIM HUDSON,5507 RIDGETOWN CIR.,DALLAS 75230,661-5126,+ WB5RTY4< 1340,DICK PIERCE,5731 BERKSHIRE LN.,DALLAS 75209,369-5561,+ W5RXJ)5F 1350,JAMES BENNINGFIELD,394927 PATIO COURTS,GARLANDD 75043,270-1834,+ WA5KTCt3  1290,HAL MILES,9504 LOMA VISTA,DALLAS 75243,341-4561,+ AD5L3 1300,TOM HART,3107 PEPPERTREE PL.,PLANO 75074,423-5536,+ WB5OHM3 1310,GEORGE BEAL,BOX 1872,GREENVILLE 75401,455-9178,+ W5OXLJN5IDV2 1250,TONY GIANDALIA,806 DEL LENORA #24,DUNCANVILLE 75116,298-2073,+ WD5IMT2 1260,JERRY RANDALL,1830 MARIPOSA,DALLAS 75228,328-9740,+ WB5ISM2 1270,FRED RAYMOND,710 CAMERON AVE.,DALLAS 75223,827-9208,+ WD5KBG13 1280,DENNIS RECLA,9,5000 LA SALLE CIRCLE,ARLINGTON 76016,817-429-6949,+ K5HFT1 1220,RANDY OTT,710 WREN AVE.,DUNCANVILLE 75116,296-4815,+ K5HJ1 1230,JAMES TODD,3528 TOWNSEND,DALLAS 75229,361-1437,+ WA5HTT2 1240,BILL TRENT,438 HUGHES,IRVING 75062,252-4698,+ N 76201,817-387-5905,+ KB5FAc0 1180,CHUCK LEE,3122 PAMELA PL.,GARLAND 75042,495-3855,+ WB5FCD0 1190,TOM WALSTON,8826 GRAYWOOD,DALLAS 75243,341-0867,+ W5FPR0 1200,RALPH IMMEL,7514 OAK BLUFF,DALLAS 75240,239-1489,+ AD5G;1 1210,RON ADAIRNJ 07640,H/201/768-9274 B/212/595-3600,y/ A,ABACUS,2850 JENNIFER DR,CASTRO VALLEY CA 94546,H/213/538-2431 B/581-2748,/ A,VERNON LEMENS JR,5905 LOOKOUT MOUNTAIN DR,AUSTIN TX 78731,H/453-6032 B/476-2608,0 1170,DEANE PETERS,816 WENDSOR DR.,DENTOST. PAUL #212,RICHARDSON TX 75080,H/231-5432,s. 1160,JAMES HALL,RT.1 BOX 826A,MESQUITE 75181,286-3052,+ WD5EUN. A,JIM HURST,128 TUDOR ST,PINEVILLE LA 71360,H/318/445-7753 B/445-8211,'/ A,CLIFTON M. HOWARD M.D.,58 VAN ORDEN RD,HARRINGTON PARK DZMJ- A,DAN DAVIS,3904 BOISE CT,IRVING TX 75062,H/255-9257 B/661-3390,- A,ALAN M. VILLIERS,5053 CEDAR SPRINGS #241,DALLAS TX 75235,H/526-1366 B/361-8608,- A,JILL P. DAVID,221 WOODCREST,RICHARDSON TX 75080,H/234-1420,-. A,FRANCO ROBBA,905 LAS TX 75243,H/349-7462,o,z A,JIM ADKISSON JR,6301 CHAPMAN DR,GREENVILLE TX 75401,H/214/455-8867 B/455-6122,,| A,SCOTT LONG,922 HERITAGE CIR.,GARLAND TX 75043,H/270-9167 B/238-5951,-~ 1150,BOB DUKE,13526 PYRAMID DRIVE,DALLAS 75234,241-2888,+ K54,H+r A,DON SMALL,P.O. BOX 6992,TYLER TX 75711,H/593-6104 B/593-2100,+t 1140,THOMAS HATCHER,P.O.BOX 943,FORNEY 75126,226-1387,+ WD5DTG+v A,TERRY MUNCEY,PO BOX 1810,DALLAS TX 75221,B/387-2755,WB5OAS,x A,JIM BOOTH,9475 FOREST SPRING #2102,DAL -2058,+ WB5YPSZ@1760,LUKE DAVIS,1333 CEDAR KEYS,LEWISVILLE 75067,436-7409,+ KA5CXM@1770,GLEN DEEN,629 WINCHESTER DR.,RICHARDSON 75081,235-4391,+ AG5L@1780,BURTON DENMAN,1008 BLUE RIDGE PL.,RICHARDSON 75080,235-4359,+ W5YAKAA1790,JEAMYG?1720,STEVE CORDER,800 GRUBB,MESQUITE 75149,288-7889,+ WB5LHL?1730,JAMES COSBY,312 ISLAND DR.,RICHARDSON 75081,235-2255,+ WD5FYU?1740,JIM COUNTS,1715 BROOKS DR.,ARLINGTON 75012,*,+@ 1750,BILL DALLIN,984 PEAVY RD.,DALLAS 75218,321ND 75042,278-3858,+ A5EQXh>1690,GARY CARIKER,313 E. HARVARD DR.,GARLAND 75041,271-1954,+ WA5QWQ >1700,PHIL CLEMENTS,1313 APPLEGATE LN.,LEWISVILLE 75067,221-2222,+ K5PC?1710,JIM COKER,5350 AMESBURY DR. #1913,DALLAS 75206,696-2326,+ WA5r 1650,DON ALFONSO,1711 AUBURN DR.,RICHARDSON 75081,238-8883,+ W6KCN=|1660,JIM BENNETT,732 PARKHURST DR.,DALLAS 75218,324-1651,+ N5ABZ=1670,HERB BLAIR,4213 TYNES DR.,GARLAND 75041,494-6191,+ WA5YKO>1680,WAYNE CAMP,2526 LIVENSHIRE,GARLAJ 1610,JERRY DUNN,2713 MANOR DR.,GARLAND 75041,271-5720,WB5ULNr22<--RECEIVE CODE."     AN$""10401AN$"D"104083AN$"X"AU$AN$:1045[8IA%9(AN$)18AN$(AN$,18)BIA%10(AN$)13AN$(AN$,13)VDA$(IA%)AN$:1025jN5%:868:B$;"COMMENTS WANTED (C/N)? ";:150:AN$"C"İ700:DA$(13)(NC%):1020t1040AU$"A"IA%IA%1:1049FN5%:958:B$;:"WHICH NUMBER? ";AN$gAN$"A"AU$AN$:IA%0:1025vIA%(AN$)IA%N2%1190IA%0IA%N2%ĺB$;:1045IA%N1%1130.N5%:B$;:868:HD$(IA%);:CH%(36):DA$(IA%);:CH%:" ";AN$ 0 **************************d34,0::"WRITE TO LOGBOOK"::I013:F$(I)""::K1:AU$"A"IA%0NR%NR%1:DA$(5)DA$(12):I6N1%:DA$(I)"":I:DA$(11)"00"I013:HD$(I)::"14. DONE!"34,2:3:N2%:NR%I113:N2%:868:DA$(I):LIST PREVIOUS CONTACTS.";39)"*":"*";39)"*"g"* 6. DONE!";39)"*":"*";39)"*":J139:"*";:J:B$:"WHICH NUMBER? ";:150:AN%(AN$)AN%1000,2000,3000,4000,6530,700022:868:PN$;:960 ON AN%=1, WRITE TO LOGBOOK12)"***HAM'NAPPLE***";I139:"*";:I::"*";39)"*"l"* 1. ENTER CONTACTS.";39)"*":"*";39)"*""* 2. EDIT LOG.";39)"*":"*";39)"*""* 3. PRINT LOG.";39)"*":"*";39)"*""* 4. PRINT QSL CARD.";39)"*":"*";39)"*"-"* 5. K)"":710V(AN$)30ĺB$;B$:"***LINE IS ";(AN$)30;" CHARACTERS TOO LONG!":710u968:F$(K)AN$:KK1:710{ I0N1%:HD$(I):I*I012:HE$(I):I4I04:HS$(I): MENU ****35,24:34,0::AB%38: 'RETURN' KEEPS THE LINE ***":4)"*** 'D' DELETES THE LINE ***":4)"*** 'E' EXITS COMMENTS MODE ***":K;". ";:CH%(36):CV%(37)1:F$(K)CV%:36,CH%1:" ";AN$:AN$"E"KK1::AN$""ĢCV%:36,CH%:F$(K):KK1:710 AN$"D"F$(%I:5506I:D$:B$:"NOT FOUND!":J12000::400~&200:IN%0ĢN5%:B$;"THIS ONE (Y/N)? ";:150:AN$"N"AB%I1:4500N5%: SUBROUTINE 'COMMENTS EDITOR' ****************************i:12)"---COMMENTS---"::4)"***NUMBER? ";:150:IN%(AN$):IN%5900;IN%4ĺPN$;:420jAB%NR%:B$:HS$(IN%);:" ";ZA$:IN%0450RW%(ZA$):RW%NR%ĺB$:"BEYOND END OF FILE!":J12000::400550IAB%11:D$"READ LOG BOOK,R"IJ0IN%:Z$:JZ$ZA$RW81);"QSL";A pTB$;(86);"FREQ";TB$;(93);"MODE";TB$;(98);"PWR"[ rJ1LL%:"-";:J::a   SUBROUTINE 'SEARCHFILE'  *********************** :"SEARCH MODES:":I1N1%:"-";::: I04:HS$(I)::" 5. DONE!"%B$:"WHICH :J112:N2%:868:DA$(J)::% [G \ SUBROUTINE 'PRINT HEADER'i ] ************************* ^2046,0:LL%103:J1LL%:"=";:J: c11)"DATE";25)"STATION"; hTB$;(37)"NAME";TB$;(53)"QTH";TB$;(68);"HIM"; mTB$;(76);"ME";TB$;(***************@ CH%(36):CH%4:">";:CH%2:"<";:AN$::G j SUBROUTINE 'DISPLAY ENTRY' ************************** D$"READ LOG BOOK,R"RW% J112:DA$(J):J:D$ 34,2::J012:HE$(J)::"13. DONE!" 3:N2%:RW%MENTS"= nD$"OPEN LOG BOOK,L100":D$"READ LOG BOOK,R0":NR% xD$"OPEN LOG BOOK COMMENTS,L35":D$"READ LOG BOOK COMMENTS,R0":NC%:D$ DA$(13),F$(13),HD$(13),HE$(13) PN$B$"PARDON?? ":800 SUBROUTINE 'GET ANSWER' ********:CV%0:N1%13:N2%14:N4%17:N5%19:B$(7):D$(4):TB$(9)U dD$"BLOAD LOG BOOK.X" i5:8)"--------******--------"::B$;8)"INSERT PROPER LOGDISK!"::8)"--------******--------":18:"READY? ";:150 jD$"UNLOCK LOG BOOK":D$"UNLOCK LOG BOOK COM- 27392R1013,76:1014,(115):1015,(116): SET '&' JUMP SAME AS HIMEM32,0:33,40:34,0:35,24:: START WITH CLEAR SCREEN"LOGBOOK PROGRAM 1.1";31)"17 APR 80" ******************** VERSION 1.1 (28 JULY 80); ZIA%0              @"""""80 @@2* " "* "" @ @@! * lg g2*"""@@@p8 ""*, *,"*"" " """@"@@"  """""" "ER,2228 MONTCLAIR PL.,CARROLLTON TX 75006,H/245-5058 B/233-6000/4691,W5USJ^L' END,*,*,*,*,*_ OF DALLAS,THE CORNER #912 WALNUT/CENTRAL,DALLAS,363-2223,zKz S,THE BYTE SHOP,1490 W.SPRING VALLEY RD.,DALLAS,234-5955,K S,KA ELECTRONIC,1220 MAJESTY,DALLAS,634-7870,K S,THE MICRO STORE,634 S. CENTRAL,RICHARDSON,231-1096,JL A,CHUCK CARPENTDALLAS 75227,381-0340,+ WD5HZCgJR 2130,JIM MCCARTER,3300 ROCKNE LN.,MESQUITE 75150,270-0707,WD5DFQJ\ SA,COMPUTER IMAGINEERING,2825 VALLEY VIEW LN,FARMERS BRANCH TX,247-6393,Jf S,COMPUSHOP,13929 N. CENTRAL,DALLAS,234-3412,:Kp SA,COMPUTERLAND1517 CHRUCHILL DR.,DENTON 76201,817-387-1897,+ W5UBTI42100,KEN WINTERS,5307 MARSHFIELD CT.,ARLINGTON 76016,817-457-5307,+ NN5AUXI>2110,CORKEY YANT,3537 BEVERLY DR.,FT. WORTH 76117,817-834-6824,+ WB5SKI JH2120,PAUL ZETTLER,8237 NORVELL DR.,-3097,+ K5DMVH 2060,ROB TUBBS,7831 BLACKBIRD LN.,DALLAS 75238,349-0293,+ WB5OQGH2070,GORDON TURNER,BOX 2694,DALLAS 75221,350-9939,+ WB5QYLH 2080,BRITTON VINCENT JR.,3338 DARBYSHIRE,DALLAS 75229,351-6867,+ W5UPV6I*2090,ROBERT VINCENT, BOX 212-E,MCKINNEY 75069,442-2149,+ WD5EWWxG2030,JOSE SANCHO,1000 SUMMIT CIR.,CARROLTON 75206,242-2997,+ WB5YFUG2040,RON SHIPMAN,722 LONGBEACH DR.,GARLAND 75043,271-2129,+ N5AAPH2050,CARROLL SMITH,831 NORTHLAKE DR.,RICHARDSON 75080,23581,+ K5VXMVF1970,BARRY MERRILL,10717 CROMWELL DR.,DALLAS 75229,351-1966,+ W5GNF1980,BOB MONNAGHAN,SMU P.O.BOX 2182,DALLAS 75275,692-2749,+ W5VCF2000,TIM OLMSTEAD,1623 ROSEMONT,MESQUITE 75149,288-0371,+ WB5PFJ-G2010,DON PORTCH,RT.2S,1604 WILLIAMSBURG,PLANO 75074,423-0407,+ WD5GIKsE1940,FRANK KAMP,907 DUMONT,RICHARDSON 75080,235-0610,K5DKZE1950,PAT KUYKENDALL,6529 SUMMIT RIDGE,WATAUGA 76148,817-485-2771,+ WB4SFY F1960,HANK LEVINE,10617 MARSH LN.,DALLAS 75229,350-71G 75060,*,+XDl1900,STEVE HEIMS,249 SUNNYDALE DR.,HEWITT 76643,817-662-4583,+ WD4PAADv1910,ALLEN JACOBSON,P.O. BOX 15,PARAMUS NJ. 07652,201-261-6800,+ WA2WSBD1920,JOHN JOHNSON,RT.2 BOX 260,MCKINNEY 75069,442-1664,+ K5AXH3E1930,REX JONED1860,DOUG GIBSON,3616 WEEBURN,DALLAS 75229,357-2717,+ W5PDCN1870,PETE GOUDREAU,13555 KIT LN. APT.#138,DALLAS 75240,783-4982,+ WB5RKCCX1880,BILL GUNDERSON,BOX 1432,DALLAS 75221,526-1813,+ W5PSN Db1890,DAVID HASTINGS,651 FRANCINE DR.,IRVIN76118,817-498-2785,+ W5SGXcB&1830,PETE FISHER,7253 EDGERTON DR.,DALLAS 75231,341-1120,+ KA5CRTB01840,RON FRANKLIN,6125 FORREST EDGE,FT. WORTH 76119,817-536-9467,+ WD5GICB:1850,ERNEST GAW,3714 LEGENDARY #137,DALLAS 75224,357-7106,+ W5MXC?CRRY DREWS,3705 WALTON AVE.,FT. WORTH 76133,817-292-5932,+ W5VDCA1800,CLIFF ELSTON,2826 WASKOM ST.,DALLAS 75228,327-3757,+A1810,ALLEN ERICKSON,13868 FAR HILLS LN.,DALLAS 75240,661-2293,+ WD5CGBB1820,CURLY FIELDS,4116 MORGAN CIR.,FT.WORTH Mz#??XҰ   ǠˠנԠ Ǡˮؠ ǠԠ̠ Š٠F ٠Ůà"٠ŠҠ ͠Ǡɠ !͠Ǡɠ"ĠŠΠǠˠǠˠ/ǠˠҠ ǠˠӠ ŠҠ ŠҮؠŠԮؠŠԮ٠͠Ӡ ͠Ǡؠ͠ǠϠՠ ɠŠàϠϠӠˠŠŠԠ"""x`""*2@@~`" 2"""" "6"@8@?0F0|u~""I"*1"&""* "@`!"""@*1"I"""`"@@"""6"""" ""*&I"""""@``@!"&"""""""6"""p@@`0""6""6""6""I""  ""I"@"@@""" """II"""*""""""I|"p"&"@@Bc@@""""""""c?@``@@v >#>@@ x > @@ @> p@@c> >w  c>#???@0@ #>>>?cp@@`@` c>ccw?@@@>  >c cw>w? ~@2>#@@b@@>?      D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 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    ٹ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 ֥ hL  ֥ -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فŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               """"@0""*#" """*"@?p""`"@*#""""""(0"@@""""""""""6*""""""@8 8@""""""""""",2 """ """@@@|?<""","" ",""""""!1c""@`~"|?o"""6"""*""""@@"p"""""@@| """"""*"""""" @p@0"" """"@0)"x @ """`@@""&" " ""*" " @```@""&)" " " 2"""&"""@@@`|?@`"">2"">2""" }?32""@"@@ *"" " x""&@@x`&""*" r>*@ X>"">">2"@`@!p@">"p@@@**>"&""*2>@@@""&!>2"&2""**""@p@@0xp>*"2"*"2"*"@ "">@>>@@>*"""ppx>2*@@x >*"&*>"* @ C """"* "@~~_!""`RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA  :(4)"CATALOG""W"TYPE THE NAME OF THE PICTURE YOU WANT TO LOAD.]e(A$yd(4)"BLOAD";A$nx16304,016297,016302,0@`p@b@`@@|o8@``@@@P a@`@@@@:`@@8|?`ww?@> w>>@?0@qP.>w>>@>?www>>@@w>>>>">w?ww?@@@?.>>w? l w ?@@@@ww>w< > w< w?wP!a@@<@@>>w>g>>"ww>?ww@@ @w?ww@@ 0w?>w+w??md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4      ATA. PRESS ANY KEY FOR MENU. ";:NN$-*900C >> MENU << p::" A D D R E S S L I S T":5"1. PRINT ALL.":"2. CHANGE DATA.":"3. ADD DATA.":"4. FIND DATA.":"5. DELETE DATA.":"6. END."(N$,3)"END"8002(CS$,((NN$)))NN$744;300D744_ >> FINE BY PHONE <<}:10:"TELEPHONE ? ";NN$L2:200(N$,5)"_____"764(N$,3)"END"800(T$,((NN$)))NN$764300744$ :"END OF D:10:"ADDRESS ? ";NN$ L2:)200B(N$,5)"_____"724Y(N$,3)"END"800v(A$,((NN$)))NN$724300724 >> FIND BY CITY/STATE <<:10:"CITY OR CITY & STATE ? ";NN$L2:200(N$,5)"_____"744"? ";:C$:C$/(C$)700,720,740,7608610R >> FIND BY NAME <<k:10:"NAME ? ";NN$uL2:~200(N$,5)"_____"704(N$,3)"END"800(N$,((NN$)))NN$704300704 >> FIND BY ADDRESS <<A:3000NNCS:30004C$(UL$,20):NNT:3000?S$"Y"H900_X >> FIND DATA <<b:8:"1. FIND BY NAME (FIRST OR FIRST & LAST)"l"2. FIND BY ADDRESS":v"3. FIND BY CITY OR CITY & STATE":"4. FIND BY TELEPHONE NUMBER": S$"Y"0 >> DELETE DATA <<i::::"ENTER DATA NUMBER TO BE DELETED: ";RN$::200:RN(RN$)514RN(RN$)800L0:300:"IS THIS DATA TO BE DELETED Y/N? ";RN$:RN$"Y"900 C$(UL$,25):NNN:3000 NN802(C$)(A$)āI1((A$)(C$)):C$C$" ":ANNA:3000`12:12:"";C$:C$""490(C$)(CS$)āI1((CS$)(C$)):C$C$" ":NNCS:300015:12:"";C$:C$""500(C$)(T$)āI1((T$)(C$)):C$C$" ":NNT:300011:"CITY/STATE:";12);CS$C12:12);:I1(CS$):(95);::a14:"TELEPHONE:";12);T$15:12);:I1(T$):(95);::6:12:"";C$:C$""470(C$)(N$)āI1((N$)(C$)):C$C$" ":NNN:30009:12:"";C$:C$""4PRINT DATA FOR CHANGE <<:"ENTER CHANGE UNDER DATA TO BE CHANGED.":"PRESS RETURN IF THAT DATA IS NOT TO ":"BE CHANGED."5:"NAME:";12);N$6:12);:I1(N$):(95);::8:"ADDRESS:";12);A$9:12);:I1(A$):(95);:: ", 37,CV:C , >> PRINT DATA <<I .g 6N$;" ";::" # ";RN:o 8A$x :CS$ <T$ @LL6 BL20ī360 J:"PRESS SPACE FOR NEXT LINE, ESC FOR MENU";:I$:I$:L0 TI$(27)ī900 ^ h >> 6))256)(CS$))8 T$:T(((125)((126))256)(T$))Q RN(123)(124)256r N$=NAME, N=ADDRESS OF NAME A$=ADDRESS, A=ADDRESS OF ADDRESS CS$=CITY/STATA, CS=ADDRESS OF CITY/STATE T$=TELEPHONE, T=ADDRESS OF TELEPHONE 1:" M WILL HOLD 130 ENTRIES."::@ x:"HIT SPACE TO START. ";:I$I 900O e >> READ DATA << CV(37):1:" :: READING DATA ::" N$:N(((125)((126))256)(N$)) A$:A(((125)((126))256)(N$)) CS$:CS(((125)((12 d:34,1p n8:" A D D R E S S B O O K"::" BY":" JOHNNY GRHAM" p:"IF THE NAME OF THIS PROGRAM IS CHANGED THE STRING 'PG$' (STATEMENT 92) WILL NEED TO BE CHANGED TO THE NEW NAME." r:" PROGRA**" T **** IS CHANGED ****B U *************************| ZD$(4):UL$"_______________________________________" \PG$"ADDRESS LIST": CHANGE THIS STRING IF YOU CHANGE PROGRAM NAME ^(994)(1001)192DOS1: DOES THIS SYSTEM HAVE DISK? PROGRAM TO CHANGE DATA3 STATEMENTS BY:N JOHNNY GRAHAMm( THE DATA CHANGES CAN NOT2 BE LONGER THAN THE ORIGIONAL< DATA.FP **** CHANGE LINE 980 ****R **** IF PROGRAM **** S **** N A M E **            :(4);"BRUNMENU" we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::a ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 21:"CTRL C = CANCEL & GO TO MENU"M22:"RETURN KEY ONLY TO IGNORE ENTRY"23:" "12:"DATE (MO/DAY): _____"12:16:861:A$""4130A$(131)5000A$(A$" ",5):R2$A$"13:"MODE ("CALL RST LOCATION DATE TIME BAND MODE REMARKS NUMBER":U8LINE4:h >> SET UP <<v:783,10F$""Ģ10:"FILE NOT LOADED":D12000:D:500010010:14);"S E T U P"19:560020:16);"R E P L Y""(R$,44,5);:36,34:(R$,40,4);:36,39:(R$,53,3);:36,44:(R$,49,4);` 36,49:(R$,25,15);n 36,64:I~ LINELINE2 LINE60İ3600:GO ID$"PR#0":5000 >> PRINTER HEADING <<:::::$36,16:ESTܼOFFILE";F$H.::"CALL RST LOCATION DATE TIME"Y\ " BAND REMARKS MODE NUMBER"fa 3:5600qf LINE3wp  >> PRINTER << D$"PR#1": PRINTER SLOT #1 3900 I1NG (R$,6);:36,8:(R$,7,3);:36,12:(R$,10,15);:36,28:,53,3);13);(R$,25,15);29);(R$,49,4);36);I:@ LINELINE3& LINE20ĺ"PRESS SPACE FOR MORE OR 'E' TO END: ";:A$:A$:31300 I2 " END OF DATA PRESS SPACE FOR MENU ";:A$:A$:5000: A$"E"ġ:5000H >> HEADING FOR SCREEN <<)R ILE EMPTY":D12000:D:5000Y ::10:"DO YOU WANT TO PRINT ON PRINTER? ";:A$:A$k A$"Y"ī3500u 3400 I1N D$"READ "F$",R"I R$ D$ (R$,6);8);(R$,7,3);12);(R$,10,15);28);(R$,44,5);34);(R$,40,4)0 9);(R$56):ED7,RL:ED8,RH:EDED84pD$"WRITE "F$",R"NMzC$;S$;L$;RE$;T$;R2$UD$_100017:"DO YOU WANT TO LOG? ";:A$:A$:A$"Y"21301000 >> LIST LOG << F$""ė:12:"FILE NOT LOADED":D12000:D:5000 N0ė:12:"F"Y"2130'?17:"4. TIME: ____"O@17:14:861:A$""T$" ":2130cBA$(131)2120wDA$(132)2080FT$(A$" ",4):2130H1000: CANCELR LOG ITWNN1\LC$C$:P16:EDP1,((C$,P,1)):fRH(N256):RLN(RH2131)21200A$(132)2080>2L$(A$" ",15)P4IR$"Y"2110y516:"3. REMARKS: _______________"616:14:861:A$""RE$" ":21108A$(131)2120:A$(132)2080<RE$(A$" ",15) >IT$A$""20841 #A$""(M$,3)SB$S$"59 ":2090K $A$""S$"599":2090_ %A$(131)2120s &A$(132)2080 (S$(A$" ",3) *IL$"Y"2100 +15:"2. LOCATION: _______________" ,15:14:861:A$""L$" ":2100 .A$(19:5600:16);"R E P L Y"H 21:"CTRL C= CANCEL & RETURN TO SEARCH"v "CTRL D= IGNORE ALL DATA AND START OVER" "RETURN KEY ONLY TO IGNORE ENTRY" 12:" NUMBER "N1;16);C$ IS$"Y"2090 !14:"1. SIGNAL: ___" "14:14:861:(C$,I,1)):I- QSH(ED256):SLED(SH256)= V8,SL:9,SH] [SH(ST256):SLST(SH256)q ^778,SL:779,SHz `784 j(783)01000: DUPE tIS$"Y"IL$"Y"IR$"Y"IT$"Y"2200  >> ENTRY <<  10:11);"E N T R Y M O D E" "ENTER CALL FOR DUPE SEARCH"K 22:"ENTER 'END' TO END AND GO TO SET UP" (783)0Ģ12::" ";C$;" IS A DUPE ": $14:13)"CALL? ";:"";C$ .C$""1060 8C$"END"4000 BC$(C$" ",6) LI16:767I,(S: LAST CALL ";LC$;26)"NUMBER ";N} 7:"BAND=";(R2$,10,3);10);"MODE=";(R2$,6,4);20);"DATE=";(R2$,1,5);31)"TIME=";T$ 9:5600  >> SEARCH << :100 10:" S E A R C H" 19:5600:20:16)"R E P L Y" 21: * FAST CONTEST DUPE *; - BY: JOHNNY GRAHAM -X ------ WB5TRY -------u --- 2014 BAMBOO --- - MESQUITE TX 75150 - --------------------- 16000A$"*"29000<5000d >> STATUS LINE <<" n6:"STATU          >I;". ";C$(I)#HA$"Y" 860?RPP1:P22P0:K$:K$F\IWfA$"Y"İ620hpK$:K$:550z PRINTER PROGRAM 300.3FFD$;"BLOAD DUPE FINDER.X"B12::"****** G O O D SHOULD I LOG? ******"SORT LIST OF CALLS."6:"3. PRINT LIST OF CALLS."P:"4. END PROGRAM."m23:"WHICH ? ";:A$:A$yA(A$) **** PRINT CALLS ****P0 10:"DO YOU WANT TO TURN PRINTER ON? ";:A$:A$"*A$"Y"İ5904I1N002:# l*** TURN OFF PRINTER ***4 vD$;"PR#0":< :D 10k " D U P E F I N D E R" :" BY" :" J O H N N Y G R A H A M"  ****** MENU ****** :5:"1. CHECK FOR DUPE.":"2. 10:B$ 390Q 12:B$:12::" ";CC$;" DUPE ";CC$;" DUPE ";CC$;" DUPE "_ :14:B$h 490 ***** START ***** & 700 0A370, 90, 780,580 :550 D"CATALOG" N*** TURN ON PRINTER *** XD$;"NOMON C,I,O" b54,3:55,3:15:16);N;" CONTACTS":10:17:CC$6 CC$"END"550A I1NT CC$C$(I)510Z f 12:B$ 12::"****** G O O D SHOULD I LOG? ******";:A$: A$ 12:B$ 14:B$ A$"Y"NN1:C$(N)CC$:14:13);CC$;" IS LOGED."  C$(J)C$(J1) 280 JJ16  A$ C$(J) 310F "C$(I)C$(J)P , 220] 6C$(I)A$g @ 130t JC$(1)A$z T ^:10:"********** S O R T E D **********" hI11000::550 r |23:"TO RETURN TO MENU ENTER END FOR CALL."#  890:540# Z******* SORT *******7 d17);"SORTING"F nL(N2)1O xN1N` L1 170j LL1w A$C$(L) 210 A$C$(N1) C$(N1)C$(1) N1N11 N11 330 JL IJ J2J JN1 280 JN1 310 ! **************************A* CONTEST DUPE FINDER *a* BY: JOHNNY GRAHAM *(* MAY 15, 1979 *2**************************<C$(500)>D$(4): CTRL DFB$" " P640:     LxH)lH '{ Ih ` IxhLh Ib IL#HXYHJJhhj(`     0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L `p8      8p`@`pp@@@@@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p000@`p8 8p`@@@@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 Ƀpppppppppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0 W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j      } 999999)} BY PROGRAM BY ED LINTALA`" PHONE ";V$:" ADDRESS ";U$E"ZIP CODE ";T$:"DUES '79 ";S$ZN140:"=";:N`f {$N140:"=";:N&::::10 3 29 78,ED LINTALA,WB8ZGK,ADVANCED,352-6969,6955 N.MEADOW DR.P'VLLE OH.,44077,PAID 660 N140:"=";:N:720& Q$/ 6605 N A:ZA:Z999999950\ A$:Y$A$j B$:X$B$x C$:W$C$ D$:V$D$ E$:U$E$ F$:T$F$ G$:S$G$  " DATE ";Z:" NAME ";Y$ " CALL ";X$:" CLASS ";W$!";M$ 700 A999999950. M$Y$5147 506Q N140:"=";:N:720Y Q$b 506h Xy ZN135::N \800 ^700 b720 cQ$ d606 N140::N "ENTER CALL SIGN ";R$ 700 A999999950 R$X$690 ODE,DUES '79 (TYPE 'DATA' FIRST)"4 11000,32000:: 2@ Q N140::Nk "ENTER ZIP CODE ";N$t 700 Z999999950 N$T$420 412 :::: N140:"=";:N:720 Q$ 412  N130::N "ENTER NAME }" 4. RECALL BY CALL SIGN"< " 5. RECALL ALL ENTRIES] :"ENTER FUNCTION NUMBER";Fj F1300x F2ī400 F3500 F4650 F5600 "INVALID, TRY AGAIN":145 , .:" 0"GIVE DATE,NAME,CALL,CLASS,PHONE,ADDRESS,ZIP CRY SYSTEM *< #"* 147.810/147.210 *"l ("****************************************" i:"SELECT ONE OF THE FOLLOWING FUNCTIONS":: n" 1. ADD FILE ENTRIES" s" 2. RECALL ENTRIES BY ZIP CODE" x" 3. RECALL BY NAME"*' *** AMATEUR RADIO CLUB LIST ***t BY ED LINTALA, WB8ZGK, 6955 N. MEADOW DRIVE, PAINESVILLE, OHIO 44077 LAKE COUNTY AMATEUR RADIO ASSOC. N040::N"****************************************" "* L.C.A.R.A. FILE AND INQUI     35)"10/10"' $N139:"=";:N:"=":K :" ","END OF REPORT":::804f F2F5F20F50750r 0:105x  ' 999999,START AT 1000 06 X936:3508 Z"PRINTING ALL LOG ENTRIES"::800A ^700J b720S d606s H(0):A:ZA:Z999999950 B$:X$B$ C$:W$C$ D$:V$D$ E$:U$E$  Z;" ";X$;" ";W$;" ";V$;35)U$: 0: "DATE CALL NAME QTH";XT DATE (YYMMDD) ";N2' 936::350X "LOG ENTRIES BETWEEN ";N1;" AND ";N2::800a 700v ZN1ZN2420 412 720 412 :"ENTER CALL SIGN:";M$:936::350 "CALL SIGN ";M$::800 700 M$X$506 720 5::350! "10X NO. ";R$::800* 700: R$U$256C 720L 256[ ,936:350 0"ADD LOG ENTRIES BY DATA STATEMENT":9999::800 2 ^F10F20F30F40F50360 c h1: :"ENTER FIRST DATE (YYMMDD) ";N1: "ENTER NE" 5. PRINT ALL LOG ENTRIES"E " (FUNCTION X10 FOR HARD COPY)"g :"ENTER FUNCTION NUMBER ";Fy F1F10300 F2F20400 F3F30500 F4F40250 F5F50600 "INVALID,TRY AGAIN":145 :"ENTER 10X NO.:";R$:936+d0:936::"AMATEUR RADIO LOG (10X)"<e:"FILE #1"Ef804hi:"SELECT WHICH FUNCTION"::n" 1. ADD LOG ENTRIES"s" 2. PRINT LOG ENTRIES BY DATE"x" 3. PRINT LOG ENTRIES BY CALL"}" 4. PRINT LOG ENTRIES BY 10X NO."      "ICHIHARA"24)"NAGAREYAMA"<9:8)"IWATSUKI"24)"HITACHI"]::8)"KATSUTA"24)"TOCHIGI"g3000:8)"HAMAMATSU"22)"FUJINOMIYA":8)"SHIMADA"24)"NAGOYA":8)"KASUGAI"24)"INAZAWA":8)"TSU"3000:8)"KYOTO"24)"M77,2103,JH1WIX,21,CW,YES,TOK,TAHOHJ101577,2141,JH7FWW,21,CW,NO,FUKU,?U1E38 h:8)"NAGANO"r330004:8)"TOKYO"24)"TACHIKAWA"5:8)"KODAIRA"24)"YOKOHAMA"6:8)"FUJISAWA"24)"CHIBA"7:8)"MATSUDO"24)"SAKURA"8:8)TOK,SHUN .-92877,2338,JH4SLN,21,CW,NO,?,?U100977,0240,JA8UVZ,21,SB,NO,?,AKI|100977,0200,JA8PPV,21,SB,NO,?,KAZ100977,0209,JA7QCD,21,SB,NO,AKIT,YESHI100977,0224,JA7DLI,21,SB,NO,?,?101377,2350,JA2KTK,21,CW,NO,?,TABOU"1015?,?/-82377,2045,JH1WIX,21,CW,YES,TOK,TAROHZ-90677,2225,JR2GMC,21,CW,YES,MIE,MASA-90777,2200,JH8EMH,21,SB,YES,HOK,SYOGO-90777,2220,JA4CUY,21,SB,YES,OKAY,FUKU-92777,2127,JA1WZG,21,SB,YES,TOY,SHIN -92877,2318,JR1IWB,21,CW,NO,0645,JA6YDH,14,SB,NO,?,?>-61877,0702,JA3YKC,14,SB,YES,?,?c-61877,0712,JA2ZKT,14,SB,NO,?,?-61877,0732,JA6BSM,14,SB,YES,FUKU,MAS-61877,0746,JA7BBK,14,SB,NO,?,?-61877,0810,JA5AZQ,14,SB,YES,TOKU,MAS-61877,0814,JH1DTC,14,SB,NO,D82800D42400&D92900,Q-31777,1620,JA7AS-,21,CW,NO,?,?}-60677,0002,JA1RJO,14,SB,NO,TOK,KAZU -60877,2323,JR1KYC,14,CW,YES,TOK,KAJ -61877,0548,JA2JLG,14,SB,NO,?,?-61877,0600,JA9YBA,14,SB,NO,?,? -61877,M100424A::" >>> ENTER ANOTHER CALL Y OR N ? > ";K$QK$"Y"500Z105::">>> WHAT JAPAN DISTRICT 0 - 9 ? > ";DD02000D12100D22200D32300D42400D52500D62600D72700 1)I$İ780K :Z;" ";Y$;" ";X$;" ";W$;" ";V$;" ";U$;" ";T$;" ";S$Q ::"DATE TIME CALL MHZ MODE QSL QTH NAME"*"========================================"4::"END OF THIS REPORT !":"====================" GN....? > ";M$:800700.A1E38950=I$X$560LM$X$560U&510^0780g:510tX::800}b700l780v610A:ZA:Z1E38950Y$X$W$V$U$T$S$(X$,2)I$İ780 (X$,3,4128 M100ĺ:">>> ANOTHER CALL AREA Y/N ? > ";K$H K$"Y"448Q 105 ::"TYPE IN CALL AREA NUMBER...OR...": :"TYPE IN FIRST 2 DIGITS...? > ";I$:::"NOW LISTING BY CALL AREA !":M100:800 510::" ENTER CALL SI"==== ==== ==== === ==== === === ===="1 h] ::"ENTER FIRST DATE (MO/DA/YR) ?";N1 ::"ENTER NEXT DATE (MO/DA/YR) ?";N2 ::"LOG ENTRIES BETWEEN ";N1;" AND ";N2:800 700 Z1E38950 ZN1ZN2420 412 780 F3500 F4448" F5600/ F6960U "INVALID,TRY AGAIN !":145 ,:6:"ADDING LOG ENTRIES BY DATA STATEMENTS" 6: @1000,1999 J::"FIRST TYPE IN LINE # AND DATA":: T:"DATE TIME CALL MHZ MODE QSL QTH NAME"+ ^4):"3.PRINT LOG ENTRIES BY CALL SIGN"X }16:4):"4.PRINT LOG ENTRIES BY CALL AREA" 19:6):"5.PRINT ALL LOG ENTRIES" 22:9)"6.PRINT JAPANESE CITIES" 24:"ENTER FUNCTION NUMBER ? > ";F : : F1300 F2400 ***********"A f24:"TO START PROGRAM HIT ANY KEY !";:R$:105v i::2:" SELECT ONE OF THE FOLLOWING FUNCTIONS" k4:"***************************************" n7:10):"1.ADD LOG ENTRIES" s10:6):"2.PRINT LOG ENTRIES BY DATE"' x13:  :180> 3:"***************************************"p6:1)"AMATEUR RADIO LOG AND INQUIRY SYSTEM"9:8)"APPLE II COMPUTERIZED"(13:17)"BY"216:12)"ALEX MASSIMO"<18:15)"A F 6 W" F21:"