10 ! PRINT 3X5 CARDS FOR PAYROLL 11 ! PROGRAM NAME PR3X5 BY CWR 20 OPEN "DK1:PAYROL.MST" AS FILE 1% 30 OPEN "LP:" FOR OUTPUT AS FILE 3%,MODE 18% 40 DIM #1,A$(1500%)=128%,A%(0%):Z%=A%(0%):Q%=1% 50 FOR I%=1% TO Z% 60 IF MID(A$(I%),118%,1%)<>"C" THEN 200 65 PRINT #3%,CHR$(129%) 70 PRINT #3%,TAB(Q%+4%);"EMP# ";MID(A$(I%),37%,6%);" ";MID(A$(I%),1%,24%);CHR$(10%) 80 PRINT #3%,TAB(Q%+4%);"FICA ";MID(A$(I%),25%,12%);CHR$(10%) 90 PRINT #3%,TAB(Q%+4%);"CODE ";MID(A$(I%),54%,3%);"-";MID(A$(I%),57%,2%); 91 PRINT #3%,"-";MID(A$(I%),59%,1%);"-";MID(A$(I%),60%,4%);"-"; 92 PRINT #3%,MID(A$(I%),64%,4%);".";MID(A$(I%),68%,2%);CHR$(10%) 110 PRINT #3%,TAB(Q%+4%);"#DEP ";MID(A$(I%),50%,2%);CHR$(10%) 120 PRINT #3%,TAB(Q%+4%);"MARITAL STATUS ";MID(A$(I%),52%,1%);CHR$(10%) 130 PRINT #3%,TAB(Q%+4%);"RETIREMENT "; 140 PRINT #3%,USING "\\-\\-\\",MID(A$(I%),43%,2%),MID(A$(I%),45%,2%);MID(A$(I%),47%,2%); 150 PRINT #3%,TAB(Q%+32%);"FICA EXEMPT ";:G9$=MID(A$(I%),49%,1%) 160 IF G9$=" " THEN PRINT #3%,"NO" ELSE PRINT #3%,"*YES-";G9$;"*" 165 PRINT #3% 170 PRINT #3%,TAB(Q%+4%);MID(A$(I%),70%,24%) 180 PRINT #3%,TAB(Q%+4%);MID(A$(I%),94%,16%);MID(A$(I%),110%,6%) 185 A$(I%)=LEFT(A$(I%),117%)+" "+RIGHT(A$(I%),119%) 200 NEXT I% 230 CLOSE 1%,3% 250 END