%%HP: T(3)A(D)F(.);
\<<
@ Hello User-RPL program
@ By Stan Lui 10/8/2012
GROB 49 24 FFFFFFFFFFFF1010000000000010DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF710DFFFFFFFFFF71010000000000010FFFFFFFFFFFF10
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -65536 -65536 -65536 -65536 -65536 -16776961 -16776961 -16776961 -256 -256 -256 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 
   \-> hellogrob \<<

@  initialize by clearing screen
     ERASE { #0h #0h } PVIEW

@  display hello GROB and message
     PICT {# 41d,# 5d} hellogrob REPL
     PICT {# 8d,# 33d} "WELCOME TO USER-RPL" 3 \->GROB REPL
     PICT {# 31d,# 43d} "PROGRAMMING!" 3 \->GROB REPL

@  set color to blue and display waiting message
@ZCOLOR -16776961 
     PICT {# 37d,# 55d} "PRESS X TO EXIT" 1 \->GROB REPL

@  set UCalc key 'X' label to "Exit"
@ZKEYLABELS 8 5353968 -4128769 -16777216 1 24 "Exit" 

@  wait in loop. Exit program when user hits the X key
     1 CF WHILE 1 FC? REPEAT
       1 WAIT IF KEY THEN
         IF 63 == THEN
           1 SF
         END
       END
     END

@  disable UCalc label display
@ZKEYLABELSOFF 
\>>
\>>
