বিবিসি মাইক্রো পেঁচার লোগোটির একটি সংস্করণ রেন্ডার করুন [বন্ধ]

Question

কোড থেকে আপনি কি উপরে বিবিসির মাইক্রো আউল লোগোটির একটি সংস্করণ সরবরাহ করতে পারেন?

নিয়মাবলী:

• আপনি যে কোনও প্রোগ্রামিং ভাষা পছন্দ করতে পারেন।
• আউটপুট পাঠ্য বা গ্রাফিক হতে পারে।
• চেনাশোনাগুলি ওভারল্যাপ করতে হবে না।

বিজয়ী:

• সর্বাধিক upvotes সহ উত্তর জিতেছে।

যে কেউ বিবিসি বেসিক এ চেষ্টা করে তার জন্য কুডোস।

আপনি বিবিসি মাইক্রো সম্পর্কে এখানে পড়তে পারেন

Comments

"সর্বাধিক উদ্ভাবক" এবং "বেশিরভাগ আসলের মতো" বিষয়গত হয়। একটি উদ্দেশ্য বিজয়ী মানদণ্ড প্রদান করুন। (আমি উদ্দেশ্য অনুযায়ী ভোটদান করছি, "উদ্দেশ্যহীন প্রাথমিক বিজয়ী মানদণ্ড ব্যতীত প্রশ্নগুলি অফ-টপিক, কারণ কোন প্রবেশিকাটি জিততে হবে তা নির্বিচারে সিদ্ধান্ত নেওয়া অসম্ভব করে দেয়।")

— ডোরকনব

আমি জয়ের মানদণ্ডকে সবচেয়ে সংক্ষিপ্ত কোডে পরিবর্তন করেছি যা আমি আশা করি সবার জন্য কম বিষয়ভিত্তিক।

— বেন প্যাটন

হয়তো কোড-গল্ফ ঠিক আছে তবে আমি মনে করি এই প্রশ্নটি পরিবর্তে জনপ্রিয়তা-প্রতিযোগিতার ট্যাগের জন্য উপযুক্ত। বেশিরভাগ ভোট জিতেছে। এটা উদ্দেশ্যমূলক। মোব সিদ্ধান্ত নেয়। কোডের কয়েকটি অক্ষর সংরক্ষণের জন্য আউটপুট গুণমান / সৃজনশীলতার ত্যাগ ছাড়াই আকর্ষণীয় ফলাফলগুলিকে উত্সাহ দেয়। ফ্রিস্টাইল অলিম্পিক রিংয়ের প্রশ্নের উত্তর দিন ।

— ড্যারেন স্টোন

ভাল ধারণা আমি এটিকে বেশিরভাগ আপভোটের জয়ে বদলেছি যা ভাল। আমি কীভাবে এইটিকে ধরে রাখতে পারি?

— বেন প্যাটন

আমি মনে করি না যে বারোটি ভাল উত্তর পেয়ে উত্তর নিয়ে ছয় বছরের পুরানো প্রশ্নটি বন্ধ করা ফলপ্রসূ হবে।

— জোনাথন ফ্রেচ

Answer 1

বিবিসি বেসিক

আমি যথাযথ চেনাশোনাগুলি আঁকতে ট্রিগ ফাংশনগুলি ব্যবহার করার চেষ্টা করেছি, তবে এটি বেদনাদায়ক ধীর ছিল। পরিবর্তে এটি সঙ্গে এসেছেন:

10 MODE 1
20 GCOL 0,1 : VDU 19,1,3,0,0,0
30 FOR Y%=0 TO 20
40 READ N% : P%=65536
50 FOR X%=0 TO 16
60 IF (N% AND P%)=0 THEN GOTO 160
70 X0% = X%*32+384 : Y0% = 872-Y%*32
80 FOR DX%=-16 TO 16 STEP 8
90 FOR DY%=-8 TO 8 STEP 8
100 PLOT 69,X0%+DX%,Y0%+DY%
110 NEXT DY% : NEXT DX%
120 FOR DX%=-8 TO 8 STEP 8
130 FOR DY%=-16 TO 16 STEP 32
140 PLOT 69,X0%+DX%,Y0%+DY%
150 NEXT DY% : NEXT DX%
160 P%=P%/2
170 NEXT : NEXT
1000 DATA 87381,33410,69905,10280
1010 DATA 69649,33410,82181,40968
1020 DATA 87377,43520,87297,43520
1030 DATA 21761,10880,5441,2720
1040 DATA 1361,552,1093,43682,1

