Ok, muss hier noch bis Mittags die Zeit totschlagen - daher
--> HIER DIE ULTIMATIVE LÖSUNG:
Code:
​
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 :-)))
Bookmarks