Qbasicnews.com
November 20, 2018, 06:20:15 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: Screen Saver  (Read 5229 times)
GordonSweet
Guru
**
Posts: 287



WWW
« on: September 23, 2007, 04:09:46 AM »

I was very glad to see from one of you guys that I can still write FB programs that will run on this fancy new Hanns-g 19 inch Flat screen monitor. So far as I can see none of my DOS programs now run, including QB if using any of the Graphic Screens. So if dear old FB can run on these new LCD monitors why cannot they make the monitors run ALL DOS software without the need to use DOSBOX, or ise there a simple program to cure this before running DOS programs?

So much for technology progress !!??!!

Here is a very simple Screen saver assuming there is still a point in blacking out most of the screen to preserve its life. Here you do not have ot wait for Windows to activate this one, and many screen savers are so elaborate it is doubfull if the do anyting to preserver the life of the monitor.

     REM Screen Saver

     DEFSNG A-Z
     SCREEN 9,,,1 : ok = 0 
WHILE ok = 0
col = INT(RND * 15) + 1
     COLOR col, 0:
     x = INT(RND*70)+5 : y = INT(RND*20)+2
    LOCATE y, x: PRINT " Screen Saver "
    LOCATE y+1, x: PRINT " Press a Key"
    IF INKEY$ <> "" THEN ok = 1
    SLEEP 2000 : CLS
 WEND : BEEP
    END
Logged
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!