home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / nullen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  129 b   |  7 lines
  1. 5 input"nachkommazahl";a
  2. 10 a$=mid$(str$(a),2)
  3. 11 iflen(str$(a))<4thena$=a$+"0"
  4. 20 ifabs(a)<1andabs(a)>=0.01thena$="0"+a$
  5. 30 ifa<0thena$="-"+a$
  6. 40 printa$
  7.