If you 'like Jompis Game appreciate this editor where you will create the own levels

Easy to use.
You should always place:
Only a smile
Only one exit in the last row
a minimum of 4 jomps
a minimum of 4 blocks
you can load and edit to your liking levels already 'existing
or you will create the own level

**** I would appreciate your comments to my e-mail address ****

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem *****************************************
Rem *                                       *
Rem *             JOMPIS EDITOR             *
Rem +                                       *
Rem *          By Ermanno (ITALY)           *
Rem *                                       *
Rem *          e-mail:me52@libero.it        *
Rem *                                       *
Rem *****************************************

Dim poy(11)
Dim pox(11)
Dim zone(121)

poy(1)=96
poy(2)=117
poy(3)=137
poy(4)=158
poy(5)=178
poy(6)=199
poy(7)=220
poy(8)=240
poy(9)=261
poy(10)=281
poy(11)=302

For t=1 to 11
 pox(t)=201+nx
 Inc nx,22
Next t
bianco=Rgb(255,250,250)

Sync On: sync rate 60
Rem Load Bitmap's
Load Image "You.bmp",4
Load Image "Block.bmp",1
Load Image "Jomp.bmp",2
Load Image "Exit.bmp",5
Load Bitmap "editor256.bmp",3
LOad Sound "Errore.wav",1
Ink bianco,bianco
Box 305,405,345,455
Ink 0,0
Box 307,407,343,453
Ink bianco,0
Text 318,420,Right$(Str$(Level+100),2)
Rem Get Image 6
Get Image 6,250,100,270,120
Copy Bitmap 3,0
Set Current Bitmap 0
Ferma("Jompis Editor","Ermanno(ITALY)","E-Mail:me52@libero.it")
Copy Bitmap 3,0
Face=1
For t=1 to 121
  zone(t)=0
