' this program is part of the include files for the WCLIST sample.
' it is not designed to be compiled separately.
'**************** DO NOT COMPILE ALONE ***************************

type PromptRec
  length as byte
  text as string*160
end type

sub OpenPrompts(fname as string)
  if User.Language <> "" then
    if exists(Makewild.LanguagePath+User.Language+"\"+fname) then
      open Makewild.LanguagePath+User.Language+"\"+fname for random as #9 len=len(PromptRec)
      exit sub
    end if
  end if
  if exists(Makewild.LanguagePath+fname) then
    open Makewild.LanguagePath+fname for random as #9 len=len(PromptRec)
    exit sub
  end if
  error err_fileopen
catch err_fileopen
  print "Unable to open prompt file: "; fname
  waitenter
  end
end sub

function GetText(i as integer) as string
  dim pr as PromptRec
  if RipEnabled then
    i = i + lof(9)/2
  end if
  get #9, i, pr
  dim s as string
  s = left(pr.text, pr.length)
  if left(s, 2) = "<<" then
    displayfile mid(s, 3, len(s)-2)
    GetText = ""
  else
    GetText = s
  end if
end function