%%HP: T(1)A(R)F(.);
DIR
  GAME
     { } TMENU 0
'SCORE' STO 1 20
      START READY?
UNA DUP
"
Elija una letra."
{  } INPUT CLLCD
        IF SAME
        THEN
"Correcto!" 3 DISP
5 DISP 1 2 FREEZE
'SCORE' STO+
        ELSE
"Error!!" 3 DISP 5
DISP 2 FREEZE
        END SCORE 5
* 4 DISP 2 FREEZE 1
WAIT
      NEXT SCORE 5
* STR "        "
SWAP + " %" + 3
CLLCD DISP 3 FREEZE
2.01 MENU 0 WAIT
DROP
    
  PLAY
     CLLCD
"
Ingrese string."
{  } INPUT CLLCD
ERASE PICT {
# 111001b # 1100b }
BACK REPL { # 0b
# 0b } PVIEW
'STRING' STO STRING
SIZE 1 SWAP
      FOR i STRING
i i SUB DUP 3 GROB
PICT { # 1000000b
# 10101b } ROT REPL
        IF DUP " "
SAME
        THEN DROP w
w
        ELSE MRS
        END
      NEXT
    
  MRS
     RCLF SWAP BIN
1 OVER SIZE
      FOR n DUP n
DUP SUB
"-ETIANMSURWDKGOHVF-L-PJBXCYZQ"
SWAP POS RB STR
DUP SIZE 1 - 4 SWAP
SUB 1 OVER SIZE
        FOR b DUP b
DUP SUB
          CASE DUP
"1" SAME
            THEN r
            END DUP
"0" SAME
            THEN p
            END
          END DROP
        NEXT DROP w
      NEXT DROP
STOF
    
  p
     TOC w
    
  r
     TOC TOC w
    
  w
     .2 WAIT
    
  TOC
     880 .1 BEEP
    
  UNA
     RAND 25 * 65
+ IP CHR DUP MRS
    
  SCORE 16
  BACK
GROB 19 27 FFFF705100405100405FFF505100505100505FF7505104505104505104505104505104505104505104505104505104505104505104505104505104505FF750500450500450DFF750100450100450FFFF70
  STRING "HOLA"
  LENG 3
  READY?
     CLLCD
"Presione una tecla
cuando este listo."
2 DISP 3 FREEZE 0
WAIT DROP
    
END
