/* * * 
 * Ŀ
 *  Salary.cmd 
 * 
 */

Job_offers.0  = 22

Job_offers.1  = 'ணࠬ                  - 17991  - 66101' 
Job_offers.2  = 'થ⮫                   - 2328   - 9651'  
Job_offers.3  = '⨪                     - 9456   - 41965' 
Job_offers.4  = '                     - 31410  - 183081'
Job_offers.5  = '                        - 1272   - 8455'  
Job_offers.6  = '                        - 1597   - 11761' 
Job_offers.7  = '                      - 8435   - 77383' 
Job_offers.8  = '                - 4100   - 44414' 

Job_offers.9  = 'ணࠬ Python           - 3359   - 8388'  
Job_offers.10 = 'ணࠬ Delphi           - 591    - 1445'   
Job_offers.11 = 'ணࠬ Perl             - 257    - 705'   
Job_offers.12 = 'ணࠬ PHP              - 1693   - 5218'  
Job_offers.13 = 'ணࠬ C#               - 1663   - 5344'  
Job_offers.14 = 'ணࠬ JavaScript       - 2262   - 7295'  
Job_offers.15 = 'ணࠬ Web              - 4388   - 14293' 
Job_offers.16 = 'ணࠬ Java             - 950    - 3268'  
Job_offers.17 = 'ணࠬ Ruby             - 75     - 264'   
Job_offers.18 = 'ணࠬ Unix             - 404    - 1410'  
Job_offers.19 = 'ணࠬ SQL              - 4652   - 16640' 
Job_offers.20 = 'ணࠬ C++              - 1223   - 4535'  
Job_offers.21 = 'ணࠬ 1               - 2647   - 10917' 
Job_offers.22 = 'ணࠬ ⠦           - 426    - 4816'  

Do i = 1 to Job_offers.0
 Call ParseRating Job_offers.i, PrintRating
End

Exit

/* * */

PrintRating: procedure expose R.

Say R.Title || R.Rating

Return

/* * */

ParseRating: procedure
Parse Arg String, FP

Parse Var String Job_offer_title '-' Interesting_project '-' Total_offers

Interesting_project = Strip( Interesting_project )
Total_offers = Strip( Total_offers )

R.Title = Job_offer_title
R.Rating = Trunc( Interesting_project / Total_offers, 2 )

Interpret 'Call' FP

Return
