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
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 INPUT "ID#";N$
71 IF N$="END" GO TO 990
80 LET J%=J%+1
95 IF LEFT(S1$(J%),5)="99999" GO TO 400
100 IF N$<>LEFT(S1$(J%),5) GO TO 420
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 LET S$=S1$(J%)
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 70
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 "+N$
405 LET J%=1
410 GO TO 70
420 LET J%=J%+1
430 GO TO 95
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
1000 END