home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / REMEN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  130 lines
  1. * File: REMEN.CMD
  2. * MENU Record Library.
  3. * DATE:- 13/03/86
  4. * UPDATE:-
  5. * J.L.Read. Merrylands.NSW
  6. STORE T TO LEVEL1
  7. DO WHILE LEVEL1
  8. ERASE
  9. SET INTEN OFF
  10. @ 0,0 SAY DATE()
  11. @ 0,70 SAY"J.L.Read."
  12. @ 1,0 SAY"Mst Menu"
  13. @ 1,28 SAY"--+--  dBASE II  --+-- "
  14. @ 1,68 SAY"Merrylands."
  15. @ 2,38 SAY"-=-"
  16. SET INTEN ON
  17. @ 3,14 SAY" --+--  RECORDED MUSIC LIBRARY -  33/45 RPM  --+-- "
  18. SET INTEN OFF
  19. @ 4,38 SAY"-=- "
  20. SET INTEN ON
  21. @ 5,28 SAY" >>> LIBRARY  MENU <<< "
  22. SET INTEN OFF
  23. @ 6,38 SAY"-=-"
  24. @ 7,17 SAY"============================================="
  25. @ 8,20 SAY"1  --->     REPORT - ONE RECORD  33 RPM"
  26. @ 9,20 SAY"2  --->     REPORT - ONE RECORD  45 RPM"
  27. @ 10,20 SAY"3  --->     REPORT MENU FOR ALL RECORDS"
  28. @ 11,20 SAY"4  --->     SCREEN LIST FOR ALL RECORDS"
  29. @ 12,20 SAY"5  --->     SCREEN LIST ARTIST &  SOUND"
  30. @ 13,20 SAY"6  --->     REINDEX - WHEN OUT OF RANGE"
  31. @ 14,20 SAY"7  --->     ADD & EDIT -  45 RPM SCREEN"
  32. @ 15,20 SAY"8  --->     ADD & EDIT -  33 RPM SCREEN"
  33. @ 16,20 SAY"9  --->     RETURN  -   TO  CP/M SYSTEM"
  34. @ 17,17 SAY"============================================="
  35. @ 19,38 SAY"-=- "
  36. SET TALK OFF
  37. STORE 0 TO NEXT
  38. SET INTEN ON
  39. @ 20,25 SAY"< SELECT  REQUIRED NUMBER >"
  40. SET INTEN OFF
  41. @ 20,53 GET NEXT PICTURE "9"
  42. @ 21,38 SAY"-=-"
  43. READ
  44. DO CASE
  45. CASE NEXT = 1
  46.   DO 33PFIL
  47. CASE NEXT = 2
  48.   DO 45PRFIL
  49. CASE NEXT = 3
  50.   DO RMENREP
  51. CASE NEXT = 4
  52.   DO RECLST1
  53. CASE NEXT = 5
  54.   DO RECLAT2
  55. CASE NEXT = 6
  56.   DO RECDEX
  57. CASE NEXT = 7
  58.   DO EXTFIL
  59. CASE NEXT = 8
  60.   DO RECFIL
  61. CASE NEXT = 9
  62.   RELEASE ALL
  63.   ERASE
  64.   QUIT
  65. ENDCASE
  66. ENDDO
  67. RETURN
  68.  
  69.  
  70.  
  71.  
  72. B:RECLIB
  73.   INDEX ON ARTIST TO ARTIND
  74.   USE
  75.  
  76. CASE NOW = 4
  77.   ERASE
  78.   @ 0,0 SAY"Reindexing 45"
  79.   SET INTEN ON
  80.   @ 3,21 SAY" --+--  REINDEXING 45RPM FILE  --+-- "
  81.   SET INTEN OFF
  82.   @ 4,37 SAY"-===- "
  83.   SET TALK ON
  84.   USE EXTPLY
  85.   INDEX ON ARTIST TO EXTIND
  86.   USE
  87.  
  88. CASE NOW = 6
  89.   RELEASE LEVEL3,NOW
  90.   RETURN
  91. CASE NOW = 8
  92.   ERASE
  93.   CANCEL
  94. ENDCASE
  95. ENDDO
  96. RETURN
  97.  
  98.  
  99.  
  100.  
  101. B:RECLIB
  102.   INDEX ON ARTIST TO ARTIND
  103.   USE
  104.  
  105. CASE NOW = 4
  106.   ERASE
  107.   @ 0,0 SAY"Reindexing 45"
  108.   SET INTEN ON
  109.   @ 3,21 SAY" --+--  REINDEXING 45RPM FILE  --+-- "
  110.   SET INTEN OFF
  111.   @ 4,37 SAY"-===- "
  112.   SET TALK ON
  113.   USE EXTPLY
  114.   INDEX ON ARTIST TO EXTIND
  115.   USE
  116.  
  117. CASE NOW = 6
  118.   RELEASE LEVEL3,NOW
  119.   RETURN
  120. CASE NOW = 8
  121.   ERASE
  122.   CANCEL
  123. ENDCASE
  124. ENDDO
  125. RETURN
  126.  
  127.  
  128.  
  129.  
  130.