10-30-2021, 07:23 PM
I am studying RPL, but it turned out that the program does not work after checking the conditions
tell me where is the error
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
* ::
;