home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
pdprolog
/
number.pro
< prev
next >
Wrap
Text File
|
1986-05-05
|
256b
|
11 lines
go :-
repeat,
print( 'Enter a number: ' ),
get0( Num ), nl,
(
( (Num > 58), print( 'You did not enter a number'),
nl, fail)
;
(print( 'Do it over, please. ' ), nl, fail )
).