2 ! PRINTS GUMMED LABELS FOR TIME CARDS.
5 ! PROGRAM NAME:"PRTGML" - BY JAC
10 INPUT "INPUT DATE FOR GUMMED LABELS AS: MM-DD-YY";D$
15 N%=INSTR(1%,D$,"-"):IF N%<2% OR N%>3% THEN 10 ELSE IF N%=2% THEN D$=" "+D$
20 N%=INSTR(4%,D$,"-"):IF N%<5% OR N%>6% THEN 10
25 IF N%=5% THEN D$=LEFT(D$,3%)+" "+RIGHT(D$,4%)
30 OPEN "DK1:PAYROL.MST" AS FILE 1%:DIM #1%,A$(1500%)=128%,A%(0%)
35 OPEN "LP:" FOR OUTPUT AS FILE 2%:N%=A%(0%):A$="":B$=""
40 FOR K%=1% TO N%:IF MID(A$(K%),53%,1%)=" " THEN 55
45 IF Z% THEN GOSUB 100:GOSUB 150:GOTO 55
50 GOSUB 100:Z%=-1%
55 NEXT K%
60 IF Z% THEN GOSUB 150
65 CLOSE 1%,2%:STOP
100 A$=A$+"  "+LEFT(A$(K%),24%)+" "+MID(A$(K%),37%,6%)+"   "
105 B$=B$+"  "+MID(A$(K%),54%,3%)+"-"+MID(A$(K%),57%,2%)+"-"+MID(A$(K%),59%,1%)
110 B$=B$+"-"+MID(A$(K%),60%,4%)+"-"+MID(A$(K%),64%,4%)+"."+MID(A$(K%),68%,2%)
115 B$=B$+"  "+D$+"   ":IF MID(A$(K%),53%,1%)="-" THEN F$="1" ELSE F$=" "
120 A$(K%)=LEFT(A$(K%),52%)+F$+RIGHT(A$(K%),54%):RETURN
150 PRINT #2%:PRINT #2%,A$:PRINT #2%:PRINT #2%,B$:PRINT #2%:PRINT #2%
155 A$="":B$="":Z%=0%:RETURN
160 END