Data update
This commit is contained in:
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
|
|
@ -4,16 +4,12 @@ func$ read .
|
|||
return substr inp$ inpi 1
|
||||
.
|
||||
func ispunct c$ .
|
||||
if c$ = "." or c$ = ":" or c$ = ";" or c$ = ","
|
||||
return 1
|
||||
.
|
||||
if c$ = "." or c$ = ":" or c$ = ";" or c$ = "," : return 1
|
||||
return 0
|
||||
.
|
||||
func$ handle odd .
|
||||
c$ = read
|
||||
if ispunct c$ = 1
|
||||
return c$
|
||||
.
|
||||
if ispunct c$ = 1 : return c$
|
||||
if odd = 0
|
||||
write c$
|
||||
r$ = handle 0
|
||||
|
|
@ -24,7 +20,7 @@ func$ handle odd .
|
|||
return r$
|
||||
.
|
||||
.
|
||||
proc go . .
|
||||
proc go .
|
||||
repeat
|
||||
c$ = handle odd
|
||||
write c$
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue