16 lines
227 B
Smalltalk
16 lines
227 B
Smalltalk
|
[
|
||
|
|
Transcript showCR:'boring stuff'.
|
||
|
|
] loop
|
||
|
|
|
||
|
|
[true] whileTrue:[
|
||
|
|
Transcript showCR:'also borinh'.
|
||
|
|
]
|
||
|
|
|
||
|
|
[
|
||
|
|
Transcript showCR:'poor cpu'.
|
||
|
|
] doUntil:[false]
|
||
|
|
|
||
|
|
[
|
||
|
|
Transcript showCR:'please press CTRL-c!'.
|
||
|
|
] doWhile:[true]
|