| 1 :'*********************
2 :'** LOTO ** 3 :'** ** 4 :'** PAR DIEGO PRADO ** 5 :'** ** 6 :'** (1986) ** 7 :'********************* 8 :'********************* 9 :' 10 :'**** DESSINE FENETRES ***** 20 MODE 1:CALL &BC02:PAPER 0:BORDER 8:INK 0,8:INK 1,24:INK 3,2,18:INK 2,1 30 WINDOW#1,1,39,1,3:PEN#1,0:PAPER#1,1:CLS#1 40 WINDOW#2,9,30,6,20:PEN#2,0:PAPER#2,1:CLS#2 50 WINDOW#3,1,40,23,25:PEN#3,0:PAPER#3,1:CLS#3 60 PEN 1:LOCATE 2,4:PRINT STRING$(39,207) 70 FOR T=2 TO 4:LOCATE 40,T:PRINT CHR$(207):NEXT 80 PEN 1:LOCATE 10,21:PRINT STRING$(22,207) 90 FOR T=7 TO 21:LOCATE 31,T:PRINT CHR$(207):NEXT 100 PLOT 1,350,3:DRAWR 621,0:DRAWR 0,49:DRAWR -621,0:DRAWR 0,-49 110 PLOT 127,320,2:DRAWR 354,0:DRAWR 0,-242:DRAWR -354,0:DRAWR 0,242 120 PLOT 127,280,2:DRAWR 354,0:PLOT 127,248:DRAWR 354,0 130 PLOT 127,216,2:DRAWR 354,0:PLOT 127,184:DRAWR 354,0 140 PLOT 127,152,2:DRAWR 354,0:PLOT 127,120:DRAWR 354,0 150 LOCATE#1,14,2:PRINT#1,"** L O T O **" 160 X$=" *** LOTO *** PAR DIEGO PRADO POUR AMSTRAD MAGAZINE ***** PRESSE UNE TOUCHE *****" 170 Z$=X$ 180 WHILE INKEY$<>"":WEND 190 WHILE INKEY$="":READ L:IF L=0 THEN RESTORE 220:READ L 200 SOUND 1,L,9,15:LOCATE#3,6,2:PRINT#3,MID$(Z$,1,30):Z$=MID$(Z$,2):IF LEN(Z$)<31 THEN Z$=Z$+X$ 210 WEND 220 DATA 119,90,106,80,119,80,134,80,142,80,134,80,119,80,159,80,142,80,134,60,142,80,134,80,119,80,119,90,106,80,119,80 230 DATA 134,80,142,80,134,80,119,80,159,60,119,60,142,60,179,60 240 DATA 0 250 DIM num(12)::'** INICIAL. ** 260 :'*** EFFACE NUMERO/DEMANDE *** 270 LOCATE#2,1,2:PRINT#2,SPC(21) 280 LOCATE#2,1,4:PRINT#2,SPC(21) 290 LOCATE#2,1,6:PRINT#2,SPC(21) 300 LOCATE#2,1,8:PRINT#2,SPC(21) 310 LOCATE#2,1,10:PRINT#2,SPC(21) 320 LOCATE#2,1,12:PRINT#2,SPC(21) 330 LOCATE#2,1,14:PRINT#2,SPC(21) 340 CLS#3:LOCATE#3,10,2:INPUT#3,"COMBIEN DE NUMEROS:",dp:CLS#3 350 IF dp<6 OR dp>10 THEN 270 360 :'**** SECLECTION NUMEROS ***** 370 FOR M=1 TO dp 380 NUM(M)=INT(RND*49)+1 390 FOR K=1 TO M-1 400 IF NUM(M)=NUM(K) THEN 380 410 NEXT K 420 NEXT M 430 :'*** REPRESENTE NUM. ECRAN *** 440 X=1:Y=2 450 FOR N=1 TO 49 460 LOCATE#2,X,Y 470 :'*** NUM.CHOISIES *** 480 FOR M=1 TO dp 490 IF N=NUM(M) THEN PEN#2,3 500 FOR H=300 TO 100 STEP-50:IF N=NUM(M) THEN SOUND 1,H,10,15:NEXT 510 NEXT M 520 PRINT#2,N 530 PEN#2,0 540 Y=Y+2 550 IF N/7=INT(N/7) THEN X=X+3:Y=2 560 NEXT N 570 :'***** PRIX ***** 580 IF dp=6 THEN fr=4 590 IF dp=7 THEN fr=7 600 IF dp=8 THEN fr=28 610 IF dp=9 THEN fr=84 620 IF dp=10 THEN fr=210 630 LOCATE#3,10,1:PRINT#3,"NUMEROS SELECTIONNER"; 640 PRINT#3,dp 650 LOCATE#3,14,3:PRINT#3,"PRIX EN Fr."; 660 PRINT#3,fr 670 FOR h=1 TO 4000:NEXT 680 :'*** DEMANDE D'UN TIRAGE SUPL. *** 690 CLS#3:LOCATE#3,4,2:PRINT#3,"VOULEZ VOUS UN AUTRE TIRAGE [S-N]" 700 A$=INKEY$ 710 IF A$="s" OR A$="S" THEN 270 720 IF A$="n" OR A$="N" THEN 750 730 GOTO 700 740 :'******* FIN ******** 750 RESTORE 820 760 READ q$ 770 IF q$="`" THEN 830 780 PRINT#1,q$; 790 SOUND 1,200,5,15 800 FOR n=1 TO 100:NEXT 810 GOTO 760 820 DATA " ",F,I,N," ",D,U," ",P,R,O,G,R,A,M,M,E,` 830 CALL &BC02:CLS#2:CLS#3:GOTO 830 |