CONST PI = 3.14159
DIM a(100)

SCREEN 12
REM 画西瓜的瓤和瓜皮
CIRCLE (300, 200), 100, 10, -PI, -.001
CIRCLE (300, 200), 93, 10, -PI, -.001
PAINT (300, 295), 10, 10
LINE (200, 200)-(400, 200), 10
PAINT (300, 210), 12, 10
LINE (208, 200)-(392, 200), 12

REM 画西瓜的籽
LINE (0, 0)-(20, 30), 12, BF
PSET (10, 10)
DRAW "c8nm+8,+15m-8,+15"
CIRCLE (10, 20), 10, 8, 1.2 * PI, 1.8 * PI
PAINT (10, 12), 6, 8
PSET (10, 11)
DRAW "c0nd6nm+2,+5m-2,+5"
GET (0, 0)-(20, 30), a
PUT (0, 0), a, XOR

REM 画西瓜的籽
PUT (230, 200), a, PSET
PUT (260, 200), a, PSET
PUT (290, 200), a, PSET
PUT (320, 200), a, PSET
PUT (350, 200), a, PSET
PUT (250, 231), a, PSET
PUT (280, 231), a, PSET
PUT (310, 231), a, PSET
PUT (340, 231), a, PSET