1
0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-23 15:29:51 +00:00
llvm-6502/projects/Stacker/samples/goof.st
Brian Gaeke 3e4a271c89 Apply patches from PR136
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10192 91177308-0d34-0410-b5e6-96231b3b80d8
2003-11-24 02:57:25 +00:00

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
;