start tok64 d64-O9gh1g 0 POKE53280,0:POKE53281,0:PRINT"{clear}please wait{.*3} pokeing color datas{.*3}"; 10 DATA0,11,12,12,15,15,15,1,1,1,15,15,15,12,12,11 20 FORi=0TO255STEP16:RESTORE 30 FORj=0TO15:READs 40 POKE49408+j+i,s:POKE53280,s 50 NEXT:NEXT:PRINT"{left*14}program datas{.*3} 60 FORi=49152TO49196:READc:ch=ch+c:POKEi,c:POKE53280,c 70 NEXT:IFch<>5555THENPRINT"datafel":STOP 80 SYS49152:POKE53280,0 90 DATA120,169,16,162,192,141,20,3,142,21,3,88,96,,, 100 DATA172,255,192,162,,185,,193,157,,216,157,,217,157, 110 DATA218,157,,219,232,208,241,238,255,192,76,49,234 120 PRINT"{clear}{reverse on} the color blinker is (c) 1990 by mr.p. "; 130 PRINT" of the soft wolves. special{space*2}greetings "; 140 PRINT" to{space*2}s.p.d.,{space*2}henrik{space*2}karnell,{space*3}stefan "; 150 PRINT" bergdahl & everybody else who knows me "; 160 PRINT" or wants to know me..{space*18}" stop tok64 (bastext 1.0)