home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbhelp30.zip / DBHELP.HDX (.txt) < prev    next >
dBASE Multiple Index  |  1991-02-22  |  4KB  |  103 lines
  1. DBHELP
  2.          @ STARTMMA9 + 2,STARTMMB9 + 24 Clear to STARTMMA9 + 5,STARTMMB9 + 33 
  3.          Set Color to W+/R
  4.          @ STARTMMA9 + 3,STARTMMB9 + 25 Clear to STARTMMA9 + 5,STARTMMB9 + 33
  5.          @ STARTMMA9 + 4,STARTMMB9 + 26 Say "Program"
  6.          Do TXTEDIT
  7.    EndCase
  8.    Use
  9. EndDo
  10. Return
  11. Procedure CLOCKER
  12. Save Screen to NOW2
  13. Do While .T.
  14.    Set Clock to STARTC1 + 1,STARTC2 + 2
  15.    Restore Screen from NOW2
  16.    ?? BlowBox(STARTC1,STARTC2
  17.    WAITING = InKey(0)
  18.    If WAITING <> 32
  19.       Set Clock OFF
  20.       Exit
  21.    EndIf
  22.    Do PRESSED
  23.    Set Clock OFF
  24.    Do While .T.
  25.       Restore Screen from NOW3
  26.       @ STARTC1,STARTC2 to STARTC3,STARTC4 Chr(178) Color W+/B
  27.       WAITING = InKey(0)
  28.       Do Case
  29.          Case WAITING = 24
  30.             STARTC1 = STARTC1 + 1
  31.             STARTC3 = STARTC3 + 1
  32.             If STARTC3 > 23
  33.                STARTC1 = STARTC1 - 1
  34.                STARTC3 = STARTC3 - 1
  35.             EndIf
  36.          Case WAITING = 5
  37.             STARTC1 = STARTC1 - 1
  38.             STARTC3 = STARTC3 - 1
  39.             If STARTC1 < 0
  40.                STARTC1 = STARTC1 + 1
  41.                STARTC3 = STARTC3 + 1
  42.             EndIf
  43.          Case WAITING = 4
  44.             STARTC2 = STARTC2 + 1
  45.             STARTC4 = STARTC4 + 1
  46.             If STARTC4 > 78
  47.                STARTC2 = STARTC2 - 1
  48.                STARTC4 = STARTC4 - 1
  49.             EndIf
  50.          Case WAITING = 19
  51.             STARTC2 = STARTC2 - 1
  52.             STARTC4 = STARTC4 - 1
  53.             If STARTC2 < 0
  54.                STARTC2 = STARTC2 + 1
  55.                STARTC4 = STARTC4 + 1
  56.             EndIf
  57.          Otherwise
  58.             Exit
  59.       EndCase
  60.    EndDo
  61. EndDo
  62. Restore Screen from NOW2
  63. Return
  64. Procedure DATABACK
  65. Save Screen to CURSTART
  66. ?? BlowBox(STARTMMA8,STARTMMB8,STARTMMA8 + 7,STARTMMB8 + 25,"Single",STARTBXC1)
  67. ?? BlowBox(STARTMMA8 + 2,STARTMMB8 + 2,STARTMMA8 + 4,STARTMMB8 + 
  68. str(recno(),4,0)
  69. right(rtrim(text),1)="~"
  70.    1F
  71.   70M
  72.   77[
  73.   91k
  74.  107~
  75.  283(
  76.  296=
  77.  317O
  78.  335S
  79.  339W
  80.  343`
  81.  5295
  82.  5659
  83.  569E
  84.  796-
  85.  8131
  86.  8175
  87.  8218
  88.  824=
  89.  829a
  90.  865i
  91.  873s
  92.                                                                          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               
  93.      
  94.    0:   3  
  95.    1:  91  
  96.    2:   2  
  97.    3:   7  
  98.    4:   0  
  99.      
  100.    5:   0  
  101.    6:   0  
  102.    7: 
  103.