Turbo BASIC programming language

10 rem rechnung 20 cls 30 print "SUPERRECHNUNG" 40 input "X1-Koordinate";x 50 input "Y1-Koordinate";y 60 input "Z1-Koordinate";z 70 input "X2-Koordinate";a 80 input "Y2-Koordinate";b 90 input "Z2-Koordinate";c 100 f=((x-a)^2+(y-b)^2+(z-c)^2))^(-0.5) 110 print "Ergebnis = ";f 120 input "Nocheinmal? (j/n) ";n 130 if n="j" then goto 10 else end