home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 99 / af099sub.adf / RDB_Salv.lzx / RDB-Salv / registerscript < prev   
Encoding:
AmigaDOS Script File  |  1997-05-06  |  4.4 KB  |  134 lines
  1. .KEY language/A
  2. .BRA {
  3. .KET }
  4.  
  5. SET rdbsalvlang {language}
  6.  
  7. ; *** This is the filename under which the registration form is saved
  8. SET rdbsalvregfilename "Registerform"
  9. SET rdbsalvnoregform "Sorry, could not find registration form for RDB-Salv."
  10. SET rdbsalvregreq "Registration Request"
  11. SET rdbsalvshallprint "Do you want the registration form being printed now?"
  12. SET rdbsalvshalldelete "Do you want the registration form in T: being deleted now?"
  13. SET rdbsalvansok "OK"
  14. SET rdbsalvansyes "Yes"
  15. SET rdbsalvansno "No"
  16.  
  17. IF $rdbsalvlang EQ "deutsch"
  18.   SET rdbsalvregfilename "Registrierformular"
  19.   SET rdbsalvnoregform "Leider konnte kein Registrierformular für RDB-Salv gefunden werden."
  20.   SET rdbsalvregreq "Registrations-Dialogfenster"
  21.   SET rdbsalvshallprint "Soll das Registrierformular nun gedruckt werden?"
  22.   SET rdbsalvshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
  23.   SET rdbsalvansok "OK"
  24.   SET rdbsalvansyes "Ja"
  25.   SET rdbsalvansno "Nein"
  26. ENDIF
  27.  
  28. IF $rdbsalvlang EQ "français"
  29.   SET rdbsalvregfilename "FicheD'Enregistrement"
  30.   SET rdbsalvnoregform "Désolé, impossible de trouver le formulaire d'enregistrement pour RDB-Salv."
  31.   SET rdbsalvregreq "Requête d'enregistrement"
  32.   SET rdbsalvshallprint "Voulez-vous que la fiche d'enregistrement soit imprimée maintenant ?"
  33.   SET rdbsalvshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit effacée maintenant ?"
  34.   SET rdbsalvansok "OK"
  35.   SET rdbsalvansyes "Oui"
  36.   SET rdbsalvansno "Non"
  37. ENDIF
  38.  
  39. IF $rdbsalvlang EQ "italiano"
  40.   SET rdbsalvregfilename "Moduloregistrazione"
  41.   SET rdbsalvnoregform "Spiacente, non trovo il modulo di registrazione per RDB-Salv."
  42.   SET rdbsalvregreq "Registrazione"
  43.   SET rdbsalvshallprint "Volete stampare il modulo di registrazione adesso?"
  44.   SET rdbsalvshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
  45.   SET rdbsalvansok "OK"
  46.   SET rdbsalvansyes "Si"
  47.   SET rdbsalvansno "No"
  48. ENDIF
  49.  
  50. IF $rdbsalvlang EQ "nederlands"
  51.   SET rdbsalvregfilename "Registratieformulier"
  52.   SET rdbsalvnoregform "Sorry, kon registratieformulier niet vinden voor RDB-Salv"
  53.   SET rdbsalvregreq "Verzoek tot registratie"
  54.   SET rdbsalvshallprint "Zal ik het registratieformulier nu printen?"
  55.   SET rdbsalvshalldelete "Zal ik het registratieformulier in T: nu wissen?"
  56.   SET rdbsalvansok "Ok"
  57.   SET rdbsalvansyes "Ja"
  58.   SET rdbsalvansno "Nee"
  59. ENDIF
  60.  
  61. IF $rdbsalvlang EQ "norsk"
  62.   SET rdbsalvregfilename "Registrerings-skjema"
  63.   SET rdbsalvnoregform "Beklager, kunne ikke finne registrerings-skjemaet for RDB-Salv."
  64.   SET rdbsalvregreq "Registrerings-forespørsel"
  65.   SET rdbsalvshallprint "Vil du skrive ut registrerings-skjemaet nå?"
  66.   SET rdbsalvshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  67.   SET rdbsalvansok "OK"
  68.   SET rdbsalvansyes "Ja"
  69.   SET rdbsalvansno "Nei"
  70. ENDIF
  71.  
  72. IF $rdbsalvlang EQ "svenska"
  73.   SET rdbsalvregfilename "Registreringsformulär"
  74.   SET rdbsalvnoregform "Hittar inte registreringsformuläret för RDB-Salv."
  75.   SET rdbsalvregreq "Registreringsförfrågan"
  76.   SET rdbsalvshallprint "Vill du skriva ut registreringsformuläret nu?"
  77.   SET rdbsalvshalldelete "Vill du radera registreringsformuläret i T: nu?"
  78.   SET rdbsalvansok "Okej"
  79.   SET rdbsalvansyes "Ja"
  80.   SET rdbsalvansno "Nej"
  81. ENDIF
  82.  
  83. IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
  84.   SET rdbsalvlang english
  85.   SET rdbsalvregfilename "Registerform"
  86. ENDIF
  87.  
  88. IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
  89.   SET rdbsalvlang deutsch
  90.   SET rdbsalvregfilename "Registrierformular"
  91. ENDIF
  92.  
  93. IF EXISTS $rdbsalvlang/$rdbsalvregfilename
  94.   Copy $rdbsalvlang/$rdbsalvregfilename T:Registerform
  95.   IF EXISTS ENV:EDITOR
  96.     $EDITOR T:Registerform
  97.   ELSE
  98.     Ed T:Registerform
  99.   ENDIF
  100. ELSE
  101.   IF EXISTS C:RequestChoice
  102.     RequestChoice >NIL: "$rdbsalvregreq" "$rdbsalvnoregform" "$rdbsalvansok"
  103.   ELSE
  104.     Echo >CON:0/0/640/100/Error "$rdbsalvnoregform"
  105.   ENDIF
  106.   SKIP unsetvars
  107. ENDIF
  108.  
  109. IF EXISTS C:RequestChoice
  110.   RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshallprint" "$rdbsalvansyes" "$rdbsalvansno"
  111.   IF $RDBSALVANSWER EQ 1
  112.     Type T:Registerform TO PRT:
  113.   ENDIF
  114.   RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshalldelete" "$rdbsalvansyes" "$rdbsalvansno"
  115.   IF $RDBSALVANSWER EQ 1
  116.     Delete QUIET T:Registerform
  117.   ENDIF
  118.   Delete QUIET ENV:RDBSALVANSWER
  119. ENDIF
  120.  
  121. LAB unsetvars
  122.  
  123. UNSET rdbsalvlang
  124. UNSET rdbsalvregfilename
  125. UNSET rdbsalvnoregform
  126. UNSET rdbsalvregreq
  127. UNSET rdbsalvshallprint
  128. UNSET rdbsalvshalldelete
  129. UNSET rdbsalvansok
  130. UNSET rdbsalvansyes
  131. UNSET rdbsalvansno
  132.  
  133. LAB end
  134.