home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / biosin.zip / DEMO.PRG < prev    next >
Text File  |  1994-04-18  |  946b  |  32 lines
  1. /*
  2.   Clipper Samples.
  3.   Copyright (c) 1994 Jeffrey C. Moxon
  4. */
  5.  
  6. Function Samples()
  7. Local atypes := { "None", "360 KB", "1.2 MB", "720 KB", "1.44 MB" }
  8. Local cputype := { "8088", "8086", "NEC v20", "NEC v30", "80188", ;
  9.                     "80186", "80286", "80386", "80486" }
  10.  
  11. Local nCursor
  12. Set Cursor Off
  13.  
  14. Clear
  15. FILL_SCR(" Moxon's Utilities ", 78)  //Does Not Work in Protected Mode
  16.  
  17. SetPos(1,1)
  18. ? "Current System Configuration:"
  19. ? "Drive A is:  " +  atypes[GET_FLOPPY(0)]
  20. ? "Drive B is:  " +  atypes[GET_FLOPPY(1)]
  21. ? "Hard Disk 0 is type:  " + Str(GET_HTYPE(0))
  22. ? "Hard DIsk 1 it type:  " + Str(GET_HTYPE(1))
  23. ? "Currently on Drive " + CHR(GET_DRIVE() + 65) + ":"
  24. ? "Total of " + Str(F_SIZES("*.*")) + " Bytes in directory."
  25. ? "Conventional Memory:  " + Str(GET_MEM(0)) + " KB"
  26. ? "Extended Memory:  "  +  Str(GET_MEM(1)) + " KB"
  27. ? "CPU:  " + cputype[GET_CPU()]
  28. //inkey(0)
  29. //BOOT(0)  //Uncomment to Re-Boot
  30. Return
  31.  
  32.