home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug049.ark / INDEXT.FOR < prev    next >
Encoding:
Text File  |  1984-04-29  |  256 b   |  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.