home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_1_94
/
power
/
scrsave.bas
< prev
Wrap
BASIC Source File
|
1993-10-17
|
1KB
|
64 lines
'-----------------------------------------------------------------------
'
' SCRSAVE.BAS
'
' Demoprogramm zur Erläuterung der TSR-Programmierung in PowerBASIC 3.0
'
' 16.10.93
'
'-----------------------------------------------------------------------
'
' Installationsmeldung ausgeben
'
print "SCRSAVE 1.0 VGA installiert"
'
' Definieren der Aufrufmethode des TSR-Programms
'
popup quiet 564
'
' Speicher freigeben und zurückschalten
'
dummy& = setmem(-600000)
popup sleep using ems, "C:\PBTMP.$$$"
'
' Sichern des Bildschirms und der Cursorposition
'
do
xpos% = pos
ypos% = csrlin
def seg = &hB800 ' VGA-Karte
savescreen$ = peek$(0,4000)
'
' Nachricht auf dem Bildschirm ausgeben
'
do
cls
x% = int(rnd * 60) + 1
y% = int(rnd * 24) + 1
locate y%,x%,0 : print "PowerBASIC 3.0"
sleep 1
loop while inkey$=""
'
' Bildschirm restaurieren
'
locate ypos%,xpos%,1
def seg = &hB800 ' VGA-Karte
poke$ 0, savescreen$
'
' Zurückschalten
'
popup sleep
loop until 0
end