' Console Animation — simple ASCII animation loop
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL i AS LONG
    LOCAL frame AS STRING
    FOR i = 1 TO 10
        frame = "Frame " + STR$(i) + ": " + STRING$(i, "*")
        PRINT frame
        SLEEP 200
    NEXT i
    PRINT "Animation complete"
    FUNCTION = 0
END FUNCTION
