: N O T E N O T E N O T E N O T E:R: See important comments at the end of this program.Z(:b2 s< SCRN%(,)}F ,P ,,Z 8 :INITIALIZE ARRAYd  :PRINT MENU ON SCREENn n :GO ASK USER WHAT HE WANTS TO DO/x  :GO SEE WHAT HE SAID TO DOX , :SWITCH TO COLOR DISPLAYb  SCRN%(,) , : , SCRN%(,) ,() : ( ),()::X1( 2)X2( 2) Y1 X1Y2 X2" h*:H (  )  RCC$h (CC$) 6" CC$() : d, CC$" " 6 ( ) } @X1(X1XX) nJY1(Y1YX) nTX2(X2XY) n ^Y2(Y2YY) nhY1Y1rY2Y2)| 4X1X1?X2X2I TY1Y1_Y2Y2i tX1X1X2X2  :: I% ,0,N,v((X1d)#,Y1d)((X2d)#,Y2d),CO&((Y1d)#,X1d)((Y2d)#,X2d),CO,4&:j0((X1d)#,Y1d)((X2d)#,Y2d),CO,Bp:xD:N((X1d)#,Y1d)((X2d)#,Y2d),COX((Y1d)#,X1d)((Y2d)#,X2d),CO,Bbl:v (X1,Y1d),(X2),CO:%:8XX(  )KXY(  )^YX(  )qYY(  )CO( )(((,)))::VL$()HL$() UR$()LR$() UL$()*LL$() 4> ,,0H ) "KALEIDOSCOPE"8R e\ "Foreground" ) UL$ "Lines" #) UR$f ) VL$ "Boxes" #) VL$p ) VL$ "Lines and Boxes" #) VL$z ) LL$ "Circles" #) LR$   "Background" ) UL$ "Random Color"  ) UR$. ) LL$ "Black"  ) LR$7 ^ "Mode" ) UL$ "Color" !) UR$ ) LL$ "Black & White" !) LR$  "Select one from each group" "Move cursor with RETURN key" "Press SPACE to execute KALEIDOSCOPE" "Press ESC to EXIT"' ,V "While running, SPACE bar will restart";a , "ESC will return to this menu";$:.:8 I% B J% L SCRN%(J%,I%)V J%,I%`j:t:~ I%  SCRN%(I%,),SCRN%(I%,): SCRN%(I%,) " "d SCRN%(I%,) ,: " ": , SCRN%(I%,) ,: "X": , SCRN%(I%,) "X" I%:: SCRN%(CURS%,) SCRN%(CURS%,) : SCRN%(CURS%,)CURS%CURS%1 CURS% CURS%o SCRN%(CURS%,) SCRN%(CURS%,) : SCRN%(CURS%,)u }::( I% 2 SCRN%(I%,)SCRN%(CURS%,) SCRN%(I%,)< I%FSCRN%(CURS%,)PZ:d:n ~xCC$""  (CC$)*CC$0P CC$( ) : ~{ (CC$"x") (CC$"X") (: ~:IF NO MONOCHROME DISPLAY CHANGE LOCATE ,,1,12,13 TO LOCATE ,,1,7 ***** CC$() : : ,,, , : :  CC$" "  n:':A 4,5,6,7,10,11,14,15_ 22,22,32,24,29,22,22,30u 2,0,0,0,3,0,3,0 1,1,1,1,2,2,3,3:":,:RETURN 'ACTIVATE THIS STATEMENT IF NO MONOCHROME DISPLAY6 SEG A@ ,(() ) J SEGT !^ (+h ,1r9|:A::SCREEN 0,0 'ACTIVATE THIS STATEMENT IF NO MONOCHROME DISPLAT:RETURN 'ACTIVATE THIS STATEMENT IF NO MONOCHROME DISPLAY SEG A ,(() 0) SEG   P  ,,  :' :A  SCRN%(,) I%[  SCRN%(,) I%u  SCRN%(,) I%  SCRN%(,) I% & 0: N O T E N O T E!::Activate/deactivate statements commented above depending on whetherN!D:or not you have a monochrome display. The statement numbers are!N:listed below in an ON statement incase someone renumbers this thing.!X I% ,,,,!b:"l:If from time to time it appears that the program is not working, it may bP"v:that it is painting with the same color as the background.X":":Feel free to copy this program and pass it on to a friend, lover, etc.,":but lets see how many hands this program passes through. Before you8#:copy it, please add your name to the bottom of the list below.f#:This program written for the IBM PC by#: Bill Decker 4 Sherwood Dr. Endicott, N. Y. 13760#: Barry Shiffrin 2309 Acorn Dr. Vestal, NY 13850)$: Loren D. Jones, 1339 7th Ave. S., Fargo, ND 58103 (RBBS-PC 701-293-5973)