Win3x.Org

A>debug
-a
132E:0100 XOR AX,AX
132E:0102 INT 16
132E:0104 MOV AL,AH    'code errorlevel
132E:0106 MOV AH,4C
132E:0108 INT 21
132E:010A
-n TOUCHE.COM
-r cx
CX 0000
:a
-w
Écriture de 0000A octets
-q

@echo off

:choix
echo Qui êtes-vous ?
ECHO   - Anne.
ECHO   - Bertrand.
ECHO   - Lucien.
ECHO   - Quelqu'un d'autre.
ECHO Frappez sans violence la première lettre de votre réponse (a/b/l/q).

:test_touche
TOUCHE.COM
ECHO.
REM si supérieur ou égale au scan code alors va à...
if errorlevel 49 goto test_touche
if errorlevel 48 goto bertrand

if errorlevel 39 goto test_touche
if errorlevel 38 goto lucien

if errorlevel 31 goto test_touche
if errorlevel 30 goto autre

if errorlevel 17 goto test_touche
if errorlevel 16 goto anne

GOTO test_touche
REM Attention à la liste des scan code dans QBASIC
REM Ils prennent en compte un clavier QWERTY (A & Q sont inversées par ex)


:anne
ECHO Salut, Anne.
GOTO suite

:bertrand
ECHO Bienvenue Bertrand.
GOTO suite

:Lucien
ECHO Tu ne travailles plus ici, Lucien.
ECHO Au revoir.
ECHO Appuyez sur une touche pour continuer...
TOUCHE.COM
CLS
REM retour au menu
GOTO choix

:autre
ECHO Que voulez-vous que je vous dise : ah, une nouvelle tête ?
REM Un GOTO au cas où rajout ultérieur.
GOTO suite


:suite
ECHO.
ECHO Il est un peu niais ce programme.

if exist TOUCHE.COM goto choix
echo 1+-^VêÓ¦L-!>touche.com