<=åëÁÂDLÓHDN²ÔØÙÚÖ×STARÔDÌSCÒSPCHDIS¤HDN±SWPDIS¤ÉSHÉSLÏCHAR¤DLSÔ € €€SCREEN DISSOLVER DEMO›BY FRED PINHO›%%(c) 1985, ANTIC PUBLISHING INC.› ]6€-F:A@,&A€&@0 A I(DRAWING FIRST SCREENS A`] A uA€&@!+@-AYO6‚-F:A`,%AV$F:Aa,u6ƒ-F:‚%@,%AV$F:‚%@,L!(LOADING DISSOLVE ROUTINES+ A€5 A`? AL(>:A%,(DRAW SECOND HIDDEN SCREEN›2m(DRAWING SECOND SCREEN' A`9AYC#ApW„-@@_"…†‡c…i,†‡m „<7„-@@#"ˆ‰…†‡'ˆ-,‰…3/†‡7 „Fq @!„-@@+"‰…†‡1,‰…7/†‡; „M,@@_,@@q,@@P7„-@@#"ˆ‰…†‡'ˆ-,‰…3/†‡7 „ZMAIN SCREEN›d‚A€+@-AVŠ'AV9AY[6‹-F:A`,%AV$F:Aa,‚6Œ-F:‹%@,%AV$F:‹%5@,nm @X!…-@-,…9,…@= …Q†-@@],†i,@†m †x @&!…-@@-,…@9,…@= …Q†-@@],@†i,@†m †A@4‚R-@@)(@SCREEN;-@@R(@ DISSOLVESŒ) A0)(SPIRAL DELAY VALUE 2000b_6„-?:C:,<Œ%A‰<Ž%A‰<A <Œ<Œ%A™<@8<A<AH<@p<,b(‘ A0(>:A%,–{(SPIRAL DELAY VALUE 6000{6„-?:C:,<Œ%A‰<ƒ%A‰<A`<Œ<Œ%A™<@@<A<AF<A4<@, s A03(>:A%,SWEEP DELAY VALUE 3000s6„-?:C:,<Œ<Ž<A0<@8<A<AH<@p<,ªs A03(>:A%,SWEEP DELAY VALUE 9000s6„-?:C:,<Œ<ƒ<A<@@<A<AF<A4<@,´_ A0?(>:A%,"CHANGES AT INCREASING DELAY VALUESI A`S A`_6…-A¾}(SPIRAL DELAY VALUE …s6„-?:C:,<Œ%A‰<Ž%A‰<…<Œ<Œ%A™<@8<A<AH<@p<,} A`Èk'(>:A%,SWEEP DELAY VALUE …a6„-?:C:,<Œ<ƒ<…<@@<A<AF<A4<@,k A`Ò 6…-…%A…!BP Ü,(>:A%,"@w, Aæ-B2y@-(HIT OPTION TO GO ONð F:B2y,@A@ú$„-@A „$ SPIRAL DISSOLVE SUBROUTINE›G;A,#A.-@A2"‡@67<,.>:‡,D G$"OO104,104,133,204,104,133,203,104,133,206,104,133,205,104,141,255,3,141,1,4›,FF104,141,254,3,141,0,4,104,141,42,4,104,141,41,4,104,141,44,4,104›6MM141,43,4,216,162,10,169,0,168,133,207,133,208,177,205,145,203,169,1,141›@MM253,3,230,207,24,165,203,105,1,133,203,165,204,105,0,133,204,24,165,205›JKK105,1,133,205,165,206,105,0,133,206,165,204,205,42,4,240,4,144,13,176›TJJ7,165,203,205,41,4,144,4,177,205,145,203,238,253,3,173,253,3,197,207›^GG144,198,240,196,32,2,4,24,144,2,16,181,169,1,141,253,3,230,208,24›hPP169,20,101,203,133,203,165,204,105,0,133,204,24,169,20,101,205,133,205,165›rJJ206,105,0,133,206,165,204,205,42,4,240,4,144,33,176,7,165,203,205,41›|GG4,144,24,165,204,205,44,4,240,4,176,15,144,9,165,203,205,43,4,240›†LL2,176,4,177,205,145,203,238,253,3,173,253,3,197,208,144,178,240,176,32›‹FF2,4,24,144,2,16,159,169,1,141,253,3,230,207,56,165,203,233,1,133›NN203,165,204,233,0,133,204,56,165,205,233,1,133,205,165,206,233,0,133,206›•FF165,204,205,44,4,240,4,176,15,144,9,165,203,205,43,4,240,2,176,4›šKK177,205,145,203,238,253,3,173,253,3,197,207,144,196,240,194,32,2,4,24›ŸLL144,2,16,177,169,1,141,253,3,230,208,56,165,203,233,20,133,203,165,204›¤OO233,0,133,204,56,165,205,233,20,133,205,165,206,233,0,133,206,165,204,205›©FF42,4,240,4,144,33,176,7,165,203,205,41,4,144,24,165,204,205,44,4›®II240,4,176,15,144,9,165,203,205,43,4,240,2,176,4,177,205,145,203,238›³JJ253,3,173,253,3,197,208,144,178,240,176,32,2,4,202,208,161,162,0,104›¸33104,157,22,208,157,196,2,232,224,5,208,243,96›ÂDELAY SUBROUTINE›Ì2 #Ap!-A&Ad%"‡+‡/ 2$ÖJJ173,254,3,240,5,206,254,3,208,251,173,255,3,240,11,206,255,3,169,255›àAA141,254,3,24,144,235,173,0,4,141,254,3,173,1,4,141,255,3,96›êSWEEP DISSOLVE SUBROUTINE›ôG;A‰,#A.-@A‰2"‡@67<,.>:‡,D G$þOO104,104,133,204,104,133,203,104,133,206,104,133,205,104,141,255,3,141,1,4›II104,141,254,3,141,0,4,216,160,0,169,10,141,253,3,162,20,177,205,145›OO203,24,165,203,105,20,133,203,165,204,105,0,133,204,24,165,205,105,20,133›QQ205,165,206,105,0,133,206,202,208,223,56,165,203,233,19,133,203,165,204,233›&KK0,133,204,56,165,205,233,19,133,205,165,206,233,0,133,206,162,20,32,2›0NN4,24,144,2,208,185,177,205,145,203,56,165,203,233,20,133,203,165,204,233›:NN0,133,204,56,165,205,233,20,133,205,165,206,233,0,133,206,202,208,223,24›DPP165,203,105,21,133,203,165,204,105,0,133,204,24,165,205,105,21,133,205,165›NII206,105,0,133,206,32,2,4,206,253,3,208,187,162,0,104,104,157,22,208›X$$157,196,2,232,224,5,208,243,96›bDRAW FIRST HIDDEN SCREEN›lf6-F:AY,$AY.#ABˆ-@L"‰…†‡V@C\,‰…b/†‡f ˆv;ˆ-@ !"‰…†‡+@1,‰…7/†‡; ˆ€-‰-@@"…†‡#…),†‡- ‰ŠO…-@@)AT5,…?A†K,…@O …”O…-@@@)A†5,…?ATK,…@O …žO†-@@@)AT5,†?A†K,@†O †¨O†-@@@)A†5,†?ATK,@†O †²_ A‰!…-@@-,…@1 …;ArO…-@@[,…@_ …¼F At!…-@ @-,…@1 …C,@@F$ÆSS7,2,7,9,8,4,8,7,9,5,9,7,7,10,7,11,13,7,17,7,12,9,12,10,13,8,13,10,14,10,14,11›ÐMM14,12,15,12,3,12,4,12,1,13,4,13,1,14,5,14,1,15,2,15,8,15,8,17,9,15,9,17›Újj13,3,13,4,6,2,6,7,13,5,14,5,15,4,15,6,5,5,5,7,1,7,3,7,14,14,15,14,15,15,18,15,8,14,12,14,10,15,10,17›ä3339,2,3,35,3,3,35,17,2,33,12,6,40,13,6,34,14,6›î7736,2,10,38,3,10,36,4,10,34,9,11,37,10,11,34,11,11›ø1133,17,10,36,2,17,37,14,17,40,15,17,37,16,17›]]62,18,0,63,19,0,92,18,1,93,19,1,140,15,0,19,4,157,14,1,18,5,142,12,1,13,1,142,18,6,18,7› aa11,12,15,16,10,12,17,19,10,13,16,19,10,14,15,19,9,14,14,19,8,14,13,19,8,15,12,19,7,15,11,19›@@9,18,10,19,0,2,2,4,0,3,5,8,0,4,4,8,0,5,4,9,0,6,2,8,0,7,1,8› UU175,7,8,9,8,175,9,9,9,10,188,7,9,7,11,188,6,10,6,12,188,5,10,5,11,173,3,12,5,14›*REDEFINE CHARACTER SET›4g +@.6Š-+F:A,&@,$AV?6‘-P:Š'AV,O6’-Š&‘$AV[A’gA‘>H“;@(,26“.h©…Í©à…α͑ËÈÐùæÌæÎ¥ÎÉâÐí`>6‡-?:C:“,,H#A`HE„-@@!"…/†-@3"‡=…%†%Š‡A †E „RN%6”-F:A`,%AV$F:Aa,K6Ž-F:”%@,%AV$F:”%@,N$\ll8,165,231,231,231,255,219,255,231,16,66,231,165,231,165,231,255,255,24,161,162,228,232,240,227,227,227›f__32,5,69,231,231,167,255,255,231,40,24,60,126,66,126,219,255,255,48,0,0,0,36,36,36,255,255›p^^56,153,153,153,153,153,255,153,255,64,0,0,0,0,165,255,219,255,80,0,24,60,126,60,24,24,24›zYY88,4,14,63,115,0,48,120,252,96,0,44,68,254,76,44,20,22,104,0,52,34,127,50,52,40,104›„__208,255,255,255,255,255,255,255,255,112,0,24,8,40,106,28,20,20,120,0,24,16,20,86,56,20,20›Ž>>224,0,50,36,120,112,112,80,80,232,0,76,36,30,14,14,10,10›˜EE240,160,224,160,240,248,252,254,255,248,1,1,1,3,167,239,191,253›¢HH480,255,239,231,231,103,39,7,7,488,191,239,255,254,252,248,240,192›€D1:DISOLV1.BAS