MouseChaser1

Contest: Mouse Chaser
For Contest Description, see Mouse Chaser

code format="vbnet" nomainwin gosub [sb1] gosub [writebmp] loadbmp "sb1bmp","xxqqyyzzrutger.qyx" gosub [sb2] gosub [writebmp] loadbmp "sb2bmp","xxqqyyzzrutger.qyx" gosub [sb3] gosub [writebmp] loadbmp "sb3bmp","xxqqyyzzrutger.qyx" gosub [sf1] gosub [writebmp] loadbmp "sf1bmp","xxqqyyzzrutger.qyx" gosub [sf2] gosub [writebmp] loadbmp "sf2bmp","xxqqyyzzrutger.qyx" gosub [sf3] gosub [writebmp] loadbmp "sf3bmp","xxqqyyzzrutger.qyx" gosub [sr1] gosub [writebmp] loadbmp "sr1bmp","xxqqyyzzrutger.qyx" gosub [sr2] gosub [writebmp] loadbmp "sr2bmp","xxqqyyzzrutger.qyx" gosub [sr3] gosub [writebmp] loadbmp "sr3bmp","xxqqyyzzrutger.qyx" kill "xxqqyyzzrutger.qyx" WindowHeight=500:WindowWidth=600 sx=-20:sy=-20 open "mousechaser" for graphics_nf_nsb as #a print #a, "trapclose [quit]" print #a, "when characterInput [findesc]" print #a, "setfocus" print #a, "addsprite stand sf1bmp": print #a, "addsprite sb sb1bmp sb2bmp sb3bmp" print #a, "addsprite sf sf1bmp sf2bmp sf3bmp": print #a, "addsprite sr sr1bmp sr2bmp sr3bmp" print #a, "addsprite sl sr1bmp sr2bmp sr3bmp": print #a, "spriteorient sl mirror" print #a, "cyclesprite sf 1": print #a, "cyclesprite sb 1" print #a, "cyclesprite sr 1": print #a, "cyclesprite sl 1" gosub [resetsprites] print #a, "drawsprites" mx=2:my=2:or$="":olddir=0:process=10 [begin] print #a, "when mouseMove [readmouse]" if MouseX>sx then mx=MouseX-sx:mmx=1 if MouseXsy then my=MouseY-sy:mmy=1 if MouseYmy then or$="x" if my>mx then or$="y" if mx=my then or$="x" if (mousemoved=0) and (sxMouseX-5) and (syMouseY-5) then goto [reached] if (or$="x") and (mmx=1) then gosub [right] if (or$="x") and (mmx=-1) then gosub [left] if (or$="y") and (mmy=1) then gosub [down] if (or$="y") and (mmy=-1) then gosub [up] [begbeg] timer 0 timer 50, [begfurther] wait [begfurther] mousemoved=0 goto [begin] [readmouse] mousemoved=1 gosub [resetsprites] goto [begin] [findesc] if Inkey$ = chr$(27) then goto [quit] wait
 * Entry #1: Rutger**

