'   +----------------------------------------------------------------------+
'   |                                                                      |
'   |          PBClone  Copyright (c) 1990  Thomas G. Hanlin III           |
'   |                                                                      |
'   |              assembled with the excellent OPTASM by SLR              |
'   |                                                                      |
'   +----------------------------------------------------------------------+

   REM $INCLUDE: 'pbclone.bi'

   DEFINT A-Z
   CLS

   PRINT "This is an admittedly trivial demo for the PBClone library.  I'll"
   PRINT "improve it drastically in later versions.  However, for now it will"
   PRINT "provide an example of how to access the PBClone routines."
   PRINT

   GetDOSv MajorV, MinorV
   DOSv$ = MID$(STR$(MajorV), 2) + "." + RIGHT$("0" + MID$(STR$(MinorV), 2), 2)
   PRINT "DOS version: "; DOSv$;
   IF MajorV > 9 THEN
      PRINT "   OS/2 Compatibility Box"
   ELSE
      PRINT
   END IF

   Equipment Memory, Parallel, Serial, Game
   PRINT "Base memory:"; Memory; "Kbytes"
   PRINT "Parallel ports:"; Parallel
   PRINT "Serial ports:"; Serial
   REM we'll leave out game ports, since that's not always reliable

   PRINT "Floppy drives:"; Floppies2

   PRINT "Display: ";
   GetVGA IsVGA
   GetEGA EGA, Memory
   GetCRT Colour
   IF IsVGA THEN
      PRINT "VGA"
   ELSEIF EGA THEN
      PRINT "EGA"
   ELSEIF Colour THEN
      PRINT "CGA"
   ELSE
      PRINT "MDA"
   END IF

   PRINT "ROM BIOS date: "; PCDat$

   PRINT "Computer type: ";
   SELECT CASE PCType2
      CASE 251, 254, 255: PRINT "PC/XT"
      CASE 253: PRINT "PCjr"
      CASE 252: PRINT "PC AT": ATtype = -1
      CASE 250: PRINT "PS/2 Model 30"
      CASE 249: PRINT "PC Convertible"
      CASE 248: PRINT "PS/2 Model 70 or 80": ATtype = -1
      CASE 45, 154: PRINT "Compaq Portable"
      CASE ELSE: PRINT "unknown"
   END SELECT

   IF ATtype THEN
      ExtMem Memory
      PRINT "Extended memory:"; Memory; "Kbytes"
   END IF

   GetLIMM TotalPages, FreePages
   IF TotalPages THEN
      PRINT "Expanded memory:"
      PRINT "   Total  :"; TotalPages * 16; "Kbytes"
      PRINT "   Free   :"; FreePages * 16; "Kbytes"
      PRINT "   Version: ";
      GetLIMV MajorV, MinorV
      PRINT MID$(STR$(MajorV), 2) + "." + RIGHT$("0" + MID$(STR$(MinorV), 2), 2)
   END IF