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