UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<KALSCOPE }UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<ÿCL ƒCgƒ *** KALIEDOSCOPE ***C†ƒ COPYRIGHT (C) CLOAD 1982Câƒ ADAPTED FROM A PROGRAM FOR THE VIP 1802 FROM RCA, WRIT- TEN BY JOE WEISBECKERD(ƒ THIS VERSION BY RUSS NELSOND&2ƒ RT. 2, BOX 321A, CORVALLIS,D;<ƒ OREGON, 97330.DVFƒ 503-zUU<ÿ929-6278 OR 6279D]Pƒ DcZƒDjd0D¿n†@10,"¿¿¿¿¿¿¿¿¿¿¿¿¿¿";:†@42,Á(191);"KALIEDOSCOPE";Á(191);:†@74,"¿¿¿¿¿¿¿¿¿¿¿¿¿¿";Dìx†@256,"DO YOU WANT INSTRUCTIONS? (Y/N)";Dõ‚A$¯ÇE/Œ‡1¨(A$°®"")130:‡1¨(A$°®"N")460:‡1¨(A$°®"Y")150,130EB–ƒ INSTRUCTIONSEo UU<ÿ †@5©32," KALIEDOSCOPE PRODUCES PRETTY"E’ª†"PATTERNS ON THE SCREEN. THE"E»´†"PROGRAM TAKES A PATTERN THAT YOU";Eá¾†"INPUT AND REPEATS IT, MIRRORED"FÈ†"AROUND THE HORIZONTAL AND"F&Ò†"VERTICAL AXES. EACH TIME THE"FMÜ†"PATTERN IS REPEATED, TH°UU<ÿE COLOUR"F_æ†"IS CHANGED.F}ðˆ" TO CONTINUE";A$F©ú†@5©32," YOU INPUT THE PATTERN USING"FÊ†"THE FOUR ARROW KEYS. YOUR"Fì†"CURSOR IS THE FLASHING DOT"G †"WHICH IS INITIALLY IN THE"G1"†"MIDDLE OF THE SCREEN. AS YOU"GQ,†"INPUT THE PòUU<ÿATTERN, IT IS"Gw6†"REFLECTED THE SAME WAY AS WHEN"G›@†"THE PROGRAM IS REPEATING THE"G¹J†"PATTERN AUTOMATICALLY."G×Tˆ" TO CONTINUE";A$H^†@5©32," WHEN YOU ARE SATISFIED WITH"H(h†"YOUR PATTERN, HIT THE "HQr†"KEY. THE PROGRAM WI[UU<ÿLL THEN BEGIN";Hx|†"TO REPEAT THE PATTERN. WHEN THE"HŸš†"PATTERN BECOMES BORING, HIT THE"HÆ¤†"ANY KEY, AND YOU WILL RETURN TO"Hí®†"INPUT MODE. TO EXIT THE PROGRAM"I¸†"HIT THE KEY.":†I'Âˆ "HIT TO BEGIN";A$I1Ì• 600I:êCO¯1IAô0ØUU<ÿIGþƒIYA¯0:X¯31:Y¯15IdLI$¯""Im‚870Iz&P¯Å(X,Y)Iƒ0A$¯ÇIš:TI¯TI§1:„TI°50£600I£DTI¯0I»N„Å(X,Y)£œ(X,Y):600IÉO›(X,Y,CO)IÙX„A$¯""£ 560IïY„P£›(X,Y,CO):610IúZœ(X,Y)JUb‡1¨(A$°®"W")621:‡1¨(A$°®"Z")622:‡1¨(A$°®"A")623:‡1¨(A$°®"S")6ÍUU<ÿ24:‡1¨(A$°®Á(13))625Jtl‡1¨(A$°®"Q")626:CH¯0:630J‚mCH¯1:630JnCH¯2:630JžoCH¯3:630J¬pCH¯4:630JºqCH¯5:630JÈrCH¯6:630JØs„LI$¯""£490Ját740Jïv„CH¯6£710Jý€„CH¯5£627KŠ„CH¯0£550K ”„A¯250£ž1,1:550K)ž‚850K3¨A¯A§1KE²LI$¯LI$hUU<ÿ§Á(CH)KN¼550KaÆƒ QUIT PROGRAMKhÐ0KnÚ‰K‹äƒ START REPEATING STRINGK–A1¯A¨1K¬„COL¯8£COL¯1:800KºCOL¯COL§1KÙ €A¯0¢A1:CH¯À(Ä(LI$,A§1,1))Kâ*‚850Kñ4„Ç°®""£490K÷>ŠLH790LR‡CH‚920,940,960,980L0f„Å(X,Y)£œ(X,Y):880L>g›(X,Y,CO)«UU<ÿL\p„Å(63¨X,Y)£œ(63¨X,Y):890Lmq›(63¨X,Y,CO)L‹z„Å(X,31¨Y)£œ(X,31¨Y):900Lœ{›(X,31¨Y,CO)LÀ„„Å(63¨X,31¨Y)£œ(63¨X,31¨Y):910LÔ…›(63¨X,31¨Y,CO)LÚŽLó˜Y¯Y¨1:„Y°0£Y¯15:980Lù¢M¬Y¯Y§1:„Y®15£Y¯0:960M¶M1ÀX¯X¨1:„X°0£X¯31:940M7ÊMPÔXAUU<¯X§1:„X®31£X¯0:920MVÞhUU<ÿÿU