ROS.60050 r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ 1ccc 2ccc 3ccccc 10 label 0 etlist):"#+ DE(FGH 1 pushb"P#+ $ 2 pushb"P#+  3 pushb"P#+ 0800 0800 0800080008000800 0800 080000800 P0800 ,`P0808N88 Options box   X   new box  tabcc 50ccc 51ccc 52ccccc tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800PXr@08x $(`08g25b0p08x" &085b50@@08x $ (P"00x @r0g0b0`&00x $25b503 r100g25b00p&00x $r75g25b5^ r88g50b50*08x (8 r88g 00r25g75b75*08x (9 r100 00r50g88b7500x" $ &(:r0g25b750@,00x $ & (*; r25g25b75@@,00x $ & (*< r50g25b75@,00x $ & (*= r75g25b75@,00x $ & (*> r88g25b75@,00x $ & (*0? r100g25b75@*00x" $ &(0@r0g25b885@,00x $ & (*0A r25g25b88@@,00x $ & (*0B r50g25b88@,00x $ & (*0C r75g25b88@,00x $ & (*0D r88g25b88@,00x $ & (*E r100g25b88@*00x# $ &(F r0g25b100@0g,00x $ & (*G r25g25b100@@,00x $ & (*H r50g25b100@,00x $ & (*I r75g25b100@,00x $ & (*J r88g25b100@.00x & ( *, $K r100g25b100@@$00x  !" (Lred(00x "$%&Mdarkred$00x "0Nblue(00x"# $&Odarkblue(00x " $&Pgray64\(\(\((00x " $&Qgray60ffffff(00x " $&Rgray56ppp(00x " $&Sgray52zzz'00x! "$%anTr0g50b0)00x " $&'ayUr25g50b0@0)00x " $&'=pVr50g50b0)00x " $&'GWr75g50b0 )00x " $&'Xr88g50b0"$+00x $ &()Y r100g50b0*00x" $ &(Zr0g50b500,00x $ & (*[ r25g50b50@,00x $ & (*\ r50g50b50,00x $ & (*z] r75g50b50 " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800x0lBD 1 $"!P0_01_FEB_200116_40_11BEGIN 4/* 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 23 is kantel punt Vul package spec met de volgende waarde. Dit zijn de plaatsen waar de blokjes komen hoeveel blokjes en het draaipunt. draaipunt 00 is geen draaipunt */ Declare tel number; tel2 number; x varchar2(25); BEGIN o.line := 0; :aantl := o.line; o.back_ground_kleur := 'r191g191b191'; -- 11 12 13 14 15 o.kleur(1) := 'r100g0b0'; -- 21 22 23 24 25 o.kleur(2) := 'r0g100b0'; -- 31 32 33 34 35 o.kleur(3) := 'r0g0b100'; -- 41 42 43 44 45 o.kleur(4) := 'r100g100b0'; -- 51 52 53 54 55 o.kleur(5) := 'r100g0b100'; o.kleur(6) := 'r100g100b100'; o.kleur(7) := 'r100g50b50'; o.kleur(8) := 'r50g50b50'; o.kleur(9) := 'r50g0b0'; o.tst :=1; tel :=1; while tel < 19 loop tel2 :=1; while tel2 <13 loop x := 'b' ||to_char( tel)|| '.r' ||to_char(tel2); set_item_property(x ,BACKGROUND_COLOR,o.back_ground_kleur); tel2 := tel2+1; end loop; tel :=tel+1; end loop; set_item_property('START_TIMER',ENABLED,PROPERTY_TRUE); END;  END;WHEN-NEW-FORM-INSTANCE (Form)iͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08: ""PKG INIT""TEL"TEL2"X""%(.12468       (ͫͫͫͫͫͫͫ0D 0 P (&'.GE$&'EGE$ &'$GE&'GE<<D<&'GE\@d@&'GE|DD&'GEHH&'GELL&'GEPP&'GETT&'GEX$X&'GE<\D\&'.""Tͫͫͫͫͫͫͫ0D L '$!00 0808BD 1 $"P1_11_FEB_200115_06_06BEGIN 4move_item( 'r' ); :leeg := 'leeg'; :aantl := o.line; END;PRE-RECORD (Form)uͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/MOVE_ITEM/NSPC0/O $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T=ͫͫͫͫͫͫͫ0D >>!0 l4'$&'EG E$ !p$pPrleeg$LPh(= ( 3 pushb"P#+ 0800 0800 0800080008000800 0800 080000800 P0800 ,`P0808N88 Options box   X   new box  tabcc 50ccc 51ccc 52ccccc tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800P,r<hh: (FRM50_BUFFER table contains user's buffer.hh,ROSATTRIBSclass attributes8+hh)ROSLFDESCros lf descrip)hh'b7ROSOBJMAPros name->id+hh) *ROSSTRINGStk2 uiStrings*hh( (ROSSTRUCTSstruct types@*hh(ROSTK2RESVtk2 reservedb8PhhN8TOOL_MODULEtable contains information about different module$pp"b8VG_COLORVG_COLOR+pp $&'()VG_COLORITEMID@+pp $&'()VG_COLORCELLID@-pp &()*+VG_COLORNAME_SET@ /pp (*+,-VG_COLORNAME_LENGTH /pp (*+,-VG_COLORCOLOR_NAMEx'pp "#$%VG_COLORRED )pp "$%&'VG_COLORGREEN 88b)pp "$%&'VG_COLORBLUE 000800900808BD 1 $"mP0_09_FEB_200112_46_28BEGIN pnull; :aantl := o.line; set_item_property('START_TIMER',ENABLED,PROPERTY_FALSE); synchronize; move_item( 'd' ); END;WHEN-TIMER-EXPIRED (Form)}ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS4C FORMS40 SQLFORMS /NSPC0/MOVE_ITEM$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tlͫͫͫͫͫͫͫ0D mm!0 48&'EGE$ &'&'&'G IG I $&'$i'$!|<|L START_TIMERd0#R^l 0  ( * ,.ST 00r88g100b75208x * , .0ET 00r100g100b75 .08x' ( *,ͫ 00r0g100b88008x ( * ,. 00r25g100b88@008x ( * ,. 00r50g100b88008x ( * ,.IM 00r75g100b88008x ( * ,.2 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100D208x * , .0 00r75g100b100208x * , .0 00r88g100b100$208x * , .0& 00r100g100b100I0*:BF^(b fjl(vz|((( SQL*FormsLFORM50C:\gein_fmb\tetris.fmb7xe +1xe +1;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ht (08o (0 x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800`,r&0808$BD1 $ P2_11_FEB_200115_06_06BEGIN move_item( 'l' ); END;KEY-EXEQRY (Form)}_ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/MOVE_ITEM$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D g '$!88(l   $"mP0_09_FEB_200112_46_28BEGIN pnull; :aantl := o.line; set_item_property('START_TIMER',ENABLED,PROPERTY_FALSE); synchronize; move_item( 'd' ); END;WHEN-TIMER-EXPIRED (Form)}ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS4C FORMS40 SQLFORMS /NSPC0/MOVE_ITEM$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tlͫͫͫͫͫͫͫ0D mm!0 48&'EGE$ &'&'&'G IG I $&'$i'$!|<|L START_TIMERd0#R^l 0 080008000800 0800 080000800 P0800 ,`P0808N88 Options box   X   new box  tabcc 50ccc 51ccc 52ccccc tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800pr0808BD 1 $"P0_15_FEB_200117_25_24BEGIN 4move_item( 'r' ); :leeg := 'leeg'; :aantl := o.line; END;KEY-CLRREC (Form)uͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/MOVE_ITEM/NSPC0/O $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T=ͫͫͫͫͫͫͫ0D >>!0 l4'$&'EG E$ !p$pPrleeg$LPh(= ( -EXPIRED (Form)}ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS4C FORMS40 SQLFORMS /NSPC0/MOVE_ITEM$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tlͫͫͫͫͫͫͫ0D mm!0 48&'EGE$ &'&'&'G IG I $&'$i'$!|<|L START_TIMERd0#R^l 0 080008000800 0800 080000800 P0800 ,`P0808N88 Options box   X   new box  tabcc 50ccc 51ccc 52ccccc tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800r0808BD1 $ P1_15_FEB_200117_25_24BEGIN rotate_item ; END;KEY-CLRBLK (Form)QHͫͫͫͫͫͫͫ/NSPC0/ROTATE_ITEM$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""Tͫͫͫͫͫͫͫ0D L '$!00 OR0808BD 1 $"hP2_15_FEB_200117_25_24BEGIN #move_item( 'l' ); :aantl := o.line; END;KEY-CLRFRM (Form)uͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/MOVE_ITEM/NSPC0/O $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T1ͫͫͫͫͫͫͫ0D 22 ,('$&'EG E$ !T$T<l(1  0D mm!0 48&'EGE$ &'&'&'G IG I $&'$i'$!|<|L START_TIMERd0#R^l 0  ( * ,.ST 00r88g100b75208x * , .0ET 00r100g100b75 .08x' ( *,ͫ 00r0g100b88008x ( * ,. 00r25g100b88@008x ( * ,. 00r50g100b88008x ( * ,.IM 00r75g100b88008x ( * ,.2 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100D208x * , .0 00r75g100b100208x * , .0 00r88g100b100$208x * , .0& 00r100g100b100I0*:BF^(b fjl(vz|((( SQL*FormsLFORM50C:\gein_fmb\tetris.fmb7xe +1xe +1;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ht (08o (0 x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800"lB:1 $$nq ROTATE_ITEM PROCEDURE rotate_item IS TYPE blok_backup IS TABLE OF varchar2(25) INDEX BY BINARY_INTEGER; Tel number :=1; blk_backup blok_backup; kleur varchar2(25); pos varchar2(25); a varchar2(25); b varchar2(25); c varchar2(25); ok number ; PROCEDURE bereken(veld number ) IS a1 number; a2 number; b1 number; b2 number; c1 number; c2 number; Begin a1:=floor(o.blokje(tel)/10); a2:=mod ( o.blokje(tel),10); b1:=floor(o.draaipunt/10); b2:=mod ( o.draaipunt,10); c1:=b2-a2+b1; c2:=a1-b1+b2; a := 'b'||to_char(a1+o.obj_pos_b) ||'.r'||to_char(a2+o.obj_pos_r); b := 'b'||to_char(b1+o.obj_pos_b) ||'.r'||to_char(b2+o.obj_pos_r); c := 'b'||to_char(c1+o.obj_pos_b) ||'.r'||to_char(c2+o.obj_pos_r); set_item_property ( 'b'||to_char(c1+o.obj_pos_b) || '.r'||to_char(c2+o.obj_pos_r) ,BACKGROUND_COLOR,blk_backup(tel)); o.blokje(tel) := c1*10+c2; End; function check_veld (veld number) return number is a1 number; a2 number; b1 number; b2 number; c1 number; c2 number; Begin a1:=floor(o.blokje(tel)/10); a2:=mod ( o.blokje(tel),10); b1:=floor(o.draaipunt/10); b2:=mod ( o.draaipunt,10); c1:=b2-a2+b1+o.obj_pos_b; c2:=a1-b1+b2+o.obj_pos_r; if c2< 1 or c1 >18 or c2 >12 then return 0; else return 1; end if; end; BEGIN if o.draaipunt != 0 then -- Back up item while tel < o.aantal_blokjes+1 loop blk_backup(tel) := get_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR ); tel := tel +1; end loop; -- Reset item. tel:=1; kleur := 'r191g191b191'; while tel < o.aantal_blokjes+1 loop set_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR,kleur ); tel := tel +1; end loop; -- Check rotate !!! tel:=1; ok :=1; while tel < o.aantal_blokjes+1 loop if check_veld(o.blokje(tel))= 0 then ok :=0; end if; tel := tel +1; end loop; If OK=0 then tel:=1; while tel < o.aantal_blokjes+1 loop set_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR,blk_backup(tel) ); tel := tel +1; end loop; else tel:=1; while tel < o.aantal_blokjes+1 loop bereken(o.blokje(tel)); tel := tel +1; end loop; end if; synchronize; End if; End;cMͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS4C FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08YY.$c"PKG INIT"ROTATE_ITEM"TEL"BLK_BACKUP"KLEUR"POS"A"B"C"OK"BEREKEN"VELD"A1"A2"B1"B2"C1"C2"CHECK_VELD"" %'*-.478>ABHKLRUV\_`fiqwz   "$&(*,                   JBC  DEFG H !I Q $ &K(L*M,N.O0PX 35 7R9S;$lT=U?VAW,@Th|6 (087 (08#24"1  %')+-/68:<>@$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08;T P@eedAAAeedAAeedAAeedAAeedAAeedAAT  54A0 54AT  0/A0 0/Aeeee ! e &%eeee ! e &%eeee ! e &% eeee ! e &%+e54AT  54A0 54AT  0/A0 0/A! &% %A MA MAAA 0/A %+*Aeeeeee T  54A! e 0 54A&%+AA %+*A eeee T  54A! e 0 54A&%+AAA %+*A 54AAA AA %+*A eeee T  54A! e 0 54A&%+eAA %+*A54AgAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAed"ROTATE_ITEM"TYPE"BLOK_BACKUP"VARCHAR2"25"BINARY_INTEGER"TEL"NUMBER"1"BLK_BACKUP"KLEUR"POS"A"B"C"OK"BEREKEN"VELD"A1"A2"B1"B2"C1"C2"FLOOR"O"BLOKJE"/"10"MOD"DRAAIPUNT"-"+"b"||"TO_CHAR"OBJ_POS_B".r"OBJ_POS_R"SET_ITEM_PROPERTY"BACKGROUND_COLOR"*"FUNCTION"CHECK_VELD"RETURN"<">"18"12"0"!="WHILE"AANTAL_BLOKJES"LOOP"GET_ITEM_PROPERTY"r191g191b191"="SYNCHRONIZE""0 #$/15;@ABFNRUX\]dlpswx!%&-59=MQRWX`doquv} "%)-.259=BEFILPTUY\`dimnswx{  %().237:>BGLOPUYZ^aeimqvz{ "&*/478=ABFIMQVZ[`dejnotxy~  '+,12:>BMOST[cgkls{   #$'*.237:>BGKLQUVY]adhlqtux| $()-059:>ACGJNPTWY]_bfkopsw{~  #$(+.26;@CDIMNSVWZ]aefjmptx|l         # ' ( - 1 2 5 8 < @ A E H K O S X ] ` a f j k p s t w z ~        " & ' + . 0 4 8 ; ? C H L M Q T W [ ` d e i l n r v y         $ ) , - 2 6 7 < ? @ C F J N O S V Y ] a e h l m q u y ~                ! $ , - . / 2 5 = > ? @ A D G O P Q R U X ` a b c d g j r s t u x {              ! " # $ % & ' * - 5 6 7 8 9 : = @ H I J K L M N O P Q R S hUw @cQQcQcQcQcQcQhU= ..|AkQ .~AkQ ..|kQ .~kQ .|.| .|.| .|.|.|n..|kn..|k .|.|.|n..|kn..|k .|.|.|n..|kn..|kW.|.|.|n..|kn..|kA Ak.|.|QOh,= ..|AkQ .~AkQ ..|kQ .~kQ .|.|.|k .|.|.|k<.|QR.|QR.|QeQeQO<.|kQG.|.|kQ A..|.|.|n..|..|AkQkn..|.~AkQk .|Q Q nG.|.|kQW.|.|.|n..|..|AkQkn..|.~AkQk .|Q Q QG.|.|kQ<.|.AkQ Q .|Q<.|Q QG.|.|kQW.|.|.|n..|..|AkQkn..|.~AkQkA .|Q QG.|.|kQWAk .|QWOQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc """""""""""##########$$$$$$$$$$%%%%%%%%%%&'''''''''''''''(((((((((((())))))))))))*********+++++++++++++++++,,,,,,,,,,,,,,,,,----------------------..//003&45555555555777777777777778888888889888888888888888888888888888888999999999999999999999:::::::>>>???@@@@@@@@@@@@@@AAAABAAAAAAAAAAAAAAAlAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBCCCCCCCGGGHHHIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJKKKMMMMMMMPPPPPPPPQQQRRRRRRRRRRRRRRSSSSTSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSTTTTTTTTTTTTTTTTTTTTTTTTTUUUUUUUXXYYYZZZZZZZZZZZZZZ[[[[[[[[[\\\\\\\___a4''())*+++,,,---57788888899988:@@AAAAAABBBAACIIJJMPRRSSSSSSTTTSSUZZ[\_ 7'           / )  +1119;99><> / )  +1119;99><> / )  +1119;99><>8 (*((-+-&(&&+)+7HHHS   /               !!!"%    !#...`..1..333;R;;;;ANAACACAJOVTV (@((((.0.0.7<DBDP   !"$M (?((((.;..0.0.7<CAC (@((((.0.0.7<DBDPa   !"$### %'    #$& !O """*A****0=0020209>ECE###+C++++13131:?GEGSdddo  #$&     91  91  91 ( &  !A;;3..(( ..(( ((  # 0**"++#  NM      ! !"# # $&( ()**+-/ /01124667889;==>? ?!@"#BDDE$%&GHNHNGFIF!KM#'LG(OnPGF%NQSO,S GT)*+VXO.X GY,-.[]O0] G^/01`bO2b Gc234egO4g Gh567jlO6lGm89:8NpqnRrs;P<Euv=O>Gx{?yz@ABJC nWDQELFGHIOJ n\KSLQMRNSOPQR naSTlTVUVWX nfYV!ZY[U \\aW\nk]X!^__W `bR\an .ae#becb#dhe^#fk"["g]$hni\!jpRkl%m&a&nd$ospc!quWrs'tn5ur#vxwo#x{yk#z~"h"{j$|}i!~\%&n&q$p!a'n<#|#x#"u"w$v!f  %&{&~$}!k'n(# #"##""&'$)*!f-.%&&12$45!k89')<= @FnADBCGH!JK*f kNNRSZ,SZR>QTYQVXW=R[zRQZ]_[_?R`€bd[d@ReÀĀŀgi[iARjƀǀȀln[nBRoɀʀˀqs[sCRt̀̀΀vx[xDRyπЀрZ|}z^~ҀӀԀՀր׀؀ـڀ zcۀ܀݀ހ߀ zh zm zr!! mch%zw!! ^hm'zZ.w / r0  / w1 Z2 ZZ ZZ32.'!*5 -  0  72  #!5"##8$#%;""&$'>(!)@*+C !,-E#&.$%/01H2 *+34%5&&./6$7J128!9L45:;O72:<89=>?R@ >?AB'C)DBCDEE!FT GIJ HLM 88O[ PNQRI.JWUVK!LZXYMN5O P]N]^ [(Q``aR#SdcdT#UgfgV#Wj""jkX$YmmnZ![opq\]rst^_tvy`wxabcwd }~ef%g&&h$iyj!k{lm~nopqr st'u)v  [w!x y  z C {|.}~!5  9,R2 C2! 9C2 l.!5 (###""$! %&& $  ! ')  !"#Á!ā Ł'&)*' Ɓ,8&'-+./ǁ.ȁ23Ɂ!ʁ56ˁ́5́ ΁+:;8G=@ρ>?ЁсҁCD8EFӁ!ԁ ՁJK:ց"ׁY؁ZفځZ  &ہ_܁`݁ށ`"߁fgg&lmm!$')"stt,/1&yzz47:<"?BD&GJMORVY\_adgilorux{~"&8 "& "   &  %,3:AFQ  '.5<CJLPUZ_diRW\afk o~?Otw}|   :;0!/$%(+,367>EINLMUW\afkpu^chmrw{L HKNIA @-,)"('03=6<;FGSTWZ\_behilo|ru{z&  $%(+01479B<AGHtw}   +,($%!/6730:;LMIN"(),6<3=0- @FGWZSTu{ro|lhieb_  $%4701<GHdGC  R'.5<^RcWh\marfWwLkͫͫͫͫͫͫͫ0\ P P nP7 `.8&'.@GE &'.8AGE ,",&',GEE.HD&'$W&'AGE;P;Ąh&',0GE0,E ,8.H@&'8@H $U&'AHGE$$;&'&'G IPP $8P.8dAd.8,&'.8tAGE tll"&',GEE .HD&'$W&'AGE;P; h&',GEE 8.H&'8 $U&'AGE; |&'&' |G I, $.8A.8.8&' l.8AGE qf&',GEE $#.@,$,  .@.84A4}.@<<m b.8&'.8LAGE LDD9.&',GEE .HD|&'|$W&'AGEtt`;P`\; \hX&',GEE 8.H&'8 $U&'AGE; XT&', &' TG I $.8Aq.8&'.8AGE NC&',GEE #*.8A&'$i! H&',gdLGELHEHT.H\DT\@&'@$W&',gdhGEhdEdT.Hp&'Tp $U&'.HDGEx&'x $W&'.H&'GE( $UB(A 0B A(8&'AGE;P;h&'AGE:gdT&'A GE;P;h&'A(GE:gdh&'A0GE<<(;P($; $h &'A8GEXXD: Dgd|&'A0GEl;Plh; hhd&'A8GE; d`&',gdgd &' `G I $&',gd.HC0A8GEE ! \&',gdLGELHEHT.H\DT\@&'@$W&',gdhGEhdEdT.Hp&'Tp $U&'.HDGEx&'x $W&'.H&'GE( $UB(A &'AGE0B A(&'AGE8.88 6.0  .8! .@%.8% hg!86&)*t` ROTATE_ITEM!&)* b.r r191g191b191BEREKEN@, CHECK_VELD D($<@DH(,\(@(T(h(| ($<(@X(\t(x(Ȝ(ܤ(((**48<*$@X*0\`*8d|*@*HP*d*l*t*4*8P*TX*\t*x******,*0H*LP*$Tl*,p*4*<*D*L`*t*| 8*<@*D\*`x|****** * ( *, D *H ` *d h *l o'((( 8((<T(0Xp(8t(@(L(T(\(h(p (x((,D(H`(d|(((( *((,0*<4LDPT*XXpltx*|***** *(*,D( ((4(08P(8Tl(@p(L(T(\(h(p(x( $((@(D\(`x(|((((517V8^:lr>w?|@ACGHIJ0K5MCIP`QeRSUYZ[\!'_3aD .p'(S)~*+,-. .? 0J 3 8@HPh X\ /&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif`?U`$`,!`@tu,iyl lB:1 $$OPACKAGE o IS TYPE blk IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; TYPE klr IS TABLE OF varchar2(25) INDEX BY BINARY_INTEGER; tst number; obj_pos_b number ; --start block obj_pos_r number ; --start rij aantal_blokjes number ; draaipunt number ; blokje blk; back_ground_kleur varchar2(25); kleur klr; start_b number; line number; END; Aͫͫͫͫͫͫͫ w SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 **a"O"TST"OBJ_POS_B"OBJ_POS_R"AANTAL_BLOKJES"DRAAIPUNT"BLOKJE"BACK_GROUND_KLEUR"KLEUR"START_B"LINE"" &)/28;ACFIORSY[^abhkqtvxz|~         ) ! " #$% & '  ( (<Pdl  $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08%OOOO_(@@eedAAeedAA"PACKAGE"O"TYPE"BLK"NUMBER"BINARY_INTEGER"KLR"VARCHAR2"25"TST"OBJ_POS_B"OBJ_POS_R"AANTAL_BLOKJES"DRAAIPUNT"BLOKJE"BACK_GROUND_KLEUR"KLEUR"START_B"LINE"" !',-.2:>BHMNOS[_beijqy}  '+/07?CGHOW[]XYw @w @cQcQ    NM        ! !"$& &')+ +,.0013556 8: :;<<= ?A"ABDF$FG !IK&K L"#$ #(-27>CH  %*/49@EJ^ d*J/@9 %4Eͫͫͫͫͫͫͫ08 8F !  "&)*!&)*X  (, 04 8< @D HL PTX \` dhl pt $x|\ `   lB:1 $$ MOVE_ITEMPROCEDURE move_item ( w varchar)IS TYPE blok_backup IS TABLE OF varchar2(25) INDEX BY BINARY_INTEGER; Tel number :=1; blk_backup blok_backup; kleur varchar2(25); pos varchar2(25); x varchar2(25); y varchar2(25); t number; t2 number; stp number; Procedure back_up as Begin -- Back up item tel :=1; while tel < o.aantal_blokjes+1 loop pos := 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b+1)||'.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r+1); blk_backup(tel) := get_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR ); tel := tel +1; end loop; End; Procedure reset_item as -- Reset item. Begin tel:=1; kleur := o.back_ground_kleur;--get_item_property ( 'b1.r1',BACKGROUND_COLOR); while tel < o.aantal_blokjes+1 loop set_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR,kleur ); tel := tel +1; end loop; End; Procedure check_last_line as Begin tel:=1; stp :=0; while tel < o.aantal_blokjes+1 loop if floor(o.blokje(tel)/10)+ o.obj_pos_b+1 > 18 then stp :=1; end if; tel := tel +1; end loop; If stp = 0 then -- If not last line set blokje een lager tel:=1; while tel < o.aantal_blokjes+1 loop x := ('b' ||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b+1)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r)); if get_item_property(x,BACKGROUND_COLOR) != o.back_ground_kleur then stp :=1; end if; tel := tel +1; end loop; End if; End; Procedure write_blokje as Begin tel:=1; while tel < o.aantal_blokjes+1 loop set_item_property ( 'b'||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR,blk_backup(tel)); tel := tel +1; end loop; End; -- Main program BEGIN back_up; reset_item; stp :=0; if w = 'd' then -- move down check_last_line; If stp = 1 then -- Down not possible Zet blokje terug write_blokje; check_line; else -- zet een lager o.obj_pos_b := o.obj_pos_b+1; write_blokje; synchronize; o.start_b :=1; -- for game over end if; end if; -- End Down if w = 'r' then -- move down tel:=1; stp :=0; while tel < o.aantal_blokjes+1 loop if mod ( o.blokje(tel),10)+ o.obj_pos_r-1 = 0 then stp :=1; end if; tel := tel +1; end loop; If stp = 0 then -- If not last line set blokje een lager tel:=1; while tel < o.aantal_blokjes+1 loop x := ('b' ||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r-1)); if get_item_property(x,BACKGROUND_COLOR) != o.back_ground_kleur then stp :=1; end if; tel := tel +1; end loop; End if; If stp = 1 then -- Down not possible Zet blokje terug write_blokje; else o.obj_pos_r := o.obj_pos_r-1; write_blokje; end if; End if; if w = 'l' then -- move down tel:=1; stp :=0; while tel < o.aantal_blokjes+1 loop if mod ( o.blokje(tel),10)+ o.obj_pos_r+1 = 13 then stp :=1; end if; tel := tel +1; end loop; If stp = 0 then -- If not last line set blokje een lager tel:=1; while tel < o.aantal_blokjes+1 loop x := ('b l' ||to_char(floor(o.blokje(tel)/10)+ o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r+1)); if get_item_property(x,BACKGROUND_COLOR) != o.back_ground_kleur then stp :=1; end if; tel := tel +1; end loop; End if; If stp = 1 then -- Down not possible Zet blokje terug write_blokje; else o.obj_pos_r := o.obj_pos_r+1; write_blokje; end if; end if; -- End links end; yͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS40 FORMS4C /NSPC0/CHECK_LINESQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ0877m"PKG INIT"MOVE_ITEM"W"TEL"BLK_BACKUP"KLEUR"POS"X"Y"T"T2"STP"BACK_UP"RESET_ITEM"CHECK_LAST_LINE"WRITE_BLOKJE""x%(.0367=@AGJKQTU[^_ehnqwz      2) *  +,- . / "0 $1 3456,@Th|<2Cu T F%&'(  !#$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08:$ ml@eedAAAeedAAeedAAeedAAeedAAA %+*Aeeee T  54A! Ae 0 54A&%Aeeeeee T  54A! e 0 54A&%+AA:9 %+*A eeee T  54A! e 0 54A&%+AAA %+*A MT  54A! AAAA AA %+*Aeeeee T  54A! Ae 0 54A&% Ee+:9AAA %+*A eeee T  54A! e 0 54A&%+eAA $ A! ! AgFEA $AA %+*A 0 54A&%AAAA AA %+*Aeeeee T  54A! e 0 54A&%A Ee+:9AA A&%&%A $AA %+*A 0 54A&%AAAA AA %+*Aeeeee T  54A! e 0 54A&%A Ee+:9AA A&%0l&%AAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAex"MOVE_ITEM"W"VARCHAR"TYPE"BLOK_BACKUP"VARCHAR2"25"BINARY_INTEGER"TEL"NUMBER"1"BLK_BACKUP"KLEUR"POS"X"Y"T"T2"STP"BACK_UP"WHILE"O"<"AANTAL_BLOKJES"+"LOOP"b"||"TO_CHAR"FLOOR"BLOKJE"/"10"OBJ_POS_B".r"MOD"OBJ_POS_R"GET_ITEM_PROPERTY"BACKGROUND_COLOR"RESET_ITEM"BACK_GROUND_KLEUR"SET_ITEM_PROPERTY"CHECK_LAST_LINE"0">"18"="!="WRITE_BLOKJE"d"CHECK_LINE"SYNCHRONIZE"START_B"r"-"l"13""0 #$)*26ACGMRSTX`dgjnov~ !)-129AEIJQY]aquv  #'+,036:>AFKNOTXY^bchklorvz{  "#(,-2569<@DEILOSW[_chlmqtvz~ #&',016:;@DEHKOSTX[^bfkpsty}~   $)-.159<>AEJNOTXY^bchlmrvwz}   "%*./489>BCHMPQVZ[`dejnotxy|  "'+,0359=MQR]_aeilsuz~  %)*/2369=ABFILPTX[_`dhlquvz}       " % * . / 4 8 9 = @ D H K N R W [ \ ` e g k o r v z }       ! " & ) , 0 5 9 : > A C G K N U W \ ` a e j n o r v z }          # & * . / 3 6 9 = A D G K P T U Z ^ _ c g j n r t x |          " % , . 3 7 8 < A E F I M Q T V Y ] b f g l p q v z {        " % ' + / 2 7 ; < A E F K O P U Z ] ^ c g h m q r w { |    $'+/489=@CGLPQUXZ_cdhjnquy~    !"#$%&'()*-089:;<=>ADLMNOPQRSTUVY\defghilowxyz{|}~   !"#hU=w @cQQcQcQcQcQhU QG.|.|kQ .|.|.|n..|.|..|AkQkQn..|.|.~AkQkQ A..|.|.|n..|..|AkQkn..|.~AkQk .|QOhU Q kG.|.|kQW.|.|.|n..|..|AkQkn..|.~AkQk .|QOhU Q QG.|.|kQ<.|.|.|..|AkQkQQ Q .|Q<.|Q QG.|.|kQ Z.|.|@l.|n..|.|..|AkQkQn..|.~AkQk<.|.k Q .|QOhU QG.|.|kQW.|.|.|n..|..|AkQkn..|.~AkQkA .|QOWW Q<.|nW<.|QWW k.|kQWW kQ<.|n Q QG.|.|kQ<.|.|.|.~AkQkQQ Q .|Q<.|Q QG.|.|kQ Z.|.|.|n..|..|AkQkn..|.|.~AkQkQ<.|.k Q .|Q<.|QW k.|kQW<.|n Q QG.|.|kQ<.|.|.|.~AkQkQQ Q .|Q<.|Q QG.|.|kQ Z.|.|.|n..|..|AkQkn..|.|.~AkQkQ<.|.k Q .|Q<.|QW k.|kQWOQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQcQc  ! !!!!!!!!!!!!!!!!!!!!!!"""""""$))))))*+++,,,--------------..............................///111111133333333444555555555555556666766666666666666666666666666666666667777777777777777777788888888888889:::<<<<<<<?*BBBBBBCDDDEEEEEEEEEEEEEEFFFFGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGHHHHHHHJCLNNNOOOPPPQQQQQQQQRRRSSSSSSSSTTTUUUVVXXXXXXXXXXXYYYZZZ[[[[[aaaaaaaabbbcccddddddddddddddeeeeeeeeeeeeeeeeeeeeeeeeeeefffhhhhhhhjjjjjjjjkkkllllllllllllllmmmmnmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmnnnnnnnnnnnnnnnnnnnnnnnnooooooooooooopqqqssssssswwwwwwwwxxxyyzzzzzzzzzzz{{{L !!! "--.....13556666666777688<EEFFFFFFGGGFFHNOQRSTUXYZaddeeeehjllmmmmmmnnnPlnmooswxz{  ;""+    #$& JDA4#0##%#%#,1868BFLLLTyTTlTTTTZ\Z\Zchpnpz/)//a//2//444<S<<<<BOBBDBDBKPWUW%+++3K33339;9;9BGOMO[   #$&  O """*A****0=0020209>ECE"""*B****020209>FDFRc     #$& 5552%!")')37:     %&( G D 7 &3&&(&(&/4;9;E5#%#%#,1979 666"$;9;    #$& # R # %%%-D----3@335353<AHFH%%%-E----35353<AIGIUfffq      "#      #$& 5552%")')379      %&( E 7 &3&&(&(&/4;9;B5#%#%#,1979C 666"$;9;      !"    #$& 5552%")')37:     %&( E 7 &3&&(&(&/4;9;B5#%#%#,1979C 666"$;9;      !"#TTTLB<<4//33+/0**"**" 5& 63--% --%  5& 6 5& 6 #     V"        !#%  %&' '(*, ,-../13 345568: ":;<<= ?A $AB!" #DF &FG$% &IK (K L'( )NOQ OQNMPMRSNMQ*QUVS  *XdQSYWZ[+%,. ^_-$.1ab/01 24Wfgd+hi3748kl526;no7.8>(rs9-:Auv;,<Cxy=+>F{|?*@I~A) BKCDEFN !G HI"J K#1#L6MPN5ORP4QUR3$SXTUVW[ !X YZ%[ \d] ] ^H&__`GabbCced?eh:f>gkh=i`lmj<kpl; mrnopqu !r st"u#B#vFwwxEyyzD${||}~ ! %'d I  QQ (G   $)K J \*  [ WSNRQPO #!" j! '("#V#+,Z./Y12X$4756 ! ;<%' $@A BC]  IJL +JLIHKHMNIHLLPQN  STNJ,VbLNWUXY_ \]^€_`ÀĀŀ ƀUbeUcfgǀd-Ȁijɀcʀlmˀb̀op̀a΀rsπ` ЀuxрvwҀӀԀ !Հ |}ր׀"؀ ـ.ڀdJ ۀb ܀e݀  ހNL߀f/J,   h g  2yuqkponml  ! " #t#xw  v$     ! % {0z&2') J  |  LL 1 U   ~!#   "}#& $%& ')*(,)*0+,3-.6 /09"#12;%&34>()5 6@+.7,-89:C !; 23<=">##67?@E9:ABG<=C$DJ?BE@AFGHM !I FGJK%L'MJKN O NO PQOPQ  QT XYVN[\V(^_VJ,R\Vbg `cdS/T^ 22aaijg+IdgmraknoU/VgJ Wjltur1wxr3Xzakmy|z}~YZ"[\]r^_"` az1z4bzcd5e fu V g/hw 66z   i J,jkl mnopq r s/tu7vwxy$z{|}~ ! % , J    /J,    2 pl !  "##7$ ! #$% (3&)*0,-&2'12Á)ā'563J Ł89 :;Ɓǁ  ȁ@E>ABɁ/ʁJ ˁ?GHE1J>ILOJMŃ́%΁PQρ7ЁSTсҁ%Ӂ ԁWXJ1V[` Y\]Ձ/ց 88Zbc`  ׁef`J,؁ht%Z`igjkفځ noہ܁qr݁ށ߁ g!twguxy/{|~ $ 遅 ! % 9 v"J $t   %`Z/J,&  , ! $(2(+ .  1  36 8; ! "##=?B $!E"#$%H !& '(%) *J(+0,L-&.O2'/01)2R)J 3+ 45T  6W.` Z  7/8ZJ 9]/ 1Z_0:;%<=>b?@%A B 013 ilC&D'EF'ogruex#G/H0IJ0{~K8L9MN9#O@PAQRASLTMUVM#WTXUYZU[i\j]^j#_r`sabs cdef"%'*,#ghij/258:=A2klmnDGJ6opqrMPSVY\_behkstuvnqsvx#wxyz{~8{|}~#  ")07>CHMH$+29@EJTW\]`cejmpqtwz}F? => *)&%$-0:398DEORUZ[^acdhk~n{qtzyT  MHI54!$1'*0/8;E>DCLRSWZ]`Y!aefhklypqsv{>&7   %"! '+0./4<=?ICDFKVRUZ^_adglmpsuvz}  t}`c\]zwpqmjl%&)390:- * =>DE^aZ[tzqn{k~h  *0'$1!4>D;E85HIRSefpq  !"%./+0<=CDRU^_pslm}z  dN E$I+J@ 29ͫͫͫͫͫͫͫ0t   P2$u X U H .8##.@%H~ t#A .8% #z '$D&'&'.8AGEGE#G &'$i&'.8GE %` .8.@&'.8AGE &',ȒGEE.x&' $U&'AGE.8B.@  .8.8A_.@ .8&'.8AGE _T&',LGELHE H.xTDT@&'@\$W&'A\GE88$;$ ; &',GEE .x&' $U&'AGE.8Bxxd; d T&'&'TGI $8&'GE  .8.8A.8 #,&'&'.8BGEGE#% .8.@&'.8AGE &',GEE .x &'  $U&'AGE.8A.$$  .8.8,A,I.@44 .8&'.8DAGE D<<_T&',GE|E |.xDt&'t$W&'AGEllX;XT; TP&',GEE .x&' $U&'AGE.8A; PL LT&'&'TGI $8&'GE  .8.8A.8 # ,&'&'.8AGEGE#! Pt.8gd&'.8AGE gd&',gdXGEXTET`.xhD`hL&'Lp$W&'ApGED.8xADx<<(;($;$ &',gdGEE.x&' $U&'AGE.8A: gd@,gd&',gdGE E `.xD`&' $W&'A GE;;䄘&',gdHGEHDE D.xP&'PX $U&'AXGE<<(;(&'&'GI`` $8gd`.8tAgdtgd! ,.8gd&'GEgd,&'.8AGE gd &',gdTGETPEP\.xdD\dH&'Hl$W&'AlGE@@,;,(;($&',gdGEE.x&' $U&'AGEt;$t &'&' GIgd, $.8Agdgd! 00.8gd.@gd&'.8AGE gd&',gdDCLRSWZ]`Y!aefhklypqsv{>&7   %"! '+0./4<=?ICDFKVRUZ^_adglmpsuvz}  t}`c\]zwpqmjlB:1 $$;SET_BLKPROCEDURE set_blk (z number) IS tel number; t number; Procedure set_hem (a number,b number, c number , d number, e number, f number) as Begin o.aantal_blokjes := a ; o.draaipunt := b; o.blokje(1) := c; o.blokje(2) := d; o.blokje(3) := e; o.blokje(4) := f; End; BEGIN /* 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 */ if o.start_b = 0 then message('game over'); message('game over'); Delete_Timer('emp_timer'); o.start_b := 1; execute_trigger('WHEN-NEW-FORM-INSTANCE'); else o.start_b := 0; o.tst := o.tst+1; if o.tst=6 then Break; o.tst :=1; end if; o.obj_pos_b := 1 ; --start block o.obj_pos_r := 4 ; --start rij -- 1e aantal blokjes. -- 2e draaipunt. -- rest plaats blokjes If z=2 then set_hem(4,22,11,12,13,22); End if; If z=1 then set_hem(4,23,13,23,33,43); End if; If z=3 then set_hem(4,22,11,12,22,23); End if; If z=4 then set_hem(4,22,12,13,23,33); End if; If z=5 then set_hem(4,22,21,12,13,22); End if; If z=6 then set_hem(4,0,11,12,21,22); End if; If z=7 then set_hem(4,23,13,14,23,33); End if; If z=8 then set_hem(4,23,14,13,23,33); End if; tel:=1; while tel < o.aantal_blokjes+1 loop set_item_property ( 'b'||to_char(floor(o.blokje(tel)/10) + o.obj_pos_b)|| '.r'||to_char(mod ( o.blokje(tel),10) + o.obj_pos_r) ,BACKGROUND_COLOR ,o.kleur(o.tst)); tel := tel +1; end loop; synchronize; End if; END;4mͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O SQLFORMS FORMS40 FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 w/"PKG INIT"SET_BLK"Z"TEL"T"SET_HEM"A"B"C"D"E"F""%(.19?BHKQTZ]cfloqsu                $y  $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08?+*0/54A54A54A54A FEAFEAFEAA AA! A&%A AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAA AAAAAAAA %+*A eeee T  54A! e 0 54A&%+eA@AgAAeAAeAAeAAeAAeAAe  W"SET_BLK"Z"NUMBER"TEL"T"SET_HEM"A"B"C"D"E"F"O"AANTAL_BLOKJES"DRAAIPUNT"BLOKJE"1"2"3"4"START_B"="0"MESSAGE"game over"DELETE_TIMER"emp_timer"EXECUTE_TRIGGER"WHEN-NEW-FORM-INSTANCE"TST"+"6"BREAK"OBJ_POS_B"OBJ_POS_R"22"11"12"13"23"33"43"5"21"7"14"8"WHILE"<"LOOP"SET_ITE!lM_PROPERTY"b"||"TO_CHAR"FLOOR"/"10".r"MOD"BACKGROUND_COLOR"KLEUR"SYNCHRONIZE"" #$)*26ACGHOW[_`gosw !%)-147;?@CGKNQUYZ]aehkostw{ !$(+/38<=@DHKNRW[\_cgjlquvz}  $()-027;<?BEHKNQUZ^_cfhmqrux{~  #&)-267;>@EIJMPSVY\`dgnpuyz~   $%*-.148<=ADGKOSVY]abeimquz~   hU=hU====== k k AkQ AkQ AkQ AkQO<.|kQWnWnWn kQWn kQ k.|kQ<.|kQW kQ kQ kQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ<.|QWQQQQQQ QG.|.|kQW.|.|.|n..|..|AkQkn..|.~AkQkAkk .|QWOQcQcQcQcQcQc !!"""""###########$$$$$$$$$$$$$$$$$$%%%%%&&&&&*****************+++++++++++++++++,,,,,,,,,,,,,,,,,-----------------................./////////////////00000000000000000111111111111111113334444444444444455556555555555555555555555555555555666666666666666666666666666667777777999<#$$**++,,--..//0011445555556665579 !!!#+++-6668@@@BJJJL        !#!#) !$'*- !$'*-  #&), !$'*- !$'*- !#&), !$'*- !$'*-  "#%  P """*B****0=0020209>FDF"""*B****020209>FDFRdfdfdnln         0**"**"      b   3 3#l  " ! $& %(* ),. -02 145a3"37:589 <?5=> !AG5BECD * %IO5JM KL! "#,$ )QW5RU%ST& '(.) -Y_5Z]*[\+ ,-0. 1332 5bel cfg/08ij1 234;dnol5Arsl6Cvwl7Ez}l{|8 9:;l<G cI= >?@A BCDEZF GHI]JK_L MN Ob!PQ RSTU V"WXY Z#[\e]^g _jl`$a%b &c 'd $es fgu hx zi(j'k (l)m!*n+ op qr$s%t &u $v(wxy z{$|&} '~ ()! +$,& ' $    % & ,$ - (' .()!).'*+ /(01.(.' ()!9:<H"=;>?1BCEF ;JK!H3MN5PQ5ST544WX6Z[]^7`a8cfde 9 jk€ À"Ā::noŀ6ƀqrǀȀtuɀ;ʀwzˀxỳ ̀΀9π ~Ѐ р#Ҁ<ӀԀՀ ր=׀؀ ـڀ!Hۀ܀݀">ހ# ߀ ‘  怜 ꀠ#&-07:ADKNUX_bil4ortwy:|  #'+/!%)-16;@HPX`FNV^cdhkmquy~ptx'8;   !"#$%&(,-/234567@ADGILOmRlUVY\i_bhgps}v|{xhkpt  !"#$%&,-234567DG@Abh_\iYUVRlv|s}pOmLV d!%)-1 ͫͫͫͫͫͫͫ0P HP   &'.8,GE , z&'&'@G E$F&'&'@G E$F&'X$&'.pGE &'x$3&'.8GE &'&'.p4AGE4GE&'.<GE<,l  &'$&'.pGE&'.pGE&'.GE.D%DR H.L.T.\.d.l.tLT\ dlt#%.p|%|R H...... #.%R H...... #w.%Z P.... ..  #.$%$_ T.,.4.<.D.L.T,4< DLT#.\%\_ T.d.8l.t.|..dlt |#N.%` U...... #.%` U...... #.p&'.p AGE  QF&',HGEHDE DP.XDPX<&'<`$W&'A`GE44 ; ; 0&',GEE .&' $U&'AGE||h; h&'&'&',GEGE &' GI $.pA&'$i! &'E%GE &'E%GE&'GEpE% &'GEE%&'GE E% &'GEE%!8+X&)*!&)*SET_BLK game over emp_timerWHEN-NEW-FORM-INSTANCE !+ b.rp`SET_HEM O(($(, (4$<(<@X(D\t(Lx(T(\(d(l(t(| 8(<T(Xp(t((((((4(8P(Tl(p((((** 0*4L*Ph*$l*,*4*<*D*L*T,*\0H*dLd*lh*t*|*** *(*,D*H`*d|***** * $ *( @ *D \ *` x *| *    *4 *< *H *P  *X 0 *`4 L hP T *|X p *t x *| * * * * *  ,Kj{"#$$$%& *5*w++,,%-:-..//N0e0113 4I5u79<     P8@ X px  $(,048<@0H lB:1 $$Y| CHECK_LINE PROCEDURE check_line IS TYPE blk IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; x varchar2(25); y varchar2(25); tel number; b number; r number; tel2 number; lus1 number; lus2 number; cnt number; weg number; hoogste_blok number; lines blk; echt blk; BEGIN -- check new lines from blok tel :=1; while tel < o.aantal_blokjes+1 loop lines(tel) := floor(o.blokje(tel)/10)+ o.obj_pos_b; tel := tel +1; end loop; -- zet op volg orde tel :=1; while tel < o.aantal_blokjes+1 loop tel2 :=tel; while tel2 1 and weg=0 and lus1 !=999 loop lus2 :=1; weg :=1; while lus2 <13 loop x := 'b' ||to_char( lus1)|| '.r' ||to_char(lus2); if get_item_property(x ,BACKGROUND_COLOR) != o.back_ground_kleur then weg :=0; end if; lus2 := lus2+1; end loop; lus1 :=lus1-1; end loop; hoogste_blok:= lus1+1; -- remove line tel :=1; cnt := 0; while lines(tel) != 999 loop if lines(tel) !=0 then tel2 :=lines(tel); while tel2 > hoogste_blok loop lus2 :=1; while lus2 <13 loop x :='b' ||to_char(tel2-2+tel)||'.r'|| to_char(lus2); y := get_item_property(x,BACKGROUND_COLOR); x :='b' ||to_char(tel2+tel-1)||'.r'|| to_char(lus2); set_item_property(x,BACKGROUND_COLOR,y); lus2 := lus2+1; end loop; tel2 := tel2 -1; synchronize; end loop; end if; break; tel := tel +1; o.line := o.line +1; end loop; set_blk(o.tst); --call new block null; END;M5ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS40 FORMS4C SQLFORMS /NSPC0/SET_BLK$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ0844Q"PKG INIT"CHECK_LINE"X"Y"TEL"B"R"TEL2"LUS1"LUS2"CNT"WEG"HOOGSTE_BLOK"LINES"ECHT""b &)*039<BEKNTW]`fiorx{           3& '  ()*+ , - .  /  0 1 !# 2$%l$8@HPX`hpx  "$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08I6_ V(@eedAAeedAAA %+*AT  54A! AA %+*A %+*A %AAAAA %+*A AAAAAA AA %Aeeee e $e+:9AA AAAAAAA MA A AAA %Aeeee e Ee+:9AAAAAA A A MA %Aeeee Ae e+eeee Ae +AAgAKJKJAAAeAAeAAeAAeAAeAAeAAeAAe?"CHECK_LINE"TYPE"BLK"NUMBER"BINARY_INTEGER"X"VARCHAR2"25"Y"TEL"B"R"TEL2"LUS1"LUS2"CNT"WEG"HOOGSTE_BLOK"LINES"ECHT"1"WHILE"O"<"AANTAL_BLOKJES"+"LOOP"FLOOR"BLOKJE"/"10"OBJ_POS_B"999"!="0"13"b"||"TO_CHAR".r"GET_ITEM_PROPERTY"BACKGROUND_COLOR"="BACK_GROUND_KLEUR">"-"2"SET_ITEM_PROPERTY"SYNCHRONIZE"BREAK"LINE"SET_BLK"TST""0 #$/15;@ABFNRVW^fjmptu|  "#*26:;BJNRSZbfjkrz~ #'+0459<@DGNPUYZ^cghkosvx|   $(,156:=AEJNOSVZ^aeilptw~  !%&*-1489=@DHKOSVZ^ahjostw{|  "#(,-158<@BFJMQUZ^_cfimrvw{~ "&'+.378<?DHIMPRVZ]aehoqvz{  "&*/348;?CHLMQTX\_cgjqsx|} #$)-.38;<AEFKOPTW[`ehimquz~        # ( , - 1 4 9 = > C G H L P U Y Z ^ a e h l p u y z }             ! " % ( 0 1 2 3 4 7 : B C D E F I L T U V W X Y Z [ \ ] ^ hUw @cQcQ QG.|.|kQ A.|..|AkQk .|Q QG.|.|kQ G.|.|kQ<.|AA A AA A .|Q .|Q Q Q QG.|.|kQ<.|A A AA .|Q .|Q AQ Q lQ QG.|AQ A QG.|Q .|.|.|n.An.<.|.k Q .|Q<.|Q AA .|Q Q .|Q AQ AQ QG.|Q .|Q .|Q Q QG.|Q .|.|.|n.n.<.|.k Q .|Q .|Q .|Q Q QG.|AQ<.|AQ AG.| QG.|Q .|.|.|n..|.|Qn. . .|.|.|n..|.|Qn.W .|Q .|QWW .|Q k.|kQWkOOQcQcQcQcQcQcQcQc  !!!!!!"""""""""######%%%%%%%''''''',,,---...//////////////0000000000011111122222222233333335555555777777:::;;;<<<===========>>>>>>???@@@@@@@@AAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBCCCEEEEEEEGGGGGGGGHHHHHHHHHJJJJJJJLLLMMMMMMMOOOOOOUUUUUUVVVWWWWWWWWWWWWWWWWWWWWWWXXXYYYZZZZZZZZ[[[[[[[[[[[[[[[[[[[[[\\\\\\\\\\\\\\]]]_______aaaaaaaccccccciiijjjkkkkkkkkkkkmmmmmmmmmmmnnnnnnoooooooopppqqqqqqqqrrrrrrrrrrrrrrrrrrrrrrrrrrrrrssssssstttttttttttttttttttttttttttttuuuuuuvvvvvvvxxxxxxxyyy|||}}}}}}}~~~~~~~~~~~ %'//035=@AAAAABBEGJMWWWZ[[[[[\\_ackmoqrrrrrrrstttttttuvxy|}~       " *&"'.,.     "  "#% #           "#%              - '   )///7 333 !757I            ,,,'.2    -% (///7 666!$<:<N         $71&,&&*&&+-3:::B+-71&.&&*&&+/3:::B'):!"         / 3  ,/6&&:l&&:V        " "#%' '(*, ,-/1 1246 679;";< >@$@A!"#CE&E F$%&HJ(J K'()MO*O P  RT,T U  .XYV !*[gV\Z]^+,G !ab-.Jde/012MZimgjk3NP !no45Rqr67Utu89Wwz:xy;<=Z !> ~?@ Ag !BC\ !DV !EVFG_ !HIbJKLMe 0 ! NOi 0PQlRSTUor VWtXNw !YNy 0{ DZN ! [N !\N 0 ]N 0D 0^_ 0` !ab !cV 0dV !eVD!fVgh 0ijklmno"pDqN 0DrN 0sS ! tN 0   !uv !w 0xy 0zV{S !!| !VD#}#$V !~&'V?)2 V*(+,"./S !!(452 067S !:;2 0=C(2><?@ 0$ <EFCGH&JK&MN&%%QR'TUS !((YZ' 0C^i<\_`+bc)*gh,]kliDnoC 0pq 02v{(twx+D#u}{~N?S !{??2D#2 ! ! VN?! V5N VD#+V-5+D#"5!$:$D*:$ &&€ À&Āŀ&ƀ%%ǀ'Ȁ5((ɀ'ʀ:&ˀ"̀̀)΀*πЀр,Ҁ 'D#Ӏ):ԀՀ":ր*5׀.؀%5ـ+VIڀۀ(5܀+V !݀ +V?#ހ 7V   ߀"+N. !!0 5- "7N: !#<!". 0#$N? !'-4(&)*-A 0ID&/0 l0-:283&-3145I:$ L1:;28<=&R?@&UBC&X%%FG'[IJ]LM.` 0/ !((ST'c:WX28 YZ)e*^_28`a&hcd&kfg&n%%jk'qmn. spq  v 0 ! ((wx 'y:{|280{* 28: :3- 0 . 0 3-1 626 !  !63 !"3#$7V4%&'5(7V7%)*+,(-./0%1234(5678  %9:;<!#(=>?@&)+.%ABCD1479(EFGH<?ADHKNQT $).38=BGLQ !&+05:?DINSWZ"%( _`cfhlp}sv|{  -1039<t8ABD\mIXLWOPSV[]afdejrsuyz| &%+,.1679V]z>RAQDEHKPNOU[\bveuhilotrsy}~[Sp}sv|_`cf-1ABOPLWIXdeafrsyz+,67NOKPHDEAQU>R[\rsotlhieuybv}~d ?NS0!D5:&I+ ͫͫͫͫͫͫͫ0D iP  .88&'.8AGE 8u,8&',8ؒGEE.@D&'$W&'AGEēE.8A88r.88&'.8AGE 8E8P&'.8AGE P,8$$ E ,,P884E 4@,@oc,8LLHE H,E,p,8X,Pdd`E `,XTE, T,PpplEp l.8xAPxP..8A88.8P.88.Hp&'.8AGE P,PE ,p,g \,PE ,E,p,8,PE ,E, .8A88.8APPL,8.HE .Pp.88.8h,8E .HT H,8  E EP.8P.XP,8<<8E 8$;`$ ; xPD: D&'&'GIXX $8&'XGE  .8p.8lAPlPO.PtptK @,h,8E |E |.8Ahh.Pp.8A88,h.HE 8E ,E,X.Pp.8X .Pp .HX .8`.8p.X`X;`; x`: &'&'GI   $8&' GE  .P0 lp.8 A` `f.8(BX(X.80AX0x.88.Ph,8<<8E 8,.HD,D ,8PPLE L,.PX,Xi ],8dd`E `,E,PPx; 1.8`.Xl`l.BPA8|;`|x; xxt`: t&'&'GI $8$AP8.8B;`; x`: &'&'GI$ $.8A``.8 BP P&'$i&'$.8(A8(8&'&'.80AGE$0GE$&''GE$!<UX&)*t` CHECK_LINE&)*  b.r|_(8\($`(8(@(H(P(X(`,(h0H(pLd(xh(((((( ($<(@X(\t(x*****$*, $*8(,*@0H*LLP*XTX*d\`*pdh*xl*********0*48*<T*X\*`x*|* *$*<DX*l*t *  * *$ < *@ X *\ ` *d | * * * *      *  *($ < *0@ X *<\ ` *Dd | *P *X *d *l | * *  * $ ( , 0 4 8 *< T *X p *t  * *  *( *0  8 A!]"#%',-./0%1A2m3{57:;<=>? @ A_BCEGHJLM$*OFU[V`WXYZ[\6];_IOa]ccqivj{kmnopqr`stuvxy(.|:}H~hn 8@HPX`x MN&%%QR'TUS !((YZ' 0C^i<\_`+bc)*gh,]kliDnoC 0pq 02v{(twx+D#u}{~N?S !{??2D#2 ! ! VN?! V5N VD#+V-5+D#"5!$:$D*:$ &&€ À&Āŀ&ƀ%%ǀ'Ȁ5((ɀ'ʀ:&ˀ"̀̀)΀*πЀр,Ҁ 'D#Ӏ):ԀՀ":ր*5׀.؀%5ـ+VIڀۀ(5܀+V !݀ +V?#ހ 7V   ߀"+N. !!0 5- "7N: !#<!". 0#$N? !'-4(&)*-A 0ID&/0@,r0808 BD1 $ P2_09_FEB_200112_46_28BEGIN Declare timer_id Timer; interv NUMBER(5) := 300; BEGIN set_blk(o.tst); timer_id := CREATE_TIMER('emp_timer', interv, REPEAT); end;  END;)WHEN-BUTTON-PRESSED (BLOCK20.START_TIMER)yͫͫͫͫͫͫͫFORMS4C w SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0$0@00" 0800b$00x !"9_black(00x " $& white%00x "# green se)00x# $&' : darkgreenmp_(00x " $& gray96 = = =(00x " $&SEgray92zzz(00x " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800Pr%00x !"#r0g0b0(00x "$%& r25g0b0@(00x "$%&ar r50g0b0(00x "$%&30 r75g0b0(00x "$%&r_ r88g0b0(00x "$%&PE r100g0b0(00x!" $&TOr0g0b50*00x "$ &(r25g0b50@*00x "$ &(r50g0b50*00x "$ &(r75g0b50*00x "$ &(r88g0b50$,00x $& (*ͫ r100g0b50(00x!" $&r0g0b75*00x "$ &(r25g0b75@*00x "$ &(ymr50g0b75NT*00x "$ &(r75g0b75*00x "$ &(r88g0b75,00x $& (* r100g0b75(00x!" $&r0g0b88*00x "$ &(r25g0b88@*00x "$ &(ͫr50g0b88D*00x "$ &(r75g0b88*00x "$ &(r88g0b88,00x $& (*' r100g0b88(00x"# $&  r0g0b100,00x $& (*! r25g0b100@,00x $& (*" r50g0b100,00x $& (*# r75g0b100,00x $& (*$ r88g0b100,00x $& (*% r100g0b100&00x  "$x&gray*00x " $ &('darkgray&00x "$(cyanr0*00x" $ &(@)darkcyan(00x " $&*gray80333333(00x " $&+gray76=p=p=p(00x " $&,gray72GGG(00x " $&-gray68QQQ'00x! "$%.r0g25b0@$)00x " $&'/r25g25b0@@# )00x " $&'00r50g25b0@ )00x " $&'01r75g25b0@)00x " $&'2r88g25b0@ray92zzz(00x " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800`r+00x $ &()3 r100g25b0@*00x" $ &(4r0g25b50@,00x $ & (*0g5 r25g25b50@@,00x $ & (*06 r50g25b50@,00x $ & (*7 r75g25b50@,00x $ & (*8 r88g25b50@,00x $ & (*9 r100g25b50@*00x" $ &(:r0g25b750@,00x $ & (*; r25g25b75@@,00x $ & (*< r50g25b75@,00x $ & (*= r75g25b75@,00x $ & (*> r88g25b75@,00x $ & (*0? r100g25b75@*00x" $ &(0@r0g25b885@,00x $ & (*0A r25g25b88@@,00x $ & (*0B r50g25b88@,00x $ & (*0C r75g25b88@,00x $ & (*0D r88g25b88@,00x $ & (*E r100g25b88@*00x# $ &(F r0g25b100@0g,00x $ & (*G r25g25b100@@,00x $ & (*H r50g25b100@,00x $ & (*I r75g25b100@,00x $ & (*J r88g25b100@.00x & ( *, $K r100g25b100@@$00x  !" (Lred(00x "$%&Mdarkred$00x "0Nblue(00x"# $&Odarkblue(00x " $&Pgray64\(\(\((00x " $&Qgray60ffffff(00x " $&Rgray56ppp(00x " $&Sgray52zzz'00x! "$%anTr0g50b0)00x " $&'ayUr25g50b0@0)00x " $&'=pVr50g50b0)00x " $&'GWr75g50b0 )00x " $&'Xr88g50b0"$+00x $ &()Y r100g50b0*00x" $ &(Zr0g50b500,00x $ & (*[ r25g50b50@,00x $ & (*\ r50g50b50,00x $ & (*z] r75g50b50 " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800pr,00x $ & (*`^ r88g50b50,00x $ & (*_ r100g50b50*00x" $ &(P`r0g50b750,00x $ & (*0a r25g50b75@,00x $ & (*b r50g50b75,00x $ & (* (c r75g50b75,00x $ & (* (d r88g50b75,00x $ & (*e r100g50b75*00x" $ &(fr0g50b885,00x $ & (*g r25g50b88@,00x $ & (*h r50g50b88,00x $ & (*i r75g50b88,00x $ & (*0j r88g50b88,00x $ & (*0k r100g50b88*00x# $ &(0l r0g50b100,00x $ & (*0m r25g50b100@,00x $ & (*0n r50g50b100,00x $ & (*0o r75g50b100,00x $ & (*p r88g50b100.00x & ( *,q r100g50b100'00x "$% ryellow+00x $ &()s darkyellow*00x "$ &(tmagenta.00x &( *,u darkmagenta(00x " $& vgray48(00x " $&!wgray44\\\(00x " $&xgray40(00x " $&0ygray36ףף'00x! "$%zr0g75b0)00x " $&'{r25g75b0@()00x " $&'ay|r50g75b00)00x " $&'p}r75g75b0)00x " $&'z~r88g75b0!+00x $ &() r100g75b0&.08x& ( *,00r0g75b50=p008x ( * ,. 00r25g75b50@008x ( * ,.0 00r50g75b50008x ( * ,. 00r75g75b50008x ( * ,." 00r88g75b50008x ( * ,. ( 00r100g75b50.08x& ( *,00r0g75b750,00x $ & (*z] r75g50b50 " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800r008x ( * ,.` 00r25g75b75@008x ( * ,.  00r50g75b75008x ( * ,.g5 00r75g75b75008x ( * ,.b7 00r88g75b75008x ( * ,. 00r100g75b75.08x& ( *,00r0g75b885 (008x ( * ,. 00r25g75b88@008x ( * ,. 00r50g75b88008x ( * ,.0 00r75g75b88008x ( * ,. 00r88g75b88008x ( * ,. $ 00r100g75b88.08x' ( *, ( 00r0g75b100008x ( * ,.0 00r25g75b100@008x ( * ,.  00r50g75b100008x ( * ,.5g 00r75g75b100008x ( * ,.b1 00r88g75b100208x * , .0 00r100g75b100 (.08x & ( *,00custom1.08x & ( *,00custom2 .08x & ( *,000custom3rk.08x & ( *,00custom4a,08x $ & (* &00gray32,08x $ & (*00gray28QQQ,08x $ & (* 00gray24,08x $ & (* $00gray20+08x% &()000r0g88b0-08x & (*+00r25g88b0@0-08x & (*+b000r50g88b0-08x & (*+00r75g88b0 "-08x & (*+00r88g88b0$&/08x ( *,- 00r100g88b0.08x& ( *,00r0g88b50008x ( * ,. 00r25g88b50@008x ( * ,. 00r50g88b50008x ( * ,. 00r75g88b50008x ( * ,. 00r88g88b50008x ( * ,. 00r100g88b50.08x& ( *,00r0g88b750008x ( * ,.0 00r25g88b75@50b50 " $&ͫgray88(00x " $&FOgray84(((SYSSTANDARD /NSPC0/O /NSPC0/SET_BLKFORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ089 *"PKG INIT""TIMER_ID"ID"INTERV""#&(.12357     $o ͫͫͫͫͫͫͫ0D pp7L |.,,$,$&''G E$&'&'4$GI0 4$4!4 &)*&)*, emp_timer%$D\,`x4!8o o  x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800 $r008x ( * ,.` 00r50g88b75008x ( * ,.  00r75g88b75008x ( * ,.g5 00r88g88b75008x ( * ,.b7 00r100g88b75.08x& ( *,00r0g88b885008x ( * ,. 00r25g88b88@008x ( * ,. 00r50g88b88008x ( * ,. 00r75g88b88008x ( * ,.0 00r88g88b88008x ( * ,. 00r100g88b88.08x' ( *, $ 00r0g88b100008x ( * ,. ( 00r25g88b100@008x ( * ,.0 00r50g88b100008x ( * ,.  00r75g88b100008x ( * ,.5g 00r88g88b100208x * , .0b1 00r100g88b100.08x & ( *,00custom5 (.08x & ( *,00custom6.08x & ( *,00custom7 .08x & ( *,000custom8rk,08x $ & (*00gray16 ,08x $ & (* (00gray12GGG,08x $ & (* (00gray8,08x $ & (* (00gray4-08x& (*+ (00r0g100b0/08x ( *,-0 00r25g100b0@/08x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50.08x' ( *,00 00r0g100b75008x ( * ,.00 00r25g100b75@008x ( * ,.00 00r50g100b75008x ( * ,. 00r75g100b75008x ( * ,.ST 00r88g100b75208x * , .0ET 00r100g100b75 .08x' ( *,ͫ 00r0g100b88008x ( * ,. 00r25g100b88@008x ( * ,. 00r50g100b88008x ( * ,.IM 00r75g100b88008x ( * ,.2 00r88g100b88208x * , .0 00r100g100b88008x( * ,. 00r0g100b100208x * , .0 00r25g100b100@208x * , .0 00r50g100b100D208x * , .0 00r75g100b100208x * , .0 00r88g100b100$208x * , .0& 00r100g100b100I0*:BF^(b fjl(vz|((( SQL*FormsLFORM50C:\gein_fmb\tetris.fmb7xe +1xe +1;Copyright (c) Oracle Corporation 1990. All Rights Reserved.ht (08o (0 x$|,4  0800 n0800 $0@00"  0800 ; 0800Y0c tab tabs JKLM optgen/box)NM optacc/box)NM optwiz/box)NM optrun/box)NO 50 pushb"P#+ $ 51 pushb"P#+  52 pushb"P#+  0800l//3/;/a/:/3 S\c^k_Tn /O``A_oTETi! (Xj<kltUSl<  $ 8 L ` t         $ 8 L ` t         ( < P d x         , @ T h |         0 D X l         4H\p$8L`t(<Pdx,@Th|0DXl  4H\p$8L`t(<Pdx,@Th|0DXl  4H\p$8L`tPUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4MODULE2PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSHl_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4PUSH_BUTTON4startF8 -- RechtsF7 -- Draaien F6 -- Links ml}3GGG~VVVUSTETMODULE2WINDOW1DEFAULT&SMAR!lTBAR E8048081 81d818282l820l D0/9:WHEN-NEW-FORM-INSTANCEWHEN-NEW-FORM-INSTANCE0 D0/:WHEN-TIMER-EXPIREDWHEN-TIMER-EXPIRED1D D1T/:KEY-ENTQRYKEY-ENTQRY1 D1/:PRE-RECORDPRE-RECORD1D2/:KEY-EXEQRYKEY-EXEQRY2LD2\/:KEY-CLRRECKEY-CLRREC2D2/:KEY-CLRBLKKEY-CLRBLK2D3 /:KEY-CLRFRMKEY-CLRFRM38\FUettdTDDD%D4DD4 4% 4,/BLOCK20BLOCK204\5p7@535( !54tuiyl5D5Pg5\h jik/&Z~LEEGLEEGCANVAS2blackgrayMS Sans Serif6@36T6h!6ttui@yl66g6h jik:6/&Z~START_TIMERSTART_TIMERstartCANVAS2blackgrayMS Sans SerifE867D5p7$/ :WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED838!8 tu&ily0l808<g8Hh `jik/&Z~AANTLAANTLCANVAS2blackgrayMS Sans Serif88% 8/B1B1 9$:8;T?@ACD<E`98\99!:t&uiyl:g:$h jik /Z~R1R1PUSH_BUTTON4CANVAS2blackMS Sans Serif;8\;;!;$t5uiyl;4g;@h jik /Z~R2R2PUSH_BUTTON4CANVAS2blackMS Sans Serif<8\<$<,!<@tDuiylT 8\>\>d!>xtbuiyl>g>h jik/Z~R5R5PUSH_BUTTON4CANVAS2blackMS Sans Serif?p!8\?x?!?tquiyl?g?h jik/Z~R6R6PUSH_BUTTON4CANVAS2blackMS Sans Serif"l@"8\@@!@tuiyl@g@h jik/Z~R7R7PUSH_BUTTON4CANVAS2blackMS Sans SerifA#8\AA!AtuiylAgAh jik/Z~R8R8PUSH_BUTTON4CANVAS2blackMS Sans SerifB$8\BB!BtuiylBgCh jik/Z~R9R9PUSH_BUTTON4CANVAS2blackMS Sans SerifC%8\CC!D tuiylDgD(h jik/Z~R10R10PUSH_BUTTON4CANVAS2blackMS Sans SerifE&8\EE!E0tuiylE@gELh jik/Z~R11R11PUSH_BUTTON4CANVAS2blackMS Sans SerifF('8\F4F@!FTtuiylFdgFph jik/Z~R12R12PUSH_BUTTON4CANVAS2blackMS Sans SerifF(F% F/B2B2) GLH|IJL$M\NOQR<S|TH*FH$H,!H@t&uiylHPH\gHhh jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifIT+FI\Id!Ixt5uiylIIgIh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifJ,FJJ!JtDuiylJJgJh jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifK-FKK!KtSuiylKLgLh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifL.FMM !M tbuiylM0M<gMHh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifN4/FN<ND!NXtquiylNhNtgNh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifOl0FOtO|!OtuiylOOgOh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgray$lMS Sans SerifP1FPP!PtuiylPPgPh jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifQ2FQQ!RtuiylRRgR(h jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifS3FS S,!S@tuiylSPS\gShh jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifTT4FT`Tl!TtuiylTTgTh jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifU5FUU!UtuiylUUgUh jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifV<6VD% VL/B3B37 VWY,Zd[\^ _D`|abd4W8UWW!Wt&u,iylWWgWh jik%/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifX9UXX!Xt5u,iylYY gYh jik$/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifZ:UZ Z!Z(tDu,iylZ8ZDgZPh jik#/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif[<;U[D[L![`tSu,iyl[p[|g[h jik"/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\t<U\|\!\tbu,iyl\\g\h jik!/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif]=U]]!]tqu,iyl]]g]h jik /&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif^>U^^!_tu,iyl__$g_0h jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif`?U`$`,!`@tu,iyll`P`\g`hh jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifaT@Ua\ad!axtu,iylaagah jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifbAUbb!btu,iylbbgbh jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifcBUcc!ctu,iylddgd h jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serife CUee$!e8tu,iyleHeTge`h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifeDe% e/B4B4E f<glhiklLmnoq,rlsg Fetgg!g0t&u;iylg@gLggXh jik=/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifhDGethLhT!hht5u;iylhxhghh jik</&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifi|Hetii!itDu;iyliigih jik;/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifjIetjj!jtSu;iyljjgkh jik:/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifkJetkk!ltbu;iyll l,gl8h jik9/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifm$Ketm,m4!mHtqu;iylmXmdgmph jik8/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifn\Letndnl!ntu;iylnngnh jik7/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifoMetoo!otu;iyloogoh jik6/&Z~lR8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifpNetpp!ptu;iylqq gqh jik5/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifrOetrr!r0tu;iylr@rLgrXh jik4/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifsDPetsPs\!sptu;iylssgsh jik3/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans SeriftQettt!ttu;iylttgth jik2/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifu,Ru4% u</B5B5S uvxyTz{|~4l$vTtvv!vt&uJiylvvgvh jik1/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifwUtww!wt5uJiylwwgxh jik0/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifxVtxy!ytDuJiyly(y4gy@h jik//&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifz,Wtz4z<!zPtSuJiylz`zlgzxh jik./&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif{dXt{l{t!{tbuJiyl{{g{h jik-/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|Yt||!|tquJiyl||g|h jik,/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif}Zt}}!}tuJiyl~~g~ h jik+/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif [t!0tuJiyl@LgXh jik*/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD\t lLT!htuJiylxgh jik)/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|]t!tuJiylgh jik(/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif^t!tuJiylgh jik'/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif_t!(tuJiyl8DgPh jik&/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif`% /B6B6a ,\<t\bd ! t&uYiyl0<gHh jikW/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4cd<D!Xt5uYiylhtgh jikV/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Seriflddt|!tDuYiylgh jikU/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifed!tSuYiylgh jikT/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Seriffd!tbuYiylg(h jikS/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifgd$!8tquYiylHTg`h jikR/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifLhdT\!ptuYiylgh jikQ/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifid!tuYiylgh jikP/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifjd!tuYiylgh jikO/0l&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifkd ! tuYiyl0<gHh jikN/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4ld@L!`tuYiylp|gh jikM/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Seriftmd!tuYiylgh jikL/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifn$% ,/B7B7o  D|$\tp|!t&uhiylgh jikK/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifq!t5uhiylgh jikJ/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifr!tDuhiyl$g0h jikI/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifs$,!@tSuhiylP\ghh jikH/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifTt\d!xtbuhiylgh jikG/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifu!tquhiylgh jikF/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifv!tuhiylgh jikE/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifw ! tuhiyl0<gHh jikD/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4x<D!Xtuhiylhtgh jikC/&Z~R9R9PUSH_BUTTON4CANVAS2@ lblackgrayMS Sans Seriflyx!tuhiylgh jikB/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifz!tuhiylgh jikA/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif{!tuhiyl(4g@h jik@/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|% /B8B8} L,d L~T!t&uwiyl ,g8h jik}/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$T,4!Ht5uwiylXdgph jik|/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\Tdl!tDuwiylgh jik{/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifT!tSuwiylgh jikz/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifT!tbuwiyl gh jiky/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifT !(tquwiyl8DgPh jikx/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif<TDL!`tuwiylp|gh jikw/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SeriftT|!tuwiylgh jikv/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifT!tuwiylgh jiku/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifT!tP luwiyl ,g8h jikt/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$T0<!Ptuwiyl`lgxh jiks/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifdTp|!tuwiylgh jikr/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif % /B9B9 4lLdlt!t&uiylgh jikq/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!t5uiylgh jikp/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tDuiylg h jiko/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif !0tSuiyl@LgXh jikn/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifDLT!htbuiylxgh jikm/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|!tquiylgh jikl/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiylgh jikk/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiyl ,g8h jikj/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$,4!HtuiylXdgph jiki/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\ht!tuiylgh jikh/&Z~` lR10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiylgh jikg/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiyl$g0h jikf/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif„% œ/B10B10 D|ƴ$\˔DЄD!t&uiyl$g0h jike/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD$,!@t5uiylP\ghh jikd/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifTD\d!xtDuiylƈƔgƠh jikc/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifnjDǔǜ!ǰtSuiylgh jikb/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tbuiylgh jika/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD ! tquiyl0<gHh jik`/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4D<D!Xtuiylhtgˀh jik_/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SeriflDt|!̐tuiyl̠̬g̸h jik^/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifͤDͬʹ!tuiylgh jik]/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tuiyl$g0h jik\/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayplMS Sans SerifD(4!HtuiylXdgph jik[/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\Dht!шtuiylјѤgѰh jikZ/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif% /B11B11 Ҕ4lؤL݄dlt!ӈt&uiylӘӤgӰh jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifԜԤԬ!t5uiylgh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tDuiylg h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif !0tSuiyl@LgXh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifDLT!htbuiylx؄gؐh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|لٌ!٠tquiylٰټgh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifڴڼ!tuiylgh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiyl ,g8h jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$,4!HtuiylXdgph jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\ht!ވtuiylޘޤgްh jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serifߜߨߴ!tuiyllgh jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiyl$g0h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif% /B12B12 D|$\DD!t&uiyl$g0h jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD$,!@t5uiylP\ghh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifTD\d!xtDuiylgh jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tSuiylgh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tbuiylgh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD ! tquiyl0<gHh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4D<D!Xtuiylhtgh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SeriflDt|!tuiylgh jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tuiylgh jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tuiyl$g0h jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD(4!HtuiylXdgph jik/&Z~lR11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\Dht!tuiylgh jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif% /B13B13 4lLdlt!t&uiylgh jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!t5uiylgh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tDuiylg h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif !0tSuiyl@LgXh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifDLT!htbuiylxgh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|!tquiylgh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiylgh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayGGGGGGGGGGGGGGGGGGHHHHHHHJCLNNNOOOPPPQQQQQQQQRRRSSSSSSSSTTTUUUVVXXXXXXXXXXXYYYZZZ[[[[[aaaaaaaabbbcccddddddddddddddeeeeeeeeeeeeeeeeeeeeeeeeeeefffhhhhhhhjjjjjjjjkkkllllllllllllllmmmmnmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmnnnnnnnnnnnnnnnnnnnnnnnnooooooooooooopqqqssssssswwwwwwwwxxxyyzzzzzzzzzzz{{{L !!! "--.....13556666666777688<EEFFFFFFGGGFFHNOQRSTUXYZaddeeeehjllmmmmmmnnnlMS Sans Serif!tuiyl ,g8h jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$,4!HtuiylXdgph jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\ht!tuiylgh jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiylgh jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiyl$g0h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif% /B14B14 D |   $\DD!t&uiyl$g0h jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif D $ ,! @t5uiyl P \g hh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif TD \ d! xtDuiyl  g h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif D  ! tSuiyl  g h jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif D  ! tbuiyl  g h jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif D ! tquiyl0<gHh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4D<D!Xtuiylhtgh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SeriflDt|!tuiyllgh jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tuiylgh jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD!tuiyl$g0h jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifD(4!HtuiylXdgph jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif\Dht!tuiylgh jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif% /B15B15 4l L!"$dlt!t&uiylgh jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!t5uiylgh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tDuiylg h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif !0tSuiyl@LgXh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifDLT!htbuiylxgh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif|!tquiylgh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!tuiylgh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif! tuiyl  ,g 8h jik/&Z~lR8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif!$!,!4!!Htuiyl!X!dg!ph jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif"\"h"t!"tuiyl""g"h jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif###!#tuiyl##g#h jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif$$$!%tuiyl%%$g%0h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif%%% %/B16B16 &'D(|)*,$-\./12D3&%D&&!'t&uiyl''$g'0h jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif(%D($(,!(@t5uiyl(P(\g(hh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif)T%D)\)d!)xtDuiyl))g)h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif*%D**!*tSuiyl**g*h jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif+%D++!+tbuiyl+,g,h jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif,%D-- !- tquiyl-0-<g-Hh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif.4%D.<.D!.Xtuiyl.h.tg.h jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif/l%D/t/|!/tuiyl//g/h jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif0l%D00!0tuiyl00g0h jik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif1%D11!2tuiyl22$g20h jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif3%D3(34!3Htuiyl3X3dg3ph jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif4\%D4h4t!4tuiyl44g4h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif55% 5/B17B17 56794:l;<>?L@AC6d46l6t!6t&uiyl66g6h jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif7477!7t5uiyl77g7h jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif8488!8tDuiyl99g9 h jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif: 4::!:0tSuiyl:@:Lg:Xh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif;D4;L;T!;htbuiyl;x;g;h jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif<|4<<!<tquiyl<<g<h jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif=4==!=tuiyl==g>h jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif>4>>!?tuiyl? ?,g?8h jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif@$4@,@4!@Htuiyl@X@dg@ph j#lik/&Z~R9R9PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifA\4AhAt!AtuiylAAgAh jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifB4BB!BtuiylBBgBh jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifC4CC!DtuiylDD$gD0h jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifDD% D/B18B18  EFDG|HIK$L\MNPQDRE DDEE!Ft&u iylFF$gF0h jik/&Z~R1R1PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifG DDG$G,!G@t5u iylGPG\gGhh jik/&Z~R2R2PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifHT DDH\Hd!HxtDu iylHHgHh jik/&Z~R3R3PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifI DDII!ItSu iylIIgIh jik/&Z~R4R4PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifJDDJJ!Jtbu iylJKgKh jik/&Z~R5R5PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifKDDLL !L tqu iylL0L<gLHh jik/&Z~R6R6PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifM4DDM<MD!MXtu iylMhMtgMh jik/&Z~R7R7PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifNlDDNtN|!Ntu iylNNgNh jik/&Z~R8R8PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifODDOO!Otu iylOOgOh jik/&Z~R9R9lPUSH_BUTTON4CANVAS2blackgrayMS Sans SerifPDDPP!Qtu iylQQ$gQ0h jik/&Z~R10R10PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifRDDR(R4!RHtu iylRXRdgRph jik/&Z~R11R11PUSH_BUTTON4CANVAS2blackgrayMS Sans SerifS\DDShSt!Stu iylSSgSh jik/&Z~R12R12PUSH_BUTTON4CANVAS2blackgrayMS Sans Serif STL  T\_h^DoTlihyDT|/]dY CANVAS2CANVAS2WINDOW1 TUd SUp % tui2yU|[UUU/&rTEXT69TEXT69graynonenoneUUW$X|UTTVV0SAMENGESTELDE_TEKST70SAMENGESTELDE_TEKST70WVPVVU VGVlWgWh jikm/Z~TEKSTSTRING71TEKSTSTRING71F6 -- Links blackMS Sans SerifWLTTWhWSAMENGESTELDE_TEKST72SAMENGESTELDE_TEKST72WWX VW$ X0GXDlX\gXhh jikm/Z~TEKSTSTRING73TEKSTSTRING73F7 -- Draaien blackMS Sans SerifX!TTXXSAMENGESTELDE_TEKST74SAMENGESTELDE_TEKST74"WXYt#VX| YGYlYgYh jikm/Z~TEKSTSTRING75TEKSTSTRING75F8 -- RechtsblackMS Sans Serif$LSK@jj0l\@\L[\X\d\p\|g\h jikU&Zr~26 !"#$%&'()*+,-./ 01 2x36456789:;dblackgraynoneblackblacktransparentMS Sans Serif%;\]L]]^\]$&:]8/ nROTATE_ITEMROTATE_ITEM]':]/ OO](:]/ MOVE_ITEMMOVE_ITEM^<):^L/ ;SET_BLKSET_BLK^*:^/YCHECK_LINECHECK_LINE+Kb^_,J_,_D/cVISUAL_ATTRIBUTE53VISUAL_ATTRIBUTE53r100g100b0-Oj_t_.N_ihyDklWINDOW1WINDOW1/e@_@a|`D0d`P`\C DEFGH`AAANTLAANTL1]`|2^_`AANTL3`a a(aDa`P0_01_FEB_200116_40_11P0_09_FEB_200112_46_28P1_11_FEB_200115_06_06P0_15_FEB_200117_25_24P2_15_FEB_200117_25_24a4daaCDEFGHb@ALEEGLEEG5]b 6^a|b4LEEG7bhbP1_11_FEB_200115_06_06P0_15_FEB_200117_25_24:= weg; end if; tel2:=tel2+1; End loop; tel :=tel+1; end loop; -- Remove dubbele tel2 :=1; tel :=1; weg := 999; while tel2 1 and weg=0 and lus1 !=999 loop lus2 :=1; weg :=1; while lus2 <13 loop x := 'b' ||to_char( lus1)|| '.r' ||to_char(lus2); if get_item_property(x ,BACKGROUND_COLOR) != o.back_ground_kleur then weg :=0; end if; lus2 := lus2+1; end loop; lus1 :=lus1-1; end loop; hoogste_blok:= lus1+1; -- remove line tel :=1; cnt := 0; while lines(tel) != 999 loop if lines(tel) !=0 then tel2 :=lines(tel); while tel2 > hoogste_blok loop lus2 :=1; while lus2 <13 loop x :='b' ||to_char(tel2-2+tel)||'.r'|| to_char(lus2); y := get_item_property(x,BACKGROUND_COLOR); x :='b' ||to_char(tel2+tel-1)||'.r'|| to_char(lus2); set_item_property(x,BACKGROUND_COLOR,y); lus2 := lus2+1; end loop; tel2 := tel2 -1; synchronize; end loop; end if; break; tel := tel +1; o.line := o.line +1; end loop; set_blk(o.tst); --call new block null; END;M5ͫͫͫͫͫͫͫw SYSSTANDARD /NSPC0/O FORMS40 FORMS4C SQLFORMS /NSPC0/SET_BLK$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ0844Q"PKG INIT"CHECK_LINE"X"Y"TEL"B"R"TEL2"LUS1"LUS2"CNT"WEG"HOOGSTE_BLOK"LINES"ECHT""b &)*039<BEKNTW]`fiorx{           3& '  ()*+ , - .  /  0 1 !# 2$%