? SI15:M54272:NMM23:N,0::M24,15:M5,129:M6,129KM4,17vI07:M(I)::1,4,25,128,2,10,60,255(53280,0:53281,0:"":5502 ML ADDRESSES<KAL49664:A49696:CHAR251:X253:Y254FSEEDKAL126:SEED,255(TI)1& PSEED1,256(1):X,0:Y,0:CHAR,228:3507 Z INTRO PAGE d" WELCOME TO":" " n" -KALEIDOSCOPE-" x" " " PRESS ANY KEY TO CONTINUE" 370:A,25:410 MAIN LOOP( A$"R"1060X KAL:M1,(1)555:I1D::A$:A$""170p V(A$):A$"0"D1 V0D2.4V A$"Q"1070: I07:A$(133I)A,M(I) I:A$"B"330 A$"C"350 A$(19)(147):170 A$"H"1070:410 A$" "370A A$""(49692)11080:198,1j A$""(49692)1FG1:1080:198,1 "A$"S"SI(SI15):M24,SI ,A$"P"1010:M24,SI 6160 @ BLACK AND WHITE J53280,11:53281,11:49692,1: T COLOR ^53280,0:53281,0:49692,15:$ h HIT ANY8 rA$:A$""370K |A$:A$""380Q d  HELP MESSAGE " CONTROLS " SHIFT-P/D : PRINT/2-WIDE (B/W ONLY)" "F1 THROUGH F8 : CONTROL COMPLEXITY" " 0 THROUGH 9 : CONTROL SPEED"5 " B/C : BLACK AND WHITE/COLOR"[ " SPACE : FREEZE DISPLAY" " CLR : CLEAR SCREEN":" H : HELP!" " S : SILENCE TOGGLE" " P : PROGRAM CHARACTER"" R : RANDOMIZED CHARACTERS"6" Q : QUIT"s" HIT ANY KEY TO START THE KALEIDOSCOPE":370:(147)|170 LOAD ML&(147)"...LOADING ML"0S0:C49664:ICC248:X:I,X:SSX::S33124"ERROR IN DATA STATEMENTS":DN 173,32,194,133,165,327X33,194,32,90,194,32Qb33,194,32,90,194,198nl165,208,240,238,240,193v173,240,193,41,15,133252,96,25,32,43,19432,65,194,32,43,19496,32,172,194,32,74194,32,172,194,32,82194,32,172,194,32,74#194,32,172,194,96,165@253,164,254,133,254,132Z253,96,169,24,56,229u253,133,253,96,169,2456,229,254,133,254,9632,109,194,144,7,32109,194,144,28,176,3532,109,194,144,43,17650,14,127,194,46,126 194,144,8,173,127,194.73,45,141,127,194,96G 109,12,198,253,16,4b*169,24,133,253,96,230~4253,165,253,201,25,208>4,169,0,133,253,96H198,254,16,4,169,24R133,254,96,230,254,165\254,201,25,208,4,169f0,133,254,96,32,193p194,165,251,160,0,1455z163,169,212,24,101,164R133,164,165,252,145,163l96,169,4,133,164,165253,24,105,7,133,163166,254,160,0,32,230194,32,230,194,32,230194,32,237,194,32,230194,32,230,194,32,237 194,96,138,10,170,152&42,168,96,24,138,101C163,133,163,152,101,164S133,164,961070:" :";:"#";NU$:NU$"R "1040NU(NU$):NU0NU2551010CHAR,NU" ":" "$CHAR,(162): .M24,0:/8SS55303:CC40:RR24:WW25:1070JB4,4:G0RR:4,(15);cLFGF12:4,(14);VNSSGCCSSGCCWW:Q(N)`(Q15)14,"X";j(Q15)14," ";tN:4,(8):FGF~G:N14:4::4:FG0: