home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _FFP.AMOS / _FFP.amosSourceCode
AMOS Source Code  |  2008-12-10  |  182b  |  10 lines
  1. FFP[1.5]
  2. Z=Param : Print Hex$(Z)
  3. UNFFP[Z]
  4. Y#=Param# : Print Y#
  5. Procedure FFP[A#]
  6.    V=Varptr(A#) : A=Leek(V)
  7. End Proc[A]
  8. Procedure UNFFP[A]
  9.    B#=0.0 : Loke Varptr(B#),A
  10. End Proc[B#]