Na, dann laßt euch schön beschenken.
Anbei hab ich noch nen ASCII - Tannenbaum :
Code
Declare Int x, y
Declare Int Tanne[10]
y = 4 : x = 13
WhileLoop 0, 9
Tanne[&LOOP] = x
Dec x
EndWhile
WindowTitle "Beenden mit ESC"
Window 300, 360
Font 1
Color 2, 0
TBox 1, 2 - 22, 25; 3
Color 13, 0
Locate 2, 4
Print "FROHE WEIHNACHTEN !"
x = 13
Color 14, 0
Locate y - 1, x
Print Chr$(248)
Color 2, 0
WhileLoop 0, 9
Locate y, Tanne[&LOOP]
Print MkStr$(Chr$(220) + " ", &LOOP + 1)
Inc y
EndWhile
x = 13
Locate y, x
Color 6, 0
' Stamm zeichnen
WhileLoop 1, 7
Locate y, x
Print Chr$(219)
Inc y
EndWhile
' weißen Boden zeichnen
Color 15, 0
x = 3
WhileLoop 1, 22
Locate y, x
Print Chr$(220)
Inc x
EndWhile
' Geschenke zeichnen
y = 20 : x = 4
Color 10,0
Locate y, x
Print Chr$(177)
Locate y, x + 17
Print Chr$(177)
Inc x
Locate y - 1, x
Print Chr$(248)
Locate y - 1, x + 17
Print Chr$(248)
Color 4, 0
Locate y, x
Print Chr$(177)
Locate y, x + 17
Print Chr$(177)
Inc x
Color 14, 0
Locate y, x
Print Chr$(177)
Locate y, x + 17
Print Chr$(177)
While 1
WaitInput
Case %Key = 27 : Break
EndWhile
End
Alles anzeigen