DIM sprite(1000) AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
'DIM First AS INTEGER
DIM oldx AS INTEGER
DIM oldy AS INTEGER
SCREEN 12
COLOR 10
' ножки
LINE (100, 100)-(80, 118)
LINE (100, 100)-(120, 118)
'антенна
LINE (100, 100)-(100, 80)
CIRCLE (99, 75), 5, 12
' эллипс
COLOR 15
CIRCLE (100, 100), 30, , , , .3
PAINT (101, 101), 9, 15
'3 иллюм.
CIRCLE (85, 100), 3, 12
CIRCLE (100, 100), 3, 12
CIRCLE (115, 100), 3, 12
'SCREEN 12
'CIRCLE (100, 100), 30, , , , .3
'OPEN "disk.spr" FOR BINARY AS #1 LEN = LEN(sprite(1))
GET (69, 70)-(131, 120), sprite
PUT (69, 70), sprite, XOR
'IF NOT First THEN PUT (oldx, oldy), sprite, XOR
x = 100
FOR y = 0 TO 350 STEP 10
  PUT (x, y), sprite
  'PUT (oldx, oldy), sprite, XOR
  PUT (x, y), sprite, XOR
'' oldx = x
'' oldy = y
  'SLEEP 1
NEXT
PUT (x, y), sprite
END

