QBasic
Read BNFREM 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