見せてやるよ、形式に囚われないピラフの究極奥義

SUB SWAP(A, B, C)
　C = A
　A = B
　B = C
END SUB

SUB SORT(A, I, J)
　FOR I = 1 TO UBOUND(A)
　　FOR J = 1 TO UBOUND(A)
　　　IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY
　　NEXT
　NEXT
END SUB

SUB MAIN(A)
　A = ARRAY(5,4,3,2,1)
　SORT A, EMPTY, EMPTY
　WSCRIPT.STDOUT.WRITELINE JOIN(A, ",")
END SUB

MAIN EMPTY