DRAW CDBVS 0.21:
""""""""""""""""

Respectez les espaces pour l'aspect graphique.


2 mode 2
5 rem  *** Dessinner avec son CPC 464 par CDBVS ***
10 window 1,11,1,4:print" CDBVS            CPC  dessin"
20 window 1,11,5,11:print" CURSEUR:  ";chr$(143);" = A     ";chr$(128);"  = B      ";chr$(144);" = C      "
30 window 1,11,12,19:print"COULEURS:  blanc = 1  noir  = 2             A = 2 a 67 B = 1 a 19"
40 window 1,11,20,25:print"Quitter    Imprimer   Continuer"
43 window 12,13,5,6:print"A"
44 window 12,13,24,25:print"B"
50 window 12,80,1,4:print"          Choisissez votre curseur _ Quittez ou Imprimez":for t=1 to 2000:next t:cls
52 a$=inkey$:if a$=""goto 52
53 if a$="a"then goto 100
54 if a$="b"then goto 200
55 if a$="c"then goto 300
56 if a$="q"then cls:end
57 if a$="i"then print pos(#0)
58 next a$
100 input"Positionnez votre curceur: coordonnees X";x:cls
101 input"Positionnez votre curceur: coordonnees Y";y:cls
150 window 12,80,5,25:locate x,y:print chr$(143):goto 50
160 rem  rien
200 input"Positionnez votre curceur: coordonnees X";v:cls
201 input"Positionnez votre curceur: coordonnees Y";w:cls
250 window 12,80,5,25:locate v,w:print chr$(128):goto 50
260 rem  pas plus
300 input"Positionnez votre curceur: coordonnees X";t:cls
301 input"Positionnez votre curceur: coordonnees Y";u:cls
350 window 12,80,5,25:locate t,u:print chr$(144):goto 50
360 rem  c'est fini

---

C'est ma vertion 0.21

En mode 2, y'a pas de choix de couleur: Y'a le jaune (noir) ou bleu (blanc). Donc effectivement pour le môment y'a pas de couleurs !
Si vous n'appuyez pas sur les touches "a" (carré noir), "b" (carré blanc), "c" (pointe noir), "q" ou "i" au début de la boucle, basic plante et faud tout recomencer !!!

C'est pour ça que j'ai fais une vertion super allègé qui ne plante pas, mais qui sera difficilement évoluable, car c'est un programme 2 lignes CPC 464: