mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
61 lines
1.8 KiB
QBasic
61 lines
1.8 KiB
QBasic
'String SPacer/delimiter constants
|
|
'sp is used as the primary string spacer
|
|
'sp2 & sp3 are used when further delimiation is required
|
|
'for instance, sp2 is used for embedding spacing info for auto-layout by an IDE
|
|
DIM SHARED sp AS STRING * 1, sp2 AS STRING * 1, sp3 AS STRING * 1
|
|
sp = CHR$(13): sp2 = CHR$(10): sp3 = CHR$(26)
|
|
DIM SHARED sp_asc AS LONG, sp2_asc AS LONG, sp3_asc AS LONG
|
|
sp_asc = ASC(sp): sp2_asc = ASC(sp2): sp3_asc = ASC(sp3)
|
|
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = CHR$(179) 'makes debug output more readable
|
|
|
|
'ASCII codes
|
|
CONST ASC_BACKSLASH = 92
|
|
CONST ASC_FORWARDSLASH = 47
|
|
CONST ASC_LEFTBRACKET = 40
|
|
CONST ASC_RIGHTBRACKET = 41
|
|
CONST ASC_FULLSTOP = 46
|
|
CONST ASC_COLON = 58
|
|
CONST ASC_SEMICOLON = 59
|
|
CONST ASC_UNDERSCORE = 95
|
|
CONST ASC_QUOTE = 34
|
|
CONST ASC_LEFTSQUAREBRACKET = 91
|
|
CONST ASC_RIGHTSQUAREBRACKET = 93
|
|
CONST ASC_QUESTIONMARK = 63
|
|
|
|
'_KEYDOWN/_KEYHIT codes
|
|
CONST KEY_LSHIFT = 100304
|
|
CONST KEY_RSHIFT = 100303
|
|
CONST KEY_LCTRL = 100306
|
|
CONST KEY_RCTRL = 100305
|
|
CONST KEY_LALT = 100308
|
|
CONST KEY_RALT = 100307
|
|
CONST KEY_LAPPLE = 100310
|
|
CONST KEY_RAPPLE = 100309
|
|
CONST KEY_F1 = 15104
|
|
CONST KEY_F2 = 15360
|
|
CONST KEY_F3 = 15616
|
|
CONST KEY_F4 = 15872
|
|
CONST KEY_F5 = 16128
|
|
CONST KEY_F6 = 16384
|
|
CONST KEY_F7 = 16640
|
|
CONST KEY_F8 = 16896
|
|
CONST KEY_F9 = 17152
|
|
CONST KEY_F10 = 17408
|
|
CONST KEY_F11 = 34048
|
|
CONST KEY_F12 = 34304
|
|
CONST KEY_INSERT = 20992
|
|
CONST KEY_DELETE = 21248
|
|
CONST KEY_HOME = 18176
|
|
CONST KEY_END = 20224
|
|
CONST KEY_PAGEUP = 18688
|
|
CONST KEY_PAGEDOWN = 20736
|
|
CONST KEY_LEFT = 19200
|
|
CONST KEY_RIGHT = 19712
|
|
CONST KEY_UP = 18432
|
|
CONST KEY_DOWN = 20480
|
|
CONST KEY_ESC = 27
|
|
CONST KEY_ENTER = 13
|
|
|
|
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
|
|
DIM SHARED CHR_TAB AS STRING: CHR_TAB = CHR$(9)
|
|
DIM SHARED CRLF AS STRING: CRLF = CHR$(13) + CHR$(10) 'carriage return+line feed
|