                                                    3 


            

                     NEVADA FORTRAN 3.0               



      ,     :

FORT.COM, FRUN.COM, FORT.ERR, ASSM.COM, RUNA.COM, CONFIG.COM

      -    SCED.COM
     EDIT.COM.   --
    ASCII.
          :

A>FORT 

     ,    . 
         -
    . :

A>fort dump.for

NEVADA FORTRAN 3.0 (MOD 0)
Copyright (C) 1979, 1980, 1981, 1982, 1
983 Ian Kettleborough

Disk or directory full, Compile aborted


FORT U:SOURSE.UUU $NP12HC#B#M#<CR>

A>


            
       
 ():

A>fort dump

NEVADA FORTRAN 3.0 (MOD 0)
Copyright (C) 1979, 1980, 1981, 1982, 1
983 Ian Kettleborough

***** ROUTINE: MAIN   *****

***** ROUTINE: X      *****

  No Compile errors



 NO ASSEMBLY ERRORS.    16 LABELS WERE
DEFINED.

A>

     
           
         :

.FOR -       ASCII;
.LST -  ,    ;
.OBJ -         -
           ;
.ASM -  ,     -
              .  , 
             ,   -
                .


            
:

A>FRUN        A>FRUN .OBJ

          
   ,   .OBJ  .:

A>frun sindemo
FILE DOES NOT EXIST, FILE: SINDEMO OBJ
A>

            -
    :     -
    -   :

      call open (6,'con:')
      ...
      call exit

         
  WRITE    READ   . , 
    TYPE     -
.  - ..

C     program PROVERKA
      real A,B
      A=10.1
      B=20.7
      TYPE A,B
      END

 -  /  :

C      program PROVERKA
       real A,B
       call open (6,'con:')
       type '  ='
       read (6,2)A
       type '  ='
       read (6,2)B
       write (6,1) A,B
1      format(' A=',f5.2,' B=',f5.2)
2      format(f5.2)
       END

      ,   -  -
        .    
-       IMIT.DAT  -
,      :


C      program PROVERKA
       real A,B
       call open (6,'IMIT.DAT')
       A=10.76
       B=20.32
       write (6,1) A,B
1      format(' A=',f5.2,' B=',f5.2)
       call exit
       END



      -,     
         IMIT.RES (.-
).           
,    TYPE  .    
      (,IMIT.DAT),
          , 
      READ  .  , 
    ,     -
    .       
/     :

       call open ( ,' ')

   -    2  7.     (  
 'con:')      6.   
    call exit   .
     ,       , 
       -,  
   (. 1     -
 MSX-DOS).


C      program PROVERKA
       real A,B
       call open (6,'con:')
       call open (5,'IMIT.RES')
       type '  A='
       read (6,2) A
       type '  B='
       read (6,2) B
       type '   IMIT.RES'
       write (5,1) A,B
 1     format(' A=',f5.2,' B=',f5.2)
 2     format (f5.2)
       call exit
       END


 


             
 ( )     
 DATA (.  ).

C      program PROVERKA
       integer C(10)
       real A,B
       call open (6,'con:')
       call open (7,'IMIT.RES')
       data a/75.78/,B/22.35/
       data C/1,2,3,4,5,5*6/
       write (7,1) A,B
       type ' C   IMIT.RES'
       write (7,3)(c(I),I=1,10)
 1     format(' A=',f5.2,' B=',f5.2)
 3     format (' C(I),I=1,10'/10I3)
       call exit
       end

  5*6   DATA   5  -
  6    C.  , -
,        
   .
            DIMENSION.
      (REAL, INTEGER), 
      -.
              -
  ,      -
 (, a(i), b(5), c(i-2)).     -
    .      
   .   -
   .:

     
C      program PROVERKA
       integer a(10)
       real b(10)
       data a/1,2,3,4,5,6,7,8,9,10/
       call open (6,'con:')
       do 1 i=1,10
 1     b(a(i))=0.5*i
       call exit
       END

            NEVADA FORTRAN 3.0.
  :

DO <> <>=<.>,<.>[,<>]

,  ,  -   .   .
, .       
    .   -
     ( - ).  
      1.
         : 
1. <>=<.>;
2.      ,   
    <>  ;