এখানে ফলাফল:

Comments

বাহ মারাত্মক আশ্চর্যজনক কেউ আসলে বিবিসি বেসিকটি ব্যবহার করতে সময় নিয়েছিল। আমি খুবই মুগ্ধ!!

— বেন প্যাটন

এটি একটি চমৎকার পেঁচা। আপনি কি আসল বিবিসি বা একটি এমুলেটর প্রোগ্রাম ব্যবহার করছেন? যদি এটি একটি এমুলেটর, কোনটি? কারণ এটি আমি ব্যবহার করা এক হিসাবে একই নয়।

— স্তর নদী সেন্ট

বিটিডাব্লু, আপনি যদি চেনাশোনাগুলি আরও দ্রুত আঁকতে চান তবে ট্রিগ ফাংশন ব্যবহার করবেন না, পাইথাগোরাস উপপাদ্যটি ব্যবহার করুন: ওয়াই = (আর ^ 2-এক্স ^ 2) ^ 0.5 আমার রংধনু প্রশ্নের উত্তর দেখুন। এবং (1) + (3) + (5) .... (1 + 2 এন) = (এন + 1) ^ 2 এর ভিত্তিতে এটি কেবলমাত্র যুক্ত করে আরও উন্নততর উপায় রয়েছে।

— স্তর নদী সেন্ট

Answer 2

GolfScript

"!C-DD[5v`>U8G`J2zX['b#L*\\q>FQp "{32-}%96base 2base{"   *"2/=}%18/{""*1>17/~n@n}/

কোডটি লোগোর একটি আসকি শিল্প সংস্করণ মুদ্রণ করে ( এখানে চালান )।

* * * * * * * * * 
 *     * *     * 
*   *   *   *   * 
   * *     * *   
*   *       *   * 
 *     * *     * 
* *     *     * * 
 * *         *   
* * * * * * *   * 
 * * * *         
* * * * *       * 
 * * * *         
  * * * *       * 
   * * * *       
    * * * *     * 
     * * * *     
      * * * *   * 
       *   * *   
      *   *   * * 
 * * * * * *   * 
                * 

Comments

৮২ টি চরিত্রে সত্যই চিত্তাকর্ষক!

— বেন প্যাটন

Answer 3

ম্যাথামেটিকাল

নিদারুণ কাজ ছাড়া আর কিছুই নয়।

w = 20; h = 25; r = .7; r2 = .2; t = Table; d = Disk;
owl = Graphics[{Polygon[{{0, 0}, {w, 0}, {w, h}, {0, h}}],
   ColorData[57, 4],
   t[d[{k, 22}, r], {k, 2, 19, 2}],
   t[d[{18, k}, r], {k, 2, 21, 2}],
   t[d[{k, #}, r], {k, #2}] & @@@ {{21, {3, 9, 10, 11, 17}}, {20, {2, 
       6, 10, 14, 18}},
     {19, {5, 6, 7, 13, 14, 15}}, {18, {6, 9, 11, 14}}, {17, {10, 
       17}, {16, {16}}, {15, {15}}, {14, {8, 10, 12, 14}},
      {13, {9}}, {12, {9}}}},  
   t[d[{# - k, k}, r], #2] & @@@ {{20, {k, 18, 3, -1}}, {19, {k, 16, 
       6, -1}}, {18, {k, 16, 5, -1}}, {17, {k, 14, 7, -1}}, {16, {k, 
       14, 6, -1}}, {14, {k, 11, 5, -1}}, {14, {k, 12, 5, -1}}},
   t[d[{k, 4}, r], {k, {8, 12}}],
   t[d[{k, 3}, r], {k, 3, 13, 2}],
   d[{8, 13}, r],
   Black, d[{10, 21}, r2], d[{8, 13}, r2], d[{9, 12}, r2],
   t[d[{19 - k, k}, r2], {k, 16, 6, -1}],
   t[d[{17 - k, k}, r2], {k, 14, 7, -1}],
   t[d[{15 - k, k}, r2], {k, 12, 6, -1}],
   t[d[{k, 19}, r2], {k, {6, 14}}]}, ImageSize -> 220]

Answer 4

আর

image(t(matrix(as.integer(sapply(c(1397760,567810,1070336,141954,1381696,133794,
                                   1054036,559786,1332560,557218,1052756,131114,
                                   1380368,139272,1064964,557058,1398101),
                                   intToBits)[1:21,]),nr=21)),ax=F)

