*polygon 40 20   45 25   45 75   40 80   35 75   35 25   40 20
solidpen 192 192 255 0
solidbrush 192 192 255
polygon 40 20   35 25   15 25   15 75   35 75   40 80    35 85    5 85   5 15   35 15   40 20
solidpen 255 0 0 0
moveto -20 20
lineto 0 20
lineto 0 30
lineto 18 35
lineto 15 36
*
moveto 5 39
lineto 3 40
lineto 18 45
lineto 15 46
*
moveto 5 49
lineto 3 50
lineto 18 55
lineto 15 56
*
moveto 5 59
lineto 3 60
lineto 18 65
lineto 15 66
*
moveto 5 69
lineto 0 70
lineto 0 80
lineto -20 80
*
solidbrush 255 0 0 
ellipse -12 28 -8 32

* wikkeling de andere kant op



lineto 5 31
*
moveto 15 32
lineto 20 35
lineto 0 40
lineto 5 41
*
moveto 15 42
lineto 20 45
lineto 0 50
lineto 5 51
*
moveto 15 52
lineto 20 55
lineto 0 60
lineto 5 61
*
moveto 15 62
lineto 20 65
lineto 0 70
*lineto 5 71
*
lineto 0 80
lineto -20 80