WVG-Development

10 LET A = 10
11 LET S = 0
12 LET X = A
20 FOR J = 0 TO A
30 LET Y = J
40 GOSUB 200
50 NEXT J
55 IF S<>A GOTO 60
56 REM
60 REM
110 LET A = 6
111 LET S = 0
112 LET X = A
120 FOR J = 0 TO A
130 LET Y = J
140 GOSUB 200
150 NEXT J
155 IF S<>A GOTO 60
156 REM
160 REM
200 LET B = 0
225 FOR I = 0 TO X
227 LET B = B + 1
228 IF B<>Y GOTO 230
229 LET B = 0
230 NEXT I
240 IF B<>0 GOTO 255
241 LET S = S + Y
255 REM
260 RETURN
480 END

----------------------------------------------------------------------------------------------------------------------------

Пр авленый asm файл
С функциями вывода печати и подправлеными значениями таблицы TO (синт блок их что то попутал)