Create a new character?

[bplus]

OK I moved all the stuff that controls the blinking into the myCurs sub so now main code can focus on it's job.

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!"
    myCurs cursRow, cursCol
    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) ' use row col like for Locate
    'Locate row, col
    Static As Long lc, toggle
    lc = lc + 1
    If lc >= 1000000 Then lc = 0
    If lc Mod 20 = 0 Then toggle = 1 - toggle
    If toggle Then c~& = _RGB32(255, 255, 255) Else c~& = _RGB32(0, 0, 0)
    Line ((col - 1) * 8, (row - 1) * 16)-Step(0, 15), c~&
End Sub