10 ON ERROR GOTO ERR_ROUTINE ! ! Program Name: Sys$SysRoot:[SysUTL.Dict]CheckDir.Bas ! ! Latest Revision: 11-Jun-1984 ! ! Version: 1.0 ! ! Creation Date: June 1984 ! ! Author: Paul Lind ! ! %INCLUDE 'Sys$SysRoot:[SysUTL.Dict]DictMap.Map' %INCLUDE 'Sys$SysRoot:[SysUTL.ScanLib]ScanLib.Def' DECLARE INTEGER Temp,X, TTChan DECLARE STRING & Ans$_, & Bold$_, & Rev$_, & Off$_ DECLARE LONG N,STS EXTERNAL LONG CONSTANT SS$_NORMAL Bold$_ = ESC + '[1m' Rev$_ = ESC + '[7m' Off$_ = ESC + '[0m' CALL Dev_Assign('TT',TTChan,STS) CALL SYS$EXIT(STS BY VALUE) IF STS <> SS$_Normal OPEN_FILE: OPEN 'NewDict.fil' AS FILE 5% & ,ORGANIZATION INDEXED VARIABLE & ,MAP Entry & ,PRIMARY KEY FullWord Temp = 1% N=0% X=0% WHILE Temp = 1% 100 Get #5% PRINT 110 PRINT Rev$_;' ';EDIT$(FullWord,2%);' ';Off$_ PRINT Bold$_;'C';Off$_;'orrect, ';Bold$_;'M'; & Off$_;'isspelled, ';Bold$_;' => '; CALL Dev_Scan('W', 0%, TTChan, Ans$_, STS) CALL SYS$EXIT(STS BY VALUE) IF STS <> SS$_Normal Ans$_ = EDIT$(Ans$_,32%) PRINT Ans$_;Off$_ GOTO 110 IF Ans$_ <> 'C' AND Ans$_ <> 'M' IF EDIT$(Ans$_,32) = 'M' THEN DELETE #5% PRINT EDIT$(FullWord,2%);' deleted.' X=X+1% END IF N=N+1% NEXT GOTO 32767 Err_Routine: SELECT ERR CASE = 11%, 155% Close #5% Close #6% PRINT PRINT BEL;BEL;'*** ';NUM1$(N); & ' dictionary entries Checked. ***' PRINT '------- ';NUM1$(X);' dictionary entries deleted.' 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