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

 SWPERRMAJ()
------------------------------------------------------------------------------
 Purpose:
 Get the swap system major error code.

 Syntax:
 niValue = SWPERRMAJ()

 Parameters:
 None.

 Returns:
 Swap system major error code.

 Description:
 If an error occurs during the swap process itself, the SWPRUNCMD() function
 will return false. SWPERRMAJ() returns the major error code, indicating the
 type of error that occurred.

 The major and minor error codes and their meanings are listed in the section
 Swap and run messages (1220) in Chapter 11, Error messages.

 Example:
 // Attempt to swap out, compile and link a program                          
 success = SWPRUNCMD("Compile myprog -m",0,"","")                            
 IF .NOT. success                                                            
    ? "Swap failed..."                                                       
    ? "Major Error Number ",SWPERRMAJ()                                      
    ? "Minor Error Number ",SWPERRMIN()                                      
 ELSE                                                                        
    err_lev = SWPERRLEV()                                                    
    IF err_lev = 0                                                           
       SWPRUNCMD("BLINKER @myscr",0,"","")                                   
    ELSE                                                                     
       ?"Compile failed - errorlevel ",err_lev                               
    ENDIF                                                                    
 ENDIF