QBasic

Read BNF
REM program starts here :) let a = 0 let b = 0 let c = 0 REM LET statement let ok = NOT( -(50 + 2) - 2 AND ( NOT a OR b) + 100.500 ) REM Labeled statements 100 a = 1 200 b = 2 300 c = 3 : let d = 4 REM GOTO statement GOTO 200 REM Assign statement = let ar$ = "this is string other string" let fine = 0 let bad = 1 REM inline many statements let how_are_you = fine OR bad : let var = "OK" REM IF statement IF c AND (NOT(a OR b)) OR a < (b + c) THEN GOTO 300 END IF REM Array declaration DIM Items(100, 500) AS INTEGER REM Function declaration DECLARE FUNCTION _func% (arg%, arg!, arg$) REM Function definition REM Call function _func%( any%, arg!, here$) REM PRINT statement PRINT a,b,c REM INPUT statement INPUT a, b, c REM While loop statement WHILE (a < c) < 100.500 a = a + 1 WEND REM FOR loop statements REM Variant 1 FOR i = 0 TO 100500 let k = k + i/2 NEXT i REM Variant 2 FOR i = 0 TO 100500 STEP 432 NEXT i

Row: 0    Column: 0