| 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