lang/basic/test/opg6.b

   1 1000 rem Temperature conversion
   2 1010 print "fahrenheit","centrigrade","kelvin","rankin"
   3 1020 for s= 1 to 5
   4 1030    print
   5 1040 next s
   6 1050 for i= 1 to 12
   7 1060    read f
   8 1070    let c= 5/9 *(f-32)
   9 1080    let k = c+273
  10 1090    let r= f+ 460
  11 1100    print f,c,k,r
  12 1110 next i
  13 1120 data 144, 36,110,98,63,26,14,78,66,51,107,2
  14 1130 end