REM Wardom.ORG/Suk1y3n
REM Türk Bayrağımız...

CLS
SCREEN 1: COLOR 4, 1
pi = 3.141592
CIRCLE (106, 100), 53, 3, pi / 4.45, 7 * pi / 3.85
CIRCLE (119, 100), 42, 3, pi / 4, 7 * pi / 4
PAINT (60, 100), 3
LINE (154, 100)-(168, 95): LINE (154, 100)-(168, 105)
LINE (168, 95)-(168, 85): LINE (168, 105)-(168, 114)
LINE (189, 89)-(180, 100): LINE (189, 111)-(180, 100)
LINE (189, 89)-(175, 93): LINE (189, 111)-(175, 107)
LINE (168, 114)-(175, 106): LINE (168, 85)-(175, 93)
PAINT (160, 100), 3
DO WHILE INKEY$ = ""
LOOP
CLS
SCREEN 13
LOCATE 5, 5
PRINT "WARDOM"
LOCATE 6, 5
PRINT "Mail@Mail"
LOCATE 7, 5: PRINT "www.wardom.org"
DO WHILE INKEY$ = ""
LOOP
END