12-30-2020, 02:14 PM
More test cases below:
Code:
DIM a$, b$ AS String
CLS
PRINT AT 0,0;PAPER 5;CHR(32) ' - fine
a$=CHR(22,1,27,65,66) 'PRINT AT 1,27;"AB" - fine
b$=CHR(22,2,28,67,68) 'PRINT AT 2,28;"CD" - wrong location (3,0)
c$=CHR(22,3,29,69,70) 'PRINT AT 3,29;"EF" - wrong location (4,0)
d$=CHR(22,4,28,71) 'PRINT AT 4,28;"G" - wrong location (5,0) - would have expected success here if the bug is char count
e$=CHR(22,5,29,71) 'PRINT AT 5,29;"G" - wrong location (6,0)
f$=CHR(22,6,27,16,2,17,5,19,1,71) 'PRINT AT 6,27;"G" - fine, so other control codes are not counted
g$=CHR(22,7,10,17,0,23,31,0,32) 'PRINT AT 7,10; INK 0; TAB 31; " " last char is wrong. Should be a space
PRINT AT 8,31;"-" 'to measure the wrong positions
PRINT a$;b$;c$;d$;e$;f$;g$
PRINT AT 10,28;"HI" 'fine at same coords
PRINT AT 2,0;"--" 'to measure the wrong positions