home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / DEDUCT.370 < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.8 KB  |  21 lines
  1.  
  2.       DOUBLE PRECISION MNAME,MPASS                                      00010000
  3.       DEFINE FILE 9(1,24,L,IV)                                          00020000
  4.       DEFINE FILE 3(50,2400,L,IV)                                       00030000
  5.       CALL ERRSET(201,256,-1,1,1,204)                                   00040000
  6.       CALL ERRSET(206,256,-1,1,1,229)                                   00050000
  7.       CALL ERRSET(231,256,-1,1,1,239)                                   00060000
  8.       CALL ERRSET(241,256,-1,1,1,301)                                   00070000
  9.       READ(9'1)MNAME,POINTS,MPASS,IIKK                                  00080000
  10.       IF(IIKK.EQ.0)GO TO 99                                             00090000
  11.       IF(POINTS.LT.1.)GO TO 99                                          00100000
  12.       POINTS=POINTS-5.                                                  00110000
  13.       IF(POINTS.LT.1)POINTS=1.                                          00120000
  14.       READ(3'IIKK)MNAME,X,MPASS,X1,X2                                   00130000
  15.       WRITE(3'IIKK)MNAME,POINTS,MPASS,X1,X2                             00140000
  16.       IIKK=0                                                            00150000
  17.       WRITE(9'1)MNAME,POINTS,MPASS,IIKK                                 00160000
  18. 99    STOP                                                              00170000
  19.       END                                                               00180000
  20. /*                                                                      01570000
  21. >