"(...)ale widziałem program w którym to było ale w jakim celu było zastosowanie nie pamiętam." Natan - w podprogramie/"cyklu" na wierszowanie stożkowych pogłębień... z założeni miało to zapewnić uniwersalność, bo różne maszyny mają inaczej obłożone Q-parametry (różnice pomiędzy AVIAmi a także DMG)... niestety okazało się, że i lista parametrów formalnych przy SYS READ też jest różna (choć pod tym względem AVIA FNE 50 i tak jest bardziej kompatybilna od 40tki).

FN 10: IF +Q3 NE -10 GOTO LBL 1 oznacza - skocz do etykiety nr 1 gdy Q3 nie jest równe -10... oznacza to, że w chwili gdy Q3=-10 program opuszcza pętlę, dodatkowo, jeśli Q3 na początku byłby równy np. 0.01 to pętla nigdy by się nie skończyła
W twoim przykładzie albo dać -10.1, albo inkrementację przenieść na początek pętli (tuż pod LBL1)
15 LBL 1
16 Q3 = Q3 - 0.1
17 L Z+Q3 FMAX
18 L Y+Q1 F1000
19 L X+Q1
20 L Y-Q1
21 L X-Q1
22 FN 10: IF +Q3 NE -10 GOTO LBL 1