home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 June / APC561.ISO / workshop / other / mac / gst.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-21  |  91 b   |  7 lines
  1. 10 input "Price? ";p
  2. 20 gosub 50
  3. 30 print p;"inc. GST"
  4. 40 end
  5. 50 p = p*1.1
  6. 60 return
  7.