Les programmes de papydall

rem =============================================================================================================================
rem                                         Kim Jong-un
rem                                      Ported by Papydall
'D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?t=22859&hilit=snow&start=105
rem =============================================================================================================================

mode 3,"Kim Jong-un", 640,480
Dim  dStr$, tStr$
Read tStr
While tStr <> "enddata"
      dStr &= tStr
Read tStr
Wend
trace dStr
repeat : until len(inkey())
rem ===============================================================================================================================
rem ============================================================================
Data "C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M"
Data "3,3BM1,476M35,453M43,447M55,439M66,436M79,408M90,373M96,357M99,353M124,357M141,331M141,323M149,311M134,263BM137,271M132,251M1"
Data "32,236M135,224M143,212M154,207M164,211M170,218M170,195M171,159M171,135M172,127M177,103M180,93M189,80M186,69M188,65M210,37M235"
Data ",24M267,18M292,21M310,27M311,28M312,21M309,18M314,17M318,14M323,15M329,15M340,22M346,21M361,24M372,35M392,37M414,42M429,44M43"
Data "7,48M445,50M450,55M458,61M479,71M491,90M501,107M507,121M508,126M504,124M502,136M500,150M496,171M493,188M488,194M485,183M480,1"
Data "94M483,218M480,236M477,252M472,276M477,273M479,277M478,285M474,306M468,318M464,328M459,334M456,346M451,364M447,381M433,407M41"
Data "9,425M408,432M410,439M418,450M423,458M432,475BM473,270M470,290M465,313M460,329M459,335BM145,304M155,319M166,326M176,336M192,3"
Data "61M209,389M226,411M260,443M287,459M313,471M326,476BM124,358M119,366M137,385M177,410M194,438M221,459M225,478M167,476M117,448M9"
Data "7,440M80,434M66,434BM478,197M468,205M459,212M455,212M464,196M461,178M449,171M445,160M442,162M436,150M433,153M431,146M426,140M"
Data "418,134M410,117M408,122M401,121M397,123M392,120M380,117M374,113M362,107M354,100M344,106M330,108M320,106M301,117M291,112M281,1"
Data "14M273,122M267,128M269,141M265,148M256,159M248,169M243,170M240,164M231,168M226,164M220,174M216,173M211,168M208,177M202,184M19"
Data "3,177M186,182M186,190M181,186M177,191M176,194M170,198BM122,369M110,364M103,358M114,359M120,362BM169,215M177,229M180,239M178,2"
Data "55M174,259M169,263M171,247M164,235M155,230M147,231M140,246M145,278M155,297M167,297M167,289M163,284M159,270M166,265M170,252BM1"
Data "66,288M162,294M159,297M151,288M146,268M147,255M148,246M154,224BM398,223M414,219M427,219M436,221M446,222M453,233M447,233M442,2"
Data "27M432,228M420,229M409,230M399,230M399,224BM348,214M338,205M311,198M291,199M280,202M277,206M286,206M293,203M306,206M319,207M3"
Data "26,212M333,214M341,216M339,207BM388,238M380,249M378,262M383,276M388,294M388,303M395,313M396,320M393,331M386,336M383,334M382,3"
Data "28M377,332M366,333M357,331M354,324M350,322M342,326M345,330M337,331M331,327M328,311M335,303M341,295M348,301BM314,376M325,366M3"
Data "38,360M350,357M360,358M362,358M371,356M375,360M383,369M387,382M386,386M382,382M369,376M360,373M346,372M338,371M326,371M319,37"
Data "5M325,375M331,387M339,395M352,396M365,396M372,393M376,388M381,385BM395,259M401,251M406,249M421,249M435,255M440,260M444,267M44"
Data "1,265M429,265M413,267M403,265M397,261M395,259M396,256M400,258M408,262M415,258M417,250M418,247BM332,240M326,234M320,230M301,23"
Data "1M293,233M288,234M282,236M279,235M283,245M299,254M310,257M319,256M326,255M329,254M331,255BM338,247M334,244M330,244M319,248M30"
Data "5,245M298,243M292,239M282,232M285,229BM305,244M309,242M312,239M312,235M312,229BM397,441M385,447M372,454M356,457M345,459M331,4"
Data "54M316,450M294,442M281,431BM333,460M318,455M291,448M276,441M256,435BM373,394M376,399M370,407M362,409M357,404M348,401M333,401M"
Data "331,402M329,397M319,398M312,402M303,402M308,396M317,390M326,387M328,382BM231,166M221,171M213,178M203,190M201,195M191,199M187,"
Data "208M185,215M182,214M175,218M174,220BM397,440M407,431BM329,459M336,459M355,457BM148,311M154,318M162,325M170,326M175,324M177,32"
Data "1M178,315BM342,295M349,299M359,294M360,290M359,279M356,269M354,257M352,251M347,247M339,244M335,237BM354,319M354,312M357,308BM"
Data "393,328M388,321M382,320M378,317M371,312M368,303M371,294M368,273M366,260M363,251M363,246M372,242M377,246M379,254BM443,386M428,"
Data "404M414,413M410,412M403,408M399,399M395,394M385,382BM457,207M445,210M438,203M433,197M422,184M426,179M424,175M424,162M423,148M"
Data "419,137M415,129BM261,156M246,163M235,167M222,191M236,204M226,215M227,236M225,249M239,254M251,256M261,252M266,252M267,258M259,"
Data "267M260,284M270,294M274,310M262,315M252,328M247,342M248,360M249,371M254,377M265,384M284,391M294,383M300,360M307,347M320,344M3"
Data "27,337M331,327BM296,415M307,407M317,404M337,401M358,408M384,419M387,434M380,444M370,445M362,439M358,437M354,448M347,445M338,4"
Data "43M336,437M329,435M323,435M315,433M304,429M287,420M298,413M314,404BM365,332M366,340M367,347M362,348M360,345M360,336M360,331BM"
Data "388,304M396,303M400,318M403,339M400,345M396,338M394,332BM352,254M349,258M340,266M333,272M338,282M343,284M336,287M329,289M325,"
Data "298M313,316M312,327M315,329M322,321M328,318M366,343M367,358BM398,272M410,279M421,282M430,282M434,278M436,271M439,267BM325,254"
Data "M331,253M336,250M338,242M333,244BM375,448M352,452M331,447M307,437M285,429M276,421M257,398M251,402M239,399M229,388M220,376M219"
Data ",358M215,334M211,304M198,278M195,260BM195,266M192,247M188,225M189,210M193,198BM179,315M177,293M176,277M176,257M179,243BM77,45"
Data "3P4278387023,4278190080BM126,420P4278387023,4278190080BM112,364P4278255873,4278190080BM113,365P4278255873,4278190080BM114,363"
Data "P4278255873,4278190080BM169,376P4278190234,4278190080BM170,195M173,197M179,186M186,188M186,182M190,177M196,179M202,183M207,17"
Data "6M212,168M219,174M226,163M232,167M240,164M245,170M253,161M258,157M269,141M269,137M268,129M281,112M286,114M290,112M300,116M320"
Data ",106M330,108M339,107M346,105M352,100M361,105M376,114M395,121M402,120M406,121M410,116M418,135M428,141M431,147M432,150M433,152M"
Data "437,150BM437,151M441,160M444,161M448,169M457,175M461,177M462,183M463,195M458,205M455,210M459,212M468,205M479,197M485,184M488,"
Data "191BM396,77P4278255873,4278190080BM444,179P4290541123,4278190080BM472,295P4290541123,4278190080BM361,476M376,472M385,465M393,"
Data "455M397,452M401,446M409,441M414,443BM192,415P4278386710,4278190080BM412,464P4278386710,4278190080BM259,435M248,430M243,428BM1"
Data "73,220M175,218BM372,449M385,444M395,439M401,436BM199,327P4288236805,4278190080BM347,468P4290541123,4278190080BM162,227P429054"
Data "1123,4278190080BM162,245P4288236805,4278190080BM162,225P4290541123,4278190080BM145,245P4290541123,4278190080BM164,293P4290541"
Data "123,4278190080BM183,198P4279834905,4278190080BM186,195P4280948229,4278190080BM190,191P4280948229,4278190080BM182,201P42809482"
Data "29,4278190080BM179,194P4284558593,4278190080BM415,223P4279834905,4278190080BM327,208P4279834905,4278190080BM307,239P427983490"
Data "5,4278190080BM408,253P4279834905,4278190080BM315,376M321,375BM400,274M396,271M393,265M390,260M395,252M403,248M421,245M427,249"
Data "BM336,239M331,235M323,230M314,227M302,228M291,230M282,232BM224,290P4292386676,4278190080BM349,276P4290541123,4278190080BM329,"
Data "394P4290541123,4278190080BM438,267M442,265BM426,248M431,250M435,252M438,254M441,258M446,267M443,267M421,277BM410,274P42923866"
Data "76,4278190080BM309,250P4292386676,4278190080BM379,386M384,383BM385,384M375,375M362,371M353,370M341,370M334,370M323,372M316,37"
Data "5BM349,387P4294885091,4278190080BM359,367P4294885091,4278190080BM362,251M360,243M359,232M366,224M366,216M360,214M351,212M343,"
Data "217M343,222M345,228M338,231M326,233BM226,292P4292386676,4278190080BM215,217P4292386676,4278190080BM220,298P4292386676,4278190"
Data "080BM198,328P4288236805,4278190080BM195,315P4290541123,4278190080BM219,278P4290541123,4278190080BM199,309P4284558593,42781900"
Data "80BM208,219P4288236805,4278190080BM322,422P4290541123,4278190080BM372,112M352,107M332,112M313,125M310,143M319,154M335,168M341"
Data ",188M341,191M334,198M321,205M303,202M277,208M271,217M271,225M279,230BM284,233M273,237M256,234M251,240M253,246M270,254M272,257"
Data "M268,272M276,289M280,309M273,347M278,363M292,365M303,357BM263,342P4292386676,4278190080BM249,348P4290541123,4278190080BM276,1"
Data "64BM279,171P4290541123,4278190080BM464,314M453,324M441,337M417,336M404,325M399,317M402,334M401,343M406,364M410,377M418,391M43"
Data "2,392M444,378M450,368BM153,269P4284558593,4278190080BM163,311P4288236805,4278190080BM144,244P4288236805,4278190080BM425,368P4"
Data "292386676,4278190080BM319,307M310,309M300,312M281,299M273,281BM349,250M336,261M321,264M297,265M286,261M277,255M265,253BM289,3"
Data "26P4292386676,4278190080BM286,335P4290541123,4278190080BM365,272P4288236805,4278190080BM301,276P4292386676,4278190080BM392,36"
Data "1P4292386676,4278190080BM402,227M380,223M366,228M361,229BM378,251M400,230BM378,232P4292386676,4278190080BM377,240P4288236805,"
Data "4278190080BM348,278P4288236805,4278190080BM393,265M383,279BM411,248M411,244M412,238M415,227BM396,243P4288236805,4278190080BM3"
Data "97,239P4290541123,4278190080BM431,277P4290541123,4278190080BM295,249P4290541123,4278190080BM316,238P4291348680,4278190080BM42"
Data "5,259P4291348680,4278190080BM292,213P4293569918,4278190080BM276,228M284,234BM443,293P4293569918,4278190080BM395,372P429356991"
Data "8,4278190080BM342,430P4293569918,4278190080BM293,291P4293569918,4278190080BM363,343P4284558593,4278190080BM360,342P4280948229"
Data ",4278190080BM362,337P4280948229,4278190080BM369,362P4286384136,4278190080BM341,384P4294923348,4278190080BM378,301P4294883246,"
Data "4278190080BM270,246P4288236805,4278190080BM306,215P4290607446,4278190080BM350,379P4289341480,4278190080BM278,184P4290541123,4"
Data "278190080BM352,331P4288236805,4278190080BM334,325P4288236805,4278190080BM350,331P4284558593,4278190080BM335,327P4284558593,42"
Data "78190080BM363,337M383,333BM379,332P4284558593,4278190080BM301,230P4284558593,4278190080BM297,231P4284558593,4278190080BM297,2"
Data "31P4284558593,4278190080BM295,231P4284558593,4278190080BM300,230P4284558593,4278190080BM290,232P4284558593,4278190080BM245,16"
Data "7P4278255873,4278190080BM227,166P4278255873,4278190080BM151,231M161,242M166,252M164,257M162,263M155,268M159,283M164,296BM167,"
Data "247P4278255873,4278190080BM298,213P4292386676,4278190080BM296,335P4292386676,4278190080BM398,328P4288236805,4278190080BM346,3"
Data "06BM348,313M345,318M337,318M334,315M339,310M342,308M347,313BM340,313P4290541123,4278190080BM351,403P4290541123,4278190080BM31"
Data "8,405M313,411M306,417M300,421M313,426M321,426M331,427M341,434M347,432M361,429M368,436M377,438M386,431BM343,441P4290541123,427"
Data "8190080BM54,135P4282122240,4278190080BM381,381M370,375M357,372M344,371M358,372M347,372M362,371M367,376M374,377M360,372M376,37"
Data "8M368,375M376,378M365,374M377,378M360,372M372,376M347,371M360,372M369,374M376,379M368,377M376,379M365,375M374,377M369,376M374"
Data ",375M378,376M372,375M377,375M371,375M376,376BM289,232P4288236805,4278190080BM420,247P4288236805,4278190080BM414,248P428823680"
Data "5,4278190080BM413,247P4288236805,4278190080BM336,242M331,238BM337,243M333,239BM331,237P4288236805,4278190080BM254,158M246,172"
Data "M238,165M228,164M223,168M216,170M223,167M216,172M224,168M229,165M227,162M230,167M229,165M225,165BM154,293P4288236805,42781900"
Data "80BM165,295P4288236805,4278190080BM361,463P4286273860,4278190080BM419,258P4291690495,4278190080BM318,239P4291690495,427819008"
Data "0BM349,468P4290541123,4278190080BM339,378M341,380M349,381M358,383M365,383M367,387M358,391M348,390M339,389M342,386BM353,388P42"
Data "94923348,4278190080BM338,389M335,383M336,381M337,380BM330,380P4289341480,4278190080BM336,379M341,379BM335,375P4294910755,4278"
Data "190080BM335,375P4289341480,4278190080BM369,368P4286384136,4278190080BM346,383P4294935170,4278190080"
Data "enddata"
rem ================================================================================================================================