home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbhelp30.zip
/
DBHELP.HDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1991-02-22
|
4KB
|
103 lines
DBHELP
@ STARTMMA9 + 2,STARTMMB9 + 24 Clear to STARTMMA9 + 5,STARTMMB9 + 33
Set Color to W+/R
@ STARTMMA9 + 3,STARTMMB9 + 25 Clear to STARTMMA9 + 5,STARTMMB9 + 33
@ STARTMMA9 + 4,STARTMMB9 + 26 Say "Program"
Do TXTEDIT
EndCase
Use
EndDo
Return
Procedure CLOCKER
Save Screen to NOW2
Do While .T.
Set Clock to STARTC1 + 1,STARTC2 + 2
Restore Screen from NOW2
?? BlowBox(STARTC1,STARTC2
WAITING = InKey(0)
If WAITING <> 32
Set Clock OFF
Exit
EndIf
Do PRESSED
Set Clock OFF
Do While .T.
Restore Screen from NOW3
@ STARTC1,STARTC2 to STARTC3,STARTC4 Chr(178) Color W+/B
WAITING = InKey(0)
Do Case
Case WAITING = 24
STARTC1 = STARTC1 + 1
STARTC3 = STARTC3 + 1
If STARTC3 > 23
STARTC1 = STARTC1 - 1
STARTC3 = STARTC3 - 1
EndIf
Case WAITING = 5
STARTC1 = STARTC1 - 1
STARTC3 = STARTC3 - 1
If STARTC1 < 0
STARTC1 = STARTC1 + 1
STARTC3 = STARTC3 + 1
EndIf
Case WAITING = 4
STARTC2 = STARTC2 + 1
STARTC4 = STARTC4 + 1
If STARTC4 > 78
STARTC2 = STARTC2 - 1
STARTC4 = STARTC4 - 1
EndIf
Case WAITING = 19
STARTC2 = STARTC2 - 1
STARTC4 = STARTC4 - 1
If STARTC2 < 0
STARTC2 = STARTC2 + 1
STARTC4 = STARTC4 + 1
EndIf
Otherwise
Exit
EndCase
EndDo
EndDo
Restore Screen from NOW2
Return
Procedure DATABACK
Save Screen to CURSTART
?? BlowBox(STARTMMA8,STARTMMB8,STARTMMA8 + 7,STARTMMB8 + 25,"Single",STARTBXC1)
?? BlowBox(STARTMMA8 + 2,STARTMMB8 + 2,STARTMMA8 + 4,STARTMMB8 +
str(recno(),4,0)
right(rtrim(text),1)="~"
1F
70M
77[
91k
107~
283(
296=
317O
335S
339W
343`
5295
5659
569E
796-
8131
8175
8218
824=
829a
865i
873s
Using this option, a header dump from dB Help! with the above structure would result: dB Help! Version 3.0 Database Header Dump: TEST.DBF
0: 3
1: 91
2: 2
3: 7
4: 0
5: 0
6: 0
7: