home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / ST79INIT.UTF < prev    next >
Encoding:
Text File  |  1986-12-15  |  926 b   |  34 lines
  1.     program st79init
  2.       character*8 MNAME,MPASS
  3.     logical qexist
  4.       DATA MNAME,MPASS/'master  ','shazam  '/
  5.     data POINT/0.0/,x6/0.0/,x7/0.0/
  6.     data irst/0/
  7.  
  8.     inquire(file='KEYFILE.TRK',exist=qexist)
  9.  
  10.     if(qexist) then
  11.     write(*,'('' You already have a KEYFILE.TRK file '')')
  12.     write(*,'('' So either get rid of it or rename it '')')
  13.     write(*,'('' and run me Again - Better luck next time'')')
  14.     stop
  15.     endif
  16.  
  17.       OPEN(3,FILE='KEYFILE.TRK',access='DIRECT',STATUS='NEW',
  18.      1form='UNFORMATTED',RECL=2400)    
  19.     write(*,11)
  20. 11    format(' Enter maximum number of players in keyword file: ')
  21.     read(*,*) nrec
  22.     if(nrec.le.0) nrec=10
  23.       WRITE(*,10) nrec
  24. 10    FORMAT(//' Creating KEYFILE.TRK for ',i5,' Players'//)    
  25.     j=1
  26.       DO 1 I=1,nrec
  27.       WRITE(3,rec=i) MNAME,POINT,MPASS,x6,x7,irst
  28.     mname='village '
  29.       MPASS='brian   '
  30. 1     CONTINUE
  31.     CLOSE(3)
  32.       STOP  ' KEYFILE.TRK Created' 
  33.       END
  34.