A bug in your BASIC.
Content
Image Gallery
Source Code
10 REM
20 REM Enable Sprite With RAND USR 64776
30 REM Disable Sprite With POKE 64898,1
35 CLEAR 64767
40 FOR j=65024 TO 65280: POKE j,253: NEXT j
50 POKE 65021,195: POKE 65022,27: POKE 65023,253
60 LET checksum=0
100 RESTORE 1000
110 FOR j=64776 TO 64992
120 READ dat: LET checksum=checksum+dat
130 POKE j,dat
140 NEXT j
150 IF checksum<>30092 THEN CLS : PRINT "Checksum Error!!!!!!!": STOP
1000 DATA 243,237,94,62,254,237,71,175,50,130
1010 DATA 253,205,211,253,205,64,253,251,201,245
1020 DATA 197,213,229,205,139,253,58,130,253,167
1030 DATA 32,16,205,78,253,205,211,253,205,64
1040 DATA 253,225,209,193,241,195,56,0,237,86
1050 DATA 225,209,193,241,251,201,1,131,253,237
1060 DATA 91,126,253,205,165,253,205,180,253,201
1070 DATA 237,91,126,253,237,75,128,253,62,31
1080 DATA 187,32,2,14,255,175,187,32,2,14
1090 DATA 1,186,32,2,6,1,62,23,186,32
1100 DATA 2,6,255,237,67,128,253,123,129,95
1110 DATA 122,128,87,237,83,126,253,201,10,10
1120 DATA 1,255,0,60,66,165,129,165,153,66
1130 DATA 60,237,91,126,253,205,165,253,229,1
1140 DATA 131,253,205,200,253,32,8,225,1,0
1150 DATA 253,205,180,253,201,225,201,122,230,7
1160 DATA 15,15,15,179,111,122,230,24,246,64
1170 DATA 103,201,22,8,10,119,36,3,21,32
1180 DATA 249,201,22,8,126,36,2,3,21,32
1190 DATA 249,201,22,8,10,3,190,192,36,21
1200 DATA 32,248,201,237,91,126,253,205,165,253
1210 DATA 1,0,253,205,190,253,201
9998 STOP