%%HP: T(3)A(D)F(.);
\<< 
  \-> op \<< 
    
    CASE 
      op 1 == THEN 
        PICT { # 7Ah # 36h } { # 83h # 3Fh } SUB 'gh' STO 
      END 
      op 2 == THEN 
        PICT { # 7Ah # 36h } HGLS REPL 
      END 
      op 3 == THEN 
        PICT { # 7Ah # 36h } gh REPL 
      END 
      op 0 \<= THEN 
        PICT { #7Ah #36h } {"CMDH" "IKY" "EDITGRB" "AZGROB" "FROMHP" "TOHP" } op ABS GET STR\-> REPL 
      END 
      
    END 
    
  \>> 
\>> 


