1 CLV:R=2:T=-1
2 T=(T+1)%45
3 CLS:A=(T%45)+177:FORC=0TO7:D=PEEK(A*8+C):LC1,C
4 FORB=0TO7:?CHR$(D&128>0);:D=D<<1:NEXT:NEXT
5 X=0:Y=0:GSB31:P=9:Q=7:GSB32
6 L=0:FORJ=0TO7:FORI=0TO9:IF!SCR(I,J)LCI,J:?CHR$(165);:L=L+1
7 NEXT:NEXT:IFT=15||T=42LC6,1:?CHR$(165):L=L+1
8 LC11,0:?"STAGE":LC11,1:?T+1:GSB29:GSB30:G=0:W=0:H=0:I=0
9 W=(W+1)*(W<3):IFWGSB17 ELSEGSB24
10 IF!LGOTO2
11 IFGGSB16:IF!RGOTO13 ELSEGOTO3
12 WAIT5:GOTO9
13 LC4,7:?"GAME OVER";:WAIT60:CLK
14 IF!INKEY()CONT
15 RUN
16 BEEP30,30:R=R-1:GSB30:WAIT60:RTN
17 U=X-BTN(28)+BTN(29):V=Y-BTN(30)+BTN(31)
18 H=SCR(U,V):IFU<0||U>9||V<0||V>7||H=1RTN
19 LCX,Y:?CHR$(0);:X=U:Y=V:GSB31
20 IFH=165S=S+1:GSB29:L=L-1
21 IF!LBEEP10,30:WAIT60:RTN
22 IFH=237G=1
23 RTN
24 D=X-P:E=Y-Q:Z=RND(2):U=P+((D>0)-(D<0))*Z:V=Q+((E>0)-(E<0))*(1-Z)
25 J=SCR(U,V):IFU<0||U>9||V<0||V>7||J=1U=P:V=Q:J=I
26 LCP,Q:?CHR$(I);:P=U:Q=V:GSB32:IFJ!=237I=J
27 IFI=251G=1
28 RTN
29 LC11,3:?"SCORE":LC11,4:?S:RTN
30 LC11,6:?"LEFT";R;:RTN
31 LCX,Y:?CHR$(251);:RTN
32 LCP,Q:?CHR$(237);:RTN