Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-30 08:52:30 +00:00
Code Issues Projects Releases Wiki Activity

txtelite

Browse Source
This commit is contained in:
Irmen de Jong 2020-10-04 19:23:36 +02:00
parent a1f0cc878b
commit eb86b1270d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/textelite.p8
View File

@ -153,9 +153,9 @@ goatsoup {
if c <= $a4 { if c <= $a4 {
ubyte rnr = gen_rnd_number() ubyte rnr = gen_rnd_number()
ubyte wordNr = (rnr >= $33) + (rnr >= $66) + (rnr >= $99) + (rnr >= $CC) ubyte wordNr = (rnr >= $33) + (rnr >= $66) + (rnr >= $99) + (rnr >= $CC)
str source2 ; new source = getword(c, wordNr)
source2 = getword(c, wordNr) ; TODO good error message
; TODO recursive call...: ; TODO recursive call...:
print_soup()
; print_soup(source2) ; print_soup(source2)
} else { } else {
if c == $b0 { if c == $b0 {