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