[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]

    VAR
      Model : BYTE ABSOLUTE $F000:$FFFE;

    BEGIN
      CASE Model OF
        $9A : WriteLn( 'COMPAQ Plus' );
        $FF : WriteLn( 'IBM PC' );
        $FE : WriteLn( 'PC XT, Portable PC' );
        $FD : WriteLn( 'PCjr' );

        $FC : WriteLn( 'Personal Computer AT, PS/2 Models 50 and 60' );
        $FB : WriteLn( 'PC XT (after 1/10/86)' );
        $FA : WriteLn( 'PS/2 Model 30' );
        $F9 : WriteLn( 'Convertible PC' );
        $F8 : WriteLn( 'PS/2 Model 80' );
      End;
    END.

[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]