bonusCD support
This commit is contained in:
@@ -1771,7 +1771,8 @@ endlineTest:
|
||||
TextLine &= Chr(bytes(curTextAddr))
|
||||
curTextAddr += 1
|
||||
Next
|
||||
If charNum And 1 Then curTextAddr += 1 'if AND1 - +1
|
||||
'If charNum And 1 Then curTextAddr += 1 'if AND1 - +1
|
||||
curTextAddr += charNum And 1 'if AND1 - +1
|
||||
Continue Do
|
||||
End If
|
||||
If c And &H1000 Then
|
||||
@@ -1779,7 +1780,7 @@ endlineTest:
|
||||
If c = &H1101 Then TextLine &= " / "
|
||||
curTextAddr += (c >> 8 And &HF) * 2 : Continue Do 'BitShift / And / Jump command length
|
||||
Else
|
||||
'TextLine &= Chr(c And &HFF)
|
||||
TextLine &= Form1.chars(c)
|
||||
End If
|
||||
|
||||
curTextAddr += 2
|
||||
|
||||
Reference in New Issue
Block a user