10 REM ======================================
20 REM   HANGMAN AI v1.4 for Amstrad CPC 6128
30 REM    MODE 0 - Redefined characters
40 REM   (c) 2026 - TITAN (Eric Cubizolle)
50 REM ======================================
51 REM
52 REM This game was entirely created by artificial intelligence
53 REM The title screen was generated by COPILOT
54 REM The BASIC listing was generated by CLAUDE AI
55 REM Prompts and minor corrections by TITAN (Eric Cubizolle)
56 REM HANGMAN AI is the VERY FIRST functional Amstrad CPC game conceived by AI !!!
57 REM 22/02/2026 - UPD v1.1 23/02/2026 - v1.2 24/02/2026 - v1.3 25/02/2026 - v1.4 28/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"Please wait..."
150 REM
160 REM --- REDEFINED CHARACTERS ---
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):DIM HC$(15)
287 FOR I=1 TO 15:HS(I)=0:HN$(I)="---":HC$(I)="A":NEXT I
288 REM
300 REM
310 REM --- GLOBAL VARIABLES ---
315 ID=0
320 SC=0
330 DIM LT(26)
340 DIM TR(40)
350 REM
360 REM --- LOADING WORD BANK ---
370 DIM MO$(1100):DIM FR(1100)
380 NB=0
390 READ W$,FL
400 WHILE W$<>"END"
410   NB=NB+1:MO$(NB)=W$:FR(NB)=FL
420   READ W$,FL
430 WEND
440 REM
450 REM === MAIN GAME LOOP ===
460 GOSUB 5000:REM Title screen
465 GOSUB 5500:REM Category choice
470 PA=1
480 WHILE PA=1
490   GOSUB 1000:REM Init round
500   GOSUB 2000:REM Game loop
510   IF PE=1 THEN GOSUB 6000:GOSUB 11000:SC=0:JO=3:GOSUB 5000:GOSUB 5500
520 WEND
530 REM
540 END
550 REM
560 REM ============================================
570 REM   1000 : INIT ROUND
580 REM ============================================
1000 OD=ID
1005 WHILE ID=OD
1006   ID=INT(RND*NB)+1
1007   IF CA=2 AND FR(ID)=0 THEN ID=OD
1008   IF CA=3 AND FR(ID)=1 THEN ID=OD
1009 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 : GAME LOOP
1150 REM ============================================
2000 GOSUB 3000:REM Draw full screen
2010 FI=0
2020 WHILE FI=0
2030   GOSUB 4000:REM Input a letter
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
2082   IF TV=0 THEN BORDER 6:FOR FX=1 TO 150:NEXT FX:BORDER 0
2090   GOSUB 3200:REM Redraw hangman
2100   GOSUB 3500:REM Redraw word
2110   GOSUB 3620:REM Redraw 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 : DRAW FULL SCREEN
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 Gallows and man
3095 GOSUB 3620:REM Alphabet + Jokers
3096 GOSUB 3500:REM Word
3097 LOCATE 1,23:PEN 2:PRINT "LETTER > "
3098 RETURN
3099 REM
3100 REM ============================================
3110 REM   3200 : DRAW HANGMAN
3120 REM ============================================
3200 REM --- GALLOWS ---
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 --- GROUND ---
3250 PEN 1:FOR CO=1 TO 7:LOCATE CO,15:PRINT CHR$(241):NEXT CO
3260 REM --- CHARACTER (progressive appearance) ---
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 : DISPLAY WORD
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 : DISPLAY ALPHABET AND 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 : INPUT A LETTER
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 "ALREADY PLAYED!":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 : TITLE SCREEN
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 "HANGMAN AI 1.4";:PEN 3:PRINT" *"
5060 LOCATE 2,5:PRINT "*                *"
5070 LOCATE 2,6:PRINT "******************"
5080 REM --- Gallows ---
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 --- Full character ---
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 "   Find the names"
5170 LOCATE 1,19:PRINT "  of Amstrad games"
5175 PEN 2:LOCATE 1,20:PRINT "before being hanged!"
5190 PEN 13:LOCATE 3,23:PRINT "  Press ENTER"
5195 T=TIME:RANDOMIZE T
5200 WHILE INKEY$="":WEND
5210 BORDER 0
5220 RETURN
5230 REM
5240 REM ============================================
5250 REM   5500 : CATEGORY CHOICE
5260 REM ============================================
5500 CLS:MODE 1:BORDER 0
5510 LOCATE 1,3:PEN 2:PRINT "Choose a title bank :"
5515 LOCATE 1,5:PEN 3:PRINT "--------------------"
5520 LOCATE 1,7:PRINT "1 - All editors"
5525 LOCATE 1,8:PRINT "    (988 titles)"
5530 LOCATE 1,10:PRINT "2 - French editors only"
5535 LOCATE 1,11:PRINT "    (275 titles)"
5540 LOCATE 1,13:PRINT "3 - Without French editors"
5545 LOCATE 1,14:PRINT "    (713 titles)"
5550 LOCATE 1,17:PEN 3:PRINT "Your choice :"
5555 LOCATE 1,19:PEN 2:PRINT "Press 1, 2 or 3"
5560 K$=""
5570 WHILE K$<>"1" AND K$<>"2" AND K$<>"3"
5580   K$=INKEY$
5590 WEND
5600 CA=VAL(K$)
5605 MODE 0
5610 RETURN
5620 REM
5630 REM ============================================
5640 REM   6000 : GAME OVER SCREEN
5650 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 "The word was:"
6050 LOCATE 1,9:PEN 14:PRINT MO$
6060 LOCATE 1,12:PEN 11:PRINT "FINAL SCORE:";SC
6070 LOCATE 1,15:PEN 7:PRINT "Thanks for playing!"
6080 PEN 13:LOCATE 1,20:PRINT "   Press ENTER"
6090 WHILE INKEY$="":WEND
6100 RETURN
6110 REM
6120 REM ============================================
6130 REM   7000 : VICTORY - WORD FOUND
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 " The word was:"
7140 'LOCATE 1,23:PEN 14:PRINT MO$
7150 PEN 13:LOCATE 3,25:PRINT "  Press ENTER"
7160 WHILE INKEY$="":WEND
7170 RETURN
7180 REM
7190 REM ============================================
7200 REM   8000 : DEFEAT - HANGED
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 "      YOU LOSE!"
8030 LOCATE 1,22:PEN 5:PRINT "   The word was:"
8040 LOCATE 1,23:PEN 7:PRINT MO$
8050 ' LOCATE 1,23:PEN 7:PRINT "     GAME OVER!"
8060 PEN 13:LOCATE 3,25:PRINT "  Press ENTER"
8070 WHILE INKEY$="":WEND
8080 RETURN
8090 REM
8100 REM ============================================
8110 REM   WORD BANK - AMSTRAD CPC GAMES
8120 REM   FORMAT : "TITLE",FLAG (1=french 0=other)
8130 REM ============================================
9000 DATA "AAARGH",0,"ABRACADABRA",0,"SKWEEK",1,"ACE OF ACES",0,"ACRO JET",0
9010 DATA "ACTION FIGHTER",0,"ACTION FORCE",0,"ACTION SERVICE",1,"ACTIVATOR",0,"AFTER BURNER",0
9020 DATA "AFTER THE WAR",0,"AFTERMATH",0,"AFTEROIDS",0,"AFTER SHOCK",0,"AGENT ORANGE",0
9030 DATA "AIRBALLS",0,"AIRBORNE RANGER",0,"AIRWOLF",0,"ALADDIN S CAVE",0,"ALIEN",0
9040 DATA "ALIEN STORM",0,"ALIEN SYNDROME",0,"ALIENS",0,"ALIVE",1,"ALPHAKHOR",1
9050 DATA "ALPINE GAMES",0,"ALTERED BEAST",0,"AMAUROTE",0,"ANDROID ONE",0,"ANDY CAPP",0
9060 DATA "ANNALS OF ROME",0,"APACHE",0,"APB",0,"APOCALYPSE",1,"ARCTICFOX",0
9070 DATA "ARKOS",0,"ARTURA",0,"ARMY MOVES",0,"ARNHEM",0,"PROHIBITION",1
9080 DATA "ASPHALT",0,"ATHENA",0,"ATLANTIS",1,"AVENGER",0,"BADLANDS",0
9090 DATA "BARBARIAN",0,"BATMAN",0,"BATTLE COMMAND",0,"BEACH HEAD",0,"BEACH VOLLEY",0
9100 DATA "BEDLAM",0,"BIGGLES",0,"BIONIC COMMANDO",0,"BIVOUAC",1,"BLACK TIGER",0
9110 DATA "BLADE WARRIOR",0,"BLASTEROIDS",0,"BLAZING THUNDER",0,"BLOODWYCH",0,"BLUEBERRY",1
9120 DATA "BLUE WAR",0,"BMX SIMULATOR",0,"BOMB JACK",0,"BONANZA BROS",0,"BOOTY",0
9130 DATA "BOULDER DASH",0,"BOUNDER",0,"BRAVESTARR",0,"BREAKTHRU",0,"BRUCE LEE",0
9140 DATA "BUBBLE BOBBLE",0,"BUBBLE GHOST",1,"BUGGY BOY",0,"BUILDERLAND",1,"BUMPY",1
9150 DATA "BURGERTIME",0,"CABAL",0,"CALIFORNIA GAMES",0,"CAPTAIN BLOOD",1,"CAPTAIN DYNAMO",0
9160 DATA "CARRIER COMMAND",0,"CASTLE MASTER",0,"CAULDRON",0,"CAVEMANIA",0,"CHASE HQ",0
9170 DATA "CHIMERA",0,"CHUCKIE EGG",0,"CISCO HEAT",0,"CLASH",1,"CLUEDO",0
9180 DATA "COBRA",1,"CODENAME MAT",0,"COLONY",0,"COLOSSAL ADVENTURE",0,"COMBAT LYNX",0
9190 DATA "COMBAT SCHOOL",0,"COMMANDO",0,"CONTAMINATION",1,"CONTINENTAL CIRCUS",0,"COP OUT",0
9200 DATA "CORRUPTION",0,"COSMIC SHERIFF",0,"CRACK DOWN",0,"CRAZY CARS",0,"CROSSFIRE",0
9210 DATA "CYBERNOID",0,"SABRE WULF",0,"DANGER STREET",0,"DARK CENTURY",0,"DARK FUSION",0
9220 DATA "DARK SCEPTRE",0,"DARK SIDE",0,"DARKMAN",0,"DEACTIVATORS",0,"DEATH STALKER",0
9230 DATA "DEEP STRIKE",0,"DEFLEKTOR",0,"DESERT FOX",0,"DESPERADO",0,"DICK TRACY",0
9240 DATA "DIZZY",0,"DOMINATOR",0,"DONKEY KONG",0,"DOUBLE DARE",0,"DOUBLE DRAGON",0
9250 DATA "DRACULA",0,"DRAGON BREED",0,"DRAGON NINJA",0,"DRAGON SPIRIT",0,"DRAGONTORC",0
9260 DATA "DRAKKAR",0,"DREAM WARRIOR",0,"DRILLER",0,"DRUID",0,"DUSTIN",0
9270 DATA "DWARF",0,"DYNAMIC DUO",0,"DYNAMITE DAN",0,"DYNASTY WARS",0,"EDEN BLUES",1
9280 DATA "ELEVATOR ACTION",0,"ELITE",0,"ELVEN WARRIOR",0,"ENDURO RACER",0,"EQUINOX",0
9290 DATA "ESPIONAGE",0,"EXOLON",0,"EXPRESS RAIDER",0,"EXTERMINATOR",0,"EXTREME",0
9300 DATA "FAIRLIGHT",0,"FANTASIA DIAMOND",0,"FERNANDEZ MUST DIE",0,"FEUD",0,"FIGHTING WARRIOR",0
9310 DATA "FINAL FIGHT",0,"FIRE AND FORGET",0,"FIRELORD",0,"FIREMAN SAM",0,"FLYING SHARK",0
9320 DATA "FOOTBALLER",0,"FOOTBALL MANAGER",0,"FORBIDDEN PLANET",0,"FORGOTTEN WORLDS",0,"FRANK BRUNO BOXING",0
9330 DATA "FRANKENSTEIN",0,"FREDDY HARDEST",0,"FREEDOM FIGHTER",0,"FROGGY",0,"FRUITY FRANK",0
9340 DATA "GAUNTLET",0,"GHOSTBUSTERS",0,"GLIDER RIDER",0,"JUGGERNAUT",0,"GOODY",0
9350 DATA "VOTEZ POUR MOI",1,"GREEN BERET",0,"GRYZOR",0,"GUNSHIP",0,"HARRIER ATTACK",0
9360 DATA "HAWKEYE",0,"HERCULES",0,"HUNCHBACK",0,"HYDROFOOL",0,"HYPER SPORTS",0
9370 DATA "IKARI WARRIORS",0,"IMPOSSAMOLE",0,"INDIANA JONES",0,"JOUST",0,"KICK OFF",0
9380 DATA "KLAX",0,"KNIGHTLORE",0,"KWIK SNAX DIZZY",0,"LASER SQUAD",0,"LEMMINGS",0
9390 DATA "LIFE FORCE",0,"LIGHT FORCE",0,"LIVING STONE",0,"LODE RUNNER",0,"LOTUS ESPRIT",0
9400 DATA "LUCKY LUKE",1,"MANIC MINER",0,"BATTY",0,"MARAUDER",0,"MATCHDAY",0
9410 DATA "NEMESIS THE WARLOCK",0,"MIDWINTER",0,"MISSILE COMMAND",0,"MYTH",0,"NEMESIS",0
9420 DATA "NIGHTSHADE",0,"NORTH AND SOUTH",0,"OPERATION WOLF",0,"OUTRUN",0,"OVERLANDER",0
9430 DATA "PACMAN",0,"PANG",0,"PAPERBOY",0,"COMANDO TRACER",0,"RADIUS",0
9440 DATA "PITFALL",0,"PLATOON",0,"ROLAND IN TIME",0,"POPEYE",0,"PINBALL POWER",0
9450 DATA "PREDATOR",0,"PROFANATION",0,"PUZZNIC",0,"RAMBO",0,"RAMPAGE",0
9460 DATA "RAMPARTS",0,"RENEGADE",0,"FUTUR SHOCK",0,"RICK DANGEROUS",0,"ROAD BLASTERS",0
9470 DATA "ROBOCOP",0,"ROLAND ON THE RUN",0,"BRONX",0,"RYGAR",0,"SABOTEUR",0
9480 DATA "SALAMANDER",0,"SCRABBLE",0,"SHINOBI",0,"SILKWORM",0,"SKOOL DAZE",0
9490 DATA "SOKOBAN",0,"THE JETSONS",0,"SPACE HARRIER",0,"SPEEDBALL",0,"SCRAMBLE SPIRITS",0
9500 DATA "SPITFIRE",0,"STAR QUAKE",0,"STARGLIDER",0,"STORMLORD",0,"STRIDER",0
9510 DATA "SPIRITS",0,"SUPERCARS",0,"SABIAN ISLAND",0,"TERMINATOR",0,"TETRIS",0
9520 DATA "THUNDER BLADE",0,"THRUST",0,"BLAGGER",0,"TITAN",1,"TOP GUN",0
9530 DATA "TOTAL ECLIPSE",0,"TRAILBLAZER",0,"TRANTOR",0,"TROJAN",0,"TURBO CUP",1
9540 DATA "TURRICAN",0,"TYPHOON",0,"COOL WORLD",0,"URIDIUM",0,"VIGILANTE",0
9550 DATA "BIRDIE",1,"WARHAWK",0,"WILLOW PATTERN",0,"WIZBALL",0,"WONDER BOY",0
9560 DATA "XENON",0,"ZAXXON",0,"ALIEN EIGHT",0,"ANARCHY",0,"NUCLEAR DEFENCE",0
9570 DATA "BAD DUDES",0,"BESTIAL WARRIOR",0,"BMX FREESTYLE",0,"BOB WINNER",1,"BOBSLEIGH",0
9580 DATA "BOBO",1,"BOMB SCARE",0,"BOUNTY HUNTER",0,"BRAINACHE",0,"CAMELOT WARRIORS",0
9590 DATA "CHAMONIX CHALLENGE",1,"CHARLY DIAMS",1,"CHILLER",0,"CHOLO",0,"CHRONOS",0
9600 DATA "CORSARIOS",0,"COUNT DUCKULA",0,"CRAFTON ET XUNK",1,"CRAZY SHOT",1,"DAMOCLES",0
9610 DATA "DARTS",0,"WILD STREETS",1,"DEFCOM",0,"DEFEND OR DIE",0,"DESOLATOR",0
9620 DATA "DISC",1,"TRAFFIC",0,"DOORS OF DOOM",0,"DOPPLEGANGER",0,"TRIBBLE TROUBLE",0
9630 DATA "DRUIDS MOON",0,"DUN DARACH",0,"EAGLE RIDER",0,"ECHELON",0,"EDD THE DUCK",0
9640 DATA "ELECTRO FREDDY",0,"ELEKTRA GLIDE",0,"ELIDON",0,"ELIMINATOR",0,"EMPIRE",1
9650 DATA "ENCHANTED",0,"END ZONE",0,"ARKANOID",0,"EREBUS",0,"EURO BOSS",0
9660 DATA "EVENING STAR",0,"EVIL DONJON",0,"EYE SPY",0,"FA CUP FOOTBALL",0,"ASSAULT COURSE",0
9670 DATA "GALAXY FORCE",0,"GALAGA",0,"GEMINI WING",0,"AMSGOLF",0,"GUERRILLA WAR",0
9680 DATA "GUNFRIGHT",0,"HACKER",0,"HARD DRIVIN",0,"SIDEWALK",1,"HELTER SKELTER",0
9690 DATA "HIGH STEEL",0,"HOSTAGES",1,"HOT ROD",0,"HOTSHOT",0,"HURRICANE BIRD",0
9700 DATA "ICE HOCKEY",0,"JACK THE RIPPER",0,"KARNOV",0,"CAMELOT WARRIOR",0,"SOL NEGRO",0
9710 DATA "KILLAPEDE",0,"KNIGHTMARE",0,"NAVY SEALS",0,"LAST DUEL",0,"LAST NINJA",0
9720 DATA "LIGHT CORRIDOR",0,"GOLDEN AXE",0,"LOOPZ",0,"INERTIE",1,"MAZE MANIA",0
9730 DATA "MELTDOWN",0,"MERCS",0,"MIKIE",0,"MOON CRESTA",0,"MOON WALKER",0
9740 DATA "MOTORBIKE MADNESS",0,"NAVY MOVES",0,"NEBULUS",0,"NETHERWORLD",0,"NINJA HAMSTER",0
9750 DATA "NINJA MASSACRE",0,"NINJA SPIRIT",0,"MGT",1,"NONAMED",0,"MISSION OMEGA",0
9760 DATA "PARACHUTE",0,"PHANTOM CLUB",0,"PICTIONARY",0,"PIT FIGHTER",0,"IZNOGOUD",1
9770 DATA "PERPLEXUS",0,"LIVERPOOL",0,"POSTMAN PAT",0,"RAINBOW ISLANDS",0,"RANARAMA",0
9780 DATA "RED HAWK",0,"REX",0,"PYJAMARAMA",0,"ROAD RUNNER",0,"ROCKFORD",0
9790 DATA "ROCKY",0,"RUFF AND REDDY",0,"RUNNING MAN",0,"SABRE WULF",0,"SAMURAI WARRIOR",0
9800 DATA "SAVAGE",0,"SCALEXTRIC",0,"SCOOBY DOO",0,"SHADOW DANCER",0,"SHADOW WARRIORS",0
9810 DATA "SILENT SERVICE",0,"HARRICANA",1,"SKYFOX",0,"TEENAGE QUEEN",1,"SLAP FIGHT",0
9820 DATA "SNOOKER",0,"SOLDIER OF LIGHT",0,"SORCERY",0,"SPACE DEBRIS",0,"SPACE INVADERS",0
9830 DATA "SPELLBOUND",0,"HIGHWAY ENCOUNTER",0,"SPINDIZZY",0,"SPY HUNTER",0,"LASER SQUAD",0
9840 DATA "SHUFFLEPUCK CAFE",0,"STEG THE SLUG",0,"STREET FIGHTER",0,"STREET HAWK",0,"SUBBUTEO",0
9850 DATA "QUAD",0,"SUPER LEAGUE",0,"SUPER SEYMOUR",0,"SWIV",0,"SWITCHBLADE",0
9860 DATA "TAPPER",0,"TARZAN",0,"TECHNICIAN TED",0,"TEST DRIVE",0,"THUNDERBIRDS",0
9870 DATA "THUNDERCATS",0,"TOMAHAWK",0,"TREASURE ISLAND",0,"GALACTIC CONQUEROR",1,"CHOMEDU",1
9880 DATA "VENOM",0,"VIPER",0,"VIXEN",0,"BACTRON",1,"WEREWOLVES",0
9890 DATA "PINBALL MAGIC",1,"MACADAM BUMPER",1,"WORLD CLASS RUGBY",0,"XEVIOUS",0,"XYBOTS",0
9900 DATA "YOGI BEAR",0,"ZOMBI",1,"BATTLE VALLEY",0,"AMELIE MINUIT",1,"BEVERLY HILLS COP",0
9910 DATA "BILLY THE KID",0,"BILLY LA BANLIEUE",1,"HOLD UP",1,"BRONX STREET COP",0,"COLOSSUS CHESS",0
9920 DATA "CYLU",0,"DAN DARE",0,"DEATHSCAPE",0,"DELIVERANCE",0,"DESPERADO",0
9930 DATA "DESPOTIK DESIGN",1,"DIANNE",1,"DIMENSION OMEGA",0,"DUEL",0,"DUET",0
9940 DATA "DYNAMIX",0,"ELECTION",0,"ENERGY WARRIOR",0,"ESCAPE",0,"PACIFIC",1
9950 DATA "MARACAIBO",1,"EXPLORER",0,"EYE",0,"PURPLE SATURN DAY",1,"HACKER II",0
9960 DATA "OXPHAR",1,"IMPOSSIBLE MISSION",0,"SRAM",1,"JUNGLE WARRIOR",0,"LEGIONS OF DEATH",0
9970 DATA "LUNAR LANDER",0,"QIN",0,"TENSIONS",1,"THE DEVILS CROWN",0,"MOTOCROSS",0
9980 DATA "ROBBBOT",1,"HERO QUEST",0,"KNIGHT RIDER",0,"ROBOCOP THREE",0,"HIGHWAY PATROL",0
9990 DATA "PLUTON ATACA",0,"THE DEEP",0,"ARACHNOPHOBIA",0,"BATTLESTORM",0,"SORCERY PLUS",0
10000 DATA "DISCOLOGY",0,"STAR WARS",0,"STARFOX",0,"STARQUAKE",0,"STRIKE FORCE SAS",0
10010 DATA "TANIUM",0,"TERMINATOR TWO",0,"BLOOD BROTHERS",0,"INFERNAL RUNNER",1,"SPY VS SPY",0
10020 DATA "GUNBOAT",0,"PLATOON",0,"WARGAME",0,"WIZARDS WARZ",0,"KNIGHT FORCE",1
10030 DATA "WORLD CUP SOCCER",0,"WWF WRESTLEMANIA",0,"XENOPHOBE",0,"GHOULS N GHOSTS",0,"GHOSTS N GOBLINS",0
10040 DATA "HEAD OVER HEELS",0,"JACK THE NIPPER",0,"JET SET WILLY",0,"LICENCE TO KILL",0,"MAGICLAND DIZZY",0
10050 DATA "MARBLE MADNESS",0,"METRO CROSS",0,"MISSION GENOCIDE",0,"MOON BUGGY",0,"NARCO POLICE",0
10060 DATA "NEW ZEALAND STORY",0,"NINJA WARRIORS",0,"NODES OF YESOD",0,"OBLITERATOR",0,"ORIENTAL GAMES",0
10070 DATA "OUT RUN",0,"PAC LAND",0,"PAC MANIA",0,"PANZA KICK BOXING",1,"PASSING SHOT",0
10080 DATA "PIPE MANIA",0,"PIRATES",0,"PRINCE OF PERSIA",0,"BABY JO",1,"QUARTET",0
10090 DATA "RASTAN",0,"RETURN TO EDEN",0,"RICOCHET",0,"ROBIN OF SHERWOOD",0,"ROLAND AHOY",0
10100 DATA "ROGUE TROOPER",0,"ROLLING THUNDER",0,"ROY OF THE ROVERS",0,"RUGBY BOSS",0,"SAINT DRAGON",0
10110 DATA "SENTINEL",0,"MADDOG",0,"SKATE OR DIE",0,"SKY HUNTER",1,"SLIDERS",0
10120 DATA "SOCCER STAR",0,"SOLOMON KEY",0,"SONIC BOOM",0,"SPACE ACE",0,"SPACE CRUSADE",0
10130 DATA "BALL BREAKER",0,"SPHERICAL",0,"STARION",0,"STARCROSS",0,"STEEL EAGLE",0
10140 DATA "STUNT CAR RACER",0,"SUMMER GAMES",0,"SUPER CARS",0,"SUPER GRAN",0,"SUPER SKI",0
10150 DATA "SUPERMAN",0,"SILENT SHADOW",0,"TABLE FOOTBALL",0,"TAI PAN",0,"TARGET RENEGADE",0
10160 DATA "TAU CETI",0,"TEMPEST",0,"TENNIS CUP",1,"THANATOS",0,"TIGER ROAD",0
10170 DATA "TOOBIN",0,"VINDICATORS",0,"WANDERER",0,"WAY OF TIGER",0,"WEC LE MANS",0
10180 DATA "WEST BANK",0,"WINTER GAMES",0,"WISHBRINGER",0,"WORLD GAMES",0,"YIE AR KUNG FU",0
10190 DATA "ZOIDS",0,"ZYNAPS",0,"ATOMIC DRIVER",1,"BEST OF THE BEST",1,"BOOLY",1
10200 DATA "D DAY",1,"EXTRA BALL",1,"FLASH",1,"FORTERESSE",1,"GUARDIANS",1
10210 DATA "HAN D ISLANDE",1,"INVITATION",1,"JIM POWER",1,"KEEP YOURSELF ALIVE",1,"L AIGLE D OR",1
10220 DATA "LE CINQUIEME AXE",1,"LE FEU D ARKANIS",1,"LE PACTE",1,"MARIUS TRESOR FOOT",1,"MATA HARI",1
10230 DATA "MISSION",1,"MOBILE MAN",1,"MOON BLASTER",1,"MOTO DRIVER",1,"ORPHEE",1
10240 DATA "OUT BOARD",1,"PHARAON",1,"PLANETE BASE",1,"PODIUM",1,"POUVOIR",1
10250 DATA "PSYBORG",1,"QUADREL",1,"RELIEF ACTION",1,"REVERSI CHAMPION",1,"SAPIENS",1
10260 DATA "SECRET DEFENSE",1,"SPACE RACER",1,"STAR TRAP",1,"SUPER SKWEEK",1,"PRO TENNIS",1
10270 DATA "THE TINY SKWEEKS",1,"THUNDER BURNER",1,"TONY TRUAND",1,"TOP SECRET",1,"TORANN",1
10280 DATA "WESTPHASER",1,"CAPUCINE",1,"CRASH GARRETT",1,"GUTTER",1,"HARRY ET HARRY",1
10290 DATA "L ANGE DE CRISTAL",1,"LE MILLIONNAIRE",1,"PASSAGER DU TEMPS",1,"MICRO SAPIENS",1,"MISSION DELTA",1
10300 DATA "STRYFE",1,"BOB MORANE",1,"BRIDGE SIMULATOR",1,"COMIX",1,"COSMO",1
10310 DATA "OPERATION JUPITER",1,"L AFFAIRE SANTA FE",1,"L AFFAIRE SYDNEY",1,"L AFFAIRE VERA CRUZ",1,"L HERITAGE",1
10320 DATA "LA GESTE D ARTILLAC",1,"LES DIEUX DE LA MER",1,"PASSAGERS DU VENT",1,"MANDRAGORE",1,"MYSTICAL",1
10330 DATA "NORD ET SUD",1,"OMEGA",1,"PINGOO",1,"RENAUD",1,"MARCHE A L OMBRE",1
10340 DATA "SIM CITY",1,"LA FORMULE",1,"THE LIGHT CORRIDOR",1,"TINTIN SUR LA LUNE",1,"WELLTRIS",1
10350 DATA "AQUANAUTE",1,"ATOMIK",1,"CANADAIR",1,"FIRESCAPE",1,"HIGH EPIDEMY",1
10360 DATA "LE JEU DU ROY",1,"LEGENDE",1,"MISSION EN RAFALE",1,"ABSURDITY",1,"AMSTRA DAMES",1
10370 DATA "CESSNA OVER MOSKOW",1,"CHALLENGER",1,"REVERSI",1,"COBRA PINBALL",1,"DAMES CHAMPION",1
10380 DATA "DIVISION BLINDEE",1,"FORCE QUATRE",1,"GOLF TROPHEE",1,"HISTOIRE D OR",1,"HMS COBRA",1
10390 DATA "HOLLYWOOD PALACE",1,"LA MARQUE JAUNE",1,"LA VILLE INFERNALE",1,"CHATEAU DU DIABLE",1,"LE CHEVALIER BLANC",1
10400 DATA "LES RIPOUX",1,"MEURTRES A VENISE",1,"MEURTRES EN SERIE",1,"MINEUR",1,"MISSION DETECTOR",1
10410 DATA "NIGHT BOOSTERS",1,"STRESS",1,"TURLOGH LE RODEUR",1,"BUNNY BRICKS",1,"TARGHAN",1
10420 DATA "WIND SURF WILLY",1,"XYPHOES FANTASY",1,"ASTERIX",1,"AU NOM DE L HERMINE",1,"CAP SUR DAKAR",1
10430 DATA "DAKAR MOTO",1,"DEFI AU TAROT",1,"FANTOME CITY",1,"FREEDOM",1,"IMPERIALIS",1
10440 DATA "JAMES DEBUG",1,"JUNGLE BOOK",1,"LA MASCOTTE",1,"NITROGLYCERINE",1,"MEWILO",1
10450 DATA "MOMIE BLUES",1,"NO EXIT",1,"OPERATION NEMO",1,"PETER PAN",1,"POSEIDON",1
10460 DATA "RAID SUR TENERE",1,"ROBINSON CRUSOE",1,"STARTING BLOCKS",1,"SUPER GEODYSSEE",1,"BURGLAR",1
10470 DATA "FUGITIF",1,"INFERNAL HOUSE",1,"CRYPTE DES MAUDITS",1,"LA MALEDICTION",1,"LA SECTE NOIRE",1
10480 DATA "MORTVILLE MANOR",1,"TRESOR D ALI GATOR",1,"MOKOWE",1,"RODY ET MASTICO",1,"SAGA",1
10490 DATA "SDAW",1,"SILVA",1,"SURVIVRE",1,"LA JAVA DU PRIVE",1,"BLOODSTONE",1
10500 DATA "BOULDEUR",1,"DUEL A ABILENE",1,"HUMANOID",1,"MERLIN",1,"MOULINSART",1
10510 DATA "PAC PUNK",1,"PETROL JOHN",1,"SYNCHRONOUS",1,"BRIDGE IT",0,"FRANK N STEIN",0
10520 DATA "ASTRO MARINE CORPS",0,"AMERICAN TURBO KING",0,"ASPAR GP MASTER",0,"ATF",0,"ATOMIC",0
10530 DATA "BABY JO GOING HOME",1,"BAD CAT",0,"BALADE A COLOGNE",1,"BALLE DE MATCH",0,"BARBARIAN II",0
10540 DATA "BASKET MASTER",0,"BAT II",1,"BATMAN THE MOVIE",0,"BIG BANG",1,"BLOOD VALLEY",0
10550 DATA "GATECRASHER",0,"BUTCHER HILL",0,"CARMEN SANDIEGO",1,"GEMS OF STRADUS",0,"CHAIN REACTION",0
10560 DATA "CHAMPIONSHIP SPRINT",0,"CHARLIE CHAPLIN",0,"CHIP S CHALLENGE",0,"CIRCUS GAMES",0,"CRUCIAL TEST",1
10570 DATA "CYBERBALL",0,"CYBERNOID II",0,"CYBORG",0,"DAMES SIMULATOR",0,"DAN DARE III",0
10580 DATA "DECLIC LECTURE",1,"DEMON S REVENGE",0,"DR DOOM S REVENGE",0,"DRAGONS OF FLAME",0,"L APPRENTI SORCIER",1
10590 DATA "DYNAMITE DUX",0,"E MOTION",0,"EAGLE S RIDER",0,"EL CAPITAN TRUENO",0,"EQUINOXE",1
10600 DATA "ESWAT CYBER POLICE",0,"EXIT",1,"EXPLODING WALL",0,"OH MUMMY",0,"FER ET FLAMME",1
10610 DATA "FIGHTER BOMBER",0,"FIGHTING SOCCER",0,"FIRE AND FORGET II",1,"FIRE",0,"FIRETRAP",0
10620 DATA "FLASH GORDON",0,"FLIMBO S QUEST",0,"FLIPPIT",0,"FRANKENSTEIN JNR",0,"GABRIELLE",1
10630 DATA "GALACTIC GAMES",0,"GARFIELD",0,"GAUNTLET II",0,"GBA BASKETBALL",0,"GEE BEE AIR RALLY",0
10640 DATA "GHOSTBUSTERS II",0,"GI HERO",0,"GOTHIK",0,"GREAT COURTS",1,"GUADALCANAL",0
10650 DATA "GUNSMOKE",0,"HAMMERFIST",0,"HAMSTERS EN FOLIE",1,"HEAVY METAL",0,"HEROES OF THE LANCE",0
10660 DATA "HOPPING MAD",0,"HUDSON HAWK",0,"HURLEMENTS",1,"HYDRA",0,"IK",0
10670 DATA "INSIDE OUTING",0,"INVASION",0,"IRON LORD",1,"IRON TRACKERS",0,"JACK NICKLAUS GOLF",0
10680 DATA "JINKS",0,"JINXTER",0,"KARATEKA",0,"KILLER COBRA",0,"KILLERBALL",0
10690 DATA "KNIGHT ORC",0,"ANCIENT ART OF WAR",0,"L ILE",1,"L OEIL DE SET",1,"PINK PANTHER",0
10700 DATA "LASERWARP",0,"LE GRAPHOLOGUE",1,"LE MAITRE ABSOLU",1,"LE MAITRE DES AMES",1,"LE MARAUDEUR",1
10710 DATA "LE NECROMANCIEN",1,"LED STORM",0,"GREYFELL",0,"HATE",0,"THE UNTOUCHABLES",0
10720 DATA "LINE OF FIRE",0,"LIVE AND LET DIE",0,"LORDS OF CHAOS",0,"M ENFIN",1,"MAD MIX GAME",0
10730 DATA "MADBALLS",0,"MANGE CAILLOUX",1,"MASQUE",1,"MAXI BOURSE",1,"MICKEY MOUSE",0
10740 DATA "MIDNIGHT RESISTANCE",0,"MINDFIGHTER",0,"MOMY",0,"MOONWALKER",0,"MOT",0
10750 DATA "MOTOR MASSACRE",0,"MR HELI",0,"NARC",0,"NECRIS DOME",0,"NEW YORK WARRIORS",0
10760 DATA "NIGHT HUNTER",1,"NIGHT RAIDER",0,"NIGHT SHIFT",0,"NORTH STAR",0,"OFF SHORE WARRIOR",1
10770 DATA "OMEYAD",1,"ON CUE",0,"OPERATION GUNSHIP",0,"OUT RUN EUROPA",0,"PACMANIA",0
10780 DATA "PEUR SUR AMITYVILLE",1,"PHM PEGASUS",0,"PICK N PILE",1,"PLATEFORME",1,"POGOSTICK OLYMPICS",0
10790 DATA "POWER DRIFT",0,"PREHISTORIK",1,"PRO TENNIS TOUR",1,"PSYCHO PIGS UXB",0,"PUFFY S SAGA",1
10800 DATA "R TYPE",0,"RAMBO III",0,"RICK DANGEROUS II",0,"ROBOZONE",0,"ROCK N ROLL",0
10810 DATA "ROCK N ROLLER",0,"RODY ET MASTICO II",1,"ROY OF THE ROVER",0,"RUN THE GAUNTLET",0,"STUN RUNNER",0
10820 DATA "SAI COMBAT",0,"SATAN",0,"SAUVEZ YURK",1,"LEVIATHAN",0,"SCRABBLE DELUXE",0
10830 DATA "SECRET AGENT",0,"SHACKLED",0,"SHADOW OF THE BEAST",0,"SIDE ARMS",0,"SKATE BALL",1
10840 DATA "SKATE CRAZY",0,"SKYX",0,"SMASH TV",0,"SNOW STRIKE",0,"SOLOMON S KEY",0
10850 DATA "SPACE GUN",0,"SPACE HARRIER II",0,"SPHAIRA",1,"SPITTING IMAGE",0,"STRIDER II",0
10860 DATA "STRIP POKER II",0,"SUICIDAL TENDENCIES",0,"SUPER CAULDRON",1,"SUPER HANG ON",0,"SUPER MONACO GP",0
10870 DATA "SUPER SPRINT",0,"SUPER TRUX",0,"SUPERSKI",0,"SWAP",0,"TANK ATTACK",0
10880 DATA "TECHNO COP",0,"TERRAMEX",0,"TEST DRIVE II",0,"THE ADDAMS FAMILY",0,"THE BARD S TALE",0
10890 DATA "THE BLUES BROTHERS",1,"THE CYCLES",0,"THE FLINTSTONES",0,"THE FURY",0,"THE NINJA WARRIORS",0
10900 DATA "THE RUNNING MAN",0,"THE SHOE PEOPLE",0,"THE TRAIN",0,"THUNDER JAWS",0,"TIME AND MAGIK",0
10910 DATA "TIME MACHINE",0,"TIME SCANNER",0,"TIMES OF LORE",0,"TORNADO LOW LEVEL",0,"TOTAL RECALL",0
10920 DATA "TOUR DE FORCE",0,"TRANSMUTER",0,"TRIVIAL PURSUIT",1,"TROUBADOURS",0,"TURBO OUT RUN",0
10930 DATA "TUSKER",0,"TWINWORLD",1,"UN SQUADRON",0,"VENDETTA",0,"VENOM STRIKES BACK",0
10940 DATA "VICTORY ROAD",0,"WAR IN MIDDLE EARTH",0,"WESTERN GAMES",0,"WHEELS OF FIRE",0,"WINGS OF FURY",0
10950 DATA "WIZARD WARZ",0,"WIZARD WILLY",0,"X OUT",0,"ZAP T BALLS",0
10955 DATA "DAN SILVER",1,"HOLOCAUSTE",1,"JAWS",1,"LA DERNIERE MISSION",1,"MARMELADE",1
10957 DATA "MIKE ET MOKO",1,"PHASER ONE",1,"RAT CONNECTION",1,"TOP LEVEL",1
10960 DATA "END",0
10970 REM
10980 REM ============================================
10990 REM   11000 : CHECK AND INSERT HISCORE
11000 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 --- Initials input screen ---
11060 CLS
11070 LOCATE 3,5:PEN 2:PRINT "NEW HISCORE !"
11080 LOCATE 3,7:PEN 5:PRINT "SCORE :";SC
11090 LOCATE 3,10:PEN 11:PRINT "Enter your initials"
11100 LOCATE 3,13:PEN 3:PRINT "UP/DOWN + ENTER"
11110 GOSUB 11400:REM Input initials
11120 REM --- Shift scores down ---
11130 FOR I=15 TO NR+1 STEP -1
11140   HS(I)=HS(I-1):HN$(I)=HN$(I-1):HC$(I)=HC$(I-1)
11150 NEXT I
11160 HS(NR)=SC:HN$(NR)=IN$:IF CA=1 THEN HC$(NR)="A" ELSE IF CA=2 THEN HC$(NR)="F" ELSE HC$(NR)="W"
11170 GOSUB 11200:REM Display hiscores
11180 RETURN
11190 REM
11200 REM ============================================
11210 REM   11200 : DISPLAY 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 3,LI:PEN 3:PRINT I
11290   IF I=NR THEN PEN 11 ELSE PEN 8
11300   SC$=STR$(HS(I)):SC$=RIGHT$(SC$,LEN(SC$)-1)
11310   WHILE LEN(SC$)<5:SC$="0"+SC$:WEND
11320   LOCATE 8,LI:PRINT HN$(I);" ";SC$;" ";HC$(I)
11330 NEXT I
11340 LOCATE 1,21:PEN 3:PRINT "===================="
11350 PEN 13:LOCATE 3,23:PRINT "  Press ENTER"
11360 WHILE INKEY$="":WEND
11370 RETURN
11380 REM
11390 REM ============================================
11400 REM   11400 : INPUT INITIALS
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 --- arrow up (CHR$ 240) = next letter ---
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 --- arrow down (CHR$ 241) = previous letter ---
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 or SPACE = next position ---
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 : BUY JOKERS
11670 REM ============================================
12000 CLS
12010 LOCATE 1,3:PEN 14:PRINT "  Score :";SC
12020 LOCATE 1,5:PEN 11:PRINT "Well done!"
12030 LOCATE 1,6:PEN 11:PRINT "Your score allows"
12040 LOCATE 1,7:PEN 11:PRINT "you to get"
12045 LOCATE 1,8:PEN 11:PRINT "some jokers."
12050 LOCATE 1,10:PEN 3:PRINT "Cost of a joker:"
12060 LOCATE 1,11:PEN 3:PRINT "50 score points."
12070 LOCATE 1,13:PEN 5:PRINT "How many jokers"
12080 LOCATE 1,14:PEN 5:PRINT "do you want?"
12090 'LOCATE 1,15:PEN 3:PRINT "(0 to skip)"
12100 LOCATE 1,17:PEN 14:PRINT "Max jokers:";INT(SC/50)
12110 LOCATE 1,20:PEN 11:PRINT " Your choice: "
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 "Not enough 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 : JOKER ANIMATION
12280 REM ============================================
12500 JO=JO-1
12510 CLS
12520 LOCATE 1,2:PEN 3:PRINT "  Word to find:"
12530 GOSUB 12800:REM Display word
12540 REM --- Initial horizontal arrow position ---
12550 FX=1:FY=24
12560 LOCATE FX,FY:PEN 14:PRINT CHR$(252)
12570 TX=TIME
12580 REM --- Horizontal movement loop ---
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 --- Vertical shot ---
12670 GOSUB 13000
12680 RETURN
12690 REM
12700 REM ============================================
12710 REM   12800 : DISPLAY WORD (JOKER VERSION)
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 : RISING ARROW AND RESULT
12920 REM ============================================
13000 MS=INT((20-LG)/2)+1
13010 MP=FX-MS+1
13020 REM --- Arrow rises from line 23 to line 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 --- Analyse what was hit ---
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 --- Success : letter not yet found ---
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 "*** WELL DONE! ***"
13196 LOCATE 2,13:PEN 11:PRINT "Letter ";LT$;" found!"
13197 GOTO 13210
13200 REM --- Failure ---
13205 LOCATE 3,10:PEN 2:PRINT "*** TOO BAD !  ***"
13210 LOCATE 3,22:PEN 13:PRINT "  Press ENTER"
13220 WHILE INKEY$<>CHR$(13):WEND
13230 RETURN