Copyright (c) 1985-2003
eBible-Studies	Your source for over a 1000 gigabytes of Bible Studies. Check out some Bible Study Products using the latest technology to improve your study time. To help us to continue to build Bible Studies and Share Gods Word around the world 24 hours a day. Email us for more Information. ISA-11:9 ...for the earth shall be full of the knowledge of the LORD, as the waters cover the sea.
eBibleBooks
eBibleConcordances
eBibleDevotionals
eBibleDictionary
eBibleGreek
eBibleHebrew
eBiblePhrases
eBibleReferences
eBibleSearch
eBibleSoftware
eBibleSynonyms
eBibleVerses
eBibleWords
InternetStudyBible

** Page down for Folders and Files to view **

<ul>

c conc.tcc make a full concordance of a text. G.Unruh 87-Jul-22

c input is one line per verse, with chapter:verse at the front.

begin >

store(3) space c sometimes a space is handy.

store(10) '{' c start bold mode.

store(11) '}' c end of bold mode.

store(4) '00' use(1) c get a two digit chapter number.

group(1)

space >

'0' > dup

'1' > dup

'2' > dup

'3' > dup

'4' > dup

'5' > dup

'6' > dup

'7' > dup

'8' > dup

'9' > dup

': ' > ':' back

':' > next

'' > back(3) store(4) fwd(3) c now we have a two digit chapter

number.

store(5) '00' use(2) c prepare to get a two digit

verse number.

group(2)

space >

'0' > dup

'1' > dup

'2' > dup

'3' > dup

'4' > dup

'5' > dup

'6' > dup

'7' > dup

'8' > dup

'9' > dup

'' > back(3) store(5) fwd(3) c now we have a two digit verse

number.

ifeq(4) '01' ifeq(5) '01' c chapter one verse one?

write "Please enter next three character Book Name: "

store(14,2) read endif endif

ifneq(4) cont(14) write nl wrstore(2,3,4) write ':'

store(14) outs(4) endif

wrstore(5,3)

store(6) space use(3) c prepare to get the verse.

group(3)

endfile > endstore ifne(6) space set(99) next else dup endif

nl > store(7,9,8) nl

append(6) back use(4)

group(4)

space > next

'.' > next

',' > next

';' > next

':' > next

'!' > next

'?' > next

')' > next

']' > next

'"' > next

"'" > next

' [' > next

'>' > store(99) dup outs(9) store(9) outs(99) append(6) back

'' > use(5)

group(5)

space > next

'(' > next

'[' > next

'<' > store(1) dup out(7,3,2,3,4,3,5,6,1,10,7,11,9,8)

append(7) outs(9,8) store(8) outs(1,7) store(7,9)

if(99) endstore endfile endif

ifne(6) append(6) back use(4)

else store(4) '00' use(1)

if(99) endstore endfile endif

'' > store(99) fwd outs(7) store(7) outs(99) append(6) back

~~~~~~

<ul>

<br>

Copyright (c) 1985-2003

<ul>