Skip to content

Commit 0ac4de8

Browse files
committed
Add test for PRINT64 library
1 parent f08a6df commit 0ac4de8

2 files changed

Lines changed: 6 additions & 8 deletions

File tree

Lines changed: 6 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -2,21 +2,19 @@
22
' Test for print64 routine and memory leaks
33
' (compile with --debug-memory)
44

5+
#include <alloc.bas>
56
#include <print64.bas>
7+
#include "lib/tst_framework.bas"
68

9+
INIT(PAPER 1; INK 7; "Test PRINT64")
710

811
DIM n,x,y as uInteger
9-
CLS
1012

1113
FOR n=1 to 10000
12-
y=rnd*23
14+
y=1+rnd*22
1315
x=rnd*63
1416
printat64(y, x)
1517
print64("ABCDEFGHIJKLMNOPQRSTUVWXYZ"(n MOD 26 TO n MOD 26))
16-
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; " ";
1719
NEXT n
18-
19-
pause 0
20-
END
21-
22-
20+
FINISH
6.75 KB
Binary file not shown.

0 commit comments

Comments
 (0)