Click above to get retro games delivered to your door ever month!

##############################################################################
###+-----------+##############################################################
#+-| EQUIPMENT |----------------------------------------------------+#########
#| +-----------+ Returns an equipment list from the computer's BIOS |#########
#+------------------------------------------------------------------+#########
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------------+#########################
#|     PROCEDURE equipment PROTOTYPE                |#########################
#|      PARAMETERS LOGICAL diskette_installed,;     |#########################
#|      LOGICAL coprocessor_installed,;             |#########################
#|      UINT memory_on_motherboard,;                |#########################
#|      LOGICAL is_mouse_installed,;                |#########################
#|      UINT initial_video_mode,;                   |#########################
#|      UINT number_drives,;                        |#########################
#|      LOGICAL is_dma_installed,;                  |#########################
#|      UINT number_rs232,;                         |#########################
#|      LOGICAL is_game_installed,;                 |#########################
#|      UINT number_printers                        |#########################
#+--------------------------------------------------+#########################
##############################################################################
##############################################################################
##########+---| Description |--------------------------------------+##########
##########| The equipment procedure returns an equipment list from |##########
##########| the computer's BIOS.  This list is maintained by BIOS  |##########
##########| and is usually initialized by the DOS setup program.   |##########
##########| ------------------------------------------------------ |##########
##########| If the parameter diskette_installed is TRUE, then      |##########
##########| number_drives is the number of diskette drives         |##########
##########| installed, not including hard drives.                  |##########
##########| ------------------------------------------------------ |##########
##########| The memory_on_motherboard parameter specifies the      |##########
##########| number of 16k chips for a PC and 64k chips for an XT.  |##########
##########| The value is always 4 for an AT.  Do not use this      |##########
##########| parameter to determine the amount of memory installed. |##########
##########| ------------------------------------------------------ |##########
##########| The initial_video_mode returns 1 for 40x25 color 2 for |##########
##########| 80x25 color and 3 for 80x25 monochrome.                |##########
##########+--------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Print out the equipment list.                       |#########
#########|                                                          |#########
#########| #include system.hdr                                      |#########
#########| VARDEF                                                   |#########
#########|     LOGICAL   disk,coprocessor,mouse,game_port,dma       |#########
#########|     UINT      mem,v_mode,num_drvs,num_232,num_prn        |#########
#########| ENDDEF                                                   |#########
#########| PROCEDURE force_main                                     |#########
#########|                                                          |#########
#########|     equipment( disk, coprocessor, mem, mouse, v_mode, ;  |#########
#########|       num_drvs, dma, num_232, game_port, num_prn )       |#########
#########|                                                          |#########
#########|     ? "Disk: ",disk,"Coprocessor: ",coprocessor          |#########
#########|     ? "Memory: ",mem,"Mouse: ",mouse                     |#########
#########|     ? "Video: ",v_mode,"# drives: ",num_drvs             |#########
#########|     ? "DMA: ",dma, "# rs232: ",num_232                   |#########
#########|     ? "Game: ",game_port,"# printers: ",num_prn          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Figure out the 1st drive letter for a hard disk.    |#########
#########| *    Use the same LOGICAL and UINT parameter for         |#########
#########| *    items we don't care about.                          |#########
#########|                                                          |#########
#########| equipment( drive_installed,1,u,1,u,number,1,u,1,u )      |#########
#########|                                                          |#########
#########| IF drive_installed                                       |#########
#########|     IF number = 1                                        |#########
#########|         number = number + 1    && account for A: B:      |#########
#########|     ENDIF                                                |#########
#########|     ? "1st hard disk is drive: ",asc(number-1+'A')       |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################