open FDDE TBL 0 open FDDE DAT 1 ImpType Standard ; Set D Long 2 ; GoTo D 0 ; Get C Int 0 ; Get D Long 0 ; Get D Long 0 ; Get D Long 0 ; Get D Long 0 ; Get D Long 0 ; Get D Long 0 ; SavePos D 0 ; Set JF Long 16 ; GoTo JF 0 ; Get JF Long 0 ; GoTo D 0 ; For T = 1 To C ; SavePos FOO 0 ; Get FO Long 0 ; SavePos D 0 ; SavePos CSO 0 ; Get CS Long 0 ; Get D Long 0 ; SavePos D 0 ; GoTo JF 0 ; Get FN String 0 ; SavePos JF 0 ; GoTo D 0 ; Log FN FO CS 1 ; Next T ;