home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / BB-RDBSA.LZX / RDB-Salv / registerscript < prev   
Encoding:
AmigaDOS Script File  |  1996-05-17  |  2.7 KB  |  93 lines
  1. .KEY language/A
  2. .BRA {
  3. .KET }
  4.  
  5. SET rdbsalvlang {language}
  6.  
  7. SET rdbsalvregfilename "Registerform"  ; *** This is the filename under which the registration form is saved
  8. SET rdbsalvnoregform "Sorry, could not find registration form for RDB-Salv."
  9. SET rdbsalvregreq "Registration Request"
  10. SET rdbsalvshallprint "Do you want the registration form being printed now?"
  11. SET rdbsalvshalldelete "Do you want the registration form in T: being deleted now?"
  12. SET rdbsalvansok "OK"
  13. SET rdbsalvansyes "Yes"
  14. SET rdbsalvansno "No"
  15.  
  16. IF $rdbsalvlang EQ "deutsch"
  17.   SET rdbsalvregfilename "Registrierformular"
  18.   SET rdbsalvnoregform "Leider konnte kein Registrierformular für RDB-Salv gefunden werden."
  19.   SET rdbsalvregreq "Registrations-Dialogfenster"
  20.   SET rdbsalvshallprint "Soll das Registrierformular nun gedruckt werden?"
  21.   SET rdbsalvshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
  22.   SET rdbsalvansok "OK"
  23.   SET rdbsalvansyes "Ja"
  24.   SET rdbsalvansno "Nein"
  25. ENDIF
  26.  
  27. IF $rdbsalvlang EQ "norsk"
  28.   SET rdbsalvregfilename "Registrerings-skjema"
  29.   SET rdbsalvnoregform "Beklager, kunne ikke finne registrerings-skjemaet for RDB-Salv."
  30.   SET rdbsalvregreq "Registrerings-forespørsel"
  31.   SET rdbsalvshallprint "Vil du skrive ut registrerings-skjemaet nå?"
  32.   SET rdbsalvshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  33.   SET rdbsalvansok "OK"
  34.   SET rdbsalvansyes "Ja"
  35.   SET rdbsalvansno "Nei"
  36. ENDIF
  37.  
  38. IF $rdbsalvlang EQ "français"
  39.   SET rdbsalvnoregform "Désolé, impossible de trouver*Nle formulaire d'enregistrement pour RDB-Salv."
  40. ENDIF
  41.  
  42. IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
  43.   SET rdbsalvlang english
  44.   SET rdbsalvregfilename "Registerform"
  45. ENDIF
  46.  
  47. IF NOT EXISTS $rdbsalvlang/$rdbsalvregfilename
  48.   SET rdbsalvlang deutsch
  49.   SET rdbsalvregfilename "Registrierformular"
  50. ENDIF
  51.  
  52. IF EXISTS $rdbsalvlang/$rdbsalvregfilename
  53.   Copy $rdbsalvlang/$rdbsalvregfilename T:Registerform
  54.   IF EXISTS ENV:EDITOR
  55.     $EDITOR T:Registerform
  56.   ELSE
  57.     Ed T:Registerform
  58.   ENDIF
  59. ELSE
  60.   IF EXISTS C:RequestChoice
  61.     RequestChoice >NIL: "$rdbsalvregreq" "$rdbsalvnoregform" "$rdbsalvansok"
  62.   ELSE
  63.     Echo >CON:0/0/640/100/Error "$rdbsalvnoregform"
  64.   ENDIF
  65.   SKIP unsetvars
  66. ENDIF
  67.  
  68. IF EXISTS C:RequestChoice
  69.   RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshallprint" "$rdbsalvansyes" "$rdbsalvansno"
  70.   IF $RDBSALVANSWER EQ 1
  71.     Type T:Registerform TO PRT:
  72.   ENDIF
  73.   RequestChoice >ENV:RDBSALVANSWER "$rdbsalvregreq" "$rdbsalvshalldelete" "$rdbsalvansyes" "$rdbsalvansno"
  74.   IF $RDBSALVANSWER EQ 1
  75.     Delete QUIET T:Registerform
  76.   ENDIF
  77.   Delete QUIET ENV:RDBSALVANSWER
  78. ENDIF
  79.  
  80. LAB unsetvars
  81.  
  82. UNSET rdbsalvlang
  83. UNSET rdbsalvregfilename
  84. UNSET rdbsalvnoregform
  85. UNSET rdbsalvregreq
  86. UNSET rdbsalvshallprint
  87. UNSET rdbsalvshalldelete
  88. UNSET rdbsalvansok
  89. UNSET rdbsalvansyes
  90. UNSET rdbsalvansno
  91.  
  92. LAB end
  93.