Category : Databases and related files
Archive   : CONCORD.ZIP
Filename : STARTUP.CPT

 
Output of file : STARTUP.CPT contained in archive : CONCORD.ZIP










Copyright"(C) Copyright Dataflight Software, Inc. 1991. All Rights Reserved.;
main()

error,line;

¢();
 (Œ()=
×£p=@)
¢(-1);

(p=@)õ
‘("start();,error,line);
(]())
getkey();
 (error)­
 (errorŠp=@)
Message("A Demo file is missing, please reinstall the program.);

 (Message("Demo error 
str(error)
" on line 
str(line)
".)ESC)
;


;



start()

db,i,j;
MainMenu[p=@];
string[Qp=@];

8(db);
initialize();
InitMenus();

MainMenu[p=@]"Concordance Demonstration Menu;
MainMenu[p=@]"Give me a guided tour of Concordance's features;
MainMenu[p=@]"Let me use the menus myself, I'm an expert;
MainMenu[p=@]"Show me the program's specifications;
MainMenu[p=@]"Uninstall Demo, remove it from the disk;
MainMenu[p=@]"Return to DOS, I'm finished for now;
“();
Title(ˆp=@);
Message("This is not Concordance, but an incredible simulation...);
Message("It is written entirely in Concordance's own programming language!);
wait(d()
îp=@);
X(p=@,p=@,p=@,Op=@,p=@,U0l—øPB);

Pcls(€(" ú,(—øPB));
Pcls(€(" ù,(—øPB));
Pcls(€(" +,(—øPB));
Pcls(€(" Å,(—øPB));
Pcls(€("ÄÅ,(—øPB));

string"DATAFLIGHT;
j—øPB;
 (i—øPB;string[i];ii
—øPB)
W(—øPB,jj
—øPB,—øPB,|(string,i
—øPB),TextHighlight_);

string"SOFTWARE;
j—øPB;
 (i—øPB;string[i];ii
—øPB)
W(—øPB,jj
—øPB,—øPB,|(string,i
—øPB),TextHighlight_);

string"INCORPORATED;
j.—øPB;
 (i—øPB;string[i];ii
—øPB)
W(—øPB,jj
—øPB,—øPB,|(string,i
—øPB),TextHighlight_);

wait(d()
d—øPB);

(—øPB)
(i(—øPB,—øPB,—øPB,B—øPB,MainMenu,i,"GLSUR))r
—øPB:SelfRunning(db);
;
—øPB:SelfPaced(db);
;
—øPB:Specs();
;
—øPB: (Message("Uninstall Concordance Demo? Y/N)Y0ÂS0)7
8(db);
CreateUCONDEMO();
ClosingScreen();

;

;
S0:
S0: (Message("Do you want to quit? Y/N)Y0ÂS0)
8(db);
ClosingScreen();

;

;
:i=S0;
;







ClosingScreen()

i;
string[QS0];
id()
úS0;
wait(i);
Pcls(€(" Å,(S0));
Pcls(€(" +,(S0));
Pcls(€(" ù,(S0));
Pcls(€(" ú,(S0));
Pcls(€( 0BX0,PX0));





Pcls(pattern)

i;

 (iX0;i MaxRow_;ii
X0)
V(i,X0,pattern);
wait(d()
dX0);






CreateUCONDEMO()

string[QX0];
h;

 ((hK("\UCONDEMO.BAT,"w+))EOF)
G(h,string"ECHO OFF,^(string));
G(h,string"CLS,^(string));
G(h,string"ECHO Press [Ctrl-C] to cancel Concordance Demo removal or,^(string));
G(h,string"pause,^(string));
string§("*.*,X0);
(string[X0])O
G(h,string"Erase \CONDEMO\
string,^(string));
string¨();

 (I("RUNCPL.CFG)X0)
writeln(h,string="Erase \CONDEMO\RUNCPL.CFG
string,len(string));
G(h,string"CD \,^(string));
G(h,string"RD \CONDEMO,^(string));
G(h,string"DEL \UCONDEMO.BAT,^(string));
J(h);







Specs()

i,j,k;
description[úX0];
screen†(X0,X0,MaxRow_,OX0);

T();
R(X0,X0);
“();
description"Concordance Information Retrieval System;
V(X0,X0,€(Äÿ0BX0,PX0),MenuColor_);
V(X0,(X0-^(description)/X0,description,MenuColor_);
V(MaxRow_,X0,}("Dataflight Software, Inc. 800/421-TEXT 213/398-2787 213/398-0194 FAX,C0BX0,PX0),MenuColor_);

V(X0,X0,"Data Base Capacities and Features,TextHighlight_);
V(X0,X0," Maximum records......2,000,000);
V(X0,X0," Maximum record size..65,000 bytes);
V(X0,X0," Fields per record....100);
V(X0,X0," Words in dictionary..Unlimited);

V( X0,X0,"Field Sizes,TextHighlight_);
V(
X0,X0," Character fields.....60 characters);
V( X0,X0," Date fields..........8 characters);
V( X0,X0," Numeric fields.......15 digits);
V(
X0,X0," Free text fields.....65,000 bytes);

V(X0,X0,"Search Operators,TextHighlight_);
V(X0,X0," Boolean..............and, or, not, xor);
V(X0,X0," Proximity............adj, near, adj1-adj99,);
V(X0,X0," near1-near99);
V(X0,X0," Context..............same, notsame, field);
V(X0,X0," limiters);
V(X0,X0," Relational...........< > = >= <= <> $ !);


V(X0,-X0,"Integrated Editor Features,TextHighlight_);
description"Cut and paste, undelete, find and replace, wordwrap, 
"global search and replace, 
"context sensitive help, read external files.;
Ž(z(description,#X0),X0,.X0,X0,OX0,X0);

V( X0,-X0,"Modes,TextHighlight_);
description"Search, select, browse, review queries, 
"save and replay queries, edit, append, sort, 
"report, load, unload, import, print, stopwords.;
Ž(z(description,#X0),
X0,.X0,
X0,OX0,X0);

V(X0,-X0,"System Requirements,TextHighlight_);
description"IBM PC, AT, PS/2 or 100% compatible with 512K memory, 
"hard disk, DOS 2.1 or higher, or OS/2. Networks require 
"DOS 3.1 or higher. Supports EMM/LIM memory if present.;
Ž(z(description,#X0),X0,.X0,X0,OX0,X0);

wait(d()
ȯX0);

 (iX0;iX0;ii-X0)
jd()
2X0;
‡(i,OX0(i8@),screen);
wait(j);


;






SelfRunning(db)

i,j,stopped;
screen†(8@,8@,MaxRow_,O8@);
screen2;

LastKey8@;
InitScreen();
screen2†(8@,8@,MaxRow_,O8@);
ShowMenu(8@, 8@,8@,8@,database,8@);
 (db. 8@)
Message("Let's run a search on one database and a report on another.);
wait(d()
î8@);
Message("We'll open a database first.);
wait(d()
î8@);
 (i8@;i
8@;ii-8@)
jd()
î8@;
ShowMenu(8@, 8@,8@,8@,database,i);
wait(j);

Open();


 (LastKeyESC)
 (Message("Cancel the self-guided demo Y/N?)Y0BX0)
stopped=TRUE;
LastKeyX0;

 (stoppedFALSE)
‡(X0,X0,screen2);
ShowMenu(X0, X0,X0,X0,database,X0);
Message("Ok, now let's do our search.);
wait(d()
îX0);

‡(X0,X0,screen2);
ShowMenu(X0,X0, X0,X0
X0,searchMenu,X0);
wait(d()
ÜX0);
SearchShow(db);
 (LastKeyESC)
 (Message("Cancel the self-guided demo Y/N?)Y0ÂS0)
stopped=TRUE;
LastKeyS0;


 (stoppedFALSE)
SearchDemoTRUE;
wait(d()
îS0);
Message("Now we can examine the retrieved documents.);
wait(d()
îS0);
 (iS0;i S0;ii
S0)
jd()
îS0;
ShowMenu(S0,S0, S0,S0
S0,searchMenu,i);
wait(j);

BrowseDemo(db);

 (LastKeyESC)
 (Message("Cancel the self-guided demo Y/N?)Y0ÂS0)
stopped=TRUE;
LastKeyS0;


 (stoppedFALSE)
wait(d()
îS0);
Message("Now we'll produce a report with a litigation support database.);
wait(d()
îS0);
‡(S0,S0,screen2);
ShowMenu(S0,%S0, S0,%S0
S0,documents,S0);
wait(d()
îS0);
 (iS0;i  S0;ii
S0)
jd()
îS0;
ShowMenu(S0,%S0, S0,%S0
S0,documents,i);
wait(j);

’("report,"Report());

 (LastKeyESC)
 (Message("Cancel the self-guided demo Y/N?)Y0l—øPÂ)
stopped=TRUE;
LastKey—øPÂ;



 (stoppedFALSE)
Message("Concordance makes data entry and correction work easy too.);
wait(d()
î—øPÂ);
Message("Global search and replace works just like a word processor.);
wait(d()
î—øPÂ);
 (i—øPÂ;i—øPÂ;ii-—øPÂ)
jd()
î—øPÂ;
ShowMenu(—øPÂ,%—øPÂ, —øPÂ,%—øPÂ
—øPÂ,documents,i);
wait(j);

wait(d()
î—øPÂ);
Global();


Message("Put Concordance's power to work for you!);
wait(d()
î—øPÂ);
Message("Try your own searching and browsing with the self-guided tour.);
wait(d()
î—øPÂ);
 (i—øPÂ;i—øPÂ;ii-—øPÂ)
jd()
2—øPÂ;
‡(i,O—øPÂ(i8@),screen);
wait(j);


;







SelfPaced(db)

CurrentMenu,i,j;
screen;

screen†(8@,8@,8@,O8@);
InitScreen();
 (WelcomedFALSE)
Info( 8@, 8@,}("Welcome!,C0ÂS0,6S0)
NL
"This is a self-guided tour of Concordance, the fast
NL
"powerful full text database management system for
NL
"your PC. Some of the menu items display animated
NL
"sequences which highlight key features. Other options,
NL
"such as Text searching and Browsing retrieved records
NL
"actually work with a real database. All menu items do
NL
"something. Explore the program at your leisure.
NL
}(l(þS0)
" Press any key to continue... 
l(þS0),C0l—øPB,6—øPB));
WelcomedTRUE;
CurrentMenuDATABASE;
(CurrentMenu
—øPB)
 (db.—øPB)
V(—øPB,—øPB,FileName(db. ),MenuColor_);
(CurrentMenu)
F1:Message("Concordance has complete on-line context sensitive help.);
CurrentMenu=DATABASE;
F5:
DATABASE:CurrentMenudbMenu();
F2:
F3:
F4:
F6:
F8:
SEARCH:CurrentMenuSMenu(db,CurrentMenu);
F7:
DOCUMENTS:CurrentMenuDMenu();
F9:
SET:CurrentMenuSetMenu();
F10:
FINISH:CurrentMenuFMenu();
:CurrentMenu=DATABASE;

T();

 (i—øPB;i—øPB;ii-—øPB)
jd()
2—øPB;
‡(i,O—øPB(i8@),screen);
wait(j);








InitScreen()

db;
Title(8@);
V(8@,8@,€(Í8@,P8@),MenuColor_);
V(8@,8@,€( 8@,P8@),MenuColor_);
V(8@, 8@,database[8@],MenuColor_);
V(8@,8@,searchMenu[8@],MenuColor_);
V(8@,'8@,documents[8@],MenuColor_);
V(8@,88@,set[8@],MenuColor_);
V(8@,C8@,finish[8@],MenuColor_);

V(MaxRow_-2,8@,}("Concordance Information Retrieval System,C0l—øPÂ,P—øPÂ));
V(MaxRow_-1,—øPÂ,}("Demonstration Program Version 
o(Œ(),—øPÂ,—øPÂ),C0l—øPB,P—øPB));
 (db.—øPB)
V(—øPB,—øPB,FileName(db. ),MenuColor_);







DBused[—øPB];
dbMenu()

screen;
i,j;

screen†(—øPB, —øPB,—øPB,—øPB);
 (FDbFALSE)
ShowMenu(—øPB, —øPB,—øPB,—øPB,database,—øPB);
Info(—øPB,—øPB,"Use your cursor control keys to move UP and DOWN and
NL
"LEFT and RIGHT in these menus. Select an item by
NL
"highlighting it and pressing the ENTER key.
NL
" 
l(þ—øPB)
" Press any key to start your self guided tour.
l(þ—øPB));
FDbTRUE;




(i—øPB)
id()
'—øPB;
((]()—øPB)(i
d()))
;
 ((i]())—øPB)
Message("Select menu items with the ENTER and cursor keys.);


iDATABASE;
(iDATABASE)
(j(—øPB, —øPB,—øPB,—øPB,database,j,"OCMRIPFDZSÄBE))
—øPB:i=FINISH;
;
—øPB:dbReminder(j);
Open();
;
—øPB:dbReminder(j);
’("create,"Create());
;
—øPB:dbReminder(j);
’("create,"Modify());
;
—øPB:dbReminder(j);
Message("Reindexing updates the dictionary with new and edited documents.);
;
—øPB:dbReminder(j);
Message("Indexing adds your documents to the dictionary for fast searches.);
;
—øPB:dbReminder(j);
Message("Packing removes deleted documents, and speeds up searching.);
;
—øPB:dbReminder(j);
Message("You can split databases across disk drives with this command.);
;
—øPB:dbReminder(j);
Stopword();
;
 —øPB:dbReminder(j);
Message("Zap clears out the database automatically.);
;

—øPB:dbReminder(j);
Status();
;
 —øPB:dbReminder(j);
Message("Custom programs are started from the main menu or the DOS prompt.);
;

—øPB:dbReminder(j);
EditCPL();
;

LEFT:i=FINISH;
RIGHT:ii
—øPB;

: (isFkey(j))
i=j;

T();
‡(—øPB, —øPB,screen);

(i);





dbReminder(item)


 ((FSearch—øPB)(DBused[item]—øPB))
Message("Don't forget, you can cursor RIGHT to try the other menus.);
DBused[item]DBused[item]
—øPB;





SearchDemo;
SMenu(db,i)

screen;
j,key,col;

keyi;
col—øPB;
screen†(—øPB,col, —øPB,col
—øPB);
iSEARCH;
 ((FSearchFALSE)(isFkey(key)FALSE))
ShowMenu(—øPB,col, —øPB,col
—øPB,searchMenu,—øPB);
Info(—øPB,—øPB,"The Search menu provides fast full text searching,
NL
"sorting, and browsing. Boolean, proximity, context,
NL
"and relational searching is fully supported with
NL
"17 search operators. You also have the ability to
NL
"save and replay your searches at any time.
NL
}(l(þ—øPB)
" Press any key to continue... 
l(þ—øPB),C0BX0,2X0));

FSearchTRUE;

(iSEARCH)
 (isFkey(key)FALSE)
key(X0,col, X0,col
X0,searchMenu,j,"TFBSRKECP);
(key)
X0:i=FINISH;
;
F2:
X0:
jkey;
keyX0;
 (db. X0)
Message("We have to open a database before searching...);
Open();
Message("Now we can search...);

 ((SearchDemoFALSE)(jF2)(I("DEMO.CFG)FALSE))
SearchShow(db);

jMessageWait;
MessageWait˜:X0;
 (Message("You saw the search demo, want to try your own search Y/N?)Y0l—øPÂ)
MessageWaitj;
 (SearchSuggestionFALSE)
SearchSuggestionTRUE;
Info(—øPÂ,—øPÂ,}("Try these suggested searches,C0BX0,(X0)
NL
NL
"SUPERFUND
NL
"CHERNOBYL NEAR5 ACCIDENT
NL
"HAZARD* AND WASTE*
NL
"(HAZARD* OR TOXIC) AND WASTE*
NL
NL
"Try [Alt-D] for the on-line dictionary.
NL
NL
}(l(þX0)
" Press any key to search... 
l(þX0),C0BX0,(X0));

 (isFkey(key(db,"))FALSE)
keyX0;


MessageWaitj;
SearchShow(db);


SearchDemoTRUE;
 ((db.
X0)(¡(db)
X0)(SearchBrowseSuggestionFALSE))
Message("You found something! Try Browse to see the results.);
SearchBrowseSuggestionTRUE;
jX0;


jX0;
;
F4:
X0:Message("Concordance can search with =, >, and < type operators too.);
jX0;
keyX0;
;
F6:
X0:
 (db. X0)
Message("Let's open a database first...);
Open();
Message("Now we can browse...);

 (BrowseSuggestionFALSE)
Info(X0,X0,"Here's a short primer on Browse mode.
NL
" Use your cursor control keys.
NL
" Press [F1] if you need help.
NL
" Press [Esc] when you are finished.
NL
}(l(þX0)
" Press any key to Browse... 
l(þX0),C0øP0,$P0));
BrowseSuggestionTRUE;

 (isFkey(key(db))FALSE)
keyP0;
jP0;
;
F8:
P0:Message("Concordance sorts by any fields, ascending or descending.);
jP0;
keyP0;
;
F3:
P0:Message("Review, select, and re-edit previous queries.);
jP0;
keyP0;
;
P0:
P0:Message("Save and rerun searches on new and updated databases.);
jP0;
keyP0;
;
P0: (db.
P0)
<(db,-1);
Message("I just cleared your searches to start fresh.);


Message("This option clears any existing searches to start fresh.);
jP0;
keyP0;
;
 P0:Message("Pause search scrolling to display intermediate results.);
j P0;
keyP0;
;
LEFT:ii-P0;
keyP0;
;
RIGHT:ii
P0;
keyP0;
;
: (isFkey(key))
i=key;

key=P0;
;


T();
‡(P0,col,screen);

(i);






DMenu()

screen;
i,j,col;

col%P0;
screen†(P0,col, P0,col
P0);
iDOCUMENTS;
 (FDocFALSE)
ShowMenu(P0,col, P0,col
P0,documents,P0);
Info(P0,P0,"The Documents menu is used to manage the records in
NL
"your database. You can edit retrieved documents, or
NL
"use global search and replace. Two options provide
NL
"for report writing and printing. This menu also has
NL
"powerful features for importing and exporting data.);
FDocTRUE;


(iDOCUMENTS)
(j(P0,col, P0,col
P0,documents,j,"AEGILUOPR))
P0:i=FINISH;
;
P0:Message("Append new documents with Concordance's full screen editor.);
P0:Message("Edit retrieved documents.);
P0:Global();
P0:Message("Import text from word processors and text scanners.);
P0:Message("Load data from other database and spreadsheet programs.);
P0:Message("Unload data in delimited ASCII format.);
P0:Message("Overlay replaces data from external files.);
P0:Message("Print retrieved documents, with headers and footers.);
 P0:’("report,"Report());
LEFT:i=i-P0;
RIGHT:ii
P0;

: (isFkey(j))
i=j;

T();
‡(P0,col,screen);

(i);






SetMenu()

screen;
i,j,col;
iSET;
col3P0;
screen†(P0,col, P0,col
P0);

 (FSetFALSE)

ShowMenu(P0,col, P0,col
P0,set,P0);
Info(P0,P0,"This menu allows you to tailor Concordance to your
NL
"preferences. You can Set the system Bell on and off,
NL
"execute DOS commands, and change many other program
NL
"attributes. Try selecting the Color option, follow
NL
"the instructions on the screen or press [F1] for help.);
FSetTRUE;


(iSET)
(j(P0,col, P0,col
P0,set,j,"WDQMCBPES))
P0:i=FINISH;
;
P0:Message("Use almost any character as a wildcard in your searches.);
P0:Message("Change the default search operator to ADJ, NEAR, or OR.);
P0:Message("Change the character recognized as the quote.);
P0:Message("This option sets the Concordance editor's margins.);
P0:”();
InitScreen();
screen†(P0,col, P0,col
P0);
P0:Message("Set the system bell on or off.);
P0:Message("Punctuation within searchable words is user definable.);
P0:Message("Empties determines if empty fields are hidden or displayed.);
 P0:Message("System commands, such as DIR and COPY, right from Concordance.);
;
LEFT:i=i-P0;
RIGHT:ii
P0;

: (isFkey(j))
i=j;


T();
‡(P0,col,screen);

(i);






FMenu()

screen;
i,j,col;

colAP0;
screen†(P0,col,P0,col

P0);
iFINISH;
(iFINISH)
(j(P0,col,P0,col

P0,finish,j,"RE))
P0:i=FINISH;
;
LEFT:i=i-P0;
P0:
RIGHT:iDATABASE;
P0:iP0;
: (isFkey(j))
i=j;

T();
‡(P0,col,screen);

(i);






DATABASE,SEARCH,DOCUMENTS,SET,FINISH;
database[P0];
set[
P0];
searchMenu[
P0];
documents[
P0];
finish[P0];

InitMenus()


DATABASEP0;
SEARCHP0;
DOCUMENTSP0;
SETP0;
FINISHP0;

database[P0]"Database F5;
database[P0]"Open...;
database[P0]"Create...;
database[P0]"Modify...;
database[P0]"Reindex;
database[P0]"Index;
database[P0]"Pack;
database[P0]"Files...;
database[P0]"Dictionary...;
database[ P0]"Zap...;
database[
P0]"Status;
database[ P0]"ÄÄÄÄÄÄÄÄÄÄÄÄÄ;
database[ P0]"Begin Program;
database[
P0]"Edit Program;

searchMenu[P0]"Search;
searchMenu[P0]"Text F2;
searchMenu[P0]"Fixed Fields F4;
searchMenu[P0]"Browse F6;
searchMenu[P0]"Sort... F8;
searchMenu[P0]"Review F3;
searchMenu[P0]"Keep...;
searchMenu[P0]"Execute...;
searchMenu[P0]"Clear;
searchMenu[ P0]"Pause;

documents[P0]"Documents F7;
documents[P0]"Append;
documents[P0]"Edit;
documents[P0]"Global Edit...;
documents[P0]"Import Text...;
documents[P0]"Load...;
documents[P0]"Unload...;
documents[P0]"Overlay...;
documents[P0]"Print...;
documents[ P0]"Report...;

set[P0]"Set F9;
set[P0]"Wildcard...;
set[P0]"Default...;
set[P0]"Quote...;
set[P0]"Margin...;
set[P0]"Color...;
set[P0]"Bell û;
set[P0]"Punctuation...;
set[P0]"Empties;
set[ P0]"System...;

finish[P0]"Exit F10;
finish[P0]"Return;
finish[P0]"Exit;







Title(timer)

i,j;
titleText[P0];

T();
“();
V(P0,P0,}("D A T A F L I G H T S O F T W A R E I N C O R P O R A T E D,C0BX0,PX0));

titleText[X0]}("ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿,C0ÂS0,PS0);
titleText[S0]}("ÀÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ ³ ³ ³ ³ ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÙ,C0ÂS0,PS0);
titleText[S0]}("ÀÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÙ,C0ÂS0,PS0);
titleText[S0]}("ÀÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÙ,C0ÂS0,PS0);
titleText[S0]}("ÀÄÄÂÄÄÄÄÄÄÄÄÄÄÄ ³ ³ ³ ³ ³ ³ ÄÄÄÄÄÄÄÄÄÄÄÂÄÄÙ,C0l—øPB,P—øPB);
titleText[—øPB]}("ÀÄÄÂÄÄÄÄÄÄÄÄ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÄÄÄÄÄÄÄÄÂÄÄÙ,C0l—øPB,P—øPB);
titleText[—øPB]}("ÀÄÄÂÄÄÄÄÄ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÚÄÄÄÄ¿ ÄÄÄÄÄÂÄÄÙ,C0l—øPB,P—øPB);
titleText[—øPB]}("ÀÄÄÂÄÄ ³ ³ ³ ³ ³ ³ ÄÄÂÄÄÙ,C0l—øPB,P—øPB);
titleText[—øPB]}("ÀÄÄ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÄÄÙ,C0l—øPB,P—øPB);

V(MaxRow_-2,—øPB,}("C O N C O R D A N C E,C0l—øPB,P—øPB));
V(MaxRow_-1,—øPB,}("Version 
o(Œ(),—øPB,—øPB),C0ÂS0,PS0));
V(MaxRow_,S0,}("800/421-TEXT 213/398-2787 213/398-4714 BBS,C0ÂS0,PS0));

j(—(-1)"start);
 (iS0;iS0;ii-S0)Š
V(i
S0,S0,titleText[i]);
 (ij)O
V(i
S0,S0,titleText[S0]);
wait(d()
xS0);



id();
(((d()-i) timer)(]()S0))
;
 (]())
\();










wait(i)

 (i-d()TimerResolution)
((d() i)(]()S0))
;
 (]())

(LastKey\());

(S0);






MessageWaitˆS0;
Message(message)

screen;
key,row;

rowMaxRow_S0-S0;
T();
screen†(row,S0,row
S0,KS0);
Š(row,S0,row
S0,KS0,"DS,MenuColor_);
V(row
S0,S0,}(message,C0l—øPB,C—øPB),MenuColor_);
keywait(d()
MessageWait);
‡(row,—øPB,screen);
 (key ÿ—øPB)
keym(v(l(key)));

(key);






Info(row,col;message)

i,lines,j,l;
screen;

T();
linesi—øPB;
`(message,—øPB,l);
(ia(message,i,j))
lineslines
—øPB;
lž(j,l);

ll
—øPB;
screen†(row,col,row
lines
—øPB,col
l
—øPB);
X(row,col,row
lines,col
l
—øPB,—øPB,U0l—øPÂ,MenuColor_);
Š(row,col,row
lines
—øPÂ,col
l
—øPÂ,'DD,MenuColor_);
Y(message,row
—øPÂ,col
—øPÂ,row
lines,col
l
—øPÂ,-1,—øPÂ,—øPÂ,MenuColor_);
 ((LastKeywait(d()
'—øPÂ
'—øPÂ*lines))ESC)
LastKey=—øPÂ;
‡(row,col,screen);






ShowMenu(tr,tc,br,bc;m[];j)

i,w,items;
Š(tr,tc,br,bc,"SD,MenuColor_);
V(tr,tc
—øPÂ,}(m[—øPÂ],C0BX0,wbc-tc-3),MenuHighlight_);
V(tr
X0,tc
X0,€(ÄX0,w),MenuColor_);
itemsn(m)/n(m[X0]);
 (iX0;i items;ii
X0)
V(tr
i
X0,tc
X0,}(m[i],L0l—øPÂ,w),MenuColor_);
 (j)
V(tr
j
—øPÂ,tc
—øPÂ,}(m[j],L0l—øPÂ,w),MenuHighlight_);






FileName(name)

i;
(i~(name,"\,—øPÂ))
name=substr(name,i
—øPÂ);
 (i~(name,":,—øPÂ))
name=substr(name,i
—øPÂ);

(name);





typeMatic(row,col;data;color)

string[P—øPÂ];
i,j;

stringdata;
S();
R(row,col);
jd();
 (i—øPÂ;string[i];i=i
—øPÂ)
V(row,col
i,l(string[i]),color);
R(row,col
i
—øPÂ);
 (wait(jj
ȗøPÂ))
V(row,col
i,string|(string,i
—øPÂ),color);
R(row,col
^(data));
;









BrowseDemo(db)

screen;
i,j;

T();
 (db. —øPÂ)
Message("Database not found, reinstall the demo diskette.);

screen†(—øPÂ,—øPÂ,MaxRow_,O—øPÂ);
“();
ShowRecord(db);
wait(d()
î—øPÂ);
Message("Concordance automatically highlights all of the search words.);
wait(d()
î—øPÂ);
Message("Here are a few of the other records.);
wait(d()
î—øPÂ);
 (i—øPÂ;i —øPÂ;ii
—øPÂ)
;(db,i);
ShowRecord(db);
wait(d()
¸ —øPÂ);

j(
—øPÂ,>(db));
 (i=(db)
—øPÂ;i j;ii
—øPÂ)
;(db,i);
ShowRecord(db);
wait(d()
î—øPÂ);

wait(d()
¸ —øPÂ);
jd()
2—øPÂ;
 (iN—øPÂ;i—øPÂ;ii-—øPÂ)
‡(—øPÂ,i,screen);
wait(j);
jd()
2—øPÂ;




ShowRecord(db)

i;
lastRow;
string[P—øPÂ];

V(—øPÂ,—øPÂ,}("NTIS ³,L0BX0,PX0),MenuColor_);
V(X0,X0,"ÍÍÍÍÍÍÍÍÏ
€(Íÿ0BX0,GX0),MenuColor_);
string"Document 
o(=(db))
" of 
o(>(db));
V(X0,(X0-^(string)X0,string,MenuColor_);
X(X0,X0,MaxRow_,X0,X0,U0BX0);
lastRowX0;
 (iX0;(i db.)(lastRow MaxRow_-X0);ii
X0)
V(lastRow,X0,db.[i],TextHighlight_);
Ž(dbi,lastRow,X0,MaxRow_-X0,OX0,X0,lastRow);
lastRowlastRow
X0;

 (lastRow MaxRow_)
V(MaxRow_,(X0-^("End of Document)/X0,"End of Document,TextHighlight_);







EditCPL()

i,j;
screen;
string[QX0];
screen†(X0,X0,MaxRow_,OX0);
T();
“();
id()
ôX0;
V(X0,X0," C:\CONCORD\DEMO.CPL L: 17 C: 3 ,MenuColor_);
V(X0,X0,€(Íÿ0l—øPÂ,P—øPÂ),MenuColor_);
V(—øPÂ,—øPÂ,"/*);
V(—øPÂ,—øPÂ,"** PROGRAM NAME: DEMO);
V(—øPÂ,—øPÂ,"** -------------);
V(—øPÂ,—øPÂ,"** Demonstration Sample Program Source Code File (.CPL));
V(—øPÂ,—øPÂ,"** Concordance(tm) Information Retrieval System, Professional Edition);
V(—øPÂ,—øPÂ,"**);
V(—øPÂ,—øPÂ,"** COPYRIGHT:);
V( —øPÂ,—øPÂ,"** ----------);
V(
—øPÂ,—øPÂ,"** (C) Copyright Dataflight Software, Inc. 1990. All Rights Reserved.);
V( —øPÂ,—øPÂ,"*/);
V( —øPÂ,—øPÂ,"main());
V(
—øPÂ,—øPÂ,"begin);
V(—øPÂ,—øPÂ,"int CurrentMenu;);
V(—øPÂ,—øPÂ,"int db;);
V(—øPÂ,—øPÂ,");
V(—øPÂ,—øPÂ,"initialize(););
V(—øPÂ,—øPÂ,"InitMenus(););
V(—øPÂ,—øPÂ,"cls(););
V(—øPÂ,—øPÂ,"Title(5000););
V(—øPÂ,—øPÂ,"InitScreen(););
V(—øPÂ,—øPÂ,"Message('This is not Concordance, but an incredible simulation.'););
V(—øPÂ,—øPÂ,"Message('It is written entirely in Concordance's own programming language.'););

V(—øPÂ,—øPÂ,string" [F2]Find [F4]Replace [F5]Delete [F6]Erase [F7]Cut [F8]Paste [F10]Save);
V(MaxRow_,~(string,"[F2],—øPÂ)-1,"[F2],TextHighlight_);
V(MaxRow_,~(string,"[F4],—øPÂ)-1,"[F4],TextHighlight_);
V(MaxRow_,~(string,"[F5],—øPÂ)-1,"[F5],TextHighlight_);
V(MaxRow_,~(string,"[F6],—øPÂ)-1,"[F6],TextHighlight_);
V(MaxRow_,~(string,"[F7],—øPÂ)-1,"[F7],TextHighlight_);
V(MaxRow_,~(string,"[F8],—øPÂ)-1,"[F8],TextHighlight_);
V(MaxRow_,~(string,"[F1,—øPÂ)-1,"[F10],TextHighlight_);

wait(i);
Message("Customize Concordance with the Professional Edition's editor.);
wait(d()
ˆ—øPÂ);
 (iN—øPÂ;i—øPÂ;ii-—øPÂ)

‡(—øPÂ,i,screen);
wait(j);
jd()
2—øPÂ;

T();

;






Global()

i;
string[—øPÂ];
screen;

T();
“();
V(—øPÂ,—øPÂ,}("PRODUCTS³ Global Replace Range Options,L0l—øPB,P—øPB),MenuColor_);
V(—øPB,—øPB,"ÍÍÍÍÍÍÍÍÏÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑ
€(͗øPB,<—øPB),MenuColor_);
V(—øPB,—øPB," ³Target... ³);
V(—øPB,—øPB," ³Replacement...³);
V(—øPB,—øPB," ³Query... ³);
V(—øPB,—øPB," ³Fields... ³);
V(—øPB,—øPB," ³Go ³);
V(—øPB,—øPB," ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(—øPB,—øPB,");
V( —øPB,—øPB,"00003 CONCORDANCE AND (FAST RETRIEVAL) 45 Occurrences 23 Documents);
V(
—øPB,—øPB,"ÉÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍ» ÚTargetÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V( —øPB,—øPB,'º Order º Field Name ³ Type º ³ "" ³);
V( —øPB,—øPB,"ÌÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍ͹ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(
—øPB,—øPB,"º 1 º DATE ³ Date º ÚReplacementÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(—øPB,—øPB,'º 2 º PRODUCT ³ Paragraph º ³ "" ³);
V(—øPB,—øPB,"º 3 º TEXT ³ Paragraph º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(—øPB,—øPB,"º 4 º DESCRIPTORS ³ Paragraph º ÚDocument RangeÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(—øPB,—øPB,"º º ³ º ³ First document 1 ³);
V(—øPB,—øPB,"º º ³ º ³ Last document 23 ³);
V(—øPB,—øPB,"º º ³ º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(—øPB,—øPB,"º º ³ º ÚReplace OptionsÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿);
V(—øPB,—øPB,"º º ³ º ³ Ignore upper/lower case No ³);
V(—øPB,—øPB,"º º ³ º ³ Confirm before replace Yes ³);
V(—øPB,—øPB,"º º ³ º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ);
V(—øPB,—øPB,"ÈÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍͼ);
V(—øPB,—øPB," 2 ,TextHighlight_);
V(—øPB, —øPB," PRODUCT ,TextHighlight_);
V(—øPB,—øPB," Paragraph ,TextHighlight_);

V(—øPB, —øPB,"³Target... ³,MenuColor_);
V(—øPB, —øPB,"³Replacement...³,MenuColor_);
V(—øPB, —øPB,"³Query... ³,MenuColor_);
V(—øPB, —øPB,"³Fields... ³,MenuColor_);
V(—øPB, —øPB,"³Go ³,MenuColor_);
V(—øPB, —øPB,"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ,MenuColor_);
screen†(—øPB,—øPB,—øPB,2—øPB);
V(—øPB,
—øPB,"Target... ,MenuHighlight_);

wait(d()
î—øPB);
Message("Concordance can search and replace over the entire database.);
wait(d()
î—øPB);
X(—øPB, —øPB,—øPB,O—øPB,—øPB,U0l—øPB);
V(—øPB, —øPB,€( 0l—øPB,G—øPB),MenuColor_);
V(—øPB, —øPB,€(Íÿ0l—øPB,G—øPB),MenuColor_);
V(—øPB,
—øPB,"Target:,MenuColor_);
R(—øPB,—øPB);
S();
wait(d()
è—øPB);

typeMatic(—øPB,—øPB,"Fast,MenuColor_);
wait(d()
ЗøPB);
T();
V( —øPB,-—øPB,'Fast");

‡(—øPB,—øPB,screen);
V(—øPB,
—øPB,"Target... ,MenuHighlight_);
wait(d()
ô—øPB);
‡(—øPB,—øPB,screen);
V(—øPB,
—øPB,"Replacement...,MenuHighlight_);
screen†(—øPB,—øPB,—øPB,2—øPB);
wait(d()
ô—øPB);

X(—øPB, —øPB,—øPB,O—øPB,—øPB,U0BX0);
V(X0, X0,€( 0BX0,GX0),MenuColor_);
V(X0, X0,€(Íÿ0BX0,GX0),MenuColor_);
V(X0,
X0,"Replacement:,MenuColor_);

typeMatic(X0,X0,"Really, really fast!,MenuColor_);
wait(d()
ôX0);
V(X0,-X0,'Really, really fast!");
T();
R(X0,X0);
‡(X0,X0,screen);
wait(d()
ôX0);
Message("Global editing works with any fields in your retrieved records.);
wait(d()
ˆX0);
“();
InitScreen();

;





Open()

i,j,db;
f[X0];
T();
“();
f[X0]" ANTILLES.DCB ;
f[X0]" BBS .DCB ;
f[X0]" DEPO .DCB ;
f[X0]" DEPONOTE.DCB ;
f[X0]" DOCUMENT.DCB ;
f[X0]" NTIS .DCB ;
V(X0,X0,€( 0BX0,PX0),MenuColor_);
V(X0,X0,€(Íÿ0BX0,PX0),MenuColor_);
X(X0,
X0,X0,GX0,X0,U0BX0,MenuColor_);
Š(X0,
X0,X0,GX0,D0BX0,MenuColor_);

V(X0, X0,"Open Database Directory,MenuColor_);
V(X0, X0,"C:\CONCORD\DATA,MenuColor_);
V(X0, X0,"ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿,MenuColor_);
V(X0, X0,"³  .. ³ Selected: *.DCB,MenuColor_);
V( X0, X0,"³ ANTILLES.DCB ³,MenuColor_);
V( X0,
X0," ANTILLES.DCB ,MenuHighlight_);
V(
X0, X0,"³ BBS .DCB ³,MenuColor_);
V( X0, X0,"³ DEPO .DCB ³ Disk Status,MenuColor_);
V( X0, X0,"³ DEPONOTE.DCB ³ 16,048,128 Bytes Used,MenuColor_);
V(
X0, X0,"³ DOCUMENT.DCB ³ 5,261,312 Bytes Available,MenuColor_);
V(X0, X0,"³ NTIS .DCB ³ 21,309,440 Bytes Total,MenuColor_);
V(X0, X0,"³ PALMER .DCB ³,MenuColor_);
V(X0, X0,"³ WASHERS .DCB ³,MenuColor_);
V(X0, X0,"³ ³,MenuColor_);
V(X0, X0,"³ ³,MenuColor_);
V(X0, X0,"³ ³,MenuColor_);
V(X0, X0,"³ ³,MenuColor_);
V(X0, X0,"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ,MenuColor_);

wait(d()
èX0);
Message("Menu windows display database and other important file names.);
wait(d()
ôX0);
 (iX0;i X0;ii
X0)
jd()
úX0;
V(i
X0,
X0," 
f[i-1],MenuColor_);
V(i
 X0,
X0,l(X0)
f[i],MenuHighlight_);
wait(j);

wait(d()
èX0);
Message('File selection is easy with these "highlight and go" menus.);
wait(d()
ôX0);
Message("We've selected NTIS, the National Technical Information Service.);

wait(d()
èX0);

 ((db. X0)(—(-1)"main))
 (0("NTIS)X0)
V(X0,X0,db. ,MenuColor_€X0);
Message("The database name is displayed in the upper left corner.);


Message("Oops! The sample database isn't installed on your PC.);

“();
InitScreen();

;





SearchShow(db)

i,j;
string[QX0];
prompt;
screen†(X0,X0,MaxRow_,OX0);


initSearchScreen(X0,");
prompt"This is Concordance's search screen. 
"You can locate documents very quickly 
"by searching for any words or 
"phrases they contain. Here are some sample searches and an 
"introduction to a few of the ways Concordance 
"can work for you.
NL
}("þ Press any key to continue... þ,C0l—øPÂ,2—øPÂ);
z(prompt,4—øPÂ);
Info(—øPÂ,—øPÂ,prompt);

wait(d()
ô—øPÂ);
prompt"The boss asked us to locate reports on 
"the Environmental Protection Agency's 
"clean air and water policies. First let's look for 
"any mention of the EPA in our database. 
NL
}("þ Press [Enter] to search... þ,C0l—øPB,-—øPB);
z(prompt,/—øPB);
Info(—øPB,—øPB,prompt);
R(—øPB,—øPB);
S();
wait(d()
ô—øPB);
typeMatic(—øPB,—øPB,"EPA,TextColor_);
wait(d()
ú—øPB);
V(—øPB,—øPB,"EPA 28 Occurrences 18 Documents);
wait(d()
ú—øPB);
V(—øPB,—øPB,}("28 Occurrences 18 Documents,R0BX0,PX0),TextHighlight_);

id()
âX0;
 (I("DEMO.CFG))
string"r+;

string="w+;
 ((jK("DEMO.CFG,string))EOF)
M(j,"S,X0);
J(j);



prompt'That was fast, but it only found documents that had "EPA" 
"in them, just 18. Now we'll expand 
'our search by adding the phrase "Environmental Protection." 
"Let's see what we come up with this time.
NL
}("þ Press any key to see the new results... þ,C0BX0,2X0);

z(prompt,2X0);
Info( X0,X0,prompt);
wait(d()
âX0);

initSearchScreen(X0,"EPA);
typeMatic(X0,X0,"OR ENVIRONMENTAL PROTECTION,TextColor_);
V(X0,X0,"EPA 28 Occurrences 18 Documents);
wait(d()
úX0);
V(X0,X0,"ENVIRONMENTAL 96 Occurrences 72 Documents);
wait(d()
úX0);
V(X0,X0,"PROTECTION 72 Occurrences 68 Documents);
wait(d()
úX0);
V( X0,X0,}("138 Occurrences 66 Documents,R0l—øPB,P—øPB),TextHighlight_);
wait(d()
ЗøPB);

T();
V(—øPB,—øPB,"¿);
V(—øPB,—øPB,"³);
V(—øPB,—øPB,"³);
V( —øPB,—øPB,"³,TextHighlight_);
V(
—øPB,—øPB,"³);
V( —øPB,—øPB,"³);
V( —øPB,—øPB,"³);
V(
—øPB,—øPB,"À Concordance shows each word it searched.);
wait(d()
¬
—øPB);
V(—øPB,—øPB,"Ú);
V(—øPB,—øPB,"³);
V( —øPB,—øPB,"³,TextHighlight_);
V(
—øPB,—øPB,"³);
V( —øPB,—øPB,"³);
V( —øPB,—øPB,"À How many times they occur.);
wait(d()
¬
—øPB);
V( —øPB,—øPB,"Ú,TextHighlight_);
V(
—øPB,—øPB,"³);
V( —øPB,—øPB,"À And the number of documents retrieved.);
wait(d()
@—øPB);


prompt"That's much better, we have all of the EPA's documents. 
"Now let's limit our search to the ones concerning clean 
"air and water and we'll be done!
NL
}("þ Press any key to see the final results... þ,C0BX0,2X0);
z(prompt,2X0);
Info( X0,X0,prompt);

initSearchScreen(X0,");
typeMatic(X0,X0,"(EPA OR ENVIRONMENTAL PROTECTION) AND (CLEAN NEAR2 (WATER OR AIR)),TextColor_);
wait(d()
úX0);
V(X0,X0,"EPA 28 Occurrences 18 Documents);
wait(d()
úX0);
V(X0,X0,"ENVIRONMENTAL 96 Occurrences 72 Documents);
wait(d()
úX0);
V(X0,X0,"PROTECTION 72 Occurrences 68 Documents);
wait(d()
úX0);
V( X0,X0,"CLEAN 22 Occurrences 16 Documents);
wait(d()
úX0);
V(
X0,X0,"WATER 41 Occurrences 18 Documents);
wait(d()
úX0);
V( X0,X0,"AIR 19 Occurrences 8 Documents);
wait(d()
úX0);
V( X0,X0,}("71 Occurrences 11 Documents,R0l—øPÂ,P—øPÂ),TextHighlight_);

prompt'This search found all EPA documents that mention "clean" 
"within 2 words of air or water. Now that we've found the 
"reports, look at them in Browse mode.
NL
}("þ Press any key to view the documents... þ,C0BX0,2X0);
z(prompt,5X0);
Info(X0,
X0,prompt);
,(db,"(EPA OR ENVIRONMENTAL PROTECTION) AND (CLEAN NEAR2 (WATER OR AIR)));
‡(X0,X0,screen);


initSearchScreen(number;searchLogic)

string[QX0];

“();
V(X0,X0,}("NTIS ³ Search [
o(number,X0,X0,Z0BX0)
"],L0BX0,PX0),MenuColor_);
V(X0,X0,"ÍÍÍÍÍÍÍÍÏ
€(Íÿ0BX0,GX0),MenuColor_);
V(X0,X0,searchLogic);
V(X0,X0,€(Äÿ0BX0,PX0));
V(MaxRow_,X0,string"[F3]Review [F4]Select [F5]Database [F6]Browse [F7]Documents [F8]Sort);
V(MaxRow_,~(string,"[F3],X0)-1,"[F3],TextHighlight_);
V(MaxRow_,~(string,"[F4],X0)-1,"[F4],TextHighlight_);
V(MaxRow_,~(string,"[F5],X0)-1,"[F5],TextHighlight_);
V(MaxRow_,~(string,"[F6],X0)-1,"[F6],TextHighlight_);
V(MaxRow_,~(string,"[F7],X0)-1,"[F7],TextHighlight_);
V(MaxRow_,~(string,"[F8],X0)-1,"[F8],TextHighlight_);






Status()

i,j;
screen,prompt;

screen†(X0,X0,MaxRow_,OX0);
“();
T();
V(X0,X0,}("NTIS ³ Status,L0l—øPB,P—øPB),MenuColor_);
V(—øPB,—øPB,€(Íÿ0l—øPB,P—øPB),MenuColor_);
V(—øPB,—øPB,"Ï,MenuColor_);

V(—øPB,—øPB,"Database,TextHighlight_);

V(—øPB,—øPB,"Documents 25);
V(—øPB,—øPB,"Words in dictionary 1,661);
V(—øPB,—øPB,"Stopwords 257);
V(—øPB,—øPB,"Text path C:\CONCORD5\NTIS.TEX);
V( —øPB,—øPB,"Text index path C:\CONCORD5\NTIS.NDX);
V(
—øPB,—øPB,"Dictionary path C:\CONCORD5\NTIS.DCT);
V( —øPB,—øPB,"Inverted text path C:\CONCORD5\NTIS.IVT);
V( —øPB,—øPB,"Stopwords path C:\CONCORD5\CONCORDP.STP);

V(—øPB,—øPB,"Set Defaults,TextHighlight_);
V(—øPB,&—øPB,"Printing,TextHighlight_);

V(—øPB,—øPB,"Bell ON Left margin 3);
V(—øPB,—øPB,"Search operator ADJ Right margin 75);
V(—øPB,—øPB,"Punctuation '.,/ Top margin 3);
V(—øPB,—øPB,'Quote " Bottom margin 3);
V(—øPB,—øPB,"Wildcard * Lines per page 66);
V(—øPB,—øPB,"Empties HIDE);
V(—øPB,—øPB,"Editor right margin 78);
V(—øPB,—øPB,"Memory available 
o(…(),—øPB,—øPB,,0l—øPB));

prompt"This screen shows you the status of your database 
"and all of the settings for the Concordance 
"environment.
NL
l(þ—øPB)
" Press any key to continue... 
l(þ—øPB);
z(prompt,#—øPB);
wait(d()
è—øPB);
Info(—øPB,(—øPB,prompt);

wait(d()
ЗøPB);
 (iN—øPB;i—øPB;ii-—øPB)
‡(—øPB,i,screen);
wait(j);
jd()
2—øPB;







Stopword()

screen,prompt;
i,j,tree,db;
string[—øPB];

screen†(—øPB,—øPB,MaxRow_,O—øPB);
T();
“();
V(—øPB,—øPB,}("NTIS ³,L0l—øPÂ,P—øPÂ),MenuColor_);
V(—øPÂ,—øPÂ,"ÍÍÍÍÍÍÍÍÏ
€(͗øPÂ,G—øPÂ),MenuColor_);
V(—øPÂ,—øPÂ,");
V(—øPÂ,—øPÂ,");
V(—øPÂ,—øPÂ,"Ú Stopwords List Management ¿,MenuColor_);
V(—øPÂ,—øPÂ," Stopwords List Management ,MenuHighlight_);
V(—øPÂ,—øPÂ,"³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij,MenuColor_);
V(—øPÂ,—øPÂ,"³GET ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ GO ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ GOING ³,MenuColor_);
V( —øPÂ,—øPÂ,"³ H ³,MenuColor_);
V(
—øPÂ,—øPÂ,"³ HAD ³,MenuColor_);
V( —øPÂ,—øPÂ,"³ HAS ³,MenuColor_);
V( —øPÂ,—øPÂ,"³ HAVE ³,MenuColor_);
V(
—øPÂ,—øPÂ,"³ HAVING ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HE ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HE'LL ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HE'S ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HER ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HERE ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ HERSELF ³,MenuColor_);
V(—øPÂ,—øPÂ,"³ ³,MenuColor_);
V(—øPÂ,—øPÂ," ,MenuHighlight_);
V(—øPÂ,—øPÂ,"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ,MenuColor_);
V(—øPÂ,—øPÂ,");
V(—øPÂ,—øPÂ,");
V(—øPÂ,—øPÂ,"[Enter] Delete words [CtrlEnter] Add words);

Message("Database and stopword dictionaries are available online.);
Message("You can add to or delete from this list as needed.);

wait(d()
Ü—øPÂ);
 ((tree("NTIS.DCT))—øPÂ)
stringo(
(tree),
—øPÂ,—øPÂ,,0l—øPB);
prompt"Now I'll show you the database dictionary. You can use 
"it to build your searches. There are 
u(string)
" words in 
"the sample database's dictionary. Try finding the word 
'"Washington" in the list. Watch as you type each letter. Press [Esc] when you are finished 
"using the dictionary.
l(
—øPB)
l(
—øPB)
}(l(þ—øPB)
" Press any key to continue... 
l(þ—øPB),C0l—øPB,2—øPB);

z(prompt,2—øPB);
Info(—øPB,
—øPB,prompt);
V(—øPB,—øPB,}('Press [Esc] when finished...,L0l—øPB,P—øPB));
string"ABATEMENT;
(‰(tree,—øPB,—øPB,—øPB,<—øPB,"Database Dictionary List,string,i,U0l—øPB))
;
(tree);

R(—øPB,—øPB);
T();
 (iN—øPB;i—øPB;ii-—øPB)
‡(—øPB,i,screen);
wait(j);
jd()
2—øPB;




;





isFkey(key)


((keyF1)(key F10));





SearchSuggestion;
SearchBrowseSuggestion;
BrowseSuggestion;
Welcomed;
FDb,FDoc,FSearch,FSet,FExit;
TimerResolution;
LastKey;
NLl(
—øPB)
l(
—øPB);

CTRLPGUP„—øPB;

LEFTK—øPB,
RIGHTM—øPB,
UPH—øPB,
DOWNP—øPB,
HOMEG—øPB,
ENDO—øPB,
PGUPI—øPB,
PGDNQ—øPB,
CTRLPGDNv—øPB;

ESC—øPB,
EOF-1,
FALSE—øPB,
TRUE—øPB,
CR
—øPB,
LF
—øPB;

F1;—øPB,
F2<—øPB,
F3=—øPB,
F4>—øPB,
F5?—øPB,
F6@—øPB,
F7A—øPB,
F8B—øPB,
F9C—øPB,
F10D—øPB;

initialize()

i;
T();
R(—øPB,—øPB);


id();
((TimerResolution(d()-i))—øPB)
;
“();




  3 Responses to “Category : Databases and related files
Archive   : CONCORD.ZIP
Filename : STARTUP.CPT
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/