home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_GEN
/
EDSV4064.ZIP
/
EPP-V1_1.ZIP
/
EXP.E
< prev
next >
Wrap
Text File
|
1993-06-26
|
121b
|
10 lines
OPT TURBO
PROC exp (n, p)
/* Computes n**p. */
DEF i, x = 1
FOR i := 1 TO p DO x := x * n
ENDPROC x
/* exp */