:AxesOff
:FnOff
:ClrDraw
:26?D:10?L:L?C
:TextColr(BROWN
:For(?,1,20
: Text(~1,2,?*12,"?
: Text(~1,137,?*12,"?
:End
:For(?,1,8
: Text(~1,?*15+2,0,"?
: Text(~1,?*15+2,252,"?
:End
:TextColor(GREEN
:DelVar ?XDelVar ?Y
:seq(12-L+?,?,1,L??X
:seq(32-L+?,?,1,L??Y
:Fill(12,?X
:Fill(32,?Y
:32?A:24?B
:Repeat K=45
: getKey?K
: If not(min(abs(K-{24,25,26,34:K?D
: 1+?C+1,L-1?N
: ?Y(C)+15((D=34)-(D=25?V
: ?X(C)+12((D=26)-(D=24?U
: N?C
: If Pxl-Test(V+7,U+4
: Goto Q
: Text(~1,?Y(N),?X(N),"
: V??Y(N:U??X(N
: Text(~1,V,U,"*
: Pxl-On(V+7,U+4
: If U=B and V=A
: Then
: augment(?X,{0,0,0,0??X
: augment(?Y,{0,0,0,0??Y
: L+4?L
: Repeat not(Pxl-Test(A+7,B+4
: 12randInt(1,20?B
: 2+15randInt(1,8?A
: End
: TextColor(RED
: Text(~1,A-2,B,"o
: TextColor(GREEN
: End
:End
:Lbl Q
:ClrDraw
:DelVar ?XDelVar ?Y
:ClrHome
:Output(1,1,"Game Over