home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / dualzahlen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  29 lines
  1. 10 print"[147]":rem umrechnung dezimalzahl in dualzahl
  2. 20 print"umrechnung dezimalzahl in dualzahl"
  3. 30 print"**********************************"
  4. 40 print:input" dezimalzahl";de
  5. 50 ifde/2<>int(de/2)thendu$="1"+du$
  6. 60 ifde/2=int(de/2)thendu$="0"+du$
  7. 70 de=int(de/2)
  8. 80 ifde>=1then50
  9. 90 print:print" dualzahl="du$
  10. 100 du$="":goto40
  11. 110 :
  12. 120 :
  13. 200 print"[147]":rem umrechnung dualzahl in dezimalzahl
  14. 210 print"umrechnung dualzahl in dezimalzahl
  15. 220 [153]"**********************************"
  16. 230 fl[178]0:[153]:[133]" dualzahl";du$
  17. 232 [129]i[178]1[164][195](du$)
  18. 235 [139][198]([202](du$,i,1))[177]49[167]fl[178]1
  19. 236 [139][198]([202](du$,i,1))[179]48[167]fl[178]1
  20. 237 [130]i
  21. 238 [139]fl[178]1[167][153][163]3)du$;" ist keine dualzahl!":[137]230
  22. 240 f[178]2[174]([195](du$)[171]1)
  23. 250 [129]l[178]1[164][195](du$)
  24. 260 s[178][197]([202](du$,l,1))
  25. 270 de[178]de[170]s[172]f:f[178]f[173]2
  26. 280 [130]l
  27. 290 [153]:[153]" dezimalzahl="de
  28. 300 de[178]0:[137]230
  29.