1 REM IRQ.SPRITE
20 PRINT"[147]"SPC(13)"[201][210][209] [211][208][210][201][212][197]":GOSUB 2000
30 V = 53248 : REM SPRITE BASE VARIABLE
40 POKE V+21,1 : REM TURN SPRITE 0 ON
50 POKE V+39,6 : REM MAKE IT BLUE
60 POKE V+1,90 : REM VERTICAL COORDINATE
70 POKE V+27,1 : REM MAKE IT APPEAR BEHIND CHARACTERS
80 POKE 2040,13 : REM LOCATE IT IN CASSETTE BUFFER
90 FORX=832TO894:POKEX,255:NEXT :REM CREATE SOLID BLOCK
100 SYS 50000:PRINT"     [212]HE PROGRAM WILL NOW STOP...":FORDL=1TO1500:NEXT
105 PRINT"GOTO110: REM PRESS <[210][197][212][213][210][206]> TO CONTINUE.[145][145][145][145]":END
110 POKE928,0:F$="IRQ.MENU":SYS50000:POKEV+21,0
112 PRINT"[147]            [199]OING TO MENU..."
114 PRINT"[152]LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
120 REM
2000 FORJ=50000TO50102:READA:POKEJ,A:NEXT:RETURN
2010 DATA 173,78,195,201,1,240,18,120,169,123,141,20,3,169,195,141
2020 DATA 21,3,88,169,1,141,78,195,96,120,169,49,141,20,3,169
2030 DATA 234,141,21,3,88,169,0,141,78,195,96,32,129,195,76,49
2040 DATA 234,173,16,208,41,1,201,1,240,20,238,0,208,173,0,208
2050 DATA 201,0,240,1,96,173,16,208,9,1,141,16,208,96,238,0
2060 DATA 208,173,0,208,201,91,48,14,169,0,141,0,208,173,16,208
2070 DATA 41,126,141,16,208,96,96