.KEY language/A
.BRA {
.KET }

; $Id: registerscript 1.6 1997/12/20 15:31:20 angela Exp $

; If you want to add support for further languages, please
; contact angela@core.de first to check if somebody else is already
; working on such a translation.

SET makecdlang {language}

; By Angela Schmidt
; *** This is the filename under which the registration form is saved
SET makecdregfilename "Registrationform"
SET makecdnoregform "Sorry, could not find registration form for MakeCD."
SET makecdregreq "Registration Request"
SET makecdshallprint "Do you want the registration form being printed now?"
SET makecdshalldelete "Do you want the registration form in T: being deleted now?"
SET makecdansok "OK"
SET makecdansyes "Yes"
SET makecdansno "No"

; by Angela Schmidt
IF $makecdlang EQ "deutsch"
  SET makecdregfilename "Registrierformular"
  SET makecdnoregform "Leider konnte kein Registrierformular fr MakeCD gefunden werden."
  SET makecdregreq "Registrations-Dialogfenster"
  SET makecdshallprint "Soll das Registrierformular nun gedruckt werden?"
  SET makecdshalldelete "Soll das Registrierformular nun aus T: gelscht werden?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nein"
ENDIF

; By Mark Holm <mholm@email.dk>
IF $makecdlang EQ "dansk"
  SET makecdregfilename "Registreringsformular"
  SET makecdnoregform "Beklager, kan ikke finde MakeCD's registreringsformular."
  SET makecdregreq "Registreringsforesprgsel"
  SET makecdshallprint "Vil du udskrive registreringsformularen nu?"
  SET makecdshalldelete "Vil du slette registreringsformularen i T: nu?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nej"
ENDIF

; By Jean-Marc Boursot <jmboursot@nucleus.fr>
IF $makecdlang EQ "franais"
  SET makecdregfilename "FormEnregistrement"
  SET makecdnoregform "Dsol, impossible de trouver le formulaire d'enregistrement pour MakeCD."
  SET makecdregreq "Requte d'enregistrement"
  SET makecdshallprint "Voulez-vous que la fiche d'enregistrement soit imprime maintenant ?"
  SET makecdshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit efface maintenant ?"
  SET makecdansok "OK"
  SET makecdansyes "Oui"
  SET makecdansno "Non"
ENDIF

; By Francesco Dipietromaria <dpm@sinet.it>
IF $makecdlang EQ "italiano"
  SET makecdregfilename "Moduloregistrazione"
  SET makecdnoregform "Spiacente, non trovo il modulo di registrazione per MakeCD."
  SET makecdregreq "Registrazione"
  SET makecdshallprint "Volete stampare il modulo di registrazione adesso?"
  SET makecdshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
  SET makecdansok "OK"
  SET makecdansyes "Si"
  SET makecdansno "No"
ENDIF

; By Horvth Pter <pcpince@syneco.hu>
IF $makecdlang EQ "magyar"
  SET makecdregfilename "Regisztrcis rlap"
  SET makecdnoregform "Sajnos nem tallom a MakeCD regisztrcis rlapjt."
  SET makecdregreq "Regisztrcis krs"
  SET makecdshallprint "Kvnja a regisztrcis rapot most kinyomtatni?"
  SET makecdshalldelete "Kvnja a T:-ben lv regisztrcis rlapot most letrlni?"
  SET makecdansok "OK"
  SET makecdansyes "Igen"
  SET makecdansno "Nem"
ENDIF

; By Wessel Dankers <wsldanke@cs.ruu.nl>
IF $makecdlang EQ "nederlands"
  SET makecdregfilename "Registratieformulier"
  SET makecdnoregform "Sorry, kon registratieformulier niet vinden voor MakeCD"
  SET makecdregreq "Verzoek tot registratie"
  SET makecdshallprint "Zal ik het registratieformulier nu printen?"
  SET makecdshalldelete "Zal ik het registratieformulier in T: nu wissen?"
  SET makecdansok "Ok"
  SET makecdansyes "Ja"
  SET makecdansno "Nee"
ENDIF

; By Eivind Olsen <eivindo@bgnett.no>
IF $makecdlang EQ "norsk"
  SET makecdregfilename "Registrerings-skjema"
  SET makecdnoregform "Beklager, kunne ikke finne registrerings-skjemaet for MakeCD."
  SET makecdregreq "Registrerings-foresprsel"
  SET makecdshallprint "Vil du skrive ut registrerings-skjemaet n?"
  SET makecdshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  SET makecdansok "OK"
  SET makecdansyes "Ja"
  SET makecdansno "Nei"
ENDIF

; By Mikko Virtanen <mtv@klinja.fipnet.fi>
IF $makecdlang EQ "suomi"
  SET makecdregfilename "Rekisterintikaavake"
  SET makecdnoregform "En lytnyt rekisterintikaavaketta MakeCD:lle."
  SET makecdregreq "Rekisterintipyynt"
  SET makecdshallprint "Haluatko, ett rekisterintikaavake tulostetaan nyt?"
  SET makecdshalldelete "Haluatko, ett T:ss oleva rekisterintikaavake tuhotaan nyt?"
  SET makecdansok "OK"
  SET makecdansyes "Kyll"
  SET makecdansno "Ei"
ENDIF

; By Fredrik Zetterlund <frallan@canit.se>
IF $makecdlang EQ "svenska"
  SET makecdregfilename "Registreringsformulr"
  SET makecdnoregform "Hittar inte registreringsformulret fr MakeCD."
  SET makecdregreq "Registreringsfrfrgan"
  SET makecdshallprint "Vill du skriva ut registreringsformulret nu?"
  SET makecdshalldelete "Vill du radera registreringsformulret i T: nu?"
  SET makecdansok "Okej"
  SET makecdansyes "Ja"
  SET makecdansno "Nej"
ENDIF

IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  SET makecdlang english
  SET makecdregfilename "Registrationform"
ENDIF

IF NOT EXISTS doc/$makecdlang/$makecdregfilename
  SET makecdlang deutsch
  SET makecdregfilename "Registrierformular"
ENDIF

IF EXISTS doc/$makecdlang/$makecdregfilename
  Copy doc/$makecdlang/$makecdregfilename T:Registrationform
  Protect T:Registrationform rwd
  IF EXISTS ENV:EDITOR
    $EDITOR T:Registrationform
  ELSE
    Ed T:Registrationform
  ENDIF
ELSE
  IF EXISTS C:RequestChoice
    RequestChoice >NIL: "$makecdregreq" "$makecdnoregform" "$makecdansok"
  ELSE
    Echo >CON:0/0/640/100/Error "$makecdnoregform"
  ENDIF
  SKIP unsetvars
ENDIF

IF EXISTS C:RequestChoice
  RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshallprint" "$makecdansyes" "$makecdansno"
  IF $makecdANSWER EQ 1
    Type T:Registrationform TO PRT:
  ENDIF
  RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshalldelete" "$makecdansyes" "$makecdansno"
  IF $makecdANSWER EQ 1
    Delete QUIET T:Registrationform
  ENDIF
  Delete QUIET ENV:makecdANSWER
ENDIF

LAB unsetvars

UNSET makecdlang
UNSET makecdregfilename
UNSET makecdnoregform
UNSET makecdregreq
UNSET makecdshallprint
UNSET makecdshalldelete
UNSET makecdansok
UNSET makecdansyes
UNSET makecdansno

LAB end
