4 CLEAR 2000
5 DIM A$(10),b$(400),bs(400),ut(400),id$(400),t(400)
10 OPEN "cmp" FOR INPUT AS #1: bg=0
20 FOR Z1%=1 TO 7
30 IF NOT EOF(1) THEN INPUT#1,A$(Z1%):ELSE close: goto 2000
40 NEXT Z1%
50 if val(a$(1)) >0 then gosub 100:goto 20
51 goto 20
100 fl=0:for z%=1 to bg
110 if instr(b$(z%),a$(3))then gosub 200
120 next z%
121 if fl=0 then bg=bg+1:t(bg)=val(a$(4)):b$(bg)=a$(3):bs(bg)=val(a$(1)):ut(bg)=val(a$(5)):id$(bg)=a$(2)
130 return
200 fl=1:if (bs(z%) < val(a$(1))) and (ut(z%) <= val(a$(5))) then gosub 1000
210 return
1000 bs(z%)=val(a$(1)):t(z%)=val(a$(4)):ut(z%)=val(a$(5)):id$(z%)=a$(2):return
2000 for z%=1 to bg
2010 print id$(z%)" VS "b$(z%)"      ("t(z%)"/"ut(z%)")",t(z%)/ut(z%)
2020 next z%
2030 close:beep:system