10 CLS:PRINT " ";STRING$(8,"*"):print STRING$(10,"*"):print STRING$(2,"*");spc(6);STRING$(2,"*"):print SPC(8);"**":PRINT " ";STRING$(8,"*"):PRINT STRING$(8,"*"):PRINT"**":PRINT STRING$(2,"*");STRING$(6," ");STRING$(2,"*"):PRINT STRING$(10,"*")
11 PRINT " ";STRING$(8,"*"):PRINT:PRINT SPC(4);"**":PRINT SPC(4);"**"

nolist

write "v6"

run start
org #F06

dats:
db #01,#08
db #01,#0C
db #06,#02
db #08,#02
db #01,#12
db #01,#02
db #08,#02
db #06,#0C
db #01,#08
db #0F,#02
db #08,#02

start:
ld a,1:call #bc0e

ld de,#1814:ld hl,#0F05:call #bb66      ;;WINDOW 15,24,5,20

ld c,11
spcet:
inc l:ld b,(hl):ld a," ":call #bb5a:djnz $-3
inc l:ld b,(hl):ld a,"*":call #bb5a:djnz $-3
dec c:jr z,$
jr spcet

ORG #A000
; INITIALISER LE MODE, LES COULEURS
   CALL #BBFF          ; MODE 1 'INITIALISATION PRINCIPALE DU GESTIONNAIRE'
   LD BC, #0000
   CALL #BC38         ; BORDER 00, 00
   XOR A
   LD B, A
   LD C, A
   CALL  #BC32         ; INK 1, 00, 00
   LD A, 1
   LD BC, #1A1A
   CALL  #BC32         ; INK 1, 26, 26

; INITIALISER LA FENETRE D'AFFICHAGE
   LD HL, #0F05
   LD DE, #1819         ;             'H'   'D'  'L'   'E'   
   CALL #BB66         ; WINDOW  15,  24,  5,  25

; AFFICHER LES CARACTERES UN PAR UN EN TOURNANT LES CHIFFRES
   LD HL, DATA         ; 'HL' POINTE SUR LA TABLE DE LA MATRICE 10x13
   LD C, 17            ; NOMBRE DE CHIFFRE A TOURNER

    AFF_MATRICE
     LD E, (HL)
   INC HL
   LD B, 8            ; UN CHIFFRE TOURNE 8 FOIS

    FAIRE_CHIFFRE
   LD A, 32
   SLA E            ; PLACE LE BIT DE GAUCHE DE 'E' DANS LE CARRY
   JR NC, AFF_CARACTERE
   LD A, 42            ; CARACTERE MULTIPLIE

    AFF_CARACTERE
   CALL #BB5A
   DJNZ, FAIRE_CHIFFRE
   DEC C
   JR NZ, AFF_MATRICE

; ATTENDRE L'APPUIE D'UNE TOUCHE POUR RENDRE LA MAIN
   CALL #BB06
   RET               ; RETOURNE AU BASIC

DATA   DB #7F, #BF, #FC, #0C, #03, #7F, #FF, #EC, #03, #03, #FF, #DF, #E0, #00, #30, #0C, #00
FIN                    ; LONGUEUR > 78 OCTETS