ফলাফল স্বরূপ:

মূলত ধারণাটি 17 সংখ্যার (1397760, 567810, 1070336, 141954, 1381696, 133794, 1054036, 559786, 1332560, 557218, 1052756, 131114, 1380368, 139272, 1064964, 557058 এবং 1398) এর বেস -2 উপস্থাপনা গ্রহণ করা হবে , এটি 1 এবং 0 এর 21x17 ম্যাট্রিক্সে তৈরি করুন এবং ম্যাট্রিক্সকে যেমন প্লট করুন।

Answer 5

অপেশাদার-রে

background{color<.14,.01,.01>}
camera{orthographic location z*-2 up y*24 right x*20}
#macro s(X,Y)sphere{<X,Y,0>,1.07,2.6}#end
#declare b=array[17]{1397760,567810,1070336,141954,1381696,133794,1054036,
559786,1332560,557218,1052756,131114,1380368,139272,1064964,557058,1398101}
blob{threshold 0.9 #for(j,0,16,1)#declare V=b[j];#for(i,0,28,1)
#if(mod(V,2))s(j-8,i-10)#end #declare V=floor(V/2);#end #end
pigment{color<1,1,.8>}finish{ambient 1}}

সঙ্গে 'সংকলন' povray +Ibbc.pov -Obbc.png +A0.1 +R9 -W240 -H285

Answer 6

সজোরে আঘাত

যেহেতু আপনি কোনও বাহ্যিক সংস্থান নির্দিষ্ট করে নি ...

curl -s http://codegolf.stackexchange.com/questions/19214/render-a-version-of-the-bbc-micro-owl-logo | grep '* * *' | sed -n '/code>\*/,/<pre>/p' | sed '$d' | sed 's/<pre><code>//'

হাওয়ার্ড - ধন্যবাদ আপনার আসকি শিল্প চুরি।

বা আমি এখানে এটি আপলোড করার পরে -

curl -s http://textuploader.com/1ojd | sed -n '/<code/,/<\/code>/p' | sed 's/<[^>]\+>//g'

Comments

ওয়েল এটি পার্শ্বীয় চিন্তাভাবনা আমি মনে করি ...

— বেন প্যাটন

Answer 7

বিবিসি বেসিক, এলোমেলো রঙ, গল্ফ!

149 টি অক্ষর। আমি গল্ফিংয়ের ক্ষেত্রে এত বড় নই (আমি কোড চ্যালেঞ্জকেই প্রাধান্য দিই) তবে বিবিসি বেসিকের মধ্যে গল্ফিংয়ের হাস্যকরতা আমি পছন্দ করেছি। Http://www.bbcbasic.co.uk/ এ বিবিসি এমুলেটর । কমান্ড লাইনে স্ক্রিন মোডে 6 চালায়।

ফোর্ক = 6 টিও 185 এস = কে এমওডি 9 = 5 ভিডিইউ -32 * (কে এমওডি 18 = 15), 17,128 + আরএনডি (6) * (এএসসিএমআইডি $ ("? ওএসইউইএমএমএস ^ এইচ? = এ_ডাব্লু", কে / 6,1) / 2 ^ (কে MOD6) AND1), 32,17,128,32, -13 * এস, -10 * এস: পরবর্তী

ব্যাখ্যা (অবারিত সংস্করণ)

যদি কোন আইএফ বিবৃতি না থাকে, কারণ বাকী রেখাটি কেবল তখনই কার্যকর করা হয় যদি আইএফ সত্য হয় (সুতরাং নেক্সট পৌঁছেছে তা নিশ্চিত করার জন্য আমাকে লাইন নম্বর সহ একটি প্রোগ্রাম করতে হবে।) সুতরাং আমি এএসসি প্রচুর ব্যবহার করেছি (নাল অক্ষর) = 0 আউটপুট নিয়ন্ত্রণ করতে। এছাড়াও, মুদ্রণের পরে পর্দায় পুরো কমান্ড লাইনের সাথে ফিট করার জন্য আমাকে নীচের ডানদিকে পিক্সেলটি কেটে ফেলতে হয়েছিল (এবং এটি 2 টি অক্ষর সংরক্ষণ করেছে) saved

