  Ŀ
  Ŀ
                                                                          
                           Ekran Test                                     
                                                                          
  ٳ
                                                                            
  




    Ekrann Text veya Grafik olduunu test eder eder.



Ŀ
>TEST.BAS>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Ĵ
 'TEST                                               
 'Ekrann TEXT'mi yoksa                              
 'VGA CGA EGA m olduunu tanr.                     
 DEFINT A-Z                                          
     DEF SEG = 0                                     
     KeyFlags = PEEK(1047)                           
     IF (KeyFlags AND 32) = 0 THEN                   
         POKE 1047, KeyFlags OR 32                   
     END IF                                          
     DEF SEG                                         
     GOSUB initVars                                  
     DEF SEG = 0                                     
     POKE 1047, KeyFlags                             
     DEF SEG                                         
     CLS : LOCATE 10, 5                              
           PRINT "TEXT UYUMLU"                       
     a$ = INPUT$(1)                                  
 END                                                 
                                                     
 initVars:                                           
     ON ERROR GOTO ScreenModeError                   
     Mode = 9                                        
     SCREEN Mode                                     
     ON ERROR GOTO PaletteError                      
     IF Mode = 9 THEN PALETTE 4, 0                   
     ON ERROR GOTO 0                                 
 RETURN                                              
                                                     
 ScreenModeError:                                    
 IF Mode = 1 THEN                                    
     CLS : LOCATE 10, 5                              
           PRINT "GRAFIK EKRAN": END                 
 ELSE                                                
     Mode = 1: RESUME                                
 END IF                                              
                                                     
 PaletteError:                                       
     Mode = 1                                        
     RESUME NEXT                                     
