home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / demo.bas < prev    next >
BASIC Source File  |  1992-03-21  |  295b  |  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.