ABC words: Difference between revisions

=={{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>