void ADVKATA(boolean bacafile)
/* I.S. : CC adalah karakter pertama kata yang akan diakuisisi
F.S. : CKata adalah kata terakhir yang sudah diakuisisi,
CC adalah karakter pertama dari kata berikutnya, mungkin MARK
Jika CC = MARK, EndKata = true.
Proses : Akuisisi kata menggunakan procedure SalinKata */
{
IgnoreBlank(bacafile);
EndKata = CC==MARK;
if(!EndKata){
SalinKata(bacafile);
}
}
void STARTKATA(boolean bacafile)
/* I.S. : CC sembarang
F.S. : EndKata = true, dan CC = MARK;
atau EndKata = false, CKata adalah kata yang sudah diakuisisi,
CC karakter pertama sesudah karakter terakhir kata */
{
if(bacafile)
STARTFILE();
else
STARTCLI();
IgnoreBlank(bacafile);
EndKata = CC==MARK;
if(!EndKata)
SalinKata(bacafile);
}
void ADVKATA()
/* I.S. : CC adalah karakter sesudah karakter terakhir dari kata yang sudah diakuisisi
F.S. : CKata adalah kata terakhir yang sudah diakuisisi,
CC karakter pertama sesudah karakter terakhir kata
Jika CC = MARK, EndKata = true.
Proses : Akuisisi kata menggunakan procedure SalinKata */
{ /* Kamus Lokal */
/* Algoritma */
IgnoreBlank();
if (CC == MARK)
{
EndKata = true;
}
else /* CC != MARK */
{
SalinKata();
}
}
void STARTKATA()
/* I.S. : CC sembarang
F.S. : EndKata = true, dan CC = Mark;
atau EndKata = false, CKata adalah kata yang sudah diakuisisi,
CC karakter pertama sesudah karakter terakhir kata */
{ /* Kamus Lokal */
/* Algoritma */
START();
IgnoreBlank();
if (CC == MARK)
{
EndKata = true;
}
else /* CC != MARK */
{
EndKata = false;
SalinKata();
}
}
