home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / MISC / PWRBAT14.ZIP / MOVESUB.PWR < prev    next >
Encoding:
Text File  |  1990-10-01  |  3.7 KB  |  110 lines
  1. Variable      CLP%1,79
  2. Variable      CLP%2,79
  3. Variable      PBFile,79
  4. Variable      StrLen,2
  5. Variable      LastChar,1
  6. Write         "Copy from "
  7. Write         CLP%1
  8. Write         " to "
  9. WriteLine     CLP%2
  10. Length        StrLen,CLP%1            ;get the last char of CLP%1
  11. MidString     LastChar,CLP%1,StrLen,1
  12. Compare       LastChar,"\",,,SrcOK    ;is it a \
  13. Concat        CLP%1,"\"               ;if not then add \
  14. Label         SrcOK
  15. Length        StrLen,CLP%2            ;check last char of CLP%2
  16. MidString     LastChar,CLP%2,StrLen,1
  17. Compare       LastChar,"\",,,DestOK
  18. Concat        CLP%2,"\"
  19. Label         DestOK
  20. Concat        PBFile,CLP%1,"README.1ST"
  21. ?FileExist    PBFile,,CopyError
  22. COPY          PBFile,CLP%2
  23. Compare       DOSError,0,CopyError
  24. Compare       ErrorLevel,0,CopyError
  25. Concat        PBFile,CLP%1,"PBINSTAL.EXE"
  26. ?FileExist    PBFile,,CopyError
  27. COPY          PBFile,CLP%2
  28. Compare       DOSError,0,CopyError
  29. Compare       ErrorLevel,0,CopyError
  30. Concat        PBFile,CLP%1,"POWERMAK.EXE"
  31. ?FileExist    PBFile,,CopyError
  32. COPY          PBFile,CLP%2
  33. Compare       DOSError,0,CopyError
  34. Compare       ErrorLevel,0,CopyError
  35. Concat        PBFile,CLP%1,"SMLMODEL.MDL"
  36. ?FileExist    PBFile,,CopyError
  37. COPY          PBFile,CLP%2
  38. Compare       DOSError,0,CopyError
  39. Compare       ErrorLevel,0,CopyError
  40. Concat        PBFile,CLP%1,"POWERBAT.DOC"
  41. ?FileExist    PBFile,,CopyError
  42. COPY          PBFile,CLP%2
  43. Compare       DOSError,0,CopyError
  44. Compare       ErrorLevel,0,CopyError
  45. Concat        PBFile,CLP%1,"DOSEX1.BAT"
  46. ?FileExist    PBFile,,CopyError
  47. COPY          PBFile,CLP%2
  48. Compare       DOSError,0,CopyError
  49. Compare       ErrorLevel,0,CopyError
  50. Concat        PBFile,CLP%1,"DEMO1.PWR"
  51. ?FileExist    PBFile,,CopyError
  52. COPY          PBFile,CLP%2
  53. Compare       DOSError,0,CopyError
  54. Compare       ErrorLevel,0,CopyError
  55. Concat        PBFile,CLP%1,"MENU1.PWR"
  56. ?FileExist    PBFile,,CopyError
  57. COPY          PBFile,CLP%2
  58. Compare       DOSError,0,CopyError
  59. Compare       ErrorLevel,0,CopyError
  60. Concat        PBFile,CLP%1,"MOVE1.PWR"
  61. ?FileExist    PBFile,,CopyError
  62. COPY          PBFile,CLP%2
  63. Compare       DOSError,0,CopyError
  64. Compare       ErrorLevel,0,CopyError
  65. Concat        PBFile,CLP%1,"MOVE2.PWR"
  66. ?FileExist    PBFile,,CopyError
  67. COPY          PBFile,CLP%2
  68. Compare       DOSError,0,CopyError
  69. Compare       ErrorLevel,0,CopyError
  70. Concat        PBFile,CLP%1,"BOXDEMO1.PWR"
  71. ?FileExist    PBFile,,CopyError
  72. COPY          PBFile,CLP%2
  73. Compare       DOSError,0,CopyError
  74. Compare       ErrorLevel,0,CopyError
  75. Concat        PBFile,CLP%1,"PBINSTAL.PWR"
  76. ?FileExist    PBFile,,CopyError
  77. COPY          PBFile,CLP%2
  78. Compare       DOSError,0,CopyError
  79. Compare       ErrorLevel,0,CopyError
  80. Concat        PBFile,CLP%1,"DELETEPB.EXE"
  81. ?FileExist    PBFile,,CopyError
  82. COPY          PBFile,CLP%2
  83. Compare       DOSError,0,CopyError
  84. Compare       ErrorLevel,0,CopyError
  85. Concat        PBFile,CLP%1,"REGISTER.FRM"
  86. ?FileExist    PBFile,,CopyError
  87. COPY          PBFile,CLP%2
  88. Compare       DOSError,0,CopyError
  89. Compare       ErrorLevel,0,CopyError
  90. Concat        PBFile,CLP%1,"INVOICE.FRM"
  91. ?FileExist    PBFile,,CopyError
  92. COPY          PBFile,CLP%2
  93. Compare       DOSError,0,CopyError
  94. Compare       ErrorLevel,0,CopyError
  95. Concat        PBFile,CLP%1,"VENDOR.DOC"
  96. ?FileExist    PBFile,,CopyError
  97. COPY          PBFile,CLP%2
  98. Compare       DOSError,0,CopyError
  99. Compare       ErrorLevel,0,CopyError
  100. Concat        PBFile,CLP%1,"SYSOP.DOC"
  101. ?FileExist    PBFile,,CopyError
  102. COPY          PBFile,CLP%2
  103. Compare       DOSError,0,CopyError
  104. Compare       ErrorLevel,0,CopyError
  105. Halt          0
  106. Label         CopyError
  107. WriteLine     "Copy Not Successful...Aborting"
  108. Beep          850,2
  109. Halt          99
  110.