Terminal control/Preserve screen: Difference between revisions
Terminal control/Preserve screen in FreeBASIC
m (→{{header|Phix}}: syntax coloured, marked p2js incompatible) |
(Terminal control/Preserve screen in FreeBASIC) |
||
Line 193:
." Press any key to return" ekey drop
.\" \033[?1049l" \ restore screen</lang>
=={{header|FreeBASIC}}==
<lang freebasic>'' 640x480x8, with 3 pages
Screen 12,,3
Windowtitle "Terminal control/Preserve screen"
'' text for working page #2 (visible page #0)
Screenset 2, 0
Cls
Print "This is the new screen, following a CLS"
'' text for working page #1 (visible page #0)
Screenset 1, 0
Cls
Print "This is the original screen"
' page #0 is the working page (visible page #0)
Screenset 0, 0
Screencopy 1, 0
Sleep 1000 '1 second
Screencopy 2, 0
Sleep 1000
Print
For i As Byte = 5 To 1 Step -1
Print "Going back in: "; i
Sleep 1000
Next i
Screencopy 1, 0
Sleep</lang>
=={{header|Go}}==
| |||