Code: Select all
100 WTV
110 LAUNCH
120 DEFine PROCedure LAUNCH
130 DIM TAB_EXT$(3,50)
140 TAB_EXT$(0) = "WIN1_CLAVIER_bin"
150 TAB_EXT$(1) = "WIN1_DBAS_sys"
160 TAB_EXT$(2) = "WIN1_ENV_bin"
170 TAB_EXT$(3) = "WIN1_FILEINFO2_bin"
180 :
190 FOR I = 0 TO 3
200 LRESPR TAB_EXT$(I)
210 END FOR I
220 :
230 END DEFine LAUNCH
Code: Select all
100 WTV
105 LRESPR WIN1_DBAS_sys
110 LAUNCH
120 DEFine PROCedure LAUNCH
130 DIM TAB_EXT$(2,50)
140 TAB_EXT$(0) = "WIN1_CLAVIER_bin"
150 TAB_EXT$(1) = "WIN1_DBAS_sys"
170 TAB_EXT$(2) = "WIN1_FILEINFO2_bin"
180 :
190 FOR I = 0 TO 2
200 LRESPR TAB_EXT$(I)
210 END FOR I
220 :
230 END DEFine LAUNCH
Any idea to solve the problem?
Giorgio