home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
library4
/
demo.inc
< prev
next >
Wrap
Text File
|
1990-07-06
|
2KB
|
51 lines
' Code to write Static Window {DEMO} to Screen
' note: created by StatWindow Writer (PWW) from DEMO.PW
COLOR BoxColor MOD 16, BoxColor \ 16
LOCATE 10, 9
PRINT "┌─────────────────────────────────────────────────────────────────┐"
LOCATE 11, 9
PRINT "│ SYSTEM AND DOS INFO │";
LOCATE 12, 9
PRINT "│ ================= │";
LOCATE 13, 9
PRINT "│ │";
LOCATE 14, 9
PRINT "│ CURRENT DEFAULT DRIVE & DIR: │";
LOCATE 15, 9
PRINT "│ │";
LOCATE 16, 9
PRINT "│ COLOR DISPLAY DETECTED ? │";
LOCATE 17, 9
PRINT "│ │";
LOCATE 18, 9
PRINT "│ RODENT DETECTED ? SOUND ON ? │";
LOCATE 19, 9
PRINT "│ │";
LOCATE 20, 9
PRINT "│ FREE SYSTEM MEMORY K. FREE DISK SPACE K. │";
LOCATE 21, 9
PRINT "│ │";
LOCATE 22, 9
PRINT "└─────────────────────────────────────────────────────────────────┘";
COLOR FldColor MOD 16, FldColor \ 16
DEMOFields:
LOCATE 14, 50
PRINT USING "\\";GetCurrentDrive$;
LOCATE 14, 52
PRINT USING "\ \";GetCurrentDir$;
LOCATE 16, 49
PRINT USING "!";MID$ ("YN", 2+ColorDisplay, 1);
LOCATE 18, 32
PRINT USING "!";MID$ ("YN", 2+NeedDCon, 1);
LOCATE 18, 61
PRINT USING "!";MID$ ("YN", 2+SoundOn, 1);
LOCATE 20, 33
PRINT USING "####";FRE (-1) / 1024;
LOCATE 20, 60
PRINT USING "#####";GetFreeSpace! ("") / 1024;
COLOR ScrColor MOD 16, ScrColor \ 16
' 07-06-1990, 23:46: end of StatWindow generated code for window {DEMO}