RosettaCodeData/Task/Terminal-control-Cursor-movement/BaCon/terminal-control-cursor-movement.bacon
2023-07-01 13:44:08 -04:00

29 lines
496 B
Text

' ANSI terminal cursor movement
' Default number of positions, if not specified, is 1.
' Left 1 position, blocks at first position
CURSOR BACK 1
' Right 1, blocks at end of line
CURSOR FORWARD 1
' Up 1, column uneffected, blocks at top
CURSOR UP 1
' Down 1, column uneffected, until scroll at bottom
CURSOR DOWN 1
' First column of current row
R = GETY
GOTOXY 1,R
' Last column of current row
C = COLUMNS
GOTOXY C,R
' Home position, top left
GOTOXY 1,1
' Bottom right
R = ROWS
GOTOXY C,R