home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh38d.d64 / binaer-dezimal (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  210b  |  7 lines
  1. 10 DIM B(1,1,1,1,1,1,1,1)
  2. 20 FORA7=0TO1:FORA6=0TO1:FORA5=0TO1
  3. 30 FORA4=0TO1:FORA3=0TO1:FORA2=0TO1
  4. 40 FORA1=0TO1:FORA0=0TO1
  5. 50 B(A7,A6,A5,A4,A3,A2,A1,A0)=128*A7+64*A6+32*A5+16*A4+8*A3+4*A2+2*A1+1*A0
  6. 60 NEXTA0,A1,A2,A3,A4,A5,A6,A7
  7.