+,¬a$w$SPRCHR¤SPRBIT¤SWEEP¤NMB¤Z¤LINÅÇNMÂÄÆÁXØÔÉÚÙ€€€€€ !!DISSOLVE SUBROUTINE CREATOR›BY FRED PINHO›%%(c) 1985, ANTIC PUBLISHING INC.› <<€;A,;A,‚;A‰,ƒ;@,„;@,##@@K:A%(}GRAPHICS MODE DESIRED(0-15)16…-@0; AA6†-‡(-† )†!@# A- @02f(DO YOU WANT A:.( 1.SPIRAL DISSOLVEE( 2.SWEEP DISSOLVEZ( INPUT NUMBERf6…-@P<= A6ˆ-‡)ˆ@*ˆ@3 A= @PF$(WORKING.$ˆ"@A`P;%+† @)†"@)†"@,16‰-@; ApZ! A@ A! AdsN(@=31999 REM SPIRAL DISSOLVE FOR BIT-MAPPED MODES(GR.3-11,14-15)s(@32000 DIM SPBTDIS$(417)nOO(@32005 SPBTDIS$(1,85)=>:@4,7@<@…,>:@4,xQQ(@32010 SPBTDIS$(86,170)=>:@4,7@†<Ap,>:@4,‚RR(@32015 SPBTDIS$(171,255)=>:@4,7Aq<AU,>:@4,ŒRR(@32020 SPBTDIS$(256,340)=>:@4,7AV<A@,>:@4,–\R(@32025 SPBTDIS$(341,417)=>:@4,7AA<A,>:@4,\ Ap '(@ 32200 RETURN' Aª! A A€! A´II(@832029 REM SPIRAL DISSOLVE FOR CHARACTER MODES(0-2,12,13)¾(((@32030 DIM SPCHDIS$(413)ÈOO(@32035 SPCHDIS$(1,85)=>:@4,€7@<@…,>:@4,ÒQQ(@32040 SPCHDIS$(86,170)=>:@4,€7@†<Ap,>:@4,ÜRR(@32045 SPCHDIS$(171,255)=>:@4,€7Aq<AU,>:@4,æRR(@32050 SPCHDIS$(256,340)=>:@4,€7AV<A@,>:@4,ð\R(@32055 SPCHDIS$(341,413)=>:@4,€7AA<A,>:@4,\ Apú'(@ 32200 RETURN' Av A p A0! AR(@#32059 REM SWEEP DISSOLVE(ALL MODES)v(@32060 DIM SWPDIS$(189)NN(@32065 SWPDIS$(1,85)=>:@4,‚7@<@…,>:@4,PP(@32070 SWPDIS$(86,170)=>:@4,‚7@†<Ap,>:@4,"uQ(@32075 SWPDIS$(171,189)=>:@4,‚7Aq<A‰,>:@4,[ Apu(@ 32200 RETURN,(LISTING COMPLETED.6.6Š-F:@,&A(.Š A0@@ŠB7tŠJ6‹-@6ƒ.(?T')@Š(>:Š,'6„.=:,^!!Š"AU)‹"@A€h-Š @H)Š!@W(& A)'- …r)6ƒ7‹<‹,.>:Š,6‹-‹%@) A@|#B:ƒ," A'# …† 6‡-A:ƒ,($I.(&ýINCORRECT RESPONSE! PLEASE TRY AGAIN!BŒ-@AF ŒI$š##(LISTING ROUTINE TO DISK AS ¤ˆ"@A`®‰AP¸G( D:SPRBITDS.LSTD@@D:SPRBITDS.LSTG$ÂG( D:SPRCHRDS.LSTD@@D:SPRCHRDS.LSTG$ÌG( D:SWEEPDIS.LSTD@@D:SWEEPDIS.LSTG$Öt)(@ 32099 REM DELAY ROUTINEt(@=32100 RESTORE 32110:FOR I=1026 TO 1064:READ Z:POKE I,Z:NEXT Ià``(@O32110 DATA 173,254,3,240,5,206,254,3,208,251,173,255,3,240,11,206,255,3,169,255êZW(@F32120 DATA 141,254,3,24,144,235,173,0,4,141,254,3,173,1,4,141,255,3,96Z$ô77SPIRAL DISSOLVE FOR CHARACTER MODES(GR.0-2,12,13)›þ: #A !-@A%"Ž36€7<,.>:Ž,7 :$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›MM141,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›0KK105,1,133,205,165,206,105,0,133,206,165,204,205,42,4,240,4,144,13,176›:JJ7,165,203,205,41,4,144,4,177,205,145,203,238,253,3,173,253,3,197,207›DGG144,198,240,196,32,2,4,24,144,2,16,181,169,1,141,253,3,230,208,24›NPP169,20,101,203,133,203,165,204,105,0,133,204,24,169,20,101,205,133,205,165›XJJ206,105,0,133,206,165,204,205,42,4,240,4,144,33,176,7,165,203,205,41›bGG4,144,24,165,204,205,44,4,240,4,176,15,144,9,165,203,205,43,4,240›lLL2,176,4,177,205,145,203,238,253,3,173,253,3,197,208,144,178,240,176,32›vFF2,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›Ú**SPIRAL DISSOLVE FOR BIT-MAPPED MODES›ä: #AP!-@A%"Ž367<,.>:Ž,7 :$î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,104,141,42,4,104,141,41,4,104,133,213,104,133›KK212,104,141,44,4,104,141,43,4,104,133,215,104,133,214,216,162,9,169,0› NN133,207,133,208,177,205,145,203,169,1,141,253,3,230,207,160,0,24,165,203›NN105,1,133,203,165,204,105,0,133,204,24,165,205,105,1,133,205,165,206,105› NN0,133,206,177,205,145,203,238,253,3,173,253,3,197,207,144,216,240,214,32›*EE2,4,24,144,2,16,197,169,1,141,253,3,230,208,160,0,24,169,20,101›4OO203,133,203,165,204,105,0,133,204,24,169,20,101,205,133,205,165,206,105,0›>NN133,206,177,205,145,203,238,253,3,173,253,3,197,208,144,216,240,214,32,2›HFF4,24,144,2,16,195,169,1,141,253,3,230,207,160,0,56,165,203,233,1›RNN133,203,165,204,233,0,133,204,56,165,205,233,1,133,205,165,206,233,0,133›\PP206,177,205,145,203,238,253,3,173,253,3,197,207,144,216,240,214,138,240,62›fEE32,2,4,24,144,2,16,192,169,1,141,253,3,230,208,160,0,56,165,203›pPP233,20,133,203,165,204,233,0,133,204,56,165,205,233,20,133,205,165,206,233›zNN0,133,206,177,205,145,203,238,253,3,173,253,3,197,208,144,216,240,214,32›„GG2,4,202,16,197,173,41,4,133,203,173,42,4,133,204,173,43,4,133,205›ŽOO173,44,4,133,206,162,30,169,20,133,216,177,205,145,203,177,214,145,212,24›˜NN165,203,105,1,133,203,165,204,105,0,133,204,24,165,205,105,1,133,205,165›¢MM206,105,0,133,206,56,165,212,233,1,133,212,165,213,233,0,133,213,56,165›¬LL214,233,1,133,214,165,215,233,0,133,215,198,216,208,192,32,2,4,202,208›¶AA182,162,0,104,104,157,22,208,157,196,2,232,224,5,208,243,96›À""SWEEP DISSOLVE FOR ALL MODES›Ê: #A €!-@A‰%"Ž36‚7<,.>:Ž,7 :$Ô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›NN4,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›PP165,203,105,21,133,203,165,204,105,0,133,204,24,165,205,105,21,133,205,165›$II206,105,0,133,206,32,2,4,206,253,3,208,187,162,0,104,104,157,22,208›.$$157,196,2,232,224,5,208,243,96›8##+†"@)†"@,AB{6€7@F,.>:@ ,36€7AB,.>:@@,K6€7AU,.>:@@,c6€7A,.>:@@,{6€7A),.>:@@,L6€7A,.>:@–,$V##+†"@)†"@,AP`--+†"@)†"@)†"@,Apj{67@X,.>:@,367A9,.>:@@,K67AR,.>:@@,c67Ab,.>:@@,{67Au,.>:@@,t%67A),.>:@@,% Ap~{67@X,.>:@,367A9,.>:@,K67AR,.>:@,c67Ab,.>:@,{67Au,.>:@,ˆ67A),.>:@,’J #A!-@@%"Ž+"†=67A',.>:Ž,@'J A œ ¦'†"@'67A',.>:@p,°'†"@'67A',.>:@`,º""5,15,10,30,20,60,76,76,76,60›Ä67A,.>:@–,$ÎAA+†"@)†"@)†"@)†"@)†"@,AØ99+†")†"@)+†!@*† @,,A€â{6‚7@2,.>:@,36‚7@F,.>:@,K6‚7@Y,.>:@,c6‚7@u,.>:@ ,{6‚7@ˆ,.>:@ ,ìc6‚7A,.>:@,36‚7A(,.>:@,K6‚7AD,.>:@,c6‚7AW,.>:@,ö A{6‚7@2,.>:@ ,36‚7@F,.>:@@,K6‚7@Y,.>:@@,c6‚7@u,.>:@9,{6‚7@ˆ,.>:@9, c6‚7A,.>:@@,36‚7A(,.>:@@,K6‚7AD,.>:@A,c6‚7AW,.>:@A,\ #A !-@%"Ž+"†=6‚7@7,.>:Ž,O6‚7@˜,.>:Ž,R'\ A0 (;;24,20,10,20,40,40,80,80,160,192,192,192,20,10,160,160›26‚7A‰,.>:@–,$€D1:DISOLV2.BAS