jean_debord
Nombre de messages : 1250
Age : 69
Localisation : Limoges
Date d'inscription : 21/09/2008
 | | Sujet: Les voeux du crocodile Dim 1 Jan 2023 - 8:35 | |
| Bonne année à tous ! - Code:
-
' 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
| |
|
Calendrier