কমোডোর ভিআইসি -20 / সি 64/128 এবং থি 64 মনি, 101 টোকেনাইজড বেসিক বাইট
কমোডোর বেসিক কীওয়ার্ডের সংক্ষিপ্তসারগুলি ব্যবহার করে এখানে অস্পষ্ট তালিকা রয়েছে:
0dEfnb(x)=sG(xaNb):inputa$:fOi=1tolen(a$):b=64:c$=mI(a$,i,1):fOj=0to6
1?rI(str$(fnb(aS(c$))),1);:b=b/2:nEj:?" ";:nE
বিশ্লেষণের উদ্দেশ্যে এখানে অপ্রচলিত প্রতীকী তালিকা:
0 def fn b(x)=sgn(x and b)
1 input a$
2 for i=1 to len(a$)
3 let b=64
4 let c$=mid$(a$,i,1)
5 for j=0 to 6
6 print right$(str$(fn b(asc(c$))),1);
7 let b=b/2
8 next j
9 print " ";
10 next i
fn b
লাইনের শূন্যে ঘোষিত ফাংশনটি এমন একটি সংখ্যক প্যারামিটার গ্রহণ করে x
যার AND
মান দিয়ে এড করা হয় b
; এসজিএন এর পরে বা রূপান্তর x and b
করতে ব্যবহৃত হয় ।1
0
লাইন ওয়ানটি ভেরিয়েবলের স্ট্রিং ইনপুট গ্রহণ করে a$
এবং লুপটি শুরু হয় (এর সাথে চিহ্নিত i
) এর ইনপুটটির দৈর্ঘ্য পর্যন্ত। b
bit ষ্ঠ থেকে ০ র্থ বিট পর্যন্ত প্রতিটি বিটকে উপস্থাপন করে। c$
স্ট্রিংয়ের প্রতিটি অক্ষরকে অবস্থানে নিয়ে যায় i
।
লাইন 5 প্রতিটি বিট অবস্থান পরীক্ষা করার জন্য লুপটি শুরু করে; right$
কমোডোর বেসিক একটি সংখ্যা প্রদর্শন করে, আউটপুটটিকে fn b
স্ট্রিংয়ে রূপান্তর করে যখন স্বয়ংক্রিয়-বিন্যাসের সমস্যাটি সরাতে লাইন in-এ ব্যবহৃত হয় ; asc(c$)
দশমিক মান হিসাবে বর্তমান অক্ষরটিকে তার ascii কোডে রূপান্তর করে।
লাইন 7 পরবর্তী বিট মান উপস্থাপন করে। লুপটি j
কোনও স্থান মুদ্রণের আগে শেষ হয়, তারপরে শেষ লুপটি i
শেষ হয়।