Logikoma
eb93bb7da0
All checks were successful
akbasic CI Build / cmake_build (push) Successful in 3m29s
akbasic CI Build / sanitizers (push) Successful in 4m42s
akbasic CI Build / coverage (push) Successful in 3m56s
akbasic CI Build / akgl_build (push) Successful in 8m34s
akbasic CI Build / mutation_test (push) Successful in 18m50s
15 lines
492 B
QBasic
15 lines
492 B
QBasic
10 REM A field name is checked against the closed set the program declared;
|
|
20 REM this is the one thing whose valid spellings are written down.
|
|
30 REM A misspelled *variable* is still silent -- see the last two lines.
|
|
40 TYPE RECT
|
|
50 W#
|
|
60 H#
|
|
70 END TYPE
|
|
80 DIM R@ AS RECT
|
|
90 R@.W# = 3
|
|
100 PRINT R@.W#
|
|
110 REM A variable nobody assigned is zero, with no complaint at all.
|
|
120 PRINT TOTLA#
|
|
130 REM A field the type does not declare is refused, and lists the real ones.
|
|
140 PRINT R@.NOPE#
|