home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 February / 64er_Magazin_88-02_1988_Markt__Technik_de_Side_A.d64 / binaer-dezimal (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.