'Unm”gliche Figur
'QBASIC oder Power Basic
SCREEN 12
WINDOW SCREEN (0, 0)-(250, 200)
FOR i = 1 TO 27
    READ x1, y1, x2, y2
    LINE (x1, y1)-(x2, y2), 8
NEXT
FOR i = 1 TO 9
    READ x, y, Colr
    PAINT (x, y), Colr, 8
NEXT
DATA  198,164,182,174,198,22,198,164,182,14,198,22
DATA  182,14,50,86,50,86,50,102,50,102,182,174
DATA  78,86,108,102,122,62,78,86,108,118,50,86
DATA  122,126,166,150,182,174,182,110,182,46,182,94
DATA  182,46,152,62,122,78,94,94,166,134,138,118
DATA  166,119,166,150,166,55,166,86,198,22,138,54
DATA  122,62,182,94,138,54,166,70,122,78,151,94
DATA  122,62,122,126,108,86,108,118,182,110,153,126
DATA  182,94,122,126,166,86,138,102,138,87,138,118
'Ausmalen
DATA  194,30,14,114,74,14,130,90,14
DATA  58,98,13,174,58,13,126,70,13
DATA  182,22,12,170,94,12,158,138,12