* labels.sig 08/18/83
ERASE
STORE DATE() TO stdat
* get a starting  point
STORE DATE() TO stdat
@ 18,12 SAY 'Orders after what date require shipping labels'
@ 18,60 GET stdat PICTURE '99/99/99'
READ
STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
GOTO TOP
STORE t TO more
SET MARGIN TO 5
DO WHILE more
IF .NOT. EOF
STORE $(dayu,7,2)+$(dayu,1,2)+$(dayu,4,2) TO stdate1
IF stdate1 >= stdate
STORE 0 TO xtra
? ' '
? TRIM(fname) +' ' + lname
? addr1
IF addr2 <> ' '
? addr2
ELSE
STORE xtra + 1 TO xtra
ENDIF addr2
IF addr3 <> ' '
? addr3
ELSE
STORE xtra + 1 TO xtra
ENDIF addr3
? TRIM(city) +', '+  state + '  ' +zip
? ' '
? '** MAGNETIC MEDIA - DO NOT X-RAY **  '
? ' '
DO WHILE xtra <> 0
? ' '
STORE xtra -1 TO xtra
ENDDO while xtra
SKIP
ELSE
SKIP
ENDIF $date
ELSE
STORE f TO more
ENDIF not EOF
ENDDO more
EJECT
? CHR(30)
SET PRINT OFF
RELEASE all
STORE t TO more
STORE t TO first