01 REM- PROGRAM NAME: RECORD
02 REM- PROGRAM PRODUCES DUMMY PRINTOUT OF STUDENT RECORD
10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM #1, S1$(500)=511
25 OPEN "LP:" FOR OUTPUT AS FILE 2
27 OPEN "DF:TEACHR.MST" AS FILE 3
28 DIM #3,T$(200)=16
30 FOR J%=1 TO 500
40 LET S$=S1$(J%)
50 IF LEFT(S$,5)="31160" THEN GOTO 200
60 NEXT J%
70 STOP
200 PRINT #2, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
210 PRINT #2
220 PRINT #2, SPACE$(27)+"STUDENT RECORD"
230 PRINT #2
240 PRINT #2
250 PRINT #2, "STUDENT ID NUMBER : "+LEFT(S$,5)
260 PRINT #2, "STUDENT NAME : "+MID(S$,6,25)
265 PRINT #2
270 PRINT #2, "ADDRESS : "+MID(S$,31,20)
280 PRINT #2, SPACE$(10)+MID(S$,51,20)
290PRINT #2
295 PRINT #2, "TOWN OF RESIDENCE : "+"DERBY"
300 PRINT #2
310 PRINT #2, "PHONE NUMBER : "+MID(S$,72,3)+"-"+
     MID(S$,75,4)
320 PRINT #2
330 PRINT #2, "SEX : FEMALE"
335 PRINT #2, "BIRTH DATE : "+MID(S$,80,1)+"-"+MID(S$,81,2)+
     "-"+MID(S$,83,2)
340 PRINT #2
350 PRINT #2, "COUNSELOR :";
352 IF MID(S$,114,1)="1" THEN LET C$="ALEXANDER"
353 IF MID(S$,114,1)="2" THEN LET C$="ANDERSON"
355 IF MID(S$,114,1)="3" THEN LET C$="HAMILTON"
357 IF MID(S$,114,1)="4" THEN LET C$="MARTUCCI"
358 PRINT #2, C$
400 PRINT #2
410 PRINT #2, "2 WEEKS ATTENDENCE RECORD : MTWTFMTWTF"
420 PRINT #2, SPACE$(28)+MID(S$,117,10)
430 PRINT #2, "TOTAL NUMBER OF DAYS ABSENT : ";
440 LET A%=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))
450 PRINT #2, A%
460 PRINT #2
470 PRINT #2, "CURRENT CLASS RANK : "001"
480 PRINT #2, "GRADE POINT AVERAGE : 3.919"
490 PRINT #2
500 PRINT #2, "DRIVER ED CERTIFICATE NUMBER : T-7378"
510 PRINT #2
520 PRINT #2, "ACCUMULATED CREDITS"
530 PRINT #2, "     ENGLISH :         "+MID(S$,166,2)
540 PRINT #2, "     SOCIAL STUDIES :  "+MID(S$,168,2)
550 PRINT #2, "     SCIENCE :         "+MID(S$,170,2)
560 PRINT #2, "     MATH :            "+MID(S$,172,2)
570 PRINT #2, "     PHYS ED :         "+MID(S$,174,2)
580 PRINT #2, "     OTHERS :          "+MID(S$,178,2)
590 PRINT #2
600 PRINT #2
610 PRINT #2, "    COURSES AND GRADES THIS YEAR"
615 FOR K%=1 TO 16
620 LET M%=180+((K%-1)*20)
625 LET C$=MID(S$,M%,20)
627 IF LEFT(C$,6)=SPACE$(6) GOTO 640
630 PRINT #2, SPACE$(5)+LEFT(C$,4)+SPACE$(3)+MID(C$,7,5)+" "+
     MID(C$,12,5)+" ";
631 IF MID(C$,5,1)="B" THEN GOTO 700
632 IF MID(C$,5,1)="A" THEN LET L%=100+VAL(MID(C$,6,1)) ELSE
     LET L%=VAL(MID(C$,5,2))
635 PRINT #2, T$(L%)
640 NEXT K%
650 GOTO 1000
700 LET L%=110+VAL(MID(S$,6,1))
710 GOTO 635
1000 CLOSE 1,2
1010 END