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