IDENTIFICATION DIVISION.
       PROGRAM-ID. LAB1-1.
       
      *************************************************************
      *  THIS PROGRAM COMPUTES THE OVERALL GRADES OF STUDENTS AND *
      *  DISPLAYS THEM WITH THEIR NAMES. AT END OF THE PROGRAM,   *
      *  IT WILL BE SEEN AVERAGE OF MIDTERM1 , MIDTERM2 AND FINAL *
      *  EXAMINATIONS RESULT ON THE SCREEN.                       *
      *************************************************************

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 NAME PIC X(20).
       77 MT1  PIC 9(3).
       77 MT2  PIC 9(3).
       77 FIN  PIC 9(3).
       77 OVER PIC 9(3).9(2).
       77 CNT1 PIC 999  VALUE ZERO.
       77 CNT2 PIC 999  VALUE ZERO.
       77 CNT3 PIC 999  VALUE ZERO.
       77 TOT1 PIC 9(8) VALUE ZERO.
       77 TOT2 PIC 9(8) VALUE ZERO.
       77 TOT3 PIC 9(8) VALUE ZERO.
       77 FLAG PIC X.   
       01 LINE1.
	  05 FILLER PIC X(10) VALUE SPACES.
	  05 FILLER PIC X(8)  VALUE "MIDTERM1".
	  05 FILLER PIC X(5)  VALUE SPACES.
	  05 FILLER PIC X(8)  VALUE "MIDTERM2".
	  05 FILLER PIC X(5)  VALUE SPACES.
	  05 FILLER PIC X(5)  VALUE "FINAL".
       01 LINE2.
	  05 FILLER PIC X(10) VALUE SPACES.
	  05 FILLER PIC X(8)  VALUE ALL "-".
	  05 FILLER PIC X(5)  VALUE SPACES.
	  05 FILLER PIC X(8)  VALUE ALL "-".
	  05 FILLER PIC X(5)  VALUE SPACES.
	  05 FILLER PIC X(5)  VALUE ALL "-".
       01 LINE3.
	  05 FILLER PIC X(7)  VALUE "AVERAGE".
       77 RES1   PIC 9(3).9(2).
       77 RES2   PIC 9(3).9(2).
       77 RES3   PIC 9(3).9(2).
       PROCEDURE DIVISION.
       MAIN.
	   DISPLAY "ENTER THE STUDENT NAME...".
	   ACCEPT NAME NO BEEP.
	   IF NAME = "  "
	     DISPLAY "THIS IS THE END OF THE OPERATION..." 
	     GO TO MAIN1.
	   DISPLAY "ENTER THE FIRST MIDTERM...".
	   ACCEPT MT1 NO BEEP.
	   DISPLAY "ENTER THE SECOND MIDTERM...".
	   ACCEPT MT2 NO BEEP.
	   DISPLAY "ENTER THE FINAL...".
	   ACCEPT FIN NO BEEP.
	   COMPUTE OVER = 0.3 * MT1 + 0.3 * MT2 + 0.4 * FIN.
	   DISPLAY NAME  "         "  OVER  "       ".
	   ADD 1 TO CNT1.
	   ADD 1 TO CNT2.
	   ADD 1 TO CNT3.
	   ADD MT1 TO TOT1.
	   ADD MT2 TO TOT2.
	   ADD FIN TO TOT3.
	   GO TO MAIN.

       MAIN1.
	   ACCEPT FLAG NO BEEP.    
	   DISPLAY SPACES LINE 1 POSITION 1 ERASE.     
	   DISPLAY "PRESS ANY KEY NO CONTINUE...".
	   ACCEPT FLAG NO BEEP.
	   COMPUTE RES1 = TOT1 / CNT1.   
	   COMPUTE RES2 = TOT2 / CNT2.
	   COMPUTE RES3 = TOT3 / CNT3. 
	   DISPLAY LINE1 LINE 4 POSITION 3.
	   DISPLAY LINE2 LINE 5 POSITION 3.
	   DISPLAY LINE3 LINE 6 POSITION 3.
	   DISPLAY RES1 LINE 6 POSITION 14.
	   DISPLAY RES2 LINE 6 POSITION 27.
	   DISPLAY RES3 LINE 6 POSITION 39.
	   STOP RUN.

 PROGRAM-2 

       IDENTIFICATION DIVISION.
       PROGRAM-ID. LAB1-2.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SCIENCE-FILE
           ASSIGN TO RANDOM "CEL.DAT"
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD SCIENCE-FILE.
       01 SCIENCE-REC.
           05 CEL PIC 9(3).
           05 F   PIC 9(4).9(2).
       PROCEDURE DIVISION.
       PART1.
           OPEN OUTPUT SCIENCE-FILE.

       PART2.
           DISPLAY "ENTER THE CELSIUS....".
           ACCEPT CEL.
           IF CEL IS  GREATER THAN 0 
              COMPUTE F = (9 / 5 ) * CEL + 32
              WRITE SCIENCE-REC
              GO TO PART2
           ELSE
               GO TO PART3.

       PART3.    
           CLOSE SCIENCE-FILE.
           STOP RUN.