home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / TYPES.BAS < prev    next >
BASIC Source File  |  1994-01-02  |  2KB  |  94 lines
  1. 'TYPE CFGRecord
  2. '        CommonVarFile   AS STRING * 25
  3. '        OLMPath         AS STRING * 11
  4. 'END TYPE
  5.  
  6. TYPE CommonVarRecord
  7.     Variable AS STRING * 12
  8.     Value    AS STRING * 80
  9.     CrLf     AS STRING * 2
  10. END TYPE
  11. $IF NOT %NOCOMMENTS
  12. TYPE CommentRecord
  13. TaxID AS STRING * 20
  14. Line1 AS STRING * 78
  15. Line2 AS STRING * 78
  16. Line3 AS STRING * 78
  17. Line4 AS STRING * 78
  18. Line5 AS STRING * 78
  19. Line6 AS STRING * 78
  20. Line7 AS STRING * 78
  21. Line8 AS STRING * 78
  22. Line9 AS STRING * 78
  23. extra AS STRING * 18
  24. ComTime AS STRING * 10
  25. ComDate AS STRING * 10
  26. ComUser AS STRING * 8
  27. END TYPE
  28.  
  29. TYPE CommentIndexRecord
  30.     TaxID AS STRING * 20
  31.     RecordNumber AS LONG
  32. END TYPE
  33. $ENDIF
  34.  
  35. TYPE CODERECORD
  36.     CODE AS STRING * 80
  37. END TYPE
  38.  
  39. $IF NOT %NODBASE
  40. TYPE DBaseHeaderRecord
  41.         Ver AS BYTE         ' dBASE version
  42.        Year AS BYTE         ' year
  43.       Month AS BYTE         ' month
  44.         Day AS BYTE         ' day of last update
  45. NumberOfRecords AS DWORD        ' number of records in this database
  46.          offset AS WORD         ' length of header
  47.        Size AS WORD         ' length of record
  48.       Blank AS STRING * 20  ' reserved for future use
  49. END TYPE
  50.  
  51. TYPE DBaseFieldRecord
  52.    FieldName AS STRING * 11  ' name of the field in ASCII
  53.    FieldType AS STRING * 1   ' Type CNLM or D
  54.      FDA AS DWORD        ' field data address - we don't need this
  55.     FLen AS BYTE         ' Length, we'll need this!
  56.     DecC AS BYTE         ' number of decimals in numeric field
  57.       Blank9 AS STRING * 14  ' reserved for future use
  58. END TYPE
  59.  
  60. TYPE DBStructureRecord
  61.     FieldName AS STRING * 11
  62.     FieldType AS STRING * 1
  63.     FieldLength AS BYTE
  64.     FieldOffset AS INTEGER
  65.     FieldDecimals AS BYTE
  66.     END TYPE
  67. $ENDIF
  68.  
  69. TYPE DBaseEditFormat
  70.         FieldName AS STRING * 20
  71.         FieldType AS STRING * 1
  72.         FieldLength AS BYTE
  73.         FieldRow AS INTEGER
  74.         FieldCol AS INTEGER
  75.         FieldFG AS INTEGER
  76.         FieldBG AS INTEGER
  77. END TYPE
  78.  
  79.  
  80. TYPE LONGINTEGER
  81.     Num AS LONG
  82.     END TYPE
  83.  
  84. $IF NOT %NOXMODEM
  85. TYPE XPacketType
  86.     SOH AS STRING * 1
  87.     BLK AS STRING * 1
  88.     NEG AS STRING * 1
  89.     DAT AS STRING * 128
  90.     SUM AS STRING * 1
  91.     CRC AS STRING * 1
  92.     END TYPE
  93. $ENDIF
  94.