2 THEN 40 XBAL = INT(RND * 600) + 1YBAL = 300V = ((RND * 4) + 1) / 10 VV = ((RND * 3) + 1) / 1030IF SCR = 45 THEN 40XBAL = XBAL + VYBAL = YBAL - VVIF XBAL > 600 OR XBAL IF YBAL > 315 AND XBAL XRAQ THEN V = ((RND * 4) + 1) / 10: RET = 0: BEEP: VV = -VVIF YBAL > 316 THEN ESSAI = ESSAI + 1: PUT (XBAL, YBAL), NB, PSET: GOTO 20IF YBAL PUT (XBAL, YBAL), BA, PSET P = POINT(XBAL + 6, YBAL - 1)IF P 0 THEN GOSUB 50PP = POINT(XBAL - 2, YBAL + 5)IF PP 0 THEN GOSUB 60PPP = POINT(XBAL + 14, YBAL + 5)IF PPP 0 THEN GOSUB 70PPPP = POINT(XBAL + 6, YBAL + 11)IF PPPP 0 THEN GOSUB 80K$ = INKEY$ 'K$IF K$ = "4" THEN XRAQ = XRAQ - 20: IF XRAQ IF K$ = "6" THEN XRAQ = XRAQ + 20: IF XRAQ > 558 THEN XRAQ = 558IF K$ = "*" THEN END 'au revoirPUT (XRAQ, 330), RAQ, PSET: GOTO 30'fin40 LOCATE 9, 39IF SCR = 45 THEN PRINT "GAGNE !" ELSE PRINT "PERDU !"LOCATE 10, 19: PRINT "Pour rejouer tape une touche ou '*' pour quitter"K$ = INKEY$: IF K$ = "" THEN 40IF K$ = "*" THEN END ELSE 1050 V = (RND * 2) / 10 - .1 XEFF = INT(XBAL / 41) * 41 + 1IF XEFF YEFF = INT(YBAL / 21 - 1) * 21 + 2IF YEFF PUT (XEFF, YEFF), NUL, PSETVV = -VVSCR = SCR + 1RETURN60 BEEP: V = (RND * 2) / 10 - .1XEFF = (INT(XBAL / 41) * 41 + 1) - 41IF XEFF YEFF = INT(YBAL / 21 - 1) * 21 + 2IF YEFF PUT (XEFF, YEFF + 21), NUL, PSETSCR = SCR + 1VV = -VVRETURN70 BEEP: V = (RND * 2) / 10 - .1XEFF = INT(XBAL / 41) * 41 + 1IF XEFF YEFF = INT(YBAL / 21 - 1) * 21 + 2IF YEFF 'la brique a effacer est la suivantePUT (XEFF + 41, YEFF + 21), NUL, PSETSCR = SCR + 1VV = -VVRETURN80 V = (RND * 2) / 10 - .1XEFF = INT(XBAL / 41) * 41 + 1IF XEFF YEFF = INT(YBAL / 21 - 1) * 21 + 2IF YEFF 'la brique a effacer est celle du dessousPUT (XEFF, YEFF + 41), NUL, PSETSCR = SCR + 1VV = -VVRETURN">