Skip to content

Commit 8d8e383

Browse files
committed
Add test case for print TAB
1 parent 466063f commit 8d8e383

2 files changed

Lines changed: 14 additions & 0 deletions

File tree

tests/runtime/cases/print_tab.bas

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
#include "lib/tst_framework.bas"
2+
3+
INIT("Testing TAB")
4+
5+
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
6+
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
7+
'PRINT AT 8,31;"-" 'to measure the wrong positions
8+
'PRINT a$;b$;c$;d$;e$;f$;g$
9+
PRINT f$;g$;
10+
'PRINT AT 10,28;"HI" 'fine at same coords
11+
'PRINT AT 2,0;"--" 'to measure the wrong positions
12+
13+
FINISH
14+
6.75 KB
Binary file not shown.

0 commit comments

Comments
 (0)