lang/basic/test/som4.b

   1 0010 print " beginwaarde =a"
   2 0020 input a
   3 0030 print "eindwaarde =b"
   4 0040 input b
   5 0050 if b<a then 0130
   6 0060 n=a
   7 0070 if n<0 then 0200
   8 0080 print "n=",n;" wortel uit n=",sqr(n)
   9 0090 if n=b then 0120
  10 0100 n=n+1
  11 0110 goto 0070
  12 0120 end
  13 0130 print "b moet groter zijn dan a"
  14 0140 end
  15 0200 print "n=",n,"n is negatief, de oplossing is leeg"
  16 0210 goto 0100
  17