home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG049.ARK / INDEXT.FOR < prev    next >
Text File  |  1984-04-29  |  256b  |  14 lines
  1.     REAL A(3)
  2.     DATA A/'AWRU','FVBY','TGKM'/
  3.     I=INDEX(A,'UFVB',4,12)
  4.     WRITE(3,10)I
  5. 10    FORMAT(1X,'Index =',I4)
  6.     I=INDEX('Abfrg','rg',2,5)
  7.     WRITE(3,10)I
  8.     I=INDEX('SXCt','x',1,4)
  9.     WRITE(3,10)I
  10.     I=INDEX('Helpme','Helpme',6,6)
  11.     WRITE(3,10)I
  12.     STOP
  13.     END
  14.