#- cls   - cls
    call 0x00c3     #-cls

#- color   - color v_ink,v_paper,v_border
    ld hl,0xF3E9;ld [hl],v_ink;inc hl  #- forclr
    ld [hl],v_paper;inc hl                    #- bakclr
    ld [hl],v_border                             #- borclr

#- vpoke -    vpoke v_address,v_value
    ld hl,v_address
    ld a,v_value
    call 0x004D    #- wrtvrm

#- vpeek -    v_value= vpeek (v_address)
    ld hl,v_address
    call 0x004A    #-rdvrm
    ld v_value,a

#- screen -   screen v_screenmode,v_spritemode,,,,,,,,
    ld a,v_screenmode;call 0x005F     #- chgmod
    #- ld bc,0xE201:call WRTVDP - v_spritemode - ????

#- cls (msx2)   - cls
    ld ix,0x0115    #- cls (subrom)
    call 0x015C     #- subrom

#- setpage (msx2) -    setpage v_dpage,v_apage (?)
    ld a,v_pag:ld [0xFAF5],v_dpage    #- dppage
    ld a,v_pag:ld [0xFAF6],v_apage    #- acpage
    ld ix,0x013D    #- setpag (subrom)
    call 0x015C     #- subrom