10 REM **********
20 REM * SQUASH *
30 REM **********
40 GOSUB 630
50 GOTO 170
60 D=2*((JOY(0)=4)-(JOY(0)=8))
70 IF D<>0 THEN DO=D
80 IF JOY(0)=0 THEN DO=0
90 RX=RX+DO
100 RETURN
110 D$=INKEY$
120 D=2*((D$=F1$)-(D$=F2$))
130 IF D<>0 THEN DO=D
140 IF D$=ST$ THEN DO=0
150 RX=RX+DO
160 RETURN
170 LOCATE BX,BY
180 PEN 3
190 PRINT N$;
200 BX=BX+DX
210 BY=BY+DY
220 LOCATE BX,BY
230 PRINT B$;
240 IF BY=22 AND ABS(BX-RX-3)>1 THEN 350
250 IF BY=22 THEN S=S+1:PRINT S$;:DY=-DY
260 IF BY=2 THEN PRINT S$;:DY=-DY
270 IF BX=3 OR BX=38 THEN PRINT S$;:DX=-DX
280 ON JS GOSUB 60,110
290 IF RX<1 THEN RX=1
300 IF RX>34 THEN RX=34
310 PEN 4
320 LOCATE RX,RY
330 PRINT R$;
340 GOTO 170
350 NB=NB+1
360 IF NB=11 THEN 470
370 LOCATE BX,BY
380 PRINT N$;
390 FOR I=1 TO 3
400 PRINT S$;
410 FOR J=1 TO 400
420 NEXT J
430 NEXT I
440 DO=0
450 GOSUB 980
460 GOTO 170
470 LOCATE 14,6
480 PRINT "SCORE :";S;
490 IF S>R1 THEN R1=S
500 LOCATE 14,11
510 PRINT "RECORD :";R1;
520 LOCATE 14,16
530 PRINT "UNE AUTRE ?";
540 NB=0
550 S=0
560 D$=INKEY$
570 IF D$<>"" THEN 560
580 D$=INKEY$
590 IF D$="" THEN 580
600 IF D$<>"N" AND D$<>"n" THEN 40
610 CLS
620 END
630 MODE 1
640 CLS
650 DEFINT A-Z
660 INK 1,24
670 INK 2,20
680 INK 3,8
690 INK 4,0
700 BORDER 19
710 PAPER 2
720 S$=CHR$(7)
730 LOCATE 12,11
740 PRINT "JOYSTICK (O ou N) ?";
750 D$=INKEY$
760 IF D$="" THEN 750
770 IF D$="O" OR D$="o" THEN JS=1 ELSE JS=2
780 CLS
790 SYMBOL 240,255,255,255
800 SYMBOL 241,24,126,126,255,255,126,126,24
810 SYMBOL 242,255,255,255,255,255,255,255,255
820 CB$=CHR$(242)
830 N$=CHR$(32)
840 PEN 1
850 FOR BX=2 TO 39
860 LOCATE BX,1
870 PRINT CB$;
880 NEXT BX
890 FOR BY=2 TO 22
900 LOCATE 2,BY
910 PRINT CB$;
920 LOCATE 39,BY
930 PRINT CB$;
940 NEXT BY
950 R$=N$+N$+CHR$(240)+CHR$(240)+CHR$(240)+N$+N$
960 B$=CHR$(241)
970 RX=17
980 RY=23
990 BY=22
1000 BX=INT(RND*30)+7
1010 DY=-1
1020 DX=(INT(RND*2)-0.5)*2
1030 F1$=CHR$(242)
1040 F2$=CHR$(243)
1050 ST$=CHR$(224)
1060 RETURN