crash.bas

来自「smallbasic for linux」· BAS 代码 · 共 26 行

sub fbr(byref d())
? "FBR", fre(0)
end

sub fbv(d())
? "FBV", fre(0)
end

? "Start", fre(0)
dim a(100000)
? "AftDIM", fre(0)
fbr a()
? "AftFBR", fre(0)
fbv a()
? "AftFBV", fre(0)
erase a
? "Fin", fre(0)