DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦78756a6d9⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »MAILLAB.CMD«

Derivation

└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─ ⟦this⟧ »MAILLAB.CMD«

TextFile

NOTE - THIS COMMAD FILE PRINTS MAILING LABELS ON THE PRINTER
*
REMARK WHEN LABELS ARE IN PLACE, HIT CARRIAGE RETURN
WAIT
*  - echo printed information to screen
SET PRINT ON
*  - position to top of MAIL.DBF
GO TOP
*  - print labels
DO WHILE .NOT.EOF
   *  - print name
   DISP OFF $(NAME,13,17)-(' '+$(NAME,1,12))
   *  - checking to see if office address
   IF OF#'  '
     *  - print office name   
     DISP OFF OF
     *  - print address
     DISP OFF ADDR
     *  - print city, state, zip
     DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
   ELSE
     *  - print home address
     DISP OFF ADDR
     *  - print city, state, zip
     DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5))
     ?
   ENDIF
   ?
  SKIP
ENDDO
*  - turn off echo of labels
SET PRINT OFF
REMARK ALL DONE
RETURN
«eof»