cls
print "BAR.BAS (c) Rob Kunstadt 1990"
print "Is display tracked PC?"
print "Use Alt-Cursor to scroll"
print
print "How many items to plot (max 12)?"
input "Your choice: ",a
for b=1 to a
 print
 input "Enter a number (1 to 40): ",c
 for d=1 to c
  print ">"
  e=csrlin-1
  f=pos(0)+d
  locate e,f
 next d
next b
system