Terminal control/Preserve screen: Difference between revisions
Content added Content deleted
(Added Python example mirroring the already included C example.) |
No edit summary |
||
Line 94:
sleep 5 # Wait five seconds
tput rmcup # Restore the display</lang>
=={{header|XPL0}}==
<lang XPL0>include c:\cxpl\codes; \intrinsic 'code' declarations
proc SetPage(P); \Select active display page for video screen
int P;
int CpuReg;
[CpuReg:= GetReg; \access CPU registers
CpuReg(0):= $0500 + P; \call BIOS interrupt $10, function 5
SoftInt($10);
]; \SetPage
[SetPage(1); \enable page 1 text display screen
Clear; \clear screen and output something
Text(0, "Hit any key to restore original screen. ");
if ChIn(1) then []; \wait for keystroke
SetPage(0); \restore original, default text screen, page 0
]</lang>
=={{header|Z80 Assembly}}==
| |||