home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / lifepm.zip / Install.CMD < prev    next >
OS/2 REXX Batch file  |  1997-10-16  |  1KB  |  44 lines
  1. /* (c) Copyright by (cs)BREDcorp. 1997 */
  2. /* æ«ºñá¡¿Ñ «íΩѬΓá ñ½∩ »p«úpá¼¼δ ¡á páí«τѼ ßΓ«½Ñ */
  3.  
  4. call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  5. call SysLoadFuncs
  6.  
  7. call SysCls
  8.  
  9. GeneralFile="Life.exe"
  10. IconFile="Life.ico"
  11. title="Life"
  12.  
  13.  
  14. Say '(c) Copyright by (cs)BREDcorp. 1997'
  15. Say 'ôßΓá¡«ó¬á »p«úpá¼¼δ ¡á páí«τ¿⌐ ßΓ«½:'
  16.  
  17.  
  18. if stream(GeneralFile, 'command', 'query exists') = '' then
  19. do
  20.    say '■ ¡Ñ ¼«úπ «í¡ápπª¿Γ∞ ú½áó¡δ⌐ Σá⌐½ 'GeneralFile
  21.    say '  πßΓá¡«ó¬á »p«úpá¼¼δ ¡Ñ󫺼«ª¡á !'
  22.    say d2c(7)
  23.    exit 1
  24. end
  25.  
  26. if stream(IconFile, 'command', 'query exists') = '' then
  27. do
  28.    say '■ ¡Ñ ¼«úπ «í¡ápπª¿Γ∞ Σá⌐½ 'IconFile
  29.    say '  »p«úpἡδ⌐ «íΩÑ¬Γ íπñÑΓ ß«ºñá¡ íѺ ¿¬«¡¬¿'
  30. end
  31.  
  32.  
  33. say '■ óßÑ ¡Ñ«íσ«ñ¿¼δÑ »p«úpá¼¼¡δÑ ¬«¼»«¡Ñ¡Γδ «í¡ápπªÑ¡δ'
  34.  
  35. classname='WPProgram'
  36. location='<WP_DESKTOP>'
  37. curdir=directory()
  38. result=SysCreateObject(classname,title,location,'PROGTYPE=PM;EXENAME='curdir'\'GeneralFile';STARTUPDIR='curdir';ICONPATH='curdir'\'IconFile'')
  39.  
  40. if ( result = 1 ) then 
  41.  say '■ »p«úpἡδ⌐ «íΩÑ¬Γ ¡á páí«τѼ ßΓ«½Ñ πß»ÑΦ¡« ß«ºñá¡'
  42.  
  43. say "ê¡ßΓá½∩µ¿∩ ºáóÑpΦÑ¡á."
  44.