home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTH / 4THPROG.ZIP / DIR_FOR.FOR < prev    next >
Encoding:
Text File  |  1985-11-01  |  256 b   |  9 lines
  1.       INTEGER*2 J
  2.       J=0
  3. 10    WRITE(*,'(A\)') ' DRIVE NUMBER'
  4.       READ(*,*) J
  5.       CALL DIRFOR(J)
  6.       GO TO 10
  7.       STOP
  8.       END
  9.