home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / os2 / bsios213.arj / BSIOS213.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1997-12-01  |  2.5 KB  |  116 lines
  1. /* Installation of the Beatles Song Index  */
  2. SIGNAL ON ERROR NAME Error
  3.  
  4. /* REXXUTIL laden */
  5. CALL RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  6. CALL SysLoadFuncs
  7.  
  8. call syscls
  9. SAY " "
  10. SAY Copies("═",80)
  11. SAY Center("I N S T A L L A T I O N",80)
  12. SAY " "
  13. SAY Center("The Beatles Song Index for OS/2 (release March 1997)",80)
  14. SAY Center("(edited and copyright 1994/97 by Thomas Argast)",80) 
  15. SAY Copies("═",80)
  16. SAY " "
  17. SAY " "
  18.  
  19.  
  20. /* Target */
  21. Target:
  22. call syscls
  23. SAY " "
  24. SAY Copies("═",80)
  25. SAY Center("I N S T A L L A T I O N",80)
  26. SAY " "
  27. SAY Center("The Beatles Song Index for OS/2 (release March 1997)",80)
  28. SAY Center("(edited and copyright 1994/97 by Thomas Argast)",80) 
  29. SAY Copies("═",80)
  30. SAY " "
  31. SAY " "
  32.  
  33. SAY "In which path do you want to install the Beatles Song Index?"
  34. SAY "Default path is C:\BEATBOOK"
  35. SAY " "
  36. SAY "Press ENTER to accept default or type new path (incl. drive)"
  37.  
  38. PARSE PULL path
  39. IF path = "" THEN path="C:\BEATBOOK"
  40. call syscls
  41. SAY " "
  42. SAY Copies("═",80)
  43. SAY Center("I N S T A L L A T I O N",80)
  44. SAY " "
  45. SAY Center("The Beatles Song Index for OS/2 (release March 1997)",80)
  46. SAY Center("(edited and copyright 1994/97 by Thomas Argast)",80) 
  47. SAY Copies("═",80)
  48. SAY " "
  49. SAY " "
  50. SAY Copies(">",80)
  51. SAY " "
  52. SAY "The Beatles Song Index will now be installed in:"
  53. SAY path
  54. SAY " "
  55. SAY "Press ENTER for OK or <C> for correction or <A> for abort!"
  56. PULL answer
  57.  
  58. /* Analyse */
  59. IF answer = "A" THEN SIGNAL Abort
  60. IF answer = "C" THEN SIGNAL Target
  61.  
  62. SAY " "
  63.  
  64. /* Create directory */
  65. rc = SysMkDir(path)
  66.  
  67. /* copy file */
  68. 'COPY data.dat' path'\data.exe'
  69. call syscls
  70. path'\data.exe 'path' /o'
  71. call syscls
  72. 'del 'path'\data.exe' 
  73. call syscls
  74.  
  75.  
  76. /* Create folder */
  77. klasse='WPFolder'
  78. titel='Beatles electronic books'
  79. ort='<WP_DESKTOP>'
  80. param='OBJECTID=<BEATLESBOOKS_FOLDER>;'
  81. mode='fail'
  82. rc = SysCreateObject(klasse,titel,ort,param,mode)
  83.  
  84. /* Create object */
  85. klasse='WPProgram'
  86. titel='The Beatles song index'
  87. ort='<BEATLESBOOKS_FOLDER>'
  88. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='path';PARAMETERS='path'\BEATLES.INF;'
  89. mode='fail'
  90. Location = "<WP_TEMPS>"
  91. Title = "Hilfedatei"
  92. rc = SysCreateObject(klasse,titel,ort,param,mode)
  93.  
  94. /* End */
  95. End:
  96. echo off
  97. call syscls
  98. SAY " "
  99. SAY " The Beatles Song Index was sucessfully installed!"
  100. SAY " "
  101. pause
  102. EXIT
  103.  
  104. /* Standard error */
  105. Error:
  106. SAY " "
  107. SAY " An error occured. Please try again!"
  108. EXIT
  109.  
  110. /* Abort installation */
  111. Abort:
  112. SAY " "
  113. SAY " Installation program aborted!"
  114. EXIT
  115.  
  116.