home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / labelprt.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.2 KB  |  145 lines
  1. *     LABELPRT.CMD
  2. *     Lifelines Oct 82
  3. *     See Lifelines for comments
  4.  
  5. *                 CLH ADDITION Next block  11/ 1/82
  6. ERASE
  7. SET TALK ON
  8. STORE '          ' TO mdbf
  9. SET DEFA TO B:
  10. ACCEPT " DBF Filename " TO mdbf
  11. USE &mdbf
  12. GOTO TOP
  13. *                 CLH Addition ends
  14.  
  15.  
  16. SAVE TO LABELPRT
  17. SET TALK OFF
  18. SET EXACT OFF
  19. ERASE
  20. STORE '                                            ' TO BLANKS
  21. STORE  1 TO Perrec
  22. STORE  2 TO Nwide
  23. STORE 45 TO Hinc
  24. STORE  6 TO Vinc
  25. @  9,10 SAY ' LABELPRT.CMD  Label Printing File    '
  26. @ 10,10 SAY ' How many labels per name ?           ' GET Perrec PICT '9'
  27. @ 11,10 SAY ' How many labels across form?         ' GET  Nwide PICT '9'
  28. @ 12,10 SAY ' Give horizontal spacing in columns?  ' GET  Hinc PICT '99'
  29. @ 13,10 SAY ' What is vertical spacing in lines?   ' GET   Vinc PICT '9'
  30. READ
  31. STORE Hinc-1 TO Maxname
  32. STORE Hinc-1 TO MaxAddr1
  33. STORE Hinc-1 TO MaxAddr2
  34. STORE Hinc-(LEN(State)+LEN(ZIP)+5) TO MaxCity
  35. STORE 'Y' TO Offer
  36. DO WHILE !(Offer)='Y'
  37.     @ 20,10 SAY'Print a line of dummy labels? ( Y or N )' GET Offer
  38.     READ
  39.     IF !(Offer) = 'Y'
  40.     SET CONSOLE OFF
  41.     SET PRINT ON
  42.     STORE Nwide TO N
  43.     DO WHILE N > 0
  44.         ?? ' Name'+$(Blanks,1,Hinc-6)
  45.         STORE N-1 TO N
  46.     ENDDO
  47.     ?
  48.     ?
  49.     ?
  50.     STORE Nwide TO N
  51.     DO WHILE N > 0
  52.          ?? ' City'+$(Blanks,1,Hinc-6)
  53.          STORE N-1 TO N
  54.     ENDDO
  55.     STORE Vinc-4 TO N
  56.     DO WHILE N > 0
  57.          ?
  58.          STORE N-1 TO N
  59.     ENDDO
  60.     SET PRINT OFF
  61.     SET CONSOLE ON
  62.     ENDIF
  63. ENDDO
  64. *
  65.  
  66. *      LABELPRT.CMD
  67.  
  68. STORE 0 TO RECCOUNT
  69. STORE 0 TO Lpr
  70. DO WHILE .NOT. EOF
  71.     STORE ' ' TO Mline1
  72.     STORE ' ' TO Mline2
  73.     STORE ' ' TO Mline3
  74.     STORE ' ' TO Mline4
  75.     STORE 0 TO N
  76.  
  77.     DO WHILE N < Nwide
  78.     DO CASE
  79.     CASE EOF
  80.         STORE Nwide TO N
  81.     CASE Lpr < perrec
  82.         STORE LEN(Mline1) TO Length
  83.         IF '*' $NAME
  84.         STORE Mline1;
  85.         +$(TRIM($(Name,@('*',Name)+1,Hinc));
  86.         +' '+$(Name,1,@('*',Name)-1),1,Maxname);
  87.         TO Mline1
  88.         ELSE
  89.         STORE MLine1+$(Name,1,Maxname) TO Mline1
  90.         ENDIF
  91.         STORE Mline1+$(Blanks,1,Hinc-(LEN(Mline1)-Length));
  92.            TO Mline1
  93.         IF Addr1 = ' '
  94.         STORE 'Mline2' TO Maddr2
  95.         STORE 'Mline3' TO Mcity
  96.         STORE Mline4+$(Blanks,1,Hinc) TO Mline4
  97.         ELSE
  98.         STORE LEN(Mline2) TO Length
  99.         STORE Mline2+$(Addr1,1,Maxaddr1) TO Mline2
  100.         STORE Mline2+$(Blanks,1,;
  101.            Hinc-(LEN(Mline2)-Length)) TO Mline2
  102.         STORE 'Mline3' TO Maddr2
  103.         STORE 'Mline4' TO Mcity
  104.         ENDIF
  105.         STORE LEN(&Maddr2) TO Length
  106.         STORE &Maddr2+$(Addr2,1,Maxaddr2) TO &Maddr2
  107.         STORE &Maddr2+$(Blanks,1,Hinc-(LEN(&Maddr2)-Length));
  108.           TO &Maddr2
  109.         STORE LEN(&Mcity) TO Length
  110.         STORE &Mcity+TRIM($(City,1,Maxcity))+', '+State+' ';
  111.           +ZIP TO &Mcity
  112.         STORE &Mcity+$(Blanks,1,Hinc-(LEN(&Mcity)-Length));
  113.           TO &Mcity
  114.         STORE N+1 TO N
  115.         STORE Lpr+1 TO Lpr
  116.         OTHERWISE
  117.         SKIP
  118.         STORE Reccount+1 TO Reccount
  119.         STORE 0 TO Lpr
  120.         ENDCASE
  121.      ENDDO
  122.      SET CONSOLE OFF
  123.      SET PRINT ON
  124.      ? Mline1
  125.      ? Mline2
  126.      ? Mline3
  127.      ? Mline4
  128.      STORE Vinc-4 TO N
  129.      DO WHILE N > 0
  130.      ?
  131.      STORE N-1 TO N
  132.      ENDDO
  133.      SET PRINT OFF
  134.      SET CONSOLE ON
  135. ENDDO
  136. @ 14,10 SAY ' There were '
  137. @ 14,22 SAY Reccount USING '99999'
  138. @ 14,28 SAY ' records processed '
  139. @ 15,10 SAY '        and '
  140. @ 15,22 SAY  Reccount*Perrec USING '99999'
  141. @ 15,28 SAY ' labels printed. '
  142. RESTORE FROM Labelprt 
  143. DELE FILE LABELPRT.MEM
  144. RETURN
  145.