diff options
Diffstat (limited to 'projects/Stacker/samples/goof.st')
-rw-r--r-- | projects/Stacker/samples/goof.st | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/projects/Stacker/samples/goof.st b/projects/Stacker/samples/goof.st index 8fe9c51d92..8c1ff72ba4 100644 --- a/projects/Stacker/samples/goof.st +++ b/projects/Stacker/samples/goof.st @@ -1 +1,25 @@ -: defmebaby 23 0 = ; +# +# 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 +; |