start tok64 d64-R6xLzM 10 PRINT"v[nta!":FORa=0TO246:READy:POKE51974+a,y:NEXT:PRINTCHR$(14) 20 PRINT"{clear}Detta program ger adressen till varje 30 PRINT"rad i ett basicprg" 40 PRINT"{down}{reverse on}{reverse off}=l]ngsamt{space*2}{reverse on}{reverse off}=paus {reverse on}{reverse off}=quit!" 50 PRINT"starta med {reverse on}sys 52077{reverse off}!{space*9} 60 DATA 16,232,100,10,1,39,3,0,0,0,36,0,0,0,0,32,0,0,0,0,0,32,32,0,0,0,0,0 70 DATA 13,0,0,160,0,56,165,253,253,6,203,72,165,254,253,11,203,16,4,201 80 DATA 216,16,8,133,254,104,133,253,200,16,230,104,152,24,105,48,141,36 90 DATA 203,138,72,24,109,35,203,170,173,36,203,157,22,203,104,170,232,224 100 DATA 5,234,208,199,96,201,10,48,3,24,105,7,24,105,48,157,17,203 110 DATA 96,169,1,133,251,169,8,133,252,165,252,41,240,74,74,74,74,162,0 120 DATA 32,95,203,165,252,41,15,232,32,95,203,165,251,41,240,74,74,74 130 DATA 74,232,32,95,203,165,251,41,15,232,32,95,203,165,251,133,253,165 140 DATA 252,133,254,162,0,169,0,141,35,203,32,37,203,160,2,177,251,133 150 DATA 253,200,177,251,133,254,162,0,169,7,141,35,203,32,37,203,160,0 160 DATA 185,16,203,201,48,208,12,217,15,203,240,7,48,5,169,32,153,16 170 DATA 203,32,210,255,200,192,19,208,229,160,0,177,251,72,200,177,251,133 180 DATA 252,104,133,251,165,203,201,60,240,250,201,4,240,3,76,117,203,96 63999 REM "Invalid BASIC input d64-R6xLzM stop tok64 (bastext 1.0)