home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh69b.d64 / nullen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  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.