26 lines
428 B
QBasic
26 lines
428 B
QBasic
|
Attribute VB_Name = "Declarations"
|
|||
|
|
Option Explicit
|
|||
|
|
Option Private Module
|
|||
|
|
|
|||
|
|
Public Enum ItemStructure
|
|||
|
|
IS_ID = 1
|
|||
|
|
IS_PROBLEM = 2
|
|||
|
|
IS_CONSEQUENCE = 3
|
|||
|
|
IS_NOVELTY = 4
|
|||
|
|
IS_EFFECT = 5
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Enum InputStruct
|
|||
|
|
INPS_ID = 1
|
|||
|
|
INPS_START = 2
|
|||
|
|
INPS_FINISH = 3
|
|||
|
|
INPS_TYPE = 4
|
|||
|
|
INPS_TEXT = 5
|
|||
|
|
INPS_COMMENT = 6
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Const DATA_DEFAULT_ID = "N/A"
|
|||
|
|
Public Const TYPE_NO_TYPE = 0
|
|||
|
|
|
|||
|
|
Public Const SHT_DATA = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|