kEnter .EQU  05h                                ; Touche Enter 

#define equ     .equ                            ; Pour les fichiers .inc de Ti
#define EQU	.equ

.NOLIST
.INCLUDE "ti83asm.inc"                  
.INCLUDE "tokens.inc"
.LIST

.ORG     9327h                                  ; Adr pour tous les programmmes pour TI83 


    ld      hl,debut
    call    aff

    CALL    enter
  
    ld      hl,marche
    call    aff

    CALL    enter

    ld      hl,alphabet
    call    aff

    ld      hl,accent
    call    aff

    ld      hl,grec
    call    aff

    CALL    enter
    call    _clrlcdfull

    ld      hl,fait
    call    aff

    ld      hl,nom
    call    aff

    ld      hl,email
    call    aff


    RET

aff:
      call    _newline
      call    _puts
      RET

enter:
	EI
	PUSH	HL

eloop:
    CALL    _GETKEY                             ; attend une touche
    CP      kEnter                              ; touche entree ?
    JR      NZ, eloop                ; non
    POP     HL
    RET



debut:
        .DB             "Des accents ?",0        

nom:
        .DB             "G–r¨me Billois (Neuro)",0

marche:
        .DB             "C'est possible avec l'ASM !",0

alphabet:
        .DB             "les minuscules:"
        .DB             "abcdefghijklmnopqrstuuwxyz"
        .DB             0

accent:
        .DB             "les accents: –—˜™",0

grec:
        .DB             "et les lettres grecs: »¼½¾¿ ",0

fait:
        .DB             "Petit programme de:",0

email:
        .DB             "gbillois@mail.fc-net.fr",0

.END