home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / lotto (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  71 lines
  1. 5 rem lotto
  2. 6 rem ueberarbeitete version aus
  3. 7 rem 'das grosse spielebuch' von
  4. 8 rem franz ende (c) 1984 m&t-verlag
  5. 9 rem ------------------------------
  6. 10 t0$="[204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186]"
  7. 20 t1$="[180]  [170][180]  [170][180]  [170][180]  [170][180]  [170][180]  [170][180]  [170]"
  8. 30 t2$="[180]01[170][180]02[170][180]03[170][180]04[170][180]05[170][180]06[170][180]07[170] "
  9. 40 t3$="[180]08[170][180]09[170][180]10[170][180]11[170][180]12[170][180]13[170][180]14[170] "
  10. 50 t4$="[180]15[170][180]16[170][180]17[170][180]18[170][180]19[170][180]20[170][180]21[170] "
  11. 60 t5$="[180]22[170][180]23[170][180]24[170][180]25[170][180]26[170][180]27[170][180]28[170] "
  12. 70 t6$="[180]29[170][180]30[170][180]31[170][180]32[170][180]33[170][180]34[170][180]35[170] "
  13. 80 t7$="[180]36[170][180]37[170][180]38[170][180]39[170][180]40[170][180]41[170][180]42[170] "
  14. 90 t8$="[180]43[170][180]44[170][180]45[170][180]46[170][180]47[170][180]48[170][180]49[170] "
  15. 100 t9$="[204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186][204][175][175][186] "
  16. 110 s$="      "
  17. 115 poke53280,1:poke53281,1
  18. 120 print"[147][144][142]"
  19. 130 print""s$+t1$
  20. 140 prints$+t2$
  21. 150 prints$+t0$
  22. 160 prints$+t1$
  23. 170 prints$+t3$
  24. 180 prints$+t0$
  25. 190 prints$+t1$
  26. 200 prints$+t4$
  27. 210 prints$+t0$
  28. 220 prints$+t1$
  29. 230 prints$+t5$
  30. 240 prints$+t0$
  31. 250 prints$+t1$
  32. 260 prints$+t6$
  33. 270 prints$+t0$
  34. 280 prints$+t1$
  35. 290 prints$+t7$
  36. 300 prints$+t0$
  37. 310 prints$+t1$
  38. 320 prints$+t8$
  39. 330 prints$+t9$
  40. 340 printtab(7)" noch ein spiel --> <n>"
  41. 350 printtab(7)" spielende      --> <e>"
  42. 360 x(0)=99
  43. 370 forz=1to6
  44. 380 w=0
  45. 390 x(z)=int(rnd(1)*49)
  46. 400 fory=0toz-1
  47. 410 ifx(z)=x(y)thenw=1
  48. 420 nexty
  49. 430 ifw=1then380
  50. 440 xv=120*int(x(z)/7)
  51. 450 xh=4*(x(z)-7*int(x(z)/7))
  52. 460 xx=1030+xv+xh:xc=55302+xv+xh
  53. 470 pokexx,160:pokexc,10
  54. 480 pokexx+1,160:pokexc+1,10
  55. 490 pokexx+2,160:pokexc+2,10
  56. 500 pokexx+3,160:pokexc+3,10
  57. 510 pokexx+40,160:pokexc+40,10
  58. 520 pokexx+43,160:pokexc+43,10
  59. 530 pokexx+80,160:pokexc+80,10
  60. 540 pokexx+81,160:pokexc+81,10
  61. 550 pokexx+82,160:pokexc+82,10
  62. 560 pokexx+83,160:pokexc+83,10
  63. 580 d=peek(xx+41)
  64. 590 pokexx+41,d+128
  65. 600 d=peek(xx+42)
  66. 610 pokexx+42,d+128
  67. 620 nextz
  68. 630 geta$:ifa$="e"thenprint"":end
  69. 640 ifa$="n"then130
  70. 650 goto630
  71.