10 ! PRINT 3X5 CARDS FOR PAYROLL
11 ! PROGRAM NAME BLK3X5
30 OPEN "LP:" FOR OUTPUT AS FILE 3%
40 INPUT "HOW MANY BLANK 3X5'S ";Z%
45 A$=SPACE$(128%)
50 FOR I%=1% TO Z%
70 PRINT #3%,TAB(Q%+4%);"EMP# ";MID(A$,37%,6%);" ";MID(A$,1%,24%);CHR$(10%)
80 PRINT #3%,TAB(Q%+4%);"FICA ";MID(A$,25%,12%);CHR$(10%)
90 PRINT #3%,TAB(Q%+4%);"CODE ";MID(A$,54%,3%);"-";MID(A$,57%,2%);
91 PRINT #3%,"-";MID(A$,59%,1%);"-";MID(A$,60%,4%);"-";
92 PRINT #3%,MID(A$,64%,4%);".";MID(A$,68%,2%);CHR$(10%)
110 PRINT #3%,TAB(Q%+4%);"#DEP ";MID(A$,50%,2%);CHR$(10%)
120 PRINT #3%,TAB(Q%+4%);"MARITAL STATUS ";MID(A$,52%,1%);CHR$(10%)
130 PRINT #3%,TAB(Q%+4%);"RETIREMENT ";
140 PRINT #3%,USING "\\-\\-\\",MID(A$,43%,2%),MID(A$,45%,2%);MID(A$,47%,2%);
150 PRINT #3%,TAB(Q%+32%);"FICA EXEMPT ";
160 IF MID(A$,49%,1%)="-" THEN PRINT #3%,"YES" ELSE PRINT #3%,"NO"
165 PRINT #3%
170 PRINT #3%,TAB(Q%+4%);MID(A$,70%,24%)
180 PRINT #3%,TAB(Q%+4%);MID(A$,94%,16%);MID(A$,110%,6%)
195 PRINT #3% FOR J%=1% TO 4%
200 NEXT I%
230 CLOSE 1%,3%
250 END