home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / power / scrsave.bas < prev   
BASIC Source File  |  1993-10-17  |  1KB  |  64 lines
  1. '-----------------------------------------------------------------------
  2. '
  3. ' SCRSAVE.BAS
  4. '
  5. ' Demoprogramm zur Erläuterung der TSR-Programmierung in PowerBASIC 3.0
  6. '
  7. ' 16.10.93
  8. '
  9. '-----------------------------------------------------------------------
  10.  
  11. '
  12. ' Installationsmeldung ausgeben
  13. '
  14. print "SCRSAVE 1.0 VGA installiert"
  15.  
  16. '
  17. ' Definieren der Aufrufmethode des TSR-Programms
  18. '
  19. popup quiet 564
  20.  
  21. '
  22. ' Speicher freigeben und zurückschalten
  23. '
  24. dummy& = setmem(-600000)
  25. popup sleep using ems, "C:\PBTMP.$$$"
  26.  
  27. '
  28. ' Sichern des Bildschirms und der Cursorposition
  29. '
  30. do
  31.    xpos% = pos
  32.    ypos% = csrlin
  33.  
  34.    def seg = &hB800    ' VGA-Karte
  35.    savescreen$ = peek$(0,4000)
  36.  
  37.    '
  38.    ' Nachricht auf dem Bildschirm ausgeben
  39.    '
  40.    do
  41.       cls
  42.       x% = int(rnd * 60) + 1
  43.       y% = int(rnd * 24) + 1
  44.  
  45.       locate y%,x%,0 : print "PowerBASIC 3.0"
  46.       sleep 1
  47.    loop while inkey$=""
  48.  
  49.    '
  50.    ' Bildschirm restaurieren
  51.    '
  52.    locate ypos%,xpos%,1
  53.  
  54.    def seg = &hB800    ' VGA-Karte
  55.    poke$ 0, savescreen$
  56.  
  57.    '
  58.    ' Zurückschalten
  59.    '
  60.    popup sleep
  61.  
  62. loop until 0
  63.  
  64. end