–code for gross income salary–

private rh,rph,ts,np,agi
rh =0
rph =120
ts=0
np=0

activate screen
clear screen
clear

set color to B/G
@2,2 say “This Program will tell your salary income “
@4,2 say “Enter an hours of work : ” get rh
read
ts = rh * 120
@6,2 say ” total salary is :” get ts
np = 0.1 * ts
@8,2 say ” net pay is: ” get np
agi = np * 12
set color to R/B
@10,2 say “the annual gross income is :” get agi
close database