page-1983-101-timex-sinclair-programming-tricks

100 IF H>40 THEN GOTO 140110 LET W=H*P120 PRINT nGROSS WAGES = $n;W130 STOP140 LET W=(40*P}+(T*P*l.5)150 GOTO 120Sample RunHOURLY PAY RATE = $5.75NUMBER HOURS WORKED =61GROSS WAGES = $411.12576 InvoicingThere's a lot of repetitious math work to be done beforeyou mail invoices to your customers. This software hasthe computer collect a few pertinent bits of data from youand then present all the various totals you need to plug intoan invoice.It gives you a total retail price for all goods sold on theinvoice, total sales tax if applicable, shipping charges andthe grand total amount due you from your customer.Program Listing10 PRINT nQUANTITY SOLD: n;20 INPUT Q30 PRINT Q40 PRINT nUNIT PRICE: $n;50 INPUT P60 PRINT P70 PRINT nSALES TAX RATE PERCENT: ";80 INPUT S90 PRINT S100 PRINT nSHIPPING CHARGES: $";95