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

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

* File:- BUSSCR.CMD
* Label Printer Screen
* J.L.Read. Merrylands.
* DATE:- 29/03/87
* UPDATE:-
ERASE
@ 2,38 SAY"-=-"
@ 1,0 SAY"Date:-"
@ 1,7 SAY DATE()
SET INTEN ON
@ 3,16 SAY">>>>>   BUSINESS 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"Comp/Name:-"
SET INTEN OFF
@ 10,62 SAY"<"
@ 10,65 SAY"Ctrl/W"
@ 10,74 SAY"|"
@ 11,5 SAY"|"
SET INTEN ON
@ 11,10 SAY"Address  :-"
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"Location :-"
SET INTEN OFF
@ 12,62 SAY"<"
 @ 12,65 SAY"CURSOR"
@ 12,74 SAY"|"
@ 13,5 SAY"|"
SET INTEN ON
@ 13,10 SAY"State  :-"
@ 13,29 SAY"Postcode:-"
SET INTEN OFF
@ 13,62 SAY"<"
@ 13,65 SAY"Arrows"
@ 13,74 SAY"|"
@ 14,5 SAY"|"
SET INTEN ON
@ 14,10 SAY"Country:-"
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 Number:-"
SET INTEN OFF
@ 16,62 SAY"<"
@ 16,65 SAY"Return"
@ 16,74 SAY"|"
@ 17,5 SAY"|"
SET INTEN ON
@ 17,10 SAY"Telephone (Overseas):-"
SET INTEN OFF
@ 17,62 SAY"<"
@ 17,74 SAY"|"
@ 18,5 SAY"+========================================================;
============+"
@ 19,5 SAY"|"
@ 19,7 SAY"-=-"
SET INTEN ON
@ 19,12 SAY"<E> Edit"
@ 19,22 SAY"<F> Forward"
@ 19,35 SAY"<B> Back"
@ 19,45 SAY"<S> Search"
@ 19,57 SAY"<D>  Delete"
SET INTEN OFF
@ 19,70 SAY"-=-"
@ 19,74 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,17 SAY"(Enter Period ONLY After Initials and Surname)"
RETURN

,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 Number:-"
SET INTEN OFF
@ 16,62 SAY"<"
@ 16,65 SAY"Return"
@ 16,74 SAY"|"
@ 17,5 SAY"|"
SET INTEN ON
@ 17,10 SAY"Telephone (Overseas):-"
SET INTEN OFF
@ 17,62 SAY"<"
@ 17,74 SAY"|"
@ 18,5 SAY"+========================================================;
============+"
@ 19,5 SAY"|"
@ 19,7 SAY"-=-"