10 'SS-BB 20 VIDEO 3:CLS:W=10 30 @WL 40 LC RND(15),0:?"@"; 50 SCROLL2:WAITW 60 IF!BTN()GOTO@WL 70 X=8:Y=9:W=10:CLT:CLS 80 @LP:BEEP100 90 IFTICK()>600W=W-1:CLT:IFW<0W=0 100 LC RND(15),0:?"@"; 110 U=X:V=Y 120 X=X-IN(1)*(X>1) 130 X=X+IN(4)*(X<14) 140 Y=Y-IN(3)*(Y>1) 150 Y=Y+IN(2)*(Y<10) 160 LCU,V:?CHR$(0); 170 SCROLL2 180 IF SCR(X,Y)<>0 GOTO@ED 190 LCX,Y:?"A"; 200 WAITW 210 GOTO@LP 220 @ED 230 LC X,Y:?"*"; 240 FOR I=0TO20:BEEPI,10:WAITI/5:NEXT 250 GOTO@WL