home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / BUSGET.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  39 lines
  1. * File:- BUSGET.CMD
  2. * Label Printer Screen Gets
  3. * J.L.Read. Merrylands.
  4. * Date:- 29/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 COMPANY PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  14. @ 11,22 GET STREET PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  15. @ 12,22 GET LOCATN PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
  16. @ 13,20 GET STATE PICTURE "!!!"
  17. @ 13,40 GET PCODE PICTURE "9999"
  18. @ 14,20 GET COUNTRY PICTURE "!!!!!!!!!!!!!!!!"
  19. @ 15,29 GET PHONE1 PICTURE "(999)999-9999"
  20. @ 16,29 GET PHONE2 PICTURE "(999)999-9999"
  21. @ 17,33 GET PHONE3 PICTURE "(9999)(999)(9999)9999999999"
  22. RETURN
  23.  
  24. N ON
  25. @ 13,10 SAY"State  :-"
  26. @ 13,29 SAY"Postcode:-"
  27. SET INTEN OFF
  28. @ 13,62 SAY"<"
  29. @ 13,65 SAY"Arrows"
  30. @ 13,74 SAY"|"
  31. @ 14,5 SAY"|"
  32. SET INTEN ON
  33. @ 14,10 SAY"Country:-"
  34. SET INTEN OFF
  35. @ 14,62 SAY"<"
  36.  @ 14,65 SAY"Ctrl."
  37. @ 14,74 SAY"|"
  38. @ 15,5 SAY"|"
  39. SET INTE