src/lib/modex/demos/qb45/utils.bi

   1 \r
   2         ' Misc Constants\r
   3 \r
   4 CONST True = -1, False = 0, nil = 0\r
   5 \r
   6         ' Keyboard Codes: Extended\r
   7 \r
   8 CONST KyF1 = &H3B00, KyF2 = &H3C00, KyF3 = &H3D00, KyF4 = &H3E00, KyF5 = &H3F00\r
   9 CONST KyF6 = &H4000, KyF7 = &H4100, KyF8 = &H4200, KyF9 = &H4300, KyF10 = &H4400\r
  10 \r
  11 CONST KyUp = &H4800, KyLeft = &H4B00, KyRight = &H4D00, KyDown = &H5000\r
  12 CONST KySLeft = &HCB00, KySRight = &HCD00, KySUp = &HC800, KySDown = &HD000\r
  13 \r
  14 CONST KyHome = &H4700, KyPgUp = &H4900, KyEnd = &H4F00, KyPgDn = &H5100\r
  15 CONST KySHome = &HC700, KySPgUp = &HC900, KySEnd = &HCF00, KySPgDn = &HD100\r
  16 \r
  17 CONST KyIns = &H5200, KyDel = &H5300, KyRvsTab = &H8F00\r
  18 CONST KySIns = &HC200, KySDel = &HC300\r
  19 \r
  20 CONST KyAltA = &H1E00, KyAltB = &H3000, KyAltC = &H2E00, KyAltD = &H2000\r
  21 CONST KyAltE = &H1200, KyAltF = &H2100, KyAltG = &H2200, KyAltH = &H2300\r
  22 CONST KyAltI = &H1700, KyAltJ = &H2400, KyAltK = &H2500, KyAltL = &H2600\r
  23 CONST KyAltM = &H3200, KyAltN = &H3100, KyAltO = &H1800, KyAltP = &H1900\r
  24 CONST KyAltQ = &H1000, KyAltR = &H1300, KyAltS = &H1F00, KyAltT = &H1400\r
  25 CONST KyAltU = &H1600, KyAltV = &H2F00, KyAltW = &H1100, KyAltX = &H2D00\r
  26 CONST KyAltY = &H1500, KyAltZ = &H2C00\r
  27 \r
  28         ' Keyboard Codes: Ascii\r
  29 \r
  30 CONST KyBS = 8, KyTab = 9, KyCR = 13, KyESC = &H1B, KyClr = &H7F\r
  31 CONST KyPlus = 45, KyMinus = 43\r
  32 \r
  33         ' Color Constants\r
  34 \r
  35 CONST c.BLACK = 0, c.BLUE = 1, c.GREEN = 2, c.CYAN = 3\r
  36 CONST c.RED = 4, c.PURPLE = 5, c.BROWN = 6, c.WHITE = 7\r
  37 CONST c.GREY = 8, c.bBLUE = 9, c.bGREEN = 10, c.bCYAN = 11\r
  38 CONST c.bRED = 12, c.bPURPLE = 13, c.YELLOW = 14, c.bWHITE = 15\r
  39 CONST c.BRIGHT = 8\r
  40 \r
  41         ' From UTILS.ASM\r
  42 \r
  43 DECLARE SUB DOS.PRINT ALIAS "DOS_PRINT" (Text$)\r
  44 DECLARE SUB DOS.PRINTS ALIAS "DOS_PRINTS" (Text$)\r
  45 DECLARE SUB SET.VIDEO.MODE ALIAS "SET_VIDEO_MODE" (BYVAL Mode%)\r
  46 DECLARE FUNCTION SCAN.KEYBOARD% ALIAS "SCAN_KEYBOARD"\r
  47 DECLARE FUNCTION RANDOM.INT ALIAS "RANDOM_INT" (BYVAL MaxInt%)\r
  48 DECLARE SUB INIT.RANDOM ALIAS "INIT_RANDOM"\r
  49 DECLARE FUNCTION TIMER.COUNT& ALIAS "TIMER_COUNT"\r
  50 DECLARE FUNCTION INT.SQR ALIAS "INT_SQR" (BYVAL X%, BYVAL Round%)\r
  51 \r