home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG108.ARC / GEN-DSKA.LBR / VARY.CMD < prev   
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  26 lines
  1. * File:- VARY.CMD
  2. * Set up for printer & bel
  3. * Date:- 14/07/86
  4. * Update:-
  5. * J.L.Read. Merrylands.
  6. * SET TALK OFF
  7. STORE CHR(7) TO BEL
  8. STORE CHR(14) TO OUT
  9. STORE CHR(15) TO COMP
  10. STORE CHR(18) TO NORM
  11. STORE CHR(20) TO IN
  12. RETURN
  13.  
  14.  
  15.  
  16.  
  17. ET CONFIRM OFF
  18. IF VAL($(MDATE,1,2))>31 .OR. VAL($(MDATE,4,2))>12;
  19.  .OR. (VAL($(MDATE,7,2))<87 .AND. VAL($(MDATE,7,2))<>0)
  20. @ 16,3 SAY"INVALID DATE !!!!"
  21. @ 17,3 SAY"Re-Enter:- DD/MM/YY"
  22. @ 17,22 SAY CHR(7)
  23. STORE 1 TO X
  24. DO WHILE X <120
  25. STORE X+1 TO X
  26. ENDDO WHI