0010 INPUT "Filename?";F$ @ I=ID(F$) @ A$=ADDR$(F$) @ O$=HPD$(A$,43)
0020 PRINT F$;" ID=";I @ I=1000*I @ L=LOTOKEN(F$) @ H=HITOKEN(F$)
0030 GOSUB 60 @ 'LINK': O=PEEK(O$,5) @ IF NOT O THEN END 
0040 A$=HPD$(O$,O) @ I=PEEK(A$,2) @ L=PEEK(HPD$(A$,2),2) @ H=PEEK(HPD$(A$,4),2)
0050 PRINT "ID=";I @ I=1000*I @ GOSUB 60 @ O$=HPD$(A$,6) @ GOTO 'LINK'
0060 IF NOT L AND NOT H THEN PRINT "NO KEYWORDS IN THIS LEX" @ RETURN 
0070 FOR J=L TO H @ PRINT J;KEYWORD$(I+J) @ NEXT J @ RETURN 
0080 ! THIS FILE REQUIRES THE FOLLOWING LEX FILES:
0090 ! UTILEX (FROM F.CASSETA), HPDLEX FOR HPD$, LEXLEX FOR LOTOKEN AND
0100 ! HITOKEN AND KEYWORD FOR KEYWORD$. IF UTILEX IS NOT AVAILABLE,
0110 ! THEN PEEK(X$,X) CAN BE REPLACED BY HTD(REV$(PEEK$(X$,X))).
0120 ! THE OTHER FILES ARE ON THIS DISK.