| process |
process := [
    World findATranscript: nil.
    [   Transcript show: $a.
        (Delay forSeconds: 1) wait
    ] repeat
] fork.

[   ActiveHand checkForMoreKeyboard ifNotNilDo: [:event |
        event keyCharacter = $q ifTrue: [^process terminate].
        event keyCharacter = $p ifTrue: [
            process isSuspended
                ifTrue: [process resume]
                ifFalse: [process suspend]]].
    Processor yield.
] repeat