home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / lotto (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.