200 DIM D01$(13),D02$(13),D03$(13)›210 D01$=D0$:D02$=B$:D03$=B$:P=0›220 RESTORE 520›230 FOR I=3 TO 11:READ BYTE:D02$(I,I)=CHR$(BYTE):NEXT I›240 FOR I=3 TO 11:READ BYTE:D03$(I,I)=CHR$(BYTE):NEXT I›250 SETCOLOR 4,7,2›300 REM ***VIEW POINTER & STRING***›310 C=C+1›320 IF C>4 THEN C=1›330 ON C GOTO 340,350,340,360›340 D0$=D01$:GOTO 370›350 D0$=D02$:GOTO 370›360 D0$=D03$›370 P0$(Y(0))=D0$›380 FOR I=1 TO 9›385 IF C=2 OR C=4 THEN SOUND 0,28*I,6,9-I›390 NEXT I›400 REM *** MOTION ROUTINE ***›410 A=STICK(0)›420 IF A=15 THEN 310›430 IF A=11 THEN X(0)=X(0)-1:POKE 53248,X(0)›440 IF A=7 THEN X(0)=X(0)+1:POKE 53248,X(0)›450 IF A=13 THEN DY=1:GOSUB 160›460 IF A=14 THEN DY=-1:GOSUB 160›470 GOTO 310›520 DATA 126,90,66,60,219,189,102,230,7›530 DATA 126,90,66,60,219,189,102,103,224›9100 DATA 126,90,66,60,219,189,102,102,231›