CLEARALL
VIEW "Tmpref"
FORMKEY
SCAN FOR [Flag] <> ""
  Temp = [Authors] + " "
  Auth = ""
  WHILE Temp <> ""
    i = SEARCH("-", Temp)
    IF i > 0 THEN
      Auth = Auth + SUBSTR(Temp, 1, i-1) + ", "
      Temp = SUBSTR(Temp, i+1, LEN(Temp)-i)
      i = SEARCH(" ", Temp)
      FOR k FROM 1 TO i-1
        Auth = Auth + SUBSTR(Temp, k, 1) + "."
      ENDFOR
      Auth = Auth + "; "
      Temp = SUBSTR(Temp, i+1, LEN(Temp)-i)
    ELSE
      Temp = ""
    ENDIF
  ENDWHILE
  Auth = SUBSTR(Auth, 1, LEN(Auth)-2)
  Fl = SUBSTR([Flag], 1, 2)
  IF SUBSTR(Fl, 1, 1) = "0" THEN
    Fl = " " + SUBSTR(Fl, 2, 1)
  ENDIF
  i = SEARCH("-", [Pages])
  IF i > 0 THEN
    Pg = SUBSTR([Pages], 1, i-1)
  ELSE
    Pg = [Pages]
  ENDIF
  MOVETO "Joursht"
  IF NIMAGERECORDS() > 0 THEN
    Jour = [Journal]
  ELSE
    Jour = ""
  ENDIF
  MOVETO "Tmpref"
  PRINT FILE "JCT"
    Fl + ". " + Auth + " " + Jour + " " +
      [Year] + ", " + [Volume] + ", " + Pg + ".\n"
ENDSCAN