home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library3 / opendemo.sw < prev    next >
Encoding:
Text File  |  1990-11-17  |  821 b   |  33 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  10.         ^                       SYSTEM AND DOS INFO
  11.         ^                        =================
  12.         ^
  13.         ^           CURRENT DEFAULT DRIVE & DIR: { {
  14.         ^
  15.         ^              COLOR DISPLAY DETECTED ? {
  16.         ^
  17.         ^    RODENT DETECTED ? {                 SOUND ON ? {
  18.         ^
  19.         ^    FREE SYSTEM MEMORY {    K.    FREE DISK SPACE {     K.
  20.         ^
  21.         ^^^
  22.  
  23. 12345678901234567890123456789012345678901234567890123456789012345678901234567890
  24. \
  25. GetCurrentDrive$, "\\"
  26. GetCurrentDir$ (""), "\               \"
  27. MID$ ("YN", 2+ColorDisplay, 1), "!"
  28. MID$ ("YN", 2+NeedDCon, 1), "!"
  29. MID$ ("YN", 2+SoundOn, 1), "!"
  30. FRE (-1) / 1024, "####"
  31. GetFreeSpace! ("") / 1024, "#####"
  32.  
  33.