--------------------------------------------------------------------------
Code: Alles auswählen
COL_PX=10
ROW_PX=20
/* if i use the definitons i get during compiling the error 'invalidvalue' ;
if i don't use these 2 variables i get during executing the error unknown variable row_px......
Code: Alles auswählen
HHH=SPACE(12)
HHH=tdGetSTR('SERiNO:',12,"XXXXXXXXXXXXXX",HHH)
IF LASTKEY()=27 .OR. SUBSTR(hhh,1,1)=" "
KEYBOARD CHR(28)
RETURN(2)
ENDIF
-------------------------------------------------------------------------