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 / MBUG107.ARC / RETRIEVE.LBR / LABEL.CQD / LABEL.CMD
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  68 lines
  1. NOTE -- EXTENDED COMMAND FILE LABEL.CMD
  2. USE &FILE1
  3. GO TOP
  4. STORE 2 TO LINE
  5. STORE ' ' TO B:REF
  6. STORE 'Y' TO CONTINUE
  7. STORE '                                        ' TO M:NAME
  8. STORE '    ' TO REF
  9. ERASE
  10. @  2,17 SAY "******************************************************"
  11. @  3,17 SAY "*                                                    *"
  12. @  4,17 SAY "* This program will type on 1 1/2 x 4 inch pregummed *"
  13. @  5,17 SAY "* tractorfeed labels (1) the file owner's name,  (2) *"
  14. @  6,17 SAY "* the alphanumeric number under which the article is *"
  15. @  7,17 SAY "* stored,  and  (3) the  key words  under  which the *"
  16. @  8,17 SAY "* article is referenced.                             *"
  17. @  9,17 SAY "*                                                    *"
  18. @ 10,17 SAY "******************************************************"
  19. @ 14,22 SAY '** DO YOU WANT TO CONTINUE? (Y/N) **'
  20. @ 22,1  SAY ' '
  21. WAIT TO CONTINUE
  22. IF !(CONTINUE)='N'
  23.    RETURN
  24. ENDIF
  25. @ 14,22 SAY '                                     '
  26. @ 23,0  SAY '                                '
  27. @ 14,9  SAY "ENTER FILE OWNER'S NAME " GET M:NAME ;
  28.    PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  29. @ 16,11 SAY 'ENTER LETTER OF REFERENCE NUMBER FOR WHICH YOU WANT LABELS ';
  30.    GET B:REF PICTURE 'X'
  31. READ
  32. @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+'-ARTICLE LABELED ' GET REF;
  33.    PICTURE '9999'
  34. READ
  35. @ 20,27 SAY '** PRINTER READY? (Y/N) **'
  36. @ 22,1  SAY ' '
  37. WAIT TO CONTINUE
  38. IF !(CONTINUE)='N'
  39.    RETURN
  40. ENDIF
  41. @ 20,27 SAY '                                     '
  42. @ 23,0  SAY '                                '
  43. @ 20,29 SAY '** LOCATING RECORDS **'
  44. LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO
  45. SET FORMAT TO PRINT
  46. SET EJECT OFF
  47. DO WHILE .NOT. EOF
  48.      STORE $(KWORDS,1,40) TO KW1
  49.      STORE $(KWORDS,41,40) TO KW2
  50.      @ LINE,17 SAY M:NAME USING 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  51.      STORE LINE+2 TO LINE
  52.      @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX'
  53.      STORE LINE+1 TO LINE
  54.      @ LINE,1 SAY KW1
  55.      IF KW2<>' '
  56.           STORE LINE+1 TO LINE
  57.           @ LINE,1 SAY KW2
  58.           STORE LINE+5 TO LINE
  59.      ENDIF
  60.      IF KW2=' '
  61.           STORE LINE+6 TO LINE
  62.      ENDIF
  63.      CONTINUE
  64. ENDDO
  65. @ LINE+1,1 SAY ' '
  66. RELEASE B:REF,REF,M:NAME,CONTINUE
  67. SET FORMAT TO SCREEN
  68. RETURN