আমি পছন্দ করি যে বিবিসি বেসিক কীভাবে কোনও শ্বেত স্থান ছাড়াই, এমনকি পরবর্তীতে সনাক্তকারীকে সনাক্ত করতে পারে। পূর্বে, ফোর্ড, ফোর্ক, ফর্ম, ফোর্স, ফর্ম :-)

 FOR K=6 TO 185

     REM Set S to true(-1) if K mod 9 = 5, otherwise set S to false(0)

     S = K MOD 9=5

     REM If K mod 18 = 15, send asc(space)=32 to the VDU controller,otherwise send 0.  
     REM This causes staggering every 2 lines.

     VDU-32*(K MOD18=15)

     REM Vdu 17 for colour. foreground colours start at 0, background colours at 128.
     REM Rnd(6) to choose a bright color. Multiply by the horrible expression. 
     REM The horrible expression evaluates to 1 if the pixel is to be printed, 0 if not.
     REM Picture data is stored in base 64 in the string.
     REM MID$ extracts the characters in order. 
     REM The FOR loop starts at K=6 so that this will work properly.
     REM Extracted character SHR ((K mod 6)) AND 1 to decide to
     REM colour pixel or not. BBC basic does not have SHR operator.
     REM so we divide by 2^(K mod 6) instead.

     VDU 17,128+RND(6)*
      (ASC(MID$( "?OSUuLEMSS^H?=A_<A^tC|dGxEMh>W" ,K/6,1))/2^(K MOD 6)AND 1)

     REM Print a space in the new background colour

     VDU 32

     REM Change background colour back to black

     VDU 17,128

     REM Print another space 

     VDU 32

     REM If S is true (-1) print a carriage return and linefeed. otherwise two 0's

     VDU -13*S,-10*S

 NEXT

Comments

এটি একটি চতুর সমাধান এবং একটি দুর্দান্ত বহু রঙের পেঁচা অবদানের জন্য ধন্যবাদ, আমি এর আগে গল্ফড বিবিসি বেসিকটি দেখিনি।

— বেন প্যাটন

আমাকে গিয়ে বিবিসি বেসিক এমুলেটর সন্ধানের জন্য অনুপ্রাণিত করার জন্য আপনাকে ধন্যবাদ। এটি একটি দুর্দান্ত ভাষা যা আমি 20 বছরে ব্যবহার করি নি। এটি অ্যাড-অন লাইব্রেরিগুলিকে অন্তর্ভুক্ত না করেই অনেকগুলি গ্রাফিক্স সুবিধাগুলি তৈরি করেছে যা এটি এ জাতীয় কোনও কাজকে গল্ফ করার জন্য একটি দুর্দান্ত ভাষা করে তোলে।

— স্তর নদী সেন্ট

এছাড়াও, প্রথমবার আমি বেস used৪ ব্যবহার করেছি each প্রতি ইচ্ছুকের জন্য এটি যথাযথ ছিল, প্রতি 2 লাইনের জন্য 18 পিক্সেল। আমি অবশ্যই এটি আবার ব্যবহার করব। 6th ষ্ঠ বিটটি বড় হাতের / ছোট হাতের অর্থ এটি আপনাকে অন্য পাঁচটি সম্পর্কে ভাবতে হবে। আমি দেখতে পেয়েছি যে এটি একবারে প্রবেশ করার পরে এটি হেক্সের মতো প্রায় সহজ হয়ে গেছে।

— স্তর নদী সেন্ট

আমি আপনার টুইটারের উপর ভিত্তি করে এই টুইটার.com/bbcmicrobot/status/1229933895401058304 করেছি , অনেক ধন্যবাদ; আমি লক্ষ্য করেছি তবে আপনি কিছু গল্ফ করার সুযোগ মিস করেছেন। বিবিসি বেসিক আপনি = 'জন্য' কমান্ড সংক্ষিপ্ত যেমন দেয়, 'VDU' =, প্লাস X / 2 ^ z এবং 1 মাত্র x এবং 2 ^ Z, আপনি প্রয়োজন নেই SHR হল 'এফ।' 'ভী।'

— bazzargh

Answer 8

সি

এএসসিআইআই আউটপুট।

x[]={256,191,424,104,376,60,316,30,286,15,287,15,383,67,403,153,325,102,341,153,511};i=20;mai
n(){for(;i>=0;i--){i&1&&putchar(32);while(x[i]){putchar(x[i]&1?42:32);x[i]>>=1;putchar(32);}pu
tchar(10);}}

