Программа на языке QBasic, тип рисования. Программа рисует небольшой конус с кругом в центре, просто посмотрите. Выполнено в школе.

SCREEN 12
CIRCLE (380, 300), 100, 15, , , .4
LINE (221, 340)-(450, 340), 15
y = 340
FOR x = 221 TO 311 STEP 15
LINE (x, y)-(x + 10, y — 7), 15
y = y — 13
NEXT x
y = 260
FOR x = 315 TO 525 STEP 15
LINE (x, y)-(x + 10, y), 15
NEXT x
LINE (530, 260)-(450, 340), 15
y = 300
FOR x = 280 TO 470 STEP 15
LINE (x, y)-(x + 10, y), 15
NEXT x
x = 380
FOR y = 300 TO 100 STEP -15
LINE (x, y)-(x, y — 10), 15
NEXT y
LINE (380, 100)-(450, 340), 15
LINE (380, 100)-(530, 260), 15
LINE (380, 100)-(220, 340), 15
y = 260
FOR x = 315 TO 380 STEP 15
LINE (x, y)-(x + 5, y — 10), 15
y = y — 38
NEXT x