bonusCD support

This commit is contained in:
sShemet
2025-09-17 15:32:43 +05:00
parent cc52ac29a8
commit b9b8e197a8
12 changed files with 166 additions and 14 deletions

View File

@@ -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