REM Avertissement très important:
REM Sur machines à calculer: pour tous les programme utilisant des angles, la machine doit être en mode GRADES.
REM Sur micro-ordinateur: multiplier tous les angles en grades par PI/200 pour les passer en radians.
REM PI peut être obtenu par l'équation suivante: PI = 4 * ATN(1)

REM Calcul de gisement et de distance: Calcul de GAB et de la distance DAB
REM Calcul de point nouveau à partir d'un point ancien, d'un gisement et d'une distance

1 INPUT "(1)Gisement, (2)Pt nouveau"; R
2 IF R <>1 AND R<> 2 THEN GOTO 1
3 ON R GOTO 5,100

5 PRINT "Gisement AB et distance AB"
10 INPUT "Xa";XA : INPUT "Ya";YA
20 INPUT "Xb";XB : INPUT "Yb";YB
30 IF (YB=YA AND XB>XA) THEN G=100: GOTO 70
35 IF (YB=YA AND XB<XA) THEN G=300: GOTO 70
40 IF (YB=YA AND XB=XA) THEN G=0: GOTO 70
45 G = ATN((XB-XA) / (YB-YA))
50 IF YB<YA THEN G = 200+G: GOTO 70
60 IF XB<XA THEN G = 400+G
70 PRINT"Gisement AB = ";G; "grades"
80 PRINT"Distance AB = ";SQR((XB-XA)^2+(YB-YA)^2);" m"
90 END

100 PRINT "Coordonnées d'un point B à partir d'un point A"
110 INPUT"XA= ";XA : INPUT"YA= ";YA
120 INPUT"Gisement AB ";G
130 INPUT"Distance AB ";D
140 PRINT"Abcisse de B ";XA+D*SIN(G)
150 PRINT"Ordonnée de B ";YA+D*COS(G)
160 END