home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / VARY.CMD < prev   
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  34 lines
  1. * File:- VARY.CMD
  2. * Set up for printer & bel
  3. * Date:- 14/07/86
  4. * Update:-
  5. * J.L.Read. Merrylands.
  6. ERASE
  7. CLEAR
  8. SET TALK OFF
  9. SET INTENSITY OFF
  10. STORE CHR(7) TO BEL
  11. STORE CHR(14) TO OUT
  12. STORE CHR(15) TO COMP
  13. STORE CHR(18) TO NORM
  14. STORE CHR(20) TO IN
  15. RETURN
  16.  
  17.  
  18.  
  19.  
  20. L2
  21. @ 3,0 SAY"ENTER COMMAND "
  22. SET CONSOLE OFF
  23. WAIT TO COMMAND
  24. STORE !(COMMAND) TO COMMAND
  25. SET CONSOLE ON
  26. IF COMMAND = "M"
  27. RELEASE COMMAND,RECORD
  28. ERASE
  29. @ 11,33 SAY"CLOSING FILE "
  30. USE
  31. RETURN
  32. ENDIF
  33. DO CASE
  34. CASE COMMAND = "A"