19 lines
284 B
Text
19 lines
284 B
Text
dim a(10) as byte
|
|
a(3)=2
|
|
a(4)=100
|
|
Print a()
|
|
swap a(3), a(4)
|
|
Print a()
|
|
try ok {
|
|
a(0)=-1
|
|
}
|
|
if not ok then print error$ =" Overflow Byte"
|
|
try ok {
|
|
a(0)=256
|
|
}
|
|
if not ok then print error$ =" Overflow Byte"
|
|
a()=a()#rev()
|
|
Print a()
|
|
Print type$(a(3))
|
|
Print a(10-3-1)=100
|
|
Print a(10-4-1)=2
|