u#u BASIC 8 WINDOW KALEIDOSCOPEGu WRITTEN BY LOU WALLACE 7-1-88|u REQUIRES BASIC 8 OR THE BASIC 8 RUNTIME SYSTEM¹u( (C) COPYRIGHTED 1986 LOU WALLACE/DAVID DARUS WALRUSOFTÓu2 ALL RIGHTS RESERVEDàu<× 690:þ%vF FIND OUT IF 16 OR 64K VDCvP— 23013,0:— 23026,05vZ@þ:,1:@ç,0,0,0:@þL,0,0,0gvd@þ<,1,0,0,640,400,16000,0:@þK,1,0:@þL,255,0,0qvn@þK,0•vxVR²0:TQ²@þ=,0,0,0:‹ TQ²0 § VR²1 v‚@þ:,VR¼vŒ— 23013,134:— 23026,134Öv–@þM,0:@þK,0:@þL,0,0,5w @à,254,11,8,2,2,2,"ÂASIC 8 128 ÃOLOR ×INDOW ÆUN"'wª@þ2,214,25,0,358,25,0,1‰w´@à,254,4,32,1,1,2,"ÔHIS PROGRAM IS A SIMPLE, BUT HIGHLY COLORFUL KALEIDOSCOPE. ÉT USES THE"íw¾@à,254,2,48,1,1,2,"ÂASIC 8 @×ÉÎÄÏ×ÏÐÅÎ AND @ÃÌÅÁÒ COMMANDS. ÔHE FILL VALUE IS 170, A BINARY"QxÈ@à,254,2,64,1,1,2,"VALUE THAT LOOKS LIKE THIS: 10101010. ÔHIS GIVES A DITHERED PATTERN, WHICH"µxÒ@à,254,2,80,1,1,2,"WHEN COMBINED WITH DIFFERENT FOREGROUND AND BACKGROUND COLORS GIVES US UPTO"yÜ@à,254,2,96,1,1,2,"128 DIFFERENT COLORS. ÔO MAKE THIS FAST ENOUGH, THE ROUTINES ARE CALLED"}yæ@à,254,2,112,1,1,2,"DIRECTLY FROM MACHINE LANGUAGE. ×HEN YOU HAVE SEEN ENOUGH OF THIS COLOR"áyð@à,254,2,128,1,1,2,"CYCLING (QUITE ÁMIGALIKE É MIGHT ADD), PRESS THE ÅÓÃ KEY TO RETURN TO"zú@à,254,2,144,1,1,2,"THE ÂASIC 8 ENVIRONMENT."9z@à,254,55,152,1,1,2,"ÌOU ×ALLACE"_z I²0 ¤ 445:‡ A:— Ñ("0B80")ªI,A:‚z@à,254,7,170,3,3,2,"ÐRESS ÁNY ËEY ÔO ÓTART"™z"¡ù A$©z,‹ VR²0 § þ¼z6— Ñ("0D3C"),76Ðz@— Ñ("0D3D"),148àzJ@þM,0:@þK,3çzTþ÷z^‹ VR²1 § þ{h@þM,2:@þK,6{r— Ñ("0D3C"),100/{|— Ñ("0D3D"),1966{†þD{@þL,0,0,3T{šž Ñ("0B80")n{¤@þM,0:@þK,0:@þL,0,0,7¦{®@à,254,8,8,2,2,2,"ÓO ÙOU ÔHOUGHT ×E ×ERE ÆINISHED!" |¸@à,254,4,32,1,1,2,"×E CONTINUE WITH ANOTHER KALEIDOSCOPE, THIS TIME USING DIRECT WRITES TO THE"n|Â@à,254,2,48,1,1,2,"COLOR ATTRIBUTE RAM ITSELF. ×HY? ÂECAUSE IT IS MUCH, MUCH FASTER THAN ANY"Ò|Ì@à,254,2,64,1,1,2,"@×ÉÎÄÏ×ÏÐÅÎ/@ÃÌÅÁÒ COMMANDS CAN BE, AND WE KNOW THEY ARE VERY FAST ALREADY."6}Ö@à,254,2,80,1,1,2,"ÓO SET BACK AND ENJOY THIS HYPER SPEED VERSION, KEEPING IN MIND THAT IT TOO"š}à@à,254,2,96,1,1,2,"IS STILL IN BITMAP GRAPHICS MODE, AND STILL HAS 128 DIFFERENT COLORS FOR US"ü}ê@à,254,2,112,1,1,2,"TO BE DAZZLED BY. ÁS BEFORE, WHEN YOU HAVE SEEN ENOUGH OF THIS COLORFUL"^~ô@à,254,2,128,1,1,2,"ANIMATION (STILL ÁMIGALIKE), PRESS THE ÅÓÃ KEY TO RETURN TO THE ÂASIC"†~þ@à,254,2,144,1,1,2,"8 ENVIRONMENT."¬~@à,254,55,152,1,1,2,"ÌOU ×ALLACE"·~ 1260ç~@à,254,7,170,3,3,2,"ÐRESS ÁNY ËEY ÔO ÓTART"ñ~&¡ù A$0‹ VR²0 § þ:@þM,0:@þK,3:@þL,170,0,0gD— Ñ("0D2E"),19:— Ñ("0C0A"),36:— Ñ("0B87"),Ñ("80"):— Ñ("0B8C"),Ñ("2F")nNþ~X‹ VR²1 § þœb@þ<,0,0,2,640,200,0,16000²l@þK,0:@þL,170,0,0üv— Ñ("0D2E"),25:— Ñ("0C0A"),50:— Ñ("0B87"),Ñ("80"):— Ñ("0B8C"),Ñ("3E")€€þ€Šž Ñ("0B80")-€”@þM,0:@þK,0:@þL,0,0,9X€ž@à,254,21,36,1,2,2,"ÔHAT'S ÁLL ÆOLKS!"a€¨þ 2n€²@þ8:þ%:€€¼ƒ 173,0,255,141,56,13,169,170°€Æƒ 141,39,13,169,4,141,46,13Ð€Ðƒ 169,8,141,47,13,169,0,141ð€Úƒ 52,13,141,53,13,141,54,13äƒ 141,55,13,76,17,13,169,20îƒ 141,0,255,216,32,36,12,173Pøƒ 52,13,141,40,13,173,53,13qƒ 141,41,13,173,54,13,141,42‘ƒ 13,173,55,13,141,43,13,32²ƒ 204,12,173,48,13,141,40,13Ó ƒ 173,49,13,141,41,13,173,54ô*ƒ 13,141,42,13,173,55,13,141‚4ƒ 43,13,32,204,12,173,48,135‚>ƒ 141,40,13,173,49,13,141,41V‚Hƒ 13,173,50,13,141,42,13,173v‚Rƒ 51,13,141,43,13,32,204,12—‚\ƒ 173,52,13,141,40,13,173,53¸‚fƒ 13,141,41,13,173,50,13,141Ø‚pƒ 42,13,173,51,13,141,43,13ø‚zƒ 32,204,12,32,76,12,32,155ƒ„ƒ 12,76,163,11,169,119,56,237:ƒŽƒ 52,13,141,48,13,169,2,237Zƒ˜ƒ 53,13,141,49,13,173,61,13zƒ¢ƒ 56,237,46,13,56,237,54,13šƒ¬ƒ 141,50,13,169,0,141,51,13»ƒ¶ƒ 141,55,13,96,173,57,13,201ÛƒÀƒ 0,240,37,173,52,13,56,237ûƒÊƒ 47,13,141,52,13,173,53,13„Ôƒ 233,0,141,53,13,173,52,13<„Þƒ 205,47,13,176,10,173,53,13[„èƒ 208,5,169,0,141,57,13,96|„òƒ 173,52,13,24,109,47,13,144œ„üƒ 3,238,53,13,141,52,13,201¼„ƒ 55,176,3,76,154,12,173,53Û„ƒ 13,201,1,208,5,169,1,141ú„ƒ 57,13,96,173,58,13,201,0…$ƒ 240,21,173,54,13,56,237,46<….ƒ 13,141,54,13,205,46,13,176[…8ƒ 5,169,0,141,58,13,96,173{…Bƒ 54,13,24,109,46,13,141,54š…Lƒ 13,205,60,13,208,5,169,1»…Vƒ 141,58,13,96,140,45,13,173Ü…`ƒ 40,13,141,239,19,173,41,13ÿ…jƒ 141,240,19,173,42,13,141,241!†tƒ 19,173,43,13,141,242,19,169B†~ƒ 8,141,243,19,169,0,141,244d†ˆƒ 19,173,46,13,141,245,19,169„†’ƒ 0,141,246,19,141,54,19,32¦†œƒ 215,77,173,39,13,141,152,35È†¦ƒ 165,162,141,239,19,32,89,62é†°ƒ 96,169,14,141,0,255,32,228 ‡ºƒ 255,201,27,208,7,173,56,13)‡Äƒ 141,0,255,96,76,166,11,0?‡Îƒ 0,0,0,0,0,0,0,0U‡Øƒ 0,0,0,0,0,0,0,0j‡âƒ 0,0,0,0,96,200’‡ì I²0 ¤ 437:‡ A:— Ñ("0B80")ªI,A:‚:Ž´‡öƒ 173,0,255,141,43,13,169,128Õ‡ƒ 141,48,13,169,62,141,49,13ö‡ ƒ 169,32,141,39,13,141,41,13ˆƒ 76,206,12,169,2,141,0,2559ˆƒ 216,165,162,141,47,13,173,48Zˆ(ƒ 13,141,50,13,173,49,13,141zˆ2ƒ 51,13,172,41,13,32,228,12›ˆ<ƒ 173,51,13,141,53,13,173,50»ˆFƒ 13,141,52,13,24,109,39,13ÛˆPƒ 144,3,238,53,13,141,52,13ýˆZƒ 168,173,53,13,162,18,32,248‰dƒ 12,173,47,13,32,19,13,173=‰nƒ 51,13,141,53,13,169,79,56^‰xƒ 237,39,13,141,38,13,24,109~‰‚ƒ 50,13,144,3,238,53,13,141Ÿ‰Œƒ 52,13,168,173,53,13,162,18¿‰–ƒ 32,248,12,173,47,13,32,19à‰ ƒ 13,169,49,56,237,41,13,168Šªƒ 173,49,13,174,48,13,142,50"Š´ƒ 13,141,51,13,32,228,12,173BŠ¾ƒ 51,13,141,53,13,173,50,13cŠÈƒ 141,52,13,24,109,39,13,144ƒŠÒƒ 3,238,53,13,141,52,13,168¤ŠÜƒ 173,53,13,162,18,32,248,12ÄŠæƒ 173,47,13,32,19,13,173,51äŠðƒ 13,141,53,13,173,38,13,24‹úƒ 109,50,13,144,3,238,53,13&‹ƒ 141,52,13,168,173,53,13,162F‹ƒ 18,32,248,12,173,47,13,32f‹ƒ 19,13,32,115,12,32,160,12†‹"ƒ 76,152,11,173,44,13,201,0¦‹,ƒ 240,19,173,39,13,56,233,1Æ‹6ƒ 141,39,13,201,0,208,5,169å‹@ƒ 0,141,44,13,96,173,39,13ŒJƒ 24,105,1,141,39,13,201,39$ŒTƒ 208,5,169,1,141,44,13,96EŒ^ƒ 173,45,13,201,0,240,19,173dŒhƒ 41,13,56,233,1,141,41,13ƒŒrƒ 201,0,208,5,169,0,141,45¢Œ|ƒ 13,96,173,41,13,24,105,1ÂŒ†ƒ 141,41,13,205,46,13,208,5âŒƒ 169,1,141,45,13,96,169,14šƒ 141,0,255,32,228,255,201,27$¤ƒ 208,7,173,43,13,141,0,255D®ƒ 96,76,155,11,173,50,13,24e¸ƒ 105,80,144,3,238,51,13,141†Âƒ 50,13,136,192,0,208,240,96¨Ìƒ 142,0,214,141,1,214,232,142ÇÖƒ 0,214,140,1,214,76,32,13èàƒ 169,31,141,0,214,173,1,214Žêƒ 76,32,13,72,169,31,141,0(Žôƒ 214,104,141,1,214,76,32,13EŽþƒ 44,0,214,16,251,96,0,0\Žƒ 0,0,0,0,0,1,24,0nŽƒ 0,0,0,0,0,0