' $Id: /mirror/trunk/languages/BASIC/compiler/samples/count_to_100.bas 17096 2007-02-20T20:20:48.648616Z paultcochrane  $
'   
' count_to_100.bas
'
' Test scripts for [perl #22877] as reported by Clint Pierce

dim a$()
for i = 0 to 100 step .5
  for j = 1 to 30
    a$(j)=" "
  next j
  for j = 1 to 30
    print " ";
  next j
  print i
next i
