5 REM LOTTO
6 REM UEBERARBEITETE VERSION AUS
7 REM 'DAS GROSSE SPIELEBUCH' VON
8 REM FRANZ ENDE (C) 1984 M&T-VERLAG
9 REM ------------------------------
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]"
20 T1$="[180]  [170][180]  [170][180]  [170][180]  [170][180]  [170][180]  [170][180]  [170]"
30 T2$="[180]01[170][180]02[170][180]03[170][180]04[170][180]05[170][180]06[170][180]07[170] "
40 T3$="[180]08[170][180]09[170][180]10[170][180]11[170][180]12[170][180]13[170][180]14[170] "
50 T4$="[180]15[170][180]16[170][180]17[170][180]18[170][180]19[170][180]20[170][180]21[170] "
60 T5$="[180]22[170][180]23[170][180]24[170][180]25[170][180]26[170][180]27[170][180]28[170] "
70 T6$="[180]29[170][180]30[170][180]31[170][180]32[170][180]33[170][180]34[170][180]35[170] "
80 T7$="[180]36[170][180]37[170][180]38[170][180]39[170][180]40[170][180]41[170][180]42[170] "
90 T8$="[180]43[170][180]44[170][180]45[170][180]46[170][180]47[170][180]48[170][180]49[170] "
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] "
110 S$="      "
115 POKE53280,1:POKE53281,1
120 PRINT"[147][144][142]"
130 PRINT""S$+T1$
140 PRINTS$+T2$
150 PRINTS$+T0$
160 PRINTS$+T1$
170 PRINTS$+T3$
180 PRINTS$+T0$
190 PRINTS$+T1$
200 PRINTS$+T4$
210 PRINTS$+T0$
220 PRINTS$+T1$
230 PRINTS$+T5$
240 PRINTS$+T0$
250 PRINTS$+T1$
260 PRINTS$+T6$
270 PRINTS$+T0$
280 PRINTS$+T1$
290 PRINTS$+T7$
300 PRINTS$+T0$
310 PRINTS$+T1$
320 PRINTS$+T8$
330 PRINTS$+T9$
340 PRINTTAB(7)" NOCH EIN SPIEL --> <N>"
350 PRINTTAB(7)" SPIELENDE      --> <E>"
360 X(0)=99
370 FORZ=1TO6
380 W=0
390 X(Z)=INT(RND(1)*49)
400 FORY=0TOZ-1
410 IFX(Z)=X(Y)THENW=1
420 NEXTY
430 IFW=1THEN380
440 XV=120*INT(X(Z)/7)
450 XH=4*(X(Z)-7*INT(X(Z)/7))
460 XX=1030+XV+XH:XC=55302+XV+XH
470 POKEXX,160:POKEXC,10
480 POKEXX+1,160:POKEXC+1,10
490 POKEXX+2,160:POKEXC+2,10
500 POKEXX+3,160:POKEXC+3,10
510 POKEXX+40,160:POKEXC+40,10
520 POKEXX+43,160:POKEXC+43,10
530 POKEXX+80,160:POKEXC+80,10
540 POKEXX+81,160:POKEXC+81,10
550 POKEXX+82,160:POKEXC+82,10
560 POKEXX+83,160:POKEXC+83,10
580 D=PEEK(XX+41)
590 POKEXX+41,D+128
600 D=PEEK(XX+42)
610 POKEXX+42,D+128
620 NEXTZ
630 GETA$:IFA$="E"THENPRINT"	":END
640 IFA$="N"THEN130
650 GOTO630