home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR13 / DVME.ZIP / ME.BTM < prev    next >
Text File  |  1993-11-01  |  2KB  |  74 lines
  1. SET DVD=f:\public\DV
  2. SET ED=f:\public\kEDIT
  3. :/* Edit DESQVIEW macro files */
  4. IFF "%DVD" == "" THEN
  5.     ECHO I need to know where your DESQview and your editor are installed
  6.     ECHO Please run SETUPME
  7.     QUIT
  8. ENDIFF
  9. IFF .%1 == ./? THEN
  10. ECHO Usage: ME Open Menu keys
  11. ECHO For example: ME BD for Big DOS or ME D1 for DOS 128K
  12. QUIT
  13. ENDIFF
  14.  
  15. IFF .%1 == . THEN
  16.     ECHO  Enter two letter prefix of DESQview program:
  17.     INKEY %%O
  18.     IF %O == %@CHAR[27] QUIT
  19.     INKEY %%T
  20.     IF %T == %@CHAR[27] QUIT
  21.     CALL ME.btm %O%%T%
  22.     QUIT
  23. ENDIFF
  24.  
  25. CDD %DVD
  26. IFF %1 == DV THEN
  27.    SET F=DESQVIEW.TXT
  28.    SET S=DESQVIEW.DVS
  29. ELSE
  30.    SET F=%1-SCRIP.TXT
  31.    SET S=%1-SCRIP.DVS
  32. ENDIFF
  33.  
  34.  
  35. : Check if TXT file exists, if not, convert from DVS
  36. IFF NOT EXIST %F THEN
  37.     ECHO %F not found
  38.     BEEP 100 2 200 2 300 2
  39.     GOSUB DVS2TXT
  40. ELSE
  41.     INKEY Convert from DVS (Y/N, default - N) ? %%K
  42.     IF .%K == .Y GOSUB DVS2TXT
  43. ENDIFF
  44.  
  45. SET OLD=%@FILESIZE[%F]
  46. %ED %F
  47. IF NOT EXIST %F QUIT
  48. SET NEW=%@FILESIZE[%F]
  49. IFF %NEW == %OLD THEN
  50.     INKEY File size is unchanged. Convert to DVS anyway (Y/N, default - N) ? %%K
  51.     IF NOT .%K == .Y GOTO DONE
  52. ELSE
  53.     INKEY File has been modified.  Convert to DVS (Y/N, default - Y) ? %%K
  54.     IF .%K == .N GOTO DONE
  55. ENDIFF
  56. KEYSTACK "T" ENTER "%F" ENTER "%S" ENTER "X" ENTER
  57. %DVD%\convscr.com
  58.  
  59. :DONE
  60. CDD -
  61. KEYSTACK "EXIT" ENTER
  62. QUIT
  63.  
  64. :DVS2TXT
  65. IFF EXIST %S THEN
  66.    ECHO Converting from DVS file...
  67.    KEYSTACK "S" ENTER "%S" ENTER "%F" ENTER "X" ENTER
  68.    %DVD%\convscr.com
  69. ELSE
  70.    ECHO %S not found
  71.    BEEP 300 2 200 2 100 2
  72. ENDIFF
  73. RETURN
  74.