100 CALL CLEAR
110 CALL CHAR(128,"103854FEFEC3838")
120 CALL CHAR(136,"183C7EFFFF181818")
130 CALL CHAR(96,"78FD767C7C76FD78")
110 CALL CHAR(97,"42FFFFFDB7E2442")
150 CALL CHAR(98,"1EBF6E3E3E6EBF1E")
160 CALL CHAR(99,"42FF7E66667EFF42")
170 CALL CHAR(92,"001010101")
180 CALL SCREEN(2)
190 CALL COLOR(13,7,1)
200 CALL COLOR(14,13,1)
210 CALL COLOR(8,5,1)
220 CALL COLOR(9,12,1)
230 FOR 1=1 TO 90
240 H=INT(21*RND)+2
250 V=INT(30*RND)+3
260 CALL SOUND(50,440,5)
270 CALL HCHAR(H,V,136)
280 NEXT I
290 CALL HCHAR(24,16,128)
300 RESTORE
310 DATA 300,262,900,349,100,392,100,349,100,392
311 DATA 300,440,500,440,300,440
320 DATA 100,440,100,466,100,392,450,440,150,392
321 DATA 450,440,150,392,300,349,100,-8
330 FOR 1=1 TO 15
310 READ A,B
350 CALL SOUND(A,B,5)
360 NEXT I
370 CALL HCHAR(1,32,98)
380 FOR I=31 TO 25 STEP -1
390 CALL SOUND(100,-8,5)
400 CALL HCHAR(1,I,98)
410 CALL HCHAR(1,I+1,99)
420 NEXT I
430 D=-l
440 P=0
450 W=16
460 X=1
470 Y=25
480 CALL KEY(0,K,S)
490 V=24
500 IF K=32 THEN 1090
510 IF (K=83)+(X=115) THEN 1060
520 IF (K=68)+(K=100) THEN 1010
530 Y=Y+D
540 IF Y=2 THEN 640
550 IF Y=32 THEN 640
560 CALL GCHAR(X,Y,Z)
|
570 IF X=24 THEN 1370
580 IF Z=136 THEN 640
590 CALL SOUND(100,-8,5)
600 CALL HCHAR(X,Y,97-D)
610 CALL HCHAR(X,Y-D,99)
620 CALL HCHAR(X,Y-8*D,32)
630 GOTO 480
640 CALL SOUND(100,-3,5)
650 D=-D
660 X=X+1
670 IF X=24 THEN 1370
680 Y=Y+D
690 CALL SOUND(100,-8,5)
700 CALL HCHAR(X,Y,97-D)
710 CALL HCHAR(X-1,Y,99)
720 CALL HCHAR(X-1,Y+7*D,32)
730 Y=Y+D
710 CALL SOUND(100,-8,5)
750 CALL HCHAR(X,Y,97-D)
760 CALL HCHAR(X.Y-D,99)
770 CALL HCHAR(X-1,Y+5*D,32)
780 Y=Y+D
790 CALL SOUND(100,-8,5)
800 CALL HCHAR(X,Y,97-D)
810 CALL HCHAR(X,Y-D,99)
820 CALL HCHAR(X-l,Y+3*D,32)
830 Y=Y+D
840 CALL SOUND(100,-8.5)
850 CALL HCHAR(X,Y,97-D)
860 CALL HCHAR(X,Y-D,99)
870 CALL HCHAR(X-1,Y+D,32)
880 Y=Y+D
890 CALL SOUND(100,-8,5)
900 CALL HCHAR(X,Y,97-D)
910 CALL HCHAR(X,Y-D,99)
920 CALL HCHAR(X-1,Y-D,32)
930 FOR F=3 TO 7 STEP 2
940 Y=Y+D
950 CALL SOUND(100,-8,5)
960 CALL HCHAR(X,Y,97-D)
970 CALL HCHAR(X,Y-D,99)
980 CALL HCHAR(X-l,Y-F*D,32)
990 NEXT F
1000 GOTO 480
1010 IF W=32 THEN 530
1020 CALL HCHAR(24,W,32)
1030 W=W+1
1040 CALL HCHAR(24,W,128)
1050 GOTO 530
|
1060 IF W=3 THEN 530
1070 CALL HCHAR(24,W,32)
1074 W=W-1
1078 CALL HCHAR(24,W,128)
1080 GOTO 530
1090 CALL SOUND(300,-7,1)
1100 CALL GCHAR(V-1,W,U)
1110 CALL HCHAR(V-1,W,92)
1120 CALL HCHAR(V-1,W,32)
1130 IF (U=94)+(U=97)+(D=98) THEN 1190
1140 IF U=99 THEN 1260
1150 IF U=136 THEN 1320
1160 V=V-1
1170 IF V=l THEN 530
1180 GOTO 1100
1190 P=P+500
1200 CALL SOUND(200,440,10)
1210 CALL SOUND(200,550,10)
1220 CALL SOUND(200,660,10)
1230 CALL SOUND(400.880,10)
1240 V=24
1250 GOTO 530
1260 P=P+200
1270 CALL SOUND(200,440,10)
1280 CALL SOUND(2OO,660,10)
1290 CALL SOUND(200,550,10)
1300 V=24
1310 GOTO 530
1320 P=P+100
1330 CALL SOUND(200,660,10)
1340 CALL SOUND(200,770,10)
1350 V=24
1360 GOTO 530
1370 CALL SCREEN(15)
1380 IF H>P THEN 1390 ELSE 1400
1390 H=P
1400 PRINT "FIN DU JEU":"VOUS AVEZ :":P;"POINTS"
1410 PRINT "ENCORE UNE PARTIE ":"TAPEZ O ou N"
1420 CALL KEY(0,K,S)
1430 IF S=0 THEN 1420
1440 IF (K=79)+(K=111) THEN 100
1450 CALL CLEAR
1460 END
|