10 REM- PROGRAM NAME: "STU801" 20 REM-PROGRAM COMPUTES GRADE POINT AVERAGE FOR SENIORS *********7TH SEMESTER ONLY************ *********TREATS ALL COURSES AS MINI COURSES BY COMPUTING G.P. AVE FOR EACH QUARTER************ 30 OPEN "DF:STUDNT.MST" AS FILE 1 40 DIM #1, S1$(500)=511 50 OPEN "CR:" FOR INPUT AS FILE 2 60 FIELD #2, 80 AS C$ 70 OPEN "LP:" FOR OUTPUT AS FILE 3 80 ON ERROR GOTO 700 90 LET I1$=" " 100 GET #2 110 LET I$=LEFT(C$,5) !ID # FROM CARD 120 LET S$=S1$(J%) 130 IF I$>I1$ THEN GOSUB 380 140 IF I$="F" THEN GOTO 360 !NO CREDIT 220 IF G$="A" THEN GOTO 280 230 IF G$="B" THEN GOTO 300 240 IF G$="C" THEN GOTO 320 250 IF G$="D" THEN GOTO 340 260 STOP 270 GOTO 100 280 LET S=S+(C*4000) 290 GOTO 350 300 LET S=S+(C*3000) 310 GOTO 350 320 LET S=S+(C*2000) 330 GOTO 350 340 LET S=S+(C*1000) 350 LET N=N+C 360 NEXT N% 370 GOTO 100 380 IF I1$=" " THEN GOTO 450 390 IF S=0 GOTO 450 400 LET S=S/N 410 LET R=R+S 430 LET R%=R/W 440 GOSUB 560 450 LET J%=J%+1 460 LET S$=S1$(J%) 470 IF LEFT(S$,5)4 GOTO 670 610 LET T1$=MID(T$,N5,A) 620 LET M=4-A 630 LET T$=SPACE$(M)+T1$ 640 LET S1$(J%)=LEFT(S$,139)+T$+"7"+MID(S$,145,367) 650 PRINT #3, LEFT(S$,30)+" "+LEFT(T$,1)+"."+MID(T$,2,3) 660 RETURN 670 LET N5=N5+1 680 LET A=A-1 690 GOTO 600 700 IF ERR=11 GOTO 760 710 IF ERR=14 GOTO 740 720 PRINT "ERROR= ";ERR 730 STOP 740 SLEEP(2) 750 RESUME 760 IF N=0 GOTO 810 770 LET S=S/N 780 LET R=R+S 790 LET R%=R/W 800 GOSUB 560 810 CLOSE 1,2,3 820 END