DO CASE CASE Right(Sys(16, 0), 3) = "EXE" *-- EXE CASE Right(Sys(16, 0), 3) = "APP" *-- APP CASE Right(Sys(16, 0), 3) = "FXP" *-- FXP ENDCASE