Бейсик на УКНЦ

[hobot]

совершенно не понимаю, отчего DECовский системный бейсик не кушает такую строку
11 FA=3.333
ПИШЕТ СИНТАКСИЧЕСКУЮ ОШИБКУ
ставил ему LET - та же история...пытаюсь под граф. КГД бас адаптировать данный листинг и в эмуляторе прогнать, но эта BASG - системный,
скотина ругается вообще на всё вполне легальное !!! Как его победить?

текущий листинг такой

1 INIT(0%,0%) \ STYLE(-1%)
11 LET FA=3.333
20 FOR X=-20 TO 130 STEP 5
30 FOR Y=0 TO 200
40 GOSUB 120
50 NY=Y-X*.5+80
51 NZ=Z+X*0.6+80
60 LINE(NY,NZ)-(NY,199)
61 INIT(1%,0%)
70 IF Y=0 THEN PSET(NY,NZ) ELSE LINE(PY,PZ)-(NY,NZ)
80 PY=NY
81 PZ=NZ
90 NEXT Y
100 NEXT X
110 GOTO 110
120 REM FUNCTION
130 Z=Y*.1
131 XT=X*.1
132 YT=(Y+120)*.06
140 IF XT<0 OR XT>10 THEN RETURN
150 IF XT<-FA*(YT-10)+10 OR XT<FA*(YT-10)-16.66666 THEN RETURN
160 IF XT<-FA*(YT-10)+16.66666 OR XT<FA*(YT-10)-10 OR (XT>6 AND XT<8) THEN Z=-20
170 RETURN
1 INIT(0%,0%) \ STYLE(-1%)
11 LET FA=3.333
20 FOR X=-20 TO 130 STEP 5
30 FOR Y=0 TO 200
40 GOSUB 120
50 NY=Y-X*.5+80
51 NZ=Z+X*0.6+80
60 LINE(NY,NZ)-(NY,199)
61 INIT(1%,0%)
70 IF Y=0 THEN PSET(NY,NZ) ELSE LINE(PY,PZ)-(NY,NZ)
80 PY=NY
81 PZ=NZ
90 NEXT Y
100 NEXT X
110 GOTO 110
120 REM FUNCTION
130 Z=Y*.1
131 XT=X*.1
132 YT=(Y+120)*.06
140 IF XT<0 OR XT>10 THEN RETURN
150 IF XT<-FA*(YT-10)+10 OR XT<FA*(YT-10)-16.66666 THEN RETURN
160 IF XT<-FA*(YT-10)+16.66666 OR XT<FA*(YT-10)-10 OR (XT>6 AND XT<8) THEN Z=-20
170 RETURN

[Advertiser]