home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / Vyzkuste / einstein / ei100103.exe / esempio.prg < prev    next >
Text File  |  2000-02-07  |  4KB  |  127 lines
  1.  0) - Go Sub 75             
  2.  1) - For x = 0 to 20       
  3.  2) - Ric                   
  4.  3) - 5                     
  5.  4) - 2                     
  6.  5) - +                     
  7.  6) - TRI                   
  8.  7) - sen                   
  9.  8) - e^x                   
  10.  9) - Ric                   
  11.  10) - 5                    
  12.  11) - 2                    
  13.  12) - /                    
  14.  13) - cos                  
  15.  14) - aSe                  
  16.  15) - +                    
  17.  16) - Ric                  
  18.  17) - 5                    
  19.  18) - Ric                  
  20.  19) - 2                    
  21.  20) - X                    
  22.  21) - Ric                  
  23.  22) - 3                    
  24.  23) - -                    
  25.  24) - +                    
  26.  25) - TRI                  
  27.  26) - Go Sub 66            
  28.  27) - if stacx >= Mem(18)  
  29.  28) - Go To 44             
  30.  29) - Ric                  
  31.  30) - 6                    
  32.  31) - Ric                  
  33.  32) - 0                    
  34.  33) - -                    
  35.  34) - if stacx =< 0        
  36.  35) - Go To 61             
  37.  36) - Ric                  
  38.  37) - 6                    
  39.  38) - Mem                  
  40.  39) - +                    
  41.  40) - 5                    
  42.  41) - Go Sub 66            
  43.  42) - NEXT                 
  44.  43) - Go To 61             
  45.  44) - Go Sub 66            
  46.  45) - if stacx =< Mem(18)  
  47.  46) - Go To 58             
  48.  47) - Ric                  
  49.  48) - 6                    
  50.  49) - Mem                  
  51.  50) - -                    
  52.  51) - 5                    
  53.  52) - 1                    
  54.  53) - 0                    
  55.  54) - Mem                  
  56.  55) - /                    
  57.  56) - 6                    
  58.  57) - Go To 1              
  59.  58) - Ric                  
  60.  59) - 5                    
  61.  60) - End                  
  62.  61) - 9                    
  63.  62) - 9                    
  64.  63) - 9                    
  65.  64) - ENT                  
  66.  65) - END                  
  67.  66) - Ric                  
  68.  67) - ,                    
  69.  68) - 8                    
  70.  69) - CaS                  
  71.  70) - Mem                  
  72.  71) - ,                    
  73.  72) - 8                    
  74.  73) - GIU                  
  75.  74) - Return               
  76.  75) - Ric                  
  77.  76) - 3                    
  78.  77) - if stacx = 0         
  79.  78) - 4                    
  80.  79) - Mem                  
  81.  80) - 3                    
  82.  81) - Ric                  
  83.  82) - 2                    
  84.  83) - if stacx = 0         
  85.  84) - Go Sub 119           
  86.  85) - 1                    
  87.  86) - Mem                  
  88.  87) - 6                    
  89.  88) - 0                    
  90.  89) - Mem                  
  91.  90) - 5                    
  92.  91) - 1                    
  93.  92) - 0                    
  94.  93) - ENT                  
  95.  94) - 9                    
  96.  95) - CaS                  
  97.  96) - y^x                  
  98.  97) - Mem                  
  99.  98) - 0                    
  100.  99) - Go Sub 101           
  101.  100) - Return              
  102.  101) - Ric                 
  103.  102) - 8                   
  104.  103) - if stacx = 0        
  105.  104) - Go Sub 112          
  106.  105) - if stacx < 0        
  107.  106) - CaS                 
  108.  107) - Mem                 
  109.  108) - ,                   
  110.  109) - 8                   
  111.  110) - GIU                 
  112.  111) - Return              
  113.  112) - GIU                 
  114.  113) - ,                   
  115.  114) - 1                   
  116.  115) - Mem                 
  117.  116) - ,                   
  118.  117) - 8                   
  119.  118) - Return              
  120.  119) - ,                   
  121.  120) - 3                   
  122.  121) - 5                   
  123.  122) - Mem                 
  124.  123) - 2                   
  125.  124) - Return              
  126.  
  127.