home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / tb / tbwindo / tbw60.inc < prev    next >
Text File  |  1988-04-29  |  21KB  |  366 lines
  1. ' TBWINDO 6.0 PROCS. AND FUNCTIONS
  2.  
  3. ' INCLUDE COMMON DEFS. IF CHAINING
  4.  
  5.  DEFINT a-z
  6.  
  7. COMMON wrow(1),  wrows(1),  wcol(1),  wcols(1), wattr(1)
  8. COMMON wshdw(1), wlstx(1),  wlsty(1), scrn(1),  wptr(1), mw, scrnarray, idx
  9. COMMON item$(1), itemcount, startpos, curntpos, hlattr,  cy, flattr
  10. COMMON bartype,  flon
  11.  
  12. DEF FNAttr (fore, back)
  13. LOCAL temp
  14.  temp = (back * 16) + fore
  15.  IF fore > 15 THEN temp = temp + 112
  16.  FNAttr = temp
  17. END DEF
  18.  
  19. SUB Tbwbox INLINE
  20. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HE8,&H4E,&H00,&H00,&H00,&H00,&H00,&H00,&H00
  21. $INLINE &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
  22. $INLINE &H00,&H00,&H00,&H00,&HDA,&HBF,&HC0,&HD9,&HB3,&HC4,&HC9,&HBB,&HC8,&HBC
  23. $INLINE &HBA,&HCD,&HD5,&HB8,&HD4,&HBE,&HB3,&HCD,&HD6,&HB7,&HD3,&HBD,&HBA,&HC4
  24. $INLINE &HDB,&HDB,&HDB,&HDB,&HDB,&HDB,&HB0,&HB0,&HB0,&HB0,&HB0,&HB0,&HB1,&HB1
  25. $INLINE &HB1,&HB1,&HB1,&HB1,&HB2,&HB2,&HB2,&HB2,&HB2,&HB2,&H00,&H00,&H00,&H00
  26. $INLINE &H00,&H00,&H5B,&H0E,&H1F,&H33,&HC0,&HC4,&H7E,&H16,&H26,&H8B,&H05,&HFE
  27. $INLINE &HC8,&HE8,&HD0,&H04,&H8E,&HC3,&H06,&HC4,&H7E,&H2E,&H26,&H8B,&H05,&H88
  28. $INLINE &H07,&HC4,&H7E,&H2A,&H26,&H8B,&H05,&H88,&H47,&H01,&HC4,&H7E,&H26,&H26
  29. $INLINE &H8B,&H05,&H88,&H47,&H02,&HC4,&H7E,&H22,&H26,&H8B,&H05,&H88,&H47,&H03
  30. $INLINE &HC4,&H7E,&H1E,&H26,&H8B,&H05,&HB1,&H08,&HD3,&HE0,&H89,&H47,&H14,&HC4
  31. $INLINE &H7E,&H1A,&H26,&H8B,&H05,&HD3,&HE0,&H89,&H47,&H10,&H07,&HE8,&H17,&H04
  32. $INLINE &H06,&HC4,&H7E,&H12,&H26,&H8B,&H05,&H3D,&H01,&H00,&H07,&H74,&H06,&HE8
  33. $INLINE &H46,&H01,&HE9,&H3B,&H06,&HE8,&H03,&H00,&HE9,&H35,&H06,&H8A,&H47,&H02
  34. $INLINE &H8A,&H4F,&H02,&H2A,&H0F,&HD0,&HE9,&H2A,&HC1,&H88,&H47,&H04,&H88,&H47
  35. $INLINE &H06,&H8A,&H47,&H03,&H8A,&H4F,&H03,&H2A,&H4F,&H01,&HD0,&HE9,&H2A,&HC1
  36. $INLINE &H88,&H47,&H05,&H88,&H47,&H07,&H8A,&H47,&H07,&HFE,&HC0,&H88,&H47,&H07
  37. $INLINE &H8A,&H47,&H06,&HFE,&HC0,&H88,&H47,&H06,&H8A,&H47,&H04,&HFE,&HC8,&H88
  38. $INLINE &H47,&H04,&H8A,&H47,&H05,&HFE,&HC8,&H88,&H47,&H05,&H8A,&H27,&H8A,&H47
  39. $INLINE &H01,&H8A,&H6F,&H02,&H8A,&H4F,&H03,&H8A,&H77,&H04,&H88,&H37,&H8A,&H77
  40. $INLINE &H06,&H88,&H77,&H02,&H8A,&H77,&H07,&H88,&H77,&H03,&H8A,&H77,&H05,&H88
  41. $INLINE &H77,&H01,&H88,&H67,&H04,&H88,&H6F,&H06,&H88,&H47,&H05,&H88,&H4F,&H07
  42. $INLINE &HB0,&H01,&HB4,&H01,&HB1,&H01,&HB5,&H01,&HB2,&H00,&H8A,&H37,&H3A,&H77
  43. $INLINE &H04,&H75,&H03,&HE9,&H86,&H00,&H50,&H8A,&H07,&HFE,&HC8,&H88,&H07,&H58
  44. $INLINE &H8A,&H37,&H3A,&H77,&H04,&H74,&H77,&H50,&H8A,&H07,&HFE,&HC8,&H88,&H07
  45. $INLINE &H58,&H8A,&H37,&H3A,&H77,&H04,&H74,&H68,&H50,&H8A,&H07,&HFE,&HC8,&H88
  46. $INLINE &H07,&H58,&H8A,&H77,&H02,&H3A,&H77,&H06,&H74,&H63,&H50,&H8A,&H47,&H02
  47. $INLINE &HFE,&HC0,&H88,&H47,&H02,&H58,&H8A,&H77,&H02,&H3A,&H77,&H06,&H74,&H51
  48. $INLINE &H50,&H8A,&H47,&H02,&HFE,&HC0,&H88,&H47,&H02,&H58,&H8A,&H77,&H02,&H3A
  49. $INLINE &H77,&H06,&H74,&H3F,&H50,&H8A,&H47,&H02,&HFE,&HC0,&H88,&H47,&H02,&H58
  50. $INLINE &H8A,&H77,&H01,&H3A,&H77,&H05,&H74,&H38,&H50,&H8A,&H47,&H01,&HFE,&HC8
  51. $INLINE &H88,&H47,&H01,&H58,&H8A,&H77,&H03,&H3A,&H77,&H07,&H74,&H31,&H50,&H8A
  52. $INLINE &H47,&H03,&HFE,&HC0,&H88,&H47,&H03,&H58,&HE8,&H33,&H00,&HE9,&H70,&HFF
  53. $INLINE &H80,&HFA,&H04,&H74,&H27,&H02,&HD4,&HB4,&H00,&HEB,&H95,&H80,&HFA,&H04
  54. $INLINE &H74,&H1C,&H02,&HD0,&HB0,&H00,&HEB,&HC0,&H80,&HFA,&H04,&H74,&H11,&H02
  55. $INLINE &HD5,&HB5,&H00,&HEB,&HC7,&H80,&HFA,&H04,&H74,&H06,&H02,&HD1,&HB1,&H00
  56. $INLINE &HEB,&HCE,&HE8,&H01,&H00,&HC3,&H50,&H53,&H51,&H52,&H57,&H06,&H56,&H06
  57. $INLINE &H5F,&HE8,&H53,&H03,&H8B,&HCE,&H33,&HC0,&H8A,&H47,&H01,&HF7,&HE1,&H51
  58. $INLINE &H32,&HED,&H8A,&H0F,&HD1,&HE1,&H03,&HC1,&H89,&H47,&H08,&H33,&HC0,&H8A
  59. $INLINE &H47,&H01,&H59,&HF7,&HE1,&H51,&H8A,&H4F,&H02,&HD1,&HE1,&H03,&HC1,&H89
  60. $INLINE &H47,&H0A,&H33,&HC0,&H8A,&H47,&H03,&H59,&HF7,&HE1,&H51,&H8A,&H0F,&HD1
  61. $INLINE &HE1,&H03,&HC1,&H89,&H47,&H0C,&H33,&HC0,&H8A,&H47,&H03,&H59,&HF7,&HE1
  62. $INLINE &H8A,&H4F,&H02,&HD1,&HE1,&H03,&HC1,&H89,&H47,&H0E,&H53,&HFF,&H77,&H08
  63. $INLINE &HFF,&H77,&H0A,&HFF,&H77,&H0C,&HFF,&H77,&H0E,&HFF,&H77,&H10,&H58,&H5B
  64. $INLINE &H53,&H8B,&HDF,&H8A,&H47,&H4B,&H5B,&HE8,&H67,&H04,&H53,&H8B,&HDF,&H8A
  65. $INLINE &H47,&H4A,&H5B,&H5B,&HE8,&H5C,&H04,&H53,&H8B,&HDF,&H8A,&H47,&H49,&H5B
  66. $INLINE &H5B,&HE8,&H51,&H04,&H53,&H8B,&HDF,&H8A,&H47,&H48,&H5B,&H5B,&HE8,&H46
  67. $INLINE &H04,&H5B,&H33,&HC9,&H8A,&H4F,&H02,&H49,&H33,&HC0,&H8A,&H07,&H40,&H2B
  68. $INLINE &HC8,&H41,&H53,&H8B,&H47,&H08,&HFF,&H77,&H10,&H8B,&HD8,&H83,&HC3,&H02
  69. $INLINE &H58,&H53,&H8B,&HDF,&H8A,&H47,&H4D,&H5B,&HE8,&H20,&H04,&H83,&HC3,&H02
  70. $INLINE &HE2,&HF8,&H5B,&H33,&HC9,&H8A,&H4F,&H02,&H49,&H33,&HC0,&H8A,&H07,&H40
  71. $INLINE &H2B,&HC8,&H41,&H53,&H8B,&H47,&H0C,&HFF,&H77,&H10,&H8B,&HD8,&H83,&HC3
  72. $INLINE &H02,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4D,&H5B,&HE8,&HF5,&H03,&H83,&HC3
  73. $INLINE &H02,&HE2,&HF8,&H5B,&H33,&HC9,&H8A,&H4F,&H03,&HFE,&HC9,&H33,&HC0,&H8A
  74. $INLINE &H47,&H01,&HFE,&HC0,&H2B,&HC8,&H53,&H8B,&H47,&H08,&HFF,&H77,&H10,&H8B
  75. $INLINE &HD8,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4C,&H5B,&H41,&H03,&HDE,&HE8,&HC8
  76. $INLINE &H03,&HE2,&HF9,&H5B,&H33,&HC9,&H8A,&H4F,&H03,&HFE,&HC9,&H33,&HC0,&H8A
  77. $INLINE &H47,&H01,&HFE,&HC0,&H2B,&HC8,&H53,&H8B,&H47,&H0A,&HFF,&H77,&H10,&H8B
  78. $INLINE &HD8,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4C,&H5B,&H41,&H03,&HDE,&HE8,&H9E
  79. $INLINE &H03,&HE2,&HF9,&H5B,&HE8,&H08,&H00,&H5E,&H07,&H5F,&H5A,&H59,&H5B,&H58
  80. $INLINE &HC3,&H53,&H89,&H6F,&H08,&H33,&HC9,&H33,&HD2,&H8A,&H4F,&H01,&H83,&HC1
  81. $INLINE &H02,&H51,&H8A,&H0F,&H83,&HC1,&H02,&H51,&H8A,&H4F,&H01,&H8A,&H57,&H03
  82. $INLINE &H2A,&HD1,&H4A,&H52,&H8A,&H0F,&H8A,&H57,&H02,&H2A,&HD1,&H4A,&H52,&HB2
  83. $INLINE &H20,&H52,&H8B,&H47,&H14,&H8A,&HD4,&H52,&HE8,&H0A,&H02,&H5B,&H8B,&H6F
  84. $INLINE &H08,&HC3,&H56,&H57,&H50,&H53,&H51,&H52,&H06,&HC4,&H7E,&H0A,&H26,&H8B
  85. $INLINE &H05,&H3D,&H01,&H00,&H73,&H03,&HE9,&HF7,&H00,&H3D,&H0A,&H00,&H7E,&H03
  86. $INLINE &HE9,&HEF,&H00,&H53,&H89,&H6F,&H08,&H33,&HD2,&H33,&HC9,&H8A,&H57,&H01
  87. $INLINE &H83,&HC2,&H02,&H52,&HA9,&H01,&H00,&H74,&H6B,&H8A,&H17,&H4A,&H52,&H8A
  88. $INLINE &H57,&H03,&H8A,&H4F,&H01,&H2B,&HD1,&H42,&H52,&HBA,&H02,&H00,&H52,&H3D
  89. $INLINE &H01,&H00,&H75,&H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15,&H52,&HE8,&H06,&H02
  90. $INLINE &HEB,&H08,&HE8,&HBE,&H00,&H52,&H51,&HE8,&HA9,&H01,&H5B,&H53,&H33,&HD2
  91. $INLINE &H33,&HC9,&H8A,&H57,&H03,&H83,&HC2,&H02,&H52,&H8A,&H17,&H4A,&H52,&HBA
  92. $INLINE &H01,&H00,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2B,&HD1,&H42,&H52,&HC4,&H7E
  93. $INLINE &H0A,&H26,&H8B,&H05,&H3D,&H01,&H00,&H75,&H0D,&HC4,&H7E,&H0E,&H26,&H8B
  94. $INLINE &H15,&H52,&HE8,&HC9,&H01,&HEB,&H77,&H90,&HE8,&H80,&H00,&H52,&H51,&HE8
  95. $INLINE &H6B,&H01,&HEB,&H6C,&H8A,&H57,&H02,&H83,&HC2,&H02,&H52,&H8A,&H57,&H03
  96. $INLINE &H8A,&H4F,&H01,&H2B,&HD1,&H52,&HBA,&H02,&H00,&H52,&H3D,&H02,&H00,&H75
  97. $INLINE &H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15,&H52,&HE8,&H99,&H01,&HEB,&H08,&HE8
  98. $INLINE &H51,&H00,&H52,&H51,&HE8,&H3C,&H01,&H5B,&H53,&H33,&HD2,&H33,&HC9,&H8A
  99. $INLINE &H57,&H03,&H83,&HC2,&H02,&H52,&H8A,&H17,&H83,&HC2,&H03,&H52,&HBA,&H01
  100. $INLINE &H00,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2B,&HD1,&H42,&H52,&HC4,&H7E,&H0A
  101. $INLINE &H26,&H8B,&H05,&H3D,&H02,&H00,&H75,&H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15
  102. $INLINE &H52,&HE8,&H5A,&H01,&HEB,&H08,&HE8,&H12,&H00,&H52,&H51,&HE8,&HFD,&H00
  103. $INLINE &H5B,&H8B,&H6F,&H08,&H07,&H5A,&H59,&H5B,&H58,&H5F,&H5E,&HC3,&HC3,&H3D
  104. $INLINE &H04,&H00,&H7F,&H05,&HBA,&HDB,&H00,&HEB,&H17,&H3D,&H06,&H00,&H7F,&H05
  105. $INLINE &HBA,&HB0,&H00,&HEB,&H0D,&H3D,&H08,&H00,&H7F,&H05,&HBA,&HB1,&H00,&HEB
  106. $INLINE &H03,&HBA,&HB2,&H00,&HC4,&H7E,&H0E,&H26,&H8B,&H0D,&HC3,&H56,&H57,&H50
  107. $INLINE &H53,&H51,&H52,&H06,&HC4,&H7E,&H32,&H26,&H8B,&H05,&H3D,&H00,&H00,&H74
  108. $INLINE &H5D,&H33,&HD2,&H33,&HC9,&H8A,&H57,&H01,&H42,&H52,&HC4,&H7E,&H0A,&H26
  109. $INLINE &H8B,&H05,&H3D,&H00,&H00,&H75,&H1B,&H8A,&H17,&H42,&H52,&H8A,&H57,&H03
  110. $INLINE &H8A,&H4F,&H01,&H2A,&HD1,&H83,&HC2,&H02,&H52,&H8A,&H57,&H02,&H8A,&H0F
  111. $INLINE &H2A,&HD1,&H42,&H52,&HEB,&H26,&HA9,&H01,&H00,&H74,&H06,&H8A,&H17,&H4A
  112. $INLINE &H52,&HEB,&H04,&H8A,&H17,&H42,&H52,&H8A,&H57,&H03,&H8A,&H4F,&H01,&H2A
  113. $INLINE &HD1,&H83,&HC2,&H03,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2A,&HD1,&H83,&HC2
  114. $INLINE &H03,&H52,&HC4,&H7E,&H06,&H06,&H57,&HE8,&H33,&H01,&H07,&H5A,&H59,&H5B
  115. $INLINE &H58,&H5F,&H5E,&HC3,&H56,&H57,&H50,&H53,&H51,&H52,&H06,&HB1,&H06,&HF6
  116. $INLINE &HE1,&H05,&H18,&H00,&H03,&HC3,&H1E,&H07,&H8B,&HF0,&H83,&HC3,&H48,&H8B
  117. $INLINE &HFB,&HFC,&HB9,&H06,&H00,&HF3,&HA4,&H07,&H5A,&H59,&H5B,&H58,&H5F,&H5E
  118. $INLINE &HC3,&H50,&H53,&H51,&H1E,&HB8,&H40,&H00,&H50,&H1F,&H33,&HC0,&HA0,&H4A
  119. $INLINE &H00,&HD1,&HE0,&H8B,&HF0,&H8A,&H16,&H49,&H00,&H80,&HFA,&H07,&H75,&H05
  120. $INLINE &HB8,&H00,&HB0,&HEB,&H03,&HB8,&H00,&HB8,&H8E,&HC0,&H1F,&H59,&H5B,&H58
  121. $INLINE &HC3,&H55,&H8B,&HEC,&H1E,&H06,&HE8,&H1E,&H01,&H53,&H07,&H8B,&H4E,&H0A
  122. $INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1
  123. $INLINE &HE0,&H8B,&H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H06
  124. $INLINE &H8A,&HD8,&H8B,&H46,&H04,&H8A,&HE0,&H8A,&HC3,&HFC,&H8B,&H76,&H08,&H5B
  125. $INLINE &HD1,&HE3,&H5A,&H57,&H8B,&HCE,&HE8,&H05,&H01,&HAB,&HE2,&HFA,&H5F,&H59
  126. $INLINE &H49,&HE3,&H05,&H51,&H03,&HFB,&HEB,&HED,&H07,&H1F,&H5D,&HC2,&H0C,&H00
  127. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HE8,&HCB,&H00,&H53,&H07,&H8B,&H4E,&H08,&H51
  128. $INLINE &H52,&H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0C,&H48,&HF7,&HE3,&HD1,&HE0
  129. $INLINE &H8B,&H5E,&H0A,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H04,&HFC
  130. $INLINE &H8B,&H76,&H06,&H5B,&HD1,&HE3,&H5A,&H57,&HFA,&H8B,&HCE,&HE8,&HBA,&H00
  131. $INLINE &H47,&HAA,&HE2,&HF9,&HFB,&H5F,&H59,&H49,&HE3,&H05,&H51,&H03,&HFB,&HEB
  132. $INLINE &HEA,&H07,&H1F,&H5D,&HC2,&H0A,&H00,&H54,&H42,&H57,&H49,&H4E,&H44,&H4F
  133. $INLINE &H53,&H20,&H36,&H2E,&H30,&H20,&H2F,&H20,&H43,&H6F,&H70,&H79,&H72,&H69
  134. $INLINE &H67,&H68,&H74,&H20,&H28,&H63,&H29,&H20,&H31,&H39,&H38,&H38,&H20,&H62
  135. $INLINE &H79,&H20,&H52,&H69,&H63,&H68,&H61,&H72,&H64,&H20,&H44,&H2E,&H20,&H46
  136. $INLINE &H6F,&H74,&H68,&H65,&H72,&H67,&H69,&H6C,&H6C,&H55,&H8B,&HEC,&H1E,&H06
  137. $INLINE &HE8,&H44,&H00,&H53,&H1F,&H8B,&H4E,&H0A,&H51,&H52,&H33,&HDB,&H8A,&HDC
  138. $INLINE &H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1,&HE0,&H8B,&H5E,&H0C,&H4B,&HD1
  139. $INLINE &HE3,&H03,&HD8,&H8B,&HF3,&H8B,&H46,&H08,&HC4,&H7E,&H04,&HFC,&H5B,&HD1
  140. $INLINE &HE3,&H5A,&H56,&HFA,&H8B,&HC8,&HE8,&H33,&H00,&HA5,&HE2,&HFA,&HFB,&H5E
  141. $INLINE &H59,&H49,&HE3,&H05,&H51,&H03,&HF3,&HEB,&HEB,&H07,&H1F,&H5D,&HC2,&H0C
  142. $INLINE &H00,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C
  143. $INLINE &H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8
  144. $INLINE &HBA,&HDA,&H03,&HC3,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73
  145. $INLINE &HFB,&H58,&HC3,&H06,&H5A,&H81,&HFA,&H00,&HB8,&H75,&H10,&HBA,&HDA,&H03
  146. $INLINE &H50,&HEC,&HD0,&HD8,&H72,&HFB,&HFA,&HEC,&HD0,&HD8,&H73,&HFB,&H58,&H26
  147. $INLINE &H89,&H07,&HFB,&HC3,&HE8,&H89,&HFC,&H07,&H1F,&H5D
  148. END SUB
  149.  
  150. SUB Tbwtitle  INLINE
  151. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&H33,&HC0,&H33,&HDB,&H33,&HC9,&HC4,&H7E,&H1E
  152. $INLINE &H26,&H8B,&H05,&HA9,&H04,&H00,&H75,&H10,&HC4,&H7E,&H1A,&H26,&H8B,&H1D
  153. $INLINE &H53,&H3D,&H02,&H00,&H7F,&H4C,&H7C,&H3B,&HEB,&H16,&HC4,&H7E,&H1A,&H26
  154. $INLINE &H8B,&H1D,&HC4,&H7E,&H12,&H26,&H8B,&H0D,&H03,&HD9,&H4B,&H53,&H3C,&H05
  155. $INLINE &H7F,&H34,&H7C,&H23,&HC4,&H7E,&H16,&H26,&H8B,&H05,&HC4,&H7E,&H0E,&H26
  156. $INLINE &H8B,&H1D,&HD1,&HEB,&H03,&HC3,&HC4,&H7E,&H0A,&H33,&HDB,&H26,&H8B,&H1D
  157. $INLINE &H81,&HE3,&HFF,&H7F,&HD1,&HEB,&H2B,&HC3,&H50,&HEB,&H2F,&HC4,&H7E,&H16
  158. $INLINE &H26,&H8B,&H05,&H05,&H02,&H00,&H50,&HC4,&H7E,&H0A,&HEB,&H20,&HC4,&H7E
  159. $INLINE &H16,&H26,&H8B,&H05,&HC4,&H7E,&H0E,&H26,&H8B,&H1D,&H03,&HC3,&HC4,&H7E
  160. $INLINE &H0A,&H33,&HDB,&H26,&H8B,&H1D,&H81,&HE3,&HFF,&H7F,&H2B,&HC3,&H2D,&H02
  161. $INLINE &H00,&H50,&H06,&H57,&HC4,&H7E,&H06,&H26,&H8B,&H05,&H50,&H8B,&H16,&H00
  162. $INLINE &H00,&H52,&HE8,&H03,&H00,&HEB,&H74,&H90,&H55,&H8B,&HEC,&H1E,&H06,&HC4
  163. $INLINE &H7E,&H08,&H26,&H8B,&H0D,&H81,&HE1,&HFF,&H7F,&HE3,&H5C,&H51,&H8B,&H56
  164. $INLINE &H04,&H52,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00,&HA0,&H49,&H00
  165. $INLINE &H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00
  166. $INLINE &HB8,&HBA,&HDA,&H03,&H53,&H07,&H52,&H33,&HDB,&H8A,&HDC,&H8B,&H46,&H0E
  167. $INLINE &H48,&HF7,&HE3,&HD1,&HE0,&H8B,&H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
  168. $INLINE &HFB,&H8B,&H5E,&H06,&HC5,&H76,&H08,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC
  169. $INLINE &HFA,&HEC,&HA8,&H01,&H75,&HFB,&HEC,&HA8,&H01,&H74,&HFB,&HA4,&H26,&H88
  170. $INLINE &H1D,&H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D,&HC2,&H0C,&H00,&H07,&H1F,&H5D
  171. END SUB
  172.  
  173. SUB Tbwprint INLINE
  174. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H0A,&H26,&H8B,&H0D,&H81,&HE1,&HFF
  175. $INLINE &H7F,&HE3,&H63,&H51,&H8B,&H16,&H00,&H00,&H52,&HB8,&H40,&H00,&H50,&H1F
  176. $INLINE &H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0
  177. $INLINE &HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H52
  178. $INLINE &H33,&HDB,&H8A,&HDC,&HC5,&H76,&H12,&H8B,&H04,&H48,&HF7,&HE3,&HD1,&HE0
  179. $INLINE &HC5,&H76,&H0E,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&HC5,&H76
  180. $INLINE &H06,&H8B,&H1C,&HC5,&H76,&H0A,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC,&HFA
  181. $INLINE &HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&HA4,&H26,&H88,&H1D
  182. $INLINE &H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D
  183. END SUB
  184.  
  185. SUB Tbwprintc INLINE
  186. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H0A,&H26,&H8B,&H0D,&H81,&HE1,&HFF
  187. $INLINE &H7F,&HE3,&H72,&H51,&H8B,&H16,&H00,&H00,&H52,&HB8,&H40,&H00,&H50,&H1F
  188. $INLINE &H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0
  189. $INLINE &HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H52
  190. $INLINE &H33,&HDB,&H8A,&HDC,&HC5,&H76,&H16,&H8B,&H04,&H48,&HF7,&HE3,&HD1,&HE0
  191. $INLINE &HC5,&H76,&H12,&H8A,&H1C,&HC5,&H76,&H0E,&H8A,&H3C,&H02,&HDF,&H32,&HFF
  192. $INLINE &HD1,&HEB,&HD1,&HE9,&H2B,&HD9,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&HC5
  193. $INLINE &H76,&H06,&H8B,&H1C,&HC5,&H76,&H0A,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC
  194. $INLINE &HFA,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&HA4,&H26,&H88
  195. $INLINE &H1D,&H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D
  196. END SUB
  197.  
  198. SUB Tbwfill INLINE
  199. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
  200. $INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
  201. $INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&HC5,&H76,&H12,&H8B,&H0C
  202. $INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&HC5,&H76,&H1A,&H8B,&H04,&H48,&HF7
  203. $INLINE &HE3,&HD1,&HE0,&HC5,&H76,&H16,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
  204. $INLINE &HFB,&HC5,&H76,&H0A,&H8B,&H04,&H8A,&HD8,&HC5,&H76,&H06,&H8B,&H04,&H8A
  205. $INLINE &HE0,&H8A,&HC3,&HFC,&HC5,&H76,&H0E,&H8B,&H34,&H5B,&HD1,&HE3,&H5A,&H57
  206. $INLINE &H8B,&HCE,&HFA,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB
  207. $INLINE &H58,&HAB,&HE2,&HF1,&HFB,&H5F,&H59,&H49,&HE3,&H05,&H51,&H03,&HFB,&HEB
  208. $INLINE &HE2,&H07,&H1F,&H5D
  209. END SUB
  210.  
  211. SUB Tbwattr INLINE
  212. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
  213. $INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
  214. $INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&HC5,&H76,&H0E,&H8B,&H0C
  215. $INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&HC5,&H76,&H16,&H8B,&H04,&H48,&HF7
  216. $INLINE &HE3,&HD1,&HE0,&HC5,&H76,&H12,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
  217. $INLINE &HFB,&HC5,&H76,&H06,&H8B,&H04,&HFC,&HC5,&H76,&H0A,&H8B,&H34,&H5B,&HD1
  218. $INLINE &HE3,&H5A,&H57,&HFA,&H8B,&HCE,&H47,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC
  219. $INLINE &HD0,&HD8,&H73,&HFB,&H58,&HAA,&HE2,&HF0,&HFB,&H5F,&H59,&H49,&HE3,&H05
  220. $INLINE &H51,&H03,&HFB,&HEB,&HE1,&H07,&H1F,&H5D
  221. END SUB
  222.  
  223. SUB Tbwrbox  INLINE
  224. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H1A,&H26,&H8B,&H15,&H52,&HC4,&H7E
  225. $INLINE &H0A,&H26,&H8B,&H05,&H3D,&H00,&H00,&H75,&H17,&HC4,&H7E,&H16,&H26,&H8B
  226. $INLINE &H15,&H52,&HC4,&H7E,&H12,&H26,&H8B,&H15,&H52,&HC4,&H7E,&H0E,&H26,&H8B
  227. $INLINE &H15,&H52,&HEB,&H2A,&HA9,&H01,&H00,&H74,&H0C,&HC4,&H7E,&H16,&H26,&H8B
  228. $INLINE &H15,&H83,&HEA,&H02,&H52,&HEB,&H07,&HC4,&H7E,&H16,&H26,&H8B,&H15,&H52
  229. $INLINE &HC4,&H7E,&H12,&H26,&H8B,&H15,&H42,&H52,&HC4,&H7E,&H0E,&H26,&H8B,&H15
  230. $INLINE &H83,&HC2,&H02,&H52,&HC4,&H7E,&H06,&H06,&H57,&HE8,&H02,&H00,&HEB,&H70
  231. $INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
  232. $INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
  233. $INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H8B,&H4E,&H0A,&H51,&H52
  234. $INLINE &H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1,&HE0,&H8B
  235. $INLINE &H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H08,&HC5,&H76
  236. $INLINE &H04,&HFC,&H5B,&HD1,&HE3,&H5A,&H57,&HFA,&H8B,&HC8,&H50,&HEC,&HD0,&HD8
  237. $INLINE &H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&H58,&HA5,&HE2,&HF1,&HFB,&H5F,&H59
  238. $INLINE &H49,&HE3,&H05,&H51,&H03,&HFB,&HEB,&HE2,&H07,&H1F,&H5D,&HC2,&H0C,&H00
  239. $INLINE &H07,&H1F,&H5D
  240. END SUB
  241.  
  242. SUB Ega43 INLINE
  243. $INLINE &H1E,&HB8,&H12,&H11,&HB3,&H00,&HCD,&H10,&H29,&HC0,&H8E,&HD8,&HFF,&H36
  244. $INLINE &H87,&H04,&H80,&H0E,&H87,&H04,&H01,&HB9,&H00,&H16,&HB4,&H01,&HCD,&H10
  245. $INLINE &H8F,&H06,&H87,&H04,&HBA,&HB4,&H03,&HB8,&H14,&H07,&HEF,&H1F
  246. END SUB
  247.  
  248. SUB Clearwindow
  249. SHARED wrow(), wcol(), wrows(), wcols(), wattr(), idx
  250.  CALL Tbwfill(wrow(idx) + 1, wcol(idx) + 1, wrows(idx) - 2, wcols(idx) - 2, ASC(" "), wattr(idx))
  251. END SUB
  252.  
  253. SUB Makebox (row, col, rows, cols, attr, battr, brdrsel, sattr, shadow, zoom)
  254.  CALL Tbwbox(0, col - 1, row - 1, col + cols - 2, row + rows - 2, attr, battr, brdrsel, zoom, sattr, shadow, 0)
  255. END SUB
  256.  
  257. SUB Makemenu
  258. SHARED wrow(), wrows(), wcol(), wcols(), wattr(), wshdw(), scrn(), wptr(), idx
  259. SHARED item$(), itemcount, startpos, curntpos, hlattr, flattr, bartype, flon
  260. LOCAL done, mloop, ans$
  261.  done = 0
  262.  FOR mloop = 1 TO itemcount
  263.      CALL Tbwprint(wrow(idx) + mloop, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(mloop)) \ 2), item$(mloop), wattr(idx))
  264.      IF flon THEN CALL Tbwprint(wrow(idx) + mloop, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(mloop)) \ 2), LEFT$(item$(mloop),1),flattr)
  265.  NEXT
  266.  IF curntpos = 0 THEN IF startpos = 0 THEN curntpos = 1 ELSE curntpos = startpos
  267.  DO
  268.     SELECT CASE bartype
  269.            CASE 1
  270.                 CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + 1, 1, wcols(idx) - 2, hlattr)
  271.            CASE 2
  272.                 CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 1, 1, LEN(item$(curntpos)) + 2, hlattr)
  273.            CASE 3
  274.                 CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 2, "═", hlattr)
  275.     END SELECT
  276.     WHILE NOT INSTAT
  277.     WEND
  278.     ans$ = INKEY$
  279.     IF LEN(ans$) = 2 THEN
  280.        ans1$ = RIGHT$(ans$, 1)
  281.        ans$  = CHR$(0)
  282.     END IF
  283.     SELECT CASE bartype
  284.            CASE 3
  285.                 CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 2, "  ", wattr(idx))
  286.            CASE  ELSE
  287.                 CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + 1, 1, wcols(idx) - 2, wattr(idx))
  288.                 CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2), item(curntpos), wattr(idx))
  289.                 IF flon THEN CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2), LEFT$(item$(curntpos),1),flattr)
  290.     END SELECT
  291.     IF (bartype <> 0) AND (ans$ = CHR$(0)) THEN
  292.        SELECT CASE ans1$
  293.               CASE CHR$(72), CHR$(75), "-", "8", "4"
  294.                    DECR curntpos
  295.               CASE CHR$(80), CHR$(77), "+", "2", "6"
  296.                    INCR curntpos
  297.        END SELECT
  298.     END IF
  299.     IF flon THEN
  300.        FOR mloop = 1 TO itemcount
  301.            IF UCASE$(ans$) = UCASE$(LEFT$(item$(mloop), 1)) THEN
  302.               curntpos = mloop
  303.               done = -1
  304.            END IF
  305.        NEXT
  306.     END IF
  307.     IF (NOT flon) OR (bartype <> 0) THEN IF ans$ = CHR$(13) THEN done = -1
  308.     IF ans$ = CHR$(27) THEN
  309.        curntpos = 0
  310.        done = -1
  311.     END IF
  312.     IF curntpos > itemcount THEN curntpos = 1
  313.     IF curntpos < 1 THEN curntpos = itemcount
  314.  LOOP UNTIL done
  315. END SUB
  316.  
  317. SUB Makewindow (row, col, rows, cols, attr, battr, brdrsel, sattr, shadow, zoom)
  318. SHARED wrow(), wrows(), wcol(), wcols(), wattr(), wshdw()
  319. SHARED wlstx(), wlsty(), scrn(), wptr(), idx, mw
  320. LOCAL wsize
  321.  IF idx >= mw THEN PRINT "TOO MANY WINDOWS!"
  322.  IF (shadow <= 10 AND shadow >= 1) THEN wsize = (rows + 1) * (cols + 2) * 2 ELSE wsize = rows * cols * 2
  323.  wlstx(idx)=CSRLIN:wlsty(idx)=POS
  324.  idx = idx + 1
  325.  wptr(idx + 1) = wptr(idx) + wsize + 1: wrow(idx) = row: wcol(idx) = col
  326.  wrows(idx) = rows: wcols(idx) = cols: wattr(idx) = attr: wshdw(idx) = shadow
  327.  CALL Tbwbox(1, col - 1, row - 1, col + cols - 2, row + rows - 2, attr, battr, brdrsel, zoom, sattr, shadow, scrn(wptr(idx)))
  328. END SUB
  329.  
  330. SUB Prtcwindow (row, strdat$)
  331. SHARED wrow(), wcol(), wcols(), wattr(), idx
  332.  CALL Tbwprintc(wrow(idx) + row, wcol(idx), wcol(idx) + wcols(idx), strdat$, wattr(idx))
  333. END SUB
  334.  
  335. SUB Prtwindow (row, col, strdat$)
  336. SHARED wrow(), wcol(), wattr(), idx
  337.  CALL Tbwprint(wrow(idx) + row, wcol(idx) + col, strdat$, wattr(idx))
  338. END SUB
  339.  
  340. SUB Removewindow
  341. SHARED wrow(), wcol(), wrows(), wcols(), wshdw(), wlstx(), wlsty()
  342. SHARED scrn(), wptr(), idx
  343.  IF idx = 0 THEN
  344.     PRINT "IDX = 0"
  345.  ELSE
  346.     CALL Tbwrbox(wrow(idx), wcol(idx), wrows(idx), wcols(idx), wshdw(idx), scrn(wptr(idx)))
  347.     idx = idx - 1
  348.     LOCATE wlstx(idx), wlsty(idx)
  349.  END IF
  350. END SUB
  351.  
  352. SUB Tbwborder (attr)
  353.  OUT &H3D9, attr
  354. END SUB
  355.  
  356. SUB Titlewindow (dir, attr, title$)
  357. SHARED wrow(), wcol(), wrows(), wcols(), idx
  358.  CALL Tbwtitle(dir, wrow(idx), wcol(idx), wrows(idx), wcols(idx), title$, attr)
  359. END SUB
  360.  
  361. SUB Windowxy (row, col)
  362. SHARED wrow(), wcol(), idx
  363.  LOCATE wrow(idx) + row, wcol(idx) + col
  364. END SUB
  365.  
  366.