dim memoria(255)
contador = 0
input "SUBLEQ> " codigo$
while instr(codigo$, " ")
  memoria(contador) = val(left$(codigo$, instr(codigo$, " ") - 1))
  codigo$ = mid$(codigo$,instr(codigo$," ")+1,len(codigo$))
  contador = contador + 1
wend

memoria(contador) = val(codigo$)
contador = 0
repeat
  a = memoria(contador)
  b = memoria(contador+ 1)
  c = memoria(contador+ 2)
  contador = contador + 3
  if a = -1 then
    input "SUBLEQ> " caracter$
    memoria(b) = asc(caracter$)
  else
    if b = -1 then
      print chr$(memoria(a));
    else
      memoria(b) = memoria(b) - memoria(a)
      if memoria(b) <= 0  contador = c
    fi
  fi
until contador < 0
end