05 ! PROGRAM NAME "RET005"
10 OPEN "DF:EMPLOY.RET" AS FILE 1
20 DIM#1, R1$(500)=64
30 OPEN "LP:" AS FILE 2
40 PRINT #2, "STATE TEACHERS' RETIREMENT SYSTEM OF VERMONT"
   +SPACE$(26)+"PR #"
50 PRINT#2, "1973-1974"
60 PRINT#2, "FORM 6 PAYROLL-DEDUCTION REPORT"
70 PRINT#2:PRINT#2
80 PRINT#2, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
90 PRINT#2
100 PRINT#2, "REPORT PERIOD BEGINNING JULY 1, 1973 AND ENDING DEC 31,1973."
110 PRINT#2, "PAYROLL PERIOD:  EVERY 2 WEEKS."
120 PRINT#2
130 PRINT#2, "SUMMARY OF PAYROLL DEDUCTIONS"
140 LET I=I+1
150 IF LEFT(R1$(I),6)="999999" GOTO 180
160 LET S=S+(VAL(MID(R1$(I),55,7))/100)
170 GOTO 140
180 PRINT#2, SPACE$(5)+"(1) REGULAR DEDUCTIONS"+SPACE$(13);
190 PRINT#2, USING "$###,###.##",S
200 PRINT#2, SPACE$(5)+'(2) "ADDITIONAL" DEDUCTIONS'+SPACE$(8)+"$      0.00"
210 PRINT#2, SPACE$(40)+"-----------"
215 PRINT#2, SPACE$(5)+"(3) TOTAL REPORTED AND REMITTED    ";
220 PRINT#2, USING "$###,###.##",S;
230 PRINT#2, " BY CHECK #":PRINT#2:PRINT#2:PRINT#2
240 PRINT#2, SPACE$(15)+"SIGNATURE:  MR."
250 PRINT#2, "---------------"+SPACE$(15)+"------------------------------"
260 PRINT#2, "    (DATE)"
270 PRINT#2, "BUSINESS MANAGER"+SPACE$(14)+"VETERANS AVENUE"
280 PRINT#2, SPACE$(30)+"NEWPORT, VT 05855"
290 PRINT#2
300 PRINT#2, "ITEMIZED REPORT OF MEMBERS' DEDUCTIONS"
310 PRINT#2:PRINT#2
315 LET F$="###.   #####  "+SPACE$(40)+"   $###.##"
316 LET F1$="###."+SPACE$(50)+"   $###.##"
318 PRINT#2, "  1.    2612  BARKER, JR., JOHN D., MR.     REPORTED BY ORLEANS-ESSEX NORTH"
319 PRINT#2, SPACE$(44)+"SUPERVISORY UNION": PRINT#2
320 FOR I=1 TO 500
330 LET R$=R1$(I)
340 IF LEFT(R$,6)="999999" GOTO 430
350 LET L=VAL(MID(R$,7,3))
360 LET A%=VAL(MID(R$,10,5))
370 LET D=VAL(MID(R$,55,7))/100
375 IF A%=0 GOTO 385
380 PRINT#2, USING F$, L,A%,D;
383 GOTO 390
385 PRINT#2, USING F1$,L,D;
390 PRINT#2, CHR$(13);
400 PRINT#2, SPACE$(14)+MID(R$,15,40)
410 PRINT#2
420 NEXT I
430 PRINT#2, "      TOTAL DEDUCTIONS REPORTED"+SPACE$(21);
435 PRINT#2, USING " $###,###.##",S
440 CLOSE 1,2
450 END