"SfR Fresh" - the SfR Freeware/Shareware Archive 
As a special service "SfR Fresh" has tried to format the requested source page into HTML format using source code syntax highlighting with prefixed line numbers.
Alternatively you can here view or download the uninterpreted source code file.
That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field.
1 '
2 '
3 ' ####################
4 ' ##### PROLOG #####
5 ' ####################
6 '
7 PROGRAM "adatadim"
8 VERSION "0.0001"
9 '
10 IMPORT "xst"
11 '
12 DECLARE FUNCTION Entry ()
13 '
14 '
15 ' ######################
16 ' ##### Entry () #####
17 ' ######################
18 '
19 FUNCTION Entry ()
20 '
21 DIM a[]
22 DIM b[3]
23 DIM c[4,5]
24 DIM d[5,6,7]
25 '
26 XstGetApplicationEnvironment (@standalone, @reserved)
27 '
28 a0 = 9
29 b0 = 9 : b1 = 9
30 c0 = 9 : c1 = 9 : c2 = 9
31 d0 = 9 : d1 = 9 : d2 = 9 : d3 = 9
32 '
33 SWAP a[], z[]
34 a0 = XstIsDataDimension(@z[])
35 SWAP a[], z[]
36 '
37 SWAP b[], z[]
38 b0 = XstIsDataDimension(@z[])
39 SWAP b[], z[]
40 '
41 IF standalone THEN
42 SWAP b[1,], z[]
43 b1 = XstIsDataDimension(@z[])
44 SWAP b[1,], z[]
45 END IF
46 '
47 SWAP c[], z[]
48 c0 = XstIsDataDimension(@z[])
49 SWAP c[], z[]
50 '
51 SWAP c[1,], z[]
52 c1 = XstIsDataDimension(@z[])
53 SWAP c[1,], z[]
54 '
55 IF standalone THEN
56 SWAP c[1,2,], z[]
57 c2 = XstIsDataDimension(@z[])
58 SWAP c[1,2,], z[]
59 END IF
60 '
61 SWAP d[], z[]
62 d0 = XstIsDataDimension(@z[])
63 SWAP d[], z[]
64 '
65 SWAP d[1,], z[]
66 d1 = XstIsDataDimension(@z[])
67 SWAP d[1,], z[]
68 '
69 SWAP d[1,2,], z[]
70 d2 = XstIsDataDimension(@z[])
71 SWAP d[1,2,], z[]
72 '
73 IF standalone THEN
74 SWAP d[1,2,3,], z[]
75 d3 = XstIsDataDimension(@z[])
76 SWAP d[1,2,3,], z[]
77 END IF
78 '
79 PRINT a0
80 PRINT b0, b1
81 PRINT c0, c1, c2
82 PRINT d0, d1, d2, d3
83 a$ = INLINE$ ("press enter to terminate ===>> ")
84 END FUNCTION
85 END PROGRAM