Реферат: Компьютерное моделирование движения тел

NEXT

ERASE x, y

210 KEY(2) ON

ON KEY(2) GOSUB 220

KEY(3) ON

ON KEY(3) GOSUB 230

KEY(1) ON

ON KEY(1) GOSUB 72

GOTO 210

220 a = a + 1

LOCATE 1, 46: PRINT a

GOTO 210

230 a = a - 1

LOCATE 1, 46: PRINT a

GOTO 210

300 END