10 'SS-WB 20 VIDEO 3:CLS:W=10 30 @WL 40 LC RND(15),0:?"@"; 50 SCROLL2:WAITW 60 IFIN(1)+IN(2)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 K=IN(1)+IN(2)*2 120 X=X-(K=1)*(X>1) 130 X=X+(K=2)*(X<14) 140 SCROLL2 150 IF SCR(X,Y)<>0 GOTO@ED 160 LCX,Y:?"A"; 170 WAITW 180 GOTO@LP 190 @ED 200 LC X,Y:?"*"; 210 FOR I=0TO20:BEEPI,10:WAITI/5:NEXT 220 GOTO@WL