\START92\ \COMMENT= \NAME=setlang \FILE=SETLANG.89P () Prgm \(C)\Interactive Prgm, no args Local t1 getType(t1)\->\t1 If left(getConfg()[4],1)\!=\"1" Then Dialog Title "Override mode settings?" Text "You are about to override your language" Text "mode settings!" Text "" Text "Do you wish to continue?" Text "(restart the program and press [ESC] to" Text "disable this feature at any moment)" EndDlog If ok=0 Then If getType(kklang)\!=\t1 Then Unarchiv kklang Unlock kklang DelVar kklang EndIf Return EndIf EndIf If getType(kklang)=t1:1\->\kklang Unarchiv kklang PopUp {"English","Fran\c,\ais","Deutsch","Italiano"},kklang Archive kklang EndPrgm \STOP92\