Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/MISC/TPCVBR.ZIP/TPCVBROW.PRG

Text File | 1990-03-14 | 1.4 KB | 27 lines

set color to w/b
set echo off
set talk off
set scor off
set stat off
@ 1,0 to 23,79
set color to rg+/r
@ 0,0 say 'Demo for TPCVBROW.COM                                                          '
@ 0,70 say date()
@ 24,0 say '        Use the Arrow Keys to scroll text within the window. <Esc> Exits        '
set color to gr+/gr
@ 5 ,5 say '┌─────────────────────────────────────────────────────────────────────┐'
@ 6 ,5 say '│                          Scrolling Text Demo                        │'
@ 7 ,5 say '├─────────────────────────────────────────────────────────────────────┤'
@ 8 ,5 say '│                                                                     │'
@ 9 ,5 say '│                                                                     │'
@ 10,5 say '│                                                                     │'
@ 11,5 say '│                                                                     │'
@ 12,5 say '│                                                                     │'
@ 13,5 say '│                                                                     │'
@ 14,5 say '│                                                                     │'
@ 15,5 say '│                                                                     │'
@ 16,5 say '└─────────────────────────────────────────────────────────────────────┘'
! tpcvbrow \8,6,8,69,110,tpcvbrow.txt
set color to rg+/n
quit