200 GOSUB 5000:POKE 756,CHSET/256:REM activate character set›240 BALL=20+128:STAR=9:REM CTRL-T AND CTRL-I›2030 POKE SCREEN+PX+20*PY,74+INT(XPLODE):REM Place an explosion character›2110 REM DELETE THIS LINE›5000 CHSET=(PEEK(106)-8)*256:FOR I=0 TO 7:POKE CHSET+I,0:NEXT I:REM CLEAR OUT HEART›5001 RESTORE 5005:IF PEEK(CHSET+9*8)=16 THEN RETURN :REM IF CHSET STILL IN MEMORY, WHY RE-INITIALIZE?›5002 READ A:A=A-64:IF A<0 THEN RETURN ›5003 FOR J=0 TO 7:READ B:POKE CHSET+A*8+J,B:NEXT J›5004 GOTO 5002›5005 DATA 67,248,254,241,225,96,48,24,0›5006 DATA 69,32,64,64,196,228,252,248,240›5007 DATA 73,16,84,40,198,40,84,16,0›5008 DATA 74,0,0,16,56,56,16,0,0›5009 DATA 75,0,32,0,16,8,16,4,0›5010 DATA 76,0,64,0,16,68,16,4,0›5011 DATA 77,0,64,16,2,0,128,32,2›5012 DATA 78,128,8,1,0,0,0,0,64›5013 DATA 79,8,0,0,0,0,0,0,0›5014 DATA 81,4,2,2,35,39,63,31,15›5015 DATA 82,0,255,255,255,255,255,0,0›5016 DATA 83,28,34,73,93,93,73,34,28›5017 DATA 84,0,0,8,28,28,8,0,0›5018 DATA 90,31,127,143,135,6,12,24,0›5019 DATA 92,66,195,129,195,231,126,60,24›5020 DATA 93,24,60,126,231,195,129,195,66›5021 DATA 94,60,126,15,7,7,15,126,60›5022 DATA 95,60,126,240,224,224,240,126,60›5023 DATA 124,60,60,60,60,60,60,60,60›5024 DATA 127,16,24,28,30,30,28,24,16›5025 DATA -1›