:DelVar X
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:FnOff
:GridOff
:AxesOff
:Goto A
:Lbl B
:X→S
:31→A
:47→B
:1→H
:1→G
:Repeat K=45
:   getKey→K
:   If K=22
:   Then
:      If S=0:Pt-On(B,A,H
:      If S=1:Pt-Off(B,A,H
:      1+H→H
:      If H=4:1→H
:   End
:   If K=31
:   Then
:      G+1→G
:      If G=4:1→G
:   End
:   If K=25 or K=24 or K=26 or K=34
:   Then
:      If X=1:Pt-Off(B,A,H
:      If X=0:Pt-On(B,A,H
:      If K=25:A+G→A
:      If K=34:A-G→A
:      If K=24:B-G→B
:      If K=26:B+G→B
:      If A<0:DelVar A
:      If B<0:DelVar B
:      If A>63:62→A
:      If B>95:94→B
:   End
:   If K=92 or K=93 or K=94
:   Then
:      If S=0:Pt-On(B,A,H
:      If S=1:Pt-Off(B,A,H
:      If K=92
:      Then
:         StorePic 1
:         S→LI(1
:      End
:      If K=93
:      Then
:         StorePic 2
:         S→LI(2
:      End
:      If K=94
:      Then
:         StorePic 3
:         S→LI(3
:      End
:   End
:   If K=21
:   Then
:      If X=0
:      Then
:         1→X
:      Else
:         DelVar X
:      End
:   End
:   If S=1:Pt-On(B,A,H
:   If S=0:Pt-Off(B,A,H
:End
:Lbl A
:ClrDraw
:ClrHome
:DelVar V
:Menu("MEGR1.3 dessin  ","Creer img",1,"Voir img",2,"Ouvrir img",3,"Suprimer img",4,"Aide",5,"Installer",6,"Quitter",7
:Lbl 1
:Menu("Fond","Fond blanc",Y,"Fond noir",N,"Retour",A
:Lbl Y
:1→X
:Goto B
:Lbl N
:DelVar X
:RecallPic 0
:Goto B
:Lbl 2
:1→V
:Lbl 3
:1+V→V
:DelVar TRepeat T=3
:   1+T→T
:   Output(T+1,1,"img
:   Output(T+1,4,T
:   If T=1:LI(1→X
:   If T=2:LI(2→X
:   If T=3:LI(3→X
:   If X≠3
:   Then
:      Output(T+1,6,"OK
:   Else
:      Output(T+1,6,"Vide
:   End
:End
:Input "Image:",I
:If V=4:Goto C
:If I=1 and LI(1)≠3
:Then
:   RecallPic 1
:   LI(1→X
:End
:If I=2 and LI(2)≠3
:Then
:   RecallPic 2
:   LI(2→X
:End
:If I=3 and LI(3)≠3
:Then
:   RecallPic 3
:   LI(3)→X
:End
:If I≠1 and I≠2 and I≠3 or X=3
:Then
:   Pause "ERREUR
:   Goto A
:End
:If V=3:Goto 4
:If V=2
:Then
:   Pause
:   Goto A
:End
:Goto B
:Lbl 4
:If V=0
:Then
:   2→V
:   Goto 3
:End
:If I=1
:Then
:   DelVar Pic1
:   3→LI(1
:End
:If I=2
:Then
:   DelVar Pic2
:   3→LI(2
:End
:If I=3
:Then
:   DelVar Pic3
:   3→LI(3
:End
:Goto A
:Lbl 5
:Disp "Gomme/Dessiner:","2nd","Enregistrer:","1,2 ou 3","
:Pause
:Disp "Fleche: HAUT/BAS","DROITE/GAUCHE","Accelerer cur-","seur: ALPHA","Grossir curseur:","MODE","
:Pause
:Disp "","Programme by","kindermoumoute","MEGR Dessin","Version : 1.3","Le 17/09/09
:Pause
:Goto A
:Lbl 6
:DelVar AFor(A,0,62
:   Horizontal A
:End
:StorePic 0
:3→LI(1
:3→LI(2
:3→LI(3
:Output(4,1,"  Programme      installe
:Pause
:Goto A
:Lbl 7
:ClrHome
:FnOn
:AxesOn
:ZStandard
:Output(1,1,"