lang/basic/test/opg3.b

   1 010 rem values of n using if-then loop
   2 020 print "n","n2","n3","1/n","square root"
   3 030 let n=1
   4 040 let n2= n*n
   5 050 let n3= n*n*n
   6 060 let r= 1/n
   7 070 let s= n^ .5
   8 080 print n,n2,n3,r,s
   9 090 if n>= 20 then 120
  10 100 let n= n+1
  11 110 goto 40
  12 120 end