***************************************
    
           :

procedure GotoXY(x,y:SHORTCARD);
code$5f,$d,
    14, ()
    $30,     tsx
    $ee,0,   ldx $00,x
    $31,     ins
    $31,     ins
    $33,     pulb
    $31,     ins
    $32,     pula
    $4a,     deca
    $5a,     decb
    $3f,$15, int $15
    $6e,0;   jmp $00,x

function Key:BOOLEAN;
code$5f,$d,
    17, ()
    $3f,$10, int $10
    $5f,     clrb
    $4c,     inca
    $27,2,   beq p
    $86,1,   ldaa #1
    $30,   p tsx
    $ee,0,   ldx $00,x
    $31,     ins
    $31,     ins
    $37,     pshb
    $36,     psha
    $6e,0;   jmp $00,x

function Rkey:CHAR;
code$5f,$d,
    12, ()
    $3f,$11, int $11
    $5f,     clrb
    $30,     tsx
    $ee,0,   ldx $00,x
    $31,     ins
    $31,     ins
    $37,     pshb
    $36,     psha
    $6e,0;   jmp $00,x

procedure Play(note,lenght:WORD);
code$5f,$d,
    24, ()
    $30,     tsx
    $ee,0,   ldx $00,x
    $df,$d0, stx $d0
    $31,     ins
    $31,     ins
    $32,     pula
    $33,     pulb
    $36,     psha
    $37,     pshb
    $30,     tsx
    $ee,0,   ldx $00,x
    $31,     ins
    $31,     ins
    $32,     pula
    $33,     pulb
    $3f,$6f, int $6f
    $de,$d0, ldx $d0
    $6e,0;   jmp $00,x
***************************************
