كتب أمثلة البرامج
اذا لم تجد ما تبحث عنه يمكنك استخدام كلمات أكثر دقة.
أمثلة البرامج (معلومة)
المثالان الأولان يمثلان نوعاً من التبادل لمخزن النص الحالي، بناء على الحرف الأول من كل سطر، والمأخوذ من دليل مستخدم محرر TECO PDP-11. نسخة [اذهب إلي goto] وبرمجة مهيكلة تعرض الآن. ولاحظ أن محرر TECO يتجاهل [الحالة case] و[الفراغ الأبيض whitespace] (ما عدا [tab]، والذي هو أمر إدراج).
مثال 1
!START! j 0aua ! jump to beginning, load 1st char in register A ! !CONT! l 0aub ! load first char of next line in register B ! qa-qb"g xa k -l ga 1uz " ! if A>B, switch lines and set flag in register Z ! qbua ! load B into A ! l z-."g -l @o/CONT/ " ! loop back if another line in buffer ! qz"g 0uz @o/START/ " ! repeat if a switch was made on last pass !
مثال 2
0uz ! clear repeat flag ! <j 0aua l ! load 1st char into register A ! <0aub ! load 1st char of next line into B ! qa-qb"g xa k -l ga -1uz " ! if A>B, switch lines and set flag ! qbua ! load B into A ! l.-z;> ! loop back if another line in buffer ! qz;> ! repeat if a switch was made last pass !
مثال 3
هذا المثال هو مفسر للغة برمجة [Brainfuck] لمحرر TECO. فهو يعمل من خلال تنفيذ المخزن كبرنامج Brainfuck، ويوضح قدرات المحرر.
@^UB#@S/{^EQQ,/#@^UC#@S/,^EQQ}/@-1S/{/#@^UR#.U1ZJQZ^SC.,.+-^SXQ-^SDQ1J#@^U9/[]-+<>.,/<@:-FD/^N^EG9/;>J30000<0@I/ />ZJZUL30000J0U10U20U30U60U7@^U4/[]/@^U5#<@:S/^EG4/U7Q7;-AU3(Q3-91)"=%1|Q1"=.U6ZJ@i/{/Q2@i/,/Q6@i/}/Q6J0;"-1%1" >#<@:S/[/UT.U210^T13^TQT;QT"NM5Q2J">0UP30000J.US.UI<(0A-43)"=QPJ0AUTDQT+1@I//QIJ@O/end/"(0A-45)"=QPJ0AUTDQT-1@I// QIJ@O/end/"(0A-60)"=QP-1UP@O/end/"(0A-62)"=QP+1UP@O/end/"(0A-46)"=-.+QPA^T(-.+QPA-10)"=13^T"@O/end/"(0A-44)"=^TUT 8^TQPJDQT@I//QIJ@O/end/"(0A-91)"=-.+QPA"=QI+1UZQLJMRMB-1J.UI"@O/end/"(0A-93)"=-.+QPA"NQI+1UZQLJMRMC-1J.UI"@O/en d/"!end!QI+1UI(.-Z)"=.=@^a/END/^c^c"C>
