start tok64 d64-5D5nKB 0 REM * trace av lars petterson 1 REM sys pd 1992 10 FORi=49152TO49320 12 READx:POKEi,x:s=s+x 14 NEXT 20 IFs<>23190THENPRINT"fel i datasatserna":END 30 SYS49152 100 DATA169,15,141,8,3,169,192,141,9,3,169,1,133,250,96,32,115,0,201,64,240,7 110 DATA165,250,208,17,76,46,192,165,250,208,5,230,250,76,228,167,198,250 120 DATA76,228,167,76,159,192,173,141,2,201,4,208,10,160,0,162,0,202 130 DATA208,253,136,208,248,165,62,240,92,165,157,240,12,165,57,197,251 140 DATA208,6,165,58,197,252,240,76,165,57,166,58,133,251,134,252,160 150 DATA0,162,34,189,40,4,157,0,4,189,40,216,157,0,216,232,200,192,6 160 DATA208,238,160,0,138,24,105,34,170,224,234,208,227,56,32,240,255 170 DATA132,253,134,254,162,4,160,34,24,32,240,255,166,57,165,58,201 180 DATA255,240,11,32,205,189,24,164,253,166,254,32,240,255,169,128,133 190 DATA157,32,121,0,76,231,167 200 PRINT"{=*5}":PRINT"trace":PRINT"{=*5}" 210 PRINT"@ startar/stannar trace-funktionen 220 PRINT"radnumren visas i {pound}vre h{pound}gra h{pound}rnet. stop tok64 (bastext 1.0)