home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tktools.zip
/
TKTOOLS.COM
/
TKTOOLS.CLA
< prev
Wrap
Text File
|
1990-02-26
|
13KB
|
368 lines
PROGRAM
!░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
!░ ░
!░ TkTools.BIN LEM Test Demo ░
!░ Anthony M. Kirk ░
!░ February 26, 1990 ░
!░ ░
!░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
!░ ░
!░ See TkTools.ASM for docs/info. ░
!░ ░
!░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
MAP
MODULE('TKTools'),BINARY
PROC(Interrupt)
FUNC(DosVer),STRING ! Get DOS version
FUNC(GetDriveChar),STRING ! Get cur drive char
FUNC(GetDriveNmbr),LONG ! Get cur drive nmbr (A=0,B=1)
FUNC(GetDriveCap),LONG ! Get cur drive capacity
FUNC(GetDriveFree),LONG ! Get cur drive capacity
FUNC(SetDriveChar),LONG ! Set cur drive char
FUNC(SetDriveNmbr),LONG ! Set cur drive nmbr (A=0,B=1)
FUNC(GetActivFlop),LONG ! Get active floppy (A=0,B=1)
FUNC(SetActivFlop),LONG ! Get active floppy (A=0,B=1)
FUNC(FloppyCount),LONG ! How many floppy drives?
PROC(SetBlkToHigh) ! Set EGA/VGA to high backgrd
PROC(SetHighToBlk) ! Set EGA/VGA to blinking
.
.
! Register Group for Interrupt Procedure
Registers GROUP,PRE(Reg) ! Register group
AX GROUP ! Register AX
AL BYTE ! AH
AH BYTE ! AL
. ! End AX ! .
BX GROUP ! Register BX
BL BYTE ! BH
BH BYTE ! BL
. ! End BX ! .
CX GROUP ! Register CX
CL BYTE ! CH
CH BYTE ! CL
. ! End CX ! .
DX GROUP ! Register DX
DL BYTE ! DH
DH BYTE ! DL
. ! End DX ! .
SI SHORT ! REG
DI SHORT ! REG
DS SHORT ! REG
ES SHORT ! REG
INT BYTE
FLAGS SHORT ! Flags
. ! End GROUP Registers ! End GROUP
! End Register Group
! Begin Screen
Screen SCREEN HUE(11,1)
ROW(1,1) STRING('┌─{78}┐'),HUE(15,1)
ROW(2,1) STRING('│<0{78}>│'),HUE(15,1)
ROW(3,1) REPEAT(2),EVERY(8);STRING('├─{78}┤'),HUE(15,1) .
ROW(4,1) REPEAT(7);STRING('│<0{78}>│'),HUE(15,1) .
ROW(12,1) REPEAT(13);STRING('│<0{78}>│'),HUE(15,1) .
ROW(25,1) STRING('└─{78}┘'),HUE(15,1)
ROW(13,5) STRING('┌─{12}<0{8}>─{14}┐<0,0>┌──<0{28}>──┐')
ROW(14,5) REPEAT(8);STRING('│<0{34}>│<0,0>│<0{32}>│') .
ROW(22,5) STRING('└─{34}┘<0,0>└─{32}┘')
ROW(2,30) STRING('TkTools LEM Module Demo')
ROW(4,27) STRING('Current DOS Version ..:')
ROW(5,27) STRING('Current Drive Char ...:')
ROW(6,27) STRING('Current Drive Number .:')
ROW(7,27) STRING('Current Drive Capacity:')
ROW(8,27) STRING('Current Drive Free ...:')
ROW(9,27) STRING('Count of Floppy Drives:')
ROW(10,27) STRING('Current Active Floppy :')
ROW(13,19) STRING('Normal')
COL(47) STRING('Blinking/Bright Background')
ROW(14,7) STRING('**'),HUE(0,0)
COL(9) STRING('**'),HUE(1,0)
COL(11) STRING('**'),HUE(2,0)
COL(13) STRING('**'),HUE(3,0)
COL(15) STRING('**'),HUE(4,0)
COL(17) STRING('**'),HUE(5,0)
COL(19) STRING('**'),HUE(6,0)
COL(21) STRING('**'),HUE(7,0)
COL(23) STRING('**'),HUE(8,0)
COL(25) STRING('**'),HUE(9,0)
COL(27) STRING('**'),HUE(10,0)
COL(29) STRING('**'),HUE(11,0)
COL(31) STRING('**'),HUE(12,0)
COL(33) STRING('**'),HUE(13,0)
COL(35) STRING('**'),HUE(14,0)
COL(37) STRING('**'),HUE(15,0)
COL(45) STRING('**'),HUE(16,0)
COL(47) STRING('**'),HUE(18,0)
COL(49) STRING('**'),HUE(19,0)
COL(51) STRING('**'),HUE(20,0)
COL(53) STRING('**'),HUE(21,0)
COL(55) STRING('**'),HUE(22,0)
COL(57) STRING('**'),HUE(23,0)
COL(59) STRING('**'),HUE(24,0)
COL(61) STRING('**'),HUE(25,0)
COL(63) STRING('**'),HUE(26,0)
COL(65) STRING('**'),HUE(27,0)
COL(67) STRING('**'),HUE(28,0)
COL(69) STRING('**'),HUE(29,0)
COL(71) STRING('**'),HUE(30,0)
COL(73) STRING('**'),HUE(31,0)
ROW(15,7) STRING('**'),HUE(0,1)
COL(9) STRING('**'),HUE(1,1)
COL(11) STRING('**'),HUE(2,1)
COL(13) STRING('**'),HUE(3,1)
COL(15) STRING('**'),HUE(4,1)
COL(17) STRING('**'),HUE(5,1)
COL(19) STRING('**'),HUE(6,1)
COL(21) STRING('**'),HUE(7,1)
COL(23) STRING('**'),HUE(8,1)
COL(25) STRING('**'),HUE(9,1)
COL(27) STRING('**'),HUE(10,1)
COL(29) STRING('**'),HUE(11,1)
COL(31) STRING('**'),HUE(12,1)
COL(33) STRING('**'),HUE(13,1)
COL(35) STRING('**'),HUE(14,1)
COL(37) STRING('**'),HUE(15,1)
COL(45) STRING('**'),HUE(16,1)
COL(47) STRING('**'),HUE(18,1)
COL(49) STRING('**'),HUE(19,1)
COL(51) STRING('**'),HUE(20,1)
COL(53) STRING('**'),HUE(21,1)
COL(55) STRING('**'),HUE(22,1)
COL(57) STRING('**'),HUE(23,1)
COL(59) STRING('**'),HUE(24,1)
COL(61) STRING('**'),HUE(25,1)
COL(63) STRING('**'),HUE(26,1)
COL(65) STRING('**'),HUE(27,1)
COL(67) STRING('**'),HUE(28,1)
COL(69) STRING('**'),HUE(29,1)
COL(71) STRING('**'),HUE(30,1)
COL(73) STRING('**'),HUE(31,1)
ROW(16,7) STRING('**'),HUE(0,2)
COL(9) STRING('**'),HUE(1,2)
COL(11) STRING('**'),HUE(2,2)
COL(13) STRING('**'),HUE(3,2)
COL(15) STRING('**'),HUE(4,2)
COL(17) STRING('**'),HUE(5,2)
COL(19) STRING('**'),HUE(6,2)
COL(21) STRING('**'),HUE(7,2)
COL(23) STRING('**'),HUE(8,2)
COL(25) STRING('**'),HUE(9,2)
COL(27) STRING('**'),HUE(10,2)
COL(29) STRING('**'),HUE(11,2)
COL(31) STRING('**'),HUE(12,2)
COL(33) STRING('**'),HUE(13,2)
COL(35) STRING('**'),HUE(14,2)
COL(37) STRING('**'),HUE(15,2)
COL(45) STRING('**'),HUE(16,2)
COL(47) STRING('**'),HUE(18,2)
COL(49) STRING('**'),HUE(19,2)
COL(51) STRING('**'),HUE(20,2)
COL(53) STRING('**'),HUE(21,2)
COL(55) STRING('**'),HUE(22,2)
COL(57) STRING('**'),HUE(23,2)
COL(59) STRING('**'),HUE(24,2)
COL(61) STRING('**'),HUE(25,2)
COL(63) STRING('**'),HUE(26,2)
COL(65) STRING('**'),HUE(27,2)
COL(67) STRING('**'),HUE(28,2)
COL(69) STRING('**'),HUE(29,2)
COL(71) STRING('**'),HUE(30,2)
COL(73) STRING('**'),HUE(31,2)
ROW(17,7) STRING('**'),HUE(0,3)
COL(9) STRING('**'),HUE(1,3)
COL(11) STRING('**'),HUE(2,3)
COL(13) STRING('**'),HUE(3,3)
COL(15) STRING('**'),HUE(4,3)
COL(17) STRING('**'),HUE(5,3)
COL(19) STRING('**'),HUE(6,3)
COL(21) STRING('**'),HUE(7,3)
COL(23) STRING('**'),HUE(8,3)
COL(25) STRING('**'),HUE(9,3)
COL(27) STRING('**'),HUE(10,3)
COL(29) STRING('**'),HUE(11,3)
COL(31) STRING('**'),HUE(12,3)
COL(33) STRING('**'),HUE(13,3)
COL(35) STRING('**'),HUE(14,3)
COL(37) STRING('**'),HUE(15,3)
COL(45) STRING('**'),HUE(16,3)
COL(47) STRING('**'),HUE(18,3)
COL(49) STRING('**'),HUE(19,3)
COL(51) STRING('**'),HUE(20,3)
COL(53) STRING('**'),HUE(21,3)
COL(55) STRING('**'),HUE(22,3)
COL(57) STRING('**'),HUE(23,3)
COL(59) STRING('**'),HUE(24,3)
COL(61) STRING('**'),HUE(25,3)
COL(63) STRING('**'),HUE(26,3)
COL(65) STRING('**'),HUE(27,3)
COL(67) STRING('**'),HUE(28,3)
COL(69) STRING('**'),HUE(29,3)
COL(71) STRING('**'),HUE(30,3)
COL(73) STRING('**'),HUE(31,3)
ROW(18,7) STRING('**'),HUE(0,4)
COL(9) STRING('**'),HUE(1,4)
COL(11) STRING('**'),HUE(2,4)
COL(13) STRING('**'),HUE(3,4)
COL(15) STRING('**'),HUE(4,4)
COL(17) STRING('**'),HUE(5,4)
COL(19) STRING('**'),HUE(6,4)
COL(21) STRING('**'),HUE(7,4)
COL(23) STRING('**'),HUE(8,4)
COL(25) STRING('**'),HUE(9,4)
COL(27) STRING('**'),HUE(10,4)
COL(29) STRING('**'),HUE(11,4)
COL(31) STRING('**'),HUE(12,4)
COL(33) STRING('**'),HUE(13,4)
COL(35) STRING('**'),HUE(14,4)
COL(37) STRING('**'),HUE(15,4)
COL(45) STRING('**'),HUE(16,4)
COL(47) STRING('**'),HUE(18,4)
COL(49) STRING('**'),HUE(19,4)
COL(51) STRING('**'),HUE(20,4)
COL(53) STRING('**'),HUE(21,4)
COL(55) STRING('**'),HUE(22,4)
COL(57) STRING('**'),HUE(23,4)
COL(59) STRING('**'),HUE(24,4)
COL(61) STRING('**'),HUE(25,4)
COL(63) STRING('**'),HUE(26,4)
COL(65) STRING('**'),HUE(27,4)
COL(67) STRING('**'),HUE(28,4)
COL(69) STRING('**'),HUE(29,4)
COL(71) STRING('**'),HUE(30,4)
COL(73) STRING('**'),HUE(31,4)
ROW(19,7) STRING('**'),HUE(0,5)
COL(9) STRING('**'),HUE(1,5)
COL(11) STRING('**'),HUE(2,5)
COL(13) STRING('**'),HUE(3,5)
COL(15) STRING('**'),HUE(4,5)
COL(17) STRING('**'),HUE(5,5)
COL(19) STRING('**'),HUE(6,5)
COL(21) STRING('**'),HUE(7,5)
COL(23) STRING('**'),HUE(8,5)
COL(25) STRING('**'),HUE(9,5)
COL(27) STRING('**'),HUE(10,5)
COL(29) STRING('**'),HUE(11,5)
COL(31) STRING('**'),HUE(12,5)
COL(33) STRING('**'),HUE(13,5)
COL(35) STRING('**'),HUE(14,5)
COL(37) STRING('**'),HUE(15,5)
COL(45) STRING('**'),HUE(16,5)
COL(47) STRING('**'),HUE(18,5)
COL(49) STRING('**'),HUE(19,5)
COL(51) STRING('**'),HUE(20,5)
COL(53) STRING('**'),HUE(21,5)
COL(55) STRING('**'),HUE(22,5)
COL(57) STRING('**'),HUE(23,5)
COL(59) STRING('**'),HUE(24,5)
COL(61) STRING('**'),HUE(25,5)
COL(63) STRING('**'),HUE(26,5)
COL(65) STRING('**'),HUE(27,5)
COL(67) STRING('**'),HUE(28,5)
COL(69) STRING('**'),HUE(29,5)
COL(71) STRING('**'),HUE(30,5)
COL(73) STRING('**'),HUE(31,5)
ROW(20,7) STRING('**'),HUE(0,6)
COL(9) STRING('**'),HUE(1,6)
COL(11) STRING('**'),HUE(2,6)
COL(13) STRING('**'),HUE(3,6)
COL(15) STRING('**'),HUE(4,6)
COL(17) STRING('**'),HUE(5,6)
COL(19) STRING('**'),HUE(6,6)
COL(21) STRING('**'),HUE(7,6)
COL(23) STRING('**'),HUE(8,6)
COL(25) STRING('**'),HUE(9,6)
COL(27) STRING('**'),HUE(10,6)
COL(29) STRING('**'),HUE(11,6)
COL(31) STRING('**'),HUE(12,6)
COL(33) STRING('**'),HUE(13,6)
COL(35) STRING('**'),HUE(14,6)
COL(37) STRING('**'),HUE(15,6)
COL(45) STRING('**'),HUE(16,6)
COL(47) STRING('**'),HUE(18,6)
COL(49) STRING('**'),HUE(19,6)
COL(51) STRING('**'),HUE(20,6)
COL(53) STRING('**'),HUE(21,6)
COL(55) STRING('**'),HUE(22,6)
COL(57) STRING('**'),HUE(23,6)
COL(59) STRING('**'),HUE(24,6)
COL(61) STRING('**'),HUE(25,6)
COL(63) STRING('**'),HUE(26,6)
COL(65) STRING('**'),HUE(27,6)
COL(67) STRING('**'),HUE(28,6)
COL(69) STRING('**'),HUE(29,6)
COL(71) STRING('**'),HUE(30,6)
COL(73) STRING('**'),HUE(31,6)
ROW(21,7) STRING('**'),HUE(0,7)
COL(9) STRING('**'),HUE(1,7)
COL(11) STRING('**'),HUE(2,7)
COL(13) STRING('**'),HUE(3,7)
COL(15) STRING('**'),HUE(4,7)
COL(17) STRING('**'),HUE(5,7)
COL(19) STRING('**'),HUE(6,7)
COL(21) STRING('**'),HUE(7,7)
COL(23) STRING('**'),HUE(8,7)
COL(25) STRING('**'),HUE(9,7)
COL(27) STRING('**'),HUE(10,7)
COL(29) STRING('**'),HUE(11,7)
COL(31) STRING('**'),HUE(12,7)
COL(33) STRING('**'),HUE(13,7)
COL(35) STRING('**'),HUE(14,7)
COL(37) STRING('**'),HUE(15,7)
COL(45) STRING('**'),HUE(16,7)
COL(47) STRING('**'),HUE(18,7)
COL(49) STRING('**'),HUE(19,7)
COL(51) STRING('**'),HUE(20,7)
COL(53) STRING('**'),HUE(21,7)
COL(55) STRING('**'),HUE(22,7)
COL(57) STRING('**'),HUE(23,7)
COL(59) STRING('**'),HUE(24,7)
COL(61) STRING('**'),HUE(25,7)
COL(63) STRING('**'),HUE(26,7)
COL(65) STRING('**'),HUE(27,7)
COL(67) STRING('**'),HUE(28,7)
COL(69) STRING('**'),HUE(29,7)
COL(71) STRING('**'),HUE(30,7)
COL(73) STRING('**'),HUE(31,7)
ROW(24,5) STRING('F2'),HUE(14,1)
COL(7) STRING(': Bright')
COL(20) STRING('F3'),HUE(14,1)
COL(22) STRING(': Blinking')
COL(67) STRING('Esc'),HUE(14,1)
COL(70) STRING(': Exits')
DosVersion ROW(4,51) STRING(4),HUE(15,1)
DriveChar ROW(5,51) STRING(1),HUE(15,1)
DriveNumber ROW(6,51) STRING(@N1),HUE(15,1)
DriveCap ROW(7,51) STRING(@N11),HUE(15,1)
DriveFree ROW(8,51) STRING(@N11),HUE(15,1)
FloppyCnt ROW(9,51) STRING(@N1),HUE(15,1)
ActiveFloppy ROW(10,51) STRING(@N1),HUE(15,1)
.
! End Screen
! Begin Code Section
CODE
OPEN(Screen)
DosVersion = DosVer()
DriveChar = GetDriveChar()
DriveNumber = GetDriveNmbr()
DriveCap = GetDriveCap(0)
DriveFree = GetDriveFree(0)
FloppyCnt = FloppyCount()
ActiveFloppy= GetActivFlop()
LOOP
ASK
IF KEYCODE() = 2050 ! F2 key
SetBlkToHigh
.
IF KEYCODE() = 2051 ! F3 key
SetHighToBlk
.
IF KEYCODE() = 256 ! Esc key
BREAK
.
.