home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / CODE3_4.ZIP / INSTALL3.FOR < prev    next >
Encoding:
Text File  |  1986-12-01  |  5.5 KB  |  179 lines
  1. $DEBUG
  2.       PROGRAM INSTALL3
  3. C
  4. C     ********************************************************
  5. C     *                                                      *
  6. C     *     INSTALLER CONFIGURATOR FOR PC-CODE3   v1.0       *
  7. C     *     (C) COPYRIGHT RICHARD NOLEN COLVARD   Apr-86     *
  8. C     *         COMMERCIAL RIGHTS RESERVED                   *
  9. C     *         MICROSOFT (MS FORTRAN V3.3)                  *
  10. C     *                                                      *
  11. C     ********************************************************
  12. C
  13.       INTEGER*2   IERR,ILOW,IHIGH,IFREQ
  14.       CHARACTER*1 IYES,ISEC,ITRANS,IINP,IOUT
  15.       DATA IERR / 0 /
  16. C
  17.    5  FORMAT(1X,/)
  18.       WRITE(*,5)
  19.       WRITE(*,10)
  20.   10  FORMAT(10X,'PC-CODE3  INSTALLER/CONFIGURATOR  v1.0',//)
  21.   20  FORMAT(10X,'(c) Copyright R. Nolen COLVARD Company 1986')
  22.   22  FORMAT(10X,'    Commercial Rights Reserved')
  23.   24  FORMAT(10X,'(c) Copyright Microsoft Corp 1985')
  24.   26  FORMAT(10X,'    Microsoft FORTRAN V3.3',//)
  25.       WRITE(*,20)
  26.       WRITE(*,22)
  27.       WRITE(*,24)
  28.       WRITE(*,26)
  29. C
  30. C
  31.       OPEN(9,FILE='CONFIG.PC3',FORM='FORMATTED',ACCESS='SEQUENTIAL',
  32.      +       STATUS='NEW',IOSTAT=IERR)
  33. C
  34. C
  35.   30  FORMAT(5X,'*** PROBLEM CREATING "config.pc3" CANNOT CONTINUE')
  36.   40  FORMAT(5X,'    SESSION ABORTED; CANNOT CONTINUE',//)
  37.       IF (IERR .GT. 0) THEN
  38.          WRITE(*,30)
  39.          WRITE(*,40)
  40.          STOP 99
  41.       ENDIF
  42. C
  43. C
  44.   49  WRITE(*,5)
  45.   50  FORMAT(5X,'ENTER SECURITY MODE (1 to 3) FOR ALGORITHM TO USE')
  46.   55  FORMAT(5X,'      PLEASE ENTER "1" OR "2" OR "3" ')
  47.       WRITE(*,50)
  48.       WRITE(*,55)
  49.       READ(*,60) ISEC
  50.       IF ( (ISEC .LT. '1') .OR. (ISEC .GT. '3') ) GOTO 49
  51.   60  FORMAT(A1)
  52.       WRITE(9,70) ISEC
  53.   70  FORMAT(A1,12X,'<------- SECURITY ALGORITHM')
  54. C
  55. C
  56.   54  WRITE(*,5)
  57.   51  FORMAT(5X,'READ KEYS FROM A FILE (Yes or No)')
  58.   52  FORMAT(5X,'      PLEASE ENTER "Y" OR "N" ')
  59.       WRITE(*,51)
  60.       WRITE(*,52)
  61.       READ(*,60) IYES
  62.       IF (IYES .EQ. 'y') IYES = 'Y'
  63.       IF (IYES .EQ. 'n') IYES = 'N'
  64.       IF ( (IYES .NE. 'Y') .AND. (IYES .NE. 'N') ) GOTO 54
  65.       WRITE(9,53) IYES
  66.   53  FORMAT(A1,12X,'<------- KEYS TO BE READ FROM A FILE')
  67. C
  68. C
  69.   79  WRITE(*,5)
  70.   80  FORMAT(5X,'ENTER IF TRASPOSITION (SCRAMBLING) IS REQUIRED')
  71.   85  FORMAT(5X,'      PLEASE ENTER "Y" OR "N" ')
  72.       WRITE(*,80)
  73.       WRITE(*,85)
  74.       READ(*,60) ITRANS
  75.       IF (ITRANS .EQ. 'y') ITRANS = 'Y'
  76.       IF (ITRANS .EQ. 'n') ITRANS = 'N'
  77.       IF ( (ITRANS .NE. 'Y') .AND. (ITRANS .NE. 'N') ) GOTO 79
  78.       WRITE(9,90) ITRANS
  79.   90  FORMAT(A1,12X,'<------- TRANSPOSITION')
  80. C
  81. C
  82.   99  WRITE(*,5)
  83.  100  FORMAT(5X,'ENTER THE LOWEST RANGE OF ASCII CHARACTER NUMBER')
  84.  105  FORMAT(5X,'      LOWER LIMIT IS 0; RECOMMEND 32 AS LOWEST')
  85.       WRITE(*,100)
  86.       WRITE(*,105)
  87.       READ(*,110) ILOW
  88.       IF (ILOW .LT. 0) GOTO 99
  89.       IF (ILOW .GT. 128) GOTO 99
  90.  110  FORMAT(I3)
  91.       WRITE(9,115) ILOW
  92.  115  FORMAT(I3,10X,'<------- LOWEST ASCII CHARACTER')
  93. C
  94. C
  95.  119  WRITE(*,5)
  96.  120  FORMAT(5X,'ENTER THE HIGHEST RANGE OF ASCII CHARACTER NUMBER')
  97.  125  FORMAT(5X,'      UPPER LIMIT IS 255; RECOMMEND 125')
  98.       WRITE(*,120)
  99.       WRITE(*,125)
  100.       READ(*,110) IHIGH
  101.       IF (IHIGH .GT. 255) GOTO 119
  102.       IF (IHIGH .LT. ILOW) GOTO 119
  103.       WRITE(9,130) IHIGH
  104.  130  FORMAT(I3,10X,'<------- HIGHEST ASCII CHARACTER')
  105. C
  106. C
  107.  139  WRITE(*,5)
  108.  140  FORMAT(5X,'ENTER THE WHETHER A FILE HEADER IS TO BE USED')
  109.  145  FORMAT(5X,'      THIS SIGNIFIES ENCODED FILES FOR SAFETY SAKE')
  110.  147  FORMAT(5X,'      PLEASE ENTER "Y" OR "N" (YES OR NO)')
  111.       WRITE(*,140)
  112.       WRITE(*,145)
  113.       WRITE(*,147)
  114.       READ(*,60) IYES
  115.       IF (IYES .EQ. 'y') IYES = 'Y'
  116.       IF (IYES .EQ. 'n') IYES = 'N'
  117.       IF ( (IYES .NE. 'Y') .AND. (IYES .NE. 'N') ) GOTO 139
  118.       WRITE(9,150) IYES
  119.  150  FORMAT(A1,12X,'<------- ENCODED FILE HEADER')
  120. C
  121. C
  122.  159  WRITE(*,5)
  123.  160  FORMAT(5X,'PUT A HASH (CRC) COUNT TO VERIFY A CORRECT KEY')
  124.  165  FORMAT(5X,'      THIS APPLIES ONLY TO ENCODED FILES')
  125.  170  FORMAT(A1,12X,'<------- KEY HASK (CRC) CHECK')
  126.       WRITE(*,160)
  127.       WRITE(*,165)
  128.       WRITE(*,147)
  129.       READ(*,60) IYES
  130.       IF (IYES .EQ. 'y') IYES = 'Y'
  131.       IF (IYES .EQ. 'n') IYES = 'N'
  132.       IF ( (IYES .NE. 'Y') .AND. (IYES .NE. 'N') ) GOTO 159
  133.       WRITE(9,170) IYES
  134. C
  135. C
  136.       WRITE(*,5)
  137.  200  FORMAT(5X,'ENTER FREQUENCY PERIOD FOR DEAL/TRANSPOSITION')
  138.  210  FORMAT(5X,'      RECOMMEND 4 TO 12 AS FREQ')
  139.       WRITE(*,200)
  140.       WRITE(*,210)
  141.       READ(*,110) IFREQ
  142.       WRITE(9,215) IFREQ
  143.  215  FORMAT(I3,10X,'<------- FREQ/PERIOD FOR TRANSPOSITIONS')
  144. C
  145. C
  146.  299  WRITE(*,5)
  147.  300  FORMAT(5X,'DISPLAY ON TERMINAL ALL INPUT (Yes or No)')
  148.  310  FORMAT(5X,'      ENTER "Y" OR "N" ')
  149.       WRITE(*,300)
  150.       WRITE(*,310)
  151.       READ(*,60) IINP
  152.       IF (IINP .EQ. 'y') IINP = 'Y'
  153.       IF (IINP .EQ. 'n') IINP = 'N'
  154.       IF ( (IINP .NE. 'Y') .AND. (IINP .NE. 'N') ) GOTO 299
  155.  315  FORMAT(A1,12X,'<------- DISPLAY ALL INPUT ON TERMINAL')
  156.       WRITE(9,315) IINP
  157. C
  158. C
  159.  399  WRITE(*,5)
  160.  400  FORMAT(5X,'DISPLAY ON TERMINAL ALL OUTPUT (Yes or No)')
  161.  410  FORMAT(5X,'      ENTER "Y" OR "N" ')
  162.       WRITE(*,400)
  163.       WRITE(*,410)
  164.       READ(*,60) IOUT
  165.       IF (IOUT .EQ. 'y') IOUT = 'Y'
  166.       IF (IOUT .EQ. 'n') IOUT = 'N'
  167.       IF ( (IOUT .NE. 'Y') .AND. (IOUT .NE. 'N') ) GOTO 399
  168.  415  FORMAT(A1,12X,'<------- DISPLAY ALL OUTPUT ON TERMINAL')
  169.       WRITE(9,415) IOUT
  170. C
  171. C
  172. C
  173.       WRITE(*,5)
  174.       CLOSE(9)
  175.   900 FORMAT(2X,//,5X,'*** Installation/Configuration COMPLETED ***',//)
  176.       WRITE(*,900)
  177.       STOP
  178.       END
  179.