Anonymous user
Terminal control/Cursor movement: Difference between revisions
→{{header|Lasso}}: Added Lasso contribution
(→{{header|Lasso}}: Added Lasso contribution) |
|||
Line 171:
}
</lang>
=={{header|Lasso}}==
<lang Lasso>#!/usr/bin/lasso9
local(esc = decode_base64('Gw=='))
stdoutnl('Demonstrate how to move the cursor one position to the left
Demonstrate how to move the cursor one position to the right
Demonstrate how to move the cursor up one line (without affecting its horizontal position)
Demonstrate how to move the cursor down one line (without affecting its horizontal position)
Demonstrate how to move the cursor to the beginning of the line
Demonstrate how to move the cursor to the end of the line
Demonstrate how to move the cursor to the top left corner of the screen
Demonstrate how to move the cursor to the bottom right corner of the screen
')
// place cursor in a suitable place before exercise
stdout(#esc + '[5;10H')
sleep(2000)
// move the cursor one position to the left
stdout(#esc + '[1D')
sleep(2000)
// move the cursor one position to the right
stdout(#esc + '[1C')
sleep(2000)
// move the cursor up one line
stdout(#esc + '[1A')
sleep(2000)
// move the cursor down one line
stdout(#esc + '[1B')
sleep(2000)
// move the cursor to the beginning of the line
stdout(#esc + '[100D')
sleep(2000)
// move the cursor to the top left corner of the screen
stdout(#esc + '[H')
sleep(2000)
// move the cursor to the bottom right corner of the screen
stdout(#esc + '[500;500H')
sleep(2000)</lang>
=={{header|Mathematica}}==
| |||