Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix | command

  • Loading branch information...
commit 5725dee03c512a3897a996e28bde1ee675a5a8a9 1 parent c6af209
linerlock authored
Showing with 9 additions and 9 deletions.
  1. BIN  Befunge.xlsm
  2. +9 −9 Source.vba
View
BIN  Befunge.xlsm
Binary file not shown
View
18 Source.vba
@@ -53,9 +53,9 @@ Sub Main()
End If
Case "|"
If Pop() = 0 Then
- align = 2
- Else
align = 3
+ Else
+ align = 2
End If
Case "?"
align = Int(4 * Rnd)
@@ -141,14 +141,14 @@ Sub Main()
Case "$"
a = Pop()
Case "g"
- a = Pop()
- b = Pop()
- Push (Val(sheet.Cells(a, b)))
+ y = Pop()
+ x = Pop()
+ Push (Val(sheet.Cells(y, x)))
Case "p"
- a = Pop()
- b = Pop()
- c = Pop()
- Sheet1.Cells(a, b) = Str(c)
+ y = Pop()
+ x = Pop()
+ v = Pop()
+ Sheet1.Cells(y, x) = Str(v)
End Select
Skip:
Select Case align
Please sign in to comment.
Something went wrong with that request. Please try again.