Текст программы "Мышка уходит В норку"
' Начало
SCREEN 7
CLS
COLOR 11, 9
' Объявить массивы
DIM kx(31), ky(31)
' Ввести данные в память
DATA 60,80,100,120,140,160,180,200,220,220,220,220,220,200,
180,160,140,120,100,100,100,100,120,140,160,180,200,220,240,
260,280 'координаты х'
DATA 160,160,160,160,160,160,160,160,160,140,120,100,80,80,80,
80,80,80,80,60,40,30,30,30,30,30,30,30,30,30,30 'координаты y'
' Прочитать данные в массивы
FOR i = 1 TO 31
READ kx(i)
NEXT i
FOR i = 1 TO 31
READ ky(i)
NEXT i
' Вывести название программы
LOCATE 14, 5
PRINT "МЫШКА УХОДИТ В НОРКУ“"
' Вывести подпись
LOCATE 23, 5
PRINT "сделала Горбатова Алёна "
' Нарисовать маршрут
DRAW "c4bm60,160r160u80l120u50r170"
CIRCLE (290, 30), 15, 4
PAINT (290, 35), 4, 4
' Цикл по точкам маршрута
FOR i = 1 TO 31
' Задать поворот объекта
IF i < 10 THEN DRAW "a0"
IF i > 9 AND i < 14 THEN DRAW "a1"
IF i > 13 AND i < 20 THEN DRAW "a2"
IF i > 19 AND i < 23 THEN DRAW "a1"
IF i > 22 THEN DRAW "a0"
' Нарисовать объект
PSET (kx(i), ky(i))
DRAW "g10l20u15l5m-10,-5m+5,+10m+10,+5u15r20bd5l2d2r2u2bd10l2d2r2u2bu15f10bl2p8,11"
' Задержка для глаз
FOR j = 1 TO 50000
NEXT j
' Стереть объект
PSET (kx(i), ky(i))
DRAW "c0g10l20u15l5m-10,-5m+5,+10m+10,+5u15r20bd5l2d2r2u2bd10l2d2r2u2bu15f10bl2p0,0"
' Нарисовать маршрут
DRAW "a0c4bm60,160r160u80l120u50r170"
' Перейти к следующей точке маршрута
NEXT i
' Конец
