%%HP: T(3)A(R)F(.);
\<< DUP SIZE 1 3
\->LIST DUP 1 GET 1
GET CLLCD 1 DISP 3
FREEZE { { "PG\|v" {
  \<< DUP 3 GET 1 +
DUP 3 PICK 2 GET
    IF >
    THEN 1 -
    END DUP 3 PICK
SWAP 3 SWAP PUT 3
ROLL 1 GET 3 ROLL
GET CLLCD 1 DISP 7
FREEZE
  \>> } } { "PG\|^" {
  \<< DUP 3 GET 1 -
DUP 1
    IF <
    THEN DROP 1
    END DUP 3 PICK
SWAP 3 SWAP PUT 3
ROLL 1 GET 3 ROLL
GET CLLCD 1 DISP 7
FREEZE
  \>> } } { "end\|v" {
  \<< DUP 2 GET 3
SWAP PUT DUP DUP 2
GET SWAP 1 GET SWAP
GET CLLCD 1 DISP 7
FREEZE
  \>> } } { "beg\|^" {
  \<< 1 3 SWAP PUT
DUP 1 GET 1 GET
CLLCD 1 DISP 7
FREEZE
  \>> } } { "" } {
"EXIT" {
  \<< TEXT DROP 0
MENU
  \>> } } } TMENU
\>>
