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

 
Output of file : LABELS.PRG contained in archive : FDIEXAM.ZIP
* Labels.Prg ... Print mailing labels
* Called from ... Rep_Menu.Prg
* Written by ... Steve DelBianco
* Last Update ... 10:38:48 2/10/1989

DO box WITH 7,10,10,60,[Print Mailing Labels] && fdi89 - std_prc

DO code && prc.prg - open database

DO co_selec && co_selec.prg - select codes

DO box WITH 13,24,3,36,[Which Addresses?]
@ 16,28 PROMPT 'Home Address '
@ 17,28 PROMPT 'Business Address'
MENU TO xchoice2
ESCBREAK() && fdi89 - std_prc
labelform = IIF(xchoice2 = 2,[WORK],[HOME])

DO openit && fdi89 - std_prc - user chooses output device
ESCBREAK()

SELE 0
DO rolodisk && prc.prg - open database
SET RELA TO code INTO code
GO TOP

LABEL FORM &labelform SAMPLE FOR code->(!EMPTY(APICKED(apicks))) .AND. ESCBREAK()

* clean-up
DO closeit

CLOSE DATA
RETURN
*** EOF ***


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : FDIEXAM.ZIP
Filename : LABELS.PRG
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/