Execute SNUSP: Difference between revisions

=={{header|FreeBASIC}}==

<syntaxhighlight lang="vbnet">' Rosetta Code problem: https://rosettacode.org/wiki/Execute_SNUSP

' by Jjuanhdez, 05/2024

' The interpreter below implements Core SNUSP:

Const HW = "/++++!/===========?\>++.>+.+++++++..+++" & Chr(10) & _

"\+++\ | /+>+++++++>/ /++++++++++<<.++>./" & Chr(10) & _

"$+++/ | \+++++++++>\ \+++++.>.+++.-----\" & Chr(10) & _

" \==-<<<<+>+++/ /=.>.+>.--------.-/"

Dim Shared As Integer ipf, ipc ' instruction pointers in row and column

Dim Shared As Integer direcc ' direction (0 = right, 1 = down, 2 = left, 3 = up)

Sub Paso()

If direcc And 1 Then

ipf += 1 - (direcc And 2)

Else

ipc += 1 - (direcc And 2)

End If

End Sub

Sub SNUSP (dsLen As Integer, SNUSPcode As String)

Dim As Ubyte ad(dsLen - 1) ' data store

Dim As Integer dp ' data pointer

Dim As String cb(dsLen) ' two-way code storage

Dim As String fila, op, linea

Dim As Integer r, i, j

dp = 0

i = 1

j = 1

ipf = 0

ipc = 0

direcc = 0

While i <= Len(SNUSPcode)

If Mid(SNUSPcode, i, 1) = Chr(10) Then

cb(j) = linea

linea = ""

j += 1

Else

linea &= Mid(SNUSPcode, i, 1)

End If

i += 1

Wend

cb(j) = linea

For r = 0 To Ubound(cb)

fila = cb(r)

ipc = Instr(fila, "$") - 1

If ipc >= 0 Then

ipf = r

Exit For

End If

Next r

While ipf >= 0 And ipf <= Ubound(cb) And ipc >= 0 And ipc < Len(cb(ipf))

op = Mid(cb(ipf), ipc + 1, 1)

Select Case op

Case ">": dp += 1 ' RIGTH

Case "<": dp -= 1 ' LEFT

Case "+": ad(dp) += 1 ' INCR

Case "-": ad(dp) -= 1 ' DECR

Case ",": Input ad(dp) ' READ

Case ".": Print Chr(ad(dp)); ' WRITE

Case "/": direcc = Not direcc ' RULD

Case "\": direcc Xor= 1 ' LURD

Case "!": Paso ' SKIP

Case "?": If ad(dp) = 0 Then Paso ' SKIPZ

End Select

Paso

Wend

Print Chr(ad(dp));

End Sub

SNUSP(5, HW)

Sleep</syntaxhighlight>