%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:98 File Name:CHOIX CA Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Locate 1,6,"---------------------" \Locate 1,7,"deplacmt:gd \slashAct\slashFIN" \Do \Getkey\->\theta \LpWhile \theta\<>38\ And \theta\<>27\ And \theta\<>39\ And \theta\<>29 \Return %End