mode file by index
#IFSAME !1 $0 $1 $2 $3 $4 $5
#SET Q$ !1
MOVE |CI!q TO INDEX_NUMBER
#ELSE
MOVE !1 TO INDEX_NUMBER
#ENDIF
#IFDEF !2
!A [] $0D6 !2 !4 // VARIABLE FILE NUMBER
#ELSE
#SET Q$ !2.FILE_NUMBER // FILE NAME ONLY
!A [] $0D6 |CI!q !4
#ENDIF