10 ON ERROR GOTO ERR_ROUTINE ! ! Program Name: Tech$Disk:[ICPaul.Work]BuildDict.bas ! ! Latest Revision: 4-Jun-1984 ! ! Version: 1.0 ! ! Creation Date: June 1984 ! ! Author: Paul Lind ! ! MAP (Entry) STRING FullWord = 32 DECLARE INTEGER Temp DECLARE STRING NewWord DECLARE LONG N OPEN_FILE: OPEN "Dict.fil" FOR OUTPUT AS FILE 5% & ,ORGANIZATION INDEXED VARIABLE & ,MAP Entry & ,PRIMARY KEY FullWord OPEN "Dict.Txt" FOR INPUT AS File 6% Temp = 1 N=0 WHILE Temp = 1 100 LINPUT #6;FullWord FullWord = EDIT$(FullWord,40%) PUT #5 N=N+1 NEXT GOTO 32767 Err_Routine: SELECT ERR CASE = 11 Close #5 Close #6 PRINT BEL;BEL;"*** ";NUM1$(N);" dictionary entries made ***" CASE = 50 PRINT "***> ERROR READING LINE <***" RESUME 100 CASE = 134 PRINT BEL;'***> Dictionary already contains ';Fullword RESUME 100 CASE ELSE PRINT 'Error #'; ERR; ' at line '; ERL PRINT ERT$(ERR) END SELECT RESUME 32767 32767 END