\ ����������
CODE (GLUCK) ASSEMBLE CLEAR
          LD BC,#7FFE  RST #30  LD A,1
loop      IN D,(C)  BIT 1,D  RET Z  LD H,L
wait      DEC H  JP NZ,wait
          OUT (#FE),A  XOR #15  JP loop ;
VARIABLE PAUSE  128 PAUSE !   HEX
: GLUCK 6 IN PAGE BEGIN
  001E.000B CURSOR  PAUSE @ DUP 0=
  IF 100 ELSE DUP THEN 3 .R  (GLUCK)  A0 MS  KEY# CASE
      5A OF 100 CHOOSE PAUSE ! ENDOF
      5B OF PAUSE 1-! ENDOF
      5D OF PAUSE 1+! ENDOF
      55 OF BORDER CR EXIT ENDOF
      ENDCASE
  PAUSE @ FF AND PAUSE !        AGAIN ;  DECIMAL GLUCK