10 REM- PROGRAM NAME: "STU501" 20 REM- PROGRAM GENERATES REPORT CARDS FOR JUNIOR HIGH 30 OPEN "DF:TEACHR.MST" AS FILE 3 40 DIM #3,T9$(150)=16 61 OPEN "DF:CLASS.HNR" AS FILE 6 62 DIM #6,R$(300)=32 63 LET I%=1 64 LET Z$=" " 65 LET G8$=" " 66 LET G9$=" " 70 OPEN "CR:" FOR INPUT AS FILE 1 80 FIELD #1, 80 AS C$ 90 OPEN "LP:" FOR OUTPUT AS FILE 2 150 ON ERROR GOTO 260 160 GET #1 170 IF LEFT(C$,5)<>I$ THEN GOSUB 330 180 LET N$=MID(C$,38,20) !COURSE NAME 185 IF MID(C$,58,1)="B" GOTO 325 190 IF MID(C$,58,1)="A" THEN LET J%=100+VAL(MID(C$,59,1)) ELSE LET J%=VAL(MID(C$,58,2)) 200 LET R$=MID(C$,31,4) !COURSE CODE 210 LET G$=MID(C$,K%,1) !GET GRADE 220 LET E$=MID(C$,E%,1) !GET EFFORT 235 LETF$=MID(C$,70,2) !GET ABSENCES 236 IF F$="00" THEN LET F1$=" "ELSE LET F1$=F$ 240 PRINT #2,N$+" "+R$+" "+T9$(J%)+" "+MID(C$,60,1)+" "+ MID(C$,61,1)+" "+MID(C$,62,1)+" "+MID(C$,63,1)+" "+ MID(C$,64,1)+" "+MID(C$,65,1)+" "+MID(C$,66,1)+" "+ MID(C$,67,1)+" "+MID(C$,68,1)+" "+MID(C$,69,1); 241 LET X1$=MID(C$,72,2): LET X2$=MID(C$,74,2) 242 LET X3$=MID(C$,76,2): LET X4$=MID(C$,78,2) 243 IF X1$="00" THEN LET Y1$=" " ELSE LET Y1$=X1$ 244 IF X2$="00" THEN LET Y2$=" " ELSE LET Y2$=X2$ 245 IF X3$="00" THEN LET Y3$=" " ELSE LET Y3$=X3$ 246 IF X4$="00" THEN LET Y4$=" " ELSE LET Y4$=X4$ 247 PRINT #2, SPACE$(1)+F1$+" "+Y1$+" "+Y2$+" "+Y3$+" "+Y4$ 250 GOTO 160 260 IF ERR=11 GOTO 840 270 IF ERR=13 OR ERR=14 GOTO 310 280 PRINT "ERROR = ";ERR 290 STOP 300 GOTO 160 310 SLEEP(5) 320 RESUME 325 LET J%=110+VAL(MID(C$,59,1)) 326 GOTO 200 330 PRINT #2, SPACE$(78) 340 PRINT #2, SPACE$(78) 350 PRINT #2, SPACE$(78) 360 PRINT #2, "EXPLANATION OF GRADE CODES: LETTER GRADES"+ " NUMERICAL GRADES" 370 PRINT #2, SPACE$(32)+"A-SUPERIOR "+ " 1-EXCELLENT AT ALL TIMES" 380 PRINT #2, SPACE$(32)+"B-VERY GOOD "+ " 2-G00D SUSTAINED EFFORT" 390 PRINT #2, SPACE$(32)+"C-SATISFACTORY "+ "3-SATISFACTORY EFFORT" 400 PRINT #2, SPACE$(32)+"D-PASSING "+ "4-UNSATISFACTORY EFFORT" 410 PRINT #2, SPACE$(32)+"F-FAILING "+ "5-PLEASE CALL GUIDANCE DEP" 420 PRINT #2, SPACE$(32)+"I-INCOMPLETE" 430 PRINT #2, SPACE$(32)+"X-EXCUSED" 440 PRINT #2, SPACE$(32)+"P-PASSED" 450 PRINT#2, SPACE$(78) 460 PRINT #2, "PARENTS: THE LETTER GRADE REPRESENTS AN EVALUATION OF THE " 470 PRINT #2,SPACE$(9)+ "PUPILS ACTUAL PROGRESS IN THE SUBJECT. THE NUMERICAL " 480 PRINT #2, SPACE$(9)+ "GRADE REPRESENTS THE EFFORT MADE IN ACHIEVING THE LETTER " 490 PRINT #2,SPACE$(9)+ "GRADE. THE NUMBER UNDER ABSENCE IS THE RECORD OF" 500 PRINT #2, SPACE$(9)+ "DAYS ABSENT FROM THE SCHEDULED CLASS. THE " 510 PRINT #2, SPACE$(9)+ "GUIDANCE DEPARTMENT WILL DISCUSS ANY PROBLEMS WITH YOU." 520 PRINT #2, SPACE$(7)+"JUNIOR HIGH TEL: 766-2276"+ SPACE$(7)+"SENIOR HIGH TEL: 334-7921" 530 LET D9$=DATE$(0) 532 LET D8$=MID(D9$,4,6) 535 PRINT #2, SPACE$(60)+D8$ 540 PRINT #2, CHR$(12) !SKIP TO NEW PAGE 555 LET I%=I%+1 560 LET I%=I%+1 570 LET Z$=" " 680 LET I$=LEFT(C$,5) 681 PRINT #2,G8$+SPACE$(18)+"NORTH COUNTRY UNION HIGH SCHOOL"+ SPACE$(26)+G9$ 682 PRINT #2, SPACE$(25)+"NEWPORT,VERMONT 05855" 683 PRINT #2, SPACE$(78) 684 PRINT #2, SPACE$(28)+"QUARTERLY REPORT" 685 PRINT #2, SPACE$(78) 686 PRINT #2, SPACE$(78) 690 IF LEFT(I$,1)<="3" THEN LET Y$="1973" 700 IF LEFT(I$,1)="4" THEN LET Y$="1974" 710 IF LEFT(I$,1)="5" THEN LET Y$="1975" 720 IF LEFT(I$,1)="6" THEN LET Y$="1976" 730 PRINT #2, "STUDENT NAME: "+MID(C$,6,25)+SPACE$(10) 740 PRINT #2, " STUDENT NUMBER: "+I$+SPACE$(25); 760 PRINT #2, SPACE$(78) 770 PRINT #2, SPACE$(78) 780 PRINT #2, SPACE$(5)+"SUBJECT"+SPACE$(16)+"TEACHER"+ SPACE$(7)+" GRADE EFFORT ABSENCE" 790 PRINT #2, SPACE$(42)+ "1 2 3 4 F 1 2 3 4 F 1 2 3 4 F" 800 RETURN 820 PRINT "CANT FIND MASTER FOR ";LEFT(C$,5) 821 LET L%=1 830 GOTO 620 840 GOSUB 330 850 CLOSE 1,2,3,5,6 860 END