What's wrong with this? (*solved*)

[na_th_an]

I've tried that. The compiler crashes on the assignment. It doesn't like it.

Code:

Sub Fastcall tdPutChar (c as uByte) Asm rst 16 End Asm End Sub Sub tdPrint (cad As String) Dim i As uByte Dim c As uByte For i = 1 To Len (cad) c = cad (i) tdPutChar (c) Next i End Sub

Output:

Code:

H:\Dev\Speccy\mt64x32lib\zxbasic>c:\zxb\zxb textdongle.bas Traceback (most recent call last): File "zxb.py", line 312, in <module> File "zxb.py", line 241, in main File "ply\yacc.pyc", line 263, in parse File "ply\yacc.pyc", line 710, in parseopt File "zxbparser.pyc", line 1793, in p_assignment File "zxbparser.pyc", line 1019, in make_typecast File "obj\errmsg.pyc", line 23, in syntax_error TypeError: %d format: a number is required, not NoneType

The problem has to be the cad (i) thing. Any other way to access a single char within a string?

EDIT: I've found "mid$" inside string.bas in the library. If I take just that function and add it to my code, replacing the cad (i) for mid (cad, i, 1), I still get the same crash, but inside the mid$ function.

Code:

function mid$ (ByVal s$, ByVal x As Uinteger, ByVal n As Uinteger) return s$(x to x + n - 1) end function

Broken compiler?