GSTORE Example10 INTEGER A(1:6)
20 GESCAPE CRT,3;A(*)
30 ALLOCATE INTEGER B(1:A(5),1:A(6))
40 GINIT
50 GCLEAR
60 CLEAR SCREEN
70 MOVE 40,40
80 AREA PEN 7
90 RECTANGLE 20,20,FILL
100 GSTORE B(*)
110 WAIT 3
120 CLEAR SCREEN
130 MOVE 30,40
140 GLOAD B(*)
150 END
|