10 REM ======================================
20 REM        PENDU AI v1.4 - LOADER
30 REM    (c) 2026 - TITAN (Eric Cubizolle)
40 REM ======================================
50 REM
52 REM --- LOADING TITLE SCREEN ---
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.4"
61 FOR I=1 TO 500:NEXT I
62 LOCATE 18,25:PEN 3:PAPER 0:PRINT "ENTER"
63 REM
64 REM --- MUSIC LOOP ---
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 --- EXIT : intermediate screen ---
910 SOUND 1,0,1,0
920 SOUND 4,0,1,0
930 REM
940 REM === INTERMEDIATE SCREEN MODE 2 ===
950 MODE 2:BORDER 0
960 INK 0,13:INK 1,26
970 PAPER 0:PEN 1:CLS
980 REM --- Title ---
990 LOCATE 1,1:PRINT "================================================================================"
1000 LOCATE 30,2:PRINT "ABOUT PENDU AI"
1010 LOCATE 1,3:PRINT "================================================================================"
1020 REM --- Main text ---
1030 LOCATE 1,5:PRINT "Dear player, you are about to play what is arguably the very first"
1040 LOCATE 1,6:PRINT "fully functional Amstrad CPC game, conceived exclusively through"
1050 LOCATE 1,7:PRINT "artificial intelligence."
1060 REM --- Credits ---
1070 LOCATE 1,9:PRINT " * The title screen was generated with Microsoft Copilot (Microsoft)."
1080 LOCATE 1,10:PRINT " * The BASIC listing and music were produced by Claude AI (Anthropic)."
1090 'LOCATE 1,11:PRINT "   "
1100 LOCATE 1,11:PRINT " * The texts were written with ChatGPT (OpenAI)."
1110 LOCATE 1,12:PRINT " * The concept, prompts and minor corrections were"
1120 LOCATE 1,13:PRINT "   made by TITAN (Eric Cubizolle)."
1125 REM --- Wait for key ---
1126 LOCATE 20,22:PRINT "Press ENTER to read the rules..."
1127 WHILE INKEY$="":WEND
1130 REM --- Rules ---
1135 CLS
1140 LOCATE 1,1:PRINT "================================================================================"
1150 PRINT "The aim of the game is to find the title of an Amstrad CPC game by guessing"
1160 PRINT "the letters that make it up."
1165 PRINT:PRINT "The hangman appears in 10 steps, representing as many possible mistakes."
1180 PRINT:PRINT "When a title is found, the score increases according to the number of"
1190 PRINT "alphabet letters that were not used."
1191 PRINT:PRINT"By pressing the space bar, you can use jokers that reveal additional letters."
1192 'PRINT ""
1193 PRINT"A joker costs 50 points of score."
1194 PRINT"When a joker is used, a shoot'em up sequence is triggered :"
1195 PRINT"you must then shoot at the missing letters (with the space bar)"
1196 PRINT"to reveal them."
1197 PRINT:PRINT"3 jokers are awarded at the start of the game."
1198 PRINT:PRINT"Have fun !"
1199 PRINT:PRINT"TITAN (Eric Cubizolle)"
1200 LOCATE 1,23:PRINT "================================================================================"
1250 REM --- Wait for key ---
1260 LOCATE 27,25:PRINT "Press ENTER to play..."
1270 WHILE INKEY$="":WEND
1280 RUN "PenduAI.bin"
1990 REM
2000 REM === MELODY : THE GOOD THE BAD AND THE UGLY ===
2010 REM FORMAT : P1 (melody), P4 (bass), DU (duration)
2020 REM
2030 REM CPC periods :
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 --- MAIN THEME (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 --- HIGH THEME (the answer) ---
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 --- BRIDGE (dramatic rise) ---
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 --- FINALE (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 --- END OF LOOP ---
2810 DATA 0,0,-1
20000 REM
20010 REM This game was entirely created by artificial intelligence
20020 REM The title screen was generated by COPILOT
20030 REM The BASIC listing was generated by CLAUDE AI
20040 REM The prompts and minor corrections were made by TITAN (Eric Cubizolle)
20050 REM PENDU AI is the VERY FIRST fully functional Amstrad CPC game conceived by AI !!!
20060 REM 22/02/2026 - UPD v1.2 24/02/2026 - v1.3 25/02/2026 - v1.4 28/02/2026
20070 REM