home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / LABEL.PRG < prev    next >
Text File  |  1984-10-24  |  2KB  |  78 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.  "******************************************************"
  12. @  3,17 SAY;
  13.  "*                                                    *"
  14. @  4,17 SAY;
  15.  "* This program will type on 1 1/2 x 4 inch pregummed *"
  16. @  5,17 SAY;
  17.  "* tractorfeed labels (1) the file owner's name,  (2) *"
  18. @  6,17 SAY;
  19.  "* the alphanumeric number under which the article is *"
  20. @  7,17 SAY;
  21.  "* stored,  and  (3) the  key words  under  which the *"
  22. @  8,17 SAY;
  23.  "* article is referenced.                             *"
  24. @  9,17 SAY;
  25.  "*                                                    *"
  26. @ 10,17 SAY;
  27.  "******************************************************"
  28. @ 14,22 SAY '** DO YOU WANT TO CONTINUE? (Y/N) **'
  29. @ 22,1  SAY ' '
  30. WAIT TO CONTINUE
  31. IF !(CONTINUE)='N'
  32.   RETURN
  33. ENDIF
  34. @ 14,22 SAY '                                     '
  35. @ 23,0  SAY '                                '
  36. @ 14,9  SAY "ENTER FILE OWNER'S NAME " GET M:NAME ;
  37.  PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  38. @ 16,11 SAY 'ENTER LETTER OF REFERENCE NUMBER FOR;
  39.  WHICH YOU WANT LABELS ' GET B:REF PICTURE 'X'
  40. READ
  41. @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+; 
  42. '-ARTICLE LABELED ' GET REF PICTURE '9999'
  43. READ
  44. @ 20,27 SAY '** PRINTER READY? (Y/N) **'
  45. @ 22,1  SAY ' '
  46. WAIT TO CONTINUE
  47. IF !(CONTINUE)='N'
  48.   RETURN
  49. ENDIF
  50. @ 20,27 SAY '                                     '
  51. @ 23,0  SAY '                                'è@ 20,29 SAY '** LOCATING RECORDS **'
  52. LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO
  53. SET FORMAT TO PRINT
  54. SET EJECT OFF
  55. DO WHILE .NOT. EOF
  56.   STORE $(KWORDS,1,40) TO KW1
  57.   STORE $(KWORDS,41,40) TO KW2
  58.   @ LINE,17 SAY M:NAME USING;
  59.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  60.   STORE LINE+2 TO LINE
  61.   @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX'
  62.   STORE LINE+1 TO LINE
  63.   @ LINE,1 SAY KW1
  64.   IF KW2<>' '
  65.     STORE LINE+1 TO LINE
  66.     @ LINE,1 SAY KW2
  67.     STORE LINE+5 TO LINE
  68.   ENDIF
  69.   IF KW2=' '
  70.     STORE LINE+6 TO LINE
  71.   ENDIF
  72.   CONTINUE
  73. ENDDO
  74. @ LINE+1,1 SAY ' '
  75. RELEASE B:REF,REF,M:NAME,CONTINUE
  76. SET FORMAT TO SCREEN
  77. RETURN
  78.