19 lines
382 B
Plaintext
19 lines
382 B
Plaintext
wrds$ = "[]
|
|
[""ABC""]
|
|
[""ABC"", ""DEF""]
|
|
[""ABC"", ""DEF"", ""G"", ""H""]
|
|
"
|
|
while word$(wrds$,j+1,chr$(13)) <> ""
|
|
a$ = word$(wrds$,j+1,chr$(13))
|
|
print a$;" ==> ";
|
|
a$ = "{"+mid$(a$,2,len(a$)-2)+"}"
|
|
j = j + 1
|
|
for i = len(a$) to 1 step -1
|
|
if mid$(a$,i,1) = "," then
|
|
a$ = left$(a$,i-1) + " and " + mid$(a$,i+2)
|
|
exit for
|
|
end if
|
|
next i
|
|
print a$
|
|
WEND
|