Contoh Codingan Qbasic dan SS nya (Newbie)

Hari selasa kemarin dikasih tugas bikin program merubah derajat fahrenhait ke derajat celcius dan reamur pake READ DATA.  Tapi sampe sekarang gw belom bisa buatnya yg gw  cuma bisa yang kaya gini nie codinganya

CLS
DIM e AS INTEGER
LOCATE 3, 35
PRINT "MENU"
LOCATE 4, 20
PRINT "1.  MERUBAH DERAJAT"
LOCATE 5, 20
PRINT "2.  MENGHITUNG LUAS DAN JARI-JARI LINGKARAN LUAR SEGITIGA"
LOCATE 6, 20
PRINT "3. EXIT"
INPUT "Pilih Nomornya=",e

SELECT CASE e
CASE 1
DIM  Fahrenhait AS STRING, Celcius AS STRING, Reamur AS STRING
INPUT "Fahrenhait = ",F
C = (F-32)/1.8
R = ( F-32)/2.25
PRINT "Celcius: ",C
PRINT "Reamur : ",R

CASE 2
INPUT " SISI PERTAMA =",x
INPUT "SISI KEDUA=", y
INPUT "SISI KETIGA=",Z

t = (y ^ 2) - ((1/2)*z)^2
t = t ^ (1/2)
a = z
l = a * t / 2
r = x * y * z / (4*l)
ll = 3.14 * r ^ 2

PRINT  "TINGGI SEGITIGA : ", t
PRINT  "ALAS SEGITIGA : ",a
PRINT  "Luas Segitiga : ", l
PRINT  "Jari Jari Lingkaran : ", r
PRINT  "Luas Lingkaran : ",ll

CASE 3
GOTO 500
End Select
500
END

nie SS buat hasilnya

contoh gambar menunya nie,,

Contoh menu nomor .1

tanda panah : silahkan masukin nilai fahrenheitnya contoh disini 1 fahrenhait maka akan keluar konversi nilai ke celcius dan reamur.

Contoh Menu no .2

Tanda panah :  Silahkan masukin ke tiga sisi segitiganya dulu, nanti akan keluar outputan hasil nya.

udah sekian dulu nie, 

wassalamualaikum,,,,