10 REM ======================================
20 REM   PENDU AI v1.3 pour Amstrad CPC 6128
30 REM    MODE 0 - Caracteres redefinis
40 REM   (c) 2026 - TITAN (Eric Cubizolle)
50 REM ======================================
51 REM
52 REM Ce jeu a ete integralement realise par l'intelligence artificielle
53 REM L'ecran-titre a ete genere par COPILOT
54 REM Le listing BASIC a ete genere par CLAUDE AI
55 REM Les prompts et les quelques corrections mineures ont ete realises par TITAN (Eric Cubizolle)
56 REM PENDU AI est le TOUT PREMIER jeu Amstrad CPC fonctionnel a avoir ete concu par IA !!!
57 REM Le 22/02/2026 - MAJ v1.1 23/02/2026 - v1.2 24/02/2026 - v1.3 25/02/2026
58 REM
60 REM
70 REM --- INITIALISATION ---
80 MODE 0
90 BORDER 0
100 INK 0,0:INK 1,3:INK 2,6:INK 3,20
110 INK 4,3:INK 5,14:INK 6,9:INK 7,18
120 INK 8,2:INK 9,11:INK 10,13:INK 11,22
130 INK 12,15:INK 13,24:INK 14,26:INK 15,16
140 PAPER 0:PEN 1:CLS
145 LOCATE 5,12:PEN 5:PRINT"Patience..."
150 REM
160 REM --- DEFINITION DES CARACTERES PENDU ---
170 SYMBOL 240,139,215,163,215,139,215,163,215
180 SYMBOL 241,255,255,0,0,0,0,0,0
190 SYMBOL 242,255,254,24,8,24,8,24,8
200 SYMBOL 243,24,8,24,8,24,8,24,8
210 SYMBOL 244,56,60,0,255,42,60,36,60
220 SYMBOL 245,24,36,126,126,255,255,219,189
230 SYMBOL 246,189,189,60,62,126,126,126,0
240 SYMBOL 247,1,1,1,3,3,2,2,1
250 SYMBOL 248,128,128,128,192,192,64,64,128
260 SYMBOL 249,126,126,126,102,231,231,231,231
270 SYMBOL 250,195,195,195,195,195,195,231,231
280 SYMBOL 251,195,195,195,195,129,129,129,129
282 SYMBOL 252,24,60,126,255,24,24,24,0
283 JO=3
285 REM --- HISCORES ---
286 DIM HS(15):DIM HN$(15)
287 FOR I=1 TO 15:HS(I)=0:HN$(I)="---":NEXT I
288 REM
300 REM
310 REM --- VARIABLES GLOBALES ---
315 ID=0
320 SC=0
330 DIM LT(26)
340 DIM TR(40)
350 REM
360 REM --- LECTURE DE LA BANQUE DE MOTS ---
370 DIM MO$(630)
380 NB=0
390 READ W$
400 WHILE W$<>"FIN"
410   NB=NB+1:MO$(NB)=W$
420   READ W$
430 WEND
440 REM
450 REM === BOUCLE PRINCIPALE DU JEU ===
460 GOSUB 5000:REM Ecran titre
470 PA=1
480 WHILE PA=1
490   GOSUB 1000:REM Initialiser une manche
500   GOSUB 2000:REM Boucle de jeu
510 IF PE=1 THEN GOSUB 6000:GOSUB 11000:SC=0:JO=3:GOSUB 5000
520 WEND
530 REM
540 END
550 REM
560 REM ============================================
570 REM   1000 : INITIALISER UNE MANCHE
580 REM ============================================
1000 OD=ID
1005 WHILE ID=OD
1007   ID=INT(RND*NB)+1
1008 WEND
1010 MO$=MO$(ID)
1020 LG=LEN(MO$)
1030 FOR I=1 TO LG
1040   IF MID$(MO$,I,1)=" " THEN TR(I)=1 ELSE TR(I)=0
1050 NEXT I
1060 FOR I=1 TO 26
1070   LT(I)=1
1080 NEXT I
1090 ER=0
1100 PE=0
1110 RETURN
1120 REM
1130 REM ============================================
1140 REM   2000 : BOUCLE DE JEU
1150 REM ============================================
2000 GOSUB 3000:REM Dessiner ecran complet
2010 FI=0
2020 WHILE FI=0
2030   GOSUB 4000:REM Saisir une lettre
2040   TV=0
2050   FOR I=1 TO LG
2060     IF MID$(MO$,I,1)=LE$ THEN TR(I)=1:TV=1
2070   NEXT I
2080   IF TV=0 THEN ER=ER+1
2090   GOSUB 3200:REM Redessiner pendu
2100   GOSUB 3500:REM Redessiner mot
2110   GOSUB 3620:REM Redessiner alphabet
2120   GA=1
2130   FOR I=1 TO LG
2140     IF TR(I)=0 AND MID$(MO$,I,1)<>" " THEN GA=0
2150   NEXT I
2160   IF GA=1 THEN GOSUB 7000:IF SC>50 THEN GOSUB 12000
2165   IF GA=1 THEN FI=1:GOTO 2190
2170   IF ER>=10 THEN GOSUB 8000:FI=1:PE=1
2190 WEND
2200 RETURN
2210 REM
2220 REM ============================================
2230 REM   3000 : DESSINER ECRAN COMPLET
2240 REM ============================================
3000 CLS
3010 PEN 3:LOCATE 1,1
3020 LOCATE 1,2:PEN 5:PRINT "SCORE:";
3030 PEN 14:PRINT SC;"      "
3090 GOSUB 3200:REM Potence et bonhomme
3095 GOSUB 3620:REM Alphabet + Jokers
3096 GOSUB 3500:REM Mot
3097 LOCATE 1,23:PEN 2:PRINT "LETTRE > "
3098 RETURN
3099 REM
3100 REM ============================================
3110 REM   3200 : DESSINER LE PENDU
3120 REM ============================================
3200 REM --- POTENCE ---
3210 PEN 2:FOR LI=5 TO 14:LOCATE 1,LI:PRINT CHR$(240):NEXT LI
3220 PEN 12:FOR CO=2 TO 5:LOCATE CO,5:PRINT CHR$(241):NEXT CO
3230 PEN 12:LOCATE 6,5:PRINT CHR$(241)
3240 REM --- SOL ---
3250 PEN 1:FOR CO=1 TO 7:LOCATE CO,15:PRINT CHR$(241):NEXT CO
3260 REM --- PERSONNAGE (apparition progressive) ---
3270 IF ER>=1 THEN PEN 12:LOCATE 6,5:PRINT CHR$(242)
3280 IF ER>=2 THEN PEN 12:LOCATE 6,6:PRINT CHR$(243)
3290 IF ER>=3 THEN PEN 15:LOCATE 6,7:PRINT CHR$(244)
3300 IF ER>=4 THEN PEN 11:LOCATE 6,8:PRINT CHR$(245)
3310 IF ER>=5 THEN PEN 11:LOCATE 6,9:PRINT CHR$(246)
3320 IF ER>=6 THEN PEN 15:LOCATE 5,9:PRINT CHR$(247)
3330 IF ER>=7 THEN PEN 15:LOCATE 7,9:PRINT CHR$(248)
3340 IF ER>=8 THEN PEN 8:LOCATE 6,10:PRINT CHR$(249)
3350 IF ER>=9 THEN PEN 8:LOCATE 6,11:PRINT CHR$(250)
3360 IF ER>=10 THEN PEN 2:LOCATE 6,12:PRINT CHR$(251)
3370 IF PE=1 THEN PEN 2:LOCATE 6,7:PRINT CHR$(244)
3380 RETURN
3402 REM
3403 REM ============================================
3404 REM   3500 : AFFICHER LE MOT
3405 REM ============================================
3500 LOCATE 1,18:PEN 0:PRINT STRING$(20," ")
3510 LOCATE 1,19:PEN 0:PRINT STRING$(20," ")
3520 LI$="":L2=0:LG2=18
3530 FOR I=1 TO LG
3540   IF MID$(MO$,I,1)=" " THEN LI$=LI$+" ":GOTO 3570
3550   IF TR(I)=1 THEN LI$=LI$+MID$(MO$,I,1):GOTO 3570
3560   LI$=LI$+"-"
3570   L2=L2+1
3580   IF L2=20 THEN LOCATE 1,LG2:PEN 14:PRINT LI$:LI$="":L2=0:LG2=LG2+1
3590 NEXT I
3600 IF LI$<>"" THEN LOCATE 1,LG2:PEN 14:PRINT LI$
3610 RETURN
3611 REM
3612 REM ============================================
3613 REM   3620 : AFFICHER L'ALPHABET ET LES JOKERS
3614 REM ============================================
3620 LOCATE 13,2:PEN 3:PRINT "ALPHABET"
3630 L3=0:C3=0
3640 FOR I=1 TO 26
3650   C9=13+(C3*3)
3660   L9=4+L3
3670   LOCATE C9,L9
3680   IF LT(I)=1 THEN PEN 11:PRINT CHR$(64+I)
3690   IF LT(I)=0 THEN PEN 0:PRINT " "
3700   C3=C3+1
3710   IF C3=3 THEN C3=0:L3=L3+1
3720 NEXT I
3725 LOCATE 10,14:PEN 3:PRINT "Jokers:"
3727 LOCATE 17,14:PEN 14:PRINT JO
3730 RETURN
3740 REM
3750 REM ============================================
3760 REM   4000 : SAISIR UNE LETTRE
3770 REM ============================================
4000 LOCATE 10,23:PEN 14:PRINT "  "
4010 LOCATE 10,23
4020 L$=""
4030 WHILE L$=""
4040   K$=UPPER$(INKEY$)
4045   IF K$=" " AND JO>0 THEN GOSUB 12500:GOSUB 3000:GOTO 4000
4050   IF K$>="A" AND K$<="Z" THEN L$=K$
4060 WEND
4070 PL=ASC(L$)-64
4080 IF LT(PL)=0 THEN LOCATE 1,24:PEN 4:PRINT "DEJA JOUEE !   ":GOTO 4020
4090 LOCATE 1,24:PEN 0:PRINT "               "
4100 LE$=L$
4110 LT(PL)=0
4120 LOCATE 10,23:PEN 14:PRINT L$
4130 SOUND 1,200,10,12
4140 RETURN
4150 REM
4160 REM ============================================
4170 REM   5000 : ECRAN TITRE
4180 REM ============================================
5000 CLS:BORDER 1
5010 PEN 3
5020 LOCATE 2,2:PRINT "******************"
5030 LOCATE 2,3:PRINT "*                *"
5040 LOCATE 2,4:PRINT "* ";:PEN 14:PRINT " PENDU AI 1.3";:PEN 3:PRINT"  *"
5060 LOCATE 2,5:PRINT "*                *"
5070 LOCATE 2,6:PRINT "******************"
5080 REM --- Potence ---
5090 PEN 12:FOR CO=8 TO 12:LOCATE CO,9:PRINT CHR$(241):NEXT CO
5095 PEN 12:LOCATE 13,9:PRINT CHR$(241)
5100 PEN 2:FOR LI=9 TO 16:LOCATE 7,LI:PRINT CHR$(240):NEXT LI
5105 PEN 1:FOR CO=8 TO 14:LOCATE CO,17:PRINT CHR$(241):NEXT CO
5110 REM --- Personnage complet ---
5115 PEN 12:LOCATE 13,9:PRINT CHR$(242)
5120 PEN 12:LOCATE 13,10:PRINT CHR$(243)
5125 PEN 15:LOCATE 13,11:PRINT CHR$(244)
5130 PEN 11:LOCATE 13,12:PRINT CHR$(245)
5135 PEN 11:LOCATE 13,13:PRINT CHR$(246)
5140 PEN 15:LOCATE 12,13:PRINT CHR$(247)
5145 PEN 15:LOCATE 14,13:PRINT CHR$(248)
5150 PEN 8:LOCATE 13,14:PRINT CHR$(249)
5155 PEN 8:LOCATE 13,15:PRINT CHR$(250)
5157 PEN 2:LOCATE 13,16:PRINT CHR$(251)
5160 PEN 5:LOCATE 1,18:PRINT "  Trouvez les noms"
5170 LOCATE 1,19:PRINT "  des jeux Amstrad"
5175 PEN 2:LOCATE 1,20:PRINT" avant d'etre pendu"
5190 PEN 13:LOCATE 3,23:PRINT " Pressez ENTER"
5195 T=TIME:RANDOMIZE T
5200 WHILE INKEY$="":WEND
5210 BORDER 0
5220 RETURN
5230 REM
5240 REM ============================================
5250 REM   6000 : ECRAN GAME OVER
5260 REM ============================================
6000 CLS
6010 PEN 2
6020 LOCATE 2,4:PRINT "G A M E   O V E R"
6030 LOCATE 2,5:PRINT "-----------------"
6040 LOCATE 1,7:PEN 5:PRINT "Le mot etait :"
6050 LOCATE 1,9:PEN 14:PRINT MO$
6060 LOCATE 1,12:PEN 11:PRINT "SCORE FINAL:";SC
6070 LOCATE 1,15:PEN 7:PRINT "Merci d'avoir joue !"
6080 PEN 13:LOCATE 1,20:PRINT "   Pressez ENTER"
6090 WHILE INKEY$="":WEND
6100 RETURN
6110 REM
6120 REM ============================================
6130 REM   7000 : VICTOIRE - MOT TROUVE
6140 REM ============================================
7000 PT=0
7010 FOR I=1 TO 26
7020   IF LT(I)=1 THEN PT=PT+1
7030 NEXT I
7040 SC=SC+PT
7050 LOCATE 1,2:PEN 14:PRINT "SCORE:";SC
7060 FOR I=1 TO 3
7070   SOUND 1,800,5,15
7080   SOUND 1,600,5,15
7090   SOUND 1,400,5,15
7100 NEXT I
7105 LOCATE 1,23:PEN 0:PRINT"------------------"
7110 LOCATE 1,20:PEN 8:PRINT "  *** BRAVO ! *** "
7120 LOCATE 1,22:PEN 11:PRINT "   +";PT;"POINTS !"
7130 'LOCATE 1,22:PEN 5: PRINT " Le mot etait :"
7140 'LOCATE 1,23:PEN 14:PRINT MO$
7150 PEN 13:LOCATE 3,25:PRINT " Pressez ENTER"
7160 WHILE INKEY$="":WEND
7170 RETURN
7180 REM
7190 REM ============================================
7200 REM   8000 : DEFAITE - PENDU
7210 REM ============================================
8000 GOSUB 3200
8010 SOUND 1,2000,30,15
8015 LOCATE 1,23:PEN 0:PRINT"------------------"
8020 LOCATE 1,20:PEN 2:PRINT "      PERDU !!!"
8030 LOCATE 1,22:PEN 5:PRINT "   Le mot etait :"
8040 LOCATE 1,23:PEN 7:PRINT MO$
8050 ' LOCATE 1,23:PEN 7:PRINT "     GAME OVER !"
8060 PEN 13:LOCATE 3,25:PRINT " Pressez ENTER"
8070 WHILE INKEY$="":WEND
8080 RETURN
8090 REM
8100 REM ============================================
8110 REM   BANQUE DE MOTS - JEUX AMSTRAD CPC
8120 REM ============================================
9000 DATA "AAARGH","ABRACADABRA","SKWEEK","ACE OF ACES","ACRO JET"
9010 DATA "ACTION FIGHTER","ACTION FORCE","ACTION SERVICE","ACTIVATOR","AFTER BURNER"
9020 DATA "AFTER THE WAR","AFTERMATH","AFTEROIDS","AFTER SHOCK","AGENT ORANGE"
9030 DATA "AIRBALLS","AIRBORNE RANGER","AIRWOLF","ALADDIN","ALIEN"
9040 DATA "ALIEN STORM","ALIEN SYNDROME","ALIENS","ALIVE","ALPHAKHOR"
9050 DATA "ALPINE GAMES","ALTERED BEAST","AMAUROTE","ANDROID ONE","ANDY CAPP"
9060 DATA "ANNALS OF ROME","APACHE","APB","APOCALYPSE","ARCTICFOX"
9070 DATA "ARKOS","ARTURA","ARMY MOVES","ARNHEM","PROHIBITION"
9080 DATA "ASPHALT","ATHENA","ATLANTIS","AVENGER","BADLANDS"
9090 DATA "BARBARIAN","BATMAN","BATTLE COMMAND","BEACH HEAD","BEACH VOLLEY"
9100 DATA "BEDLAM","BIGGLES","BIONIC COMMANDO","BIVOUAC","BLACK TIGER"
9110 DATA "BLADE WARRIOR","BLASTEROIDS","BLAZING THUNDER","BLOODWYCH","BLUEBERRY"
9120 DATA "BLUE WAR","BMX SIMULATOR","BOMB JACK","BONANZA BROS","BOOTY"
9130 DATA "BOULDER DASH","BOUNDER","BRAVESTARR","BREAKTHRU","BRUCE LEE"
9140 DATA "BUBBLE BOBBLE","BUBBLE GHOST","BUGGY BOY","BUILDERLAND","BUMPY"
9150 DATA "BURGERTIME","CABAL","CALIFORNIA GAMES","CAPTAIN BLOOD","CAPTAIN DYNAMO"
9160 DATA "CARRIER COMMAND","CASTLE MASTER","CAULDRON","CAVEMANIA","CHASE HQ"
9170 DATA "CHIMERA","CHUCKIE EGG","CISCO HEAT","CLASH","CLUEDO"
9180 DATA "COBRA","CODENAME MAT","COLONY","COLOSSAL ADVENTURE","COMBAT LYNX"
9190 DATA "COMBAT SCHOOL","COMMANDO","CONTAMINATION","CONTINENTAL CIRCUS","COP OUT"
9200 DATA "CORRUPTION","COSMIC SHERIFF","CRACK DOWN","CRAZY CARS","CROSSFIRE"
9210 DATA "CYBERNOID","SABRE WULF","DANGER STREET","DARK CENTURY","DARK FUSION"
9220 DATA "DARK SCEPTRE","DARK SIDE","DARKMAN","DEACTIVATORS","DEATH STALKER"
9230 DATA "DEEP STRIKE","DEFLEKTOR","DESERT FOX","DESPERADO","DICK TRACY"
9240 DATA "DIZZY","DOMINATOR","DONKEY KONG","DOUBLE DARE","DOUBLE DRAGON"
9250 DATA "DRACULA","DRAGON BREED","DRAGON NINJA","DRAGON SPIRIT","DRAGONTORC"
9260 DATA "DRAKKAR","DREAM WARRIOR","DRILLER","DRUID","DUSTIN"
9270 DATA "DWARF","DYNAMIC DUO","DYNAMITE DAN","DYNASTY WARS","EDEN BLUES"
9280 DATA "ELEVATOR ACTION","ELITE","ELVEN WARRIOR","ENDURO RACER","EQUINOX"
9290 DATA "ESPIONAGE","EXOLON","EXPRESS RAIDER","EXTERMINATOR","EXTREME"
9300 DATA "FAIRLIGHT","FANTASIA DIAMOND","FERNANDEZ MUST DIE","FEUD","FIGHTING WARRIOR"
9310 DATA "FINAL FIGHT","FIRE AND FORGET","FIRELORD","FIREMAN SAM","FLYING SHARK"
9320 DATA "FOOTBALLER","FOOTBALL MANAGER","FORBIDDEN PLANET","FORGOTTEN WORLDS","FRANK BRUNO BOXING"
9330 DATA "FRANKENSTEIN","FREDDY HARDEST","FREEDOM FIGHTER","FROGGY","FRUITY FRANK"
9340 DATA "GAUNTLET","GHOSTBUSTERS","GLIDER RIDER","JUGGERNAUT","GOODY"
9350 DATA "VOTEZ POUR MOI","GREEN BERET","GRYZOR","GUNSHIP","HARRIER ATTACK"
9360 DATA "HAWKEYE","HERCULES","HUNCHBACK","HYDROFOOL","HYPER SPORTS"
9370 DATA "IKARI WARRIORS","IMPOSSAMOLE","INDIANA JONES","JOUST","KICK OFF"
9380 DATA "KLAX","KNIGHTLORE","KWIK SNAX DIZZY","LASER SQUAD","LEMMINGS"
9390 DATA "LIFE FORCE","LIGHT FORCE","LIVING STONE","LODE RUNNER","LOTUS ESPRIT"
9400 DATA "LUCKY LUKE","MANIC MINER","MAPPY","MARAUDER","MATCHDAY"
9410 DATA "MERCENARY","MIDWINTER","MISSILE COMMAND","MYTH","NEMESIS"
9420 DATA "NIGHTSHADE","NORTH AND SOUTH","OPERATION WOLF","OUTRUN","OVERLANDER"
9430 DATA "PACMAN","PANG","PAPERBOY","PARADROID","RADIUS"
9440 DATA "PITFALL","PLATOON","ROLAND IN TIME","POPEYE","PINBALL POWER"
9450 DATA "PREDATOR","PROFANATION","PUZZNIC","RAMBO","RAMPAGE"
9460 DATA "RAMPARTS","RENEGADE","FUTUR SHOCK","RICK DANGEROUS","ROAD BLASTERS"
9470 DATA "ROBOCOP","ROLAND ON THE RUN","BRONX","RYGAR","SABOTEUR"
9480 DATA "SALAMANDER","SCRABBLE","SHINOBI","SILKWORM","SKOOL DAZE"
9490 DATA "SOKOBAN","THE JETSONS","SPACE HARRIER","SPEEDBALL","SCRAMBLE SPIRITS"
9500 DATA "SPITFIRE","STAR QUAKE","STARGLIDER","STORMLORD","STRIDER"
9510 DATA "SPIRITS","SUPERCARS","SABIAN ISLAND","TERMINATOR","TETRIS"
9520 DATA "THUNDER BLADE","THRUST","TINTIN","TITAN","TOP GUN"
9530 DATA "TOTAL ECLIPSE","TRAILBLAZER","TRANTOR","TROJAN","TURBO CUP"
9540 DATA "TURRICAN","TYPHOON","COOL WORLD","URIDIUM","VIGILANTE"
9550 DATA "BIRDIE","WARHAWK","WILLOW PATTERN","WIZBALL","WONDER BOY"
9560 DATA "XENON","ZAXXON","ALIEN EIGHT","ANARCHY","BACKLASH"
9570 DATA "BAD DUDES","BESTIAL WARRIOR","BMX FREESTYLE","BOB WINNER","BOBSLEIGH"
9580 DATA "BOBO","BOMB SCARE","BOUNTY HUNTER","BRAINACHE","CAMELOT WARRIORS"
9590 DATA "CHAMONIX CHALLENGE","CHARLY DIAMS","CHILLER","CHOLO","CHRONOS"
9600 DATA "CORSARIOS","COUNT DUCKULA","CRAFTON ET XUNK","CRAZY SHOT","DAMOCLES"
9610 DATA "DARTS","WILD STREETS","DEFCOM","DEFEND OR DIE","DESOLATOR"
9620 DATA "STORMLORD","DISC","DODGY GEEZERS","DOORS OF DOOM","DOPPLEGANGER"
9630 DATA "DRAGONFIRE","DRUIDS MOON","DUN DARACH","EAGLE RIDER","ECHELON"
9640 DATA "EDD THE DUCK","ELECTRO FREDDY","ELEKTRA GLIDE","ELIDON","ELIMINATOR"
9650 DATA "EMPIRE","ENCHANTED","END ZONE","ARKANOID","EREBUS"
9660 DATA "EURO BOSS","EVENING STAR","EVIL DONJON","EYE SPY","FA CUP FOOTBALL"
9670 DATA "ASSAULT COURSE","GALAXY FORCE","GALAGA","GEMINI WING","FIRE AND FORGET"
9680 DATA "AMSGOLF","GUERRILLA WAR","GUNFRIGHT","HACKER","HARD DRIVIN"
9690 DATA "SIDEWALK","HELTER SKELTER","HIGH STEEL","HOSTAGES","HOT ROD"
9700 DATA "HOTSHOT","HUNCHBACK","HURRICANE BIRD","ICE HOCKEY","JACK THE RIPPER"
9710 DATA "KARNOV","CAMELOT WARRIOR","SOL NEGRO","KILLAPEDE","KNIGHTMARE"
9720 DATA "NAVY SEALS","LAST DUEL","LAST NINJA","LIGHT CORRIDOR","GOLDEN AXE"
9730 DATA "LOOPZ","INERTIE","CASTLE MASTER","MAZE MANIA","MELTDOWN"
9740 DATA "MERCS","MIKIE","IMPOSSAMOLE","MOON CRESTA","MOON WALKER"
9750 DATA "MOTORBIKE MADNESS","NAVY MOVES","NEBULUS","NETHERWORLD","NINJA HAMSTER"
9760 DATA "NINJA MASSACRE","NINJA SPIRIT","MGT","NONAMED","MISSION OMEGA"
9770 DATA "PARACHUTE","PHANTOM CLUB","PICTIONARY","PIT FIGHTER","IZNOGOUD"
9780 DATA "PERPLEXUS","LIVERPOOL","POSTMAN PAT","RAINBOW ISLANDS","RANARAMA"
9790 DATA "RED HAWK","REX","PYJAMARAMA","ROAD RUNNER","ROCKFORD"
9800 DATA "ROCKY","RUFF AND REDDY","RUNNING MAN","SABRE WULF","SAMURAI WARRIOR"
9810 DATA "SAVAGE","SCALEXTRIC","SCOOBY DOO","SHADOW DANCER","SHADOW WARRIORS"
9820 DATA "SILENT SERVICE","HARRICANA","SKYFOX","TEENAGE QUEEN","SLAP FIGHT"
9830 DATA "SNOOKER","SOLDIER OF LIGHT","SORCERY","SPACE DEBRIS","SPACE INVADERS"
9840 DATA "SPELLBOUND","HIGHWAY ENCOUNTER","SPINDIZZY","SPY HUNTER","LASER SQUAD"
9850 DATA "SHUFFLEPUCK CAFE","STEG THE SLUG","STREET FIGHTER","STREET HAWK","SUBBUTEO"
9860 DATA "QUAD","SUPER LEAGUE","SUPER SEYMOUR","SWIV","SWITCHBLADE"
9870 DATA "TAPPER","TARZAN","TECHNICIAN TED","TEST DRIVE","THUNDERBIRDS"
9880 DATA "THUNDERCATS","TOMAHAWK","TREASURE ISLAND","GALACTIC CONQUEROR","CHOMEDU"
9890 DATA "VENOM","VIPER","VIXEN","BACTRON","WEREWOLVES"
9900 DATA "PINBALL MAGIC","MACADAM BUMPER","WORLD CLASS RUGBY","XEVIOUS","XYBOTS"
9910 DATA "YOGI BEAR","ZOMBI","BATTLE VALLEY","AMELIE MINUIT","BEVERLY HILLS COP"
9920 DATA "BILLY THE KID","BILLY LA BANLIEUE","HOLD UP","BRONX STREET COP","COLOSSUS CHESS"
9930 DATA "CYLU","DAN DARE","DEATHSCAPE","DELIVERANCE","DESPERADO"
9940 DATA "DESPOTIK DESIGN","DIANNE","DIMENSION OMEGA","DUEL","DUET"
9950 DATA "DYNAMIX","ELECTION","ENERGY WARRIOR","ESCAPE","PACIFIC"
9960 DATA "MARACAIBO","EXPLORER","EYE","PURPLE SATURN DAY","HACKER II"
9970 DATA "OXPHAR","IMPOSSIBLE MISSION","SRAM","JUNGLE WARRIOR","LEGIONS OF DEATH"
9980 DATA "LUNAR LANDER","QIN","TENSIONS","THE DEVILS CROWN","MOTOCROSS"
9990 DATA "ROBBBOT","HERO QUEST","KNIGHT RIDER","ROBOCOP THREE","HIGHWAY PATROL"
10000 DATA "PLUTON ATACA","THE DEEP","ARACHNOPHOBIA","BATTLESTORM","SORCERY PLUS"
10010 DATA "DISCOLOGY","STAR WARS","STARFOX","STARQUAKE","STRIKE FORCE SAS"
10020 DATA "TANIUM","TERMINATOR TWO","BLOOD BROTHERS","INFERNAL RUNNER","SPY VS SPY"
10030 DATA "GUNBOAT","PLATOON","WARGAME","WIZARDS WARZ","KNIGHT FORCE"
10040 DATA "WORLD CUP SOCCER","WWF WRESTLEMANIA","XENOPHOBE","GHOULS N GHOSTS","GHOSTS N GOBLINS"
10050 DATA "HEAD OVER HEELS","JACK THE NIPPER","JET SET WILLY","LICENCE TO KILL","MAGICLAND DIZZY"
10060 DATA "MARBLE MADNESS","METRO CROSS","MISSION GENOCIDE","MOON BUGGY","NARCO POLICE"
10070 DATA "NEW ZEALAND STORY","NINJA WARRIORS","NODES OF YESOD","OBLITERATOR","ORIENTAL GAMES"
10080 DATA "OUT RUN","PAC LAND","PAC MANIA","PANZA KICK BOXING","PASSING SHOT"
10090 DATA "PIPE MANIA","PIRATES","PRINCE OF PERSIA","BABY JO","QUARTET"
10100 DATA "RASTAN","RETURN TO EDEN","RICOCHET","ROBIN OF SHERWOOD","ROLAND AHOY"
10110 DATA "ROGUE TROOPER","ROLLING THUNDER","ROY OF THE ROVERS","RUGBY BOSS","SAINT DRAGON"
10120 DATA "SENTINEL","MADDOG","SKATE OR DIE","SKY HUNTER","SLIDERS"
10130 DATA "SOCCER STAR","SOLOMON KEY","SONIC BOOM","SPACE ACE","SPACE CRUSADE"
10140 DATA "SPELLBREAKER","SPHERICAL","STARION","STARCROSS","STEEL EAGLE"
10150 DATA "STUNT CAR RACER","SUMMER GAMES","SUPER CARS","SUPER GRAN","SUPER SKI"
10160 DATA "SUPERMAN","SILENT SHADOW","TABLE FOOTBALL","TAI PAN","TARGET RENEGADE"
10170 DATA "TAU CETI","TEMPEST","TENNIS CUP","THANATOS","TIGER ROAD"
10180 DATA "TOOBIN","VINDICATORS","WANDERER","WAY OF TIGER","WEC LE MANS"
10190 DATA "WEST BANK","WINTER GAMES","WISHBRINGER","WORLD GAMES","YIE AR KUNG FU"
10200 DATA "ZOIDS","ZYNAPS"
10210 DATA "FIN"
10220 REM
10230 REM ============================================
10240 REM   11000 : VERIFIER ET INSERER HISCORE
10250 REM ============================================
11000 NR=0
11010 FOR I=1 TO 15
11020   IF SC>HS(I) AND NR=0 THEN NR=I
11030 NEXT I
11040 IF NR=0 THEN GOSUB 11200:RETURN
11050 REM --- Ecran saisie initiales ---
11060 CLS
11070 LOCATE 3,5:PEN 2:PRINT "NOUVEAU HISCORE !"
11080 LOCATE 3,7:PEN 5:PRINT "SCORE :";SC
11090 LOCATE 3,10:PEN 11:PRINT "Entrez vos initiales"
11100 LOCATE 3,13:PEN 3:PRINT "HAUT/BAS + ENTER"
11110 GOSUB 11400:REM Saisir initiales
11120 REM --- Decaler les scores vers le bas ---
11130 FOR I=15 TO NR+1 STEP -1
11140   HS(I)=HS(I-1):HN$(I)=HN$(I-1)
11150 NEXT I
11160 HS(NR)=SC:HN$(NR)=IN$
11170 GOSUB 11200:REM Afficher hiscores
11180 RETURN
11190 REM
11200 REM ============================================
11210 REM   11200 : AFFICHER HISCORES
11220 REM ============================================
11230 CLS:BORDER 0
11240 LOCATE 3,1:PEN 2:PRINT "*** HISCORES ***"
11250 LOCATE 1,3:PEN 3:PRINT "===================="
11260 FOR I=1 TO 15
11270 LI=4+I
11280 LOCATE 5,LI:PEN 3:PRINT I
11290 IF I=NR THEN PEN 8 ELSE PEN 11
11300 SC$=STR$(HS(I)):SC$=RIGHT$(SC$,LEN(SC$)-1)
11310 WHILE LEN(SC$)<5:SC$="0"+SC$:WEND
11320 LOCATE 9,LI:PRINT HN$(I);" ";SC$
11330 NEXT I
11340 LOCATE 1,21:PEN 3:PRINT "===================="
11350 PEN 13:LOCATE 3,23:PRINT " Pressez ENTER"
11360 WHILE INKEY$="":WEND
11370 RETURN
11380 REM
11390 REM ============================================
11400 REM   11400 : SAISIR LES INITIALES
11410 REM ============================================
11420 I1$="A":I2$="A":I3$="A"
11430 PO=1
11440 LOCATE 8,17:PEN 14:PRINT I1$;"-";I2$;"-";I3$
11450 K$=UPPER$(INKEY$)
11460 IF K$="" THEN GOTO 11450
11470 REM --- fleche haut (CHR$ 240) = lettre suivante ---
11480 IF K$=CHR$(240) AND PO=1 THEN C=ASC(I1$)+1:IF C>90 THEN C=65
11490 IF K$=CHR$(240) AND PO=1 THEN I1$=CHR$(C):GOTO 11440
11500 IF K$=CHR$(240) AND PO=2 THEN C=ASC(I2$)+1:IF C>90 THEN C=65
11510 IF K$=CHR$(240) AND PO=2 THEN I2$=CHR$(C):GOTO 11440
11520 IF K$=CHR$(240) AND PO=3 THEN C=ASC(I3$)+1:IF C>90 THEN C=65
11530 IF K$=CHR$(240) AND PO=3 THEN I3$=CHR$(C):GOTO 11440
11540 REM --- fleche bas (CHR$ 241) = lettre precedente ---
11550 IF K$=CHR$(241) AND PO=1 THEN C=ASC(I1$)-1:IF C<65 THEN C=90
11560 IF K$=CHR$(241) AND PO=1 THEN I1$=CHR$(C):GOTO 11440
11570 IF K$=CHR$(241) AND PO=2 THEN C=ASC(I2$)-1:IF C<65 THEN C=90
11580 IF K$=CHR$(241) AND PO=2 THEN I2$=CHR$(C):GOTO 11440
11590 IF K$=CHR$(241) AND PO=3 THEN C=ASC(I3$)-1:IF C<65 THEN C=90
11600 IF K$=CHR$(241) AND PO=3 THEN I3$=CHR$(C):GOTO 11440
11610 REM --- ENTER ou ESPACE = position suivante ---
11620 IF K$=CHR$(13) OR K$=" " THEN PO=PO+1:IF PO>3 THEN IN$=I1$+I2$+I3$:RETURN
11630 GOTO 11440
11640 REM
11650 REM ============================================
11660 REM   12000 : ACHAT DE JOKERS
11670 REM ============================================
12000 CLS
12010 LOCATE 1,3:PEN 14:PRINT "  Score :";SC
12020 LOCATE 1,5:PEN 11:PRINT "Bravo !"
12030 LOCATE 1,6:PEN 11:PRINT "Votre score vous"
12040 LOCATE 1,7:PEN 11:PRINT "permet d'acquerir"
12045 LOCATE 1,8:PEN 11:PRINT "des jokers."
12050 LOCATE 1,10:PEN 3:PRINT "Cout d'un joker :"
12060 LOCATE 1,11:PEN 3:PRINT "50 points de score."
12070 LOCATE 1,13:PEN 5:PRINT "Combien de jokers"
12080 LOCATE 1,14:PEN 5:PRINT "souhaitez-vous ?"
12090 'LOCATE 1,15:PEN 3:PRINT "(0 pour passer)"
12100 LOCATE 1,17:PEN 14:PRINT "Jokers max :";INT(SC/50)
12110 LOCATE 1,20:PEN 11:PRINT " Votre choix : "
12120 NJ=0
12130 LOCATE 16,20:PEN 14:PRINT "  "
12140 LOCATE 16,20
12150 INPUT NJ
12160 IF NJ<0 THEN GOTO 12130
12170 IF NJ*50>SC THEN SOUND 1,450:LOCATE 1,23:PEN 2:PRINT "Pas assez de points!":GOTO 12130
12180 IF NJ=0 THEN RETURN
12190 JO=JO+NJ
12200 SC=SC-NJ*50
12210 LOCATE 1,3:PEN 14:PRINT "  Score :";SC;"     "
12220 'LOCATE 1,21:PEN 11:PRINT " Jokers :";JO;"     "
12230 FOR W=1 TO 2000:NEXT W
12240 RETURN
12250 REM
12260 REM ============================================
12270 REM   12500 : ANIMATION JOKER
12280 REM ============================================
12500 JO=JO-1
12510 CLS
12520 LOCATE 1,2:PEN 3:PRINT "  Mot a trouver :"
12530 GOSUB 12800:REM Afficher mot
12540 REM --- Position initiale fleche horizontale ---
12550 FX=1:FY=24
12560 LOCATE FX,FY:PEN 14:PRINT CHR$(252)
12570 TX=TIME
12580 REM --- Boucle deplacement horizontal ---
12590 IF TIME<TX+3 THEN GOTO 12590
12600 TX=TIME
12610 LOCATE FX,FY:PEN 0:PRINT " "
12620 FX=FX+1:IF FX>20 THEN FX=1
12630 LOCATE FX,FY:PEN 14:PRINT CHR$(252)
12640 K$=INKEY$
12650 IF K$<>" " THEN GOTO 12590
12660 REM --- Tir vertical ---
12670 GOSUB 13000
12680 RETURN
12690 REM
12700 REM ============================================
12710 REM   12800 : AFFICHER MOT (VERSION JOKER)
12720 REM ============================================
12800 MJ$=""
12810 FOR I=1 TO LG
12820   IF MID$(MO$,I,1)=" " THEN MJ$=MJ$+" ":GOTO 12850
12830   IF TR(I)=1 THEN MJ$=MJ$+MID$(MO$,I,1):GOTO 12850
12840   MJ$=MJ$+"-"
12850 NEXT I
12860 MS=INT((20-LG)/2)+1
12870 LOCATE MS,4:PEN 14:PRINT MJ$
12880 RETURN
12890 REM
12900 REM ============================================
12910 REM   13000 : FLECHE MONTANTE ET RESULTAT
12920 REM ============================================
13000 MS=INT((20-LG)/2)+1
13010 MP=FX-MS+1
13020 REM --- Fleche monte ligne 23 vers ligne 5 ---
13030 FOR LV=23 TO 5 STEP -1
13040   LOCATE FX,LV+1:PEN 0:PRINT " "
13050   LOCATE FX,LV:PEN 14:PRINT CHR$(252)
13060   FOR W=1 TO 50:NEXT W
13070 NEXT LV
13080 LOCATE FX,5:PEN 0:PRINT " "
13090 REM --- Analyser ce qui est touche ---
13100 IF MP<1 OR MP>LG THEN GOTO 13200
13110 IF MID$(MO$,MP,1)=" " THEN GOTO 13200
13120 IF TR(MP)=1 THEN GOTO 13200
13130 REM --- Succes : lettre non trouvee ---
13140 LT$=MID$(MO$,MP,1)
13150 FOR I=1 TO LG
13160   IF MID$(MO$,I,1)=LT$ THEN TR(I)=1
13170 NEXT I
13180 PL=ASC(LT$)-64:LT(PL)=0
13190 GOSUB 12800
13195 LOCATE 4,10:PEN 8:PRINT "*** BRAVO !  ***"
13196 LOCATE 2,13:PEN 11:PRINT "Lettre ";LT$;" trouvee !"
13197 GOTO 13210
13200 REM --- Echec ---
13205 LOCATE 3,10:PEN 2:PRINT "*** DOMMAGE ! ***"
13210 LOCATE 3,22:PEN 13:PRINT " Pressez ENTER"
13220 WHILE INKEY$<>CHR$(13):WEND
13230 RETURN