Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STRALEY.ZIP
Filename : RECURSE.PRG

 
Output of file : RECURSE.PRG contained in archive : STRALEY.ZIP

********************
* Name RECURSE.prg
* Date August 4, 1986
* Notice Copywright 1986, Stephen J. Straley
* Note This program will demonstrate recursive
* program calling.
*
********************

CLEAR
x = 1
DO Sub1 WITH (x)

********************

PROCEDURE Sub1

PARAMETERS y

?? y
?? SPACE(5)
IF y > 100
CANCEL
ENDIF
y = y + 1
DO Sub1 WITH (y)

* End of File