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