18 lines
410 B
Plaintext
18 lines
410 B
Plaintext
If OpenConsole()
|
|
Define x, y
|
|
|
|
Print("Input X-Size: ")
|
|
x = Val(Input())
|
|
|
|
Print("Input Y-Size: ")
|
|
y = Val(Input())
|
|
|
|
Dim a(x,y) ; Should really check if x & y are larger then 1, but that would be less fun....
|
|
|
|
a(1,1)=Random(1000)
|
|
PrintN("a(1,1)= " + Str(a(1,1)) )
|
|
|
|
PrintN("Press ENTER to exit"):Input()
|
|
End ; Close down and let PureBasic delete the Console and all variables.
|
|
EndIf
|