ABC words: Difference between revisions
Add BASIC
(Add Tcl version) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 165:
<lang awk>awk '/^[^bc]*a[^c]*b.*c/' unixdict.txt</lang>
=={{header|BASIC}}==
<lang basic>10 DEFINT A,B,C: DEFSTR W
20 OPEN "I",1,"unixdict.txt"
30 IF EOF(1) THEN END
40 LINE INPUT #1, W
50 A = INSTR(W,"a")
60 B = INSTR(W,"b")
70 C = INSTR(W,"c")
80 IF A>0 AND B>0 AND C>0 AND A<B AND B<C THEN PRINT W,
90 GOTO 30</lang>
{{out}}
<pre>aback abacus abc abdicate abduct
abeyance abject abreact abscess abscissa
abscissae absence abstract abstracter abstractor
adiabatic aerobacter aerobic albacore alberich
albrecht algebraic alphabetic ambiance ambuscade
aminobenzoic anaerobic arabic athabascan auerbach
diabetic diabolic drawback fabric fabricate
flashback halfback iambic lampblack leatherback
metabolic nabisco paperback parabolic playback
prefabricate quarterback razorback roadblock sabbatical
snapback strabismic syllabic tabernacle tablecloth</pre>
=={{header|C#|CSharp}}==
| |||