BLAISE par CDBVS: """"""""""""""""" 10 cls:mode 0:print"BLAISE 0.001":for w=1 to 5000:next w:mode 1:cls 210 mode 1 220 window 1,6,1,3:print"B" 230 window 6,13,1,3:print"L" 240 window 13,20,1,3:print"A" 250 window 20,27,1,3:print"I" 260 window 27,34,1,3:print"S" 270 window 34,40,1,3:print"E" 300 a$=inkey$:if a$=""goto 300 310 if a$="b"then goto 400 320 if a$="l"then goto 500 330 if a$="a"then goto 600 340 if a$="i"then goto 700 350 if a$="s"then goto 800 360 if a$="e"then goto 900 380 ' respectez le nombre exact des espaces pour les lignes ci-dessous 381 ' ligne 400 = 44 espaces, 0 espaces, 42 espaces 382 ' ligne 500 = 38 espaces, 37 espaces 382 ' ligne 800 = 39 espaces, 30 espaces 400 cls:window 5,40,4,6:mode 2:print"BLAISE Vertion 0.001 Pour Amstrad 64kEcris par CDBVS en avril 2004 Retour au menu touche'Q'" 410 b$=inkey$:if b$=""goto 410 420 if b$="q"then cls:goto 210 500 window 5,40,4,6:mode 2:input"Ecrivez le nom exact du programme a lancer Preparez la DK7 en enfocant la touche PLAY Appuyez sur la touche'Enter'";x$:cls 510 load x$:goto 210 600 window 1,4,7,11:print"A" 602 window 1,4,11,15:print"M" 604 window 1,4,15,19:print"Q" 610 c$=inkey$:if c$=""goto 610 620 If c$="a"then window 5,40,3,6:print"B=Finder....L=Lancer programme K7....A=Aide....M=Ram disponible....Q=Quitter....I=Imprimer la page en cour....S=Sauver sur K7....E=Ecrire....":for d=1 to 10000:next d:cls:goto 210 630 if c$="m"then window 5,40,4,6:print fre(0):for d=1 to 10000:next d:cls:goto 210 640 if c$="q"then cls:end 700 print pos(#0) 800 window 5,40,4,6:cls:mode 2:input"Ecrivez le nom du programme a enregistrer Preparez la K7 en enfoncant les touches RCE + PLAY Appuyez sur la touche'Enter'";v$ 810 save v$:cls:goto 210 900 cls:window 5,40,7,25 --- Qu'est ce que BLAISE ? C'est un OS Amstard compatible CPC 464, 472 et 664. Je l'ai créer avec deux fois rien, donc franchement rien d'extraordinaire. De toute façon comme je suis assé nul en langages compatible Z80a et que de toute façon, on ne fait pas grand chose avec un CPC... BLAISE n'est pas fantastique ! J'ai eu l'idée de faire le miens quand j'ai vue qu'il y en avait deux en préparations sur le Net. Mais le partage n'est qu'en roms, donc inutilisable si on a pas l'original et comme l'original est introuvable, j'ai dessidé de faire le miens. BLAISE pris de l'expression:"Blasé de la vie". :D