3. <>=<>+<>;
4. ,         <-
.>.   ,     
  .      , -
   .
     ,  , :
)       <.>  
   <.>+<>.
)          -
      ,   
    .
)    -      (
 <.> ,  <.>).
          -  -
   ( , , , 
  ).      -
       . -
 . (      DATA, 
 -  ).

C      program PROVERKA
       integer a(10),k
       real b(5),m
       data a/10*0/,k/0/,b/5*0.0/,m/0.0/
       call open (6,'con:')
       write (6,2)(a(i),i=1,10)
       write (6,1)(b(i),i=1,5)
       write (6,3)k,m
 1     format ('b(i)='/,5f5.2)
 2     format ('a(i)='/,10i3)
 3     format ('k=',i3,' m=',f5.3)
       call exit
       END

      -     
STOP,   ,       -
  stop<>.     -  -
  STOP     ,   -
  :

STOP  <>

    ,     -
,       ,   -
    .   -
   STOP  .

C      program PROVERKA
       call open (6,'con:')
       type '  m (=1,2  3):'
       read (6,4) m
       type 'm=',m
       if (m.eq.1) go to 1
       if (m.eq.2) go to 2
       if (m.eq.3) go to 3
       stop 
 1     stop1
 2     stop2
 3     stop3
 4     format(i1)
       call exit
       END


             
 .        
    .     :
           I,J,K,L,M  N,  
      ;
            ,  -
   .
      -        -
 ,   "  " (;).   -
      ";"   .  -
,   ";"     -
 .:


C      program PROVERKA
       call open (6,'con:')
       type '  A=';read (6,2) A
       type '  B=';read (6,2) B
       type '  :';write (6,1) A,B
       c=a+b;write (6,3) C
 1     format(' A=',f5.2,' B=',f5.2)
 2     format (f5.2)
 3     FORMAT (' C=A+B=',f6.2)
       call exit
       END

     ,     TYPE   
   : <>0.<><>. 
 - .:

 
c     program PROVERKA
      a=54.98;i=567;b=-85.321
      type'a=',a;type'b=',b;type'i=',i
      end


            -
. ,   a(5500)     
,     5 (!)   5000   
    (.  ).


C      program PROVERKA
       real a(5000),b(5000),c(5000),d(5000),f(5000)
       a(25)=-0.0001;type'a(25)=',a(25)
       b(10)=54.81;type'b(10)=',b(10)
       c(1)=90;type'c(1)=',c(1)
       d(7)=-2;type'd(7)=',d(7)
       f(12)=-0.87654321;type'f(12)=',f(12)
       END


        -,    
   20000  ,  -
   ""    rand(x)   -
. 


C***      rand(x)
       call open (6,'con:')
       call open (7,'prand.res')
       n=2000;x0=-0.5;x=x0
       write (6,8)x,n;write (7,8)x,n
       do 5 i=1,n  
 5     x=rand(x)
       a=x;x=x0;k=n-1
       do 6 i=1,k
       x=rand(x)
 6     if (a.eq.x) go to 7
       write (6,9) n;write (7,9) n
       go to 13
 7     write (6,12) n,i,a;write (7,12) n,i,a
 8     format(/' x0=',f5.2,'  n=',i7)
 9     format(' n=',i7,' '/'  ')
 12    format('  :  '/
     * ' a=y(',i7,')=y(',i7,')=',f10.8)
 13    call exit
       end

        -     
  rand(x).    -
 4000  ,   rand(x)  
 x0=-0.5.    5,5 .


C***    rand(x)  
       integer N(10)
       call open (6,'con:')
       call open (7,'prav.res')
       nn=4000;x0=-0.5;x=x0
       write (6,8)x,nn;write (7,8)x,nn
       do 1 k=1,10
 1     N(k)=0
       do 5 i=1,nn  
       x=rand(x);do 2 k=1,10
                 if (x.lt.(k-1)*0.1) go to 2
                 if (x.ge.k*0.1) go to 2
                 N(k)=N(k)+1
 2               continue
 5     continue;y=0.0
       do 6 k=1,10
 6     y=y+(N(k)-nn*0.1)^2/(nn*0.1)
       write (6,15)y;write (7,15)y
       write (6,9) nn;write (7,9) nn
 8     format(/' x0=',f5.2,'  nn=',i7)
 9     format(' nn=',i7,' ')
 15    format(' y=y(nn)=',f7.4)
 13    call exit
       end

