Scrolling Output That Exceeds Screen Size

[PhilOfPerth]

Code: (Select All)

'This will slow down scroll after screen reaches row 30
Screen _NewImage(800, 600, 32)
Print "This program will count to 100 from the number you supply."
Print
Input "Enter the number to start counting from > ", count%
While count% <= 100
    _KeyClear
    Print count%
    If CsrLin > 30 Then Sleep 1 ' or sleep 2 etc
    count% = count% + 1
Wend