home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / RECOVER.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  86 lines
  1. *RECOVER.PRG
  2. * A PROGRAM TO CLEAR THE WORKING FILES. THIS PROGRAM ACTUALLY SAVES DISK SPACE.
  3. ERASE
  4. SET TALK OFF
  5. STORE '~' TO DEC
  6. DO WHILE DEC <>' '
  7. ERASE     
  8. @ 2,0 SAY '*****************************************************************'
  9. @ 3,0 SAY '            RECOVER  PROGRAM ..                                  '
  10. @ 4,0 SAY ' THIS PROGRAM SAVES DISK SPACE      '
  11. @ 6,0 SAY '            PRESS                   TO DO                        '
  12. @ 7,0 SAY '             1                      START                        '
  13. @ 8,0 SAY '             R                      TO ABORT AND RETURN          '
  14. @ 11,0 SAY '****************************************************************'
  15. SET TALK OFF
  16. WAIT TO DEC
  17. STORE !(DEC) TO DEC
  18. DO CASE
  19. CASE DEC='R'
  20. RETURN
  21. ENDCASE
  22. ERASE
  23. ?? CHR(07)
  24. ? 'PLEASE NOTE THAT THIS PROGRAM DESTROYS DATA IN THE TRANSFER PROCESS'
  25. ? 'ENTER THE CODE TO CONTINUE THIS PROGRAM THEN PRESS RETURN'
  26. ? ':'
  27. SET TALK OFF
  28.  SET CONSOLE OFF
  29. ACCEPT TO PASSWORD
  30. IF PASSWORD <> DATE()
  31. SET CONSOLE ON
  32. ? '    ******************** PASSWORD INCORRECT ********************'
  33. STORE 100 TO WAIT
  34. DO WHILE WAIT<>0
  35. STORE WAIT-1 TO WAIT
  36. ENDDO
  37. RETURN
  38. ENDIF
  39. SET CONSOLE ON
  40. ERASE
  41. ? '       ***************** PASSWORD CORRECT *******************'
  42. ?? CHR(07)
  43. ***********************************
  44. USE DATARCH
  45. COPY TO DATA2 ALL FOR SPECIAL 
  46. USE
  47. DELETE FILE DATARCH
  48. USE
  49. RENAME DATA2 TO DATARCH
  50. ********************************
  51. USE DATAFILE
  52. COPY TO DATA1 ALL FOR .NOT. PACKED .AND .NOT. INVOICED .OR. .NOT. PACKED
  53. USE
  54. DELETE FILE DATAFILE
  55. USE
  56. RENAME DATA1 TO DATAFILE
  57. *****************
  58. USE DATATEMP
  59. COPY TO DATA3 ALL FOR .NOT. PACKED .AND. .NOT. INVOICED .OR. .NOT. PACKED
  60. USE
  61. DELETE FILE DATATEMP
  62. RENAME DATA3 TO DATATEMP
  63. *********************
  64. ?? CHR(07)
  65. USE HOLDATA
  66. COPY TO DATA4 ALL FOR .NOT. PACKED .AND. .NOT. INVOICED .OR. .NOT. PACKED
  67. USE
  68. DELETE FILE HOLDATA
  69. USE
  70. RENAME DATA4 TO HOLDATA
  71. *************************************
  72. USE LEDARCH
  73. COPY STRU TO DATA5
  74. USE
  75. DELETE FILE LEDARCH
  76. RENAME DATA5 TO LEDARCH
  77. ******************************
  78. USE LEDGER
  79. COPY TO DATA6 ALL FOR .NOT. USEDSTMT
  80. USE
  81. DELETE FILE LEDGER
  82. RENAME DATA6 TO LEDGER
  83. enddo
  84. RETURN
  85. "n₧"ADELAIDE, SOUTH AUSTRALIA , 5000  LINE5├"Æ₧"(08) 211 7575                     SLINE1├╢₧PD SPTY LTD     SLINE2├╚₧(INC IN S. AUST)SLINE3├┌₧433 MORPHETT ST.SLINE4├∞₧ADELAIDE S.A. 5000SLINE5├ƒ(08) 211 7575    COMPRESS├ƒCHR(15)NORMAL├ƒCHR(18)├*ƒCHR(27)+'[1'+CHR(119)
  86. CASE DEC=2