Sort three variables: Difference between revisions

m (flagged IS-BASIC, no output.)
Line 896:
180 IF A>B THEN CALL SWAP(A,B)
190 IF B>C THEN CALL SWAP(B,C)
200 NEXT
210 END DEF </lang>
220 CALL SHORT(A,B,C)
230 PRINT A;B;C</lang>
 
=={{header|J}}==
Anonymous user