pot

pam

=

-

۳ لا‎ Er

LI

1

-

ne

^ رس ده

7

unir 2 1

IS P

WD

Wei — رر‎ Š 15 ملا‎

LL

EI

Programme LOTO (6/36 & 6/49)

REM PROGRAMME DE LOTO REH PROGAMMATION 18/11/82 REM PAR YVES GAGNON ELECTR.

an REM IL TIRE E NUMEROS AU HA SAR

58 PRINT AT 3,5; ۳:۱ 0۲0۵ PERFE ہس‎ EE E Aw

58 PRINT AT 19,6; “POUR 6/35 EN

(36) “ , "POUR 6/49 ENTREZ (49

INPUT U$

IF U$="36" THEN GO TO 118 IF Us="45" THEN GO TO 118 GO TO 73

PRINT AT 19,68,”

LET AL=VAL Us PRINT AT 28,8; “NOMBRE DE MI

INPUT K$

8 IF CODE K¥<49 OR CODE 7

THEN GO TO 148

168 178 182 GUE

LET B=VAL K$

DIM N(5)

PRINT AT 17,8;" LES NUMEROS L ORDINATEUR”,” PROPOSE SON

T LES SUIVANTS:” 198 PRINT *

239

PRINT ۳

GO SUB 332

FOR I=1 Tü 5

PRINT TAB (Z)};N{I); BEEP .81,1

INPUT “"

IF X<B THEN GO TG 238 PRINT a FFF BONNE CHANT

IF INKEY$="" THEN GO TO 358 CLS

RUN

FOR I-1 TO 6

LET N(I}=INT (RND+A1) +1

FOR 1=ف‎ Ta I

IF بي‎ THEN GO TO 438

IF NíJY)=N 11) THEN GO TO 398 NEXT ۹1

NEXT I

FOR K=1 TO 6-1

FOR I=i TO 8-K

IF م٤)‎ 4۳4 ]1+1( THEN GO TO 5

LET T=Hí(1) i

LET N(I} - (141)

LET N(I+1!=

HEXT I

NEXT K

RETURN

SAVE “LOTO” LINE 18

Programme: PUZZLE

@>RE warma TEC

Ei: ES GAGNO‏ ۲۲۳۲۶ ر8

DREM AN BORDER 5: PAPER 1: INK 7: C LET w=14 LET z=12 LET 9-343

LET a=INT IRNDIW) +Z LET b=INT (RNDaw) +z LET C=INT (RNDIW]) +Z LET a$=CHR$ a+CHR$ b+CHR% c LET b$=CHR$ b+CHRS C+CHRS a LET c$=CHRS C+CHR% a+CHR%

PRINT INK_7;RT 2,5 Fe

63 PRINT INK 7;AT 1i,5;"m====; EZ ZEE- INK 7:RAT 2,5; "E

65 PRINT AT 4,w/2;aš;TAB w/2;b ¥; TRB 472; c$

66 BEEP .85,1

78 LET u=INT {RnDz3) +1

88 LET p=7zu

188 LET x$=CHRS رو‎ +128) +CHR $ ({q-b}+128) +CHR* ((q-c)+123) 118 LET yš$=CHRš ((q-b)+128)+CHR ې‎ ((49-c)3+123) +CHR* ((4-2) +128) 128 LET zs*=CHR3 tta-0) +123) +CHR $ ((9-31+128) 4CHRE i (q—b) +123) 138 LET d=INT (RHD:#3)4Z ZZ

148 IF dau THEN GO TO 138

156 LET a=tw/2)3:d

168 PRINT AT زر رورس‎ wrlja;zš :6T 042 ,q; us

165 BEEP .85,1

178 PRINT AT D,P¿X BAT w+l,P;y% ¿AT W42 کے زر مر‎

175 BEEP „85,1

138 LET L=INT {RNDı3} +1

198 IF (t=u OR (sd) THEN GO TO

260 LET (-w/2zt

216 PRINT AT زارت‎ 2 AT w+1,13x3 ¿AT w+2,1;y%

215 BEEP „85,1

226 PRINT AT 18,8; "H";AT 18,15; ا‎ AT 13, 22; Ze

225 FOR 1-1 TO 48

223 LET p&$=INKEY%$

eH ERINI #B,AT 1,0;" VOTRE CHO

235 IF p$="1" OR p#="2" OR py=" 3" THEN GO TO 238

233 NEXT t

239 GO TO Sea

248 IF VAL نەم‎ THEN PRINT INVE RSE 1; PAPER 7; INK 8;AT 23,2;” VOUS AVEZ TROUVE “: INVERSE 8: G O TO 688

538 PRINT INVERSE 1; PAPER 7; I NK_0;AT_20,2;” UDUS AVEZ PERDU ” i INVERSE 4

688 BEEP .5,2: PRINT RT 25,26,” C'est le “ju

518 PAUSE 8: RUN 92232 STOP SE SAVE “puzzle” LINE و‎ VERIF

s8 ac

7

ii‏ و

=

CO رت‎ KOL حم‎

Di mr ma

res dans la PAK

40

之

= 212

Magrelo +2 从 agnelo HA + RECORD" “PLAY”

CASSETTE CASSETTE 6ص‎ ORIGINAL

vo: Le programe co ie, la cassette ھال‎ bost 之 ا‎ Poor mettre fin zu programme ‚on

doi] debrenche le 2008.

لس نا نے

Cu‏ "ا

ˆ ar les | کی‎ 5 à co. ar زور‎ JA eX Gites RUN sy Poe Fever Rs codes ex ia D pair ¬"

۵: TS wes, ALUSES

5 Geh Gs m C = s ng.” S