%%HP: T(1)A(R)F(.);
«
  « DUP SIZE 2 / .5
+ IP "GROB 1 " SWAP
+ " " + SWAP + OBJ¨
# 4017h SYSEVAL
# 56B6h SYSEVAL
DROP NEWOB
  » '¨OBJ' STO
"D9D20E1632E4A20510007566000000000000E25A178BF1E4A20510002095000000000000E25A1E4A2051000A852600000000000E25A1E4A20510007566000000000000E25A1E4A20510009805000000000000E25A1DBBF1ED2A2387C1E4A205100038E5100000000000E25A193632B2130"
¨OBJ '¨STRING' STO
"D9D20E1632E4A20510000000000000000000CB2A178BF1E4A20510008F60800000000000E4A2051000A595600000000000E25A133920100000000000001076BA1E4A2051000A595600000000000E25A1E4A2051000FFFFF00000000000387E1DBBF18DBF193632B2130"
¨OBJ '¨ADR' STO
"D9D20E16329C2A292CF18B9C10A132D6E2010B4D6E2010B42ABF16C7D1D8732D9D2078BF168BC1339201000000000000010167E18A732D9D20E4A20510003004000000000000E25A1E4A2051000C9B2600000000000E25A1B21305DF2278BF168BC14B2A2167E18A732D9D20E4A20510007DC8100000000000E25A1B21305DF2278BF168BC1C53A2167E18A732D9D20E4A2051000F9F3000000000000E25A1E4A20510003BA5000000000000E25A184E2040D8548545B21305DF2278BF168BC1D13A2167E18A73284E2040D85485455DF2233622B21305DF22704D1C4232E4A20510003BF3000000000000E25A1E4A20510003BA5000000000000E25A193632B2130"
¨OBJ '¨EXT' STO {
# 18AB2h # 19443h
# 54AFh # 61891h
# 5445h # 634CAh
# 73DBh # 613B6h
# 3325h { # 18FB2h
11 { 2 # 62B9Ch } 1
# 18CD7h 8 {
# 61FA9h # 61A3Bh
# 3F9Fh # 5AB3h
¨EXT } 5 ¨EXT 0
# 64775h } # 7334h
# 634B6h # 5445h }
¨EXT '¨EXT' STO {
# 18AB2h # 18FB2h
# 403Fh { # 54AFh
# 61891h # 5459h
# 634CAh # 73DBh
# 613B6h # 3325h {
# 61FA9h # 61A3Bh
# 1A2DAh # 61993h
¨ADR # 621E7h
# 61993h EXT¨
# 6212Ah # 61993h
# 18DBFh # 6213Fh
# 32C2h # 62216h
# 3B75h # 32C2h
# 6216Eh # 3B75h
# 61A2Ch # 55DFh
# 5E81h } # 7334h
# 634B6h # 5459h }
} ¨EXT 'EXT¨' STO {
# 18AB2h # 18FB2h
# 4021h { # 3188h
# 55B7h # 63B05h
# 54AFh # 5E35Ch
# 32C2h # 1CB90h
# 6284Bh # 73DBh
# 3223h # 1CB90h
# 60F9Bh # 32C2h
# 2A8CCh # 63B05h
# 7334h # 627A7h
# 5E401h # 3FF9h
# 5E401h # 55D5h
# 6E97h { # 6657h
# 3188h # 5902h
# 6258Ah # 6657h
# 3223h # 631B9h
# 5089h 10830
# 5ACCh } # 634CFh
# 611FEh # 613B6h
# 6F8Eh # 3FF9h
# 4021h # 5815h
# 518Ah # 3223h
# 73DBh # 5182Fh
# 612F3h # 613B6h
# 6F8Eh # 402Bh
# 32C2h # 5616h
# 5815h # 518Ah
# 7334h # 7497h
10728 # 5ACCh } }
¨EXT '¨VEC' STO {
# 18AB2h # 18FB2h
# 4017h { # 3188h
# 357A8h # 63B05h
# 3223h 10830
# 5AB3h # 63A9Ch
# 4021h # 5815h
# 3223h # 408Fh
# 32C2h # 5616h
# 5815h # 611FEh
# 73DBh # 31ACh
# 518Ah # 4003h
# 62B9Ch # 6657h
# 61380h # 5902h
# 6260Ah # 32C2h
# 5616h # 5815h
# 3223h # 6109Eh
# 7334h # 3258h
# 5459h } } ¨EXT
'VEC¨' STO
"CCD207A0001438FB97608F511108FDBB1013114334C2A208A636174147174818FA4D5819F1D2E68BD44CD1BA1100340000821D0148CE48214A808643FAE2A8614AB669027F14D171CD56E208F5E0108FF8B108D34150"
¨OBJ 'REC' STO
"CCD20390001438FB97608F511108FDBB1013114334C2A208A615174147174818FA4D5819F1D2E68BD23CD1BB1100D02114F171A6EA8A148A3E9027FCD56E20D214C8F5E0108FF8B108D34150"
¨OBJ 'PLAY' STO
  « " " 1 10
    START DUP +
    NEXT
  » 'CHVID' STO {
¨STRING ¨OBJ ¨EXT
EXT¨ ¨VEC VEC¨ ¨ADR
CHVID REC PLAY
CREER } ORDER
»