28 lines
888 B
Plaintext
28 lines
888 B
Plaintext
10 PRINT CHR$(8);:REM cursor one position left
|
|
20 PRINT CHR$(9);:REM cursor one position right
|
|
30 GO SUB 500: REM get cursor position
|
|
40 IF cr>0 THEN LET cr=cr-1: GO SUB 550: REM cursor up one line
|
|
50 IF cr<22 THEN LET cr=cr+1: GO SUB 550: REM cursor down one line
|
|
60 POKE 23688,33: REM cursor to beginning of the line
|
|
70 POKE 23688,0: REM cursor to end of line
|
|
80 POKE 23688,33:POKE 23689,24: REM cursor to top left
|
|
90 REM bottom two rows are reserved for input and errors
|
|
100 REM so we reserve those lines here
|
|
110 POKE 23688,0: POKE 23689,2: REM bottom right
|
|
|
|
499 STOP: REM do not overrun into subroutines
|
|
|
|
500 REM get cursor position
|
|
510 LET cc=33-PEEK 23688:REM current column
|
|
520 LET cr=24-PEEK 23689:REM current row
|
|
530 RETURN
|
|
|
|
550 REM set cursor position
|
|
560 PRINT AT cr,cc;
|
|
570 RETURN
|
|
|
|
600 REM alternative set cursor position
|
|
610 POKE 23688,33-cc
|
|
620 POKE 23689,24-cr
|
|
630 RETURN
|