45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
do
|
|
read in$
|
|
if in$ ="END" then wait
|
|
w =wordCount( in$)
|
|
select case w
|
|
case 0
|
|
o$ ="{}"
|
|
case 1
|
|
o$ ="{" +in$ +"}"
|
|
case 2
|
|
o$ ="{" +word$( in$, 1) +" and " +word$( in$, 2) +"}"
|
|
case else
|
|
o$ ="{"
|
|
o$ =o$ +word$( in$, 1)
|
|
for k =2 to w -1
|
|
o$ =o$ +", " +word$( in$, k)
|
|
next k
|
|
o$ =o$ +" and " +word$( in$, w) +"}"
|
|
end select
|
|
if w =1 then
|
|
print "'"; in$; "'"; " held "; w; " word. "; tab( 30); o$
|
|
else
|
|
print "'"; in$; "'"; " held "; w; " words. "; tab( 30); o$
|
|
end if
|
|
loop until 0
|
|
|
|
wait
|
|
|
|
function wordCount( IN$)
|
|
wordCount =1
|
|
for i =1 to len( IN$)
|
|
if mid$( IN$, i, 1) =" " then wordCount =wordCount +1
|
|
next i
|
|
end function
|
|
|
|
end
|
|
|
|
data "" 'No input words.
|
|
data "ABC" 'One input word.
|
|
data "ABC DEF" 'Two words.
|
|
data "ABC DEF G" 'Three words.
|
|
data "ABC DEF G H" 'Four words.
|
|
|
|
data "END" 'Sentinel for EOD.
|