home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / avi / movete32.for < prev    next >
Encoding:
Text File  |  1993-09-27  |  452 b   |  24 lines
  1.       SUBROUTINE MOVETEXT (A,ANS)
  2.       character*40 A
  3.       integer*1 ANS(1)
  4.       j=1
  5.       DO while(j.le.30.and.a(j:j).ne.0)
  6.         ANS(J)=A(J:J)
  7.         j=j+1
  8.       enddo
  9.       ans(J)=0
  10.       RETURN
  11.       END
  12.  
  13.       SUBROUTINE MOVEBACK (A,ANS)
  14.       character*40 A
  15.       integer*1 ANS(1)
  16.       j=1
  17.       DO while(j.le.30.and.ans(j).ne.0)
  18.         A(J:J)=ANS(J)
  19.         j=j+1
  20.       enddo
  21.       a(j:J)=0
  22.       RETURN
  23.       END
  24.