RPL beginner

[dwesti]

I am studying RPL, but it turned out that the program does not work after checking the conditions
tell me where is the error

Code:


ASSEMBLE
    NIBASC    /HPHP48-D/
RPL
*
* Begin the secondary
*
::

  RECLAIMDISP        ( *Claim the alpha display* )
  ClrDA1IsStat        ( *Temporarily disable clock* )

  ZEROZERO        ( #0 #0 )
  150 64 MAKEGROB    ( #0 #0 150x150grob )
  XYGROBDISP        (  )
  TURNMENUOFF        ( *Turn off menu line* )
*
* Remember that LINEON requires
* requires #x2>#x1! 131x64
*
 %0 %0 %0 %0 %0 %0 %0 %0
 {
  LAM X1
  LAM Y1
  LAM X2
  LAM Y2
  LAM DX1
  LAM DY1
  LAM DX2
  LAM DY2
 } BIND

 0 ' LAM X1 STO
 0 ' LAM Y1 STO

 1 ' LAM DX1 STO
 1 ' LAM DY1 STO

 120 ' LAM X2 STO
 53 ' LAM Y2 STO
 
 BEGIN
 KEYINBUFFER? NOT
 WHILE
 LAM X1
 LAM Y1
 LAM X2
 LAM Y2
 LINEON        ( *Draw line* )

 LAM X1
 LAM Y1
 LAM X2
 LAM Y2
 LINEOFF

 LAM Y1
 LAM DY1
  #+
( DUP )
  ' LAM Y1 STO

( execution stops )
( IF 60 == THEN )
( 0 ' LAM Y1 STO )
( END )


 REPEAT
 WaitForKey
 ABND
*      ::
;