home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / PPAINT6.0_D1.DMS / in.adf / PPaint_Prefs / PP_Locale / PP_DiskSet < prev    next >
Encoding:
Text File  |  1994-07-04  |  2.0 KB  |  52 lines
  1. .Key langcode
  2. .bra {
  3. .ket }
  4.  
  5. ; Copyright (C) Cloanto (R) 1992-1994  All Rights Reserved
  6.  
  7. Execute PPAINTCONFIG:PPaint_Prefs/PP_Locale/PP_DiskReset
  8.  
  9. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
  10.  
  11.   Delete PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK QUIET
  12.   PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/{langcode} ";"
  13.  
  14.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ENG
  15.  
  16.     Rename PPaint:PPaint_Prefs/PP_Locale/InstallPPaint PPaint:InstallPPaint
  17.     Copy PPaint:PPaint_Prefs/PP_Locale/InstallPPaint.eng.info PPaint:InstallPPaint.info CLONE
  18.     PPaint:c/CopyIcon >NIL: -1 -R PPaint:PPaint_Prefs/PP_Locale/InstallPPaint.eng PPaint:InstallPPaint
  19.  
  20.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.eng PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  21.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 0"
  22.  
  23.   Else
  24.  
  25.     Rename PPaint:PPaint_Prefs/PP_Locale/InstallPPaint.multi PPaint:InstallPPaint
  26.     Copy PPaint:PPaint_Prefs/PP_Locale/InstallPPaint.multi.info PPaint:InstallPPaint.info CLONE
  27.     PPaint:c/CopyIcon >NIL: -1 -R PPaint:PPaint_Prefs/PP_Locale/InstallPPaint.multi PPaint:InstallPPaint
  28.  
  29.     If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_DEU
  30.       Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.deu PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  31.       PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 1"
  32.     EndIf
  33.  
  34.     If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ITA
  35.       Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.ita PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  36.       PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 2"
  37.     EndIf
  38.  
  39.     If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_FRA
  40.       Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.fra PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  41.       PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 3"
  42.     EndIf
  43.  
  44.     If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_SWE
  45.       Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.swe PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  46.       PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 6"
  47.     EndIf
  48.  
  49.   EndIf
  50.  
  51. EndIf
  52.