10 REM" [0x16] [0x07] [0x0E] 20 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ROLLING CURSOR 30 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ROLLING CURSOR 40 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] For 8 Bit Software. 50 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] For 8 Bit Software. 60 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ------------------------------ 70 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] Causes a cursor to scroll at 80 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] the next print position even 90 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] if the cursor is switched off. 100 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ------------------------------ 110 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] This program is Public domain. 120 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] If you use it in your programs 130 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] please mention 8BS in the 140 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] titles. 150 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ------------------------------ 160 DEFFNS="CURSOR" 170 FORL%=0TO2STEP2 180 P%=&900:[:OPTL% 190 SEI:LDA&220:STA&963:LDA&221:STA&964:LDA#&27:STA&220:LDA#&9:STA&221:LDA#&0:STA&96C:STA&96D:CLI:LDA#&E:LDX#&4:JMP&FFF4 200 CMP#4:BNEl1% 210 PHP:PHA:TXA:PHA:TYA:PHA 220 BIT&96C:BPLl2% 230 DEC&96D:BNEl3% 240 LDA#&0:STA&96C:BEQl3% 250 .l2%:INC&96D:LDA&96D:CMP#&F:BNEl3% \ SPEED 260 DEC&96C 270 .l3%:LDX#&A:LDY&96D:JSRR1% 280 INX:INY:JSRR1% 290 PLA:TAY:PLA:TAX:PLA:PLP 300 .l1%:JMP&FFFF 310 .R1%:STX&FE00:STY&FE01:RTS:EQUB0:EQUB0:EQUB0:]:NEXT 320 CALL&900