home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / DEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-03-21  |  295 b   |  15 lines
  1.     ' this is a BASIC demo program
  2.  
  3.     input "give me a #>"; number$
  4.     number = val(number$ + ".05") * -10
  5.     print number
  6.     number$ = str$(number / 15)
  7.     long = len( number$ )
  8.  
  9.     for x = 1 to long
  10.         print mid$(number$,x,1)
  11.     next x
  12.  
  13.     print
  14.     print 50 - 100
  15.