4""(142)(8):53280,0:53281,0:BC0:650,255MDV(186):DV8DV8]H111:1000" ^^^^^  DEFAULT TILE CHR$ CODE "  MAIN ROUTINE A$""(H)"" 646,((1)15) X((1)19)1:Y((1)12) X139X:Y123Y2 211,X:214,Y:58732:A$P 211,X1:214,Y:58732:A$n 211,X:214,Y1:58732:A$ 211,X1:214,Y1:58732:A$ B$:B$""10 B$"Q"B$""1000: QUIT B$""B$"""":10: CLEAR SCREEN B$"+"BCBC1:50:10! "B$"-"BCBC1:50:105 $B$"P"60:10K %B$"C"1200:10S &10c 2BC16BC0s 3BC0BC15 453280,BC:53281,BC: <LL$:LL$""60 > "  INTRO SCREEN, ETC.  53280,0:53281,0:" "I " "z " K A L E I D O S C O P E I I " " " "" ""G T115:" ":~ "" "WHILE THE KALEIDOSCOPE IS SHOWING" "CLR/HOME - CLEAR THE SCREEN" " C - CHARACTER TO USE"! " + AND - - BACKGROUND COLOR"H " P - PAUSE THE ACTION"t " Q - RETURN TO THIS SCREEN" "FROM THIS SCREEN" " SPACE - START THE ACTION" " C - CHARACTER TO USE" " Q - RETURN TO BASIC"K 214,21:211,6:58732:"CURRENT CHARACTER IS: "(H)""a YY$:YY$""1036YY$" "YY$"""":53280,BC:53281,BC:5YY$"Q"YY$""1100YY$"C"YY$""1200:1035 1036L214,20:58732:"ARE YOU SURE YOU WANT TO QUIT? Y/N",NAA$:AA$""1102FPAA$"Y"AA$""1150R214,20:58732:" Q - RETURN TO BASIC ":1036~""(9)(14):53280,14:53281,6:646,14"HANKS FOR USING Š!"" FIND THAT WITH ̠, IT AND THE"8"ORIGINAL ARE BECOMING TWO OF MY"b"FAVORITE PROGRAMS. T'S SORT-OF""HYPNOTIZING. OU CAN ALSO CHANGE""THE DEFAULT 'TILE' BY SETTING IN""LINE 2 TO WHATEVER $ CODE YOU'D""LIKE. EEL FREE TO MODIFY THE CODE."8"MAIL ME WITH ANY COMMENTS!"g" - AUL CLEER (-)"" "I217242:I,(I)128::HH1H128H32H34H35A$""(H)"":'" KALEIDOSCOPE II BY PAUL-MBS" DOWNLOADED FROM GENIEh"