10 D=0 :
   GR :
   FOR I = 9 TO 13 :
   COLOR = I :
   HLIN 2,37 AT I :
   COLOR=5 :
   VLIN 0,39 AT I/13 :
   HLIN 0,39 AT I/13 :
   VLIN 0,39 AT 38 + I/13 :
   NEXT :
   FOR F = 0 TO 4 :
   F = E :
   H = 1 :
   V = -1 :
   X = 3 :
   Y = 25 :
   FOR T = 0 TO 1 :
   PLOT X,Y :
   L = PDL(0)/8 + 2 :
   HLIN L,L+4 AT 37 :
   N = X :
   O = Y :
   A = SCRN( X+H, O ) : 
   B = SCRN( X+H, Y+V ) :
   C = SCRN( N, Y+V ) :
   COLOR = 0
20 H = H*(( A=0 AND B=C ) - ( B<>C OR ( B=C AND A>1 ))) :
   V = V*(( B=A AND C=0 ) - ( B<>A OR C>1 )) :
   X = N+H :
   y = O+V :
   P = N-H*( C<6 AND A<>5 ) :
   Q = O-V*( C>6 OR B>6 ) :
   J = ( SCRN(P,Q) > 6 ) :
   S = S+J :
   D = D+J :
   VTAB 21 :
   PRINT S,F :
   PLOT N,O :
   PLOT P,Q :
   HLIN L,L+4 AT 37 :
   COLOR = 5 :
   ON D/170 GOTO 10 :
   T = ( y>38 ) :
   E = F+( T=1 ):
   NEXT T,F