home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / splos2 / spl.bat < prev   
Encoding:
DOS Batch File  |  1988-04-07  |  1.1 KB  |  67 lines
  1. ECHO OFF
  2. REM This batch file lets you automate the SPL translator.
  3. REM Format of command:
  4. REM           SPL fname /LS/S
  5. :START
  6. PAUSE
  7. IF %1.SP==.SP GOTO EXIT1
  8. IF NOT EXIST %1.SP GOTO EXIT2
  9. ECHO %1 >PARMS
  10. ECHO   >>PARMS
  11. IF %2z==/LS/Sz GOTO EXIT3
  12. IF %2z==/LP/Sz GOTO EXIT4
  13. IF %2z==/LD/Sz GOTO EXIT5
  14. IF %2z==/LSz GOTO EXIT6
  15. IF %2z==/LPz GOTO EXIT7
  16. IF %2z==/LDz GOTO EXIT8
  17. ECHO N >>PARMS
  18. ECHO N >>PARMS
  19. GOTO EXITS
  20. :EXIT3
  21. ECHO Y >>PARMS
  22. ECHO Y >>PARMS
  23. ECHO S >>PARMS
  24. GOTO EXITS
  25. :EXIT4
  26. ECHO Y >>PARMS
  27. ECHO Y >>PARMS
  28. ECHO P >>PARMS
  29. GOTO EXITS
  30. :EXIT5
  31. ECHO Y >>PARMS
  32. ECHO Y >>PARMS
  33. ECHO D >>PARMS
  34. GOTO EXITS
  35. :EXIT6
  36. ECHO N >>PARMS
  37. ECHO Y >>PARMS
  38. ECHO S >>PARMS
  39. GOTO EXITS
  40. :EXIT7
  41. ECHO N >>PARMS
  42. ECHO Y >>PARMS
  43. ECHO P >>PARMS
  44. èGOTO EXITS
  45. :EXIT8
  46. ECHO N >>PARMS
  47. ECHO Y >>PARMS
  48. ECHO D >>PARMS
  49. :EXITS
  50. SP <PARMS
  51. SORT <%1.BAS >%1
  52. ERASE %1.BAS
  53. RENAME %1 %1.BAS
  54. BASCOM %1,%1,NUL /E/O 
  55. LINK %1,%1 ;
  56. ERASE %1.OBJ
  57. ERASE PARMS
  58. GOTO EXIT
  59. :EXIT1
  60. ECHO Error: No file name entered.
  61. GO TO EXIT
  62. :EXIT2
  63. ECHO Error: File name %1.SP does not exist.
  64. :EXIT
  65. WS %1.SP
  66. GOTO START
  67.