Machine Model Byte

Contributor: DAVE JARVIS 
VAR
 Model : BYTE ABSOLUTE $F000:$FFFE; 
BEGIN 
 CASE Model OF 
 9ドルA : 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.
 

AltStyle によって変換されたページ (->オリジナル)
/ アドレス:  モード: