beautiful-racket/beautiful-racket-demo/basic-demo-nth/dim.bas

#lang basic-demo-nth

5 A=5
10 DIM A(A)
20 PRINT A /* this should print 5 */
30 PRINT A(0)
40 PRINT A(5)