CP/M/CPM_CDROM.iso/mbug/mbug104.arc/RECP15.LQR/45PRSCR.CMD

OS/2 REXX Batch file | 1979-12-31 | 4KB | 149 lines

* File:- Extscr.cmd
* Recorded Music Library Printer Screen 45 RPM
* DATE:- 19/03/86
* UPDATE:- 22/05/86
* J.L.Read. Merrylands.
SET INTEN OFF
ERASE
@ 0,0 SAY"Extscr"
@ 0,38 SAY"-=- "
@ 0,70 SAY"J.L.Read."
@ 1,0 SAY"Date:-"
@ 1,7 SAY DATE()
SET INTEN ON
@ 1,16 SAY">>>>>> RECORDED MUSIC LIBRARY -  45 RPM <<<<<<"
SET INTEN OFF
@ 2,0 SAY"----------------"
@ 2,37 SAY"-===-"
@ 4,0 SAY"+===================================================================;
===========+"
@ 5,0 SAY"|"
SET INTEN ON
@ 5,2 SAY"RECORD NAME"
@ 5,52 SAY"ARTIST"
SET INTEN OFF
@ 5,79 SAY"|"
@ 6,0 SAY"|"
SET INTEN ON
@ 6,2 SAY"LOCATION IN RECORD LIBRARY"
SET INTEN OFF
@ 6,79 SAY"|"
@ 7,0 SAY"|"
SET INTEN ON
@ 7,2 SAY"LABEL"
@ 7,23 SAY"SOUND"
@ 7,38 SAY"TYPE"
@ 7,54 SAY"RECORD No."
SET INTEN OFF
@ 7,79 SAY"|"
@ 8,0 SAY"|"
@ 8,1 SAY"--------------------------------------------------------------------;
----------"
@ 8,79 SAY"|"
@ 9,0 SAY"|"
SET INTEN ON
@ 9,9 SAY"<SIDE 1  Track Names>"
SET INTEN OFF
@ 9,39 SAY"|"
SET INTEN ON
@ 9,48 SAY"<SIDE 2  Track Names>"
SET INTEN OFF
@ 9,79 SAY"|"
@ 10,0 SAY"|"
SET INTEN ON
@ 10,2 SAY"1"
SET INTEN OFF
@ 10,39 SAY"|"
SET INTEN ON
@ 10,41 SAY"1"
SET INTEN OFF
@ 10,79 SAY"|"
@ 11,0 SAY"|"
SET INTEN ON
@ 11,2 SAY"2"
SET INTEN OFF
@ 11,39 SAY"|"
SET INTEN ON
@ 11,41 SAY"2"
SET INTEN OFF
@ 11,79 SAY"|"
@ 12,0 SAY"|"
SET INTEN ON
@ 12,2 SAY"3"
SET INTEN OFF
@ 12,39 SAY"|"
SET INTEN ON
@ 12,41 SAY"3"
SET INTEN OFF
@ 12,79 SAY"|"
@ 13,0 SAY"|"
SET INTEN ON
@ 13,2 SAY"4"
SET INTEN OFF
@ 13,39 SAY"|"
SET INTEN ON
@ 13,41 SAY"4"
SET INTEN OFF
@ 13,79 SAY"|"
@ 14,0 SAY"+==================================================================;
============+"
@ 15,0 SAY"|"
@ 15,79 SAY"|"
@ 16,0 SAY"|"
@ 16,2 SAY"Single and extended play 45 rpm records, with standard and large ;
centre hole"
@ 16,79 SAY"|"
@ 17,0 SAY"|"
@ 17,79 SAY"|"
@ 18,0 SAY"+==================================================================;
============+"
@ 19,0 SAY"|"
SET INTEN ON
@ 19,3 SAY"<A> Add"
@ 19,12 SAY"<E> Edit"
@ 19,22 SAY"<F> Forward"
@ 19,35 SAY"<B> Back"
@ 19,45 SAY"<S> Search"
@ 19,57 SAY"<P>  Print"
@ 19,69 SAY"<M> Menu"
SET INTEN OFF
@ 19,79 SAY"|"
@ 20,0 SAY"+==================================================================;
============+"
@ 21,0 SAY"|"
@ 21,2 SAY"Scrn Ctrl:- <CTRL D/S/E/X> or <RETURN>."
@ 21,41 SAY"PRINTER SCREEN. Print one record only"
@ 21,79 SAY"|"
@ 22,0 SAY"+==================================================================;
============+"
RETURN





 13,39 SAY"|"
SET INTEN OOOOOOOOOOOOOOOOOOOOOOOOOOY"|"
SET INTEN ON
@ 6,2 SAY"LOCATION IN RECORD LIBRARY"
SET INTEN OFF
@ 6,79 SAY"|"
@ 7,0 SAY"|"
SET INTEN ON
@ 7,2 SAY"LABEL"
@ 7,23 SAY"SOUND"
@ 7,38 SAY"TYPE"
@ 7,54 SAY"RECORD No."
SET INTEN OFF
@ 7,79 SAY"|"
@ 8,0 SAY"|"
@ 8,1 SAY"--------------------------------------------------------------------;
----------"
@ 8,79 SAY"|"
@ 9,0 SAY"|"
SET INTEN ON
@ 9,9 SAY"<SIDE 1  Track Names>"
SET INTEN OFF
@ 9,39 SAY"|"
SET INTEN ON
@