|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1536 (0x600)
Types: TextFile
Names: »MAILLAB.CMD«
└─⟦56ce7e438⟧ Bits:30004227 Adventure - Gomuko - WordStar - MAIL
└─⟦56ce7e438⟧ Bits:30004341 Adventure - Gomuko - WordStar - MAIL
└─ ⟦this⟧ »MAILLAB.CMD«
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»