'老是有人提到这人问题
'其实这个问题QB45答过了很多次了

SUB qSleep (n AS INTEGER)
'**********************************************
'   让程序暂停N个时间单位 1单位=1/18.2秒
'**********************************************
    DEF SEG = 0

    t = PEEK(1132)
    s = t

    WHILE s < t + n
        s = PEEK(1132)
        IF t > s THEN t = 0
    WEND

    DEF SEG

    '以下代码也实现同样功能:
    't=timer
    's=t
    '
    'while s<t+n
    '    s=timer
    '    if t>s then t=0
    'wend
END SUB

SUB qPalette (n%, r%, g%, b%)
    ' *********************************************
    ' 本过程设置自定义颜色
    ' n:颜色号 r:红份量 g:绿份量 b:蓝份量
    ' 文本和 Screen 12 模式下 n=0~15    r,g,b=0~63
    '**********************************************
    OUT &H3C6, 255

    OUT &H3C8, n%

    OUT &H3C9, r%
    OUT &H3C9, g%
    OUT &H3C9, b%
END SUB