home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / DEDUCT.UTF < prev    next >
Encoding:
Text File  |  1986-12-15  |  642 b   |  24 lines
  1.       character*8 MNAME,MPASS
  2.  
  3.     call cls
  4.     call home
  5.     write(*,'('' Suprtrek Point Deduct Module V. 1.0 '')')
  6.     
  7.       OPEN(9,FILE='DATAFIL.TRK',ACCESS='DIRECT',RECL=24)
  8.       OPEN(3,FILE='KEYFIL.TRK',ACCESS='DIRECT',RECL=600)
  9.       READ(9,rec=1)MNAME,POINTS,MPASS,IIKK
  10.       IF(IIKK.EQ.0)GO TO 99
  11.       IF(POINTS.LT.1.)GO TO 99
  12.       POINTS=POINTS-5.
  13.     iikk=(iikk-1)*4
  14.     if (iikk.le.0) iikk=1
  15.       IF(POINTS.LT.1)POINTS=1.
  16.       READ(3,rec=IIKK)MNAME,X,MPASS,X1,X2
  17.       WRITE(3,rec=IIKK)MNAME,POINTS,MPASS,X1,X2
  18.       IIKK=0
  19.       WRITE(9,rec=1)MNAME,POINTS,MPASS,IIKK
  20. 99    CLOSE(9)
  21.       CLOSE(3)
  22.       STOP
  23.       END
  24.