32 lines
594 B
Plaintext
32 lines
594 B
Plaintext
dim p(7)
|
|
dim p$(7)
|
|
p$[0] = "Payload#0" : p$[1] = "Payload#1"
|
|
p$[2] = "Payload#2" : p$[3] = "Payload#3"
|
|
p$[4] = "Payload#4" : p$[5] = "Payload#5"
|
|
p$[6] = "Payload#6"
|
|
dim q(7) fill false
|
|
dim t(4, 5)
|
|
t[0, 0] = 1: t[0, 1] = 2
|
|
t[1, 0] = 3: t[1, 1] = 4: t[1, 2] = 1
|
|
t[2, 0] = 5
|
|
|
|
for i = 0 to t[?][]-1
|
|
for j = 0 to t[?][]-1
|
|
if t[i, j] <> 0 then
|
|
q[t[i, j]] = true
|
|
t[i, j] += 1
|
|
end if
|
|
next j
|
|
next i
|
|
|
|
for i = 0 to t[?][]-1
|
|
for j = 0 to t[?][]-1
|
|
if t[i, j] <> 0 then print p$[t[i, j] -1]; " ";
|
|
next j
|
|
print
|
|
next i
|
|
|
|
for i = 0 to q[?]-1
|
|
if not q[i] then print p$[i]; " is not used"
|
|
next i
|