AddFloat

10 REM > TestAddF

20 !&8010=0:?&8014=&84:REM 16.0

30 !&8020=0:?&8024=&82:REM 4.0

40 !&8030=0:?&8034=&81:REM 2.0

50 |&8040=PI:|&8050=0

60 PRINT" |16=";|&8010'" |4= ";|&8020

70 PRINT"+16 +4 =";:|&8000= |&8010+|&8020:PRINT;|&8000" ";~?&8004" ";~!&8000

80 PRINT"+4 +16 =";:|&8000= |&8020+|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

90 PRINT"+16 -4 =";:|&8000= |&8010-|&8020:PRINT;|&8000" ";~?&8004" ";~!&8000

100 PRINT"+4 -16 =";:|&8000= |&8020-|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

110 PRINT"-16 +4 =";:|&8000=-|&8010+|&8020:PRINT;|&8000" ";~?&8004" ";~!&8000

120 PRINT"-4 +16 =";:|&8000=-|&8020+|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

130 PRINT"-16 -4 =";:|&8000=-|&8010-|&8020:PRINT;|&8000" ";~?&8004" ";~!&8000

140 PRINT"-4 -16 =";:|&8000=-|&8020-|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

150 PRINT"+16+16 =";:|&8000= |&8010+|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

160 PRINT"+16-16 =";:|&8000= |&8010-|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

170 PRINT"-16+16 =";:|&8000=-|&8010+|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

180 PRINT"-16-16 =";:|&8000=-|&8010-|&8010:PRINT;|&8000" ";~?&8004" ";~!&8000

190 PRINT" PI+0 =";:|&8000= |&8040+|&8050:PRINT;|&8000" ";~?&8004" ";~!&8000

200 PRINT" PI+PI =";:|&8000= |&8040+|&8040:PRINT;|&8000" ";~?&8004" ";~!&8000

210 PRINT" PI-PI =";:|&8000= |&8040-|&8040:PRINT;|&8000" ";~?&8004" ";~!&8000

220 PRINT" PI+4 =";:|&8000= |&8040+|&8020:PRINT;|&8000" ";~?&8004" ";~!&8000

230 PRINT" PI+2 =";:|&8000= |&8040+|&8030:PRINT;|&8000" ";~?&8004" ";~!&8000