home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
123.img
/
TASM.ZIP
/
MYPROLOG.PRO
< prev
next >
Wrap
Text File
|
1988-10-31
|
215b
|
13 lines
/* MYPROLOG.PRO */
global predicates
double(integer,integer) - (i,o) language asm
goal
write("Enter an integer "),
readint(I),
double(I,Y),
write(I," doubled is ",Y) ,
readchar(_).