lang/basic/test/opg5.b

   1
   2  10 rem find largest number (57)
   3   20 read l
   4   30 let r=0
   5   40 for z=1 to l
   6   50   read a
   7   60    if a<=r then 80
   8   70    let r=a
   9   80 next z
  10   90 print "largest number is",r
  11 100  data 10
  12 110 data 106, 42,-12,111,88,91,3,263,-1042,7
  13 120 end