iifs.bas

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

'

' normal if
if 1 then:? "Normal IF - Ok":else:? "ERROR":fi

' inline if
if 1 then ? "Inline IF - Ok"
if 0 then ? "ERROR" else ? "Ok"
if 1 then ? "Ok" else ? "ERROR"
if 1 then 500 else 600
200
if 0 then 500 else 600
210
if 1 then if 1 then if 1 then ? "3 inline IFs"
if 1 then if 1 then if 0 then ? "ERROR: Not supported, yet!" else ? "Ok"
if 1 then if 0 then if 1 then ? "ERROR: Not supported, yet!" else ? "ERROR: Not supported, yet!"
end

500
? "label 500 - Ok"
goto 200   

600
? "label 600 - Ok"
goto 210