10 ON ERROR GOTO ERR_ROUTINE ! ! Program Name: Sys$SysRoot:[SysUTL.Dict]ListDict.bas ! ! Latest Revision: 28-NOV-1984 ! ! Version: 1.0 ! ! Creation Date: June 1984 ! ! Author: Paul Lind ! ! %INCLUDE 'Sys$SysRoot:[SysUTL.NameLib]NameLib.Def' MAP (Entry) STRING FullWord = 32 DECLARE INTEGER Temp,X DECLARE STRING NewWord DECLARE LONG N DECLARE STRING & CommandLine, & OutFileName, & InFileName, & DefName, & Dross CALL GetCommandLine(CommandLine) CALL SplitCommandLine(CommandLine, InFileName, Dross) DefName = 'Dict.Fil' CALL GetInput('List what Dictionary File ? ',DefName, & InFileName, Dross) IF InFileName = '' OR InFileName = '""' CALL MakeFileName(DefName, InFileName, InFileName) CALL MakeFileName(InFileName, '.txt', DefName) CALL SplitCommandLine(CommandLine, OutFileName, Dross) CALL GetInput('Listing File name ? ', DefName, OutFileName, Dross) & IF OutFileName = '' OR OutFileName = '""' CALL MakeFileName(DefName, OutFileName, OutFileName) OPEN_FILE: OPEN InfileName AS FILE 5% & ,ORGANIZATION INDEXED VARIABLE & ,MAP Entry & ,PRIMARY KEY FullWord OPEN OutFileName FOR OUTPUT AS FILE 6% Temp = 1% N=0% X=0% WHILE Temp = 1% 100 Get #5% PRINT #6%;EDIT$(FullWord,2%) N=N+1% X=X+1% IF X=500% THEN X=0% PRINT '*'; END IF NEXT GOTO 32767 Err_Routine: SELECT ERR CASE = 11%, 155% Close #5% Close #6% PRINT PRINT BEL;BEL;"*** ";NUM1$(N); & ' dictionary entries listed. ***' CASE = 50% PRINT "***> ERROR READING LINE <***" RESUME 100 CASE ELSE PRINT 'Error #'; ERR; ' at line '; ERL PRINT ERT$(ERR) END SELECT RESUME 32767 32767 END