---

DEF  probe( )
  DECL STATE_T  s1, s2, s3
  DECL MODUS_T  md
  DECL INT      h1, h2, h3
  DECL CHAR     pA[32]
  DECL CHAR     pB[32]
  DECL CHAR     pC[32]
  DECL CHAR     fmode[4]

  md = #SYNC
  h1 = 0
  h2 = 0
  h3 = 0
  fmode[] = "r"
  pA[] = "D:\test.txt"
  pB[] = "D:/test.txt"
  pC[] = "test.txt"

  CWRITE($FCT_CALL, s1, md, "krl_fopen", pA[], fmode[], h1)
  CWRITE($FCT_CALL, s2, md, "krl_fopen", pB[], fmode[], h2)
  CWRITE($FCT_CALL, s3, md, "krl_fopen", pC[], fmode[], h3)

  HALT

END