10 cls
20 rem ***to convert currency***
30 print "1.Dollar To Rupees - 2.Rupees To Dollar"
40 Input ; a
50 on a goto 60,70
60 if a=1 then gosub 80 : goto 20
70 if a=2 then gosub 140 : goto 20
80 rem ***Dollar To Rupees***
90 print " Enter Dollars: "
100 input ; c
110 let rupees=c/100
120 print "Rupees: " rupees
130 return
140 Rem ***Rupees To Dollars***
150 print "Enter Rupees: "
160 Input ; c
170 let dollars=c*100
180 print "Dollars: " dollars
190 return
Programmed By: Muhammad Abbas
20 rem ***to convert currency***
30 print "1.Dollar To Rupees - 2.Rupees To Dollar"
40 Input ; a
50 on a goto 60,70
60 if a=1 then gosub 80 : goto 20
70 if a=2 then gosub 140 : goto 20
80 rem ***Dollar To Rupees***
90 print " Enter Dollars: "
100 input ; c
110 let rupees=c/100
120 print "Rupees: " rupees
130 return
140 Rem ***Rupees To Dollars***
150 print "Enter Rupees: "
160 Input ; c
170 let dollars=c*100
180 print "Dollars: " dollars
190 return
Programmed By: Muhammad Abbas
Wow! Such an amazing and helpful post this is. I really really love it. It's so good and so awesome. I am just amazed. I hope that you continue to do your work like this in the future also. eth usd
ReplyDeleteHi. Cool post. There’s an issue with your site in chrome, and you may want to test this… The browser is the marketplace chief and a good element of people will omit your excellent writing because of this problem. The Coinanace Crypto Currency Magazine
ReplyDelete