12²œ ± CHOICÅLIGHÔMODÅAPEØSPACÅDARËDARÐHOLÄÍAPEËÁÓHUÅÂËØ dL +@‚@1-@ @I(*** THE PYRAMID ***L p(ADJUST TV CONTRAST ANDq(BRIGHTNESS TO MINIMUM.r (ADJUST TV COLOR AND TINTs$!(TO SUIT INDIVIDUAL TASTE.$(x( YOUR CHOICE:‚( (0) RANDOM PARAMETERSŒ((( (1) USER CONTROLLED PARAMETERS–1 AP€€"'+@$1 A €@APª-(-("DRAW BACKGROUND OF VERTICAL LINES?´( (0) EVEN LINES¾( (1) ODD LINESÈ( (2) NO BACKGROUNDÒ% A%"@A0Ü!!*@Aæ((DRAW PYRAMID IN MODEð!!( (0) FROM CENTER OUTWARDú ( (1) FROM LEFT TO RIGHT A`‚!!‚*‚@A`"("(FOR APEX OF PYRAMID USE"( (0) ONE POINT,( (1) TWO POINTS6 Aƒ@!!ƒ*ƒ@AJ%(%(SPACING OF RAYS FROM APEX?T$$((USUALLY AN INTEGER: 2 TO 6)^% AP„%„ @APh$($(DRAW DARK VERTICAL LINES?r( (0) EVEN LINES|( (1) ODD LINES†( (2) NO LINES% A…%…"@A š!!†*…@A¤((WHEN FINISHED®$$( (0) GOTO RANDOM PARAMETERS¸( (1) HOLD THE PATTERN AP‡Ç#‡"+@$# AÌ!!‡*‡@APÖ5@‚@(5(WHEN PATTERN IS FINISHEDÛ (HIT È ËÅÙ TO CHANGE HUE.à!(!(READY? HIT START KEY.ê F:B2y,@Aï! B+@$! Añ›ò*** RANDOM PARAMETERS***›ó›ô6-P:H:,$@,þ6‚-P:H:,$@,6ƒ-P:H:,$@,%%6„-@%P:H:,$@,‚"ˆ*‰"Š*„"‹A6…-P:H:,$@,!6Œ-P:H:,$@,&*@w*RESET ATTRACT MODE›U›V*** PROGRAM EXECUTION ***›W›X10@Œ10@@l!@A@v @6- A€‚" A Š‚"@ A0”*** DRAWTO SIDES ***›žŽ-A‘@6„¨= @,AYƒ%/AŽ1,AYƒ=/޲] ,AY3/AŽ&@E,AYY/Ž&@] ޼…!@A Æ 6-… AЇ"@A@Ú"H:, ? "+@$ä 6ˆ-‚6Š-ƒ6‹-„î Aæ›ç##*** SUBROUTINE VERTICAL LINES›èŽ-A@ò,Ž/ŽA‘ Žü$Î›Ï *** SUB STARTS FROM CENTER›ÐŽ-AX„ÚY @,AY3/AY%ŽA‘E,AYY/AY&ŽA‘äM ,AYƒ-/A`%ŽA‘9,AYƒM/AX&ŽA‘î  Ž $¶ ›· !!*** SUB DRAWS LEFT TO RIGHT›¸ Ž-A„ % @,AYƒ%/ŽA‘Ì : ,AY3/Ž%@A‘7 Ž:$ ›¡*** ALLOWS USER TO CHANGE›¢ *** HUE WHEN PATTERN IS ON›£ *** HOLD BY HITTING H KEY.›ª##@@K:´*)@"@r*6Œ-Œ%@¾Œ"@6Œ-È!0@Œ! A@ € D4:P196L3.BAS