mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-19 19:29:31 +00:00
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10192 91177308-0d34-0410-b5e6-96231b3b80d8
26 lines
484 B
Smalltalk
26 lines
484 B
Smalltalk
#
|
|
# goof
|
|
#
|
|
: print_one
|
|
--
|
|
SWAP
|
|
>s
|
|
DROP
|
|
;
|
|
: print_it
|
|
WHILE
|
|
print_one
|
|
END
|
|
;
|
|
|
|
: MAIN
|
|
"MICKEY: I said she was f'in goofy!"
|
|
"MICKEY: I didn't say she was insane."
|
|
"JUDGE: Yet you provide no evidence of this and I do not concur."
|
|
"JUDGE: In your pleadings you claim that Mini Mouse is insane."
|
|
"MICKEY: Well, what do you mean, your honor?"
|
|
"JUDGE: Mr. Mouse, I find your grounds for divorce insufficient. "
|
|
6
|
|
print_it
|
|
;
|