[right] process=process+1 if (mousemoved=1) and (process<4) then return process=0 gosub [resetsprites] olddir=1 if my<>0 then if mmy=1 then myy=int(1/(mx/my)*5) if mmy=-1 then myy=-1*(int(1/(mx/my)*5)) else my=0 end if    print #a, "spritevisible sr on" sx=sx+5:sy=sy+myy print #a, "spritexy sr ";sx;" ";sy print #a, "drawsprites" return [left] process=process+1 if (mousemoved=1) and (process<4) then return  ' slowing down the smiley when the mouse is moved process=0 gosub [resetsprites] olddir=2 if my<>0 then if mmy=1 then myy=int(1/(mx/my)*5) if mmy=-1 then myy=-1*(int(1/(mx/my)*5)) else my=0 end if    print #a, "spritevisible sl on" sx=sx-5:sy=sy+myy print #a, "spritexy sl ";sx;" ";sy print #a, "drawsprites" return [up] process=process+1 if (mousemoved=1) and (process<4) then return process=0 gosub [resetsprites] olddir=3 if mx<>0 then if mmx=1 then mxx=int(1/(my/mx)*5) if mmx=-1 then mxx=-1*(int(1/(my/mx)*5)) else mxx=0 end if    print #a, "spritevisible sb on" sy=sy-5:sx=sx+mxx print #a, "spritexy sb ";sx;" ";sy print #a, "drawsprites" return [down] process=process+1 if (mousemoved=1) and (process<4) then return process=0 gosub [resetsprites] olddir=1 if mx<>0 then if mmx=1 then mxx=int(1/(my/mx)*5) if mmx=-1 then mxx=-1*(int(1/(my/mx)*5)) else mxx=0 end if    print #a, "spritevisible sf on" sy=sy+5:sx=sx+mxx print #a, "spritexy sf ";sx;" ";sy print #a, "drawsprites" return [reached] if olddir=5 then goto [begbeg] gosub [resetsprites] olddir=5 print #a, "spritevisible stand on" print #a, "spritexy stand ";sx;" ";sy print #a, "drawsprites" goto [begbeg] [resetsprites] print #a, "spritexy stand -50 -50" print #a, "spritexy sf -50 -50" print #a, "spritexy sb -50 -50" print #a, "spritexy sr -50 -50" print #a, "spritexy sl -50 -50" return [quit] unloadbmp "sb1bmp":unloadbmp "sb2bmp":unloadbmp "sb3bmp":unloadbmp "sf1bmp":unloadbmp "sf2bmp" unloadbmp "sf3bmp":unloadbmp "sr1bmp":unloadbmp "sr2bmp":unloadbmp "sr3bmp" close #a end

