yep that seems to work , but how would i rewrite the macro to allow for the port to be a variable parameter , so both port 1, 2 etc would be supported ?
Code:
black con "0" system ' ALL color names ARE case sensitive
red con "1" system
green con "2" system
yellow con "3" system
blue con "4" system
magenta con "5" system
cyan con "6" system
white con "7" system
dark con "0" system
light con "1" system
tch var byte system ' Temporary Character
goto OverANSI
asm
ANSIstart
HSEROUT2?C 27
HSEROUT2?C "["
return
TermColor macro FGLD, FGCL, BGCL
L?CALL ANSIstart
HSEROUT2?C FGLD
HSEROUT2?C ";"
HSEROUT2?C "3"
HSEROUT2?C FGCL
HSEROUT2?C ";"
HSEROUT2?C "4"
HSEROUT2?C BGCL
HSEROUT2?C "m"
endm
ForColor macro FGColor
L?CALL ANSIstart
HSEROUT2?C "3"
HSEROUT2?C FGColor
HSEROUT2?C "m"
endm
BackColor macro BGColor
L?CALL ANSIstart
HSEROUT2?C "4"
HSEROUT2?C BGColor
HSEROUT2?C "m"
endm
DHSEROUT?B macro Bin
MOVE?BA Bin
L?CALL HSEROUT
endm
SendFormat
L?CALL ANSIstart
DHSEROUT?B tch
HSEROUT2?C "m"
return
Normal macro
MOVE?CB "0",tch
L?CALL SendFormat
endm
Bold macro
MOVE?CB "1",tch
L?CALL SendFormat
endm
Dim macro
MOVE?CB "2",tch
L?CALL SendFormat
endm
Italic macro
MOVE?CB "3",tch
L?CALL SendFormat
endm
UnderScore macro
MOVE?CB "4",tch
L?CALL SendFormat
endm
Blink macro
MOVE?CB "5",tch
L?CALL SendFormat
endm
Negative macro
MOVE?CB "7",tch
L?CALL SendFormat
endm
CurUp macro
L?CALL ANSIstart
HSEROUT2?C "A"
endm
CurDown macro
L?CALL ANSIstart
HSEROUT2?C "B"
endm
CurRight macro
L?CALL ANSIstart
HSEROUT2?C "C"
endm
CurLeft macro
L?CALL ANSIstart
HSEROUT2?C "D"
endm
CurHome macro
L?CALL ANSIstart
HSEROUT2?C "H"
endm
CurMove macro Row, Col ;[H = Home, [24;80H = Row 24, Column 80
L?CALL ANSIstart
HSEROUT2COUNT?C 2
HSEROUT2NUM?C Row
HSEROUT2DEC?
HSEROUT2?C ";"
HSEROUT2COUNT?C 2
HSEROUT2NUM?C Col
HSEROUT2DEC?
HSEROUT2?C "H"
endm
ClearScr macro
L?CALL ANSIstart
HSEROUT2?C "2"
HSEROUT2?C "J"
endm
ClearLine macro
HSEROUT2?C 13
L?CALL ANSIstart
HSEROUT2?C "K"
endm
ClearUp macro
L?CALL ANSIstart
HSEROUT2?C "1"
HSEROUT2?C "J"
endm
ClearDown macro
L?CALL ANSIstart
HSEROUT2?C "0"
HSEROUT2?C "J"
endm
RequestCurPos macro
L?CALL ANSIstart
HSEROUT2?C "6"
HSEROUT2?C "n"
endm
endasm
OverANSI:
Bookmarks