start tok64 d64-0T7y5O
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)