home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / database / movies / remove.cmd < prev    next >
OS/2 REXX Batch file  |  1985-05-29  |  1KB  |  48 lines
  1. * Remove Records Program for ST VIDEO REVIEW (version 2)
  2. * Copyright 1987 - Ben Brackett
  3. * REMOVE DELETED RECORDS
  4. ASSIGN TRAPFILE("ERRORS"), TRAP(T)
  5. USE MOVIES INDEX TITLE, TAPE
  6. ERASE
  7. &SAYFOUR
  8. Y.ANS = ' '
  9. ASSIGN BOX(3,5,20,75,42,42,42,42,42,42)
  10. &SAYONE
  11. @ 04,06 SAY CENTER('ST VIDEO REVIEW - version 2',68)
  12. @ 19,06 SAY CENTER('Copyright 1987 - Ben Brackett',68)
  13. &SAYTHREE
  14. @ 06,06 SAY CENTER('REMOVE DELETED RECORDS FROM DISK',68)
  15. IF DISKSPACE(1) < LASTREC() * 799 + 1000
  16.     &SAYTWO
  17.     @ 08,10 SAY 'THERE IS NOT ENOUGH ROOM ON THIS DISK TO DO THIS OPERATION'
  18.     @ 10,10 SAY 'PLEASE SEE THE MANUAL FOR ALTERNATIVE METHODS.'
  19.     &SAYTHREE
  20.     @ 17,10 SAY '    PRESS ANY KEY TO RETURN TO MAIN MENU.' GET Y.ANS
  21.     READ
  22.     CLOSE ALL
  23.     RETURN
  24. ENDIF
  25. &SAYTWO
  26. @ 08,10 SAY 'PLEASE WAIT..... THIS CAN TAKE AWHILE!'
  27. @ 10,10 SAY 'SEARCHING THROUGH MOVIE RECORDS....'
  28. COUNT FOR DELREC() TO Y.COUNTED
  29. IF Y.COUNTED = 0
  30.     @ 16,10 SAY 'NO MOVIE RECORDS WERE FOUND TO REMOVE.'
  31.     &SAYTHREE
  32.     @ 17,10 SAY '   PRESS ANY KEY TO RETURN TO MAIN MENU.' GET Y.ANS
  33.     READ
  34.     CLOSE ALL
  35.     RETURN
  36. ENDIF
  37. @ 11,10 SAY 'DELETING '+STR(Y.COUNTED,3)+' MOVIE RECORD(S).  PLEASE WAIT......'
  38. PACK
  39. @ 12,10 SAY 'REINDEXING TITLES AND TAPE NOs.  PLEASE WAIT........'
  40. REINDEX
  41. @ 14,10 SAY LTRIM(STR(LASTREC(),4))+' MOVIE RECORDS IN NEW FILE'
  42. DELETE FILE TEMP1.
  43. &SAYTHREE
  44. @ 17,10 SAY '   PRESS ANY KEY TO RETURN TO MAIN MENU' GET Y.ANS
  45. READ
  46. CLOSE ALL
  47. RETURN
  48.