We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f08a6df commit 0ac4de8Copy full SHA for 0ac4de8
2 files changed
tests/runtime/testprint64.bas tests/runtime/cases/print64.bastests/runtime/testprint64.bas renamed to tests/runtime/cases/print64.bas
@@ -2,21 +2,19 @@
2
' Test for print64 routine and memory leaks
3
' (compile with --debug-memory)
4
5
+#include <alloc.bas>
6
#include <print64.bas>
7
+#include "lib/tst_framework.bas"
8
9
+INIT(PAPER 1; INK 7; "Test PRINT64")
10
11
DIM n,x,y as uInteger
-CLS
12
13
FOR n=1 to 10000
- y=rnd*23
14
+ y=1+rnd*22
15
x=rnd*63
16
printat64(y, x)
17
print64("ABCDEFGHIJKLMNOPQRSTUVWXYZ"(n MOD 26 TO n MOD 26))
- print at 23,0;n;" y:";y;" x:";x;" L:";n mod 26; " ";
18
+ print at 23,0;n;" y:";y;" x:";x;" L:";n mod 26; " "; memavail; " ";
19
NEXT n
-
-pause 0
20
-END
21
22
+FINISH
tests/runtime/expected/print64.tzx.scr
6.75 KB
0 commit comments