home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
tb
/
tbscreen
/
demo-tb.bas
next >
Wrap
BASIC Source File
|
1987-11-03
|
640b
|
33 lines
'Demo-Tb.Bas - demonstrates saving and restoring the screen in Turbo Basic
Defint A-Z
Dim Dynamic Storage(1999)
FirstLine = 1
LastLine = 5
Cls
For X = 1 To 15
Color X
Print String$(80, X + 64);
Next
Locate 20
Print "Press a key to save the screen";
While Inkey$ = "" : Wend
Call ScrnSave(FirstLine, LastLine, Storage(0))
Cls
Print "Press a key to restore the top";
While Inkey$ = "" : Wend
Call ScrnRest(FirstLine, LastLine, Storage(0))
Sub ScrnSave Inline
$Inline "Save-TB.Bin"
End Sub
Sub ScrnRest Inline
$Inline "Rest-TB.Bin"
End Sub