Surprise graphic program (HP-48G, GX)

[Gilles]

Small improvment with the sand flowing ...
For 49G+/50G

Code:

 
\<<
 #131d #80d BLANK PICT STO 
 (-66 -10) (65 9) PDIM

 0. 60. FOR x
  x DUP \v/ R\->C DUPDUP PIXON CONJ PIXON
  NEG DUP CONJ 
  IF DUP RE -46 > THEN LINE ELSE PIXON PIXON END 
  IF x 2 MOD THEN x 0 R\->C (0 .1) - DUP CONJ BOX END
 NEXT
  
 (-64 -8) (64 8)  BOX 
 (-61 -8) (-61 8) LINE
 ( 61 -8) ( 61 8) LINE
 
 { # 0d # 0d } PVIEW
 
 45. 2. FOR x
  (1 0) DUP x 14 + + TLINE
  x 15 + DUP \v/ R\->C DUP CONJ LINE
  x DUP \v/ R\->C NEG DUP CONJ DUP2 TLINE PIXON PIXON
  0.2 WAIT
 -1 STEP
 
 (0 0) (15 0) DUP2 LINE TLINE
 (0 -.1) (15 -.1) DUP2 LINE TLINE

 0 WAIT DROP
\>>