1 S=700:REM *** CHANGE S TO RELOCATE
2 PRINTCHR$(147)"LOADING";:FORJ=STOS+56
3 READA:POKEJ,A:X=X+A:PRINT".";:NEXTJ:PRINT:PRINT
4 IFX<>8392THENPRINT"ERROR IN DATA...":END
5 PRINT"  DATA OK * SYS"S"TO ACTIVATE...":END
6 DATA169,36,133,251,169,5,162,8,160,0,32,186
7 DATA255,169,1,162,251,160,0,32,189,255,32,192
8 DATA255,162,5,134,252,32,198,255,32,207,255,198
9 DATA252,16,249,32,207,255,240,5,32,210,255,208
10 DATA246,32,204,255,169,5,76,195,255