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

Implemented negative numbers and more importantly glendasay

Browse source
This commit is contained in:
cannoli-fruit 2026-07-28 22:26:30 -04:00
commit 02aa3f707b
7 changed files with 226 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

38
flagpole/tests/glendasay.fp Normal file
View file

@ -0,0 +1,38 @@
$inc fvmstd.fp
proc main
" /----------------------\ " :puts :newline
0 @skip
while &skip not do
" | " :puts
0 @i
while &i 20 u< &skip not band do
:getchar @c
if &c 0x0A == &c 0x00 == &c 0xFF == bor bor then
1 @skip
endif
if &skip not then
&c :putchar
&i 1 u+ @i
endif
endwhile
while &i 20 u< do
0x20 :putchar
&i 1 u+ @i
endwhile
" |" :puts :newline
endwhile
" \----------------------/ " :puts :newline
" " :puts :newline
" \ " :puts :newline
" \ " :puts :newline
" (\ (\ " :puts :newline
" \\_\\__, " :puts :newline
" / \ " :puts :newline
" | . .\ " :puts :newline
" \ Y | " :puts :newline
" | ' / " :puts :newline
" / | " :puts :newline
" (( / " :puts :newline
" ``'-,_>UU " :puts :newline
endproc