sort1.bas

来自「一个basic语言的解释器」· BAS 代码 · 共 59 行

DIM i AS INTEGER
DIM j AS INTEGER
DIM k AS INTEGER
DIM l AS INTEGER
DIM Swap AS INTEGER
DIM Tot AS INTEGER
Tot = 24
DIM Long AS ARRAY Tot

FOR i = 1 TO Tot
    Long(i) = RND(79) + 1
NEXT i

FOR i = 1 TO Tot
    FOR j = 1 TO Long(i)
        PRINT "*";
    NEXT j
    PRINT
NEXT i

FOR i = 1 TO Tot - 1
    FOR j = i + 1 TO Tot
        IF Long(i) > Long(j) THEN
            Swap = Long(i)
            Long(i) = Long(j)
            Long(j) = Swap

            GOSUB Erase
            GOSUB Repaint

            DELAY 30
        END IF
    NEXT j
NEXT i

END

SUB Erase
    LOCATE i, 1
    FOR k = 1 TO 79
        PRINT " ";
    NEXT k
    LOCATE i, 1
    FOR k = 1 TO Long(i)
        PRINT "*";
    NEXT k
END SUB

SUB Repaint
    LOCATE j, 1
    FOR k = 1 TO 79
        PRINT " ";
    NEXT k
    LOCATE j, 1
    FOR k = 1 TO Long(j)
        PRINT "*";
    NEXT k
END SUB