CP/M/CPM_CDROM.iso/mbug/mbug104.arc/RECP15.LQR/33PSCR.CMD

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

* File:- 33PSCR.CMD
* Recorded Music Library Printer Screen
* DATE:- 16/03/86
* UPDATE:- 02/05/86
SET INTEN OFF
ERASE
@ 0,0 SAY"33Pscr"
@ 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 -  33 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"|"
SET INTEN ON
@ 14,2 SAY"5"
SET INTEN OFF
@ 14,39 SAY"|"
SET INTEN ON
@ 14,41 SAY"5"
SET INTEN OFF
@ 14,79 SAY"|"
@ 15,0 SAY"|"
SET INTEN ON
@ 15,2 SAY"6"
SET INTEN OFF
@ 15,39 SAY"|"
SET INTEN ON
@ 15,41 SAY"6"
SET INTEN OFF
@ 15,79 SAY"|"
@ 16,0 SAY"|"
SET INTEN ON
@ 16,2 SAY"7"
SET INTEN OFF
@ 16,39 SAY"|"
SET INTEN ON
@ 16,41 SAY"7"
SET INTEN OFF
@ 16,79 SAY"|"
@ 17,0 SAY"|"
SET INTEN ON
@ 17,2 SAY"8"
SET INTEN OFF
@ 17,39 SAY"|"
SET INTEN ON
@ 17,41 SAY"8"
SET INTEN OFF
@ 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





================================================================;
===========+"
@ 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
@