কোড আউটপুট:

* * * * * * * * * 
 *     * *     * 
*   *   *   *   * 
   * *     * *   
*   *       *   * 
 *     * *     * 
* *     *     * * 
 * *         *   
* * * * * * *   * 
 * * * *         
* * * * *       * 
 * * * *         
  * * * *       * 
   * * * *       
    * * * *     * 
     * * * *     
      * * * *   * 
       *   * *   
      *   *   * * 
 * * * * * *   * 
                * 

Answer 9

জাভাস্ক্রিপ্ট - 326 307 285 টি অক্ষর (ASCII)

a=[1716886015,1133746501,253693823,1010572830,3215485048,0];s="";with(Math)
for(y=0;44>y;y++,s+="\n")for(x=0;90>x;x++,s+="#8*+=:-. "[min(floor(d),8)])
for(j=d=0;22>j;j++)for(i=0;9>i;i++)1==((8==i?j+1:a[floor(j/4)]>>i+j%4*8)&1)
&&(d+=50/pow(pow(x-10*(i+j%2/2)-4,2)+pow(2*y-4*j-4,2),1.5));s;

সম্ভবত সংক্ষিপ্ততম কোড নয়। আমি কেবলমাত্র ASCII ব্যবহার করে মূল লোগোটির যতটা সম্ভব কাছাকাছি থাকার চেষ্টা করেছি।

সম্পাদন করতে: জাভাস্ক্রিপ্ট কনসোলে কপি পেস্ট করুন (যেমন: ক্রোম বা ফায়ারফক্স)। দ্রষ্টব্য: স্ক্রিপ্টটি চালাতে কিছুটা সময় নিতে পারে তাই এন্টার টিপানোর পরে যদি কিছু না আসে তবে একটু ধৈর্য ধরুন।

Comments

আপনি করছেন এই খাটো করতে পারেন m=Math;এবং তারপর করছেন m.floor, m.powইত্যাদি

— eithed

এমনকি forএকের মধ্যে সবচেয়ে বাহ্যিক- লুপটি মোড়ানো with (Math)এবং তারপরে Math.প্রতিটি উপস্থিতিতে বাদ দিয়ে more সরান s+=জন্য-লুপ হেডার অংশ (পরবর্তী y++/ x++) কিছু ধনুর্বন্ধনী পরিত্রাণ পেতে। আমি মনে করি এটি জেএসে গল্ফ করার সময় I / O এর জন্য alert/ ব্যবহার করার জন্য সাধারণ prompt, তাই আমি alert(s)পরিবর্তে শেষের সাথে যেতে চাই ।

— ফায়ার

টিপস এবং মন্তব্যের জন্য ধন্যবাদ। কোড আকারের অপ্টিমাইজ করার সময় আমি একটি শিক্ষানবিস :) সতর্কতা / প্রম্পট পরামর্শ সম্পর্কে: আমি সেগুলি ব্যবহার করার চেষ্টা করেছি, তবে কিছু সমস্যা রয়েছে: লাইনটি দীর্ঘ হলে ব্রাউজারগুলি (কমপক্ষে ক্রোম) স্বয়ংক্রিয়ভাবে পাঠ্য মোড়ায় বলে মনে হয়, যা ভেঙে গেছে লোগো।

— টাইগ্রু

Answer 10

CoffeeScript

কোড গল্ফ হয় না। এটা কিছু ব্যবহার metaballs পর অ্যালগরিদম চেনাশোনা "stickyness" অনুকরণ। অন্যান্য উত্তর থেকে ASCII পেঁচা নির্লজ্জভাবে চুরি হয়েছিল :)

canvas = document.createElement 'canvas'
canvas.style.backgroundColor = '#240202'
canvas.style.transform = 'scale(0.5) translate(-480px,-570px)'
W = canvas.width = 960
H = canvas.height = 1140
D = 50
R = D / 2
ctx = canvas.getContext '2d'
imageData = ctx.getImageData 0, 0, W, H
data = imageData.data
owl = '''

\ * * * * * * * * *
\  *     * *     *
\ *   *   *   *   *
\    * *     * *
\ *   *       *   *
\  *     * *     *
\ * *     *     * *
\  * *         *
\ * * * * * * *   *
\  * * * *
\ * * * * *       *
\  * * * *
\   * * * *       *
\    * * * *
\     * * * *     *
\      * * * *
\       * * * *   *
\        *   * *
\       *   *   * *
\  * * * * * *   *
\                 *
'''.split '\n'

