Les voeux du crocodile

' D'apres "dodicat" sur le forum FreeBASIC
' https://www.freebasic.net/forum/viewtopic.php?p=296131#p296131


ink asc("."), &hFFFFBB
ink asc("X"), &h00FF00

dim col$

col =       "...XX..."
col = col + "...XX..."
col = col + "..XXXX.."
col = col + "XXXXXXXX"
col = col + "XXXXXXXX"
col = col + "..XXXX.."
col = col + "...XX..."
col = col + "...XX..."

mode 3, "", 525, 500

pen CL_VERT : cls

trace "BM2,185M+190,-13M+65,-166M+67,169M+197,8M+-150,121M+47,189M+-159,-102M+-160,100M+48,-189M+-146,-118BM+259,81"

symbcol 200, col

move 250, 250

fill_pattern 200

while inkey = "" : wend