home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / RECLST1.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  110 lines
  1. * FILE:- RECLST1.CMD
  2. * Screen List Program for Record Library
  3. * DATE:- 14/03/86
  4. * UPDATE:-
  5. SET INTEN OFF
  6. STORE T TO LEVEL4
  7. DO WHILE LEVEL4
  8. ERASE
  9. @ 0,0 SAY"Screenlist"
  10. @ 0,38 SAY"-=-"
  11. @ 1,28 SAY"--+--  dBASE II  --+--"
  12. @ 2,38 SAY"-=-"
  13. @ 4,37 SAY"-===-"
  14. SET INTEN ON
  15. @ 5,23 SAY" --+--  SCREEN LIST  MENU  --+-- "
  16. SET INTEN OFF
  17. @ 6,37 SAY"-===-"
  18. SET INTEN ON
  19. @ 8,25 SAY" >>> LISTING ALL RECORDS <<< "
  20. SET INTEN OFF
  21. @ 10,14 SAY"=================================================="
  22. @ 11,17 SAY"2  --->     TO SCREENLIST - 33 RPM .DBF FILE"
  23. @ 13,17 SAY"4  --->     TO SCREENLIST - 45 RPM .DBF FILE"
  24. @ 15,17 SAY"6  --->     TO RETURN TO RECORD LIBRARY MENU"
  25. @ 16,14 SAY"=================================================="
  26. SET TALK OFF
  27. @ 18,37 SAY"-===-"
  28. SET INTEN ON
  29. @ 19,24 SAY"< SELECT  REQUIRED NUMBER >"
  30. SET INTEN OFF
  31. @ 20,37 SAY"-===-"
  32. STORE 0 TO COW
  33. @ 19,52 GET COW PICTURE "9"
  34. READ
  35. DO CASE
  36. CASE COW = 2
  37.   ERASE
  38.   @ 0,0 SAY"Screenlist 33"
  39.   @ 2,21 SAY" --+--  SCREENLIST 33RPM FILE  --+-- "
  40.   @ 3,37 SAY"-===- "
  41.   SET TALK ON
  42.   USE B:RECLIB
  43.   SET INDEX TO ARTIND
  44.   DISPLAY ALL RECNAM,ARTIST,SOUND,TYPE,LOCTN
  45.   USE B:RECLIB
  46.   COUNT
  47.   ?
  48.   ?
  49.   @ 23,20 SAY"-+-  Press < RETURN > To Continue  -+- "
  50.   SET CONSOLE OFF
  51.   WAIT
  52.   SET CONSOLE ON
  53.   USE
  54.  
  55. CASE COW = 4
  56.   ERASE
  57.   @ 0,0 SAY"Screenlist 45"
  58.   @ 2,21 SAY" --+--  SCREENLIST 45RPM FILE  --+-- "
  59.   @ 3,37 SAY"-===- "
  60.   SET TALK ON
  61.   USE EXTPLY
  62.   SET INDEX TO EXTIND
  63.   DISPLAY ALL RECNAM,ARTIST,SOUND,TYPE,LOCTN
  64.   USE EXTPLY
  65.   COUNT
  66.   ?
  67.   ?
  68.   @ 23,20 SAY"-+-  Press < RETURN > To Continue  -+- "
  69.   SET CONSOLE OFF
  70.   WAIT
  71.   SET CONSOLE ON
  72.   USE
  73.  
  74. CASE COW = 6
  75.   RELEASE LEVEL4,COW
  76.   RETURN
  77. ENDCASE
  78. ENDDO
  79. RETURN
  80.  
  81.  
  82.  
  83.  
  84. ontinue  -+- "
  85.   SET CONSOLE OFF
  86.   WAIT
  87.   SET CONSOLE ON
  88.   USE
  89.  
  90. CASE COW = 4
  91.   ERASE
  92.   @ 0,0 SAY"Screenlist 45"
  93.   @ 2,21 SAY" --+--  SCREENLIST 45RPM FILE  --+-- "
  94.   @ 3,37 SAY"-===- "
  95.   SET TALK ON
  96.   USE EXTPLY
  97.   SET INDEX TO EXTIND
  98.   DISPLAY ALL RECNAM,ARTIST,SOUND,TYPE,LOCTN
  99.   USE EXTPLY+--  dBASE II  --+--"
  100. @ 2,38 SAY"-=-"
  101. @ 4,37 SAY"-===-"
  102. SET INTEN ON
  103. @ 5,23 SAY" --+--  SCREEN LIST  MENU  --+-- "
  104. SET INTEN OFF
  105. @ 6,37 SAY"-===-"
  106. SET INTEN ON
  107. @ 8,25 SAY" >>> LISTING ALL RECORDS <<< "
  108. SET INTEN OFF
  109. @ 9,14 SAY"=================================================="
  110. @ 10,17 SAY"2  -