10 POKE56,28:CLR:FORI=0TO7:READM(I):NEXT:DATA1,4,25,128,2,10,60,255
20 POKE36879,25:PRINT"[144]":GOSUB450
30 REM * ML ROUTINE ADDRESSES *
40 KAL=7169:A=7201:CHAR=251:X=253:Y=254
50 SEED=KAL+126:POKESEED,255*RND(-TI)+1:REM * SEED RANDOM # GEN *
60 POKESEED+1,256*RND(1):POKEX,0:POKEY,0:POKECHAR,160:GOSUB270
70 REM * INTRO PAGE *
80 PRINT"[147]      WELCOME TO":PRINT"    [213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
90 PRINT"    [221]KALEIDOSCOPE[221]"
100 PRINT"    [202][192][192][192][192][192][192][192][192][192][192][192][192][203]":PRINT"HIT A KEY TO CONTINUE"
110 GOSUB290:POKEA,25:GOTO330
120 REM * MAIN LOOP *
130 SYSKAL:FORI=1TOD:NEXT:GETA$:IFA$=""THEN130
140 V=VAL(A$):IFA$="0"THEND=1
150 IFV>0THEND=2.4^V
160 IFA$="Q"THENEND
170 FORI=0TO7:IFA$=CHR$(133+I)THENPOKEA,M(I)
180 NEXTI:IFA$="B"THENGOSUB250
190 IFA$="C"THENGOSUB270
200 IFA$=CHR$(147)THENPRINTCHR$(147):GOTO130
210 IFA$="H"THEN330
220 IFA$=" "THENGOSUB290
230 GOTO130
240 REM * BLACK AND WHITE *
250 POKE7197,1:RETURN
260 REM * COLOR *
270 POKE7197,7:RETURN
280 REM * HIT ANY *
290 GETA$:IFA$<>""THEN290
300 GETA$:IFA$=""THEN300
310 RETURN
320 REM * HELP MESSAGE *
330 PRINT"[147]TO CONTROL THE DISPLAY,TYPE THESE CHARACTERSWHILE THE KALEIDOSCOPEIS ";
350 PRINT"RUNNING:"
360 PRINT"F1-F8[146]:ALTER COMPLEXITY"
370 PRINT"0-9[146]  :ALTER SPEED"
380 PRINT"B[146]    :BLACK AND WHITE"
390 PRINT"C[146]    :8 COLORS":PRINT"SPACE[146]:FREEZE DISPLAY"
400 PRINT"CLR[146]  :CLEAR SCREEN":PRINT"H[146]    :HELP!"
410 PRINT"Q[146]    :QUIT"
420 PRINT" HIT ANY KEY TO START    THE KALEIDOSCOPE";:GOSUB290:PRINTCHR$(147)
430 GOTO130
440 REM * LOAD ML ROUTINES *
450 PRINTCHR$(147)"...LOADING ML"
460 S=0:C=7169:FORI=CTOC+231:READX:POKEI,X:S=S+X:NEXT
470 IFS<>25910THENPRINT"ERROR IN DATA STATEMENTS":END
480 RETURN
490 DATA 173,33,28,133,165,32
500 DATA 34,28,32,91,28,32
510 DATA 34,28,32,91,28,198
520 DATA 165,208,240,238,0,28
530 DATA 173,0,28,41,7,133
540 DATA 252,96,128,32,44,28
550 DATA 32,66,28,32,44,28
560 DATA 96,32,173,28,32,75
570 DATA 28,32,173,28,32,83
580 DATA 28,32,173,28,32,75
590 DATA 28,32,173,28,96,165
600 DATA 253,164,254,133,254,132
610 DATA 253,96,169,20,56,229
620 DATA 253,133,253,96,169,20
630 DATA 56,229,254,133,254,96
640 DATA 32,110,28,144,7,32
650 DATA 110,28,144,28,176,35
660 DATA 32,110,28,144,43,176
670 DATA 50,14,128,28,46,127
680 DATA 28,144,8,173,128,28
690 DATA 73,45,141,128,28,96
700 DATA 59,172,198,253,16,4
710 DATA 169,20,133,253,96,230
720 DATA 253,165,253,201,21,208
730 DATA 4,169,0,133,253,96
740 DATA 198,254,16,4,169,20
750 DATA 133,254,96,230,254,165
760 DATA 254,201,21,208,4,169
770 DATA 0,133,254,96,32,194
780 DATA 28,165,251,160,0,145
790 DATA 163,169,120,24,101,164
800 DATA 133,164,165,252,145,163
810 DATA 96,169,30,133,164,165
820 DATA 253,24,105,1,133,163
830 DATA 166,254,160,0,169,22
840 DATA 133,2,32,221,28,198
850 DATA 2,208,249,96,24,138
860 DATA 101,163,133,163,152,101
870 DATA 164,133,164,96