CP/M/CPM_CDROM.iso/mbug/mbug108.arc/ADLABEL.LBR/LABSCR.CMD

OS/2 REXX Batch file | 1979-12-31 | 3KB | 126 lines

* File:- LABSCR.CMD
* Label Printer Screen
* J.L.Read. Merrylands.
* DATE:- 25/03/87
* UPDATE:-
ERASE
@ 2,38 SAY"-=-"
@ 1,0 SAY"Date:-"
@ 1,7 SAY DATE()
SET INTEN ON
@ 3,16 SAY">>>>>   NAME AND ADDRESS LABEL PRINTER   <<<<<"
SET INTEN OFF
@ 4,5 SAY"-----------"
@ 4,62 SAY"-------------"
@ 4,37 SAY"-===-"
@ 6,5 SAY"+=========================================================;
===========+"
@ 7,5 SAY"|"
SET INTEN ON
@ 7,10 SAY"Australia/Overseas (A/O):-"
SET INTEN OFF
SET INTEN ON
@ 7,56 SAY"Type:-"
SET INTEN OFF
@ 7,62 SAY"<"
@ 7,71 SAY">"
@ 7,74 SAY"|"
@ 8,5 SAY"|"
SET INTEN ON
@ 8,10 SAY"Id.Number:-"
@ 8,32 SAY"Title (Mr./Mrs/Miss):-"
SET INTEN OFF
@ 8,62 SAY"<"
@ 8,63 SAY"-----------"
@ 8,74 SAY"|"
@ 9,5 SAY"|"
SET INTEN ON
@ 9,10 SAY"Initials :-"
@ 9,29 SAY"Surname:-"
SET INTEN OFF
@ 9,62 SAY"<"
@ 9,64 SAY"Ret/Cmnd."
@ 9,74 SAY"|"
@ 10,5 SAY"|"
SET INTEN ON
@ 10,10 SAY"Address  :-"
SET INTEN OFF
@ 10,62 SAY"<"
@ 10,65 SAY"Ctrl/W"
@ 10,74 SAY"|"
@ 11,5 SAY"|"
SET INTEN ON
@ 11,10 SAY"Location :-"
SET INTEN OFF
@ 11,62 SAY"<"
SET INTEN ON
@ 11,64 SAY"<M>  Menu"
SET INTEN OFF
@ 11,74 SAY"|"
@ 12,5 SAY"|"
SET INTEN ON
@ 12,10 SAY"State  :-"
@ 12,29 SAY"Postcode:-"
SET INTEN OFF
@ 12,62 SAY"<"
@ 12,65 SAY"CURSOR"
@ 12,74 SAY"|"
@ 13,5 SAY"|"
SET INTEN ON
@ 13,10 SAY"Country:-"
SET INTEN OFF
@ 13,62 SAY"<"
 @ 13,65 SAY"Arrows"
@ 13,74 SAY"|"
@ 14,5 SAY"|"
SET INTEN ON
@ 14,10 SAY"Telephone Number:-"
SET INTEN OFF
@ 14,62 SAY"<"
@ 14,65 SAY"Ctrl."
@ 14,74 SAY"|"
@ 15,5 SAY"|"
SET INTEN ON
@ 15,10 SAY"Telephone Number:-"
SET INTEN OFF
@ 15,62 SAY"<"
@ 15,65 SAY"E/S/D/X"
@ 15,74 SAY"|"
@ 16,5 SAY"|"
SET INTEN ON
@ 16,10 SAY"Telephone (Overseas):-"
SET INTEN OFF
@ 16,62 SAY"<"
@ 16,65 SAY"Return"
@ 16,74 SAY"|"
@ 17,5 SAY"+========================================================;
============+"
@ 18,5 SAY"|"
@ 18,7 SAY"-=-"
SET INTEN ON
@ 18,12 SAY"<E> Edit"
@ 18,22 SAY"<F> Forward"
@ 18,35 SAY"<B> Back"
@ 18,45 SAY"<S> Search"
@ 18,57 SAY"<D>  Delete"
SET INTEN OFF
@ 18,70 SAY"-=-"
@ 18,74 SAY"|"
@ 19,5 SAY"+========================================================;
============+"
@ 20,5 SAY"|"
@ 20,7 SAY"-=-"
SET INTEN ON
@ 20,12 SAY"<A>  Add"
@ 20,22 SAY"<O> Oversea"
@ 20,35 SAY"<P> Prnt"
@ 20,45 SAY"<L> Lst En"
@ 20,57 SAY"<T> 1st Ent"
SET INTEN OFF
@ 20,70 SAY"-=-"
@ 20,74 SAY"|"
@ 21,5 SAY"+========================================================;
============+"
@ 22,19 SAY"(Do NOT Enter Period except after Initals)"
RETURN