05 REM- PROGRAM NAME:"STU833"
06 REM- PROGRAM GENERATES LETTER TO PARENT REGARDING CLASS CUTS.
10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM #1, S1$(400)=511
21 OPEN "DF:TEACHR.MST" AS FILE 4
22 DIM #4,T$(200)=16
25 OPEN "LP:" FOR OUTPUT AS FILE 3
30 OPEN "CR:" FOR INPUT AS FILE 2
40 FIELD #2, 80 AS C$
41 ON ERROR GOTO 700
45 INPUT "ENTER QUARTER";N%
46 LET N%=N%-1
47 LET N9%=70+(2*N%)
50 GET #2
60 IF LEFT(C$,5)<>I1$ GOTO 310
70 IF MID(C$,N9%,2)>"10" GOTO 500
80 GOTO 50
300 LET J%=J%+1
301 IF LEFT(S1$(J%),5)<>LEFT(C$,5) GOTO 300
302 LET N1$=MID(S1$(J%),21,9)
305 LET X$=MID(S1$(J%),79,1)
306 LET P$=MID(S1$(J%),85,20)
307 LET A1$=MID(S1$(J%),31,20)
308 LET A2$=MID(S1$(J%),51,20)
309 LET I1$=LEFT(S1$(J%),5): GOTO 70
310 IF L%=0 GOTO 300
320 LET L%=0
325 PRINT #3
330 PRINT #3,
"     AS INDICATED, WE ARE EXTREMELY CONCERNED ABOUT THE"
332 PRINT #3,
"FUTURE OF OUR STUDENTS, YET WITHOUT CLOSE PARENTAL SUPPORT AND"
333 PRINT #3,
"COOPERATION WE ARE LIMITED IN OUR CHANCES TO SUCCEED. PLEASE GIVE"
334 PRINT #3,
"US YOUR HELP SO THAT "+N1$+"'S EDUCATIONAL EXPERIENCE AT NORTH"
335 PRINT #3,
"COUNTRY WILL PROVE TO BE BOTH BENEFICIAL AND WORTHWHILE."
337 PRINT #3
338 PRINT #3
339 PRINT #3, SPACE$(39)+"SINCERELY YOURS,"
340 PRINT #3
345 PRINT #3, SPACE$(39)+"LEO J. SULLIVAN"
347 PRINT #3, SPACE$(39)+"ASSOCIATE PRINCIPAL"
400 PRINT #3, CHR$(12)
410 GOTO 300
500 IF L%>0 GOTO 600
510 PRINT #3, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
513 PRINT #3
515 PRINT #3,SPACE$(27)+"VETERANS AVENUE"
520 PRINT #3, SPACE$(27)+"NEWPORT, VERMONT"
522 PRINT #3
530 PRINT #3, "DEAR PARENT,"
533 IF X$="F" THEN LET X1$="DAUGHTER'S"
534 IF X$="M" THEN LET X1$="SON'S"
535 IF X$=" " THEN LET X1$="        "
537 PRINT #3,
"     RECENTLY YOU RECEIVED YOUR "+X1$+" REPORT CARD. AMONG"

540 PRINT #3,
"THE INFORMATION RECORDED ON THIS REPORT WAS THE NUMBER OF CLASS CUTS"
542 PRINT #3, "WHICH WERE UNEXCUSED."
544 PRINT #3
546 PRINT #3,
"     WE AT NORTH COUNTRY, WHO ARE DEEPLY CONCERNED WITH "+N1$+"'S"
548 PRINT #3,
"PERFORMANCE, FEEL THAT THESE CUTS WERE EXCESSIVE AND THUS DETRIMENTAL"
550 PRINT #3,
"TO ANY CHANCES OF SUCCESS NOW OR IN THE FUTURE. WE FEEL TOO"
552 PRINT #3,
"THAT SINCE "+N1$+" WAS AMONG THAT PERCENTAGE OF OUR STUDENT BODY"
554 PRINT #3,
"WHO ARE CONSIDERED SERIOUS CUT PROBLEMS BY THE STAFF YOU SHOULD"
556 PRINT #3,
"DISCUSS THIS PROBLEM AT HOME AND TRY TO REMEDY IT."
558 PRINT #3
560 PRINT #3,
"     THE CUTS, AS YOU KNOW, WERE AS FOLLOWS:"
562 PRINT #3,
"      CLASS          TEACHER           NUMBER"
565 IF MID(C$,58,1)="B" GOTO 800
566 IF MID(C$,58,1)="A" THEN LET B%=100+VAL(MID(C$,59,1)) ELSE
    LET B%=VAL(MID(C$,58,2))
568 PRINT #3,MID(C$,38,20)+"   "+T$(B%)+SPACE$(8)+
     MID(C$,N9%,2)
570 LET L%=L%+1
600 GOTO 50
700 IF ERR=11 GOTO 1000
710 IF ERR=14 GOTO 750
720 PRINT "ERROR = ";ERR
730 STOP
750 SLEEP(2)
760 RESUME
800 LET B%=110+VAL(MID(C$,59,1))
810 GOTO 568
1000 END