PAUSE not working (*solved*)

[patters]

For the time being I have copied a Sub from the Berks Man source code which does the job using the CPU's HALT instruction:

Code:

SUB Wait(w AS uInteger)
    'Pause for w frames
    WHILE w > 0
        w=w-1
        ASM
        HALT
        END ASM
    END WHILE
END SUB