insideDot = (x, y) ->
  w = 0
  for du in [-1..1] then for dv in [-1..1]
    u = x // D + du
    v = y // D + dv
    continue unless owl[v]?[u] is '*'
    dx = x - (u * D + R)
    dy = y - (v * D + R)
    d = dx * dx + dy * dy
    w += 1 / (d * d)
    return yes if w > 0.0000008
  no

for y in [0...H] then for x in [0...W] when insideDot x, y
  i = (y * W + x) * 4
  data[i] = data[i+1] = data[i+3] = 255
  data[i+2] = 214

ctx.putImageData imageData, 0, 0
document.body.appendChild canvas

এটি দেখুন coffeescript.org ডকুমেন্টেশন ধ্বংস (রান করুন):

Answer 11

পিএইচপি

পূর্বে জমা দেওয়া লোগোর আসকি শিল্প সংস্করণগুলির উপর ভিত্তি করে তৈরি করা এবং এটি জিডি লাইব্রেরি ব্যবহার করে গ্রাফিক্যাল সংস্করণ রেন্ডারে অ্যারে হিসাবে ব্যবহার করুন।

$circleWidth = 34;
$circleHeight = 34;
$movement = 24;
$canvasWidth = 480;
$canvasHeight = 570;
$image = imagecreatetruecolor($canvasWidth, $canvasHeight);
$backgroundColour = imagecolorallocate($image, 36, 2, 2);
ImageFillToBorder($image, 0, 0, $backgroundColour, $backgroundColour);
$circleColour = imagecolorallocate($image, 255, 255, 214);
$coordinates ='
* * * * * * * * * 
 *     * *     *  
*   *   *   *   * 
   * *     * *    
*   *       *   * 
 *     * *     *  
* *     *     * * 
 * *         *    
* * * * * * *   * 
 * * * *          
* * * * *       * 
 * * * *          
  * * * *       * 
   * * * *        
    * * * *     * 
     * * * *      
      * * * *   * 
       *   * *    
      *   *   * * 
 * * * * * *   *  
                * ';
$coordinates = str_split($coordinates);
$coordinateX = $movement;
$coordinatY = $movement;
$i=1;
foreach ($coordinates as $coordinate) {
    if ($i < 19) {
        if ($coordinate == '*') { 
            ImageFilledEllipse($image, $coordinateX, $coordinatY, $circleWidth, $circleHeight, $circleColour);  
        }
        $coordinateX = $coordinateX + $movement;
        $i++;
    } else {
        $i=1;
        $coordinateX = $movement;
        $coordinatY = $coordinatY + $movement;
    }
}
header("Content-type: image/png");
imagepng($image);
imagedestroy($image);

ফলাফল স্বরূপ:

Answer 12

বিবিসি বেসিক + জিএক্সআর

খুব দেরিতে তবে: 'বিবিসিমিকোবোট' টুইটারে অ্যাকাউন্ট যা প্রগেসে চলেছে <২৮০ টি অক্ষর বা এক্রোন জিএক্সআর রম যুক্ত করেছে, এটি বৃত্ত এবং উপবৃত্তাকার অঙ্কনকে অনুমতি দেয়। আমি ভেবেছিলাম, কয়েকটা চেনাশোনা নিয়ে আমি কী আঁকতে পারি? এবং এটি আমার কাছে এসেছিল। এটি @ লেভেল রিভার স্ট্রিটের উত্তরের উপর ভিত্তি করে তৈরি হয়েছে, আমি সংক্ষেপিত বেসিক কমান্ড ব্যবহার করেছি, এসএইচআর এর পরিবর্তে বিট পরীক্ষার ব্যবহার করেছি এবং বিট উপস্থাপনা পরিবর্তন করেছি:

2MO.2:P."HOW TO DRAW AN OWL":MOV.200,700:PL.&91,120,0:MOV.250,450:PL.0,-200,0:PL.&C1,155,250:V.29,640;130;
5F.G=0TO188:Z=(G MOD18)>8:X=G MOD9*2-Z:Y=G DIV18*2-Z
6IFASC(MID$("@|WhFMxeG|tC^|A_|A?]HSNSEuLUMS?G",(G+6)DIV6,1))AND2^(G MOD6) MOV.X*36,Y*36:PL.&99,24,0
8N.G

আমার আসল টুইটটি এখানে