,


L[1:N],c[1:N],p[1:N] dim L(N),c(N),p(N)
ls
(:) ? :
-⠠ gosub tovar '
(:) ? :
-⠠ gosub ostatok '
(-----) ? -----
-蠠 gosub vyruch '
(, S) ? =;S
(:) ? :
-⠠ gosub sortdan '
end
, - ­ .
⻠ tovar: '
'
-⠠ restore tovs
k = 1 N 렠 for k = 1 to N
meue(tv(k),s(k),m(k)) read tv$(k),s(k),m(k)
tv(k) =  if tv$(k) = then exit for
(tv(k),s(k),m(k)) ? tv$(k);s(k);m(k)