Feldinhalt auf Alpha bzw. Blank prüfen

[hel400]

Ok, muss hier noch bis Mittags die Zeit totschlagen - daher
--> HIER DIE ULTIMATIVE LÖSUNG:

​
C                     MOVE INPUT     FELD24 24                 
C                     MOVE INPUT     FELD23 23                 
C                     MOVE INPUT     FELD22 22                 
C                     MOVE INPUT     FELD21 21                 
C                     MOVELINPUT     F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD24    F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD23    F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD22    F1      1                 
C           F1        COMP 'A'                    30    
C  N30      F1        COMP 'Z'                  30      
C           F1        COMP ' '                      31  
C   30N31             GOTO MOVE$                        
C                     MOVELFELD21    F1      1          
C           F1        COMP 'A'                    30    
C  N30      F1        COMP 'Z'                  30      
C           F1        COMP ' '                      31  
C   30N31             GOTO MOVE$                        
C                     GOTO ENDE                         
C           MOVE$     TAG                               
C                     MOVEL'     '   FELD30 30          
C                     MOVE INPUT     FELD30             
C                     MOVELFELD30    INPUT  25          
C           ENDE      TAG                               
C                     SETON                     LR

:-)))) wünsche allen noch ein frohes Fest und schöne Feiertage :-)))