home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
utilities
/
utilsa
/
choose
/
!Choose
/
Littles
/
FourB
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1995-04-05
|
191b
|
15 lines
JJ '95
e%= -1000
4000
w=e%*e%
f=2*e%
w=0
g=1000
g=f/w
k=1-f
k,e%,k
e%,k,k
k,k,e%
u=k-e%
u>0