mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 21:40:25 +00:00
Fixes regression introduced with 67af468
This commit is contained in:
parent
c09e27839a
commit
641c9d418a
|
@ -22444,7 +22444,11 @@ SUB xprint (a$, ca$, n)
|
||||||
IF puformat$ = "" THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
|
IF puformat$ = "" THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
|
||||||
IF i = n THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
|
IF i = n THEN Give_Error "Expected PRINT USING formatstring ; ...": EXIT SUB
|
||||||
'create build string
|
'create build string
|
||||||
IF TQBSset = 0 THEN PRINT #12, "tqbs=qbs_new(0,0);"
|
IF TQBSset = 0 THEN
|
||||||
|
PRINT #12, "tqbs=qbs_new(0,0);"
|
||||||
|
ELSE
|
||||||
|
PRINT #12, "qbs_set(tqbs,qbs_new_txt_len(" + CHR$(34) + CHR$(34) + ",0));"
|
||||||
|
END IF
|
||||||
'set format start/index variable
|
'set format start/index variable
|
||||||
PRINT #12, "tmp_long=0;" 'scan format from beginning
|
PRINT #12, "tmp_long=0;" 'scan format from beginning
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue