Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3MAIL.ZIP
Filename : LABEL.PRG

 
Output of file : LABEL.PRG contained in archive : DB3MAIL.ZIP

********** Programer : M. Mak / NYC 1987 ***************
********************* All Rights Reserved ************
* DO PRINT LABELS
use address index lnamedex
set talk off
set echo off
clear
ans = " "
do while .NOT. ans$"AaLl"
@10,10 say " "
wait " All or Limited labels (A/L) ? : " to ans
enddo
DO CASE
case upper(ans)="L"
clear
@ 8,10 say " "
input " How Many Leading Space : " to ns
set margin to ns
go top
clear
do while .NOT. EOF()
@ 10,1 clear to 20,79
@ 10,15 to 16,56
@ 12,20 say trim(title)+" "+trim(fname)+" "+trim(lname)
@ 13,20 say street
@ 14,20 say trim(city)+", "+state+zip
@ 18,20 say "Press [X] to Exit "
wait " Do You Want to Print Label (Y/N) ? : " to lbl
if upper(lbl) = "X"
set print off
set margin to 0
exit
endif
if upper(lbl)="Y"
set console off
set print on
?
? trim(title)+" "+trim(fname)+" "+trim(lname)
? street
? trim(city)+", "+state+zip
?
?
set print off
set console on
endif
skip
enddo
set margin to 1
set print off
case upper(ans)="A"
clear
label form mlabel to print
ENDCASE
RETURN