Code: Select all
10 PRINT F2H$(28)
20 X = 1.4 * 20
30 PRINT F2H$(X)
40 PRINT F2H$(INT(ABS(X)))
50 :
100 DEFine FuNction F2H$(n)
110 LOCal a, f$(14)
120 a = ALCHP(6)
130 POKE_F a, n
140 f$ = '$' & HEX$(PEEK_W(a), 16) & HEX$(PEEK_L(a + 2), 32)
150 RECHP a
160 RETurn f$
170 END DEFine F2H$
180 :