Q-LINK 6/14/87X SI15:M54272:NMM23:N,0::M24,15:M5,129:M6,129dM4,17I07:M(I)::1,4,25,128,2,10,60,255(53280,0:53281,0:"":5502 ML ADDRESSES<KAL49664:A49696:CHAR251:X253:Y254 FSEEDKAL126:SEED,255(TI)1? PSEED1,256(1):X,0:Y,0:CHAR,228:350P Z INTRO PAGE d" WELCOME TO":" " n" -KALEIDOSCOPE-" x" " " PRESS ANY KEY TO CONTINUE" 370:A,25:410/ MAIN LOOPA A$"R"1060q KAL:M1,(1)555:I1D::A$:A$""170 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:4106 A$" "370Z A$""(49692)11080:198,1 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 ANYQ rA$:A$""370d |A$:A$""380j }  HELP MESSAGE " CONTROLS " SHIFT-P/D : PRINT/2-WIDE (B/W ONLY)" "F1 THROUGH F8 : CONTROL COMPLEXITY" " 0 THROUGH 9 : CONTROL SPEED"N " B/C : BLACK AND WHITE/COLOR"t " SPACE : FREEZE DISPLAY" " CLR : CLEAR SCREEN":" H : HELP!" " S : SILENCE TOGGLE"" P : PROGRAM CHARACTER"3" R : RANDOMIZED CHARACTERS"O" Q : QUIT"" 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":D7N 173,32,194,133,165,32QX 33,194,32,90,194,32lb 33,194,32,90,194,198l 165,208,240,238,240,193v 173,240,193,41,15,133 252,96,25,32,43,194 32,65,194,32,43,194 96,32,172,194,32,74 194,32,172,194,32,82* 194,32,172,194,32,74F 194,32,172,194,96,165d 253,164,254,133,254,132 253,96,169,24,56,229 253,133,253,96,169,24 56,229,254,133,254,96 32,109,194,144,7,32 109,194,144,28,176,35  32,109,194,144,43,176$ 50,14,127,194,46,126@  194,144,8,173,127,194[ 73,45,141,127,194,96u  109,12,198,253,16,4* 169,24,133,253,96,2304 253,165,253,201,25,208> 4,169,0,133,253,96H 198,254,16,4,169,24R 133,254,96,230,254,165\ 254,201,25,208,4,1693f 0,133,254,96,32,193Op 194,165,251,160,0,145lz 163,169,212,24,101,164 133,164,165,252,145,163 96,169,4,133,164,165 253,24,105,7,133,163 166,254,160,0,32,230 194,32,230,194,32,230 194,32,237,194,32,230/ 194,32,230,194,32,237K 194,96,138,10,170,152f 42,168,96,24,138,101 163,133,163,152,101,164 133,164,961070:" :";:"#";NU$:NU$"R "1040NU(NU$):NU0NU2551010CHAR,NU%" ":" "+>$CHAR,(162):L.M24,0:q8SS55303:CC40:RR24:WW25:1070B4,4:G0RR:4,(15);LFGF12:4,(14);VNSSGCCSSGCCWW:Q(N)`(Q15)14,"X";j(Q15)14," "; tN:4,(8):FGF&~G:N14:4::4:FG0: