home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / TINIT.UTF < prev    next >
Encoding:
Text File  |  1986-12-15  |  5.7 KB  |  93 lines
  1.     program st79init
  2.       character*8 MNAME,MPASS                                           0001
  3.       DATA MNAME,MPASS/'DEMO    ','DEMO    '/
  4.     data POINT/0.0/,x6/0.0/,x7/0.0/
  5.     data irst/0/
  6.     call    cls
  7.     call    home
  8.     write(*,'('' SuperTrek Keyword File Management Module '')')
  9.     write(*,'(''         Action List    '')')
  10.  
  11.       OPEN(3,FILE='KEYFILE.TRK',access='DIRECT',STATUS='NEW',
  12.      1form='UNFORMATTED',RECL=nrec)    
  13.       WRITE(*,10)
  14. 10    FORMAT(//' Creating KEYFILE.TRK '//)    
  15.       DO 1 I=1,10
  16.       WRITE(3,rec=i) MNAME,POINT,MPASS,x6,x7,irst
  17.       MPASS='        '
  18. 1     CONTINUE                                                          0007
  19.     CLOSE(3)
  20.       STOP  ' KEYFILE.TRK Created'                                      0008
  21.  
  22.       WRITE(*,77777)                                                    4613
  23. 77777 FORMAT(' DO YOU WANT TO CHANGE YOUR PASSWORD (Y OR N)?')          4614
  24.       READ(*,6,ERR=5666,END=9680)IIIII                                  4615
  25.       IF(IIIII.NE.'Y')GO TO 5654
  26.       WRITE(*,77888)                                                    4617
  27. 77888 FORMAT(' ENTER NEW PASSWORD:')                                    4618
  28.       READ(*,676,END=9680)PASSX                                         4619
  29.       IF(PASSX.EQ.IDEMO.AND.MNAME.EQ.IDEMO)GO TO 77779                  4620
  30.       IF(MNAME.EQ.IDEMO)GO TO 5654                                      4621
  31.       MPASS=PASSX                                                       4622
  32. 5654  WRITE(3,REC=MMKEY)MNAME,POINTS,MPASS,X6,X7,irst
  33.       GO TO 77714                                                       4624
  34. 77779 WRITE(3,REC=MMKEY)MNAME,POINTS,MPASS,X6,X7,irst
  35. 65656 WRITE(*,77780)                                                    4626
  36. 77780 FORMAT(' DO YOU WANT TO ADD A NAME TO THE FILE (Y OR N)?')        4627
  37.       READ(*,6,ERR=5666,END=9680)IIIII                                  4628
  38.       IF(IIIII.NE.'Y')GO TO 77789
  39.       WRITE(*,77781)                                                    4630
  40. 77781 FORMAT(' ENTER THE LAST NAME:')                                   4631
  41.       READ(*,676,END=9680)NAMEX                                         4632
  42. 676   FORMAT(A8)
  43.       WRITE(*,77783)                                                    4634
  44. 77783 FORMAT(' ENTER THE PASSWORD:')                                    4635
  45.       READ(*,676,END=9680)PASSX                                         4636
  46.       IIKK=0                                                            4637
  47.       MOLDNM=IYES                                                       4638
  48. 77784 IIKK=IIKK+1                                                       4639
  49.       READ(3,REC=IIKK,ERR=5666)MNAME,POINTS,MPASS,X6,X7                 4640
  50.       IF(MNAME.EQ.MOLDNM)GO TO 77785                                    4641
  51.       MOLDNM=MNAME                                                      4642
  52.       GO TO 77784                                                       4643
  53. 77785 WRITE(3,REC=IIKK)NAMEX,POINT,PASSX,X6,X7,irst
  54.       WRITE(*,77786)NAMEX,PASSX                                         4645
  55. 77786 FORMAT(' INDUCTEE ',A8,' HAS BEEN ADDED.  PASSWORD = ',A8)        4646
  56.       IIKK=IIKK+1                                                       4647
  57.       WRITE(3,REC=IIKK)NAMEX,POINT,MPASS,X6,X7,irst
  58.       GO TO 65656                                                       4649
  59. 77789 WRITE(*,77790)                                                    4650
  60. 77790 FORMAT(' DO YOU WANT TO DISPLAY A NAME ON THE FILE (Y OR N)?')    4651
  61.       READ(*,6,ERR=5666,END=9680)IIIII                                  4652
  62.       IF(IIIII.NE.'Y')GO TO 88889
  63.       WRITE(*,77791)                                                    4654
  64. 77791 FORMAT(' ENTER THE LAST NAME:')                                   4655
  65.       READ(*,676,END=9680)NAMEX                                         4656
  66.       IIKK=0                                                            4657
  67.       MOLDNM=IYES                                                       4658
  68.       NOLDNM=NAMEX                                                      4659
  69. 77794 IIKK=IIKK+1                                                       4660
  70.       READ(3,REC=IIKK,ERR=5666)NAMEX,X,PASSX,X6,X7                      4661
  71.       IF(NAMEX.EQ.NOLDNM)GO TO 77795                                    4662
  72.       IF(NAMEX.EQ.MOLDNM)GO TO 77798                                    4663
  73.       MOLDNM=NAMEX                                                      4664
  74.       GO TO 77794                                                       4665
  75. 77795 WRITE(3,REC=IIKK)NAMEX,X,PASSX,X6,X7,irst
  76.       WRITE(*,77796)NAMEX,PASSX                                         4667
  77. 77796 FORMAT(1X,A8,' IS ON THE FILE.  PASSWORD = ',A8)                  4668
  78.       GO TO 77789                                                       4669
  79. 77798 WRITE(*,77797)NOLDNM                                              4670
  80. 77797 FORMAT(1X,A8,' IS NOT ON THE FILE.')                              4671
  81.       GO TO 77789                                                       4672
  82. 88889 WRITE(*,77740)                                                    4673
  83. 77740 FORMAT(' DO YOU WANT TO ADD A HOLIDAY (Y OR N)?')                 4674
  84.       READ(*,6,ERR=5666,END=9680)IIIII                                  4675
  85.       IF(IIIII.NE.'Y')GO TO 77714 
  86.       WRITE(*,77741)                                                    4677
  87. 77741 FORMAT(' ENTER THE NEXT TWO HOLIDAYS[i]:')
  88.       READ(*,*,END=9680)NHOL1,NHOL2                                     4679
  89.       READ(3,REC=1,ERR=5666)X1,X2,X3,X4,X5,X6,X7                        4680
  90.       WRITE(3,REC=1)X1,X2,X3,X4,X5,NHOL1,NHOL2
  91. 9680    stop
  92.       END                                                               0009
  93.