prog8/examples/test.p8

24 lines
354 B
Plaintext
Raw Normal View History

2019-07-15 01:57:51 +00:00
%import c64flt
2019-07-01 21:41:30 +00:00
%zeropage basicsafe
2019-07-15 01:57:51 +00:00
%option enable_floats
2019-03-29 01:13:28 +00:00
~ main {
sub start() {
float f1 = 1.1
float f2 = 2.2
2019-07-17 23:31:12 +00:00
@(1024) = f1==f2
2019-07-22 16:58:55 +00:00
c64.CHROUT('\n')
c64scr.print_ub(f1==f2)
2019-07-22 16:58:55 +00:00
c64.CHROUT('\n')
if f1 ==0.0
c64scr.print("error\n")
else
c64scr.print("ok\n")
2019-07-22 16:58:55 +00:00
}
}