home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / 33PRSEL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  117 lines

  1. * File:- 33PRSEL.CMD
  2. * RECORDED MUSIC DIRECTORY.PRINTER PROGRAM 33 RPM
  3. * Print selected files.
  4. * DATE:- 19/03/86
  5. * UPDATE:-
  6. * J.L.Read. Merrylands.
  7. ERASE
  8. @ 1,0 SAY"Report 33 RPM."
  9. @ 2,0 SAY"Artist Only."
  10. STORE " " TO LF
  11. SET INTEN ON
  12. @ 11,15 SAY" DO YOU WANT TO PRINT ARTIST ONLY  <Y> or <N> "
  13. SET INTEN OFF
  14. @ 11,61 GET LF PICTURE "!"
  15. READ
  16. IF LF = "Y"
  17. ERASE
  18. @ 11,28 SAY"TURN YOUR PRINTER ON "
  19. @ 21,20 SAY"-+-  Press < RETURN > When Ready  -+- "
  20. SET CONSOLE OFF
  21. WAIT
  22. SET CONSOLE ON
  23. ERASE
  24. @ 11,31 SAY"LOADING FILE "
  25. USE B:RECLIB
  26. SET INDEX TO ARTIND
  27. ERASE
  28. @ 9,0
  29. ACCEPT "            ENTER THE NAME OF ARTIST FOR PRINTING " TO CHOICE
  30. ERASE
  31. SET TALK OFF
  32. GO TOP
  33. @ 11,24 SAY"Printing Record.  PLEASE WAIT."
  34. SET CONSOLE OFF
  35. SET PRINT ON
  36. DO WHILE .NOT. EOF
  37. IF ARTIST = CHOICE
  38.   STORE RECNAM TO MRECNAM
  39.   STORE ARTIST TO MARTIST
  40.   STORE LABEL TO MLABEL
  41.   STORE SOUND TO MSOUND
  42.   STORE TYPE TO MTYPE
  43.   STORE RECNO TO MRECNO
  44.   STORE LOCTN TO MLOCTN
  45.   STORE TRACK1 TO MTRACK1
  46.   STORE TRACK2 TO MTRACK2
  47.   STORE TRACK3 TO MTRACK3
  48.   STORE TRACK4 TO MTRACK4
  49.   STORE TRACK5 TO MTRACK5
  50.   STORE TRACK6 TO MTRACK6
  51.   STORE TRACK7 TO MTRACK7
  52.   STORE TRACK8 TO MTRACK8
  53.   STORE TRACK9 TO MTRACK9
  54.   STORE TRACK10 TO MTRACK10
  55.   STORE TRACK11 TO MTRACK11
  56.   STORE TRACK12 TO MTRACK12
  57.   STORE TRACK13 TO MTRACK13
  58.   STORE TRACK14 TO MTRACK14
  59.   STORE TRACK15 TO MTRACK15
  60.   STORE TRACK16 TO MTRACK16
  61. ? " "
  62. ? " "
  63. ? " "
  64. ? "LP Record Album.             ----------                     ----- oOo -----;
  65.                        ----------                  --------"
  66. ? "~~~~~~~~~~~~~~~~~"
  67. ? "Record Title:- &MRECNAM                Side 1  Track Titles                ;
  68.        Side 2  Track Titles"
  69. ? "                                                               ~~~~~~~~~~~~;
  70. ~~~~~~~~~~                     ~~~~~~~~~~~~~~~~~~~~~~"
  71. ? "Artist:- &MARTIST    Label:- &MLABEL       &MTRACK1          &MTRACK9"
  72. ? "                                                          &MTRACK2         ;
  73.  &MTRACK10"
  74. ? "Sound Type:- &MSOUND                                       &MTRACK3        ;
  75.   &MTRACK11"
  76. ? "                                                          &MTRACK4         ;
  77.  &MTRACK12"
  78. ? "Music Type:- &MTYPE                                     &MTRACK5         ;
  79.  &MTRACK13"
  80. ? "                                                          &MTRACK6         ;
  81.  &MTRACK14"
  82. ? "Record No.:- &MRECNO      Location:- &MLOCTN              &MTRACK7       ;
  83.    &MTRACK15"
  84. ? "                                                          &MTRACK8         ;
  85.  &MTRACK16"
  86. ? " "
  87. ? "----------                   ----------                     ----- oOo -----;
  88.                        ----------                  --------"
  89. ? " "
  90. ? " "
  91. ? " "
  92. ? " "
  93. ? " "
  94. ENDIF
  95. SKIP
  96. ENDDO
  97. SET PRINT OFF
  98. SET CONSOLE ON
  99. ERASE
  100. RELEASE ALL
  101. RESTORE FROM MEM2
  102. USE
  103. RETURN
  104. ELSE
  105. RELEASE LF
  106. ENDIF
  107. RETURN
  108.  
  109.  
  110.  
  111.  
  112.  
  113.     Label:- &MLABEL       &MTRACK1          &MTRACK9"
  114. ? "                                                          &MTRACK2                           bel:- &MLABEL       &MTRACK1          &MTRACK9"
  115. ? "                                                          &MTRACK2         ;
  116.  &MTRACK10"
  117. ? "S