Category : Science and Education
Archive : DB4WASLG.ZIP
Filename : DB4WASLG.DBO
Output of file : DB4WASLG.DBO contained in archive : DB4WASLG.ZIP
½´ gn_ApGen T@@ U . P SP SP SP S @@¥ @ | ¤ @@¥ @¤ A .Maximum level of Application nesting exceeded. Pause ?Ð
BELL T@@¥ @ CARRY T@@¥ @ CLOCK T@@¥ @ CENTURY T@@¥ @ CONFIRM T@@¥ @
DELIMITERS T@@¥ @ INSTRUCT T@@¥ @ SAFETY T@@¥ @ STATUS T@@¥
@
SCOREBOARD T@@¥ @ TALK T@@¥ @P S&
½³P S&½´P S&½´P S& ½´P S&
½´P S& ½´P S&Ò P S&½´P S&½P S& ½³P S& ½´P S&½´P S&,½³P
S&1Ò P S&9½´P
S&=Ò P S&>½³P S&F½´ @@¥ @ @@¥ @ @@¥ @ @@¥ @ 1 @@¥ @ CON @@¥ @ N @@¥
@ @@¥ @ @@¥ @ NO_FIELD @@¥ @P S&*½´P S& P S P S&?½´P S&D½´MPDEF ¤
N 8 B00 WAS1 ¤ Q P S¸EXIT_APP CONFIRM T@@¥ @ DELIMITER T@@¥ @P S& ½´P S&½´ @ AQ &Do you want to leave this application? QQ¤
! ¤
@¤
NY QP S SET CONFIRM &lc_conf. SET DELIMITER &lc_deli.P S P S
¸EXIT_APP D¤ @@¥ @ SET BELL &gc_bell. SET CARRY &gc_carry. SET CLOCK &gc_clock. SET CENTURY &gc_century. SET CONFIRM &gc_confirm. SET DELIMITERS &gc_deli. SET INSTRUCT &gc_instruc. SET STATUS &gc_status. SET SAFETY &gc_safety. SET SCORE &gc_score. SET TALK &gc_talk.¤ P P S ¸ P SP SP SP SP S&
½´P S& ½³P
S&1Ò P S & - 4 ; B Q U g r ° ³ ´ Ð Ñ è ! " 2# L$ i% & ' ¶( Ó) ê* ó, ü- . / 0 1 32 <3 E4 N5 W6 `7 i8 z9 : ; < ¦? µ@ ÄA ÓB âC òD E F %G 5H LL UO \P cQ lR uU X Y Z ª[ ®\ ¯] Á^ Û_ ÷` a b ed ne f ¢g ®h Ài Äl Öm ín o p 9q Ur qs t ¨u Âv Ûw óy þz { | } ~ $ - 6 G N O Sÿÿ K X a j ¸ º ¼ ¾ À Â Ä Æ È
Ê Ì Î
â ú , F c ~ °
Í ä ¯ ¾ Í Ü ì þ
/ F
¡ Õ ñ G
S
X
ª ¬ Ç Ð ö s pause vmpdef was1 GN_APGEN GC_BELL GC_CARRY GC_CLOCK GC_CENTURY GC_CONFIRM GC_DELI GC_INSTRUC GC_SAFETY GC_STATUS GC_SCORE GC_TALK GC_KEY GN_ERROR GN_IKEY GN_SEND GN_TRACE GC_BRDR GC_DEV GC_PROGNUM GC_QUIT LISTVAL LC_CONF LC_DELI F Ti @'@ n @@¥ @P S ÁDO Multerr
Multerr ¤ 1 TF @@¥ @¤ 2 TX @@¥ @P S @ L Z [ g u v } ~ ÿÿ C T ^ o 3 multerr LTYPE EN GN_ERROR LL_LOCK F Q Q ¤ QQQ ¤ TWA - ATw@Q @QQQ Q / 4 8 ÿÿ LC_SAY N F T( @@¥ @P S
¤ ¤ ¥ ¦ ÿÿ
GN_SEND F Tr @@¥ @¤ TRAA B * Tp @@¥ @ DO &lc_file. WITH "A" lc_window T@@ U P S¸SHOWPICK ACTIVATE WINDOW &lc_window. @@¥ @¥ @¥ @TU @@¥ @¤
¦ ¤ TAA , AA¤ T'@@¥ @¤ " ¤ T@¤ @@@ , @@¥ @ B ¤ ¤ TA , AT'@@¥ @¤ ¤ ¤ T@@¥ @P S Q Q ¤ QQP S © © ª ' « 5 ¬ N Q ® R ¯ n ° ± ² £ ³ ¤ ´ ½ µ Ë ¶ Ö · ù ¸ ¹ #º '» I¼ h½ i¾ p¿ |À }Á Â ÿÿ
/ ² · Å Î Ù ê ó ü * . C L P T b v LISTVAL ENTRYFLG LC_FILE LN_IKEY X1 CENTURY X2 CONFIRM LC_FLDLST F L ¤ CON Q 6 ¤ PRN P S&9½´P S&9 ¤ TXT P S Ç Ç È É Ê - Ë 6 Ì = Í N Î U Ï V Ð Z ÿÿ " C GC_DEV F
lc_message T@@ U T> @@¥ @¤ @@¥ @ 0 @@¥ @P S¸PAUSE ¤
lc_message T@@ U H @ AQT= @ *An error has occurred !! - Error message: @@@Q " @ AQ Error # ¤ @@Q @ AQ¤ QQ Press any key to continue... P S
¸PAUSE Õ × " Ø 0 Ù 1 Ú @ Û P Ü _ Ý j Þ ß Ì à Ð á ñ â ò ã ó ä å *æ 9ç =ÿÿ * 4 : J b ê LC_MSG GN_ERROR LC_OPTION LC_MESSAGE F T> @@¥ @T> AA T@@ , @@¥ @ T @@¥ @¤ 108,109,128,129, ± P S¸PAUSE @ AQ¤ @T= A@A@@Q @ AQ "T = Try again, R = Return to menu. QQ¤ ! ¤ @¤ TR QP SP S
¸PAUSE ¤ R ¤ 108,109,128,129, T> @@PAUSE @@¥ @/ í í ï 0 ñ @ ó [ ô j õ ö ä ø í ù ü ú û ü ý
ÿ + < ? @ O Q Uÿÿ
* : C y Æ Ò × ÿ I ,pause GN_ERROR LC_ERNO LC_OPT ON F ¤ @@¥ @¤ @@¥ @ @@¥ @¤ ¤ P/ S TRACE O Ƥ Q u @¤ TWB
B B( BBBAQ¤ Q @ AQ ;S - Set trace level, D - Display status, M - display Memory Q @ AQ P - Turn printer on, Q - to Quit Q Q @@¥ @ @& AQQ ¤ ! QP S ¤ S 8 @ AQ @! AQ Set trace level Q @ AQ Enter trace level to change to: QQ¤ # @ AQ QQP S¤ @ AQ @ AQ 9Trace is now turned off..To reactivate Trace - Press [F3] Q @ AQ Press any key to continue... QQ K ¤ D P SQ 0 ¤ M P SQ ¤ P P S&9½³ P S&9½´ @O AQ QP S ¸TRACE % 5 @ C D w ¨ ÷ + ; T ] a p }! " ß# ÿ$ % & ' m( ) ¤* ¥+ ´, »- À. Ï/ Ö0 Û1 ê2 ó3 ô4ø5 6 7 %8 )ÿÿ
/ 8 ; z ¤ 5 L g × « Æ á P_MSG OR P_LVL O LC_MSG ON LN_LVL AGE LC_TRP URY GN_TRACE M F CON @@¥ @ @@¥ @ @@¥ @ @@¥ @P0 S PRINTEMP 8 P S SAVEPRIN
( P2 S SAVEPRIN Send output to ... :P1 S SAVEPRIN Ä T-AA Tw@@ :PL S SAVEPRIN CON: Console ® Send output to Screen PT S SAVEPRIN LPT1: Parallel port 1 ® Send output to LPT1: PS S SAVEPRIN LPT2: Parallel port 2 ® Send output to LPT2: PQ S SAVEPRIN COM1: Serial port 1 ® Send output to COM1: PX S SAVEPRIN FILE = REPORT.TXT ®$ Send output to File Report.txt P* S ¸SAVEPRIN ÁDO get_sele get_sele P SSAVEPRIN P S ¸SAVEPRIN ¤ 9 TXT @@¥ @P S&¾
REPORT.TXT P S&½³ Å ¤ TU @@ © PRN @@¥ @¤ AA A A A LPT1LPT2COM1 A T@@¥ @P S ÁDO prntrtry prntrtry SET PRINTER TO &temp.¤ P S&9½³P S P S ¸PRINTEMP > > ? $ @ 3 A B C v E F Î G H SI «J K WL ³M áO ñP R S T ;U DV HW bX tY ²Z Ö[ ï\ ú] ^ _ ` a
b c #ÿÿ - < K n w ¬ ò Ó get_sele È prntrtry GC_DEV R LC_CHOICE GN_PKEY N GN_SEND GE TEMP P URY F ?Ð ESCAPE T@@¥ @To AA õ ¤ ON P S& ½´ @@¥ @P S¸PRINTEMP @ AQ Please ready your printer or Q @ AQ press ESC to cancel QTo @@ ¤ TJ @@¥ @ ' P S
¸PRINTEMP SET ESCAPE &lc_escape.¤ / f f g ! h , i 9 j B k C l R m d n o À pÕ q ã rç s ù t u v w !x "y &ÿÿ / L Í Ý LC_ESCAPE GN_PKEY E F T AATW@@ ( Database not in use. Pause P S&B½³P S&½´ @@¥ @Tv @@¥ @T @@¥ @ @@¥ @T5 @@¥ @ 0 @@¥ @
T @@¥ @ ( T @@¥ @¥ @¥
@ @@¥ @ @ AQT
A A $ Database is in natural order @ T
AA@
Index order: @@@Q @ AQ %Listed below are the first 16 fields. Q Ä T-AA Tw@@¥ @ @ AQ Ú T-@@¤ @ Â T-A@A@@¤ @ Â T-A@A@@¤ @ Â T-A@A@@¤ @@Qð @@¥ @¤ 0 õ ¤ ð A
A AA AAT@@@¥ @
¤ P BB@¤ P TfBBAQ ³ T-@@¤ @¤ TWB BBBT A@A@¤ TCC CDLNFMU T'B B BB B 8= Char = Date = Logic = Num = Float = Memo B TA@A@@Q¤ @@¥ @ @@¥ @P S POSIT1 P* S POSIT1
Position by :P/ S POSIT1 Ä T-AA Tw@@ :Pb S POSIT1 SEEK Record ® Search on index key :¯""=ORDER()
T
@ @ PM S POSIT1 GOTO Record ®! Position to specific record PP S POSIT1 LOCATE Record ®! Locate record for condition PG S POSIT1
Return ® Return without positioning P( S ¸POSIT1 ÁDO get_sele get_sele P S& ½³¤ 0 óP
SPOSIT1 ¤ TAAT\@@¥ @TU AA ¤ 6
7¤ « 6¤ 3 ø ThAATW@@ T_AATW@@ D 0Can't use this option - No index files are open. Pause Û @@¥ @ ( T @@¥ @P0 S POSIT2 > ÆP S¸POSIT2 @ AQ Enter the type of expression: QQ¤ # ) ¤ @ A B@A @B Q@AB @ AQ $(1=character, 2=numeric and 3=date.) QQP STv @@ Tv @@ DP S& ½³ @ AQ 'Enter the key expression to search for: Q¤ @ AQQ ¤ @D G ¤ % @ AQQ ¤
########## @ AQQ ¤ QP SP S& ½´Tv @@ Tv @@ a ¤ TRIM(lc_ln1) @ ' ¤ ln_num A ld_date AA@@¥ @ SEEK &lc_temp.P S ¸POSIT2 2¤ 4 " @@¥ @P S POSIT2 P# S POSIT2 GOTO: :P/ S POSIT2 Ä T-AA
Tw@@ :P: S POSIT2
TOP ® GOTO Top of File P@ S POSIT2
BOTTOM ® GOTO Bottom of File PF S POSIT2
Record # ® GOTO A Specific Record P( S ¸POSIT2 ÁDO get_sele get_sele P
SPOSIT2 ¤ @@¥ @TU AA s¤ *P0 S POSIT2
2 ÆP S¸POSIT2 @@¥ @ @ AQT BBTAAT\@ Max. Record # = @@@Q @ AQ Record to GOTO QQ¤ ###### + ¤ @ AT CCB@A @B Q@AB QP STv @@ Tv @@ 7¤ P S ¸POSIT2 = ¤ TOP @ BOTTOM @@¥ @ GOTO &lc_temp. ¤ 5 øP0 S POSIT2 B ÆP S¸POSIT2 @ AQ ie. ALL, NEXT
QP STv @@ Tv @@ ì ¤ T@@¥ @¤ TBBTWAA ¤ TA FOR AAA@ @¤ @@@¥ @¤
TBBTWAA ¤
TA WHILE AAA@ @¤ @@@¥ @¤ TWAA LOCATE &lc_temp. ' All fields were blank. Pause P S ¸POSIT2 T @'@ ' Record not found. Pause 7¤ Tv @@ Tv @@ TU @@ 0 @@¥ @ ÿ SET DELIMITERS &gc_deli.P S& ½´ ~ ~ : = > G P _ m { ¨ » Ø ç B { ò 0 ë ý 0 ^ ¡ ÷¢ H£ ¤ ç¥ § ¨(© 6ª N« f¬ l p® q¯ u° ² ³³ ó´ ÷µ ø¶ · ¸ N¹ ^º Ç» ÿ¼ ½ $¾ -¿ hÀ sÁ Â Ã Ä ¾Å ÂÆ ÖÇ ×È ØÉ áÊ êË Ì UÍ gÎ hÏ iÐ yÑ Ó Ô ·Õ ÞÖ × O Ø Ù Ý Ú
Û
Ü &
Ý 3
Þ >
ß r
à
á
â È
ã ) ä 2 å N æ T ç U è e é i ê ë ¥ ì ¦ í § î ¶ ð ê ñ ú ò ) ó J ô k õ ö ÷ ± ø Ã ù
ú M
û ^
ü r
ý v
þ
ÿ
®
¯
¹
Ú
à
á
7 @
Dÿÿ Y g u ¢ µ È Í Ò
á ² Å Ø ë û * 3 > Z _ w î ÷
9 H ] j { k Ó ' O
6
î
ÿ
R l G h
´ ½ Æ Ü ú
@
G
P
Þ
pause get_sele ´pause û get_sele w
pause º
pause LN_TYPE E LN_RKEY E LN_REC N LN_NUM GE LD_DATE RY LC_OPTION LC_SCP ST LC_LN1 RUC LC_LN2 TY LC_LN3 US LC_TEMP GN_SEND F TJ @@¥ @ a Tr A SEEK A P S¸SEEK A Tr @ GOTO @ P S¸GOTO ! Tr @ LOCATE @ P
S¸LOCATE ( 4 H T j x y } ÿÿ
LN_GETKEY F TM @'@ M P S& · P S& · P S& · P S& · P S& · P S& · P S& · P S P S& @
A BF CQÆÑ @ A BE CQ @ AQ 1 Worked All States Award Tracking System Q @ AQ ) for 160 through 10 Meters Q @ AQ ' by Paul Elliott, N3GPU Q @ AQ ! Version 1.0 Q @ AQ " December 1989 Q
@ AQ $ Also Available: Ham Radio Log Q @ AQ * DXCC Award Tracking Q @ AQ 4 WAZ Award Tracking (CQ & ITU) Q @ AQ T-@ Press @@ Ä T-A@A@ Ù T-A@A@@ to continue. @@Q TJ@@¥ @P S P1 S FULLSCR O ÆP1 S SAVESCR O ÆP1 S HELPSCR O ÆP1 S BROWSCR O Ƥ 6 P2 S EXIT_APP > ÆP/ S PAUSE O ÆP
S¸FULLSCR @ AQ @ AQ
Loading... QP S&ÆPh S WAS1 ®\ T-@ Position with: @@ T-A@A@@ ' -
Print Reports c ®( "Worked All States standard reports P7 S PAD_2 WAS1 ÁACTIVATE POPUP WASRPT1 P SWASRPT1 P6 S PAD_3 WAS1 Housekeeping c 0 P9 S PAD_3 WAS1 ÁACTIVATE POPUP HOUSKEEP P SHOUSKEEP PK S PAD_4 WAS1
Exit c F ® Return to Main Menu P3 S PAD_4 WAS1 ÁACTIVATE POPUP EXIT1
P SEXIT1 Q Q . QQP S&ÆP¿ S WASRPT1 È - ® T-@
Position: @@ T-A@A@ T-A@A@ T-A@A@@
Select: @ T-A@A@ Ä T-A@A@ Ù T-A@A@@
Help: F1 @@ Pl S WASRPT1 Status - 10 Meters ®7 1Status report for all states - 10 meter band only Pl S WASRPT1 Status - 12 Meters ®7 1Status report for all states - 12 meter band only Pl S WASRPT1 Status - 15 Meters ®7 1Status report for all states - 15 meter band only Pl S WASRPT1 Status - 17 Meters ®7 1Status report for all states - 17 meter band only Pl S WASRPT1 Status - 20 Meters ®7 1Status report for all states - 20 meter band only Pl S WASRPT1 Status - 30 Meters ®7 1Status report for all states - 30 meter band only Pl S WASRPT1 Status - 40 Meters ®7 1Status report for all states - 40 meter band only Po S WASRPT1 Status - 80 Meters ®: 4Status report for all states - 75/80 meter band only Pm S WASRPT1 Status - 160 Meters ®8 2Status report for all states - 160 meter band only Pp S
WASRPT1 Status - All Bands ®< 6Status report for all states - all bands 160-10 meters P# S ¸WASRPT1 ÁDO ACT02 ACT02 Q Q . QQP S&ÆPÀ S HOUSKEEP + È @ ® T-@
Position: @@ T-A@A@ T-A@A@ T-A@A@@
Select: @ T-A@A@ Ä T-A@A@ Ù T-A@A@@
Help: F1 @@ Pp S HOUSKEEP Delete Records ®? 9Physically remove records previously marked for deletion. P S HOUSKEEP Re-Index Log File ®P JRebuild log file indexes (use if records display or print in wrong order). P$ S ¸HOUSKEEP ÁDO ACT03 ACT03 Q Q . QQP S&ÆP½ S EXIT1 A È O ® T-@
Position: @@ T-A@A@ T-A@A@ T-A@A@@
Select: @ T-A@A@ Ä T-A@A@ Ù T-A@A@@
Help: F1 @@ P% S EXIT1
Go to DOS P' S EXIT1 Go to dBase P! S ¸EXIT1 ÁDO ACT04 ACT04 Q Q . QQ @ AQ + + , - " . - / 8 0 C 1 N 2 Y 3 Z 4 a 8 h 9 : ; à < = X> ? Ã@ ûA 9B C ÖD éF ðH %I ZJ K ÄL ÏM N P 9R JS WT uU ~W êX tY Z [ ?\ y] ¶^ _ <` Ia Rc e f õg e h Õ i E
j µ
k % l m n } o ¤ p ± q º s ~
u ò
v zw ¢x ¯y ¸{ y} ¢~ Í ò ÿ ÿÿ ã Ç act01 act02 act03 çact04 GN_IKEY Y GN_APGEN F P
S¸HELPSCR P S& ½´P S @ A BO CQ @ A BO CQÑ @ AQ @ AQ Press any key to continue... Q @ AQ QTJ @@¥ @ 01 ¤ : @ AQ No Help defined. Q TJ@@¥ @ Ò 02 ¤ : @ AQ No Help defined. Q TJ@@¥ @ 03 ¤ : @ AQ No Help defined. Q TJ@@¥ @ D 04 ¤ 7 @ AQ No Help defined. Q TJ@@¥ @P S& ½³ @ AQP
S
¸HELPSCR # : T a ¥ ³ · Ç ë þ 2 E U y À Ó Ô¡ Ý¢ ê£ û¤ ÿÿÿ  ø ? P Í LN_ROW Y GC_PROGNUM @ | \ SÄ db4waslg db4waslg.prg
t P h ! F lockit g db4waslg.prg ü ð Ð 8 info_box db4waslg.prg D @ $ ¢ get_sele db4waslg.prg O À d Ø
M \ ¨ showpick db4waslg.prg
° ¤ h Z < Å cleanup db4waslg.prg » x X ø =, _ Ô pause p db4waslg.prg ¤ ¤ l ü U! , n
ë multerr db4waslg.prg Å È ð )B P × trace r db4waslg.prg Z | 4 ` #7 , ´ < printset db4waslg.prg ³ h L Ü & n e prntrtry db4waslg.prg ~ Ø1 l0 Ä- 1 D (¨B } position db4waslg.prg \2 3 3 Ü2 } < postnhlp db4waslg.prg '3 äD ´D 8C ¼D |( * mpdef lp db4waslg.prg úD ´G G üF ÿ $ 1help1 p db4waslg.prg
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/