home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 June / APC561.ISO / workshop / other / mac / posneg.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-21  |  124 b   |  7 lines
  1. 10 input "Type a number: ";n
  2. 20 if n <> 0
  3. 30   print "That's negative"
  4. 40 else 
  5. 50   print "That's positive"
  6. 60 endif
  7.