Синтаксическая ошибка на 808d

[Evil.genius 0]

Всем привет. Пишу код (токарный цикл), выдает синтаксическую ошибку в кадре 25.

N20 DEF REAL STP=50, ENP=25, THICK=2, DI1=48, DI2=40.5, SPD=0.3
N25 DEF REAL VAR1=DI1 - DI2
N30 DEF INT COUNT=(INT)VAR1 DIV THICK, CST=0
N48 DEF REAL COM=DI1-THICK
N45 M3S800M8
N50 FOR CST TO COUNT
N60  G0 Z=STP+1
N78  X=COM
N80  G1 Z=ENP F=SPD
N90  G0 X=COM+1
N100  COM=COM-THICK
N110   IF COUNT=COUNT-1
N120    COM=DI2
N130    SPD=SPD*0.75
N148   ENDIF
N150 ENDFOR
N160 Z=STP+1
N170 M30

Ошибка: https://disk.yandex.ru/i/XlYHu7SpZCSQJA

[ID_Hacker 41]

Может нельзя делать объявление и сразу вычисление? Может так сделать?
N25 DEF REAL VAR1 =0.0

VAR1 = DI1 - DI2

[Evil.genius 0]

По идее, переменным можно присваивать результат вычисления, и в другой программе у меня такое есть, и работает. Но проверить смогу только завтра утром.

[ID_Hacker 41]

Присваивать результат вычисления можно в коде программы, но в области объявлений можно только объявлять с инициализацией значений. Так в некоторых языках программирования. Возможно здесь так же.

[Evil.genius 0]

На симуляторе сейчас пробовал, действительно нужно сначала объявить и присвоить. Потом еще ошибки вылезли, но их решил. Большое спасибо, а то совсем уж перестал чтото понимать) Вот в таком виде программа работает, правда чуть не так как надо, но это мелочи)

N20 DEF REAL STP=50, ENP=25, THICK=2, DI1=48, DI2=40.5, SPD=0.3
N25 DEF REAL VAR1 = 0.0
N26 DEF REAL CUN = 0.0
N27 VAR1 = DI1 - DI2
N28 R2=0
N30 R1=0 
N31 R1=VAR1 / THICK + 1
N47 R0=1
N48 CUN = DI1-THICK
N49 M3S800M8
N50 FOR R0=1 TO R1
N60  G0 Z=STP+1
N78  X=CUN
N80  G1 Z=ENP F=SPD
N90  G0 X=CUN+1
N100  CUN=CUN-THICK
N101  R2=R2+1
N110   IF R2==R1-1
N120    CUN=DI2
N130    SPD=SPD*0.75
N148   ENDIF
N150 ENDFOR
N160 Z=STP+1
N170 M30
==eof==

 

Плохо без нормальной среды программирования)