Next t
Do
Mx=Mousex()
My=Mousey()
Mc=MouseClick()
Ink Rgb(255,0,0),0
Box 60,370,180,460
ink 0,0
Box 62,372,178,458
ink bianco,0
text 80,392,Str$(mx)+"     "+Str$(my)
Paste Image face,110,430
If Mc=1

     Rem You
     If Mx>78 And Mx<160 And My>88 And My<125
        ButtonAnim(78,88,160,125)
        Face=4
     EndIf
     Rem Block
     If Mx>78 And Mx<160 And My>138 And My<175
        ButtonAnim(78,138,160,175)
        Face=1
     EndIf
     Rem Empty
     If Mx>78 And Mx<160 And My>188 And My<225
        ButtonAnim(78,188,160,225)
        Face=6
     EndIf
     Rem Jomp
     If Mx>78 And Mx<160 And My>238 And My<275
        ButtonAnim(78,238,160,275)
        Face=2
     EndIf
     Rem Exit
     If mx>78 And mx<160 And my>288 And my<327
       ButtonAnim(78,288,160,327)
       Face=5
     Endif
     Rem Exit Program
     If Mx>480 And Mx<580 And My>260 And My<300
        ButtonAnim(480,260,581,301)
        Ferma("Jompis Editor","By Ermanno","BYE!")
        Cls 0:Sync :Cls 0
        End
     EndIf
     Rem Load
     If Mx>480 And Mx<580 And My>110 And My<150
        ButtonAnim(480,110,581,151)
        St$="CHOOSE LEVEL TO LOAD (1-99)"
        Gosub Disk
        Copy Bitmap 3,0
        If level<1 Then level=1
        If level>99 Then level=99
        If File Exist("Levels/Livello"+Str$(level)+".jmp")
         Else
         level=1
        EndIf
        Ink 0,0
        Box 307,407,343,453
        Ink Rgb(255,255,255),0
        Text 318,420,Right$(Str$(Level+100),2)
        For t=1 to 121
         zone(t)=0
        Next t
        n=0
        Open to Read 1,"Levels\Livello"+Str$(level)+".jmp"
        For a=1 to 11
        For b=1 to 11
        Inc n

       Read String 1,a$
       p=Val(a$)
       zone(n)=p
        Next b
        Next a
        Close File 1
        n=0
        For ay=1 to 11
         For ax=1 to 11
          Inc n
           _pos=zone(n)
            If _pos=5
             Paste Image 5,pox(ax),poy(ay)
            Endif
            If _pos=1
             Paste Image 1,pox(ax),poy(ay)
            EndIf
            If _pos=2
             Paste Image 2,pox(ax),poy(ay) : Inc jomps
            EndIf
            If _pos=4
            px=ax:py=ay:z=n
            Paste Image 4,pox(px),poy(py)
            EndIf
         Next ax
        Next ay
        n=0


     EndIf
     Rem Reset
     If Mx>480 And Mx<580 And My>160 And My<200
        ButtonAnim(480,160,581,201)
        Copy Bitmap 3,0
        Face=1
        For A=1 to 121 : zone(a)=0 : Next A
     EndIf
     Rem Save
     If Mx>480 And Mx<540 And My>210 And My<250
        ButtonAnim(480,210,581,251)
        Create Bitmap 1,640,480
        Copy Bitmap 0,1
        Set Current Bitmap 0
        For t=1 To 121
         If zone(t)=6 Then zone(t)=0
        Next i
        c=0
        For t=1 to 121
         If zone(t)=4 Then Inc c
        Next t
        If c<>1
         Errore("ERROR!")
         Goto _Loop
        Endif
        c=0
        For t=1 to 121
         If zone(t)=1 Then Inc c
        Next t
        If c<4
         Errore("ERROR!")
         Goto _loop
        Endif
        c=0
        For t=1 to 121
         If zone(t)=2 Then Inc c
        Next t
        If c<3
         Errore("ERROR!")
         Goto _loop
        EndIf
        c=0
        For t=1 to 121
         If zone(t)=5 Then Inc c
        Next t
        If c=0 or c>1
         Errore("ERROR!")
         Goto _loop
        Endif
        c=0
        For t=111 To 121
         If zone(t)=1 Then Inc c
        Next t
        If c>10 Or c<10
         Errore("ERROR!")
         Goto _loop
        Endif
        St$="CHOOSE LEVEL TO SAVE (1-99)"
        Gosub Disk
        Copy Bitmap 1,0
        Ink 0,0
        Box 307,407,343,453
        Ink Rgb(255,255,255),0
        Text 318,420,Right$(Str$(Level+100),2)
        If level<1 Then level=1
        If level>99 Then level=99
        n=1
        If File Exist("Levels/Livello"+Str$(level)+".jmp")
         Delete File "Levels/Livello"+Str$(level)+".jmp"
        EndIf
        Open to Write 1,"Levels/Livello"+Str$(level)+".jmp"
        For a=1 to 11
        For b=1 to 11
        a$=Str$(zone(n))
        Write String 1,a$
        Inc n
        Next b
        Next a
        Close File 1
        Delete Bitmap 1
     EndIf
     Rem Zone
     If Mx>205 And Mx<216 And My>100 And My<112 : Nx=1 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=1 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>100 And My<112 : Nx=2 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=2 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>100 And My<112 : Nx=3 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=3 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>100 And My<112 : Nx=4 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=4 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>100 And My<112 : Nx=5 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=5 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>100 And My<112 : Nx=6 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=6 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>100 And My<112 : Nx=7 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=7 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>100 And My<112 : Nx=8 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=8 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>100 And My<112 : Nx=9 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=9 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>100 And My<112 : Nx=10 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=10 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>100 And My<112 : Nx=11 :Ny=1
      Paste Image Face,pox(Nx),poy(Ny) : Nz=11 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>121 And My<133 : Nx=1 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=12 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>121 And My<133 : Nx=2 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=13 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>121 And My<133 : Nx=3 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=14 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>121 And My<133 : Nx=4 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=15: zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>121 And My<133 : Nx=5 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=16 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>121 And My<133 : Nx=6 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=17 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>121 And My<133 : Nx=7 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=18 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>121 And My<133 : Nx=8 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=19 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>121 And My<133 : Nx=9 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=20 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>121 And My<133 : Nx=10 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=21 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>121 And My<133 : Nx=11 :Ny=2
      Paste Image Face,pox(Nx),poy(Ny) : Nz=22 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>142 And My<153 : Nx=1 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=23 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>142 And My<153 : Nx=2 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=24 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>142 And My<153 : Nx=3 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=25 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>142 And My<153 : Nx=4 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=26 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>142 And My<153 : Nx=5 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=27 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>142 And My<153 : Nx=6 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=28 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>142 And My<153 : Nx=7 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=29 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>142 And My<153 : Nx=8 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=30 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>142 And My<153 : Nx=9 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=31 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>142 And My<153 : Nx=10 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=32 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>142 And My<153 : Nx=11 :Ny=3
      Paste Image Face,pox(Nx),poy(Ny) : Nz=33 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>162 And My<173 : Nx=1 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=34 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>162 And My<173 : Nx=2 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=35 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>162 And My<173 : Nx=3 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=36 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>162 And My<173 : Nx=4 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=37 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>162 And My<173 : Nx=5 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=38 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>162 And My<173 : Nx=6 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=39 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>162 And My<173 : Nx=7 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=40 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>162 And My<173 : Nx=8 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=41 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>162 And My<173 : Nx=9 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=42 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>162 And My<173 : Nx=10 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=43 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>162 And My<173 : Nx=11 :Ny=4
      Paste Image Face,pox(Nx),poy(Ny) : Nz=44 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>182 And My<193 : Nx=1 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=45 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>182 And My<193 : Nx=2 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=46 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>182 And My<193 : Nx=3 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=47 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>182 And My<193 : Nx=4 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=48 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>182 And My<193 : Nx=5 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=49 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>182 And My<193 : Nx=6 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=50 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>182 And My<193 : Nx=7 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=51 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>182 And My<193 : Nx=8 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=52 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>182 And My<193 : Nx=9 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=53 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>182 And My<193 : Nx=10 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=54 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>182 And My<193 : Nx=11 :Ny=5
      Paste Image Face,pox(Nx),poy(Ny) : Nz=55 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>202 And My<213 : Nx=1 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=56 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>202 And My<213 : Nx=2 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=57 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>202 And My<213 : Nx=3 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=58 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>202 And My<213 : Nx=4 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=59 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>202 And My<213 : Nx=5 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=60 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>202 And My<213 : Nx=6 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=61 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>202 And My<213 : Nx=7 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=62 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>202 And My<213 : Nx=8 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=63 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>202 And My<213 : Nx=9 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=64 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>202 And My<213 : Nx=10 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=65 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>202 And My<213 : Nx=11 :Ny=6
      Paste Image Face,pox(Nx),poy(Ny) : Nz=66 : zone(Nz)=Face
     EndIf
     Rem
     If Mx>205 And Mx<216 And My>222 And My<233 : Nx=1 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=67 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>222 And My<233 : Nx=2 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=68 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>222 And My<233 : Nx=3 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=69 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>222 And My<233 : Nx=4 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=70 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>222 And My<233 : Nx=5 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=71 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>222 And My<233 : Nx=6 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=72 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>222 And My<233 : Nx=7 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=73 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>222 And My<233 : Nx=8 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=74 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>222 And My<233 : Nx=9 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=75 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>222 And My<233 : Nx=10 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=76 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>222 And My<233 : Nx=11 :Ny=7
      Paste Image Face,pox(Nx),poy(Ny) : Nz=77 : zone(Nz)=Face
     EndIf
      Rem
     If Mx>205 And Mx<216 And My>242 And My<253 : Nx=1 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=78 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>242 And My<253 : Nx=2 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=79 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>242 And My<253 : Nx=3 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=80 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>242 And My<253 : Nx=4 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=81 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>242 And My<253 : Nx=5 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=82 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>242 And My<253 : Nx=6 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=83 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>242 And My<253 : Nx=7 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=84 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>242 And My<253 : Nx=8 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=85 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>242 And My<253 : Nx=9 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=86 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>242 And My<253 : Nx=10 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=87 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>242 And My<253 : Nx=11 :Ny=8
      Paste Image Face,pox(Nx),poy(Ny) : Nz=88 : zone(Nz)=Face
     EndIf
      Rem
     If Mx>205 And Mx<216 And My>262 And My<273 : Nx=1 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=89 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>262 And My<273 : Nx=2 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=90 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>262 And My<273 : Nx=3 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=91 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>262 And My<273 : Nx=4 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=92 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>262 And My<273 : Nx=5 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=93 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>262 And My<273 : Nx=6 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=94 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>262 And My<273 : Nx=7 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=95 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>262 And My<273 : Nx=8 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=96 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>262 And My<273 : Nx=9 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=97 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>262 And My<273 : Nx=10 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=98 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>262 And My<273 : Nx=11 :Ny=9
      Paste Image Face,pox(Nx),poy(Ny) : Nz=99 : zone(Nz)=Face
     EndIf
      Rem
     If Mx>205 And Mx<216 And My>282 And My<293 : Nx=1 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=100 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>282 And My<293 : Nx=2 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=101 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>282 And My<293 : Nx=3 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=102 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>282 And My<293 : Nx=4 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=103 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>282 And My<293 : Nx=5 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=104 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>282 And My<293 : Nx=6 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=105 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>282 And My<293 : Nx=7 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=106 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>282 And My<293 : Nx=8 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=107 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>282 And My<293 : Nx=9 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=108 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>282 And My<293 : Nx=10 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=109 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>282 And My<293 : Nx=11 :Ny=10
      Paste Image Face,pox(Nx),poy(Ny) : Nz=110 : zone(Nz)=Face
     EndIf
      Rem
     If Mx>205 And Mx<216 And My>302 And My<313 : Nx=1 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=111 : zone(Nz)=Face
     EndIf
     If Mx>227 And Mx<238 And My>302 And My<313 : Nx=2 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=112 : zone(Nz)=Face
     EndIf
     If Mx>249 And Mx<260 And My>302 And My<313 : Nx=3 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=113 : zone(Nz)=Face
     EndIf
     If Mx>271 And Mx<282 And My>302 And My<313 : Nx=4 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=114 : zone(Nz)=Face
     EndIf
     If Mx>293 And Mx<304 And My>302 And My<313 : Nx=5 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=115 : zone(Nz)=Face
     EndIf
     If Mx>315 And Mx<326 And My>302 And My<313 : Nx=6 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=116 : zone(Nz)=Face
     EndIf
     If Mx>337 And Mx<348 And My>302 And My<313 : Nx=7 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=117 : zone(Nz)=Face
     EndIf
     If Mx>359 And Mx<370 And My>302 And My<313 : Nx=8 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=118 : zone(Nz)=Face
     EndIf
     If Mx>381 And Mx<392 And My>302 And My<313 : Nx=9 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=119 : zone(Nz)=Face
     EndIf
     If Mx>403 And Mx<414 And My>302 And My<313 : Nx=10 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=120 : zone(Nz)=Face
     EndIf
     If Mx>425 And Mx<436 And My>302 And My<313 : Nx=11 :Ny=11
      Paste Image Face,pox(Nx),poy(Ny) : Nz=121 : zone(Nz)=Face
     EndIf
     Endif

