10 REM TAPE TOOL 1 : Joe Powton 2025
20 FORT=0TO5:READA:POKE13288+T,A:NEXT
30 DATA219,252,211,252,24,250
40 POKE14340,232:POKE14341,51:X=USR(0)