§ Просто логотип Отруба
SCREEN 13
DATA 4
DATA 20,50, 20,30, 40,30, 4
DATA 200,30, 220,30, 220,50, 4
DATA 220,140, 220,160, 200,160, 4
DATA 40,160, 20,160, 20,140, 4
READ n
FOR i = 0 TO n - 1
READ x1, y1, x2, y2, x3, y3, cl
Bezie x1, y1, x2, y2, x3, y3, 4
NEXT
LINE (40, 30)-(200, 30), 4
LINE (220, 50)-(220, 140), 4
LINE (200, 160)-(40, 160), 4
LINE (20, 140)-(20, 50), 4
PAINT (100, 100), 4, 4
LINE (100, 70)-(150, 95), 15
LINE (150, 95)-(100, 120), 15
LINE (100, 70)-(100, 120), 15
PAINT (120, 95), 15, 15
COLOR 15
LOCATE 12, 30
PRINT "YouTube"
SUB Bezie (x1, y1, x2, y2, x3, y3, cl)
FOR t = 0 TO 1 STEP .05
xa = x1*(1 - t) + x2*t
ya = y1*(1 - t) + y2*t
xb = x2*(1 - t) + x3*t
yb = y2*(1 - t) + y3*t
x = xa*(1 - t) + xb*t
y = ya*(1 - t) + yb*t
IF t > 0 THEN LINE (xp, yp)-(x, y), cl
xp = x
yp = y
NEXT
LINE (xp, yp)-(x3, y3), cl
END SUB