1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
print "Check, that print using does not give spurious digits ..."
seen$ = str$(1 + 1/64, "###.###########################")
expected$ = " 1.015625000000000000000000000"
if seen$ <> expected$ then
print "Formatting a fractional number yields " + seen$ + ", but expecting " + expected$
exit 2
endif
print "Check, that print using can handle long numbers ..."
x = 1073741824 * 8 * 8
seen$ = str$(x, "#############################")
expected$ = " 68719476736"
if seen$ <> expected$ then
print "Formatting a large number yields " + seen$ + ", but expecting " + expected$
exit 2
endif
exit 0
|
