home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
tb
/
tbwindo
/
tbw60.inc
< prev
next >
Wrap
Text File
|
1988-04-29
|
21KB
|
366 lines
' TBWINDO 6.0 PROCS. AND FUNCTIONS
' INCLUDE COMMON DEFS. IF CHAINING
DEFINT a-z
COMMON wrow(1), wrows(1), wcol(1), wcols(1), wattr(1)
COMMON wshdw(1), wlstx(1), wlsty(1), scrn(1), wptr(1), mw, scrnarray, idx
COMMON item$(1), itemcount, startpos, curntpos, hlattr, cy, flattr
COMMON bartype, flon
DEF FNAttr (fore, back)
LOCAL temp
temp = (back * 16) + fore
IF fore > 15 THEN temp = temp + 112
FNAttr = temp
END DEF
SUB Tbwbox INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HE8,&H4E,&H00,&H00,&H00,&H00,&H00,&H00,&H00
$INLINE &H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00
$INLINE &H00,&H00,&H00,&H00,&HDA,&HBF,&HC0,&HD9,&HB3,&HC4,&HC9,&HBB,&HC8,&HBC
$INLINE &HBA,&HCD,&HD5,&HB8,&HD4,&HBE,&HB3,&HCD,&HD6,&HB7,&HD3,&HBD,&HBA,&HC4
$INLINE &HDB,&HDB,&HDB,&HDB,&HDB,&HDB,&HB0,&HB0,&HB0,&HB0,&HB0,&HB0,&HB1,&HB1
$INLINE &HB1,&HB1,&HB1,&HB1,&HB2,&HB2,&HB2,&HB2,&HB2,&HB2,&H00,&H00,&H00,&H00
$INLINE &H00,&H00,&H5B,&H0E,&H1F,&H33,&HC0,&HC4,&H7E,&H16,&H26,&H8B,&H05,&HFE
$INLINE &HC8,&HE8,&HD0,&H04,&H8E,&HC3,&H06,&HC4,&H7E,&H2E,&H26,&H8B,&H05,&H88
$INLINE &H07,&HC4,&H7E,&H2A,&H26,&H8B,&H05,&H88,&H47,&H01,&HC4,&H7E,&H26,&H26
$INLINE &H8B,&H05,&H88,&H47,&H02,&HC4,&H7E,&H22,&H26,&H8B,&H05,&H88,&H47,&H03
$INLINE &HC4,&H7E,&H1E,&H26,&H8B,&H05,&HB1,&H08,&HD3,&HE0,&H89,&H47,&H14,&HC4
$INLINE &H7E,&H1A,&H26,&H8B,&H05,&HD3,&HE0,&H89,&H47,&H10,&H07,&HE8,&H17,&H04
$INLINE &H06,&HC4,&H7E,&H12,&H26,&H8B,&H05,&H3D,&H01,&H00,&H07,&H74,&H06,&HE8
$INLINE &H46,&H01,&HE9,&H3B,&H06,&HE8,&H03,&H00,&HE9,&H35,&H06,&H8A,&H47,&H02
$INLINE &H8A,&H4F,&H02,&H2A,&H0F,&HD0,&HE9,&H2A,&HC1,&H88,&H47,&H04,&H88,&H47
$INLINE &H06,&H8A,&H47,&H03,&H8A,&H4F,&H03,&H2A,&H4F,&H01,&HD0,&HE9,&H2A,&HC1
$INLINE &H88,&H47,&H05,&H88,&H47,&H07,&H8A,&H47,&H07,&HFE,&HC0,&H88,&H47,&H07
$INLINE &H8A,&H47,&H06,&HFE,&HC0,&H88,&H47,&H06,&H8A,&H47,&H04,&HFE,&HC8,&H88
$INLINE &H47,&H04,&H8A,&H47,&H05,&HFE,&HC8,&H88,&H47,&H05,&H8A,&H27,&H8A,&H47
$INLINE &H01,&H8A,&H6F,&H02,&H8A,&H4F,&H03,&H8A,&H77,&H04,&H88,&H37,&H8A,&H77
$INLINE &H06,&H88,&H77,&H02,&H8A,&H77,&H07,&H88,&H77,&H03,&H8A,&H77,&H05,&H88
$INLINE &H77,&H01,&H88,&H67,&H04,&H88,&H6F,&H06,&H88,&H47,&H05,&H88,&H4F,&H07
$INLINE &HB0,&H01,&HB4,&H01,&HB1,&H01,&HB5,&H01,&HB2,&H00,&H8A,&H37,&H3A,&H77
$INLINE &H04,&H75,&H03,&HE9,&H86,&H00,&H50,&H8A,&H07,&HFE,&HC8,&H88,&H07,&H58
$INLINE &H8A,&H37,&H3A,&H77,&H04,&H74,&H77,&H50,&H8A,&H07,&HFE,&HC8,&H88,&H07
$INLINE &H58,&H8A,&H37,&H3A,&H77,&H04,&H74,&H68,&H50,&H8A,&H07,&HFE,&HC8,&H88
$INLINE &H07,&H58,&H8A,&H77,&H02,&H3A,&H77,&H06,&H74,&H63,&H50,&H8A,&H47,&H02
$INLINE &HFE,&HC0,&H88,&H47,&H02,&H58,&H8A,&H77,&H02,&H3A,&H77,&H06,&H74,&H51
$INLINE &H50,&H8A,&H47,&H02,&HFE,&HC0,&H88,&H47,&H02,&H58,&H8A,&H77,&H02,&H3A
$INLINE &H77,&H06,&H74,&H3F,&H50,&H8A,&H47,&H02,&HFE,&HC0,&H88,&H47,&H02,&H58
$INLINE &H8A,&H77,&H01,&H3A,&H77,&H05,&H74,&H38,&H50,&H8A,&H47,&H01,&HFE,&HC8
$INLINE &H88,&H47,&H01,&H58,&H8A,&H77,&H03,&H3A,&H77,&H07,&H74,&H31,&H50,&H8A
$INLINE &H47,&H03,&HFE,&HC0,&H88,&H47,&H03,&H58,&HE8,&H33,&H00,&HE9,&H70,&HFF
$INLINE &H80,&HFA,&H04,&H74,&H27,&H02,&HD4,&HB4,&H00,&HEB,&H95,&H80,&HFA,&H04
$INLINE &H74,&H1C,&H02,&HD0,&HB0,&H00,&HEB,&HC0,&H80,&HFA,&H04,&H74,&H11,&H02
$INLINE &HD5,&HB5,&H00,&HEB,&HC7,&H80,&HFA,&H04,&H74,&H06,&H02,&HD1,&HB1,&H00
$INLINE &HEB,&HCE,&HE8,&H01,&H00,&HC3,&H50,&H53,&H51,&H52,&H57,&H06,&H56,&H06
$INLINE &H5F,&HE8,&H53,&H03,&H8B,&HCE,&H33,&HC0,&H8A,&H47,&H01,&HF7,&HE1,&H51
$INLINE &H32,&HED,&H8A,&H0F,&HD1,&HE1,&H03,&HC1,&H89,&H47,&H08,&H33,&HC0,&H8A
$INLINE &H47,&H01,&H59,&HF7,&HE1,&H51,&H8A,&H4F,&H02,&HD1,&HE1,&H03,&HC1,&H89
$INLINE &H47,&H0A,&H33,&HC0,&H8A,&H47,&H03,&H59,&HF7,&HE1,&H51,&H8A,&H0F,&HD1
$INLINE &HE1,&H03,&HC1,&H89,&H47,&H0C,&H33,&HC0,&H8A,&H47,&H03,&H59,&HF7,&HE1
$INLINE &H8A,&H4F,&H02,&HD1,&HE1,&H03,&HC1,&H89,&H47,&H0E,&H53,&HFF,&H77,&H08
$INLINE &HFF,&H77,&H0A,&HFF,&H77,&H0C,&HFF,&H77,&H0E,&HFF,&H77,&H10,&H58,&H5B
$INLINE &H53,&H8B,&HDF,&H8A,&H47,&H4B,&H5B,&HE8,&H67,&H04,&H53,&H8B,&HDF,&H8A
$INLINE &H47,&H4A,&H5B,&H5B,&HE8,&H5C,&H04,&H53,&H8B,&HDF,&H8A,&H47,&H49,&H5B
$INLINE &H5B,&HE8,&H51,&H04,&H53,&H8B,&HDF,&H8A,&H47,&H48,&H5B,&H5B,&HE8,&H46
$INLINE &H04,&H5B,&H33,&HC9,&H8A,&H4F,&H02,&H49,&H33,&HC0,&H8A,&H07,&H40,&H2B
$INLINE &HC8,&H41,&H53,&H8B,&H47,&H08,&HFF,&H77,&H10,&H8B,&HD8,&H83,&HC3,&H02
$INLINE &H58,&H53,&H8B,&HDF,&H8A,&H47,&H4D,&H5B,&HE8,&H20,&H04,&H83,&HC3,&H02
$INLINE &HE2,&HF8,&H5B,&H33,&HC9,&H8A,&H4F,&H02,&H49,&H33,&HC0,&H8A,&H07,&H40
$INLINE &H2B,&HC8,&H41,&H53,&H8B,&H47,&H0C,&HFF,&H77,&H10,&H8B,&HD8,&H83,&HC3
$INLINE &H02,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4D,&H5B,&HE8,&HF5,&H03,&H83,&HC3
$INLINE &H02,&HE2,&HF8,&H5B,&H33,&HC9,&H8A,&H4F,&H03,&HFE,&HC9,&H33,&HC0,&H8A
$INLINE &H47,&H01,&HFE,&HC0,&H2B,&HC8,&H53,&H8B,&H47,&H08,&HFF,&H77,&H10,&H8B
$INLINE &HD8,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4C,&H5B,&H41,&H03,&HDE,&HE8,&HC8
$INLINE &H03,&HE2,&HF9,&H5B,&H33,&HC9,&H8A,&H4F,&H03,&HFE,&HC9,&H33,&HC0,&H8A
$INLINE &H47,&H01,&HFE,&HC0,&H2B,&HC8,&H53,&H8B,&H47,&H0A,&HFF,&H77,&H10,&H8B
$INLINE &HD8,&H58,&H53,&H8B,&HDF,&H8A,&H47,&H4C,&H5B,&H41,&H03,&HDE,&HE8,&H9E
$INLINE &H03,&HE2,&HF9,&H5B,&HE8,&H08,&H00,&H5E,&H07,&H5F,&H5A,&H59,&H5B,&H58
$INLINE &HC3,&H53,&H89,&H6F,&H08,&H33,&HC9,&H33,&HD2,&H8A,&H4F,&H01,&H83,&HC1
$INLINE &H02,&H51,&H8A,&H0F,&H83,&HC1,&H02,&H51,&H8A,&H4F,&H01,&H8A,&H57,&H03
$INLINE &H2A,&HD1,&H4A,&H52,&H8A,&H0F,&H8A,&H57,&H02,&H2A,&HD1,&H4A,&H52,&HB2
$INLINE &H20,&H52,&H8B,&H47,&H14,&H8A,&HD4,&H52,&HE8,&H0A,&H02,&H5B,&H8B,&H6F
$INLINE &H08,&HC3,&H56,&H57,&H50,&H53,&H51,&H52,&H06,&HC4,&H7E,&H0A,&H26,&H8B
$INLINE &H05,&H3D,&H01,&H00,&H73,&H03,&HE9,&HF7,&H00,&H3D,&H0A,&H00,&H7E,&H03
$INLINE &HE9,&HEF,&H00,&H53,&H89,&H6F,&H08,&H33,&HD2,&H33,&HC9,&H8A,&H57,&H01
$INLINE &H83,&HC2,&H02,&H52,&HA9,&H01,&H00,&H74,&H6B,&H8A,&H17,&H4A,&H52,&H8A
$INLINE &H57,&H03,&H8A,&H4F,&H01,&H2B,&HD1,&H42,&H52,&HBA,&H02,&H00,&H52,&H3D
$INLINE &H01,&H00,&H75,&H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15,&H52,&HE8,&H06,&H02
$INLINE &HEB,&H08,&HE8,&HBE,&H00,&H52,&H51,&HE8,&HA9,&H01,&H5B,&H53,&H33,&HD2
$INLINE &H33,&HC9,&H8A,&H57,&H03,&H83,&HC2,&H02,&H52,&H8A,&H17,&H4A,&H52,&HBA
$INLINE &H01,&H00,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2B,&HD1,&H42,&H52,&HC4,&H7E
$INLINE &H0A,&H26,&H8B,&H05,&H3D,&H01,&H00,&H75,&H0D,&HC4,&H7E,&H0E,&H26,&H8B
$INLINE &H15,&H52,&HE8,&HC9,&H01,&HEB,&H77,&H90,&HE8,&H80,&H00,&H52,&H51,&HE8
$INLINE &H6B,&H01,&HEB,&H6C,&H8A,&H57,&H02,&H83,&HC2,&H02,&H52,&H8A,&H57,&H03
$INLINE &H8A,&H4F,&H01,&H2B,&HD1,&H52,&HBA,&H02,&H00,&H52,&H3D,&H02,&H00,&H75
$INLINE &H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15,&H52,&HE8,&H99,&H01,&HEB,&H08,&HE8
$INLINE &H51,&H00,&H52,&H51,&HE8,&H3C,&H01,&H5B,&H53,&H33,&HD2,&H33,&HC9,&H8A
$INLINE &H57,&H03,&H83,&HC2,&H02,&H52,&H8A,&H17,&H83,&HC2,&H03,&H52,&HBA,&H01
$INLINE &H00,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2B,&HD1,&H42,&H52,&HC4,&H7E,&H0A
$INLINE &H26,&H8B,&H05,&H3D,&H02,&H00,&H75,&H0C,&HC4,&H7E,&H0E,&H26,&H8B,&H15
$INLINE &H52,&HE8,&H5A,&H01,&HEB,&H08,&HE8,&H12,&H00,&H52,&H51,&HE8,&HFD,&H00
$INLINE &H5B,&H8B,&H6F,&H08,&H07,&H5A,&H59,&H5B,&H58,&H5F,&H5E,&HC3,&HC3,&H3D
$INLINE &H04,&H00,&H7F,&H05,&HBA,&HDB,&H00,&HEB,&H17,&H3D,&H06,&H00,&H7F,&H05
$INLINE &HBA,&HB0,&H00,&HEB,&H0D,&H3D,&H08,&H00,&H7F,&H05,&HBA,&HB1,&H00,&HEB
$INLINE &H03,&HBA,&HB2,&H00,&HC4,&H7E,&H0E,&H26,&H8B,&H0D,&HC3,&H56,&H57,&H50
$INLINE &H53,&H51,&H52,&H06,&HC4,&H7E,&H32,&H26,&H8B,&H05,&H3D,&H00,&H00,&H74
$INLINE &H5D,&H33,&HD2,&H33,&HC9,&H8A,&H57,&H01,&H42,&H52,&HC4,&H7E,&H0A,&H26
$INLINE &H8B,&H05,&H3D,&H00,&H00,&H75,&H1B,&H8A,&H17,&H42,&H52,&H8A,&H57,&H03
$INLINE &H8A,&H4F,&H01,&H2A,&HD1,&H83,&HC2,&H02,&H52,&H8A,&H57,&H02,&H8A,&H0F
$INLINE &H2A,&HD1,&H42,&H52,&HEB,&H26,&HA9,&H01,&H00,&H74,&H06,&H8A,&H17,&H4A
$INLINE &H52,&HEB,&H04,&H8A,&H17,&H42,&H52,&H8A,&H57,&H03,&H8A,&H4F,&H01,&H2A
$INLINE &HD1,&H83,&HC2,&H03,&H52,&H8A,&H57,&H02,&H8A,&H0F,&H2A,&HD1,&H83,&HC2
$INLINE &H03,&H52,&HC4,&H7E,&H06,&H06,&H57,&HE8,&H33,&H01,&H07,&H5A,&H59,&H5B
$INLINE &H58,&H5F,&H5E,&HC3,&H56,&H57,&H50,&H53,&H51,&H52,&H06,&HB1,&H06,&HF6
$INLINE &HE1,&H05,&H18,&H00,&H03,&HC3,&H1E,&H07,&H8B,&HF0,&H83,&HC3,&H48,&H8B
$INLINE &HFB,&HFC,&HB9,&H06,&H00,&HF3,&HA4,&H07,&H5A,&H59,&H5B,&H58,&H5F,&H5E
$INLINE &HC3,&H50,&H53,&H51,&H1E,&HB8,&H40,&H00,&H50,&H1F,&H33,&HC0,&HA0,&H4A
$INLINE &H00,&HD1,&HE0,&H8B,&HF0,&H8A,&H16,&H49,&H00,&H80,&HFA,&H07,&H75,&H05
$INLINE &HB8,&H00,&HB0,&HEB,&H03,&HB8,&H00,&HB8,&H8E,&HC0,&H1F,&H59,&H5B,&H58
$INLINE &HC3,&H55,&H8B,&HEC,&H1E,&H06,&HE8,&H1E,&H01,&H53,&H07,&H8B,&H4E,&H0A
$INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1
$INLINE &HE0,&H8B,&H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H06
$INLINE &H8A,&HD8,&H8B,&H46,&H04,&H8A,&HE0,&H8A,&HC3,&HFC,&H8B,&H76,&H08,&H5B
$INLINE &HD1,&HE3,&H5A,&H57,&H8B,&HCE,&HE8,&H05,&H01,&HAB,&HE2,&HFA,&H5F,&H59
$INLINE &H49,&HE3,&H05,&H51,&H03,&HFB,&HEB,&HED,&H07,&H1F,&H5D,&HC2,&H0C,&H00
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HE8,&HCB,&H00,&H53,&H07,&H8B,&H4E,&H08,&H51
$INLINE &H52,&H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0C,&H48,&HF7,&HE3,&HD1,&HE0
$INLINE &H8B,&H5E,&H0A,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H04,&HFC
$INLINE &H8B,&H76,&H06,&H5B,&HD1,&HE3,&H5A,&H57,&HFA,&H8B,&HCE,&HE8,&HBA,&H00
$INLINE &H47,&HAA,&HE2,&HF9,&HFB,&H5F,&H59,&H49,&HE3,&H05,&H51,&H03,&HFB,&HEB
$INLINE &HEA,&H07,&H1F,&H5D,&HC2,&H0A,&H00,&H54,&H42,&H57,&H49,&H4E,&H44,&H4F
$INLINE &H53,&H20,&H36,&H2E,&H30,&H20,&H2F,&H20,&H43,&H6F,&H70,&H79,&H72,&H69
$INLINE &H67,&H68,&H74,&H20,&H28,&H63,&H29,&H20,&H31,&H39,&H38,&H38,&H20,&H62
$INLINE &H79,&H20,&H52,&H69,&H63,&H68,&H61,&H72,&H64,&H20,&H44,&H2E,&H20,&H46
$INLINE &H6F,&H74,&H68,&H65,&H72,&H67,&H69,&H6C,&H6C,&H55,&H8B,&HEC,&H1E,&H06
$INLINE &HE8,&H44,&H00,&H53,&H1F,&H8B,&H4E,&H0A,&H51,&H52,&H33,&HDB,&H8A,&HDC
$INLINE &H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1,&HE0,&H8B,&H5E,&H0C,&H4B,&HD1
$INLINE &HE3,&H03,&HD8,&H8B,&HF3,&H8B,&H46,&H08,&HC4,&H7E,&H04,&HFC,&H5B,&HD1
$INLINE &HE3,&H5A,&H56,&HFA,&H8B,&HC8,&HE8,&H33,&H00,&HA5,&HE2,&HFA,&HFB,&H5E
$INLINE &H59,&H49,&HE3,&H05,&H51,&H03,&HF3,&HEB,&HEB,&H07,&H1F,&H5D,&HC2,&H0C
$INLINE &H00,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C
$INLINE &H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8
$INLINE &HBA,&HDA,&H03,&HC3,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73
$INLINE &HFB,&H58,&HC3,&H06,&H5A,&H81,&HFA,&H00,&HB8,&H75,&H10,&HBA,&HDA,&H03
$INLINE &H50,&HEC,&HD0,&HD8,&H72,&HFB,&HFA,&HEC,&HD0,&HD8,&H73,&HFB,&H58,&H26
$INLINE &H89,&H07,&HFB,&HC3,&HE8,&H89,&HFC,&H07,&H1F,&H5D
END SUB
SUB Tbwtitle INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&H33,&HC0,&H33,&HDB,&H33,&HC9,&HC4,&H7E,&H1E
$INLINE &H26,&H8B,&H05,&HA9,&H04,&H00,&H75,&H10,&HC4,&H7E,&H1A,&H26,&H8B,&H1D
$INLINE &H53,&H3D,&H02,&H00,&H7F,&H4C,&H7C,&H3B,&HEB,&H16,&HC4,&H7E,&H1A,&H26
$INLINE &H8B,&H1D,&HC4,&H7E,&H12,&H26,&H8B,&H0D,&H03,&HD9,&H4B,&H53,&H3C,&H05
$INLINE &H7F,&H34,&H7C,&H23,&HC4,&H7E,&H16,&H26,&H8B,&H05,&HC4,&H7E,&H0E,&H26
$INLINE &H8B,&H1D,&HD1,&HEB,&H03,&HC3,&HC4,&H7E,&H0A,&H33,&HDB,&H26,&H8B,&H1D
$INLINE &H81,&HE3,&HFF,&H7F,&HD1,&HEB,&H2B,&HC3,&H50,&HEB,&H2F,&HC4,&H7E,&H16
$INLINE &H26,&H8B,&H05,&H05,&H02,&H00,&H50,&HC4,&H7E,&H0A,&HEB,&H20,&HC4,&H7E
$INLINE &H16,&H26,&H8B,&H05,&HC4,&H7E,&H0E,&H26,&H8B,&H1D,&H03,&HC3,&HC4,&H7E
$INLINE &H0A,&H33,&HDB,&H26,&H8B,&H1D,&H81,&HE3,&HFF,&H7F,&H2B,&HC3,&H2D,&H02
$INLINE &H00,&H50,&H06,&H57,&HC4,&H7E,&H06,&H26,&H8B,&H05,&H50,&H8B,&H16,&H00
$INLINE &H00,&H52,&HE8,&H03,&H00,&HEB,&H74,&H90,&H55,&H8B,&HEC,&H1E,&H06,&HC4
$INLINE &H7E,&H08,&H26,&H8B,&H0D,&H81,&HE1,&HFF,&H7F,&HE3,&H5C,&H51,&H8B,&H56
$INLINE &H04,&H52,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00,&HA0,&H49,&H00
$INLINE &H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00
$INLINE &HB8,&HBA,&HDA,&H03,&H53,&H07,&H52,&H33,&HDB,&H8A,&HDC,&H8B,&H46,&H0E
$INLINE &H48,&HF7,&HE3,&HD1,&HE0,&H8B,&H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
$INLINE &HFB,&H8B,&H5E,&H06,&HC5,&H76,&H08,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC
$INLINE &HFA,&HEC,&HA8,&H01,&H75,&HFB,&HEC,&HA8,&H01,&H74,&HFB,&HA4,&H26,&H88
$INLINE &H1D,&H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D,&HC2,&H0C,&H00,&H07,&H1F,&H5D
END SUB
SUB Tbwprint INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H0A,&H26,&H8B,&H0D,&H81,&HE1,&HFF
$INLINE &H7F,&HE3,&H63,&H51,&H8B,&H16,&H00,&H00,&H52,&HB8,&H40,&H00,&H50,&H1F
$INLINE &H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0
$INLINE &HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H52
$INLINE &H33,&HDB,&H8A,&HDC,&HC5,&H76,&H12,&H8B,&H04,&H48,&HF7,&HE3,&HD1,&HE0
$INLINE &HC5,&H76,&H0E,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&HC5,&H76
$INLINE &H06,&H8B,&H1C,&HC5,&H76,&H0A,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC,&HFA
$INLINE &HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&HA4,&H26,&H88,&H1D
$INLINE &H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D
END SUB
SUB Tbwprintc INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H0A,&H26,&H8B,&H0D,&H81,&HE1,&HFF
$INLINE &H7F,&HE3,&H72,&H51,&H8B,&H16,&H00,&H00,&H52,&HB8,&H40,&H00,&H50,&H1F
$INLINE &H8A,&H26,&H4A,&H00,&HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0
$INLINE &HBA,&HBA,&H03,&HEB,&H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H52
$INLINE &H33,&HDB,&H8A,&HDC,&HC5,&H76,&H16,&H8B,&H04,&H48,&HF7,&HE3,&HD1,&HE0
$INLINE &HC5,&H76,&H12,&H8A,&H1C,&HC5,&H76,&H0E,&H8A,&H3C,&H02,&HDF,&H32,&HFF
$INLINE &HD1,&HEB,&HD1,&HE9,&H2B,&HD9,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&HC5
$INLINE &H76,&H06,&H8B,&H1C,&HC5,&H76,&H0A,&H8B,&H74,&H02,&H5A,&H1F,&H59,&HFC
$INLINE &HFA,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&HA4,&H26,&H88
$INLINE &H1D,&H47,&HE2,&HEF,&HFB,&H07,&H1F,&H5D
END SUB
SUB Tbwfill INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
$INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
$INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&HC5,&H76,&H12,&H8B,&H0C
$INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&HC5,&H76,&H1A,&H8B,&H04,&H48,&HF7
$INLINE &HE3,&HD1,&HE0,&HC5,&H76,&H16,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
$INLINE &HFB,&HC5,&H76,&H0A,&H8B,&H04,&H8A,&HD8,&HC5,&H76,&H06,&H8B,&H04,&H8A
$INLINE &HE0,&H8A,&HC3,&HFC,&HC5,&H76,&H0E,&H8B,&H34,&H5B,&HD1,&HE3,&H5A,&H57
$INLINE &H8B,&HCE,&HFA,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB
$INLINE &H58,&HAB,&HE2,&HF1,&HFB,&H5F,&H59,&H49,&HE3,&H05,&H51,&H03,&HFB,&HEB
$INLINE &HE2,&H07,&H1F,&H5D
END SUB
SUB Tbwattr INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
$INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
$INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&HC5,&H76,&H0E,&H8B,&H0C
$INLINE &H51,&H52,&H33,&HDB,&H8A,&HDC,&H53,&HC5,&H76,&H16,&H8B,&H04,&H48,&HF7
$INLINE &HE3,&HD1,&HE0,&HC5,&H76,&H12,&H8B,&H1C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B
$INLINE &HFB,&HC5,&H76,&H06,&H8B,&H04,&HFC,&HC5,&H76,&H0A,&H8B,&H34,&H5B,&HD1
$INLINE &HE3,&H5A,&H57,&HFA,&H8B,&HCE,&H47,&H50,&HEC,&HD0,&HD8,&H72,&HFB,&HEC
$INLINE &HD0,&HD8,&H73,&HFB,&H58,&HAA,&HE2,&HF0,&HFB,&H5F,&H59,&H49,&HE3,&H05
$INLINE &H51,&H03,&HFB,&HEB,&HE1,&H07,&H1F,&H5D
END SUB
SUB Tbwrbox INLINE
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HC4,&H7E,&H1A,&H26,&H8B,&H15,&H52,&HC4,&H7E
$INLINE &H0A,&H26,&H8B,&H05,&H3D,&H00,&H00,&H75,&H17,&HC4,&H7E,&H16,&H26,&H8B
$INLINE &H15,&H52,&HC4,&H7E,&H12,&H26,&H8B,&H15,&H52,&HC4,&H7E,&H0E,&H26,&H8B
$INLINE &H15,&H52,&HEB,&H2A,&HA9,&H01,&H00,&H74,&H0C,&HC4,&H7E,&H16,&H26,&H8B
$INLINE &H15,&H83,&HEA,&H02,&H52,&HEB,&H07,&HC4,&H7E,&H16,&H26,&H8B,&H15,&H52
$INLINE &HC4,&H7E,&H12,&H26,&H8B,&H15,&H42,&H52,&HC4,&H7E,&H0E,&H26,&H8B,&H15
$INLINE &H83,&HC2,&H02,&H52,&HC4,&H7E,&H06,&H06,&H57,&HE8,&H02,&H00,&HEB,&H70
$INLINE &H55,&H8B,&HEC,&H1E,&H06,&HB8,&H40,&H00,&H50,&H1F,&H8A,&H26,&H4A,&H00
$INLINE &HA0,&H49,&H00,&H3C,&H07,&H75,&H08,&HBB,&H00,&HB0,&HBA,&HBA,&H03,&HEB
$INLINE &H06,&HBB,&H00,&HB8,&HBA,&HDA,&H03,&H53,&H07,&H8B,&H4E,&H0A,&H51,&H52
$INLINE &H33,&HDB,&H8A,&HDC,&H53,&H8B,&H46,&H0E,&H48,&HF7,&HE3,&HD1,&HE0,&H8B
$INLINE &H5E,&H0C,&H4B,&HD1,&HE3,&H03,&HD8,&H8B,&HFB,&H8B,&H46,&H08,&HC5,&H76
$INLINE &H04,&HFC,&H5B,&HD1,&HE3,&H5A,&H57,&HFA,&H8B,&HC8,&H50,&HEC,&HD0,&HD8
$INLINE &H72,&HFB,&HEC,&HD0,&HD8,&H73,&HFB,&H58,&HA5,&HE2,&HF1,&HFB,&H5F,&H59
$INLINE &H49,&HE3,&H05,&H51,&H03,&HFB,&HEB,&HE2,&H07,&H1F,&H5D,&HC2,&H0C,&H00
$INLINE &H07,&H1F,&H5D
END SUB
SUB Ega43 INLINE
$INLINE &H1E,&HB8,&H12,&H11,&HB3,&H00,&HCD,&H10,&H29,&HC0,&H8E,&HD8,&HFF,&H36
$INLINE &H87,&H04,&H80,&H0E,&H87,&H04,&H01,&HB9,&H00,&H16,&HB4,&H01,&HCD,&H10
$INLINE &H8F,&H06,&H87,&H04,&HBA,&HB4,&H03,&HB8,&H14,&H07,&HEF,&H1F
END SUB
SUB Clearwindow
SHARED wrow(), wcol(), wrows(), wcols(), wattr(), idx
CALL Tbwfill(wrow(idx) + 1, wcol(idx) + 1, wrows(idx) - 2, wcols(idx) - 2, ASC(" "), wattr(idx))
END SUB
SUB Makebox (row, col, rows, cols, attr, battr, brdrsel, sattr, shadow, zoom)
CALL Tbwbox(0, col - 1, row - 1, col + cols - 2, row + rows - 2, attr, battr, brdrsel, zoom, sattr, shadow, 0)
END SUB
SUB Makemenu
SHARED wrow(), wrows(), wcol(), wcols(), wattr(), wshdw(), scrn(), wptr(), idx
SHARED item$(), itemcount, startpos, curntpos, hlattr, flattr, bartype, flon
LOCAL done, mloop, ans$
done = 0
FOR mloop = 1 TO itemcount
CALL Tbwprint(wrow(idx) + mloop, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(mloop)) \ 2), item$(mloop), wattr(idx))
IF flon THEN CALL Tbwprint(wrow(idx) + mloop, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(mloop)) \ 2), LEFT$(item$(mloop),1),flattr)
NEXT
IF curntpos = 0 THEN IF startpos = 0 THEN curntpos = 1 ELSE curntpos = startpos
DO
SELECT CASE bartype
CASE 1
CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + 1, 1, wcols(idx) - 2, hlattr)
CASE 2
CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 1, 1, LEN(item$(curntpos)) + 2, hlattr)
CASE 3
CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 2, "═", hlattr)
END SELECT
WHILE NOT INSTAT
WEND
ans$ = INKEY$
IF LEN(ans$) = 2 THEN
ans1$ = RIGHT$(ans$, 1)
ans$ = CHR$(0)
END IF
SELECT CASE bartype
CASE 3
CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2) - 2, " ", wattr(idx))
CASE ELSE
CALL Tbwattr(wrow(idx) + curntpos, wcol(idx) + 1, 1, wcols(idx) - 2, wattr(idx))
CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2), item(curntpos), wattr(idx))
IF flon THEN CALL Tbwprint(wrow(idx) + curntpos, wcol(idx) + (wcols(idx) \ 2) - (LEN(item$(curntpos)) \ 2), LEFT$(item$(curntpos),1),flattr)
END SELECT
IF (bartype <> 0) AND (ans$ = CHR$(0)) THEN
SELECT CASE ans1$
CASE CHR$(72), CHR$(75), "-", "8", "4"
DECR curntpos
CASE CHR$(80), CHR$(77), "+", "2", "6"
INCR curntpos
END SELECT
END IF
IF flon THEN
FOR mloop = 1 TO itemcount
IF UCASE$(ans$) = UCASE$(LEFT$(item$(mloop), 1)) THEN
curntpos = mloop
done = -1
END IF
NEXT
END IF
IF (NOT flon) OR (bartype <> 0) THEN IF ans$ = CHR$(13) THEN done = -1
IF ans$ = CHR$(27) THEN
curntpos = 0
done = -1
END IF
IF curntpos > itemcount THEN curntpos = 1
IF curntpos < 1 THEN curntpos = itemcount
LOOP UNTIL done
END SUB
SUB Makewindow (row, col, rows, cols, attr, battr, brdrsel, sattr, shadow, zoom)
SHARED wrow(), wrows(), wcol(), wcols(), wattr(), wshdw()
SHARED wlstx(), wlsty(), scrn(), wptr(), idx, mw
LOCAL wsize
IF idx >= mw THEN PRINT "TOO MANY WINDOWS!"
IF (shadow <= 10 AND shadow >= 1) THEN wsize = (rows + 1) * (cols + 2) * 2 ELSE wsize = rows * cols * 2
wlstx(idx)=CSRLIN:wlsty(idx)=POS
idx = idx + 1
wptr(idx + 1) = wptr(idx) + wsize + 1: wrow(idx) = row: wcol(idx) = col
wrows(idx) = rows: wcols(idx) = cols: wattr(idx) = attr: wshdw(idx) = shadow
CALL Tbwbox(1, col - 1, row - 1, col + cols - 2, row + rows - 2, attr, battr, brdrsel, zoom, sattr, shadow, scrn(wptr(idx)))
END SUB
SUB Prtcwindow (row, strdat$)
SHARED wrow(), wcol(), wcols(), wattr(), idx
CALL Tbwprintc(wrow(idx) + row, wcol(idx), wcol(idx) + wcols(idx), strdat$, wattr(idx))
END SUB
SUB Prtwindow (row, col, strdat$)
SHARED wrow(), wcol(), wattr(), idx
CALL Tbwprint(wrow(idx) + row, wcol(idx) + col, strdat$, wattr(idx))
END SUB
SUB Removewindow
SHARED wrow(), wcol(), wrows(), wcols(), wshdw(), wlstx(), wlsty()
SHARED scrn(), wptr(), idx
IF idx = 0 THEN
PRINT "IDX = 0"
ELSE
CALL Tbwrbox(wrow(idx), wcol(idx), wrows(idx), wcols(idx), wshdw(idx), scrn(wptr(idx)))
idx = idx - 1
LOCATE wlstx(idx), wlsty(idx)
END IF
END SUB
SUB Tbwborder (attr)
OUT &H3D9, attr
END SUB
SUB Titlewindow (dir, attr, title$)
SHARED wrow(), wcol(), wrows(), wcols(), idx
CALL Tbwtitle(dir, wrow(idx), wcol(idx), wrows(idx), wcols(idx), title$, attr)
END SUB
SUB Windowxy (row, col)
SHARED wrow(), wcol(), idx
LOCATE wrow(idx) + row, wcol(idx) + col
END SUB