4""(142)(8):53280,0:53281,0:BC0:650,255MDV(186):DV8DV8W10001024,32128:A$""((1024))"":1024,32 646,((1)15) X((1)19)1:Y((1)12)X139X:Y123Y211,X:214,Y:58732:A$ 211,X1:214,Y:58732:A$( 211,X:214,Y1:58732:A$G 211,X1:214,Y1:58732:A$Y B$:B$""10x B$"Q"B$""1000: QUIT B$""B$"""":10: CLEAR SCREEN B$"+"BCBC1:50:10 "B$"-"BCBC1:50:10 $B$"P"60:10 &10 2BC16BC0 3BC0BC151 453280,BC:53281,BC:E <LL$:LL$""60K > 53280,0:53281,0:" " " " " KALEIDOSCOPE BY PAUL MC ALEER "! " "R "" "" T115:" ": "" "THIS PROGRAM WILL DRAW A PSEUDO-"L "KALEIDOSCOPE ON YOUR SCREEN. THE"v "FOLLOWING KEYS ARE AVAILABLE..." "WHILE THE KALEIDOSCOPE IS SHOWING" "CLR/HOME - CLEAR THE SCREEN" " + AND - - BACKGROUND COLOR" " P - PAUSE THE ACTION"F " Q - RETURN TO THIS SCREEN"l "FROM THIS SCREEN" " SPACE - START THE ACTION" " Q - RETURN TO BASIC" YY$:YY$""1036YY$" "YY$"""":53280,BC:53281,BC:5YY$"Q"YY$""1100& 1036UL"ARE YOU SURE YOU WANT TO QUIT? Y/N"kNAA$:AA$""1102PAA$"Y"AA$""1150R" Q - RETURN TO CABOOSE ":1036~""(9)(14):53280,14:53281,6:646,14"HANKS FOR DOWNLOADING ."E"HIS HAS TO BE THE SIMPLEST PROGRAM"p"'VE EVER WRITTEN! ET, FOR SOME""REASON, IT CAUSES A HYP-MO-TIZING""EFFECT. CAN'T EXPLAIN IT; IT""RANKS UP THERE WITH TOFU AND THE""IMEX INCLAIR. :) F YOU HAVE ANY"G"COMMENTS ON , EMAIL ME"_"THROUGH NIE."" - AUL CLEER (.1)"" "I217242:I,(I)128::