30 lines
659 B
Plaintext
30 lines
659 B
Plaintext
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
|