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(); } }