%%HP: T(3)A(D)F(.);
\<< CLLCD
"       LIMPANDO..."
SYS 1000 .08 BEEP
VARS LIST\->
  IF DUP
  THEN 1 SWAP
    START DUP RCL
TYPE DUP
      IF 15 ==
      THEN DROP 8
      END
      IF { 8 } SWAP
POS
      THEN DROP
      ELSE PURGE
      END
    NEXT
  ELSE DROP
  END 'CST' PURGE
"JUST SAY SCAR " 33
CHR DUP + + SYS
1200 .08 BEEP 1
WAIT KILL
\>>
