C64: Border removal via basic

10 f=49152
20 read a
30 if a=255 then sys 49152:goto 170
40 poke f,a
50 f=f+1
60 goto 20
70 :
80 data 120,169,34,141,20,3,169,192
90 data 141,21,3,169,249,141,18,208
100 data 141,14,220,169,1,141,25,208
110 data 141,26,208,169,27,141,17,208
120 data 88,96,169,1,141,25,208
130 data 173,17,208,41,247,141
140 data 17,208,173,18,208,208,251,173
150 data 17,208,41,127,9,8,141,17
160 data 208,76,49,234,255
170 for x=832 to 832+63:pokex,255:next
180 poke 2040,13
190 v=53248:poke v+21,1:poke v+1,5
200 poke v+0,100:poke53280,0:poke53281,0
210 poke 646,rnd(1)*16:print "rene   ";
220 goto 210

By the way: the VICE commodore 64 emulator is very good!
You can insert lines in VICE by using alt-insert.
With alt-delete you copy the C64 screen in the clipboard.
Reset: sys64738
Cool effect:
0 print chr$(205.5+rnd(1));:goto

https://www.youtube.com/watch?v=caW7aiasrvs