home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / WIN95 / INTERNET / ftpctrl3b8.exe / %MAINDIR% / Scripts / Example18.ftp < prev    next >
Encoding:
Text File  |  1999-02-07  |  558 b   |  32 lines
  1. ; *****************************************************
  2. ; Example18.ftp
  3. ; =============
  4. ; This example shows the use of Numeric Variables and
  5. ; Mathematical functions
  6. ; -----------------------------------------------------
  7.  
  8. NumVariable i
  9. NumVariable a
  10. NumVariable b
  11. NumVariable c
  12. NumVariable d
  13.  
  14. Let I=100
  15. Let A=5
  16. Let I=I*A
  17. Message "I = %%I%%"
  18.  
  19. Let I=0
  20. :Aftur
  21.   Let I=I+1
  22.   Message "I = '%%I%%' "
  23.   if %%I%%<10 then
  24.      goto Aftur
  25.   endif 
  26.  
  27. Let a = 1
  28. Let b = 2
  29. Let c = 3
  30. let d=sin(a)*cos(b)+c
  31. Message "sin(a)*cos(b)+c = %%d%%"
  32.