5 ' ***************
6 ' *Q U A T U O R* 7 ' *************** 10 ' 11 MODE 0:PAPER 0:INK 0,0:INK 1,18,6:INK 2,15:BORDER 6:SPEED INK 40,40:PEN 1 12 LOCATE 4,12:PRINT"Q U A T U O R" 13 PEN 2:LOCATE 4,13:PRINT STRING$(13,CHR$(208)) 14 FOR Z=10 TO 6000:NEXT Z 15 ENV 1,15,-1,9:ENV 2,15,-1,6:ENV 3,15,-1,3:SOUND 2,478,60,15,1:SOUND 2,478,45,15,2:SOUND 2,478,15,15,3:SOUND 2,478,60,15,1 16 SOUND 2,402,45,15,2:SOUND 2,426,15,15,3:SOUND 2,426,45,15,2:SOUND 2,478,15,15,3:SOUND 2,478,45,15,2:SOUND 2,506,15,15,3:SOUND 2,478,60,15,1 30 SYMBOL AFTER 128:DEFINT A-Z:GOSUB 1100 40 MODE 1:INK 0,1:INK 1,24:INK 2,26:INK 3,6:PAPER 0:PEN 1:BORDER 9 50 FOR I=200 TO 424 STEP 32:SOUND 1,48,1,7 60 PLOT I,344:DRAW 424,344:DRAW 424,152:DRAW I,152:DRAW I,344 70 IF I<392 THEN PLOT 200,544-I:DRAW 424,544-I:DRAW 424,248:DRAW 200,248:DRAW 200,544-I 80 NEXT I 90 PEN 3:LOCATE 14,17:PRINT "1 2 3 4 5 6 7" 100 DIM P(8,7) 110 E=1 120 X(1)=0:Y(1)=-1:X(2)=-1:Y(2)=-1 130 X(3)=1:Y(3)=-1:X(4)=-1:Y(4)=0 140 REM ------------------------------- 180 REM ------------------------------- 190 REM LE JEU 200 LOCATE 1,21:PRINT CHR$(18); 210 IF E=2 THEN 400 220 PEN 1:LOCATE 13,21:PRINT"No DE COLONNE ?"; 230 A$=INKEY$:IF A$="" THEN 230 ELSE A=VAL(A$) 240 IF A<1 OR A>7 OR P(A,1)<>0 THEN 230 250 GOSUB 780:J=A:C(J)=I:Z=E:GOSUB 600:P(A,I)=E 260 PEN 2 270 FOR J=0 TO I:SOUND 1,30,1,7 280 LOCATE 12+A*2,3+(J-1)*2:PRINT " " 290 LOCATE 12+A*2,3+J*2:PRINT CHR$(127+E) 300 FOR K=1 TO 300:NEXT K:SOUND 1,30,1,15 310 NEXT J:IF N>2 THEN 900 320 PEN 3:LOCATE 27+E*4,1+INT( 297 PRINT A: 1263 8180 |