home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas30.lzh / bar.bas < prev    next >
BASIC Source File  |  1991-08-22  |  341b  |  19 lines
  1. cls
  2. print "BAR.BAS (c) Rob Kunstadt 1990"
  3. print "Is display tracked PC?"
  4. print "Use Alt-Cursor to scroll"
  5. print
  6. print "How many items to plot (max 12)?"
  7. input "Your choice: ",a
  8. for b=1 to a
  9.  print
  10.  input "Enter a number (1 to 40): ",c
  11.  for d=1 to c
  12.   print ">"
  13.   e=csrlin-1
  14.   f=pos(0)+d
  15.   locate e,f
  16.  next d
  17. next b
  18. system
  19. ə