home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
logo
/
labybug
/
recur.bug
< prev
next >
Wrap
Text File
|
1989-10-27
|
896b
|
38 lines
to "poly :d :a
forward :d
right :a
poly :d :a
end
to "test.recursion :n
print [ Is this recursion? ]
make "n :n + 1
if rq = "no [ test.recursion :n ]
print :n
end
to "help
ct
print "'Press For a description of'
print "' 1 Graphics commands '
print "' 2 Sound making commands'
print "' 3 Input and Output
print "' 4 Control commands'
print "' 5 Workspace commands'
print "' 6 Running Procedures'
print "' 7 Expressions and functions'
print "' 8 Tools in workspaces
print "' 0 To exit from HELP
print "' '
type "'Press a key '
local "key
make "key rc
if not number? :key [erase "help stop]
if :key < 1 [if :key > 8 [erase "help stop] ]
make "key word "help :key
load :key
help
print "' '
end