komut kısaltma

[levo_levent]

herkeze merhaba arkadaşlar bir programımda ıf komutu kullanarak bir değişken değerine göre birbaşka değişkene değer atıyorum ama bu değerler çok  fazla olduğu için kısaltmanın bir başka yöntemi varmıdır.
şimdiden teşekür ederim.

IF XYF=$6B THEN                                                                                                                                                                                                                              
      COMMAND=$0C 
      ENDIF
IF XYF=$34 THEN   
      COMMAND=$38
      ENDIF
IF XYF=$20 THEN   
      COMMAND=$00 
      ENDIF     
IF XYF=$21 THEN   
      COMMAND=$01 
      ENDIF      
IF XYF=$22 THEN   
      COMMAND=$02 
      ENDIF    
IF XYF=$23 THEN   
      COMMAND=$03 
      ENDIF      
IF XYF=$24 THEN   
      COMMAND=$04 
      ENDIF     
IF XYF=$25 THEN   
      COMMAND=$05 
      ENDIF      
IF XYF=$26 THEN   
      COMMAND=$06 
      ENDIF      
IF XYF=$27  THEN  
      COMMAND=$07 
      ENDIF      
IF XYF=$28  THEN  
      COMMAND=$08 
      ENDIF      
IF XYF=$29  THEN  
      COMMAND=$09 
      ENDIF      
IF XYF=$2C THEN   
      COMMAND=$19 
      ENDIF       
IF XYF=$45 THEN   
      COMMAND=$1A 
      ENDIF      
IF XYF=$46 THEN   
      COMMAND=$0B 
      ENDIF
IF XYF=$47 THEN   
      COMMAND=$0A 
      ENDIF      
IF XYF=$48 THEN   
      COMMAND=$29 
      ENDIF      
IF XYF=$44 THEN   
      COMMAND=$0E 
      ENDIF      
IF XYF=$49 THEN   
      COMMAND=$2C 
      ENDIF      
IF XYF=$53 THEN   
      COMMAND=$CC 
      ENDIF    
IF XYF=$BA THEN   
      COMMAND=$BA 
      ENDIF      
IF XYF=$8F THEN   
      COMMAND=$8F 
      ENDIF      
IF XYF=$9F THEN   
      COMMAND=$9F 
      ENDIF     
IF XYF=$F5 THEN   
      COMMAND=$3E 
      ENDIF      
IF XYF=$BE THEN   
      COMMAND=$BE 
      ENDIF      
IF XYF=$35 THEN   
      COMMAND=$0F 
      ENDIF      
IF XYF=$4C THEN   
      COMMAND=$21 
      ENDIF      
IF XYF=$4B THEN   
      COMMAND=$20 
      ENDIF      
IF XYF=$42 THEN   
      COMMAND=$11 
      ENDIF      
IF XYF=$43 THEN   
      COMMAND=$0D 
      ENDIF      
IF XYF=$41 THEN   
      COMMAND=$10 
      ENDIF      
IF XYF=$72 THEN   
      COMMAND=$6D 
      ENDIF      
IF XYF=$73 THEN   
      COMMAND=$6F 
      ENDIF      
IF XYF=$74 THEN   
      COMMAND=$6E 
      ENDIF      
IF XYF=$71 THEN   
      COMMAND=$70 
      ENDIF      
IF XYF=$51 THEN   
      COMMAND=$4B 
      ENDIF      
IF XYF=$76 THEN   
      COMMAND=$3C 
      ENDIF
IF XYF=$00 THEN   
      COMMAND=$35 
      ENDIF      
IF XYF=$09 THEN                                                                                                                                                                                                                               'MENÜ 
      COMMAND=$19 
      ENDIF       
IF XYF=$01 THEN   
      COMMAND=$16 
      ENDIF
IF XYF=$02 THEN   
      COMMAND=$17 
      ENDIF
IF XYF=$04 THEN   
      COMMAND=$12 
      ENDIF       
IF XYF=$03 THEN   
      COMMAND=$13 
      ENDIF      
IF XYF=$0A THEN   
      COMMAND=$40 
      ENDIF      
IF XYF=$0D THEN   
      COMMAND=$2B 
      ENDIF     
IF XYF=$0B THEN   
      COMMAND=$CC 
      ENDIF       

[ete]

Verdiğin değerler belirli bir mantığa dayanıyor ise o mantığı formüle çevirerek ancak kısaltma yapabilirsin.
Mesela gördüğüm bir aralığı kısaltmak için
IF XYF>$1F and XYF<$2A then COMMAND=XYF-$20
komutunu vermen yeterli.  Böylece  'IF XYF=$20 THEN ... satırı ile , 'IF XYF=$29  THEN  satırı aralığını silebilirsin. Bu formül bunların hepsini yapabilr.

Ete

[levo_levent]

teşekkürler ete  hocam
anladığım kadarıyla değişkenlerde bir  mantık yok ise ıf ları kısaltamıyoruz veya bir başka komutla daha kısa yazma şekli yok