10 REM ======================================
20 REM        PENDU AI v1.3 - LOADER
30 REM    (c) 2026 - TITAN (Eric Cubizolle)
40 REM ======================================
50 REM
52 REM --- CHARGEMENT ECRAN-TITRE ---
53 MODE 1:BORDER 0:INK 0,0:INK 1,3:INK 2,15:INK 3,25
54 LOAD"PENDUAI.SCR",&C000
60 LOCATE 2,3:PEN 0:PAPER 3:PRINT "PENDU AI v1.2"
61 FOR I=1 TO 500:NEXT I
62 LOCATE 18,25:PEN 3:PAPER 0:PRINT "ENTER"
63 REM
64 REM --- BOUCLE MUSIQUE ---
70 RESTORE 2000
80 READ P1,P4,DU
90 IF DU=-1 THEN RESTORE 2000:GOTO 80
100 FOR W=1 TO DU*8:NEXT W
110 IF INKEY$<>"" THEN GOTO 900
120 SOUND 1,P1,DU,13
125 IF P4>0 THEN SOUND 4,P4,DU,10
130 GOTO 80
900 REM --- SORTIE : ecran intermediaire ---
910 SOUND 1,0,1,0
920 SOUND 4,0,1,0
930 REM
940 REM === ECRAN INTERMEDIAIRE MODE 2 ===
950 MODE 2:BORDER 0
960 INK 0,13:INK 1,26
970 PAPER 0:PEN 1:CLS
980 REM --- Titre ---
990 LOCATE 1,1:PRINT "================================================================================"
1000 LOCATE 30,2:PRINT "A PROPOS DE PENDU AI"
1010 LOCATE 1,3:PRINT "================================================================================"
1020 REM --- Texte principal ---
1030 LOCATE 1,5:PRINT "Cher joueur, vous venez de lancer ce qui est sans doute le tout premier"
1040 LOCATE 1,6:PRINT "jeu Amstrad CPC entierement fonctionnel, concu exclusivement grace a"
1050 LOCATE 1,7:PRINT "l'intelligence artificielle."
1060 REM --- Credits ---
1070 LOCATE 1,9:PRINT " * L'ecran-titre a ete genere avec Microsoft Copilot (Microsoft)."
1080 LOCATE 1,10:PRINT " * Le listing BASIC ainsi que la musique ont ete produits par Claude AI"
1090 LOCATE 1,11:PRINT "   (Anthropic)."
1100 LOCATE 1,12:PRINT " * Les textes ont ete rediges avec ChatGPT (OpenAI)."
1110 LOCATE 1,13:PRINT " * Le concept, les prompts et quelques corrections mineures ont ete"
1120 LOCATE 1,14:PRINT "   realises par TITAN (Eric Cubizolle)."
1125 REM --- Attente touche ---
1126 LOCATE 20,22:PRINT "Pressez ENTER pour lire les regles..."
1127 WHILE INKEY$="":WEND
1130 REM --- Regles ---
1135 CLS
1140 LOCATE 1,1:PRINT "================================================================================"
1150 PRINT "Le but du jeu est de retrouver le titre d'un jeu Amstrad CPC en devinant"
1160 PRINT "les lettres qui le composent."
1165 PRINT:PRINT "Le pendu apparait en 10 etapes, ce qui represente autant d'erreurs possibles."
1180 PRINT:PRINT "Lorsqu'un titre est decouvert, le score augmente en fonction du nombre de"
1190 PRINT "lettres de l'alphabet qui n'ont pas ete utilisees."
1191 PRINT:PRINT"En appuyant sur la barre d'espace, il est possible d'utiliser des jokers"
1192 PRINT "qui permettent de reveler des lettres supplementaires."
1193 PRINT"Un joker s'obtient en echange de 50 points de score."
1194 PRINT"Lorsqu'un joker est utilise, une phase de shoot'em up se declenche :"
1195 PRINT"il faut alors tirer sur les lettres manquantes (avec la barre d'espace)"
1196 PRINT"pour les devoiler."
1197 PRINT"3 jokers sont attribues en debut de partie."
1198 PRINT:PRINT"Bon jeu !"
1199 PRINT:PRINT"TITAN (Eric Cubizolle)
1200 LOCATE 1,23:PRINT "================================================================================"
1250 REM --- Attente touche ---
1260 LOCATE 27,25:PRINT "Pressez ENTER pour jouer..."
1270 WHILE INKEY$="":WEND
1280 RUN "PenduAI.bin"
1990 REM
2000 REM === MELODIE : LE BON LA BRUTE ET LE TRUAND ===
2010 REM FORMAT : P1 (melodie), P4 (basse), DU (duree)
2020 REM
2030 REM Periodes CPC :
2040 REM MI2=758 LA2=506 SI2=451 DO3=478 RE3=426
2050 REM MI3=379 FA3=358 SOL3=319 LA3=284 SI3=253
2060 REM DO4=239 RE4=213 MI4=190 SOL4=159 LA4=142
2070 REM
2080 REM --- MOTIF PRINCIPAL (Wah-wah-wah) ---
2090 DATA 379,758,15
2100 DATA 319,0,8
2110 DATA 379,758,15
2120 DATA 319,0,8
2130 DATA 379,758,20
2140 DATA 0,0,10
2150 DATA 319,638,15
2160 DATA 284,0,8
2170 DATA 319,638,15
2180 DATA 284,0,8
2190 DATA 319,638,20
2200 DATA 0,0,10
2210 DATA 284,568,15
2220 DATA 253,0,8
2230 DATA 284,568,15
2240 DATA 253,0,8
2250 DATA 379,758,30
2260 DATA 0,0,15
2270 REM --- MOTIF AIGU (la reponse) ---
2280 DATA 190,379,15
2290 DATA 159,0,8
2300 DATA 190,379,15
2310 DATA 159,0,8
2320 DATA 190,379,20
2330 DATA 0,0,10
2340 DATA 159,319,15
2350 DATA 142,0,8
2360 DATA 159,319,15
2370 DATA 142,0,8
2380 DATA 159,319,20
2390 DATA 0,0,10
2400 DATA 142,284,15
2410 DATA 127,0,8
2420 DATA 142,284,15
2430 DATA 127,0,8
2440 DATA 190,379,30
2450 DATA 0,0,15
2460 REM --- PONT (montee dramatique) ---
2470 DATA 379,758,12
2480 DATA 358,716,12
2490 DATA 379,758,12
2500 DATA 426,852,12
2510 DATA 379,758,12
2520 DATA 358,716,12
2530 DATA 319,638,25
2540 DATA 0,0,12
2550 DATA 284,568,12
2560 DATA 253,506,12
2570 DATA 284,568,12
2580 DATA 319,638,12
2590 DATA 284,568,12
2600 DATA 253,506,12
2610 DATA 239,478,30
2620 DATA 0,0,20
2630 REM --- FINAL (resolution) ---
2640 DATA 190,379,10
2650 DATA 213,426,10
2660 DATA 239,478,10
2670 DATA 213,426,10
2680 DATA 190,379,10
2690 DATA 213,426,10
2700 DATA 239,478,20
2710 DATA 0,0,8
2720 DATA 213,426,10
2730 DATA 239,478,10
2740 DATA 253,506,10
2750 DATA 239,478,10
2760 DATA 213,426,10
2770 DATA 190,379,10
2780 DATA 379,758,40
2790 DATA 0,0,25
2800 REM --- FIN DE BOUCLE ---
2810 DATA 0,0,-1
20000 REM
20010 REM Ce jeu a ete integralement realise par l'intelligence artificielle
20020 REM L'ecran-titre a ete genere par COPILOT
20030 REM Le listing BASIC a ete genere par CLAUDE AI
20040 REM Les prompts et les quelques corrections mineures ont ete realises par TITAN (Eric Cubizolle)
20050 REM PENDU AI est le TOUT PREMIER jeu Amstrad CPC fonctionnel a avoir ete concu par IA !!!
20060 REM Le 22/02/2026 - MAJ v1.2 le 24/02/2026 - v1.3 25/02/2026
20070 REM