2 ! PRINTS EMPLOYEE NAME AND ADDRESS ON ENVELOPES!
5 !PROGRAM NAME:"PREENV" - BY JAC
8 V$=SYS(CHR$(6%)+CHR$(-7%)):ON ERROR GOTO 75
10 W%=1%:X%=2%:INPUT "DISK #";D9$:D9$="DK"+D9$+":PAYROL.":
	Y%=3%:Z%=4%:INPUT "BEGINNING EMPLOYEE #";H%:T1$=SPACE$(128%)
20 OPEN "LP:" AS FILE W%,MODE 36%:OPEN D9$+"MST" AS FILE X%:
	OPEN D9$+"SCR" AS FILE Y%:B%=376%:GET #X%,RECORD B%:
	FIELD #X%,128% AS E$,X% AS M$:M%=SWAP%(CVT$%(M$)):V%=0%
30 FOR K%=W% TO M%:B1%=K%/Z%+W%:IF B1%<>B% THEN GET #X%,RECORD B1%:
	GET #Y%,RECORD B1%:B%=B1%
40 O%=(K%-(B%-W%)*Z%)*128%:FIELD #X%,O% AS E$,24% AS N$,12% AS E$,
	X% AS N1$,Z% AS N2$,27% AS E$,24% AS S$,16% AS C$,6% AS Z$:
	FIELD #Y%,O% AS E1$,128% AS T$:GOTO 70 IF T$=T1$ OR VAL(N2$)<H%
60 PRINT #W%,CHR$(154%);TAB(55%);N$;TAB(80%);N1$;N2$:PRINT #W%:
	PRINT #W%,TAB(58%);S$:PRINT #W%,TAB(58%);C$"  "Z$:V%=V%+W%
70 NEXT K%
75 V$=SYS(CHR$(0%)) IF ERR=28%:PRINT V%"ENVELOPES PRINTED":CLOSE W%,X%,Y%
80 END