Sprite

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