Subirenihil #1 Open in online IDEPrint "25 percent of 1000" Print Percentage(25,1000) WaitKey End Function Percentage(percentage,number) Return percentage*number/100 End Function