program st79init
      character*8 MNAME,MPASS                                           0001
      DATA MNAME,MPASS/'DEMO    ','DEMO    '/
	data POINT/0.0/,x6/0.0/,x7/0.0/
	data irst/0/
	call	cls
	call	home
	write(*,'('' SuperTrek Keyword File Management Module '')')
	write(*,'(''         Action List    '')')

      OPEN(3,FILE='KEYFILE.TRK',access='DIRECT',STATUS='NEW',
     1form='UNFORMATTED',RECL=nrec)	
      WRITE(*,10)
10    FORMAT(//' Creating KEYFILE.TRK '//)	
      DO 1 I=1,10
      WRITE(3,rec=i) MNAME,POINT,MPASS,x6,x7,irst
      MPASS='        '
1     CONTINUE                                                          0007
	CLOSE(3)
      STOP  ' KEYFILE.TRK Created'                                      0008

      WRITE(*,77777)                                                    4613
77777 FORMAT(' DO YOU WANT TO CHANGE YOUR PASSWORD (Y OR N)?')          4614
      READ(*,6,ERR=5666,END=9680)IIIII                                  4615
      IF(IIIII.NE.'Y')GO TO 5654
      WRITE(*,77888)                                                    4617
77888 FORMAT(' ENTER NEW PASSWORD:')                                    4618
      READ(*,676,END=9680)PASSX                                         4619
      IF(PASSX.EQ.IDEMO.AND.MNAME.EQ.IDEMO)GO TO 77779                  4620
      IF(MNAME.EQ.IDEMO)GO TO 5654                                      4621
      MPASS=PASSX                                                       4622
5654  WRITE(3,REC=MMKEY)MNAME,POINTS,MPASS,X6,X7,irst
      GO TO 77714                                                       4624
77779 WRITE(3,REC=MMKEY)MNAME,POINTS,MPASS,X6,X7,irst
65656 WRITE(*,77780)                                                    4626
77780 FORMAT(' DO YOU WANT TO ADD A NAME TO THE FILE (Y OR N)?')        4627
      READ(*,6,ERR=5666,END=9680)IIIII                                  4628
      IF(IIIII.NE.'Y')GO TO 77789
      WRITE(*,77781)                                                    4630
77781 FORMAT(' ENTER THE LAST NAME:')                                   4631
      READ(*,676,END=9680)NAMEX                                         4632
676   FORMAT(A8)
      WRITE(*,77783)                                                    4634
77783 FORMAT(' ENTER THE PASSWORD:')                                    4635
      READ(*,676,END=9680)PASSX                                         4636
      IIKK=0                                                            4637
      MOLDNM=IYES                                                       4638
77784 IIKK=IIKK+1                                                       4639
      READ(3,REC=IIKK,ERR=5666)MNAME,POINTS,MPASS,X6,X7                 4640
      IF(MNAME.EQ.MOLDNM)GO TO 77785                                    4641
      MOLDNM=MNAME                                                      4642
      GO TO 77784                                                       4643
77785 WRITE(3,REC=IIKK)NAMEX,POINT,PASSX,X6,X7,irst
      WRITE(*,77786)NAMEX,PASSX                                         4645
77786 FORMAT(' INDUCTEE ',A8,' HAS BEEN ADDED.  PASSWORD = ',A8)        4646
      IIKK=IIKK+1                                                       4647
      WRITE(3,REC=IIKK)NAMEX,POINT,MPASS,X6,X7,irst
      GO TO 65656                                                       4649
77789 WRITE(*,77790)                                                    4650
77790 FORMAT(' DO YOU WANT TO DISPLAY A NAME ON THE FILE (Y OR N)?')    4651
      READ(*,6,ERR=5666,END=9680)IIIII                                  4652
      IF(IIIII.NE.'Y')GO TO 88889
      WRITE(*,77791)                                                    4654
77791 FORMAT(' ENTER THE LAST NAME:')                                   4655
      READ(*,676,END=9680)NAMEX                                         4656
      IIKK=0                                                            4657
      MOLDNM=IYES                                                       4658
      NOLDNM=NAMEX                                                      4659
77794 IIKK=IIKK+1                                                       4660
      READ(3,REC=IIKK,ERR=5666)NAMEX,X,PASSX,X6,X7                      4661
      IF(NAMEX.EQ.NOLDNM)GO TO 77795                                    4662
      IF(NAMEX.EQ.MOLDNM)GO TO 77798                                    4663
      MOLDNM=NAMEX                                                      4664
      GO TO 77794                                                       4665
77795 WRITE(3,REC=IIKK)NAMEX,X,PASSX,X6,X7,irst
      WRITE(*,77796)NAMEX,PASSX                                         4667
77796 FORMAT(1X,A8,' IS ON THE FILE.  PASSWORD = ',A8)                  4668
      GO TO 77789                                                       4669
77798 WRITE(*,77797)NOLDNM                                              4670
77797 FORMAT(1X,A8,' IS NOT ON THE FILE.')                              4671
      GO TO 77789                                                       4672
88889 WRITE(*,77740)                                                    4673
77740 FORMAT(' DO YOU WANT TO ADD A HOLIDAY (Y OR N)?')                 4674
      READ(*,6,ERR=5666,END=9680)IIIII                                  4675
      IF(IIIII.NE.'Y')GO TO 77714 
      WRITE(*,77741)                                                    4677
77741 FORMAT(' ENTER THE NEXT TWO HOLIDAYS[i]:')
      READ(*,*,END=9680)NHOL1,NHOL2                                     4679
      READ(3,REC=1,ERR=5666)X1,X2,X3,X4,X5,X6,X7                        4680
      WRITE(3,REC=1)X1,X2,X3,X4,X5,NHOL1,NHOL2
9680	stop
      END                                                               0009
* * * * * * * * *    PULSIVE BEAMS    (COMMAND 6)    * * * * * * * * * *

  P