home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-07_1987_Verlag_Heinz_Weise_de.d64 / bitmaster (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 0 rem ********  input 64  *************
  2. 1 rem *********************************
  3. 3 poke53280,0:poke53281,14:print"[147][144]"
  4. 5 print"       *************************"
  5. 6 print"       ******  bitmaster  ******"
  6. 7 print"       *************************"
  7. 9 print" denken sie sich bitte eine zahl"
  8. 10 print" zwischen 0 und 128 aus!"
  9. 12 print" ich werde ihnen dann 7 listen "
  10. 14 print" zeigen und sie geben mir durch"
  11. 16 print" ja/nein (j/n) zu verstehen, ob"
  12. 18 print" sich die von ihnen gewaehlte"
  13. 20 print" zahl darunter befindet!
  14. 22 [153]" danach teile ich ihnen umgehend"
  15. 24 [153]" ihre ausgedachte zahl mit."
  16. 26 [153]" (taste)"
  17. 40 [134]e(500):z[178]0
  18. 60 [129]t[178] 16[164] 31: e(z)[178]t  :z[178]z[170]1 :[130]
  19. 70 [129]t[178] 48[164] 63: e(z)[178]t  :z[178]z[170]1 :[130]
  20. 80 [129]t[178] 80[164] 95: e(z)[178]t  :z[178]z[170]1 :[130]
  21. 90 [129]t[178]112[164]127: e(z)[178]t  :z[178]z[170]1 :[130]
  22. 100 [129]t[178] 32[164]63 :e(z)[178]t  :z[178]z[170]1 :[130]
  23. 110 [129]t[178] 96[164]127:e(z)[178]t  :z[178]z[170]1 :[130]
  24. 120 [129]t[178]  4[164]124[169]8:e(z)[178]t:e(z[170]1)[178]t[170]1:e(z[170]2)[178]t[170]2:e(z[170]3)[178]t[170]3:z[178]z[170]4:[130]
  25. 130 [129]t[178]2 [164]126[169]4:e(z)[178]t:e(z[170]1)[178]t[170]1:z[178]z[170]2:[130]
  26. 140 [129]t[178]8 [164]15:e(z)[178]t:z[178]z[170]1:[130]
  27. 145 [129]t[178]24[164]31:e(z)[178]t:z[178]z[170]1:[130]
  28. 147 [129]t[178]40[164]47:e(z)[178]t:z[178]z[170]1:[130]
  29. 150 [129]t[178]56[164]63:e(z)[178]t:z[178]z[170]1:[130]
  30. 160 [129]t[178]72[164]79:e(z)[178]t:z[178]z[170]1:[130]
  31. 170 [129]t[178]88[164]95:e(z)[178]t:z[178]z[170]1:[130]
  32. 180 [129]t[178]104[164]111:e(z)[178]t:z[178]z[170]1:[130]
  33. 190 [129]t[178]120[164]127:e(z)[178]t:z[178]z[170]1:[130]
  34. 200 [129]t[178]1[164]127[169]2:e(z)[178]t:z[178]z[170]1:[130]
  35. 210 [129]t[178]64 [164]127:e(z)[178]t:z[178]z[170]1:[130]
  36. 299 [161]a$:[139]a$[178]""[167]299
  37. 300 xe[178]16:n[178]1:[141]400
  38. 310 xe[178]32:n[178]2:[141]400
  39. 320 xe[178]4 :n[178]3:[141]400
  40. 330 xe[178]2 :n[178]4:[141]400
  41. 335 xe[178]8 :n[178]5:[141]400
  42. 340 xe[178]1 :n[178]6:[141]400
  43. 350 xe[178]64:n[178]7:[141]400
  44. 370 [153]"ihre zahl ist die ";x
  45. 375 [153]" nochmal ?  (j)on"
  46. 378 [161]a$:[139]a$[178]""[167]378
  47. 380 [139]a$[178]"j"[167]x[178]0:[140]:[137]300
  48. 390 [128]
  49. 400 b[178]0:[153]"load":[129]i[178](n[171]1)[172]64[164]n[172]64[171]1:d$[178]"   "[170][196](e(i))
  50. 405 [153][201](d$,4);:b[178]b[170]1
  51. 410 [139]b[173]7[178][181](b[173]7)[167][153]:[153]:b[178]0
  52. 420 [130]
  53. 430 [141]2000
  54. 440 [142]
  55. 2000 [153]:[153]" ist ihre zahl dabei?  (j/n)"
  56. 2010 [161]a$:[139]a$[178]""[167]2010
  57. 2020 [139]a$[178]"n"[167][142]
  58. 2030 [139]a$[179][177]"j"[167]2010
  59. 2040 x[178]x[170]xe
  60. 2050 [142]
  61.