[writebmp]                         ' CREATE .BMP FILES bmphfd$="" for bmpt=1 to 54 hoofd$=word$(bmphoofd$,bmpt," ") hoofd=val(hoofd$) hoofd$=chr$(hoofd) bmphfd$=bmphfd$+hoofd$ next bmpt bmpl$="" for bmpln=1 to bmplijnen       'READING THE PICTURE AND RECALCULATING IT         punten=0:teller=1:herhaal=0:herhaalaantal=0:heraan=0 if left$(z$(bmpln),1)="#" then teller=3 herhaalaantal=val(word$(z$(bmpln),2," ")) herhaal=1 end if        bmpli$="" [readinglines] bmpunt$=word$(z$(bmpln),teller," ") if bmpunt$="*" then bmpunt=val(word$(z$(bmpln),teller+1," ")) bmkleur=val(word$(z$(bmpln),teller+2," ")) for informatie=1 to bmpunt bmpl$=bmpl$+chr$(bmkleur) bmpli$=bmpli$+chr$(bmkleur) next informatie teller=teller+3: punten=punten+bmpunt else bmkleur=val(bmpunt$) bmpl$=bmpl$+chr$(bmkleur) bmpli$=bmpli$+chr$(bmkleur) teller=teller+1:punten=punten+1 end if        if punten<56 then goto [readinglines] if herhaal=1 then [readinglinesherhaal] heraan=heraan+1 bmpl$=bmpl$+bmpli$ if heraan<herhaalaantal-1 then teller=3:punten=0:goto [readinglinesherhaal] end if    next bmpln open "xxqqyyzzrutger.qyx" for output as #opslaan print #opslaan, bmphfd$+bmpl$ close #opslaan return ' - BMP DATA --- [sb1] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 21 0 9 144 0 153 * 13 0 144 0 144 * 7 0 0" z$(3)="* 5 0 48 0 48 * 13 0 48 0 48 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 7 187 * 8 0 * 8 187 176 * 7 0 * 8 187 176 * 6 0 11 * 5 187 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 4 0 0" z$(7)="0 0 * 8 187 176 * 7 0 * 8 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 4 255 240 15 255 0 * 4 255 240 * 3 0 * 5 255 15 255 15" z$(10)="* 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sb2] bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 21 0 9 144 * 15 0 144 * 9 0 0" z$(3)="* 5 0 48 0 153 * 13 0 48 0 144 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 7 187 * 8 0 * 8 187 176 * 7 0 * 8 187 176 * 6 0 11 * 5 187 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 4 0 0" z$(7)="0 0 * 8 187 176 * 7 0 * 8 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 4 255 240 15 * 6 255 240 * 3 0 * 5 255 15 255 255" z$(10)="* 4 255 240 * 3 0 * 5 255 15 255 0 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sb3] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 24 0 153 * 15 0 144 * 7 0 0" z$(3)="* 4 0 9 144 0 48 * 13 0 144 0 48 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 7 187 * 8 0 * 8 187 176 * 7 0 * 8 187 176 * 6 0 11 * 5 187 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 4 0 0" z$(7)="0 0 * 8 187 176 * 7 0 * 8 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 7 255 0 * 4 255 240 * 3 0 * 7 255 15" z$(10)="* 4 255 240 * 3 0 * 4 255 240 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sf1] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 21 0 9 144 0 153 * 13 0 144 0 144 * 7 0 0" z$(3)="* 5 0 48 0 48 * 13 0 48 0 48 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 187 176 * 3 0 187 176 * 5 0 0" z$(5)="0 0 11 187 11 * 3 187 11 187 * 8 0 187 176 * 4 187 176 187 176 * 7 0 187 11 * 5 187 11 176 * 6 0 11 187 11 * 3 187 187" z$(6)="187 11 187 * 6 0 11 * 9 187 * 6 0 11 187 187 176 187 187 176 * 3 187 * 6 0 11 187 187 0 11 187 0 11 187 187 * 4 0 0" z$(7)="0 0 187 187 0 11 187 0 11 187 176 * 7 0 187 187 176 187 187 176 187 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 4 255 240 15 255 0 * 4 255 240 * 3 0 * 5 255 15 255 15" z$(10)="* 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sf2] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 21 0 9 144 * 15 0 144 * 9 0 0" z$(3)="* 5 0 48 0 153 * 13 0 48 0 144 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 187 176 * 3 0 187 176 * 5 0 0" z$(5)="0 0 11 187 11 * 3 187 11 187 * 8 0 187 176 * 4 187 176 187 176 * 7 0 187 11 * 5 187 11 176 * 6 0 11 187 11 * 3 187 187" z$(6)="187 11 187 * 6 0 11 * 9 187 * 6 0 11 187 187 176 187 187 176 * 3 187 * 6 0 11 187 187 0 11 187 0 11 187 187 * 4 0 0" z$(7)="0 0 187 187 0 11 187 0 11 187 176 * 7 0 187 187 176 187 187 176 187 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 4 255 240 15 * 6 255 240 * 3 0 * 5 255 15 255 255" z$(10)="* 4 255 240 * 3 0 * 5 255 15 255 0 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sf3] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 24 0 153 * 15 0 144 * 7 0 0" z$(3)="* 4 0 9 144 0 48 * 13 0 144 0 48 * 13 0 48 0 48 * 13 0 48 0 48" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 187 176 * 3 0 187 176 * 5 0 0" z$(5)="0 0 11 187 11 * 3 187 11 187 * 8 0 187 176 * 4 187 176 187 176 * 7 0 187 11 * 5 187 11 176 * 6 0 11 187 11 * 3 187 187" z$(6)="187 11 187 * 6 0 11 * 9 187 * 6 0 11 187 187 176 187 187 176 * 3 187 * 6 0 11 187 187 0 11 187 0 11 187 187 * 4 0 0" z$(7)="0 0 187 187 0 11 187 0 11 187 176 * 7 0 187 187 176 187 187 176 187 187 176 * 7 0 11 * 7 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 7 255 0 * 4 255 240 * 3 0 * 7 255 15" z$(10)="* 4 255 240 * 3 0 * 4 255 240 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 * 3 0 * 5 255 15 255 15 * 4 255 240 0 0 0" z$(11)="* 5 255 15 255 15 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sr1] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 23 0 153 144 * 14 0 153 * 8 0 0" z$(3)="* 6 0 48 * 15 0 48 * 15 0 48 * 15 0 48 0" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 4 187 * 11 0 * 4 187 176 11 187 187 176 * 7 0 * 4 187 11 * 3 187 176 * 6 0 11 * 4 187 11 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 6 187 176 187 187 * 4 0 0" z$(7)="0 0 * 6 187 0 11 176 * 7 0 * 6 187 0 11 176 * 7 0 11 * 5 187 176 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 6 255 0 15 * 4 255 240 * 3 0 * 6 255 0 255" z$(10)="* 4 255 240 * 3 0 * 6 255 15 * 5 255 240 * 3 0 * 6 255 15 * 5 255 240 * 3 0 * 6 255 15 * 5 255 240 0 0 0" z$(11)="* 6 255 15 * 5 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sr2] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 22 0 153 144 * 14 0 153 0 0 144 * 6 0 0" z$(3)="* 5 0 51 0 9 153 * 12 0 3 48 51 9 144 * 12 0 51 48 * 14 0 48 0" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 4 187 * 11 0 * 4 187 176 11 187 187 176 * 7 0 * 4 187 11 * 3 187 176 * 6 0 11 * 4 187 11 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 6 187 176 187 187 * 4 0 0" z$(7)="0 0 * 6 187 0 11 176 * 7 0 * 6 187 0 11 176 * 7 0 11 * 5 187 176 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 5 255 0 15 * 5 255 240 * 3 0 * 5 255 0 255 255" z$(10)="15 * 3 255 240 * 3 0 * 5 255 0 255 240 0 * 3 255 240 * 3 0 * 5 255 240 15 0 240 15 255 255 240 * 3 0 * 6 255 0 15 * 4 255 240 0 0 0" z$(11)="* 6 255 15 * 5 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return [sr3] bmphoofd$="66 77 150 3 0 0 0 0 0 0 118 0 0 0 40 0 0 0 25 0 0 0 50 0 0 0 1 0 4 0 0 0 0 0 32 3 0 0 18 11 0 0 18 11 0 0 0 0 0 0 0 0 0 0" bmplijnen=16 dim z$(bmplijnen) z$(1)="* 6 0 128 0 0 128 * 3 0 128 128 0 128 * 3 0 128 0 128 0 128 128 0 0 * 3 128 0 * 3 192 * 3 0 255 0 0 255 * 3 0 255 255 0 255 * 3 0 255 0 255 0" z$(2)="255 255 0 0 * 3 255 * 24 0 153 144 * 10 0 9 144 0 0 153 * 7 0 0" z$(3)="* 4 0 153 0 3 48 * 12 0 153 51 51 * 13 0 153 0 51 * 15 0 48 0" z$(4)="* 12 0 11 * 3 187 * 11 0 11 * 5 187 * 10 0 * 6 187 176 * 5 0 0" z$(5)="0 0 11 * 4 187 * 11 0 * 4 187 176 11 187 187 176 * 7 0 * 4 187 11 * 3 187 176 * 6 0 11 * 4 187 11 187" z$(6)="* 3 187 * 6 0 11 * 9 187 * 6 0 11 * 9 187 * 6 0 11 * 6 187 176 187 187 * 4 0 0" z$(7)="0 0 * 6 187 0 11 176 * 7 0 * 6 187 0 11 176 * 7 0 11 * 5 187 176 187 * 9 0 * 4 187 187" z$(8)="187 176 * 9 0 11 * 5 187 * 11 0 11 * 3 187 * 23 0 0" z$(9)="* 16 0 * 12 255 240 * 3 0 * 7 255 0 15 * 3 255 240 * 3 0 * 3 255 240 15 255 255 0" z$(10)="* 4 255 240 * 3 0 * 4 255 0 255 240 15 * 4 255 240 * 3 0 * 4 255 * 3 0 * 5 255 240 * 3 0 * 4 255 0 255 0 * 5 255 240 0 0 0" z$(11)="* 6 255 15 * 5 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 3 255 * 4 0 0" z$(12)="0 15 255 255 240 * 3 0 255 255 240 * 7 0 255 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 0 0 0" z$(13)="255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 9 0 255 240 * 3 0 255 240 * 5 0 0" z$(14)="* 3 0 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 * 8 0 15 255 240 * 3 0 255 255 240 * 7 0 255 255 240 0 0 0" z$(15)="* 3 255 * 6 0 15 255 255 240 * 3 0 * 3 255 240 * 5 0 * 3 255 240 * 3 0 * 4 255 240 * 3 0 * 4 255 240 * 3 0 * 7 255 255" z$(16)="* 4 255 240 * 3 0 * 12 255 240 * 34 0 0" return code