Data update

This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions

View file

@ -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$