42 lines
1 KiB
GLSL
42 lines
1 KiB
GLSL
$inc fvmstd.fp
|
|
|
|
proc main
|
|
" /--------------------------------\ " :puts :newline
|
|
0 @skip
|
|
while &skip not do
|
|
" | " :puts
|
|
0 @i
|
|
0 @tmpSkip
|
|
while &i 30 u< &skip not &tmpSkip not band band do
|
|
:getchar @c
|
|
if &c 0x00 == &c 0xFF == bor then
|
|
1 @skip
|
|
endif
|
|
if &c 0x0A == then
|
|
1 @tmpSkip
|
|
endif
|
|
if &skip not &tmpSkip not band then
|
|
&c :putchar
|
|
&i 1 u+ @i
|
|
endif
|
|
endwhile
|
|
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
|
|
" \\_\\__, " :puts :newline
|
|
" / \ " :puts :newline
|
|
" | . .\ " :puts :newline
|
|
" \ Y | " :puts :newline
|
|
" | ' / " :puts :newline
|
|
" / | " :puts :newline
|
|
" (( / " :puts :newline
|
|
" ``'-,_>UU " :puts :newline
|
|
endproc
|