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