_loop:
Sync
Loop

Disk:
Quadro(180,150,460,240,180,180,180)
Quadro(180,150,460,170,180,120,120)
Quadro(300,200,350,215,0,0,0)
ButtonMaker(180,150,460,240,200,200,200,80,80,80)
Intesto(180,150,460,170,St$,255,255,255)
Set Cursor 200,200
Print "Level Number "
Set Cursor 310,200
Input level
Return

Rem Functions
Function Ferma(t1$,t2$,t3$)
 Quadro(200,150,442,250,180,180,180)
 Quadro(200,150,442,180,180,120,120)
 Intesto(200,140,440,160,t1$,250,250,250)
 Intesto(200,180,440,190,t2$,0,0,0)
 Intesto(200,200,440,210,t3$,0,0,0)
 Quadro(250,240,392,260,160,160,160)
 ButtonMaker(250,240,392,260,250,250,250,80,80,80)
 Intesto(250,225,392,245," Ok ",255,255,255)

Repeat
 Sync
 mx=Mousex()
 my=Mousey()
Until  mx>250 And mx<392 And my>240 And my<260 And MouseClick()<>0
ButtonAnim(250,240,392,260)
Wait 100
EndFunction

Function Errore(t$)
 Play Sound 1
 Ink 0,0 :Box 90,420,155,450
 Ink Rgb(255,0,0),0:Text 100,440,t$
 Repeat:Sync:Until MouseClick()>0
EndFunction

Function ButtonMaker(Left,Top,Right,Bottom,b1,b2,b3,c1,c2,c3)
 Ink Rgb(b1,b2,b3),0
 Line Left,Bottom,Left,Top : Line Left,Top,Right,Top
 Ink Rgb(c1,c2,c3),0
 Line Right,Top,Right,Bottom : Line Right,Bottom,Left,Bottom
EndFunction


Function Quadro(Left,Top,Right,Bottom,b1,b2,b3)
 Ink Rgb(b1,b2,b3),0
 Box Left,Top,Right,Bottom
EndFunction

Function Intesto(x,y,x1,y1,txt$,bc1,bc2,bc3)
 Ink Rgb(bc1,bc2,bc3),0
 c=((x1-x)/2)-((8*len(txt$))/2)
 Text x+c,y1-((y1-y)/2)+8,txt$
EndFunction

Function ButtonAnim(Ax,Ay,Bx,By)

    Copy Bitmap 0,Ax-1,Ay-1,Bx,By,0,Ax,Ay,Bx+1,By+1
    While MouseClick()=1 : Sync : EndWhile
    Copy Bitmap 0,Ax,Ay,Bx+1,By+1,0,Ax-1,Ay-1,Bx,By

EndFunction