home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / LABGET.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  768b  |  23 lines
  1. * File:- LABGET.CMD
  2. * Label Printer Screen Gets
  3. * J.L.Read. Merrylands.
  4. * Date:- 26/03/87
  5. * Update:-
  6. @ 1,58 SAY"Record No:- "+ STR(#,5)
  7. @ 7,37 GET AUST PICTURE "!"
  8. @ 7,63 SAY CLASS
  9. @ 8,22 SAY NUMB
  10. @ 8,55 GET TITLE
  11. @ 9,22 GET INITAL PICTURE "!!!!"
  12. @ 9,39 GET SNAME PICTURE "!!!!!!!!!!!!!!!!!!"
  13. @ 10,22 GET STREET PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  14. @ 11,22 GET LOCATN PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
  15. @ 12,20 GET STATE PICTURE "!!!"
  16. @ 12,40 GET PCODE PICTURE "9999"
  17. @ 13,20 GET COUNTRY PICTURE "!!!!!!!!!!!!!!!!"
  18. @ 14,29 GET PHONE1 PICTURE "(999)999-9999"
  19. @ 15,29 GET PHONE2 PICTURE "(999)999-9999"
  20. @ 16,33 GET PHONE3 PICTURE "(9999)(999)(9999)9999999999"
  21. RETURN
  22.  
  23.