35 lines
492 B
Plaintext
Executable File
35 lines
492 B
Plaintext
Executable File
mem 98 + 1 @8
|
|
|
|
0 while dup 98 < do
|
|
0 while dup 100 < do
|
|
dup mem + !8 if
|
|
dup mem + 100 + "*" @8
|
|
else
|
|
dup mem + 100 + " " @8
|
|
end
|
|
1 +
|
|
end
|
|
|
|
mem + 100 + "\n" @8
|
|
|
|
101 mem 100 + 1 1 syscall3 drop
|
|
|
|
// pattern
|
|
mem !8 1 shl
|
|
mem 1 + !8
|
|
bor
|
|
|
|
1 while dup 98 < do
|
|
swap 1 shl 7 band
|
|
over mem + 1 + !8 bor
|
|
2dup 110 swap shr 1 band
|
|
swap mem + swap @8
|
|
swap
|
|
|
|
1 +
|
|
end
|
|
drop drop
|
|
|
|
1 +
|
|
end
|
|
drop |