1       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        ! Program: BASIC_INDEXED_READ.BAS
        ! System : INTOUCH DEMONSTRATION SYSTEM
        ! Author : Daniel James Swain
        ! Date   :  7-JAN-1991
        ! Purpose: Show how to read indexed files
        !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

        map (vendor_map) string whole_rec$ = 200
        map (vendor_map) string name$ = 30, sex$ = 1, &
                bdate$ = 6, street$ = 30, city$ = 12, zip$ = 9, &
                ethnic$ = 1, parent$ = 24, phone$ = 10, bphone$ = 10, &
                ephone$ = 10, balance$ = 8


        open 'sys$scratch:tti_vendor.tmp' for input as file #1, &
                access read, allow modify, map vendor_map, sequential fixed

        when error in
          while -1%
            get #1
            i% = i% + 1%
            r = r + 1
            if  r = 25  then
              r = 0
              print 'On record:'; i%
            end if
          next
        use
          if  err = 11  then
            continue done
          else
            exit handler
          end if
        end when

  done: print 'Records read:'; i%

        end