home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / EXTFIL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  134 lines
  1. * File:- EXTFIL.CMD
  2. * RECORDED MUSIC DIRECTORY 45 RPM
  3. * J.L.Read. Merrylands.
  4. * DATE:- 15/03/86
  5. * UPDATE:- 21/05/86
  6. ERASE
  7. SET INTEN OFF
  8. @ 11,29 SAY"ONE MOMENT PLEASE "
  9. USE EXTPLY
  10. SET INDEX TO EXTIND
  11. ERASE
  12. SET TALK OFF
  13. GO TOP
  14. DO EXTSCR
  15. DO EXTGET
  16. CLEAR GETS
  17. STORE T TO LEVEL6
  18. DO WHILE LEVEL6
  19. @ 3,0 SAY"ENTER COMMAND "
  20. SET CONSOLE OFF
  21. WAIT TO COMMAND
  22. STORE !(COMMAND) TO COMMAND
  23. SET CONSOLE ON
  24. IF COMMAND = "M"
  25. RELEASE COMMAND,RECORD
  26. ERASE
  27. @ 11,33 SAY"CLOSING FILE "
  28. USE
  29. RETURN
  30. ENDIF
  31. DO CASE
  32. CASE COMMAND = "A"
  33.  @ 3,0
  34.  @ 3,0 SAY"Adding a New Record "
  35.   APPEND BLANK
  36.   DO EXTGET
  37.   READ
  38.   CLEAR GETS
  39.  @ 3,0
  40. CASE COMMAND = "E"
  41.  @ 3,0
  42.  @ 3,0 SAY"Edit Record "
  43.   DO EXTGET
  44.   READ
  45.   CLEAR GETS
  46.  @ 3,0
  47. CASE COMMAND = "B"
  48.  SKIP - 1
  49.   DO EXTGET
  50.  CLEAR GETS
  51. CASE COMMAND = "F"
  52.  SKIP
  53.   DO EXTGET
  54.  CLEAR GETS
  55. CASE COMMAND = "D"
  56.  @ 3,0
  57.  @ 3,0 SAY"Delete Record  <Y> or <N> "
  58.  SET CONSOLE OFF
  59.  WAIT TO COMMAND
  60.  SET CONSOLE ON
  61.  IF COMMAND = "Y"
  62.  @ 3,0
  63.  @ 3,0 SAY"Deleting Record,   PLEASE WAIT "
  64.  DELETE
  65.  PACK
  66.   GO TOP
  67.   DO EXTGET
  68.   CLEAR GETS
  69.   ELSE COMMAND <> "Y"
  70.   DO EXTGET
  71.  CLEAR GETS
  72.  ENDIF
  73.  @ 3,0
  74. CASE COMMAND = "S"
  75.  @ 3,0
  76.  STORE "      " TO RECORD
  77.  @ 3,0 SAY"Enter Artist's Name. (First 6 Char)" GET RECORD PICTURE "!!!!!!"
  78.  SET CONFIRM ON
  79.  READ
  80.  SET CONFIRM OFF
  81.  FIND &RECORD
  82.  IF # = 0
  83.  @ 3,45 SAY"Record Not Found. Press <RETURN> "
  84.  SET CONSOLE OFF
  85.  WAIT
  86.  SET CONSOLE ON
  87.  ELSE # > 0
  88.  DO EXTGET
  89.  CLEAR GETS
  90.  ENDIF
  91.  @ 3,0
  92. ENDCASE
  93. ENDDO
  94. RETURN
  95.  
  96.  
  97.  
  98.  
  99. 
  100.   GO TOP
  101.   DO EXTGET
  102.   CLEAR GETS
  103.   ELSE COMMAND <> "Y"
  104.   DO EXTGET
  105.  CLEAR GETS
  106.  ENDIF
  107.  @ 3,0
  108. CASE COMMAND = "S"
  109.  STORE "      " TO RECORD
  110.  @ 3,0 SAY"Enter Artist's Name. (First 6 Char)" GET RECORD PICTURE "!!!!!!"
  111.  SET CONFIRM ON
  112.  READ
  113.  SET CONFIRM OFF
  114.  FIND &RECORD
  115.  IF # = 0
  116.  @ 3,45 SAY"Record Not Found. Press <RETURN> "
  117.  SET CONSOLE OFF
  118.  WAIT
  119.  SET CONSOLE ON
  120.  ELSE # > 0
  121.  DO EXTGET
  122.  CLEAR GETS
  123.  ENDIF
  124.  @ 3,0
  125. ENDCASE
  126. ENDDO
  127. RETURN
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.