10 REM PROGRAM NAME* "STU015"
20 REM PROGRAM RECORDS ABSENTEEISM ANS UPDATES STUDENT RECORD
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM#1, S1$(500)=510
50 OPEN "LP:" FOR OUTPUT AS FILE 2
60 OPEN "CR:" FOR INPUT AS FILE 3
62 INPUT "ENTER BIWEEKLY PERIOD AND DAY (1WED,2MON,ETC)";I$
64 IF LEFT(I$,1)="1" THEN LET I=1 ELSE LET I=6
65 IF MID(I$,2,3)="TUE" THEN LET I=I+1
66 IF MID(I$,2,3)="WED" THEN LET I=I+2
67 IF MID(I$,2,3)="THR" THEN LET I=I+3
68 IF MID(I$,2,3)="FRI" THEN LET I=I+4
69 LET I8=I
70 FIELD #3, 80 AS C$
71 PRINT#2,SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
72 PRINT#2, SPACE$(22)+"ABSENTEE LIST FOR "+DATE$(0)
73 PRINT#2, SPACE$(78)
74 PRINT#2,"ID#"+SPACE$(11)+"NAME"+SPACE$(21)+"2 WK PICTURE"+
   SPACE$(5)+"YTD"
75 PRINT#2, SPACE$(41)+"MTWTFMTWTF"+SPACE$(5)+"TOTAL"
77 ON ERROR GOT O 500
80 LET J%=J%+1
90 GET#3
95 IF LEFT(S1$(J%),5)="99999" GO TO 400
100 IF LEFT(C$,5)<>LEFT(S1$(J%),5) GOTO 420
120 PRINT#2, LEFT(S1$(J%),5)+" "+MID(S1$(J%),6,25)+SPACE$(10);
130 LET P1$=MID(S1$(J%),117,10)
133 LET I=I8
135 LET I2=10-I
136 LET I3=I-1
137 LET I1=I+1
138 IF I1=2 THEN GO TO 250
139 IF I3=9 GO TO 260
140 LET P1$=MID(P1$,1,I3)+"*"+MID(P1$,I1,I2)
145 PRINT#2,P1$;
146 LET S$=S1$(J%)
147 LET S=VAL(MID(S$,127,2))+VAL(MID(S$,129,2))+VAL(MID(S$,131,2))+
   VAL(MID(S$,133,2))+VAL(MID(S$,135,2))
148 LET W=S+1: GOSUB 550
149 PRINT#2,SPACE$(5)+W$;
155 IF MID(S$,146,1)="D" OR MID(S$,146,1)="V" THEN PRINT#2,
    "     **DROPPED**" ELSE PRINT#2, " "
160 IF I>5 THEN LET I=I-5
165 LET I=(I*2)-1
166 LET P3$=MID(S1$(J%),127,10)
168 LET W=VAL(MID(P3$,I,2))
170 LET W=W+1
175 GOSUB 550
180 IF I=1 GO TO 240
182 IF I=9 GO TO 247
183 LET I5=I-1: LET I6=I+2: LET I7=(10-I6)+1
184 LET P3$=MID(P3$,1,I5)+W$+MID(P3$,I6,I7)
185 LET S1$(J%)=LEFT(S1$(J%),116)+P1$+P3$+MID(S1$(J%),137,374)
186 GO TO 80
240 LET P3$=W$+MID(P3$,3,8)
245 GO TO 185
247 LET P8$=P3$
248 LET P3$=LEFT(P8$,8)+W$
249 GOTO 185
250 LET P1$="*"+MID(P1$,2,9)
255 GO TO 145
260 LET P1$=MID(P1$,1,9)+"*"
265 GO TO 145
400 PRINT"CANNOT FIND MASTER FOR ID# "+LEFT(C$,5)
401 PRINT#2, LEFT(C$,30)+SPACE$(9)+"STUDENT NOT IN MASTER FILE"
405 LET J%=1
410 GO TO 90
420 LET J%=J%+1
430 GO TO 95
500 IF ERR=11 GO TO 990
505 IF ERR=13 OR ERR=14 GO TO 525
510 PRINT "ERROR =";ERR
520 STOP
525 SLEEP(2)
526 RESUME
550 LET X9$=NUM$(W)
551 LET N=1
555 LET A=LEN(X9$)
560 LET A=A-1
562 IF A>2 THEN 605
565 LET W$=MID(X9$,N,A)
570 IF A=2 THEN 600
575 LET M=2-A
580 LET W$=SPACE$(M)+W$
600 RETURN
605 LET N=N+1
607 GO TO 560
990 CLOSE 1,2,3
1000 END