home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol129 / db2sig / m.lbr / LABELS.SIG < prev    next >
Encoding:
Text File  |  1985-02-10  |  1.4 KB  |  56 lines

  1. * labels.sig 08/18/83
  2. ERASE
  3. STORE DATE() TO stdat
  4. * get a starting  point
  5. STORE DATE() TO stdat
  6. @ 18,12 SAY 'Orders after what date require shipping labels'
  7. @ 18,60 GET stdat PICTURE '99/99/99'
  8. READ
  9. STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
  10. GOTO TOP
  11. STORE t TO more
  12. SET MARGIN TO 5
  13. DO WHILE more
  14.     IF .NOT. EOF
  15.         STORE $(dayu,7,2)+$(dayu,1,2)+$(dayu,4,2) TO stdate1
  16.         IF stdate1 >= stdate
  17.             STORE 0 TO xtra
  18.             ? ' '
  19.             ? TRIM(fname) +' ' + lname
  20.             ? addr1
  21.             IF addr2 <> ' '
  22.                 ? addr2
  23.             ELSE
  24.                 STORE xtra + 1 TO xtra
  25.             ENDIF addr2
  26.             IF addr3 <> ' '
  27.                 ? addr3
  28.             ELSE
  29.                 STORE xtra + 1 TO xtra
  30.             ENDIF addr3
  31.             ? TRIM(city) +', '+  state + '  ' +zip
  32.             ? ' '
  33.             ? '  ***    MAGENETIC MEDIA    ***  '
  34.             ? '*****  PLEASE DO NOT X-RAY  *****'
  35.             ? ' '
  36.             ? ' '
  37.             ? ' '
  38.             DO WHILE xtra <> 0
  39.                 ? ' '
  40.                 STORE xtra -1 TO xtra
  41.             ENDDO while xtra
  42.             SKIP
  43.         ELSE
  44.             SKIP
  45.         ENDIF $date
  46.     ELSE
  47.         STORE f TO more
  48.     ENDIF not EOF
  49. ENDDO more
  50. EJECT
  51. ? CHR(30)
  52. SET PRINT OFF
  53. RELEASE all
  54. STORE t TO more
  55. STORE t TO first
  56.