Cody/FlagVM
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed a bit with glendasay

Browse source
This commit is contained in:
cannoli-fruit 2026-07-28 23:17:53 -04:00
commit 58a1a288ce
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
flagpole/tests/glendasay.fp
View file

@ -1,28 +1,32 @@
$inc fvmstd.fp
proc main
" /----------------------\ " :puts :newline
" /--------------------------------\ " :puts :newline
0 @skip
while &skip not do
" | " :puts
0 @i
while &i 20 u< &skip not band do
0 @tmpSkip
while &i 30 u< &skip not &tmpSkip not band band do
:getchar @c
if &c 0x0A == &c 0x00 == &c 0xFF == bor bor then
if &c 0x00 == &c 0xFF == bor then
1 @skip
endif
if &skip not then
if &c 0x0A == then
1 @tmpSkip
endif
if &skip not &tmpSkip not band then
&c :putchar
&i 1 u+ @i
endif
endwhile
while &i 20 u< do
while &i 30 u< do
0x20 :putchar
&i 1 u+ @i
endwhile
" |" :puts :newline
endwhile
" \----------------------/ " :puts :newline
" \--------------------------------/ " :puts :newline
" " :puts :newline
" \ " :puts :newline
" \ " :puts :newline