Raoued plage

2 PRINT TAB(33);"POKER" 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 6 PRINT: PRINT: PRINT 10 DIM A(50),B(15) 20 DEF FNA(X)=INT(10*RND(1)) 30 DEF FNB(X)=X-100*INT(X/100) 40 PRINT "WELCOME TO THE CASINO.  WE EACH HAVE $200." 50 PRINT "I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER." 60 PRINT "TO FOLD BET 0; TO CHECK BET .5." 70 PRINT "ENOUGH TALK -- LET'S GET DOWN TO BUSINESS." 80 PRINT 90 LET O=1 100 LET C=200 110 LET S=200 120 LET P=0 130 REM 140 PRINT 150 IF C<=5 THEN 3670 160 PRINT "THE ANTE IS $5.  I WILL DEAL:" 170 PRINT 180 IF S>5 THEN 200 190 GOSUB 3830 200 LET P=P+10 210 LET S=S-5 220 LET C=C-5 230 FOR Z=1 TO 10 240 GOSUB 1740 250 NEXT Z 260 PRINT "YOUR HAND:" 270 N=1 280 GOSUB 1850 290 N=6 300 I=2 310 GOSUB 2170 320 PRINT 330 IF I<>6 THEN 470 340 IF FNA(0)<=7 THEN 370 350 LET X=11100 360 GOTO 420 370 IF FNA(0)<=7 THEN 400 380 LET X=11110 390 GOTO 420 4

5 PRINT TAB(16);"**************************" 10 PRINT TAB(26);"ELIZA" 20 PRINT TAB(20);"CREATIVE COMPUTING" 30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY":PRINT 40 PRINT TAB(19);"ADAPTED FOR IBM PC BY" 50 PRINT TAB(20);"PATRICIA DANIELSON AND PAUL HASHFIELD" 52 PRINT TAB(21);"BE SURE THAT THE CAPS LOCK IS ON" 53 PRINT:PRINT TAB(16);"PLEASE DON'T USE COMMAS OR PERIODS IN YOUR INPUTS":PRINT 55 PRINT TAB(16);"*************************" 60 PRINT :PRINT :PRINT 80 REM*****INITIALIZATION********** 100 DIM S(36),R(36),N(36) 105 DIM KEYWORD$(36),WORDIN$(7),WORDOUT$(7),REPLIES$(112) 110 N1=36:N2=14:N3=112 112 FOR X = 1 TO N1: READ KEYWORD$(X): NEXT X 114 FOR X = 1 TO N2/2: READ WORDIN$(X):READ WORDOUT$(X): NEXT X 116 FOR X = 1 TO N3: READ REPLIES$(X): NEXT X 130 FOR X=1 TO N1 140 READ S(X),L:R(X)=S(X):N(X)=S(X)+L-1 150 NEXT X 160 PRINT "HI! I'M ELIZA. WHAT'S YOUR PROBLEM?" 170 REM *********

10 DIM TSM%(45,25),TA%(33),TB%(33),TC%(33),TY%(25),TZ%(9),TX%(8001),TX2%(8001):KEY 1,"1":KEY 2,"2":KEY 3,"3"  20 A$="":A=0:B=0:C=0:CO=0:CO1=1:SC=0:TE=80:TVACHE=0:X=1:Y=1  30 KEY OFF:SCREEN 0,1:WIDTH 80:COLOR 7,0:CLS:LOCATE 12,15:PRINT"Avez vous ou Moniteur (M)onocrome/(C)ouleur ?";:COLOR 23:PRINT"_"  40 A$=INKEY$:IF A$=""THEN 40  50 IF A$="C"OR A$="c"THEN M=1:GOTO 60 ELSE IF A$="M"OR A$="m"THEN M=0:GOTO 60 ELSE 40  60 SCREEN 1,M:CLS:RANDOMIZE TIMER  70 DRAW"C2BM0,0R31D7L31U7":LINE(1,1)-(30,6),1,BF:GET(0,0)-(31,7),TA%:CLS  80 DRAW"C2BM0,0R7D31L7U31":LINE(1,1)-(6,30),1,BF:GET(0,0)-(7,31),TB%:CLS  90 DRAW"C3BM0,0R15D15L15U15":LINE(1,1)-(14,14),2,BF:GET(0,0)-(15,15),TC%:CLS  110 GET(0,0)-(319,7),TX%:PUT(0,192),TX%,PSET:PUT(0,184),TX%,PSET:GET(0,0)-(319,199),TX2%  120 LINE(8,60)-(311,191),0,BF:LINE(8,60)-(311,191),2,B  130 LOCATE 10,18:PRINT"MENU&q

Au nom d’Allah, le Tout Miséricordieux, le Très Miséricordieux. 1. Dis : “Je cherche protection auprès du Seigneur des hommes. 2. Le Souverain des hommes, 3. Dieu des hommes, 4. contre le mal du mauvais conseiller, furtif, 5. qui souffle le mal dans les poitrines des hommes, 6. qu'il (le conseiller) soit un djinn, ou un être humain”.

Au nom d’Allah, le Tout Miséricordieux, le Très Miséricordieux. 1. Dis : “Je cherche protection auprès du Seigneur de l'aube naissante, 2. contre le mal des êtres qu'Il a créés, 3. contre le mal de l'obscurité quand elle s'approfondit, 4. contre le mal de celles qui soufflent (les sorcières) sur les noeuds, 5. et contre le mal de l'envieux quand il envie ”.