RPL beginner

[dwesti]

right now, but the manual says that when drawing a line, you need to call ORDERXY#, then the line draws incorrectly

Code:


ASSEMBLE
    NIBASC    /HPHP48-D/
RPL

::
   ( no arguments expected )
   CK0NOLASTWD

   ( setup/clear display )
   ClrDA1IsStat
   RECLAIMDISP
   TURNMENUOFF

   ( allocate locals )
   ZERO ZERO
   110 50
   ONE ONE
   ONE ONE
   {
      LAM X1
      LAM Y1
      LAM X2
      LAM Y2
      LAM DX1
      LAM DY1
      LAM DX2
      LAM DY2
   } BIND

   ( clear key buffer )
   FLUSHKEYS
   ATTNFLGCLR

   ( loop until a key is pressed )
   BEGIN
      KEYINBUFFER? ATTN? OR NOT
   WHILE
      ( draw line )
      LAM X1 LAM Y1
      LAM X2 LAM Y2
(      ORDERXY# )
      LINEON

      ( clear line )
      LAM X1 LAM Y1
      LAM X2 LAM Y2
(      ORDERXY# )
      LINEOFF

      ( change Y1 value )
      LAM Y1 LAM DY1 #+
      ' LAM Y1 STO

      ( change DY1 value if appropriate )
      LAM Y1 SIXTY #> IT ::
        MINUSONE
         ' LAM DY1 STO
      ;
      LAM Y1 #0= IT ::
         ONE
         ' LAM DY1 STO
      ;

      ( change Y2 value )
      LAM Y2 LAM DY2 #+
      ' LAM Y2 STO

      ( change DY2 value if appropriate )
      LAM Y2 SIXTY #> IT ::
         MINUSONE
         ' LAM DY2 STO
      ;
      LAM Y2 #0= IT ::
         ONE
         ' LAM DY2 STO
      ;

      ( change X1 value )
      LAM X1 LAM DX1 #+
      ' LAM X1 STO

      ( change DX1 value if appropriate )
      LAM X1 120 #> IT ::
        MINUSONE
         ' LAM DX1 STO
      ;
      LAM X1 #0= IT ::
         ONE
         ' LAM DX1 STO
      ;

   REPEAT

   ( clear pressed key )
   FLUSHKEYS
   ATTNFLGCLR

   ( abandon locals )
   ABND

   ( reset display )
   ClrDAsOK
;