home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / 33PRALL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  105 lines
  1. * File:- 33PRALL.CMD
  2. * RECORDED MUSIC DIRECTORY.PRINTER PROGRAM 33 RPM
  3. * To Print All Records
  4. * DATE:- 16/03/86
  5. * UPDATE:-
  6. * J.L.Read. Merrylands.
  7. ERASE
  8. @ 1,0 SAY"Report 33 RPM."
  9. @ 2,0 SAY"All Records."
  10. STORE " " TO FL
  11. SET INTEN ON
  12. @ 11,15 SAY" DO YOU WANT TO PRINT ALL RECORDS  <Y> or <N> "
  13. SET INTEN OFF
  14. @ 11,61 GET FL PICTURE "!"
  15. READ
  16. IF FL = "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,29 SAY"ONE MOMENT PLEASE "
  25. USE B:RECLIB
  26. SET INDEX TO ARTIND
  27. ERASE
  28. SET TALK OFF
  29. GO TOP
  30. @ 11,24 SAY"Printing Record.  PLEASE WAIT."
  31. SET CONSOLE OFF
  32. SET PRINT ON
  33. DO WHILE .NOT. EOF
  34.   STORE RECNAM TO MRECNAM
  35.   STORE ARTIST TO MARTIST
  36.   STORE LABEL TO MLABEL
  37.   STORE SOUND TO MSOUND
  38.   STORE TYPE TO MTYPE
  39.   STORE RECNO TO MRECNO
  40.   STORE LOCTN TO MLOCTN
  41.   STORE TRACK1 TO MTRACK1
  42.   STORE TRACK2 TO MTRACK2
  43.   STORE TRACK3 TO MTRACK3
  44.   STORE TRACK4 TO MTRACK4
  45.   STORE TRACK5 TO MTRACK5
  46.   STORE TRACK6 TO MTRACK6
  47.   STORE TRACK7 TO MTRACK7
  48.   STORE TRACK8 TO MTRACK8
  49.   STORE TRACK9 TO MTRACK9
  50.   STORE TRACK10 TO MTRACK10
  51.   STORE TRACK11 TO MTRACK11
  52.   STORE TRACK12 TO MTRACK12
  53.   STORE TRACK13 TO MTRACK13
  54.   STORE TRACK14 TO MTRACK14
  55.   STORE TRACK15 TO MTRACK15
  56.   STORE TRACK16 TO MTRACK16
  57. ? " "
  58. ? " "
  59. ? " "
  60. ? "LP Record Album.             ----------                     ----- oOo -----;
  61.                        ----------                  --------"
  62. ? "~~~~~~~~~~~~~~~~~"
  63. ? "Record Title:- &MRECNAM                Side 1  Track Titles                ;
  64.        Side 2  Track Titles"
  65. ? "                                                               ~~~~~~~~~~~~;
  66. ~~~~~~~~~~                     ~~~~~~~~~~~~~~~~~~~~~~"
  67. ? "Artist:- &MARTIST    Label:- &MLABEL       &MTRACK1          &MTRACK9"
  68. ? "                                                          &MTRACK2         ;
  69.  &MTRACK10"
  70. ? "Sound Type:- &MSOUND                                       &MTRACK3        ;
  71.   &MTRACK11"
  72. ? "                                                          &MTRACK4         ;
  73.  &MTRACK12"
  74. ? "Music Type:- &MTYPE                                     &MTRACK5         ;
  75.  &MTRACK13"
  76. ? "                                                          &MTRACK6         ;
  77.  &MTRACK14"
  78. ? "Record No.:- &MRECNO      Location:- &MLOCTN              &MTRACK7       ;
  79.    &MTRACK15"
  80. ? "                                                          &MTRACK8         ;
  81.  &MTRACK16"
  82. ? " "
  83. ? "----------                   ----------                     ----- oOo -----;
  84.                        ----------                  --------"
  85. ? " "
  86. ? " "
  87. ? " "
  88. ? " "
  89. ? " "
  90. SKIP
  91. ENDDO
  92. SET PRINT OFF
  93. SET CONSOLE ON
  94. ERASE
  95. RELEASE ALL
  96. RESTORE FROM MEM2
  97. USE
  98. RETURN
  99. ELSE
  100. RELEASE FL
  101. ENDIF
  102. RETURN
  103.  
  104.  
  105.