7 lines
204 B
Text
7 lines
204 B
Text
print: (query: 'Enter a String: ').
|
|
[| n |
|
|
n: (Integer readFrom: (query: 'Enter an Integer: ')).
|
|
(n is: Integer)
|
|
ifTrue: [print: n]
|
|
ifFalse: [inform: 'Not an integer: ' ; n printString]
|
|
] do.
|