home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / polski_aminet / michal_durys / bintest.e < prev    next >
Text File  |  1996-05-06  |  456b  |  17 lines
  1. /* Simple example of using binconv module */
  2.  
  3. MODULE '*binconv'
  4.  
  5. PROC main()
  6.   DEF str1,str2,num
  7.   /* Read args */
  8.   IF arg[]=NIL
  9.     WriteF('Usage: bintest [num]\n')
  10.     CleanUp(0)
  11.   ENDIF
  12.   num:=Val(arg)              -> convert string to interger
  13.   str1:=convLong2Bin(num)    -> covert it to binary
  14.   str2:=cutZeros(str1)       -> cut superfluous zeros
  15.   /* Show how it looks */
  16.   WriteF('DEC \d = HEX $\h = BIN %\s (or %\s)\n',num,num,str1,str2)
  17. ENDPROC