Millennium Time Capsule/AC2000.BIN/disks/hbasic_1/dragdrop/dragdrop.bh

Text File | 1997-06-15 | 710 b | 41 lines

CONST     MENU1%=     0

CONST    Desk%=     3
CONST    File%=     4
CONST    DragandDrop%=     7
CONST    OpenWindow%=    16
CONST    CloseWindow%=    17
CONST    Endprog%=    20

CONST     ABOUT2%=     1

CONST    OK%=     1
CONST    DragDropisapr%=     2
CONST    testDragdropop%=     3
CONST    forMultiTOS%=     4

CONST     MAIN3%=     2


CONST     CHOOSE6%=     3

CONST    DDOK%=     1
CONST    DDNAK%=     2
CONST    DDEXT%=     3
CONST    DDLEN%=     4
CONST    DDTRASH%=     5
CONST    DDPRINTER%=     6
CONST    DDCLIPBOARD%=     7
CONST    ACCEPTFILE%=     8
CONST    REJECTFILEABO%=     9
CONST    WRONGFILETYPEF%=    10
CONST    Fileistoobig%=    11
CONST    Filedraggedont%=    12

CONST     TITLE4%=     0


CONST     ACCEPT5%=     1