start tok64 d64-W3BJHD 1 REM listskydd 2 READy:IFy<0THEN4 3 POKE49152+x,y:x=x+1:s=s+x:GOTO2 4 IFs-16653THENPRINT"fel!" 5 END 10 DATA160,0,185,0,158,73,85,153 20 DATA0,159,200,208,245,206,4,192 30 DATA206,9,192,173,9,192,201,8 40 DATA208,232,169,158,141,4,192,169 50 DATA159,141,9,192,160,32,185,161 60 DATA192,153,0,8,136,16,247,160 70 DATA61,185,102,192,153,167,8,136 80 DATA16,247,160,21,169,0,153,0 90 DATA8,200,192,167,208,248,32,253 100 DATA174,160,0,177,122,201,34,208 110 DATA13,200,177,122,201,34,240,9 120 DATA153,20,8,76,81,192,76,226 130 DATA252,230,46,108,2,160,32,89 140 DATA166,76,174,167,169,167,141,2 150 DATA3,169,2,141,3,3,160,0 160 DATA185,0,9,73,85,153,0,8 170 DATA200,208,245,238,187,2,238,192 180 DATA2,173,192,2,201,160,208,232 190 DATA76,167,2,160,45,185,167,8 200 DATA153,167,2,136,16,247,76,173 210 DATA2,0,165,8,0,0,158,50 220 DATA50,54,48,32,20,20,20,20 230 DATA20,20,20,20,20,20 240 DATA -17 stop tok64 (bastext 1.0)