home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / af0_32b.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-03  |  777b  |  45 lines
  1. /**/
  2. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. Call SysCls
  6. Call Init
  7.  
  8. Say
  9. Say "         AF - The Archive Folder - Installation program"
  10. Say "         =============================================="
  11.  
  12. Say
  13.  
  14. do i = 1 to lang.0
  15.   say "           "i". "lang.i
  16. end
  17. say;say "           X. Exit"
  18. say
  19. Call charout, "  What language do you want to use? ("1"-"lang.0"): "
  20.  
  21. i = SysGetKey(echo)
  22. say
  23.  
  24. if i = 'x' | i = 'X' then return
  25.  
  26. if i > 0 & i <= lang.0 then do
  27. "@call "lang.i".cmd"
  28. end
  29. else say "    ERROR: That option is not available!"
  30.  
  31. return
  32.  
  33.  
  34. exists:
  35. arg filename
  36. if stream( filename, 'c', 'query exists') <> ''
  37.   then return 1
  38. else return 0
  39.  
  40. Init:
  41. lang.0 = 2
  42. lang.1 = "English"
  43. lang.2 = "Dansk"
  44.  
  45. return