Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
100 REM
110 PRINT "НАЧАЛО"
120 К=0
130 DIM M(5)
140 К=К+1
150 А=К/2*3+4-5
160 GOSUB 230
170 FOR L=l TO 5
180 M(L)=A
190 NEXT L
200 IF K<1000 THEN 140
210 PRINT "КОНЕЦ"
220 END
230 RETURN
> ? mm.ver
4.01
> list
100 Rem
105 Timer = 0
110 Print "BEGIN"
120 K=0
130 Dim M(5)
140 K=K+1
150 A=K/2*3+4-5
160 GoSub 230
170 For L=1 To 5
180 M(L)=A
190 Next L
200 If K<1000 Then 140
210 Print "END"
215 Print Timer
220 End
230 Return
> run
BEGIN
END
617
>
Цветной микрокомпьютер Maximite на базе PIC32