01-25-2023, 04:05 AM
Here is start of a custom cursor:
Code: (Select All)
_Title "MyCurs Test use left and right arrow keys to move cursor" 'b+ 2023-01-24
Screen _NewImage(800, 600, 32)
cursCol = 1: cursRow = 1
Do
Cls
Print " Hello World!"
lc = lc + 1
If lc Mod 20 = 0 Then toggle = 1 - toggle
If toggle Then c~& = _RGB32(255, 255, 255) Else c~& = _RGB32(0, 0, 0)
myCurs cursRow, cursCol, c~& ' at "H"
kh& = _KeyHit
If kh& = 19200 And cursCol > 1 Then cursCol = cursCol - 1
If kh& = 19712 And cursCol < 100 Then cursCol = cursCol + 1
_Display
_Limit 60
Loop
Sub myCurs (row, col, colr As _Unsigned Long) ' use row col like for Locate
'Locate row, col
Line ((col - 1) * 8, (row - 1) * 16)-Step(0, 15), colr
End Sub
b = b + ...