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`TD$"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:EDSU"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":: .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* 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 N,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 COMMENTS;"( 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*4000 .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.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:"PRIR.,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-4TE 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,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 BNJ 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-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,WA4CY":"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))((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 LASFD1(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                                 ,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 ADAIR$(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"        ND 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,WB5ULNr2110,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 -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,321  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 >>@>?www>>@@w>>>>">w?ww?@@@?.>>w? l w ?@@@@ww>w< > w< w?wP!a@@<@@>>w>g>>"ww>?ww@@ @w?ww@@ 0w?>w+w??""""@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"*"@ "">@>>@@>*"" @`p@b@`@@|o8@``@@@P a@`@@@@:`@@8|?`ww?@> w>>@?0@qP.>w KEY ";:AN$::A SOME DOCUMENTATION, SEND A QSL CARD."T L'"FOR COMPLETE DOCUMENTATION, SEND $3.00"y V'"TO COVER POSTAGE AND COPYING." [':"THE MACHINE LANGUAGE PROGRAM CONTAINS" `'"PRINTER ROUTINES FOR AN" j'"'ELECTRONICS SYSTEMS' INTERFACE"t'::"HIT ANYING, AND"' #" TYPE 'X' TO ESCAPE."P #::10::" HIT ANY KEY ";::AN$:V #u ':"FOR ASSISTANCE, WRITE" ':" MIKE MACKAY, VE3JRF" $'" 14 PLAZA COURT" .'" NEPEAN, ONTARIO, K2H 7W1" 8':"FOR A 20 METER SKED."& B'::"FOR P#" LEARN ABOUT THE PROGRAM."Q Z#:"3. MOST COMMANDS ARE DOCUMENTED IN THE"d _#" PROGRAM." d#:"4. WHEN MAKING ENTRIES TO THE LOGBOOK" i#" YOU WILL GET THE PROMPT ASKING" n#:10)"WHICH NUMBER? ": x#" TYPE 'A' FOR AUTOMATIC STEPPS ARE USED BY THE PROGRAM,"@ "SO, YOU MAY DEVELOP YOUR OWN."d ::10:"HIT ANY KEY ";:AN$:p 34,0: (#:"TO BEGIN--" 2#:"1. RUN 'START NEW LOGBOOK' WITH THE" <#" APPROPRIATE DISK IN PLACE." F#:"2. TRY A FEW SHORT SESSIONS TO"!0 h:"THE PROGRAM RECOGNIZES TWO SEND CODES:"Z r"1. SEND CODE #1 IS USED BY THE QSL" |" ROUTINES TO LOCATE CARDS WHICH NEED" " TO BE SENT." :"2. SEND CODE #8 IS ALSO USED TO LOCATE" " CARDS TO BE SENT." :"NO OTHER CODE634,0::6)"***LOGKEEPER INSTRUCTIONS***":34,2A10000K9000U8000h :22:"73!":@:"QSL CODES":"---------"J:"LEFT DIGIT IS 'SEND CODE',AND"T"RIGHT DIGIT IS 'RECEIVE CODE'." ^:" SEND CODE-->22<--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               z#???XҰ   ǠԠ̠ Š٠F ٠Ůà" ٠ŠҠ  "ĠŠΠǠˠǠˠ/ǠˠҠ ǠˠӠ ǠˠנԠ Ǡˮؠ ŠԮؠŠԮ٠͠Ӡ ͠Ǡؠ͠ǠϠ ͠Ǡɠ !͠ǠɠΠˠñӠˠŠŠԠŠҠ ŠҮؠŠԠ"ppx>2*@@x >*"&*>"* @ C """"* "@~~_!""`@"""""80 @@2* " "* "" @ @@! * lg g2*"""@@@p8 ""*, *,"*"" " """@"@@"  """""" """"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@@>?             Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)    :(4)"CATALOG""W"TYPE THE NAME OF THE PICTURE YOU WANT TO LOAD.]e(A$yd(4)"BLOAD";A$nx16304,016297,016302,0 3:5:. "APPLE AVOCATION ALLIANCE, INC.":? XP11000:PU (1155)Č1184i (4);"CATALOG" : STOP COPYRIGHT FRAUD! CLAIM A REWARD. SEE OFFER IN AAA CATALOG.Pd AAA HELLO PUBLIC DOMAIN BY RONALD D. MALEIKA 721 PIKE STREET CHEYENNE, WY USA 82001 28 FEB 1981 ,(1155)Č1184  "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS AVOCATION ALLIANCE, INC."" 129 L"721 PIKE STREET"@ ~8a "CHEYENNE, WY USA 82001": "PRESS C FOR CATALOG OR RETURN TO QUIT"; C$ FC$"C"1450 x(1155)Č1184: (1155)Č1184: (4);"CATALOG" COULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE.P 6v "** PLEASE, SEND US A COPY **": "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR CATALOG," "WITH MANY THANKS.": 5 "APPLE: 12# ,"AN INVITATION FOR"* ^5S "APPLE TREES AND APPLE SEEDLINGS": "PERHAPS YOU FOUND SOME FAULTY PROGRAMS" "AND YOU FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?":I "WE Wd AAA MESSAGE PUBLIC DOMAIN BY RONALD D. MALEIKA 721 PIKE STREET CHEYENNE, WY USA 82001 28 FEB 1981 (1155)Č1184    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 **           REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED21:"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(`     MATEUR RADIO"E: FRIENDS AROUND7E: THE WORLD !!!QE: * NOT TO BE SOLD *N:::"DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE ":WD""":D1100::""gD,D11500:oD640D: BY ALEX MASSIMOD: > A F 6 W <D: SPECIAL THANKSD: TO R.& D.ALDRICHD: FOR HIGHER TEXTD: DONATED TO ALL E: MY A40AC"":22:1::"STATION >NOT< LOGGED";::D13000::40CNN1:C$(X)A$:"":22:4::" STATION  LOGGED "::D13000:C40C12:1::"DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE ":C:"DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE-DUPE"4DBC$(X)A$260B130[B18:1:"STATION NOT WORKED !";:22:12::" CALL IT ";:|B18:"":D1100::""BD13500:B12:""B14:1:"SHOULD STATION ^ ":1:16:"BE LOGGED (Y/N) ";:"";:16:34:B$CB$"Y"212:"CONTACT > ";NFA2783,128:6:"ENTER CALL"::"OF STATION "_A77:24::"";:A$:tA<9:26:"------"AF12:I039::" ";:IAP13:" CALL CORRECT (Y/N) ";:AZ17:20:B$:AdB$"Y"120An55AxX0AXX1BC$(X)""170R@ @,@ *** WARNING IF YOU ***K@ *** HIT 'RESET' YOU ***j@ *** WILL LOSE ALL ***@ *** MEMORY - SORRY ***@ @@@ @ (4)"BRUN DUPE SHEET.X":16384@(4)"BRUN DUPE SHEET.Y"@C$(500):N1A(" ":     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:"