Category : Science and Education
Archive : DB4HAMLG.ZIP
Filename : CONTACT1.DBO
Output of file : CONTACT1.DBO contained in archive : DB4HAMLG.ZIP
' 2 A D E N ^ u ! y ÿÿ * ; set01 ENTRYFLG 28GC_PROGNUM GN_ERROR g/F P S ¸ ÁDO 1HELP1 1HELP1 DBF01 ¤ JTM @'@ M P S& · P S& · P S& · P S& ·P S& ·P S& ·P S& ·P S& @ A BO CQÆÑ @ A BN CQ @ A BN CQÑ @ AQ
Contacts Log QÑ ÿÿ @ AQ Reports & Labels QÑ ÿÿ @1 AQ Housekeeping QÑ ÿÿ @G AQ Exit QÑ ÿÿ @ AQ % % % ' 0 ) ; * E + P , [ - f . q / | 0 1 2 4 5 ¶ 6 Í 7 ç 8
9 6: [; x< = > ÿÿ 3 1help1 & dbf01 GN_ERROR 28F P S 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ S 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause Y @@¥ @ Y @@¥ @P S A A C D y E F G · H ¸ I ¿ J Ñ K Ü L N ,O /P 0Q @R JS Nÿÿ r Â Ë Ô & : H Ý pause LC_MESSAGE GN_ERROR M LC_NEW R g/F ?Ð @@¥ @ @@¥ @ ITk A PAD_1 A "P S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸BROWSCR P S&?½³PE S&1Ò> 8Add, Change, Review, Delete Records in Main Contacts Log P S&"¾ CONTACTS P RP S&"P S&?½´P
S
¸BROWSCR Tk @ PAD_2 @ ) Y @@¥ @ 01 RPTLBL01 Ú Tk @ PAD_3 @ ) Y @@¥ @ 01 HOUSKEEP Tk @ PAD_4 @ & Y @@¥ @ 01 EXIT1 g @ AQ @ AQ %This item has no action. Press a key. Q TJ@@¥ @ @ AQP S&1 STATUS T@@ ON P S&D½´¤ Q P S
¤ Y % SET ¤ @@¥ @ DO &lc_file. Y Y
Z [ * \ . ] C _ J ` Z a j b Ê c á d î e f g h "i -j ml |m n ¡o ¤p ¥q µr ¿s Ðt Ùu "w ;x Az H{ Q| b} w~ ² Â Ø í ý ! Z m z { ¥ ¦ ² ¹ º Æ Û ë ì ðÿÿ $ T d à % v ¯ ½ ¼ ÷ g © ½ Ï Õ .pause & contacts rptlbl01 à houskeep þexit1 LC_NEW AGE LC_DBF R M LC_MESSAGE GN_ERROR GC_PROGNUM LC_FILE X ,36 SAY "GC_QUIT R wF ?Ð 02 @@¥ @SET02 ¤ @@¥ @P SRPTLBL01 ¤ ¥ ¦ ¨ ' © 2 ª A « D ¬ E ± U µ Y ÿÿ * ; set02 ENTRYFLG E GC_PROGNUM GN_ERROR E F P S ¸ ÁDO 1HELP1 1HELP1 DBF02 ¤ e TM @'@ M P S& · P S& · P S& · P S& ·P S& ·P S& ·P S& · @ AQ ¹ ¹ % » 0 ½ ; ¾ E ¿ P À [ Á f  q à | Ä Å Æ Ç È ¡ É ¥ ÿÿ 3 1help1 & dbf02 GN_ERROR E F P S 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ S 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause Y @@¥ @ Y @@¥ @P S Ì Ì Î Ï y Ð Ñ Ò · Ó ¸ Ô ¿ Õ Ñ Ö Ü × Ù ,Ú /Û 0Ü @Ý JÞ Nÿÿ r Â Ë Ô & : H Ý pause LC_MESSAGE GN_ERROR M LC_NEW R E F ?Ð @@¥ @ @@¥ @ à T( AA ZP S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ DXCCNTRY.NDX P S ¤ T@@¥ @¤ { 4Error opening CONTACTS.DBF or index(es) DXCCNTRY.NDX Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸SAVESCR P? S&1Ò8 2Report all contacts for which no QSL has been sent P S&9½³PX S! QSLACTN1 ¯LIKE(" / / ",DTOC(QSL_SENT)) ¤ T4A / / ATS@@ P S&9½´P
S
¸SAVESCR \ T( @@ hP S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ DXCCNTRY.NDX P S ¤ T@@¥ @¤ { 4Error opening CONTACTS.DBF or index(es) DXCCNTRY.NDX Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸SAVESCR PM S&1ÒF @Report all contacts for which QSL has been sent but not received P S&9½³PX S! QSLSTAT1 ¯LIKE(" / / ",DTOC(QSL_RECD)) ¤ T4A / / ATS@@ P S&9½´P
S
¸SAVESCR çT( @@ P S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ DXCCNTRY P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) DXCCNTRY Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸SAVESCR PX S&1ÒQ KPrint QSL card labels for all contacts w/ BLANK QSL_Sent & BLANK QSL_Status P S&9½³P S
QSLCARD ª¯LIKE(" / / ",DTOC(QSL_SENT)) .AND. QSL_STATUS=" " / ¤ T4A / / ATS@'@ ¤ P S&9½´P
S
¸SAVESCR HT( @@ P S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ DXCCNTRY P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) DXCCNTRY Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸SAVESCR P9 S&1Ò2 ,Print full detail about every contact in log P S&9½³P S! FOR_LIST P S&9½´P
S
¸SAVESCR 2T( @@ %P S Y @@¥ @ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P
S¸SAVESCR PX S&1ÒQ KCall, date, freq., name, city, country, QSL status/sent/recd - all contacts P S&9½³P S! SHORTLST P S&9½´P
S
¸SAVESCR P S&1 STATUS T@@ ON P S&D½´¤
Q P S
¤ Y % SET ¤ @@¥ @ DO &lc_file.¤ Y ¤ Y % DBF ¤ @@¥ @ DO &lc_file. ä ä
å æ * ç . è > ê E ë U ì e í Å î Ü ï é ð ñ ò ó !ô ,õ p÷ ø ù ¤ú §û ¨ü ¸ý Âþ Óÿ { ¥ ¬ ¼ Ì
, C P
n o v × æ û ) : ð ù!
" $ !% 1& A' ¡( ¸) Å* ß+ à, ç- ù. / D1 S2 h3 x4 {5 |6 7 8 §9 ; < = > ©? ¹A ÀB ÐC àD @E WF dG ~H I J K £L ãN òO P Q R S + T 5 U F V X Y ¥ Z ® [ ¿ \ Ï ^ Ö _ æ ` ö a V
b m
c z
d
e
f
g ®
h ¹
i ù
k l m - n 0 o 1 p A q K r \ s ¸ u Á v Ú w ã x ô y õ z ü { | } ~ , 3 4 @ U e f ¥ ¦ ª ÿÿ $ O _ ¾ $ y ² À ^ ¶ Æ % y à ï õ ' Ó + ; ê ó ü M \ b b Ê Ú 9 ì û % 3 à ð O
¨
±
; I #
7 I O i t -pause # qslactn1 pause qslstat1 pause qslcard ¤pause for_list º
pause Å shortlst LC_NEW AGE LC_DBF R M LC_MESSAGE GN_ERROR GC_PROGNUM LC_FILE QSL_SENT "QSL_RECD wQSL_STATUS GC_QUIT F ?Ð 03 @@¥ @SET03 ¤ @@¥ @P SHOUSKEEP ' 2 A D E £ U § Y ÿÿ * ; set03 ENTRYFLG E GC_PROGNUM GN_ERROR E F P S ¸ ÁDO 1HELP1 1HELP1 DBF03 ¤ e TM @'@ M P S& · P S& · P S& · P S& ·P S& ·P S& ·P S& · @ AQ « « % 0 ¯ ; ° E ± P ² [ ³ f ´ q µ | ¶ · ¸ ¹ º ¡ » ¥ ÿÿ 3 1help1 & dbf03 GN_ERROR E F P S 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ S 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause Y @@¥ @ Y @@¥ @P S ¾ ¾ À Á y Â Ã Ä · Å ¸ Æ ¿ Ç Ñ È Ü É Ë ,Ì /Í 0Î @Ï JÐ Nÿÿ r Â Ë Ô & : H Ý pause LC_MESSAGE GN_ERROR M LC_NEW R E F ?Ð @@¥ @ @@¥ @ úT( AA ¡P S& ½³ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P S& ½´P
S¸SAVESCR PF S&1Ò? 9Physically remove records previously marked for deletion. Looking for DELETED Records... @@¥ @¤ info_box P S¯DELETED() T @@ T @@ R Purging DELETED Records... @@¥ @¤ info_box P S&F½³3P S&F½´7ÃP
S
¸SAVESCR LT( @@ ?P S& ½³ 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ w 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause @@¥ @ SET ¤ @@¥ @ DO &lc_file. Y @@¥ @P S P S& ½´P
S¸SAVESCR PW S&1ÒP JRebuild log file indexes (use if records display or print in wrong order). Reindexing Database... @@¥ @¤ info_box P S&F½³6P S&F½´P
S
¸SAVESCR P S&1 STATUS T@@ ON P S&D½´¤ Q P S
¤ Y % SET ¤ @@¥ @ DO &lc_file. Ö Ö
× Ø * Ù . Ú > Û G Ü W Ý · Þ Î ß Û à õ á ö â ý ã ä å Zç iè ~é ê ë ì ¢í ¬î µï Æð ñ =ò Oó mô xõ ¡ö ³÷ ¼ø ¾ù Çú Êû Ëý Üþ ìÿ õ e | £ ¤ « ½ È ,
< ? @ P Z c t Ï ô + , 3 M V W! c" j# k$ w% & ' ( ¡ÿÿ $ Q ° c r x ª 7 @ ¤ ÿ ^ ® · À & J X î ÷ Z n pause > info_box ¢ info_box Épause õ info_box LC_NEW AGE LC_DBF R M LC_MESSAGE GN_ERROR GC_PROGNUM LC_FILE LC_SAY T "GC_QUIT wF ?Ð 04 @@¥ @SET04 ¤ @@¥ @P SEXIT1 5 6 7 9 ' : 2 ; A < D = E B R F V ÿÿ * ; set04 ENTRYFLG E GC_PROGNUM GN_ERROR E F P S ¸ ÁDO 1HELP1 1HELP1 DBF04 ¤ e TM @'@ M P S& · P S& · P S& · P S& ·P S& ·P S& ·P S& · @ AQ J J % L 0 N ; O E P P Q [ R f S q T | U V W X Y ¡ Z ¥ ÿÿ 3 1help1 & dbf04 GN_ERROR E F P S 0 @@¥ @P\ S Álc_message=LTRIM(STR(ERROR()))+" "+MESSAGE() ) T> BBTAAT\@@ @T= A@A@@¥ @ P S, CONTACTS T @ @ P S&)¾ CALLSIGN P S ¤ T@@¥ @¤ S 0Error opening CONTACTS.DBF or index(es) CALLSIGN Pause Y @@¥ @ Y @@¥ @P S ] ] _ ` y a b c · d ¸ e ¿ f Ñ g Ü h j ,k /l 0m @n Jo Nÿÿ r Â Ë Ô & : H Ý pause LC_MESSAGE GN_ERROR M LC_NEW R E F ?Ð @@¥ @ @@¥ @ c T( AA P S1 J T( @@ = Q @@¥ @¤ TRAA B
P S
P S
P S&1 STATUS T@@ ON P S&D½´¤ Q P S
¤ Y % SET ¤ @@¥ @ DO &lc_file. u u
v w * x . y > { E | G } W g ~ ¶ ¿ À Ì Ó Ô à õ
ÿÿ $ a j Ã × é ï LC_NEW AGE LC_DBF R M GC_QUIT E ENTRYFLG GC_PROGNUM LC_FILE P @ ¼ y ! A
contact1 contact1.prg 8 P A h L Ì P } $ set01 t1 contact1.prg 8 P s P $ Ä D N! _
@ dbf01 t1 contact1.prg 8 P q 0
d ô
ðX \ 1; U act01 t1 contact1.prg 8 P < ä 0 Y ! 7
£ rptlbl01 contact1.prg 8 P ] x
\
`
¥ U ¸ set02 01 contact1.prg 8 P
` 4 Ô T N! _
Ë dbf02 01 contact1.prg 8 P ¼ , , H ª n ýr à act02 01 contact1.prg 8 P *! Ü! ¼! ! Ð! Y ! 7
houskeep contact1.prg 8 P ý! # ü" ¤" # ¥ U ª set03 ep contact1.prg 8 P ## % Ô$ t$ ô$ N! _
½ dbf03 ep contact1.prg 8 P !% - \, Ä* ä, ¡X ; Ò act03 ep contact1.prg 8 P x- (. . Ð- . V ! 7
4 exit1 ep contact1.prg 8 P I. d/ H/ ð. L/ ¥ U I set04 ep contact1.prg 8 P o/ L1 1 À0 @1 N! _
\ dbf04 ep contact1.prg 8 P m1 83 3 x2
B ( q act04 ep contact1.prg 8
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/